(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    197357,       4232]
NotebookOptionsPosition[    192399,       4066]
NotebookOutlinePosition[    192922,       4087]
CellTagsIndexPosition[    192879,       4084]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Consider the T1/T2 effect between tip up and the next tip down.  \
\>", "Text",
 CellChangeTimes->{{3.547819736420139*^9, 3.5478198113328776`*^9}}],

Cell["Model matrices: ", "Text",
 CellChangeTimes->{{3.547819854955242*^9, 3.547819884649523*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rd", " ", "=", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", 
      RowBox[{"Cos", "[", "a", "]"}], 
      RowBox[{"Sin", "[", "a", "]"}]},
     {"0", 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "a", "]"}]}], 
      RowBox[{"Cos", "[", "a", "]"}]}
    }], "\[NoBreak]", ")"}]}]], "Input",
 CellChangeTimes->{{3.5467953156881638`*^9, 3.546795321577218*^9}, {
  3.547819695299157*^9, 3.5478196981882925`*^9}, {3.5549820223624597`*^9, 
  3.554982049342003*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"Cos", "[", "a", "]"}], ",", 
     RowBox[{"Sin", "[", "a", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", 
      RowBox[{"Sin", "[", "a", "]"}]}], ",", 
     RowBox[{"Cos", "[", "a", "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5472307586191907`*^9, 3.547485130230525*^9, 
  3.5474911932801657`*^9, 3.547565060668327*^9, 3.547571451818391*^9, 
  3.547575133459013*^9, 3.547578097927972*^9, 3.547578176191766*^9, 
  3.547578237620274*^9, 3.5475793279607835`*^9, 3.547580084373622*^9, 
  3.5475814111026316`*^9, 3.5475844971458707`*^9, 3.5475850114560223`*^9, 
  3.547819529968895*^9, 3.5478199477903895`*^9, 3.5478205244384317`*^9, 
  3.5478205650308046`*^9, 3.5478206048426456`*^9, 3.554981820763929*^9, 
  3.5549820718912926`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"G", " ", "=", " ", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"Cos", "[", "thg", "]"}], 
       RowBox[{"Sin", "[", "thg", "]"}], "0"},
      {
       RowBox[{"-", 
        RowBox[{"Sin", "[", "thg", "]"}]}], 
       RowBox[{"Cos", "[", "thg", "]"}], "0"},
      {"0", "0", "1"}
     }], "\[NoBreak]", ")"}]}]}]], "Input",
 CellChangeTimes->{{3.547230622900674*^9, 3.5472306239152465`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "thg", "]"}], ",", 
     RowBox[{"Sin", "[", "thg", "]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Sin", "[", "thg", "]"}]}], ",", 
     RowBox[{"Cos", "[", "thg", "]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5472306254410367`*^9, 3.547230758694936*^9, 
  3.5474851303059*^9, 3.5474911933731894`*^9, 3.547565060765703*^9, 
  3.5475714519046803`*^9, 3.54757513350603*^9, 3.547578097982795*^9, 
  3.547578176348386*^9, 3.5475782376907434`*^9, 3.5475793280155716`*^9, 
  3.547580084436306*^9, 3.5475814112252316`*^9, 3.5475844972236776`*^9, 
  3.5475850115111246`*^9, 3.5478195300893364`*^9, 3.5478199478207884`*^9, 
  3.5478205244786572`*^9, 3.5478205650563087`*^9, 3.547820604868144*^9, 
  3.554981820817932*^9, 3.5549820674590387`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"P", " ", "=", " ", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"Cos", "[", "thf", "]"}], 
       RowBox[{"Sin", "[", "thf", "]"}], "0"},
      {
       RowBox[{"-", 
        RowBox[{"Sin", "[", "thf", "]"}]}], 
       RowBox[{"Cos", "[", "thf", "]"}], "0"},
      {"0", "0", "1"}
     }], "\[NoBreak]", ")"}]}]}]], "Input",
 CellChangeTimes->{{3.5472306406313467`*^9, 3.547230641213519*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "thf", "]"}], ",", 
     RowBox[{"Sin", "[", "thf", "]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Sin", "[", "thf", "]"}]}], ",", 
     RowBox[{"Cos", "[", "thf", "]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547230642212654*^9, 3.5472307587332997`*^9, 
  3.5474851303342876`*^9, 3.5474911934055033`*^9, 3.547565060796195*^9, 
  3.547571451920369*^9, 3.547575133529539*^9, 3.547578097998458*^9, 
  3.547578176371879*^9, 3.547578237722063*^9, 3.5475793280390525`*^9, 
  3.5475800844598126`*^9, 3.547581411257598*^9, 3.547584497243376*^9, 
  3.5475850115426116`*^9, 3.5478195301275253`*^9, 3.547819947854129*^9, 
  3.5478205245012226`*^9, 3.5478205650759263`*^9, 3.547820604900507*^9, 
  3.554981820838933*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CC", " ", "=", " ", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"ef2", "0", "0"},
     {"0", "ef2", "0"},
     {"0", "0", "ef1"}
    }], "\[NoBreak]", ")"}]}]], "Input",
 CellChangeTimes->{
  3.5467962475503774`*^9, {3.54679928386635*^9, 3.546799323969454*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ef2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "ef2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "ef1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5467962484555383`*^9, {3.5467993009744835`*^9, 3.5467993246731653`*^9}, 
   3.547140801876668*^9, 3.547229882768388*^9, 3.5472307587736316`*^9, 
   3.547485130353866*^9, 3.5474911934358582`*^9, 3.547565060814883*^9, 
   3.547571451936058*^9, 3.5475751335530477`*^9, 3.5475780980219536`*^9, 
   3.547578176387541*^9, 3.547578237745552*^9, 3.5475793280625334`*^9, 
   3.5475800844911547`*^9, 3.5475814112840796`*^9, 3.5475844972640586`*^9, 
   3.547585011566227*^9, 3.547819530166693*^9, 3.5478199478815856`*^9, 
   3.5478205245296745`*^9, 3.54782056510143*^9, 3.5478206049211016`*^9, 
   3.554981820857934*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"II", " ", "=", "  ", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", "1", "0"},
     {"0", "0", "1"}
    }], "\[NoBreak]", ")"}]}]], "Input",
 CellChangeTimes->{{3.5467962533452234`*^9, 3.546796268712708*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5467962696601315`*^9, 3.5467993283936253`*^9, 
  3.5471408019001837`*^9, 3.54722988280085*^9, 3.547230758802159*^9, 
  3.547485130378339*^9, 3.5474911934652343`*^9, 3.547565060835539*^9, 
  3.547571451959592*^9, 3.547575133576556*^9, 3.547578098053281*^9, 
  3.547578176426696*^9, 3.547578237769042*^9, 3.547579328086014*^9, 
  3.5475800845146613`*^9, 3.5475814113164463`*^9, 3.5475844972847414`*^9, 
  3.5475850115819707`*^9, 3.547819530194111*^9, 3.547819947913945*^9, 
  3.5478205245532207`*^9, 3.5478205651220284`*^9, 3.547820605071149*^9, 
  3.5549818208779354`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DD", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"II", "-", "CC"}], ")"}], ".", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0"},
      {"0"},
      {"M0"}
     }], "\[NoBreak]", ")"}]}]}]], "Input",
 CellChangeTimes->{{3.546796525381857*^9, 3.5467965360273647`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "ef1"}], ")"}], " ", "M0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.546796536770215*^9, 3.5467993335724735`*^9, 
  3.5471408019393754`*^9, 3.547229882837247*^9, 3.547230758833637*^9, 
  3.5474851304194527`*^9, 3.547491193499506*^9, 3.547565060893571*^9, 
  3.5475714519909697`*^9, 3.5475751336000648`*^9, 3.5475780980689445`*^9, 
  3.547578176450189*^9, 3.5475782378003616`*^9, 3.5475793281173215`*^9, 
  3.547580084530332*^9, 3.5475814113615627`*^9, 3.5475844973221674`*^9, 
  3.547585011605586*^9, 3.5478195302362165`*^9, 3.5478199479404216`*^9, 
  3.5478205245816727`*^9, 3.547820565148513*^9, 3.5478206051054735`*^9, 
  3.5549818208969364`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Pe", " ", "=", " ", 
  RowBox[{"(", "\[NoBreak]", 
   RowBox[{"-", GridBox[{
      {
       RowBox[{"Cos", "[", "phi", "]"}], 
       RowBox[{"Sin", "[", "phi", "]"}], "0"},
      {
       RowBox[{"Sin", "[", "phi", "]"}], 
       RowBox[{"Cos", "[", "phi", "]"}], "0"},
      {"0", "0", "1"}
     }]}], "\[NoBreak]", ")"}]}]], "Input",
 CellChangeTimes->{{3.546796547130949*^9, 3.5467965861656*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Cos", "[", "phi", "]"}]}], ",", 
     RowBox[{"-", 
      RowBox[{"Sin", "[", "phi", "]"}]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Sin", "[", "phi", "]"}]}], ",", 
     RowBox[{"-", 
      RowBox[{"Cos", "[", "phi", "]"}]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.546796587436099*^9, 3.5471408019628906`*^9, 
  3.547229882885448*^9, 3.5472307588660994`*^9, 3.547485130440009*^9, 
  3.547491193527903*^9, 3.547565060921112*^9, 3.5475714520145035`*^9, 
  3.5475751336235733`*^9, 3.5475780981002717`*^9, 3.547578176481513*^9, 
  3.5475782378238516`*^9, 3.547579328132975*^9, 3.547580084561674*^9, 
  3.5475814113909864`*^9, 3.547584497340881*^9, 3.547585011629202*^9, 
  3.547819530261676*^9, 3.5478199479767036`*^9, 3.547820524620917*^9, 
  3.5478205651691117`*^9, 3.5478206051270485`*^9, 3.554981820914937*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ru", "=", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", 
      RowBox[{"Cos", "[", "b", "]"}], 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "b", "]"}]}]},
     {"0", 
      RowBox[{"Sin", "[", "b", "]"}], 
      RowBox[{"Cos", "[", "b", "]"}]}
    }], "\[NoBreak]", ")"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"Cos", "[", "b", "]"}], ",", 
     RowBox[{"-", 
      RowBox[{"Sin", "[", "b", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"Sin", "[", "b", "]"}], ",", 
     RowBox[{"Cos", "[", "b", "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.546796623086254*^9, 3.547140801994244*^9, 
  3.5472298829238124`*^9, 3.5472307588906918`*^9, 3.5474851304605665`*^9, 
  3.547491193552383*^9, 3.547565060940784*^9, 3.5475714520301924`*^9, 
  3.5475751336470823`*^9, 3.547578098123767*^9, 3.547578176497175*^9, 
  3.547578237863001*^9, 3.547579328164283*^9, 3.547580084577345*^9, 
  3.547581411420411*^9, 3.5475844973595943`*^9, 3.547585011644945*^9, 
  3.547819530297906*^9, 3.5478199480061216`*^9, 3.547820524651331*^9, 
  3.5478205651897106`*^9, 3.547820605147643*^9, 3.5549818209349384`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"C2", " ", "=", " ", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"eg2", "0", "0"},
     {"0", "eg2", "0"},
     {"0", "0", "eg1"}
    }], "\[NoBreak]", ")"}]}]], "Input",
 CellChangeTimes->{{3.5472314776165857`*^9, 3.5472314997880263`*^9}, {
  3.5472315365692167`*^9, 3.5472315401780043`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"eg2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "eg2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "eg1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5472315429845967`*^9, 3.547485130487975*^9, 
  3.5474911935798006`*^9, 3.5475650609663577`*^9, 3.5475714520458813`*^9, 
  3.5475751336784267`*^9, 3.5475780981394305`*^9, 3.5475781765284986`*^9, 
  3.547578237878661*^9, 3.5475793281799364`*^9, 3.5475800846086874`*^9, 
  3.5475814114439497`*^9, 3.547584497379292*^9, 3.5475850116685605`*^9, 
  3.547819530323365*^9, 3.5478199480453453`*^9, 3.5478205246758585`*^9, 
  3.5478205652093287`*^9, 3.547820605174122*^9, 3.5549818209539394`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"D2", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"II", "-", "C2"}], ")"}], ".", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0"},
       {"0"},
       {"M0"}
      }], "\[NoBreak]", ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.54723152195043*^9, 3.5472315297378397`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "eg1"}], ")"}], " ", "M0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5472315303989086`*^9, 3.5472315597205377`*^9}, 
   3.54748513051049*^9, 3.547491193603301*^9, 3.547565060992915*^9, 
   3.54757145206157*^9, 3.5475751337097716`*^9, 3.547578098162927*^9, 
   3.547578176559823*^9, 3.5475782379178104`*^9, 3.547579328211244*^9, 
   3.547580084640029*^9, 3.547581411473374*^9, 3.547584497398005*^9, 
   3.5475850117000475`*^9, 3.5478195303556786`*^9, 3.5478199480747633`*^9, 
   3.5478205246994047`*^9, 3.5478205652299275`*^9, 3.547820605195698*^9, 
   3.554981820973941*^9}]
}, Open  ]],

Cell["Check each matrix is correct ", "Text",
 CellChangeTimes->{{3.547819991620776*^9, 3.54782000728971*^9}}],

Cell[CellGroupData[{

Cell[BoxData["II"], "Input",
 CellChangeTimes->{{3.547140807481124*^9, 3.5471408076692457`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547140808829329*^9, 3.5472298837333975`*^9, 
  3.5472307589388933`*^9, 3.547485130864852*^9, 3.5474911939293747`*^9, 
  3.547565061293869*^9, 3.547571452398884*^9, 3.5475751337567887`*^9, 
  3.547578098194257*^9, 3.547578176598978*^9, 3.5475782379569597`*^9, 
  3.547579328242552*^9, 3.547580084687042*^9, 3.5475814118058653`*^9, 
  3.5475844975477095`*^9, 3.5475850117236633`*^9, 3.547819530536831*^9, 
  3.547819969726412*^9, 3.5478205247278566`*^9, 3.547820565255431*^9, 
  3.547820605223157*^9, 3.5549818209949417`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Rd"], "Input",
 CellChangeTimes->{{3.5471408149197655`*^9, 3.5471408159152427`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"Cos", "[", "a", "]"}], ",", 
     RowBox[{"Sin", "[", "a", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", 
      RowBox[{"Sin", "[", "a", "]"}]}], ",", 
     RowBox[{"Cos", "[", "a", "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5471408164169*^9, 3.5472298837668433`*^9, 
  3.5472307589762735`*^9, 3.547485130886388*^9, 3.5474911939509172`*^9, 
  3.5475650613184566`*^9, 3.5475714524067287`*^9, 3.547575133772461*^9, 
  3.547578098217754*^9, 3.547578176622471*^9, 3.5475782379726195`*^9, 
  3.547579328266032*^9, 3.547580084702713*^9, 3.547581411831366*^9, 
  3.5475844975683928`*^9, 3.5475850117394066`*^9, 3.547819530573061*^9, 
  3.54781996975583*^9, 3.54782052475729*^9, 3.54782056527603*^9, 
  3.547820605243752*^9, 3.554981821014943*^9, 3.5549820989918423`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G", " "}]], "Input",
 CellChangeTimes->{{3.54714090469565*^9, 3.5471409090857697`*^9}, 
   3.547230647988008*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "thg", "]"}], ",", 
     RowBox[{"Sin", "[", "thg", "]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Sin", "[", "thg", "]"}]}], ",", 
     RowBox[{"Cos", "[", "thg", "]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5471408898386583`*^9, 3.5471409102773743`*^9}, 
   3.5472298837924194`*^9, 3.547230648712057*^9, 3.547230759007752*^9, 
   3.547485130915755*^9, 3.54749119397246*^9, 3.547565061341077*^9, 
   3.5475714524224176`*^9, 3.5475751338038063`*^9, 3.547578098241251*^9, 
   3.547578176638133*^9, 3.547578238003939*^9, 3.547579328305167*^9, 
   3.5475800847340555`*^9, 3.547581411856867*^9, 3.5475844975871058`*^9, 
   3.547585011770894*^9, 3.5478195305994997`*^9, 3.5478199697842674`*^9, 
   3.547820524788685*^9, 3.547820565295648*^9, 3.5478206052712116`*^9, 
   3.554981821035944*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Ru"], "Input",
 CellChangeTimes->{{3.5471409250076923`*^9, 3.5471409253683047`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"Cos", "[", "b", "]"}], ",", 
     RowBox[{"-", 
      RowBox[{"Sin", "[", "b", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"Sin", "[", "b", "]"}], ",", 
     RowBox[{"Cos", "[", "b", "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5471409260816903`*^9, 3.5472298838278327`*^9, 
  3.547230759041198*^9, 3.54748513093729*^9, 3.5474911939940023`*^9, 
  3.547565061372549*^9, 3.5475714524459505`*^9, 3.5475751338194785`*^9, 
  3.547578098272581*^9, 3.547578176669457*^9, 3.547578238035259*^9, 
  3.5475793283364744`*^9, 3.5475800847497263`*^9, 3.547581411891195*^9, 
  3.5475844976058187`*^9, 3.547585011794509*^9, 3.547819530636709*^9, 
  3.5478199698185883`*^9, 3.5478205248132124`*^9, 3.5478205653182087`*^9, 
  3.5478206053035746`*^9, 3.5549818210569453`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["P"], "Input",
 CellChangeTimes->{{3.547140955291215*^9, 3.5471409675596223`*^9}, 
   3.5472306543549185`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "thf", "]"}], ",", 
     RowBox[{"Sin", "[", "thf", "]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Sin", "[", "thf", "]"}]}], ",", 
     RowBox[{"Cos", "[", "thf", "]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5471409688687353`*^9, 3.547229883852425*^9, 
  3.547230655102578*^9, 3.5472307590677576`*^9, 3.547485130962742*^9, 
  3.5474911940233784`*^9, 3.547565061396153*^9, 3.5475714524694843`*^9, 
  3.5475751338508234`*^9, 3.5475780982960777`*^9, 3.5475781766851187`*^9, 
  3.5475782380665784`*^9, 3.5475793283599553`*^9, 3.547580084781068*^9, 
  3.5475814119166956`*^9, 3.5475844976235476`*^9, 3.5475850118023815`*^9, 
  3.547819530664127*^9, 3.547819969845064*^9, 3.5478205248357773`*^9, 
  3.5478205653407693`*^9, 3.547820605324169*^9, 3.554981821078947*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["CC"], "Input",
 CellChangeTimes->{{3.54714098075266*^9, 3.5471409810270243`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ef2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "ef2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "ef1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5471409817247815`*^9, 3.547229883888822*^9, 
  3.547230759109073*^9, 3.547485130980362*^9, 3.547491194046879*^9, 
  3.5475650614217243`*^9, 3.547571452485173*^9, 3.5475751338743315`*^9, 
  3.547578098327408*^9, 3.547578176716443*^9, 3.547578238097898*^9, 
  3.547579328391263*^9, 3.5475800848124104`*^9, 3.5475814119510236`*^9, 
  3.5475844976422606`*^9, 3.5475850118259964`*^9, 3.547819530699378*^9, 
  3.5478199698754625`*^9, 3.547820524876003*^9, 3.5478205653741198`*^9, 
  3.547820605345745*^9, 3.554981821101948*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["DD"], "Input",
 CellChangeTimes->{{3.5471409847588615`*^9, 3.5471409885377417`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "ef1"}], ")"}], " ", "M0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547140989117902*^9, 3.547229883913415*^9, 
  3.5472307591533394`*^9, 3.5474851309989614`*^9, 3.547491194069401*^9, 
  3.5475650614492617`*^9, 3.547571452508707*^9, 3.5475751338978405`*^9, 
  3.5475780983509045`*^9, 3.547578176747767*^9, 3.5475782381292176`*^9, 
  3.5475793284147434`*^9, 3.547580084828081*^9, 3.547581411992217*^9, 
  3.547584497661958*^9, 3.547585011849612*^9, 3.5478195307267957`*^9, 
  3.547819969900958*^9, 3.547820524907398*^9, 3.547820565401585*^9, 
  3.547820605372224*^9, 3.5549818211209493`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["D2"], "Input",
 CellChangeTimes->{{3.547231569948724*^9, 3.547231570706112*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "eg1"}], ")"}], " ", "M0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547231571344327*^9, 3.5474851310234337`*^9, 
  3.547491194092901*^9, 3.5475650614738493`*^9, 3.547571452524396*^9, 
  3.5475751339213486`*^9, 3.5475780983665695`*^9, 3.5475781767634287`*^9, 
  3.5475782381448774`*^9, 3.547579328446051*^9, 3.547580084843752*^9, 
  3.5475814120451803`*^9, 3.5475844976787014`*^9, 3.547585011873227*^9, 
  3.547819530762047*^9, 3.5478199699293957`*^9, 3.5478205249368305`*^9, 
  3.547820565422184*^9, 3.547820605393799*^9, 3.5549818211419506`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["C2"], "Input",
 CellChangeTimes->{{3.5472315735790653`*^9, 3.5472315776738896`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"eg2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "eg2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "eg1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.547231578261815*^9, 3.547485131041054*^9, 
  3.547491194115423*^9, 3.5475650614974537`*^9, 3.5475714525479293`*^9, 
  3.5475751339448576`*^9, 3.547578098397899*^9, 3.547578176786922*^9, 
  3.547578238176197*^9, 3.547579328469532*^9, 3.547580084859423*^9, 
  3.547581412102067*^9, 3.54758449769446*^9, 3.547585011896843*^9, 
  3.5478195307924023`*^9, 3.5478199699519496`*^9, 3.547820524958415*^9, 
  3.547820565449649*^9, 3.547820605421259*^9, 3.5549818211629515`*^9}]
}, Open  ]],

Cell["\<\

Substitute the matrix into model and get inverse, then simplify it. \
\>", "Text",
 CellChangeTimes->{{3.547820021975122*^9, 3.547820049607696*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"M1", " ", "=", " ", 
    RowBox[{
     RowBox[{"Inverse", "[", 
      RowBox[{"II", "-", 
       RowBox[{"Rd", ".", "C2", ".", "G", ".", "Ru", ".", "P", ".", "CC"}]}], 
      "]"}], ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Rd", ".", "C2", ".", "G", ".", "Ru", ".", "DD"}], "+", 
       RowBox[{"Rd", ".", "D2"}]}], ")"}]}]}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.5472304576949935`*^9, 3.547230458590885*^9}, {
  3.547231601082431*^9, 3.5472316629817724`*^9}, {3.5475650744363794`*^9, 
  3.5475650745711193`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"M1Simple", " ", "=", " ", 
  RowBox[{"Simplify", "[", "M1", "]"}]}]], "Input",
 CellChangeTimes->{{3.547142823752121*^9, 3.5471428340724564`*^9}, 
   3.5475800990885925`*^9, 3.547584843059883*^9, {3.5475849659701*^9, 
   3.54758496707218*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"eg2", " ", "M0", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ef2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "eg1", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1", " ", 
             RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
          RowBox[{"Cos", "[", "thg", "]"}], " ", 
          RowBox[{"Sin", "[", "a", "]"}], " ", 
          RowBox[{"Sin", "[", "thf", "]"}]}], "+", 
         RowBox[{"ef2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
             RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
          RowBox[{"Cos", "[", "thf", "]"}], " ", 
          RowBox[{"Sin", "[", "a", "]"}], " ", 
          RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
         RowBox[{
          RowBox[{"Sin", "[", "b", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "ef2"}], " ", "eg2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"ef1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "eg1"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", 
                RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
             RowBox[{"Sin", "[", "thf", "]"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "ef1", "+", 
               RowBox[{"ef1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
                RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
             RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], 
     "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"ef1", " ", 
        SuperscriptBox["ef2", "2"], " ", "eg1", " ", 
        SuperscriptBox["eg2", "2"]}], "+", 
       RowBox[{"ef1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "thg", "]"}], " ", 
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"Sin", "[", "b", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["ef2", "2"], " ", "eg1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "thg", "]"}], " ", 
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"Sin", "[", "b", "]"}]}], "+", 
       RowBox[{"ef2", " ", 
        RowBox[{"Cos", "[", "thf", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"eg2", "-", 
             RowBox[{"ef1", " ", "eg1", " ", "eg2"}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"eg1", "-", 
             RowBox[{"ef1", " ", 
              SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
           RowBox[{"Sin", "[", "a", "]"}], " ", 
           RowBox[{"Sin", "[", "b", "]"}]}]}], ")"}]}], "-", 
       RowBox[{"ef2", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "b", "]"}], " ", 
        RowBox[{"Sin", "[", "thf", "]"}], " ", 
        RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
       RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "b", "]"}], " ", 
        RowBox[{"Sin", "[", "thf", "]"}], " ", 
        RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "a", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "b", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"ef1", " ", "eg1"}], "-", 
             RowBox[{
              SuperscriptBox["ef2", "2"], " ", 
              SuperscriptBox["eg2", "2"]}], "-", 
             RowBox[{"ef2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
              RowBox[{"Cos", "[", "thf", "]"}], " ", 
              RowBox[{"Cos", "[", "thg", "]"}]}]}], ")"}]}], "+", 
          RowBox[{"ef2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
           RowBox[{"Sin", "[", "thf", "]"}], " ", 
           RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"M0", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"eg2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ef1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "eg1"}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", 
             RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ef2", " ", "eg2", " ", 
             RowBox[{"Cos", "[", "thf", "]"}]}], "-", 
            RowBox[{"Cos", "[", "thg", "]"}]}], ")"}], " ", 
          RowBox[{"Sin", "[", "b", "]"}]}], "+", 
         RowBox[{
          RowBox[{"Sin", "[", "a", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "eg1", "+", 
            RowBox[{"ef2", " ", "eg2", " ", 
             RowBox[{"Cos", "[", "thf", "]"}], " ", 
             RowBox[{"Cos", "[", "thg", "]"}]}], "-", 
            RowBox[{"ef2", " ", "eg1", " ", "eg2", " ", 
             RowBox[{"Cos", "[", "thf", "]"}], " ", 
             RowBox[{"Cos", "[", "thg", "]"}]}], "-", 
            RowBox[{"ef2", " ", "eg1", " ", "eg2", " ", 
             RowBox[{"Sin", "[", "thf", "]"}], " ", 
             RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
            RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
             RowBox[{"Sin", "[", "thf", "]"}], " ", 
             RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
            RowBox[{
             RowBox[{"Cos", "[", "b", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "ef2", " ", 
                "eg1", " ", "eg2", " ", 
                RowBox[{"Cos", "[", "thf", "]"}], " ", 
                RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
               RowBox[{"ef2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", "eg2", " ", 
                RowBox[{"Sin", "[", "thf", "]"}], " ", 
                RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
        ")"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"ef1", " ", 
        SuperscriptBox["ef2", "2"], " ", "eg1", " ", 
        SuperscriptBox["eg2", "2"]}], "+", 
       RowBox[{"ef1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "thg", "]"}], " ", 
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"Sin", "[", "b", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["ef2", "2"], " ", "eg1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "thg", "]"}], " ", 
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"Sin", "[", "b", "]"}]}], "+", 
       RowBox[{"ef2", " ", 
        RowBox[{"Cos", "[", "thf", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"eg2", "-", 
             RowBox[{"ef1", " ", "eg1", " ", "eg2"}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"eg1", "-", 
             RowBox[{"ef1", " ", 
              SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
           RowBox[{"Sin", "[", "a", "]"}], " ", 
           RowBox[{"Sin", "[", "b", "]"}]}]}], ")"}]}], "-", 
       RowBox[{"ef2", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "b", "]"}], " ", 
        RowBox[{"Sin", "[", "thf", "]"}], " ", 
        RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
       RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "b", "]"}], " ", 
        RowBox[{"Sin", "[", "thf", "]"}], " ", 
        RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "a", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "b", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"ef1", " ", "eg1"}], "-", 
             RowBox[{
              SuperscriptBox["ef2", "2"], " ", 
              SuperscriptBox["eg2", "2"]}], "-", 
             RowBox[{"ef2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
              RowBox[{"Cos", "[", "thf", "]"}], " ", 
              RowBox[{"Cos", "[", "thg", "]"}]}]}], ")"}]}], "+", 
          RowBox[{"ef2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
           RowBox[{"Sin", "[", "thf", "]"}], " ", 
           RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"M0", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"eg2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["ef2", "2"]}], " ", "eg1", " ", "eg2"}], "+", 
            RowBox[{"ef1", " ", 
             SuperscriptBox["ef2", "2"], " ", "eg1", " ", "eg2"}], "-", 
            RowBox[{
             RowBox[{"Cos", "[", "thg", "]"}], " ", 
             RowBox[{"Sin", "[", "a", "]"}], " ", 
             RowBox[{"Sin", "[", "b", "]"}]}], "+", 
            RowBox[{"ef1", " ", 
             RowBox[{"Cos", "[", "thg", "]"}], " ", 
             RowBox[{"Sin", "[", "a", "]"}], " ", 
             RowBox[{"Sin", "[", "b", "]"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "ef2", " ", 
             RowBox[{"Cos", "[", "thf", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"eg1", " ", 
                RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
               RowBox[{"eg2", " ", 
                RowBox[{"Sin", "[", "a", "]"}], " ", 
                RowBox[{"Sin", "[", "b", "]"}]}]}], ")"}]}], "-", 
            RowBox[{"ef2", " ", 
             RowBox[{"Sin", "[", "thf", "]"}], " ", 
             RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
            RowBox[{"ef2", " ", "eg1", " ", 
             RowBox[{"Sin", "[", "thf", "]"}], " ", 
             RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
            RowBox[{"ef2", " ", 
             RowBox[{"Cos", "[", "b", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"ef2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", "eg2"}], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
                RowBox[{"Cos", "[", "thf", "]"}], " ", 
                RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1", " ", 
                RowBox[{"Sin", "[", "thf", "]"}], " ", 
                RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Cos", "[", "a", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "eg1", "+", 
            RowBox[{"ef2", " ", "eg2", " ", 
             RowBox[{"Cos", "[", "thf", "]"}], " ", 
             RowBox[{"Cos", "[", "thg", "]"}]}], "-", 
            RowBox[{"ef2", " ", "eg1", " ", "eg2", " ", 
             RowBox[{"Cos", "[", "thf", "]"}], " ", 
             RowBox[{"Cos", "[", "thg", "]"}]}], "-", 
            RowBox[{"ef2", " ", "eg1", " ", "eg2", " ", 
             RowBox[{"Sin", "[", "thf", "]"}], " ", 
             RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
            RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
             RowBox[{"Sin", "[", "thf", "]"}], " ", 
             RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
            RowBox[{
             RowBox[{"Cos", "[", "b", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "ef2", " ", 
                "eg1", " ", "eg2", " ", 
                RowBox[{"Cos", "[", "thf", "]"}], " ", 
                RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
               RowBox[{"ef2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", "eg2", " ", 
                RowBox[{"Sin", "[", "thf", "]"}], " ", 
                RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
        ")"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"ef1", " ", 
        SuperscriptBox["ef2", "2"], " ", "eg1", " ", 
        SuperscriptBox["eg2", "2"]}], "+", 
       RowBox[{"ef1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "thg", "]"}], " ", 
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"Sin", "[", "b", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["ef2", "2"], " ", "eg1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "thg", "]"}], " ", 
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"Sin", "[", "b", "]"}]}], "+", 
       RowBox[{"ef2", " ", 
        RowBox[{"Cos", "[", "thf", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"eg2", "-", 
             RowBox[{"ef1", " ", "eg1", " ", "eg2"}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"eg1", "-", 
             RowBox[{"ef1", " ", 
              SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
           RowBox[{"Sin", "[", "a", "]"}], " ", 
           RowBox[{"Sin", "[", "b", "]"}]}]}], ")"}]}], "-", 
       RowBox[{"ef2", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "b", "]"}], " ", 
        RowBox[{"Sin", "[", "thf", "]"}], " ", 
        RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
       RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
        RowBox[{"Cos", "[", "b", "]"}], " ", 
        RowBox[{"Sin", "[", "thf", "]"}], " ", 
        RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "a", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "b", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"ef1", " ", "eg1"}], "-", 
             RowBox[{
              SuperscriptBox["ef2", "2"], " ", 
              SuperscriptBox["eg2", "2"]}], "-", 
             RowBox[{"ef2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
              RowBox[{"Cos", "[", "thf", "]"}], " ", 
              RowBox[{"Cos", "[", "thg", "]"}]}]}], ")"}]}], "+", 
          RowBox[{"ef2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
           RowBox[{"Sin", "[", "thf", "]"}], " ", 
           RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.547584844979699*^9, 3.5475848927171097`*^9, {3.54758495148562*^9, 
   3.547584968402548*^9}, 3.5475850119440737`*^9, 3.547819568022909*^9, 
   3.5478199914531107`*^9, 3.547820546492776*^9, 3.547820587433259*^9, 
   3.547820627171257*^9, 3.554981829914452*^9, 3.5549821380130744`*^9, 
   3.5549829874166574`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"M1xy", " ", "=", " ", 
   RowBox[{
    RowBox[{"M1Simple", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "+", " ", 
    RowBox[{"I", "*", 
     RowBox[{"M1Simple", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5549832528548393`*^9, 3.5549832629434166`*^9}}],

Cell["\<\
Compare the denominator of Mx, My. Notice they are the same. \
\>", "Text",
 CellChangeTimes->{{3.5478201060135365`*^9, 3.5478201502788734`*^9}, {
  3.5549823380935183`*^9, 3.5549823418857355`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dx", " ", "=", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"ef1", " ", 
       SuperscriptBox["ef2", "2"], " ", "eg1", " ", 
       SuperscriptBox["eg2", "2"]}], "+", 
      RowBox[{"ef1", " ", "eg2", " ", 
       RowBox[{"Cos", "[", "thg", "]"}], " ", 
       RowBox[{"Sin", "[", "a", "]"}], " ", 
       RowBox[{"Sin", "[", "b", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["ef2", "2"], " ", "eg1", " ", "eg2", " ", 
       RowBox[{"Cos", "[", "thg", "]"}], " ", 
       RowBox[{"Sin", "[", "a", "]"}], " ", 
       RowBox[{"Sin", "[", "b", "]"}]}], "+", 
      RowBox[{"ef2", " ", 
       RowBox[{"Cos", "[", "thf", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"eg2", "-", 
            RowBox[{"ef1", " ", "eg1", " ", "eg2"}]}], ")"}], " ", 
          RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"eg1", "-", 
            RowBox[{"ef1", " ", 
             SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
          RowBox[{"Sin", "[", "a", "]"}], " ", 
          RowBox[{"Sin", "[", "b", "]"}]}]}], ")"}]}], "-", 
      RowBox[{"ef2", " ", "eg2", " ", 
       RowBox[{"Cos", "[", "b", "]"}], " ", 
       RowBox[{"Sin", "[", "thf", "]"}], " ", 
       RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
      RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
       RowBox[{"Cos", "[", "b", "]"}], " ", 
       RowBox[{"Sin", "[", "thf", "]"}], " ", 
       RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", "a", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Cos", "[", "b", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ef1", " ", "eg1"}], "-", 
            RowBox[{
             SuperscriptBox["ef2", "2"], " ", 
             SuperscriptBox["eg2", "2"]}], "-", 
            RowBox[{"ef2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
             RowBox[{"Cos", "[", "thf", "]"}], " ", 
             RowBox[{"Cos", "[", "thg", "]"}]}]}], ")"}]}], "+", 
         RowBox[{"ef2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
          RowBox[{"Sin", "[", "thf", "]"}], " ", 
          RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], ";"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.547584920294583*^9, 3.54758492884949*^9}, {
  3.554982238360814*^9, 3.554982251439562*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dy", " ", "=", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"ef1", " ", 
      SuperscriptBox["ef2", "2"], " ", "eg1", " ", 
      SuperscriptBox["eg2", "2"]}], "+", 
     RowBox[{"ef1", " ", "eg2", " ", 
      RowBox[{"Cos", "[", "thg", "]"}], " ", 
      RowBox[{"Sin", "[", "a", "]"}], " ", 
      RowBox[{"Sin", "[", "b", "]"}]}], "-", 
     RowBox[{
      SuperscriptBox["ef2", "2"], " ", "eg1", " ", "eg2", " ", 
      RowBox[{"Cos", "[", "thg", "]"}], " ", 
      RowBox[{"Sin", "[", "a", "]"}], " ", 
      RowBox[{"Sin", "[", "b", "]"}]}], "+", 
     RowBox[{"ef2", " ", 
      RowBox[{"Cos", "[", "thf", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"eg2", "-", 
           RowBox[{"ef1", " ", "eg1", " ", "eg2"}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"eg1", "-", 
           RowBox[{"ef1", " ", 
            SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
         RowBox[{"Sin", "[", "a", "]"}], " ", 
         RowBox[{"Sin", "[", "b", "]"}]}]}], ")"}]}], "-", 
     RowBox[{"ef2", " ", "eg2", " ", 
      RowBox[{"Cos", "[", "b", "]"}], " ", 
      RowBox[{"Sin", "[", "thf", "]"}], " ", 
      RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
     RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
      RowBox[{"Cos", "[", "b", "]"}], " ", 
      RowBox[{"Sin", "[", "thf", "]"}], " ", 
      RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
     RowBox[{
      RowBox[{"Cos", "[", "a", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Cos", "[", "b", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ef1", " ", "eg1"}], "-", 
           RowBox[{
            SuperscriptBox["ef2", "2"], " ", 
            SuperscriptBox["eg2", "2"]}], "-", 
           RowBox[{"ef2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
            RowBox[{"Cos", "[", "thf", "]"}], " ", 
            RowBox[{"Cos", "[", "thg", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"ef2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
         RowBox[{"Sin", "[", "thf", "]"}], " ", 
         RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.547584993609953*^9, 3.5475849969480624`*^9}, {
  3.5549822929729376`*^9, 3.5549823133771048`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dx", " ", "-", " ", "dy"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5472327412197943`*^9, 3.547232747808996*^9}, {
  3.547232840446647*^9, 3.5472328413766994`*^9}, {3.547232933302565*^9, 
  3.547232994849355*^9}, {3.547580367146734*^9, 3.5475803687439933`*^9}, {
  3.554982325414793*^9, 3.5549823262788424`*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.5472329967030354`*^9, 3.5474851546668053`*^9, 3.5474912194127307`*^9, 
   3.5475650875206995`*^9, 3.5475714764720335`*^9, 3.547575134430702*^9, 
   3.547578098899173*^9, 3.547578177335092*^9, 3.547578238763439*^9, 
   3.547579339896558*^9, 3.547579466574812*^9, 3.547580103107794*^9, 
   3.547580374373704*^9, 3.547581434981282*^9, 3.5475845201440973`*^9, {
   3.5475850014824514`*^9, 3.5475850121329966`*^9}, 3.547819568937389*^9, 
   3.5478199918668823`*^9, 3.5478205465555534`*^9, 3.5478205874813137`*^9, 
   3.5478206272242093`*^9, 3.554981829981456*^9, {3.5549823200074835`*^9, 
   3.5549823268368745`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dxy", " ", "=", " ", "dx"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.5472334696713195`*^9, 3.547233485804394*^9}, {
  3.547580360812507*^9, 3.5475803609064636`*^9}, {3.5475804109706044`*^9, 
  3.5475804249862103`*^9}}],

Cell["Get the coefficients of thg term for denominator", "Text",
 CellChangeTimes->{{3.54782018669385*^9, 3.547820223222455*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Coefficient", "[", 
   RowBox[{"dxy", ",", 
    RowBox[{"Cos", "[", "thg", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"coeffd", " ", "=", " ", 
    RowBox[{"Simplify", "[", "%", "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Coefficient", "[", 
   RowBox[{"dxy", ",", 
    RowBox[{"Sin", "[", "thg", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"coeffe", " ", "=", " ", 
    RowBox[{"Simplify", "[", "%", "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dxy", " ", "-", " ", 
   RowBox[{"coeffd", "*", 
    RowBox[{"Cos", "[", "thg", "]"}]}], " ", "-", 
   RowBox[{"coeffe", "*", 
    RowBox[{"Sin", "[", "thg", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"coefff", " ", "=", " ", 
    RowBox[{"Simplify", "[", "%", "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dxy", " ", "-", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"coeffd", "*", 
       RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
      RowBox[{"coeffe", "*", 
       RowBox[{"Sin", "[", "thg", "]"}]}], " ", "+", " ", "coefff"}], ")"}]}],
    ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.5475801731126404`*^9, 3.5475801806250315`*^9}, {
  3.547580211127803*^9, 3.5475802383625236`*^9}, {3.5475803287641582`*^9, 
  3.547580342928747*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.5475802413154135`*^9, 3.547580343774409*^9, 
  3.5475814350087423`*^9, 3.5475845201726475`*^9, 3.547585012794228*^9, 
  3.54781956974123*^9, 3.547819992061021*^9, 3.5478205466948414`*^9, 
  3.547820587597036*^9, 3.547820627350706*^9, 3.554981830290474*^9, 
  3.554982355626521*^9}]
}, Open  ]],

Cell["Get the coefficients of thg term for numerator", "Text",
 CellChangeTimes->{{3.547820231887517*^9, 3.547820275152395*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nx", " ", "=", " ", 
   RowBox[{"(", 
    RowBox[{"eg2", " ", "M0", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ef2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "eg1", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1", " ", 
           RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "thg", "]"}], " ", 
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"Sin", "[", "thf", "]"}]}], "+", 
       RowBox[{"ef2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
           RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "thf", "]"}], " ", 
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "b", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "ef2"}], " ", "eg2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"ef1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "eg1"}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", 
              RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
           RowBox[{"Sin", "[", "thf", "]"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "ef1", "+", 
             RowBox[{"ef1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
              RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
           RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5471428723647776`*^9, 3.547142910707241*^9}, 
   3.547143292530383*^9, 3.547231756079116*^9, {3.5549823797649016`*^9, 
   3.554982397691927*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ny", " ", "=", " ", 
   RowBox[{"(", 
    RowBox[{"M0", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"eg2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"ef1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "eg1"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", 
           RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"ef2", " ", "eg2", " ", 
           RowBox[{"Cos", "[", "thf", "]"}]}], "-", 
          RowBox[{"Cos", "[", "thg", "]"}]}], ")"}], " ", 
        RowBox[{"Sin", "[", "b", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "a", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "eg1", "+", 
          RowBox[{"ef2", " ", "eg2", " ", 
           RowBox[{"Cos", "[", "thf", "]"}], " ", 
           RowBox[{"Cos", "[", "thg", "]"}]}], "-", 
          RowBox[{"ef2", " ", "eg1", " ", "eg2", " ", 
           RowBox[{"Cos", "[", "thf", "]"}], " ", 
           RowBox[{"Cos", "[", "thg", "]"}]}], "-", 
          RowBox[{"ef2", " ", "eg1", " ", "eg2", " ", 
           RowBox[{"Sin", "[", "thf", "]"}], " ", 
           RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
          RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
           RowBox[{"Sin", "[", "thf", "]"}], " ", 
           RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
          RowBox[{
           RowBox[{"Cos", "[", "b", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "ef2", " ", 
              "eg1", " ", "eg2", " ", 
              RowBox[{"Cos", "[", "thf", "]"}], " ", 
              RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
             RowBox[{"ef2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", "eg2", " ", 
              RowBox[{"Sin", "[", "thf", "]"}], " ", 
              RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}], ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.547142928564348*^9, 3.547142930321001*^9}, 
   3.5471433012739906`*^9, 3.547231834801789*^9, {3.5549824210902653`*^9, 
   3.5549824606995306`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ny", " ", "=", " ", "ny"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.5472332583614078`*^9, 3.547233262276187*^9}, 
   3.5475781673427362`*^9, 3.547578232507349*^9, {3.554982483957861*^9, 
   3.5549824881421003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nxy", " ", "=", " ", 
  RowBox[{"nx", " ", "+", " ", 
   RowBox[{"I", "*", "ny"}]}]}]], "Input",
 CellChangeTimes->{{3.5471429407595415`*^9, 3.547142952782776*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eg2", " ", "M0", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"ef2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "eg1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1", " ", 
         RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
      RowBox[{"Cos", "[", "thg", "]"}], " ", 
      RowBox[{"Sin", "[", "a", "]"}], " ", 
      RowBox[{"Sin", "[", "thf", "]"}]}], "+", 
     RowBox[{"ef2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
         RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
      RowBox[{"Cos", "[", "thf", "]"}], " ", 
      RowBox[{"Sin", "[", "a", "]"}], " ", 
      RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
     RowBox[{
      RowBox[{"Sin", "[", "b", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "ef2"}], " ", "eg2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ef1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "eg1"}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", 
            RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
         RowBox[{"Sin", "[", "thf", "]"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "ef1", "+", 
           RowBox[{"ef1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
            RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
         RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "M0", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"eg2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ef1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "eg1"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", 
         RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ef2", " ", "eg2", " ", 
         RowBox[{"Cos", "[", "thf", "]"}]}], "-", 
        RowBox[{"Cos", "[", "thg", "]"}]}], ")"}], " ", 
      RowBox[{"Sin", "[", "b", "]"}]}], "+", 
     RowBox[{
      RowBox[{"Sin", "[", "a", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "eg1", "+", 
        RowBox[{"ef2", " ", "eg2", " ", 
         RowBox[{"Cos", "[", "thf", "]"}], " ", 
         RowBox[{"Cos", "[", "thg", "]"}]}], "-", 
        RowBox[{"ef2", " ", "eg1", " ", "eg2", " ", 
         RowBox[{"Cos", "[", "thf", "]"}], " ", 
         RowBox[{"Cos", "[", "thg", "]"}]}], "-", 
        RowBox[{"ef2", " ", "eg1", " ", "eg2", " ", 
         RowBox[{"Sin", "[", "thf", "]"}], " ", 
         RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
        RowBox[{"ef1", " ", "ef2", " ", "eg1", " ", "eg2", " ", 
         RowBox[{"Sin", "[", "thf", "]"}], " ", 
         RowBox[{"Sin", "[", "thg", "]"}]}], "+", 
        RowBox[{
         RowBox[{"Cos", "[", "b", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "ef2", " ", "eg1",
             " ", "eg2", " ", 
            RowBox[{"Cos", "[", "thf", "]"}], " ", 
            RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
           RowBox[{"ef2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", "eg2", " ", 
            RowBox[{"Sin", "[", "thf", "]"}], " ", 
            RowBox[{"Sin", "[", "thg", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.547142953669069*^9, 3.547229892936895*^9, 3.5472307593963137`*^9, 
   3.5472318417107706`*^9, 3.547233267438013*^9, 3.5472333613298154`*^9, 
   3.547485153760344*^9, 3.547491218417864*^9, 3.547565085411521*^9, 
   3.5475714756014824`*^9, 3.5475751341015816`*^9, 3.547578098546715*^9, 
   3.5475781769670353`*^9, 3.547578238395434*^9, 3.5475793395834894`*^9, 
   3.5475801030137777`*^9, 3.547581434328136*^9, 3.5475845193692956`*^9, 
   3.547585012038535*^9, 3.5478195681981683`*^9, 3.5478199916835284`*^9, 
   3.5478205468203964`*^9, 3.5478205876843185`*^9, 3.547820627449747*^9, 
   3.554981830357477*^9, {3.5549824928293686`*^9, 3.554982504808054*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Coefficient", "[", 
   RowBox[{"nxy", ",", 
    RowBox[{"Cos", "[", "thg", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"coeffa", " ", "=", " ", 
    RowBox[{"Simplify", "[", "%", "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Coefficient", "[", 
   RowBox[{"nxy", ",", 
    RowBox[{"Sin", "[", "thg", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"coeffb", " ", "=", " ", 
    RowBox[{"Simplify", "[", "%", "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nxy", " ", "-", " ", 
   RowBox[{"coeffa", "*", 
    RowBox[{"Cos", "[", "thg", "]"}]}], " ", "-", 
   RowBox[{"coeffb", "*", 
    RowBox[{"Sin", "[", "thg", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"coeffc", " ", "=", " ", 
    RowBox[{"Simplify", "[", "%", "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nxy", " ", "-", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"coeffa", "*", 
       RowBox[{"Cos", "[", "thg", "]"}]}], "+", 
      RowBox[{"coeffb", "*", 
       RowBox[{"Sin", "[", "thg", "]"}]}], " ", "+", " ", "coeffc"}], ")"}]}],
    ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.5475797126118307`*^9, 3.547579756815982*^9}, {
  3.547579787316535*^9, 3.5475799687649603`*^9}, {3.547580034350584*^9, 
  3.5475800371088915`*^9}, {3.5475801950307946`*^9, 3.5475802053156548`*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.5475797329758053`*^9, 3.5475797574591403`*^9}, 
   3.547579953897597*^9, 3.5475801030372815`*^9, 3.5475814349606876`*^9, 
   3.5475845201234226`*^9, 3.5475850121172533`*^9, 3.5478195689050784`*^9, 
   3.5478199918139353`*^9, 3.547820546923391*^9, 3.5478205877657166`*^9, 
   3.547820627530156*^9, 3.554981830618492*^9, 3.5549825090522966`*^9}]
}, Open  ]],

Cell["\<\
rewrite M1xy in the desired form, denoted as M1thg. Then check that they are \
equal\
\>", "Text",
 CellChangeTimes->{{3.5478203555409365`*^9, 3.547820427008294*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"coeffa", " "}], "\[IndentingNewLine]", 
 RowBox[{"coeffb", " "}], "\[IndentingNewLine]", 
 RowBox[{"coeffc", 
  " "}], "\[IndentingNewLine]", "coeffd", "\[IndentingNewLine]", 
 RowBox[{"coeffe", " "}], "\[IndentingNewLine]", 
 RowBox[{"coefff", " "}]}], "Input",
 CellChangeTimes->{{3.547485134023762*^9, 3.5474851515411777`*^9}, {
  3.5474852125498075`*^9, 3.54748532895907*^9}, {3.5475800716330996`*^9, 
  3.547580079217863*^9}, {3.547580460597124*^9, 3.5475804646451826`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "eg2", " ", "M0", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"ef2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "eg1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1", " ", 
        RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
     RowBox[{"Cos", "[", "thf", "]"}], " ", 
     RowBox[{"Sin", "[", "a", "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ef1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "eg1"}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", 
        RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
     RowBox[{"Sin", "[", "b", "]"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", "ef2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "eg1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1", " ", 
        RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
     RowBox[{"Sin", "[", "a", "]"}], " ", 
     RowBox[{"Sin", "[", "thf", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5474872035472145`*^9, 3.5474912206396685`*^9, 
  3.5475650904922323`*^9, 3.5475714775072827`*^9, 3.5475751348381844`*^9, 
  3.547578099298625*^9, 3.5475781778049517`*^9, 3.547578239194084*^9, 
  3.5475793403974667`*^9, 3.5475795263659925`*^9, 3.547580103593545*^9, 
  3.547581435032279*^9, 3.5475845201992292`*^9, 3.5475850128178434`*^9, 
  3.5478195697931223`*^9, 3.5478199921002407`*^9, 3.547820546949875*^9, 
  3.547820587783369*^9, 3.547820627550749*^9, 3.554981830637493*^9, 
  3.5549825140735836`*^9, 3.5550020353648405`*^9}],

Cell[BoxData[
 RowBox[{"eg2", " ", "M0", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"ef2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
        RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
     RowBox[{"Cos", "[", "thf", "]"}], " ", 
     RowBox[{"Sin", "[", "a", "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "ef1", "+", 
       RowBox[{"ef1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
        RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
     RowBox[{"Sin", "[", "b", "]"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", "ef2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "eg1"}], ")"}], " ", 
        RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
     RowBox[{"Sin", "[", "a", "]"}], " ", 
     RowBox[{"Sin", "[", "thf", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5474872035472145`*^9, 3.5474912206396685`*^9, 
  3.5475650904922323`*^9, 3.5475714775072827`*^9, 3.5475751348381844`*^9, 
  3.547578099298625*^9, 3.5475781778049517`*^9, 3.547578239194084*^9, 
  3.5475793403974667`*^9, 3.5475795263659925`*^9, 3.547580103593545*^9, 
  3.547581435032279*^9, 3.5475845201992292`*^9, 3.5475850128178434`*^9, 
  3.5478195697931223`*^9, 3.5478199921002407`*^9, 3.547820546949875*^9, 
  3.547820587783369*^9, 3.547820627550749*^9, 3.554981830637493*^9, 
  3.5549825140735836`*^9, 3.5550020353678403`*^9}],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "M0", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "eg1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", "eg1", " ", 
        RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
     RowBox[{"Sin", "[", "a", "]"}]}], "+", 
    RowBox[{"ef2", " ", 
     SuperscriptBox["eg2", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ef1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "eg1"}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "ef1"}], ")"}], " ", 
        RowBox[{"Cos", "[", "a", "]"}]}]}], ")"}], " ", 
     RowBox[{"Sin", "[", "b", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Cos", "[", "thf", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"Sin", "[", "thf", "]"}]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5474872035472145`*^9, 3.5474912206396685`*^9, 
  3.5475650904922323`*^9, 3.5475714775072827`*^9, 3.5475751348381844`*^9, 
  3.547578099298625*^9, 3.5475781778049517`*^9, 3.547578239194084*^9, 
  3.5475793403974667`*^9, 3.5475795263659925`*^9, 3.547580103593545*^9, 
  3.547581435032279*^9, 3.5475845201992292`*^9, 3.5475850128178434`*^9, 
  3.5478195697931223`*^9, 3.5478199921002407`*^9, 3.547820546949875*^9, 
  3.547820587783369*^9, 3.547820627550749*^9, 3.554981830637493*^9, 
  3.5549825140735836`*^9, 3.5550020353698406`*^9}],

Cell[BoxData[
 RowBox[{"eg2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "ef2"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"Cos", "[", "a", "]"}], " ", 
        RowBox[{"Cos", "[", "b", "]"}]}]}], ")"}], " ", 
     RowBox[{"Cos", "[", "thf", "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ef1", "-", 
       RowBox[{
        SuperscriptBox["ef2", "2"], " ", "eg1"}]}], ")"}], " ", 
     RowBox[{"Sin", "[", "a", "]"}], " ", 
     RowBox[{"Sin", "[", "b", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5474872035472145`*^9, 3.5474912206396685`*^9, 
  3.5475650904922323`*^9, 3.5475714775072827`*^9, 3.5475751348381844`*^9, 
  3.547578099298625*^9, 3.5475781778049517`*^9, 3.547578239194084*^9, 
  3.5475793403974667`*^9, 3.5475795263659925`*^9, 3.547580103593545*^9, 
  3.547581435032279*^9, 3.5475845201992292`*^9, 3.5475850128178434`*^9, 
  3.5478195697931223`*^9, 3.5478199921002407`*^9, 3.547820546949875*^9, 
  3.547820587783369*^9, 3.547820627550749*^9, 3.554981830637493*^9, 
  3.5549825140735836`*^9, 3.5550020353718405`*^9}],

Cell[BoxData[
 RowBox[{"ef2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"ef1", " ", "eg1"}]}], ")"}], " ", "eg2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Cos", "[", "a", "]"}], "+", 
    RowBox[{"Cos", "[", "b", "]"}]}], ")"}], " ", 
  RowBox[{"Sin", "[", "thf", "]"}]}]], "Output",
 CellChangeTimes->{3.5474872035472145`*^9, 3.5474912206396685`*^9, 
  3.5475650904922323`*^9, 3.5475714775072827`*^9, 3.5475751348381844`*^9, 
  3.547578099298625*^9, 3.5475781778049517`*^9, 3.547578239194084*^9, 
  3.5475793403974667`*^9, 3.5475795263659925`*^9, 3.547580103593545*^9, 
  3.547581435032279*^9, 3.5475845201992292`*^9, 3.5475850128178434`*^9, 
  3.5478195697931223`*^9, 3.5478199921002407`*^9, 3.547820546949875*^9, 
  3.547820587783369*^9, 3.547820627550749*^9, 3.554981830637493*^9, 
  3.5549825140735836`*^9, 3.555002035372841*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  RowBox[{"ef1", " ", 
   SuperscriptBox["ef2", "2"], " ", "eg1", " ", 
   SuperscriptBox["eg2", "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"ef1", " ", "eg1"}], "-", 
     RowBox[{
      SuperscriptBox["ef2", "2"], " ", 
      SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", "a", "]"}], " ", 
   RowBox[{"Cos", "[", "b", "]"}]}], "+", 
  RowBox[{"ef2", " ", 
   RowBox[{"(", 
    RowBox[{"eg1", "-", 
     RowBox[{"ef1", " ", 
      SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", "thf", "]"}], " ", 
   RowBox[{"Sin", "[", "a", "]"}], " ", 
   RowBox[{"Sin", "[", "b", "]"}]}]}]], "Output",
 CellChangeTimes->{3.5474872035472145`*^9, 3.5474912206396685`*^9, 
  3.5475650904922323`*^9, 3.5475714775072827`*^9, 3.5475751348381844`*^9, 
  3.547578099298625*^9, 3.5475781778049517`*^9, 3.547578239194084*^9, 
  3.5475793403974667`*^9, 3.5475795263659925`*^9, 3.547580103593545*^9, 
  3.547581435032279*^9, 3.5475845201992292`*^9, 3.5475850128178434`*^9, 
  3.5478195697931223`*^9, 3.5478199921002407`*^9, 3.547820546949875*^9, 
  3.547820587783369*^9, 3.547820627550749*^9, 3.554981830637493*^9, 
  3.5549825140735836`*^9, 3.5550020353748407`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"M1Thg", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"coeffa", "*", 
        RowBox[{"Cos", "[", "thg", "]"}]}], " ", "+", " ", 
       RowBox[{"coeffb", "*", 
        RowBox[{"Sin", "[", "thg", "]"}]}], " ", "+", " ", "coeffc"}], ")"}], 
     "/", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"coeffd", "*", 
        RowBox[{"Cos", "[", "thg", "]"}]}], " ", "+", " ", 
       RowBox[{"coeffe", "*", 
        RowBox[{"Sin", "[", "thg", "]"}]}], " ", "+", " ", "coefff"}], 
      ")"}]}]}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.547485337394888*^9, 3.5474853403948126`*^9}, {
  3.5474853734016056`*^9, 3.5474854457361403`*^9}, {3.547492354726343*^9, 
  3.5474924037017937`*^9}, {3.5474924376943817`*^9, 3.5474924410186157`*^9}, {
  3.5475784338707952`*^9, 3.547578442560319*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"M1Thg", " ", "-", " ", "M1xy"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5475847631328115`*^9, 3.5475847791486177`*^9}}],

Cell[BoxData[
 RowBox[{"{", "0", "}"}]], "Output",
 CellChangeTimes->{3.554983274998106*^9, 3.555002053748892*^9}]
}, Open  ]],

Cell["Plot M1xy and M1Thg. They must be the same. ", "Text",
 CellChangeTimes->{{3.547820447360273*^9, 3.547820480993362*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"T1value", " ", "=", " ", "510"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T2value", " ", "=", " ", "50"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Trvalue", " ", "=", " ", "11"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tfvalue", " ", "=", " ", "9"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tgvalue", " ", "=", " ", 
   RowBox[{"Trvalue", " ", "-", " ", "Tfvalue"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eg1value", " ", "=", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "Tgvalue"}], "/", "T1value"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eg2value", " ", "=", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "Tgvalue"}], "/", "T2value"}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ef1value", " ", "=", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "Tfvalue"}], "/", "T1value"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ef2value", " ", "=", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "Tfvalue"}], "/", "T2value"}], "]"}]}], ";"}], 
  "  "}]}], "Input",
 CellChangeTimes->{{3.547491295477544*^9, 3.5474914575262456`*^9}, {
   3.547491517757298*^9, 3.547491589088971*^9}, 3.547492483682626*^9, {
   3.5474925926451263`*^9, 3.5474925952396836`*^9}, {3.5474926350902605`*^9, 
   3.5474926362126536`*^9}, {3.547575251907302*^9, 3.5475752528870897`*^9}, {
   3.547575311765218*^9, 3.5475753135997076`*^9}, {3.5478205097945337`*^9, 
   3.547820511702773*^9}, {3.5478205591620803`*^9, 3.5478205610267715`*^9}, {
   3.5478205967155848`*^9, 3.5478205982307663`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1Thg", " ", "/.", 
   RowBox[{"eg2", "\[Rule]", "eg2value"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", 
   RowBox[{"eg1", " ", "\[Rule]", "eg1value"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", 
   RowBox[{"ef2", "\[Rule]", "ef2value"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", " ", "/.", 
    RowBox[{"ef1", " ", "\[Rule]", "ef1value"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", 
   RowBox[{"a", " ", "\[Rule]", " ", 
    RowBox[{"20", "Degree"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", " ", 
   RowBox[{"b", "\[Rule]", " ", 
    RowBox[{"16", "Degree"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", " ", "/.", " ", 
    RowBox[{"thf", " ", "\[Rule]", " ", 
     RowBox[{"60", " ", "Degree"}]}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M1ThgOnly", " ", "=", " ", 
   RowBox[{"%", " ", "/.", 
    RowBox[{"M0", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", "M1ThgOnly", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"thg", ",", 
     RowBox[{
      RowBox[{"-", "2"}], "*", "Pi"}], ",", 
     RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Arg", "[", "M1ThgOnly", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"thg", ",", " ", 
     RowBox[{
      RowBox[{"-", "2"}], "*", "Pi"}], ",", " ", 
     RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5474916052291374`*^9, 3.547491619283887*^9}, {
  3.547491651821006*^9, 3.5474918751120167`*^9}, {3.547491920149681*^9, 
  3.547491975720136*^9}, {3.547492006449164*^9, 3.547492085698408*^9}, {
  3.547492503642887*^9, 3.5474925685395374`*^9}, {3.547565195016286*^9, 
  3.547565227002188*^9}, {3.5475753321022167`*^9, 3.5475753325255604`*^9}, {
  3.5475755462402406`*^9, 3.5475755472596617`*^9}, {3.5475784500677547`*^9, 
  3.547578451570761*^9}, {3.5475814913258653`*^9, 3.547581491523987*^9}, {
  3.547584538898826*^9, 3.547584580878703*^9}, {3.55498335759383*^9, 
  3.554983373483739*^9}, {3.5549856617666216`*^9, 3.5549856631026983`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtnHc81d8bwO29Xdc1GiRZyWiRPKehlLKLRCGShpGRaJEUITuZJRkNce2M
z7kX91IpISkNlJmEkCR+n+/r9fvL6/36nM9znuc5z/q8nNdVcvW2dufi4OBQ
5uHg+O/v3j1iO/4qyeH4H13up33psKX8woTAcjnMvJym9voEHbSUvmdS5UkO
1mtc5kKHZTGHzFSocniz6pGZgw50EPvDntOVksNcjeZ7z9vSYcltYx6IyWFK
5cNVVy3oMNGWa7NfSA6b+T0tP2tGh14jac7DfHJ4d6OP4C5TOrwpCC06wSWH
ZVj6i/MmdGBSJg4HLtLw1Zqve2/tpAP9yhHB8HkalmrKusxB8v2xlxXxszRs
bGfPv4/kJPstbtlTNNyle0vdm3z/WmOh5JNxGt4RRhHx2E2HQB0a8WyUhoda
+sp09tLBIyPidPMgDQvJ/hVu2U8He4EZua5+GraSP/xJy5oOe/yPsb9+pmHq
g8EP9nZ0MOx94z/5gYZ9Vrln7XGig+Y+pLzURcNypSGP/h6jg2JV0WuRDho+
Flnge+oUHURVll2Uf03DBb5G5sl+dFi8dVND7QUNa5haxgZcIO33OHFtRwMN
y17pXrM3jrS/o0vPiqDh0VWFPRvTSfvBpPdIDQ33yB579DyPDrmyyluCS2nY
7/qT+XcEHZKvxg1ff0rDkTZ/Mva00iHi52Jy8iMaNhgZum/dQ9rH7pkovk/D
/3Z3yij8Ie3T35tVn036w2k2u12gFEyzq8xeppP2yNa+lpQrBY1zyXlDiTS8
ff3PaNktpTCuauG4PJz0z1Zl8bfhpfAloU5Q6woNvxMNMTiSWgpti5qVBhdo
+FaxZ53l41KgdwlIHfCnYe2v24KOvS2FwAgm+6YbKW9IEj5rloHHlE7AHWca
9t0y5W65vQzsj2Qr5zvS8D2Z3nsSh8rAcOOFi0xbGs4O+v3W63oZ/BvYoP9n
Jw3vzPq+0nyoDMJNCrOOr6bh2Ixww7Ul5YBvBluuUKLh4nCeDY6t5bDwxoyr
W5GGG8w33igbKQe/I+Pueyg0zNHU6tGlXAGu5/TXanHT8HjUTN3tlAqAwrqa
yV5Z/DxFJ5USVgnzIu3dFzJk8dgn++/BjtWw0eZ+1IZUWfxQs2fz4PlqOHvH
32g8URZbhAUr7LxdDSOrZe8evSmLuStOKnS+qYZuY0eP7cGy2M1By1x71zOo
8Bmc4beXxa+L+IvWadaAb+e8VKK0LN69897yz/21kGJt4ZAkLotH7o0dKfpb
C7Vt9+8lC8vijgClC+6UOuBr3aeTyi2L2wii5rpJHWQ0Ze3P/EXFbtWnu1Lz
6qC5YvuN/A4qFr2eFN59rB6W34n6V5NIxZ46gezLzwnYKftlZ90tKh53MBMQ
7CXAM1k/uv4mFV9+9eXnuRkCyuI/yjOuUvHKr9re3BIY9kRpb2b5UfHfEh/T
GQMM/iHtZ9tsqLhqZ7vSqZsYnjvJD3+TpmKCedC4T4UBFtlGMC9OxRlFS6f7
1zKgs/dIirgIFR951ybbvZEBn47d32nIQ8VafAMS90wZMOGpde/WtAyejFn9
+eEpBsgGGjsYvpXBc1kfIwqeMsAt1vXlrRQZvPX+cev765gw8jp81YMEGbz3
W+RLs01M8JLMD34WK4M5NE5ajhoz4VzSd7WBCBncfuJdvqA5E6LS/K8ZnpPB
zhsLZtpPMaE4L8J4wE4GP1hFX0h7wIR/9Q+LDeVk8MidF1kHpRrg5Yd1In8p
MrikfKeou1wDZMyWedRIyGAjq52xnisbwEibWG4kIINNtCO4Dmg3QHBmR/TW
3xTsWSdnVrmnAWZDFk6gtxRsVRX5ofxSA0xsNlfaFU/B6SzfZX/7GgDbdlzg
i6Hgf35bZgaHGuCWj3036wYFC3JuTXj+owG0C1xv7b5CwVNZe/ef/9MAZ2TP
/TP1pmAxoC4LlGiE0Zns92b7KbjS0CD+t1EjfKVPxlsJUnCfXaOzZ1wjZPDN
hznwUnCMGj1CPLkRDjpw+R/jpODn+6WePb3TCM2c0gcD/kjjYbN3np9zGqHI
cr38nRFpPMS2eT1T1ghB44E5vS3S2Gz6eop0dyOIaCzQvaOksWPoo/sg3wRN
F3lygyKk8YnJYoeNy5vg0huR5NAwaUwZjRJRU26CyaBl5xKDpXFSzK6QBfUm
6GIbb6k8KY2jzmkbnTRognvuoQ2Le6Xxy7WK/UfsmmDjPb7OGGFpvOD5Ztu7
W01g+Nq3ZRu/NI5fc6Y0NLEJjP99rJ/hksarRPKU1txugl2HSgud5qWwyIS8
+LGsJrCTdL68dkQKd6aeHcl+3ARBodUarSwpfOtx/H795iaodjkdKhImhQeG
1g5+/9sE9bfeBeKLUliq7pIm11ITMOu2n/Y/L4XVdJ6so3Cx4LmcnN1HHyn8
PW4mUlOABR/eNGk9PiqFk6TXyalRWDC/bUW32VYpzF53l+akyQIj5Xbtm3OS
WD2YbdZ9kAV3pYXX20xLYrf7uZPHDrGAm3engcKEJN58gV9i7DApf6h8x6Mh
SRzjJcGadGaB/ZM79i+6JHH+qoNXO06ywH+zS5hwuSQudU2N+nWRBY/NJ97e
9JXE35fvu1Z/jwUSSL3H5owkTnDetrv3Pgv8dF17FTwl8fVVyyYXH7DAkNI5
+shZElck3hXQf8iC5veVSy8sJLHZCWpaIJ0F39wuq4toS+KkptYXZ5gsUAwR
uxg9KoGZlASLdb0s8Mx9Lps5KIGviDxTfdvHgorWCPqTfgl8Jv1yStBXFlit
XBp69UECn95hurtqkAURTT+tJV9I4Mc6hSsVfrDgp/gbtZRHElhmTsLI5w8L
mLmJndmnJXDEMRR3TIIN4q8svItPSOBwu68NhCQbHH8LCzHcJPC5L2UNctJs
+L0nHPodJbDWcru1bBk2aP30f6iyXwIH98y08iuwIdng4JXCtRL41tOXx5RW
s6EtQ9f++Cdx3FL+ZFX9JjZw5HqnfOoUx4SVAfvHZjboPHrSaftSHGc72CzJ
G7IhrlrdakcNub5uUtfLiA2WXUp7V94Rx+MRFMZvRMoTlzL6YEuul1gbnLqH
lCdrGWy1Txwn29R+v7eXlLc8tqp5hziOOt7GVWhGytMS2lCpJ44Vz2usLt5P
ytvDpZ0kIY5VxbRscqxIeWFTK8xfiuGf+meFZA+R8qJ0jjQ1iGF738jNf0nW
iffKMKoRw+8uY9onB1Je9ihN86EYli9bMXXHkZRX2y8pcEMMXx8qkZs7Ssqb
aedm7hDD7LfvK3YdJ+X9k9husEUMt1aZmfF5kPJ4LK4U64lhdfWtaQ0kx0m9
WMhSEsNHwlQ8N3mS8tY1zIQsieIvGk2d3KfZ8PpE6dCGGlEsNFaySseXDe1f
flsal4piATexnQySuw4aPdv1SBS7xe45Y3mWDR93NkXbpYtiCQbzwwk/Noyu
fKd7PkQUu9/+siosgA0/biukh/qJ4l25x2O4A9kwIebME3VKFEvN7+a4SvLv
heGutMOiONZGgevCOTbwvJ8Pqd0iikvtnAMOnmeDgCUMNOqTz49oqjeTLMy+
at6qKYrnlzgHNwWzQapcROmzgii28/YKlgxhw4r45aylvyLYa0W30JMLbFAW
OLZOYFoEB9o+5Ba/yAbVy/mpEmMiWHPsDI83yVpndE4pfRTBFoeWFNUvscFw
z3aJHbUi+NItydxrl9lgjCPOm5WJ4PZHZl3vSN626UW/zWMRfPL6LTG1K2ww
XW1b7pYhgss0uOOYJJtlpC4/kySCy1cndIuEssFc+tP1gGgRfH/HyOoDJB/g
PO4QcUEEezpFtX4h2T7oYUOsvwiOcpZboxxGxv/Pca3bp8n94uevupLs+unc
Ur6jCDa1ldv1iWSf6sjcFiMRvJXx7suzq2zw13kl2r5eBNfmLjf9QfK5fKlz
H7REcIzk2uJl4Wy4lJy+57uiCNYl0i8GkRwq0kv/RRHBHjqTfTkkh19VUVwQ
EcFnrs/teEHyTd8n4yL/hPGQcP+izDU2xA5P2snMCOMVe7MObiY54ehGxrIf
wpjnJi60Jzm5K1hDdUAY5+198juQ5NT9RKL2J2F8NrkJEknOaOT+t/GtMC7m
9Qh9QnL2FtPj0CqMuRjfa5pIzqFHv97dJIxZAQ/He0jOU3+z2bJOGCfYz9Im
SD6xpoRxpVwYR+15/5Uzgg0aq+P3ljwRxsu1t1ZLkjym7NvR90AYb/MNSF1B
ctFKK0epLGGsbNx+RZNkn+W6A9tThPG1i3d9N5Cspyjp5RcrjDd0qJ/cSvK0
3OTs/QhhfDi9zHMHyZWyby53XhLGb4aueu8mOVimRID3HPn84rvgPSQbScfH
b/AWxr/avkf9x4sSvvLHPYTxOM981n/rsZjV/ZSjwlhlcFPFf/LCRHS12HbC
WGTk3ev/9tspJFn+20IYN6oKfv9PHz6Bya1qpsJY1eE3nxbJzbxvWPZIGJd8
fK68kuQo7hKLyM3COOx+wVYpkvdxxndX6wjjzUb0g1wkiy35uIyqCWOihffM
f/56s2A5Kq8kjA046y9/JDlpXsfPTE4Y56tOxbBIPjgnsRAiKYwLBStSikj+
8KtN9BOnMJb4oZEU9N95TRaniM4L4UdqUxEOJB/5GbfCeEoIH48P8DEkuX/U
Uje7XwhP1VasmibjJXdY59nrD0J4MdbreyvJxwcldnB0COHDD7oePCD5e1+b
rUuDEC4ICR83J7noS/Gn+BohPPwwP3glyT6f4o4zS4Vw4MyGmZ9k/E53Wwat
yhXCYh2qJTdIrujS4bTNEMJpNXsmrEgO6pSICk8Swhdd7eXkSF543ZY+EE4+
X4pTuUfmR31rsQr1ohCOL3Hi+S9/rryIe7IrQAjPxB1uWUkyL9uSyHcXwimc
/Iu3yfwTq2/r99wlhM/xi/48TeZvW03xqTRjIexWd+atIskJ1XHTzzcKYavc
zpTnZP5Tyy35tNYI4csiBx+sIHnF4zb1cX4hDHklz5+S9aS/sJi+nIPUL2jE
1Zzk3Py4LRZzgljbl+vFKFmP1O5b7i8eFsRjf+d4lpGsk9bmc7ZFEN/vm585
TtazG/sCuf5gQbxybxfHKFnvehcVki5XCWKjfR2eJ0m+dcyjMjpfEN+y4jU/
FsSGca3Ff3nXBDHrXYPKBrKe7vpy/9bai4LYdp/FYA5Zf7Pi9yiV+Qtitwz+
GVGS988m7WQcE8Rb9khO9pD1+jGhebNnmyB+61e0yo6s7zxn3yi6GgjiDslJ
sac+ZD1SOVc0rCOIw372r+chWTiS+WZmhSAe7FVck+fFhpPWh2gSiwJYevzc
0eZTpH0DEQ92PhPA2qJnPl91J/1/W2vTixIBfD3Ba0eRGxu697Q3WxUKYNxq
WP32GBuuFy0bO5IqgDNiml8ouLJh8FyZ3vlAASxrbLAl/AjpP6F+4omeAP78
CmU3HCTPu/a61XoNAewVYfCo7gAbbL3Xfn2mJIA522dTymzZwN0ZxNcsIYAp
XL4cd6zJ+pkpvr9/nB/XPblUu8WcDUo6Wz9QH/HjkaBPrIGdZD5Zj6Ro3+fH
qiGlJowdZHz5J9vsSufHVgpnP9zZzoZXVT9eBtzkx3sl1hhsJ+eB4G1ZROcp
fjytdeys9xY2dFov5SZo8eNvCgPTm3XZsOT/yOWhCj++D4/3fVtH1qvbdsuZ
ivwYBtZci9Ym/dHz9PakCD9+UzwZ2aHJhrVuzlGWP/iwignt4hZVNkQEMLzF
ivjw999+TG95NpTcPqOlmseH9QXKTgzRyH5bLTeyNYsP19Km6IdlyXq26Ot6
JpYPe6cuX2VIYcOXCOUDL734sGm7/WKrKBs2p141jFrHhz/oVn/bz0H252cm
vHwlvPiVT1t5bD8LHsVXPvcr4MWrxJi+HuS8d/qEelxfNi92ua4Ts+UzC37I
iCrUxfLi9edKyBGDBRM+nTr+p3mx/S0U/aaNBbOqxxz71/Digwpe6r11LKj8
16lkuYIX/3OSv3OqhkXm666hOiovFh7hnZ2sYsGfUI2zd3h5cefSB/ufpSxY
+Dh53fIrDw7ddXPoUSELuBKvlNZn8eBDtWG01UksaPCcCtJK4cH0nMnMw/Es
CEduxmkxPNj3QlVMdCwLeMd3twRc4MFNCdTITzdYILBH/IuWAw9+kegwbUjO
y2JLmULpMjzYUuBURI8bCxRO1bici+bGwyslcrzWsSCtuXmXaDg3jnoalj5B
zu/yql2a90O4cb5T0b9TaiT3Tcy8OsmNo4sz28yVWECzU41S3cONt/18Htwg
xQLKjnj6W15urCd7pv/IdBOIKHhwr7/MhVu98v8J0JsgOsh/uCWQC19159C4
96QJhLtCW496ceHXlSf0dQubQCg+4/ZNJy4cRf2du/luEwjwt2t+3cKF9WLu
+n6NaQLeX0a2CXOc+GxHQWO6RxMsPpd6MOHLiW9cuZWhTmkCq1TVctmTnFhb
T6liSawJct0Nm4xdObGZ+ynOVsEm2MvhOhBtzYk34ptT+5YaIWVDyWp1fU68
y2wsq3ekEdbetchzmebA9+N3Ne+pawTHgOj89kAObPv6jVCpYyM83X638o8X
B4ay4XnLg43AJVHGXunBgd+sWk75ZtEIBQ97hrzsOHCMcMz5ke2NMP1FQ014
Mwee4Z4R91ZrBGpygtX1qSXiTrOl8IHJBvADEVvP34vEeP6qAu7gBti5g7h2
bHCRGBQFm0DfBqDuPlvp9HaRqMh3Pfj+RANUmXfLW5cuEqI8Tb+97RpgwSm3
z9B7kTizJ+vBR/0GCL9g5C0y9I/Y3v9nb/oIE1KqT0c97VogfP99Oze4mwke
dStqC5sWiDD/47lrtzJhM6P9x/2yBeK5qlu6ix4TPjRvtkpNWCASq4QCbyky
YXk3Dy3UfIGQDVUiln4yIH8244E16y+R3SYnLp/IgCr9VjxTPk8c+fjV4kIL
Bh3ZGFOpvHnibHvjeZE6DAXz+9q0U+YJZ+yjGlmMIZXx8otH4DwhW7aidfdt
DOcsXi6+3zhPHF782N59DMPGUy+M6iv/EMpuHiJXpggoy2mpiqieI6oGvnzn
1aiHp5KsYtm6WeLaicPpbmrPwPqI5N7eR7PEjURLzYvcz2D2oePXgrRZ4sBY
9KqQz9VgtPOXjGHQLOHY49eulVQNzYErQxz1Zwm3UY+c+MUq6O0JNrlXOEPc
/bZZcKatEq6qsT57ps4Q9n8VzXQfVYJqgGSQ3vUZYo7wXH32WiWcFit42OA2
Q9yPWaoWMayEOfRWfHDFDCH0xynsz/0KkMxb90EjZZroTx88UXexHMqmgv1+
hU8T5vzEpzeHysEeWCK1ftMEI9p4l+rGcsjqdoT9VtOE/Bf58ZyfZaAhHJXr
LTJNHPlxqunK8TJotXu7dfPfX8S/XZf71UzKwCd35TuO0V8Erbpk51aVMqjY
WimYwP5FHKqM3tz4tRS2+3zzKgv7RcS/MGvl9SyFgdp1Ahd9fxF2wrbNLWal
cEMw5J6J8y+Cgt5x6K4rhVc5kp1dW38RHPbzl/nn6OD70/FMttYvQq3l+7aI
T3SgGBXwnVD4RcgZfdZjN9DB4a2xwZ+5KaJ/bSfxNIEO/5Si2hlDU4T1iHOm
Rwgd7nq9PRXVNUXUt1qt5nKnwyD/6SyFsikiqW7CmGMLHSJtKzd9y5kiOkIt
nPzX0EHrHtebx/FTxKTqig1jFDr4Gd7hNvaeIo6xubv5f5VAUpLCx4NHpoiV
Ds+iOb6VQNl4Zpn3/imCp5KSL9VVAm9NV8bcMJoiLFVcI01aSmA2J8f9nuYU
0cA297pbVwLUfyrGz+SnCI8/Ka4apSWwyS6f2iE4RWyYzzceLSwB+xL1n9/n
JolSMLg7eK8EgoQfs3mGJwm5XaNfV6eXwB137bvL3k0S/kGTy4uSS+AZURy0
kTVJjOuP0K7Fl8AHOX0ri/JJ4ppus0lxbAn89StXP5E7SWRWSuH1MSWg+GoT
V2jiJJH1xmqHLMlGas8+3AmbJEL9Pqk6kuudwoxK6b6ThGsP7yF+Ut6lj/U3
XzhPEppV+Q6K5H5ZG7e5fbOYJEzTN2zJSisBIq7B6J/xJPGCDyXfIvXtHTWR
oWpPEiOC4TenSHs4TJp/aC+bJOzfRrCaSXuVsveydouQ+4k2nJUmSmD7n5dZ
zn8niDPfTkLHixJwtbE4d350gmgD7CTwoQSuPnljkfB+gph35wqlj5RALr+t
2qPmCWLT2PjntvkSaHTp4misnCAaJt7ouIrSYaDG/v3HvAkinrKy3E2JDnzU
npKZ5Akic0OibtdGOqj6OEWJXZsg2FmMmdL9dNj9/IvrGv8JYpWJ6ud5Mj5u
XPomfch6gnD4OepankaHgu7jY77bJoicl053VlbSoUVvpDFKZ4KIupqn862T
DkJDPwJqxUh5iW5Xj1JKQT57/Cmk/CTWq5aohuaUgqPNL2df/5/EhitHYkRa
SiGTf07yvvVPom6CYVo/UQorfTj9+cR/Ekuffd8E7iiD1dsom1uvjxMrt9tk
Os+UwfEZ2sii+zgh+df+2U6VcigoXJams3Oc0GgqXiVuWw4aUmsWEjnGCVbr
WOL6inLQ+WqAHc7/IK4dbD/96moFGF47ajp8coz4FjPjd92oClrmLj44YjZG
BBEy8Z98q8D+dAbXW80xYtdJ0aNh+VUQYPO+ljH2nbC+dJ+RLl0NxUo2uule
34mEIGXtPePVsKZ+l7z52VHC85L+0vX8GqjQdT/XaD1KLL/myo78XAM7H1zt
NNQfJdLRB6UzMrXgGo1j10yPEHc9rhP1YbWQ5WDIzRk4QvxuZbJ6HOqA8nvt
WOn5YSLWxc8l/W893D+5b4+GwzDBLu9RebmWAL3PJ/PuGg4TWcu6Ui4eJcCy
Kd855u8Q4ca4HbiPQcDNRKW3xy8OEbXrRr9wAgZ5fqT3yWmIIPjWxbw5QNb7
4CO3bIyHiNdRV4P2ncbAcknfg5YGCZv92UaGqRi4dGTq5UIHiTfL2ftLv2OI
v6+vEOcySCRGbQ5MW8KwUtY6iG/7IOGkH3pSXpoBWxdj9X5xDRILbzNcPm5m
QNBLgfyX4QPEU80Acd3LDOBHa3h2uA8QXezZprxbDEgpNXGpNhkgxm+G/H6Q
zYCytDCFPL4BgkPkr4ZhPQN+nli4dfnGN6KaL+BR7AwDOot0JcyPfyN8uqSl
tLmZ8Gz6eJzizm8E+sDaul6CCeFX3sRVL30lgo70/vBSY8JJFp/kjU9fiULt
3KK7+kywEDGKP1jzlcjemP1E35gJ8ql58b8CvxIlI7/fBVkxYelTjyTT9iux
93zejJoDE76tkkyI0/tKRBL+Gze6MuG55y6poxJfifAXSa3Znkx4+jQkYe14
P+Hjnc3r7sOEpJliqYUX/YRNcD66FsiE4C2DCc8L+4lD6qZzSyFMOBqqIH3n
ej/hziyq67zChJ1sy0QP936id1+2Afc1JqiLRkhv3NFPtDr7a928wQQxm5pE
HqV+IpxP3uv0TSZMp05Idyz2EecfcI/nxTDh/efVSfc+9hGRXMtKDW8xoV7l
MMXnWR/x06qiZ00cE3JPxiUZp/YR/sdOZXqRHFncRBEN7CPuTvGaiJPsNTuf
1GND8prDG4XI922MdGQe6vYRCvYqY0dJ+ZvD3JODxPsIW/mO3xLk/sub02R2
/+glVhLOnMtJ/bjF2pJlXvQSaXvl2NfDmTBsw0v9VtBL8PO6LrMg7Xt1xzCF
HtFLDOGQcX/S/tIv3tRQt17CfBoZzgcwIXX1gxSL7b0ED/uLTK83Ey6e+kBd
vrKX2LA57tEa0r9Nriu03//9QnRf2WXY7sKEuPFI7cDKLwR+7yLTd4gJDsHT
2tJ+X4iRVrvcA+T5reY7uq5Y+wsRtsPRVdeUCRPxLev2j34mDD34PgeQ532t
MEvnustnwmLMJR/UmWC5QVBXZdlnos+4y7t5GRkPDD9dRvcn4pHwk1EsyYTi
blO9vxafiC1rXj8VmGPAB/5f+t7GH4lH0Q4qa8n4zE10Wi8y30P0DPA/PV3E
AO8VzesLy3uIB4mlS1pZDODZlLnhq1YPkeFFTzW4wADt47s32Sl8IAxSOcRa
9BgwN1myabrrPXFq1KTZdgUDGi4qbo5PeE9M19V9CBBmgH3y5OYXgu+Jk3/P
qF/tx3C1Md0Q5t4Rpd8yTstHYxh+ZZDoXvWO2JezfWTlOQzm7999vxn0jhi1
svf/7ELm+7h0ZvdcFzHBKZ15YyOGYtnoJd8/bwmfLN5NRDUBn05eaMyd7yAU
m9ItSqAevJSfZVDmXxN7+ru+Ca+qAYNNs/tdgl8T7IyV+b8mngHPPr2lJ/Ov
CNHPreVT9c8gPeChy+6/rcSGGG3zfYefQXNzmmrwwgti03FRYZ6UalD2Din+
ssgm9rOLhHVoVfDjaqWL1mU20dTYOyw6WglVqb+kzi+xCP81Mq/saivBgnkq
QIqDRSRb5UntdK2ECzKOhiacjcQHZycZ4bIK6KoxanzIjYl/sgPWt/zKQfG8
6+cpEYLIlTZ/pGtRDtHBZuvjpOqJvlLn8+Ga5XDq4rLe58tqCfGj+3/sHSTn
tauMTWh9FbG8TU+a6VYGaeEPYz4ZVBITF1QiLXaVgVBE4tdgqCAeE3W1hWpl
MHrD/Vb53jLCQ8DRou1nKRTGCg5puBQTeNU5Bb0bpaC3cuB8XGsRwa+7zvqs
TylIrapc/aL7MQHBLecSD5XCG7XDF9HPAuL3I72Ky9qlUKy5Vj1kPo+AqEMz
++VLIU57qbOc9wHB77HTi5u/FCzX39fSVLxHJP02PKH2lQ5HvUaLX5hnEfwN
M/futNNhuX+swDb3NEJ4uuHaDJMOn8/rOVeEpBBffCXPG5XRIfNyV6VmQgKx
YkytxCuPDlVCM8u3W8UQGnrS+tF36LCJuvWV1qVrhKtmSkdSDB1O7RD6q30w
hFghZrvpRhgd2srWlwo4exCDBsId7kF06PR/bKxXYgEWX2a/a3mT8s+ZjFhm
+EHGMcvUj8fpYFns0LT1XiiI600Sfkfp8CZXimrjHwnBPpRlk/Z0KNznrl92
Pw7y2jdttbGhw+guRo9xTBI4xMqHpZrTQWPbsvCWwFT4ueW9MrGX1GfLeS1b
5wx4aLR6bdNuOnSlnTz5U+UuuEikRBSY0GH2dmp9mVwOGHyQGj++k05+n7Gk
gsVyYYO29b9/O0j7EqaPA3ceOCp5aZwin9vfUq7hmcsH75Colkfk+0HRluLP
xwrhR2eUWB0pPzXy0rFbfY/A27FLLIPcvyricaVt1xNQmFVtMCH16776QVj+
xVOodHMRrLSmwwXEU/zzSzHkrfXPG7OjgwgoOFiTc9jTSUPTr06kf7bq8ZST
c081h9v122500DbaUyT7uhR6lg6M8J6mQ72hs31wSxmcuiXdr+FPnt+m2MdQ
XwFWf0AxKoIOXhsfHMypqgQu6qWl2jg6LK6v5eAtrQLZZAa+nU6ev96o7fP8
Z7BRSq16QykdinQ4l7Ryasi6YEZOnXQwXkcrvJVRC2cc6eEmrWT8aO36Zxtf
D06FHKcLRuhglJoXO3uXgE1rPxss/CH1D+OW2GePwf9y/LpJoVIY+XHs3g8P
BqCCHIVHZLzmNKk06lxvAP6e9JTuC2S8/u2M5hRvhKvwT/VpfClc0r12oD2l
Ed7TLBY48kvhcObAoF9eE6g5nY/i6SgFSkCeYGUTG7b7366S1CkDrkcH26/v
bwar7evDTU3LYKKXL93+bTMEbJ/M63Ymv5/2eWjNf2sBvbmEkJmEMohQUbPY
yvMSkoKgt3q+DBZGbJ+7KLUBI7d7LuhtOfzieaK9170NYnnaDHMmy2F0BW+i
XmEbDFIimROiFdB9oPwwt+4biCy8d/7XrgooZ8j8yEXtcPPIuVv7nlWA150u
8eGjnVB6cMcpn9xK6DO1P+CV1Q0yGx0ftQRXg/HABZfWT93wydFW+09yNaSF
3jujtew9HBkyPKdYUg3Wz0avjaa/ByO/scItQ9XA1LxYcfzOB7jt4i3/wvoZ
5IjlyB5N+gi3/tlSy1VrQG90ZmyNSS983rdNbqi+Fpw3C/i9c+uF5rS+27nv
aiE2Qv5PRHgvTFWFpe2ZqIVRZeAdbOiF3f3zt/Yo1UHO4RvLcrf3gcPVTReW
hdWBdKu8+UrUD6yL2/YvGtfD9FN4StvyDcTz+B/sekDAS80tUj5O30Aptelg
Wi0B9/M3BrAvf4MHkY+jXncQYJ29dktg4zfYX/3H5icHhpJYBXbH/gGQzH+a
ZaqNwevM78+xzoPw0n4wUjMCw5DGUzHeiGHQ2ZI5yaXJgPq8h76OBcNw8FSn
cfd6cp5TzussfT5MzuHfGdnGDNgln5nmKj4CwV5T+bzWZL8UvKmKU0fIFBV8
oh3EAOfh48Yhj0ZBrOx9CTeT7K8PlntNto1B2NgWwbX7mFDB99i6YGoM9t83
Vdtuy4RED4NNRyk/IHfpxqyZIxP2qdtytNr9AJ8e1S9bT5Pzz+PIhILPP+Bv
+4OkDHJeuVc6XXF0bBwY4UniNs1MKHMeWBq8OgGpdJd6UcMGUJbUOstMmgBf
dwfjLtQAcYyz3zIfTMDmBEWz5N0NcEaZo8WWPQGDp4jtv20bQPWbfAJTaBKu
1cxr7fNugFQPS5Ws+EnYIFXDMslpgBCvGtMD2VMgotmwvIOzEbbDjJvY0ymo
eG36U4W/EYQk1oWy66fgvWn4mLdII6SW5FQbfJ4CvW1zCZPURqiYjtRYvuwX
+K96kZyr2QhTwfYiQ2m/IPtcZMAbm0Y4eX3mdVDKNASduzF0NbsR9OzXjenm
TcOXi49zRHIb4Y+ap8D38mkwGQjNvlXQCDeef0ROb6ehZsrnYnhJI+SJNpZs
o8xAybVf9zQaGqEvMSFRKGEGzE7nKnkPNIL93XV2GTGzcOXjqKqwahNM8392
Kcyahcx0t5atGk0Q5x19uuLpLLg+7is/qd0ELcYjoW1vZiH2tW5M6cYmMPyU
85iH+hsiDHgpXLubQFGeynUm6zc07+nfc+d4E3xJXHi89ekc9FR/r/h6rwku
/H1YuRfPwRvKaz2vB01AO3aIafdmDu48uNL7q6AJLPUq3vn+mgOnnE+jE0+b
ALd5c+Vt+gNBR1in6HVNkCP61U4M/4Foi5fn7bub4Pj1Fq4vbfPA+FNvfkiI
BY7ipypbeufBy/RJl7IoC6xui5wum5iHg/pZrcPiLDDKt3gbKfEXNhd/oZ2U
YYEU+23+esu/MOeZn7x9JQvq+Pr3Rb3+Cyr1kSnmG1hAiZhP2fBqAWaTr1eM
ObJASCzDbOXnBSi2pISZHWXBUvJWDuHxBQjYNq2b78KC0QdXPHtF/8FjSqbZ
geMswE18Rjf3/4MW3EREe7PgNK90X+/Lf/DH3MTlVCgLGsI1NaNfLEKJvyLf
Qg4LDJeS76r2LEJ8U73Cr1wW0M9zUBmji+Aj7hczlMeCHK+3HLOCS7DeKDW2
+SELwuwvdx01XYLPN4P3nKKzYLtWR6h+0xIYzV7N3sBgQa/n1tNnjnIgNWuO
12MfWaCYP5Vn6MGBWF9vPUn8zAL7b/l9/N4caOemFs3NvSxoOyJll3OJA/2S
jhEL/krqbzO07V0mB7Jf25DdN8KC7K3xsts+cqCadWrnts2y4IjkAJNyiBO5
Tz9xthBlA09a5/RNF06kKrZJ7YUYGx4qN6pyn+REf1aOH90pwYbf+vejJoM5
0Tutt6rrpNkQd9DF+lUGJ7rhsbhtkMaGhvRPfdd7OZHatodyH1ex4aRKq/TS
MCc6eFnq4brVbJB4UmsSOMmJtvzZ2HhFlQ2O9emFblxcqMPRL11BnQ2zvYd8
t6lwoQtffy7oa7NBTbWL468HF/I8hSsmNrHhVVGT3lkfLuSS2X1tmQEbAjaV
u40EcaFtMmm/dhuygWma1PwukgvtUKp6mmzEhsOnrOPKHnEhmV3sFso2NsQW
v1rh9ZMLHaesP5uzhw2/DNnGfYHcKGXikSLXITawbIpN2Je40VgnZ8JbklNP
39n3JIIbbT71RzTfgQ3GWacczqdwIzGuDwo7HdkQxSkRKFnBjUz6BDOPH2WD
crP9k20z3GjPMovU/e5smOndVrbmHze6nPqqiPM4G5r/aNSI8vKgysKa9lKS
vTT/Nb+n8CAnQ9WdUifY8Cz23jff9Tzo6tz1t5Un2WB1YFQhx48HLdp0jT7w
ZoOKV4fyjRAe1Gq5a87Qh/RXRK2611UeVIP6qK9IzqiK3WSYyINM3ineGPdl
w7CCvk07nQelJeZspfmzoWa9okPVMx5EW33uXSbJsft5XbKYPCh4t+5VpQA2
rL/8zutkOw8SLDkvsSqQDVf6Q6K4pnjQqEMBl3gQG2z+usUP/+FBDwVEtK6R
rEoxT33FyYvCW/Z5/CH5pcnKvDRJXlS6Zo30x/NsoBU2MvR0eVHhj89bo0LY
8J3xpJlmwIs6NvX+miC5/kPK60XEi5zmJp8duMAGNxHPT88teZEad16I3EU2
PPUW/ePqQ74/YsSMvMSGsQ6d31NBvOjzVXnDYZI1NtvOhIXyoqX0gJM7L7Mh
lyN9MieBF5WbH/w1Q3K/W/1PvXRelLJcw8zsChtWtPT9YN7nRf/aZR2ySE6L
VxvtL+NFB+48Sd8ayoZ3M2bDZ+t40YUVoa2RJFMcvAe5WLxohVdTWQfJt5Qr
+pXfkfrpse85h7EhvHRHj+sfXlRZ0Dx05CoZf7Ie76c4+dDwIYfKVJKXQqLe
hQnxoR/sTZvbSA7e+aYjR4EPZfJ4m20OZ0NlwfQbPRU+5L4p6uMJkqdFaG1M
LT60YcRP8TbJ3m+PvOzfyoeGpHjyxkh+bBD2/OwuPuT8Zfe49DU2jGY+aOay
4EMprUn9/92XWMPVwkqw40N66tphh0l2Oz7WqOzMh24+sn4Z8t/9h+fiDfQT
fEgyyAjfIfmLtj5juy8f+kBTcionWTHxINF+ng+NBOvmvCLZ4ff5OtcwPhQ5
eid2gOTbhzNrpqL40FXxMKV5kjsJXB2WyIfMRkQcRCLYIKXyrVIqgw/JvbDf
pEiyxQ3+ipxcPjRqd7lKneToMY0yvSd8KORS8sf1JD+3NKczy/mQVsCjnP/u
K/CX+xZb1/OhF+UvBXf+d39BLrmon8WHHP8sSZj+d7/hYtXjs6/5UJn+7sr/
7kMQfT0Pubr5kPqt7L//PV8wWSpI6OVDgic4P5mQbPhQOV95hA+Jmzo7IJLP
ie16QJ/kQ+/7Hp7dTHLZWc/72+f5kIzICxVtkqe6ou+1c/GjvtoH3kokr9tS
nO0qzI+6eBSs/7sPcTq7I3NKmh+tF+J7wUHyQ+7f6WGK/Og999b3Y6Q/hjzk
06RW86NN6+NDukhWebk1NWctP1r77VVxHcmuOi4pehv5UbNT3bmc/+6nJIUn
MY35kfDQ8tfhJMs7vYjrt+BH1cKaGttJtmOMx56150e/fyDNZf/dr1gtFcPl
wo+Out6tnCHjQXzcPlL5LD8Zbx9OZ4f/9//lC9fpwfwoZfXvBB+Soyqyr22/
yo/qBPqNgWSey4Ohrkn86KzPGeW3ZDx6+XEfcMkg9ZV9vfYuyd0eK9Wcc/lR
4T0jYU+SH1s6vHIq40ev7Gw2TZPxTjU5d8+xlh+ZH7x0teK/+w4GSf6HG/kR
u7MqI5BkW+VX8oc6+dFYr57uBJkv9dTvP+w+kvYc6SgsJFlNWIBx8Bs/WtIz
GXUmeeHXNg/baX50oFOnrpnMx/tN5aUWFAE0x7c7/CKZvyLP2iPMFQWQkFcR
ZTXJgUU/D+1XEUDSaXddnpP5v/e2OofZevK5to6mGMlTJzL37bIVQLz11tbB
ZD1xdHq2wsRRAPWKXcsQJ5ll9W5qh5sAOqA4kJJD1p80Q8k72/wF0L5XD5MZ
weR3j8i1AaMkAVQ6T4/+Stazxxw5VVsyBFCy8nv14yRTZ+pvGuYKoGW0Is/B
c2T+fZrT3VwmgB5s2ff8C1kvE56evqTfKYDSn+R+LCfr68L9SCu9jwJI7NQT
x9UkH0/NU9H9JoCePKj0SfAj4zO097n2tABagZbtdz9L1itrW1kNiiDaslP7
7g+y3u/b7TuqpiiIPl44HrmH5IotsXVrVASRwveK2Rwv8nxVmo+tXi+IaO17
D5ifYYPe7JbilbaCaGSBORhB9o/QO6v2yCYJIqvJ9DMX3digxf9g4Ue6ILqz
+0Vm2THyvP1VixvvC6Lkn16mI65s0LZUlz1bKogKqZPcZi5s+MC3buBluyDS
0mtu/+lE9gd/w9AwSSG0RV6vvPYgWT/6atYfkhNCAcbB3s8PkPpYbB1epySE
HDI3Xnxry4ZeDWTxSUcIFf6NuPHVmg0xfSbLNlsKIYWaO9JfzNkwaG5V/SNW
CD3n84+z2sWG+Nr2040pQqiiQ9hQ34QNRhq2K9OzhNBUhamQ1E7Sv7x2102L
hFBI2n0pNtnPodbxwP1WIdTlLXpGbCvZr9VPTNqLCCPNi+bh4vpsMOO5rN4Y
KYwO9lg+blBkg3OdYefOBGG0eMdVfZUCGU+Bs5ea0sjn+NPzS3JkfRw+08l6
JIxoLCEPDSob5l46Xm5pFUZptfcCrMXJ/pJs+PaVpAgy2T1g2cdB9mvz2csW
8iKo1mZZLscSC17z0zXalEVQ8G83lsI/FsyfV7/yRl8EeRSquJj8YYHlEZpm
5wERtFo3z8x9kgULqrNX3t8RQVx/6h61k/ObVG+JpkOOCNphs3bVY3K+W3Pn
TNeHhyIopreGP5Sc/6yFBzQ/1oggnd73/xS7WVDws6Pr8ycR1Krl3q/4mgUH
qkq0vimJIta05aWNtSwo2nOme7xQFC3OfzuUmcCCiQRl+88lomjQbu8qvjgW
6H189661WhTdd3mw4mQMCyq8tr973CKKKAd0klfdYAGRKNt1ckQUOU9oPD58
kZwvPzE6BtXEkNaytOUfyPn4ly/19ed8MVT+3CDrPTlvb6x5Yf7qqRhy0bSQ
TdNjQRBP6Ku6SjG0NY2LZbuOtDfle2sGWwwttzK7W6XGAp5a/NJhSAwdvPXE
1ECBBVS+U8+7VMXRpUfN2tSlJticRjS9eiCOpGRG4ucYTfBN+6nRiSJxtDZg
11wy+T0R35BVylkpji5//CatWd0Eo2MX761vFkcr6o/qGBU3QQYYXUwbFUe/
xEed5jKb4MpZR/lSWQkUlfFg5YtzTTAg+/7NJUcJFJaXo3NCpQmM+i1jXjhL
oG6q/7VPy5sg4XGzKc1dAl3a0HLBVK4JjLdVESVnJNDYvfP8S6JNkHry9pNv
lySQm9gK/7HZRthbdyBy7z0JlP5Q3qOS1QhFru2IOiiBpo7+Tg9xaoQHnhfG
zEcl0PvaOwlZBxshw0c19fq4BFIas18ss2iEqEvBP+dmJVCDCrWnZlsjuKcp
Z/XwSyIOpRKNdasbQbH97N+76pJoLmxdye2RBojaJl2heUYS+brsdWzyaIBQ
0zoXN19JdC+Tkal2tAGCLDxEMwMk0XAL2/jCwQY47lTjJnZJEj0fXbt+emcD
bDt/THoyVhK9Orzl9yqlBpgrLvWpKJZEdjPtAye7mHB8pa3mtmlJ9MU7SqRD
nwl+P4O36c5JorGOB9ksdSZcqb9np7QgiVausEoqXMGEdMefVzl5pFCjQefu
rcJMaEuN+siQlkLuF5a73uljgIEkI2a7vhTK8R8XlbzJABEu7YkdZ6XQoY+v
7E+3YZB7Y8u3PlAKdaz7+lW5EYPq3RBFlWAptG7/cktWJYZtxi2mPGFSiGVj
Ht+RhSEw2O1eY7wUIrp7DPhOY/gylWZtUiKFzI5wmDG5MNC/8pfvmpBC6kV2
Bl+314N/9wvWzWkppGM+/+SHcj1sar3V3TYnhY4Rr1Ofc9VDbYXsggOnNDqS
PZWywKiDpsg1O7ylpFGn9UDLbuM66F63+83t9dJIQCM5v0G7FhZDIn4MB0mj
jlrNMzq/qgH77F1ae5FcX2T4wutVNVx1F5P0C5VGq9fL/UwqrAYBi5T1/yKl
UZNykVnW0WqQVM4LkUyXRnt5/BPfPK8CleYmQcM6aWQbWXDZKbsS9lJ4VW9y
UpC17f4kLZtyWPXGJOc6LwUphS8P1tIrh4WYiOXhghT0ITp91kOyHJ7wC8he
lKSgZfyrlXLaykDir5CAtxIF8Qh5KmVal8FwpVn4qdUUlGI43zylXwYM/2iO
E+oU5LrBS6FApgzOjov+cdaloPNR19R3fSiFt30So9bbKGjcwj5l4EQpFGVZ
HbcwoaDDER8cWveXQsThhH6zPRRUEmtKR/qlsPmtdM9OKwraz/Fjdf8SHSQS
bO22HaCg5YeVwxWH6DBintyx9RC5f9DHmflXdEhrpr7c6EJBPeh3UN1dOvhd
szPVd6egWlVV96IoOuzbntq4zpOCEs0DZJwC6PCvRq5OzZeCVPDLCdH9dOgK
cjBYHUBBK332wjJDOhRtSC9XOk9BFypXJfCo0cH5qWKRfCgFaTNOnwvgo4PB
aScN2WsUxCjSFxb5XQJS6ll50pEUpJb/OjNpuARGBz4rS8RQ0EbTHddkekqg
IWdFtkg8Bc1FpywmvSqBjKPOCoLJFMS8jdTlGkrAX/Hebd47FHQ1NpiroKoE
9r/vk+bKpKBdamHOu5+WgGqKctziXQpyUez4sZBXAovWx0T+5lKQ9+qjKq+y
S+CdeO6N3wUUxPXspSm+UwLFL7/xTD+moE2zje7dSSVwI3J16EQxed6+h3Yr
xJeAy67j/8bKKAh/jAqMiS0BQ+788yNVFDRo+2e9fgxpDx6aGailILPV7CAJ
kr9fUDvbjynoRWLFsBq5vtHAc/xzIwUt9UR1X44j7ZktPNnTTEEJQmUmNHK/
gNLRwXcvKSiMta9zOrUEzH00j3W2UZCFvc9LWVJf1bWnv7R1UlDc8XHZq6Q9
SyOPD7d2U1DuuDPaTNrbnffjXctH0h8L+Wc2V5P2HNO2ZfVSkF9iq1t4YwlE
rvRuY36joPXLbK4rvikB109P9xHDFGRye7id4wtpT9pEc80YBbFTo/t0xktA
2k7XpGqCgvZskB59tFgCY9JnGWXTFDRfKcHwkaBDYxt9a8kcBa0yVPlwcRUd
Aveu3/iQQwZ9dg9knSDj4+eO/JwEHhmkkv0w48UxOpzYKi8eIiCDtqenRDqH
0OGwDsewmYQM0jZw7ZUuokOnup/teooMysmI1tBsoYP5qkGsSJNBHWFc1scH
6ICoL+/8WCGDwuU+Lm1UKoVn4sDXtUoG/TxmuL8BlYK+IP1s/RoZRP2SKOLi
UgqqC7fNbq2TQWuO2vLXPigF4f5j/3RABml+j35kY1gG4T1dnnI7ZNB04Mzb
NpcyWOzc08W5WwY9b79mrxtVBhPsdU/bzWVQvNX1hrBPZdD15K+z/xEZZOBZ
QxTFlMPd84mNlRdl0MbXgbBBrBLk/Ph074bKoIN9U3NMVAkJp89n3rgmg35x
1A6y/Crh2tGjgYdiZNBZneuuMj2VcNJEU+1vhgwyy/hZJFhUBeslG24a18qg
uMTiaNOjz6ClYMq6aV4G9fJ8+pCD62COzVXDtSSDLF8dVbb7UweqQ1KrEDcV
qawGo7u69RC2Wv/XM2EqOuJmeK3jbj0Y5fglFitSEe8Vf/+ZIAJOMq7+/bGS
isJyN7+MeELAnd7EY5qrqWiZoYqffx8Bs8vL9PPWUtFhtb+yD1ZhKE6f7kg3
pqKx5AvvZa5h+PyMx+j9dir6/vpqYkAGBtEPlFzqbiqa/Mtvd7IUw0naBv94
Cyo6J2lzib8Xg0pyAOW6MxUF+msfa9BngHXZtQuNblQke8CGemk3A0I7kr9x
elLR3q2Xw6ocGPBZsqLsgi8VqerTVt+/zIDU2Fnbs2FUFFGHOKQaGMB6wlf3
NIKKjrq9Ph3dzoCZl9TVP6JIfU6sqw8g+5u18KYZj0Qqclu5alnsPwZc0djt
9OA2FdWmXx6oFmLC0z12Tf3pVFTnXiNgLssEkRvnkp1yqciv5mt9oTYTDPOv
/0sroKLF0iuVXgZM8GTddu9+TEUb39Z1pexgQupAfqtMCcmhp/iU9jOBxVO1
waacil5dyt4lcpAJ06uaM+OqSfvau57YHWHCqh3dvK/qqMhlr7Qn13EmWLsO
nxFmkvoWTdcInyH7d+jcW1MWFU0HtHL4+TGh6K6AccRzKhKdoRdsOs+ETwQt
r+EVFYX8vbHl0CVS3y9qYpwdVDT/XMD+XRip7+LmQON3VFTt3lBaEsGEE8v2
fA7poaJBjRUKw5FMuG10aFf1F1K/ekvf4GhS38OeRbNfqWjNVoviE7GkvsHn
qeuHqWhHVcMw/RYTlNMiL/mOUVGa4PS2Q3FMsKq+M1g0QUVX/hb8OUzyle5C
87FpKlrZJe5WQ64v+l1dof6Hiuycbn8/R8r7SH2+3OMfFSmbN0skkPsJb/wQ
kcspi2q85E4KRZH6Hhgd7+OVRQkmxP2+//T1nz+4QkgWacaeu0y7yoQnh6+r
U8Rk0R8pjp0cl5kwtZ2yICAliywClHudgpmwUePeq38ysojImFXWC2BCiKT2
vSk5WXQvTPf7RW8m4LlnfkPLZJFt3JTqdk8m8PTu3vVRSRaZ5sR2XHZlQmyR
y/cmdVnE0XmCOGXDhI7k8bpna2WRVd/RHYpmTKBdDIl7qiuLjrVrMPZuZ0KO
WfKGOwayaGpm7LXqOiYM6SkLxG6VRdQfMzLvVJigJf/0Q9g2WeSp7U0IyTOh
fLj58uk9skj4dsEmLm4mzL8+YO2yXxYVxLmvapllgHFlv8pBK1kUUjz/SG6U
Ac3XFlrgkCw6/ZhqfeQ1Az4q61CkPWXRFeXSzPwkBigJ1Q3yn5FF0rIFrLFw
Bhyf3FO94COLTpRTVz/3Z8BP4tiRwSBZtM8+K/aADQO4nG4XVN8g9Z1k2I8I
M2D3TpWQomhZNPKqeq3GHwzRmiX778fJoj2Bu9ZSBjHIzD+fik6VRfM/kqrG
6jGo3V40ci4g5besYUyQ85z5G/c3fM2yaIPmla/VZP1IN1k/b8NPQ8fHpBqr
/Gvh4RO72/XCNGSpWO2+YWstVMmErFeXoKEhK66nOby10DXA8Fqk0VBkn/ft
0yk1IBFh8bVAg4aYT2W236x6BhGsky//7aehgd5buYd4qyFZO9bzhDUN7TRV
SDBvq4LclBK+joM05MNzKbkgvQoYx+dQwVEauqMjDwX6VbDAF1Fu7UtDp/Ym
3UrzrISzu+9l5SfRkJKl943tv8oh9GnjFqk7NCSgE9POYJdDnOxw94VMGrLv
r1wjmUnOa0Pa0tZ5NETtuViyaW85DF+vvb5QSUP/VnDx7HhaBr9/flHxqKWh
vYGDa/rJfsBnz818g2moI9NX4aJHGaxS27uQ10JD+akKa6pXlcGR5nc+Vj00
tOKt1nZGQSmc0fkrWvuFhrwPb0+sjC6FC6nLH6l+o6HanV6XWnxL4c4J94G/
YzS0welzgBmUQkHbjbDjkzR0N6TkEl5TChWbH694M0ND7h/XyB6WLIVOgV+H
8hZp6Nyld+38w3T46kP9LcEth7a0P8lXfEuHqW6DpBB+ORQ9ZXrGsYEOHNuc
dAeF5ZD9ss4aNp0O4oVXXllKyCGDsAOfjtynw3LJ3FM1FDnkneffqpRMB63z
bAFVOTlU4RhmIHGDDlv6Rh/ELZNDHQ8brqhfoMP/fw8C7XPmKP/v9yD+B6k6
8/g=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.07},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {0.06855872105292808, 
     0.1837856430924184}}, {{-6.283185307179586, 6.283185307179586}, {
    0.06855872105292808, 0.1837856430924184}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.547565264279772*^9, 3.5475714793111267`*^9, 3.5475751349322186`*^9, 
   3.5475752574568186`*^9, {3.547575319260225*^9, 3.547575333215454*^9}, 
   3.5475755509138937`*^9, 3.5475780993769493`*^9, 3.5475781778910933`*^9, 
   3.5475782393037024`*^9, {3.547578453120725*^9, 3.5475784612071524`*^9}, 
   3.54757934048356*^9, 3.5475795346593647`*^9, 3.547580103671892*^9, 
   3.5475814364739075`*^9, 3.5475814925597115`*^9, {3.5475845202405777`*^9, 
   3.547584582350058*^9}, 3.5475850137939463`*^9, 3.547819576685986*^9, 
   3.547819993365086*^9, 3.5478205475678425`*^9, 3.54782058840121*^9, 
   3.5478206281567593`*^9, 3.5549818456023493`*^9, {3.5549833535575995`*^9, 
   3.5549833745127983`*^9}, 3.5549856657308483`*^9, 3.5550020608132954`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlXWmYVsWVPkqzLw0NdNNsalBxSVRURAUEBQEREFBABBVwxR1QIi0YjMao
aBSD4MQljlGDyai4J9pumSfjhpk4boxxAUeFKIhBEYGme+57b733e2991Zdm
9Mc8Mz7S3d/96p7znqVOnTpVt+7IqReffcb5Uy+eftrUXYfOnHrR2dNPm7Xr
kAtnRpca7WS207LoX8ddDX/XmfFHXfR/3cP4gSvhv8vjX01s88fLbPa4k+2C
S+fYhZNH2VlLXrUvt9X1i79ubFvWPGl3XjXJujcvtd6z77KXv6ixw+PvGkU/
N9lbc/a0ZhHPRmCMny1+ZNe/tzlucUkD2+Xx6pcPszQRpmP8q5nVbVphV/ba
zUY/8plti67UflFtJ3bf1aY+8wU+9yOgL5+3gRU9bOZ/fOMYNLPN799kA/pc
Ya+uWW/r1+PfWnv/6avtvGc+t9q6utkNa9Y/h8N2wLXJirLp7bnWs6K/Pb62
Nr5SV7PalvZpa5Unvmxf1dUdGl9sHv3cYK+cf5T1HzXOJkyYYBPGHmXlzVpZ
z2ET7JwlH9i3UavEXiXRz2/tw7un2fHXvWobttVVhS/332HK2wXrRGvhlLN1
9QN2xrGDbNCgQRF7/Gxloy78N/uyti65O/q37o8DrazDMHt+vbu25QNbuH9r
q5zwkm2oq9uvXlItikh9/VqVDb10OYCoXXrVS6JRhsTOVFNtpI8rh9rIq1+C
51WFL/d3/loPU/rCdsRzCuuQmmKbrV7ax0qb97CJd7xjG2trbG31TNujdTeb
Ur0u9qbDHOO6mjX24CkT7f5Pa5TxEYS75VP7/an72uEXP2l/31qQInu5Xz6x
vjuAKyNK1Anqam3tE/2srHKc/aF6sV00cagd2m+knXf7X+wf2+r6ulCw6Z0F
NvaK123j+kI/GuCw1n613C7bu8z2mfmybahNRfAu98uh1LdhYDLBpZF9vXyK
detwROzkAxz1um3rrPqC02zZiuoinHV1W2zl4gOsVdlg3FMVvtwvh1K/AOf2
CqqpbfvsYTu6cneb8frGxJFqN9p7f3zBPtpU624vsc0f3m5Tqm6xPuXig01t
y6cP2dxLl9nqrYkPfvn8YCtrfbDd9fFW501JsGY/6tuA+/rns8xDW5oVrK72
S/vX6T1t99OftnXb6mzb54/byG5729y3N6WC1dX+w16eFflfiwyXb/92nR1Y
3stu+NvmWNsf3Ly/le052974pi5XsLz7+uezzENbmh1w675dZQ/OmWxnXnKZ
zZw0yMbOr7bPa9KRY+sn99jgyj3E/k3jCL3y91U2/vjzrGrOOTZ68BRb+JcN
0u/DAuXdd0SAX/98iE6QFQGObyVfPeq++uqrzelXPwg0/627tnlzTXpt34TE
I+6r1177xAYfdZude84y6xEgcZ+79rv7/8MG9P8nW7L4Jfuhkiixs8540K66
8lk7Ztid9uKLH4WA3Ot6HwCjGZqD2tq1GwnoYdfk0083xF+tXLnebljwJ/v5
z54LykaSTz31ro07PvmE38seeosk4yzt4fguN7xkSbQOXGvTwHbf5d7vu10z
54dVl/4htg8+QbNQI9SJ/0r/j8haf7vmmWv4B0974YUP4r/hJqOPuzvurQ2m
uROu7JT8FXvU/wcvUq2xU+Hz/w8vapG5xmDEQCu9qsn37kgl7hoiGJT+xOMr
bIe4/K9SZPYaux0ViN/UwcUzH7dbl7xUr4O1dtrBKIb/pp76e3vjjTX/20Wu
v13jzLXHHnvHRo3453gCj/bHjbw7GkZXuZbfxcmaORrwYozxC2/6c6z8d99d
G6Q8oIHXKtw1RAUgxyca857f/HtsUHzaxfGHI+M/jE+IwTBk/wby2s1d++XC
P8f3K68LznvEfn3n8vhTeeBedh7Efuig4IipaiDCzBmPxZ9AHhnHb9xtd9z+
ahFLGGvSxKUZ8ZD/4D+IBfHQf0kD94OO0mBWg0/d3TXc6/Inh81auq9wiVq7
W8hCI0o26hKxddGuu5Of3Y1agQdE1iE6GI+hXg0IiRSdGtqha+W+gl8hh8Sn
f3bX0EEffPDNDFlEUOYj3Z0lSJboQIfRlrQoAdLBRqIRKEshQqk0lgcR7khl
3SX6BnQojXF32JBE//jUzbMV/qMoHBCVHrrUoCNvc5+Sn4CcNUhWNR5MZNj4
WsmSBDRCmGef+VDcVmGSrMKcf/nTMXylhzbk0UhUwahAerQWrjXPwlQ3I1n1
D8KEMRDV8amr+0ZZCVJ0GF9yGAwSKEl1166ieBgOnxxSBmN1zV+LkhE2lCxQ
kpWSxf1AzFpqSHLt36SH3kMDdRW+FNGDCThUFGFqiCDZpUtfTzsmFYpwRLIx
xqQpPNGXHFGLnlevjXYG5xZZfHfesTztWb8WzAgUSgyWYWgkPo3agk9vJ0m1
Vp5ltAd5mgQCREoli8769NN/y5ClIRWpGlKQqiHu9EISQhmH0WLjNLLhx/w6
jSceUs0rSVY7R2OvHVgSKXQMu3tIdWQiSU7u8YkkoQy26xKQyFmfWUbiSh/H
n+7wmuM3x1gix6fOjiEkwv3Qt0ObwkVbdibCfTzKEziVJ1zcy8DaJXDNg6ue
dYdogSGCcJFkMZQQriqbcEty1ADvZKpDuBqwu4hY1LgHV92LZLVPJ3B3iV2L
To9q6qb37rGLxk+y6TPPtVNOmG6/euNrLItY3YaX7Oz9u9uRN7wXLxzktq39
1lY+VGVjR5xuF1fNtuljRtus+961ja4gjxwUagtNVXgNOBG9FT/k4bhDtdC3
oZ4uoj7GBk8tEJW96Y5Ac6pF41fdt+/aNQdW2qGLP7QtdTX26W+Pts57z7a/
boy+2/Q3W3Ta8TbzodW2dTttN3+w0A7puLfNf/ObmO6WDxdb7/If2k/eSj5z
CM1TC2IWcRE/5Fn629czXqgZR2dRH7MVTy3ane8ING+ShnCXW2x6e571LNvP
bnw/mb7WfHqvHVK2i5352teJY7fLabLB1jxwmLXrPMle+crVVL55w2b1aGf7
/eJ92xx9ZnjOU4XOB4hZEyiqAh2Ecbqzqmzp6yFVaMRSDbOTJGRbxtODhH2t
ff5Yf2vbYZi98KUT56tX7dSube3gO/8r9ooEctl22n5ka54caGXlIwrffb3c
TuvWznrf/bHVRJ+dSfK0wmoUPt0eiP+cLgM6w1nngPacVjhrPmbonenU8fZ6
ld1SRqutturWXlbaxTdyqe19xYo4hBS0kt/2m88ft4ndu9jopR9H2qyxz5+c
Zrt2Hm73fLI1bou0NeIbk2vshgLNkIlXBxeqQftTZUBdLbNqwCDABOy2erXb
UjKW708N30bOs2H5fOtb2cOGTB5h+3TqZTOei1ee47bOHCHn4NComRDh6xhG
rWh2RK3oGKZa2RleeXugEXVRGFO/r44Stf3mbbuiVyfrvfDdSC9b7KO7B1nn
nhfaKxtqU3tEfPN0MW3Kv6TJDnWh4yl1oWGmMqAzz0PQnNMAVTE6UIFsi8xw
/p2C6de2ZeUS69W+p817Z5MbVxbZAe33svkrNgWrYiFt6HhH2EhaKTm1oSkE
tYHgyuTK0wYrDEpW00lqQ0dxDqGHLVmZDKFLh1iXZAhNtNE2r4nVrn/OJnbr
YsdXfxEnIxtejKJFp2H2wJoaumKjHEUgrDMZIGLNpZqKZEj1VBFqe08RGo9I
VrO8ZFRtLkkt0qv7bObEU+y82Rfa1PHn2m1vJulVqoWcNnWRVtb96Vo75dhT
bdbcS2za8PE279HVkbbqaK88LaiZCVdHDGpB5zvUAnIGastpoa3EH6bsvwoo
t5m7ptPxTu6azq/zPFkhEbrOUAldOyCh62jgQdfZ3q8CGiF0nUR2Eo0wnOZB
10rWbaIyhmxC195C6JqieNBZBVfoqpFm0o5FT0LXJDBvZUHzg39y1zSTau6u
6aSNPFS1HnQdiAhdq9iEjjaESbJwlvtdjpcHXYsqhM6iGzTdXGD6TqnieNDR
hTDGKFkaGIZrHhCRZGEdjEXbg65ikwdUw4pZcxGR1maJXa3TKgsd/sZZMMlq
ACNZHRoJHdahv8bQG+lkV+8gZa0ckrK6IgGrTTzATDvwu6CHj7zyXZYVyWpn
CoVEQkdizWGLPHTmSB5qk4oUy6p0sHDQ24kHUV+3iuv4GtEaWIUnNkyZB13L
izF0KcZlHbBCEJCbBxjA6Ju3CgmalYDViSoECKeZeYDVJtS1BtuQA1bINY4T
HnRNcm4t0oPWjUgMYYmGCwFmFUJjEpWinVgdkOUH8tDx0gOsprk1Rw+a5VUI
K8yMtgddwx956KCT54CATYV60MGe4S+kEWpdq3vlIja7VR507WpL3DUdQ8kj
5IpwERZNPOjanNBRcaVGSDYZ8z4qQI/dqSQHsPorAWtgzXNFVZ4HWONASA8t
hQQHWuoaeqY75elaIwJ5aA5M6CFX1N7hoJdJ+OMAujigEULXEYzQ4d28lgdd
w98SEYchljzUFbllVCf3rbPQVZuLU42sSmd6JKtjGaFrypMHXa1I6No7yAMD
Hd2T0NUSHnTNCAld574kqx2M0HXACkFn2U0zwsVp72glymMyRcC60ukB1hi5
WPTAzkTAmEwwYHb0dAi3ijtnjJcwdc1zsaiHfSLkgKSsw7oHGKGFgX6xgMtO
jBpJFbFAVrtzKJoQus5WyEOjRMgByUO7swc99mG3Bq4awWqdkkWpjwMMyWro
zIOus2zy0BDbMiAieegA70HXyEGyOiEjWV2p6ijXaMw86NAuI8ctARdrlfo6
e4w6rwPcPhBySCyJlh9lAGukJWBNZvMAY3GJNrkloCh2SbUJeej0z4Ou06FF
9enBsvPxjsKKXp8HXfP6W1JVrErzevIIuaJ2Yg+6LuUt8lih07XytASxSFaN
GYLOObou65FHcVaduB3zJPLQWKPQ41Ir9aBFRRLTvFlNyC6UBxiuxHooAWsF
kDxCrghfwPwooGvtrYtEZhYMdUsFE4EOYkLmaHnQNa8nDw22ea6oCYgHHd5N
mIsC4hB6sta2KgNdo04edM3wF4k4dM+QK5KHJgdtstA1gQxphNDhjTQcyWrH
zoOuE4xFAbEJXfdZkYf2Ng+6+rBqhMMPoYM1tUSyaszCUF8o2a6KBxkFrKkp
KWtQJirdGJB5ICpL4pcCLtuDs15KsmrC0L7JULHylwFFcfFSk672qdiFDutB
1+TnlyIOzU/ouuGLZNWEIegszWnHvrle82fTafLQgOlB19T0Zk8jMB7Jau1V
jelvXglB1yydPDTskod6fSjuedB1FpinER0lC8YspJx50DXnIw8Nu20C7doH
VOZBV4OoRrJdIxmQOaqRrE4w8qBrnLpZVJbVZnanqhseo1tLs4A15JOYPtfT
RnRDcCET5gHWdjcHhNAtOb4r4jP17+laYwPJ6iJI0rwycomVNqTfmQ3ctbPV
1r5wu10zY5hVNG5qXY6fbQvuetnW1xTv6Dn0wLE28uxHYzp54uswSZwasNWd
mV9qJsZ9GJnHp1mDShKohfV6Zkt747V/sx+0Km3Q7hzW0vEk7OCOne3El79y
15oW7dz5yaSDrU35STGdPPF1qKX4msBRfHgJh0uKrxvuPPE1HaP4Ohtq42D/
Z/Ul1qKkq13zxlfxFV0YbpKK+ycbUt7FThJx/QXly2fOsR+0rIzvyxNXRx2K
q0OGbrTi7KS9tOPo5ImrgyPF1RIdH8SCk/7nb/taSeN97XdvrE/geZsIGvMO
ETsRo3hTwQVn/cIGlLVO7w0lPM0DYt7kqQNxhmu9aMMYXVZvu8yMgk5N0XXk
KYie7A8padLHHvhrkp74e0nqF714b8mk8QtsTGXr9N5Y9MaaMGlpmALrQEWB
dQSgwBq9PIE1cVQ9Mntr4wvc9FC789lV31ng44ZfbSd18QSux9aaXhCj5oAU
XXt/maciqMATXZ8vIFldiCuInrhqk6b7281PfPCd3XzA4VV2XEVpg9xc0xNi
1CGz1BMT+Cm6eoInuqawqlEmYqUSmNo23cWmLfn33IB2dMf6Axp4HNHnNOvV
tlu9AY3iakpDXDrMUlxNLimu9vTMQ+LZtPdGd00TMIqLYeeI8jLrccqjRVtZ
EisBfI198dK9dlPVCdalReeM2LoVZtWn6+2wvfaxzntdUu+w1VxUz8SIYmsk
4tKqlnvbBVTmia1ZPMXWRa9U7MhJ555fZYN7Dy/au5LALrHazevsw7++YI/c
e7c9uXrLznIrt71MnHaGVZYf6d0allgjEiXWEZUSa5inxJrieRJrLf3G+hQZ
p6aFAmthQhZ6CpNLKboKR8qaWRCw1nzbBRB4gLWCdWOOHjRfI1nN4fOgI/fn
7m3yUL2Sh07iyUN3eXvQdeS4UUj4GkHWwBAWMmEedM1EfhHo+6HFZF5TX/Cg
a/EhTyO6bhoyZh50tRiha5QmPR3ceE03kXvQNXLnaURXiNslXh/ZMvRYPAHr
Khwp6xASUgCvIZAyQXaAud6oZaAbPD1AiNBCb8iEsa5j5ASsUZOA9dkSUtGp
O69pXd8DrOneDQKOhQaSYLah19zu5+06h4Y/Qtc+QXpwAvYxOqVmr22z0FVf
hK7jg79GrfrX6U8IOlc/NBCSh06wSU8n8YSu2ZUHXQMhyeqiYjtPevSDkDHz
oGuFjTx0ckx6unBM6Ox3EMGDrsuLNyRdLVII51nwaRYwSYzm2x5gHQkIWOtb
BKw9IbRvzAOsi4okqys0HBu1gMnMS1eVQtGE0DVxJY/QYK7xjNA1k/OgqxlI
Vodc3Q9AVqEcOQ+6jqvXe2Jrwqm19LaBex300PbE6wPXSFazCkLX2U4edN1d
cX1AZaGlztBmeQ+6anhBoC+TrBYwddc5jZkHXUPi9em9hY5IHiGn1EDhQdfM
gNB1b4PW/rLZQnYwCUHnooqWUshDw25olZY8NHR60HVvCclq1yjUWdNUS5Ze
8wDrkzMLhJtf4NZYUxpQlAcY+mK6RLJgw+BIspoahUwYQ4+RE7CmoaSsmstz
QK1ceYB1NZ5kQ2sUOgyHDJena+1WCwQSgy15qKOSh47JHnTtfiSrpiFZTWFD
JsyDrsVk8sBnhoJiB9Se4ABzT7yWkK9z13S6oAu92Wl8tjKdB1gLQOTBYhbG
Q1bzQw6oodiDro+/XieSsi8TOg+28E3oP+0Qgq45PHmojXW9yl980dDZLgtd
TX2tx0rXgKm5QpksEZGJcAg6FyQ1rJGHDljkoa5I6MWZaApd0/ZrA807eFrS
ImjoQY0QdD1ahjx07xF5aE9oExDRg67Bn2R1LCPZ0BqpJljNcqBr/CEPLZWR
R2hFUBcuPejaha4VcTgz1K0a1LB/3AEskQddT1G4NiCO75TAQuiaYHnQVZsk
q2MooYcW1TWDzoOulQPy0DMl6t9TEZrgBR/2vQY/M3vWdPmpAKTwREUeYAVy
rdBjTPJdUTcw6H4YD7B2nGvcNZ1CUNdaUyIkrbzG0GPkZKrjBCnrsFLvXiEp
66UwdVZJYprMhla8CFMrpSENEzDa0Do/D3TichEitJeDavQ0rJ3kGtENZdYt
ZUyNSLb4YcYwdB0dCF13I6oDZlfAsmmVBx3m40oCyepYFnq0gGTVYnnQdX5J
Hvq0FXlAhXzwTDda0WIedIVJsjpdKBf2/tYz3dyXB10HE/LQFVp9GoDOQR7a
Exx0HrQBiPzqaulqDPRat+UwTLKhhydD0DUiE7omzOShRU3dyUXn9aBrYYbQ
dSwrD2iOZHW6HIJeGmB/tcCkxcoD4jA50wSrTKDHNVXqoXg+gtha2MZxwuQp
Vtlx4P9gO0hy3n+j8HH/odVDyqxbQSmzBn/KrKkWZebAUVhMTc2lzk+yuk8y
kb5lZhfH2+/+3Q7ba2+rdMthDd8NkrwloG2bUfabp94JvSUgTwMa2AlVD2yi
BnSGpztUsyvpqQY0DSBZzfQTDWTXQRFasA56YLvu29kQUhI53Abr07OvHTPn
WbxEIM+v1XY/C0QxfXrO3++stRlPQt3tTQmLq1WFxXEucMd5xOFVNqZTqbc4
HpKUpzEttKfnDOah/8GMXWsyFIPi6sOoFQHRKK6m5U7criIas46rAlpsn4pb
vJVh0ID5dmq3Nt42iJC4TQo+lX1DQOwL8XaP1iITux/l1Ghe4bVTObV/enJq
pKWc6ud5cmLLxoTOrRsgZ9OM+r1XCQTXhUOVceJDeZ7i+HVgRGaKrZFbxY6j
NHVYXJcr9mFcnTrpGhvUoXUDfLhphqb3PoJcYbWWQmF1FAk9FV14oqV91rK6
pU01x9jQIRCScGXWWZdYD7fXLG9Lx71LbrTeB10WfE9BnpAagYlL61/1P72f
jM/ZRYlUXHRWRuCrUp2krzvwziS54LgDrW2nkxu8kWPRT8+zypa7B99dkCes
BmMKq1bWB/M5F9DVKSbUnrAaiVSHbE7b+oeQHLL/GBt/8VMN2chxw4JnbO7J
JwdfbpAnsdbIr/T8FebUGpr/LFzxwk16Mqkms1eKIv0zH7SSp17DvLl5DnQN
seSh02VCDz2BqHm4B12d+6eeRsCSZGG87AE1WaOGoHPVTMMkeeizWOShna+F
hwXRpH0Wugafn3oa0aNZ9DkpNSYnVXnQdasAeejspzLtzKRcPA6ngHWSXNBD
8WFAuMaZoZrQf64+BFgnCeShB55qvTJ70GF2Mu1B17pcvXqwbGUqZMIWOdA1
EfipiMOpGXncL2rU5/TpTh50NYhqxD+lTAdp/5H09EiAGLnuWuERVaSsExZ1
wOxZm9mykgPM45g1clwhXYNVO7+CqHrVKJGna40chI4BinwLrliovZKebqXy
oOuxwYSuMw0WLnT4bC6sWHIOQdfn/pn8zvfsBFWQR8gVtUboQdfyDsnq1mJO
NXQw1I2gNGYedF3JnC8weagzoYdcsXjCnkJX9r5G8JvQi08pzp6sngdd2ZOH
jqadRWW+Uxav9KXQ1V9JVocGQtelUkLXTpwHHTDpr+ShNUctSflOqUOcg75L
wA9/EgiJJKsPG5GslkHzoOsOifmBe/OcUvMVDzoMziVCQldtkqw+dqTnKzFh
yIOuSQShqwPmOaXmKx509UNC111RWvXxzxXS4lsIuu58oObIQ4NjyClDD7l0
yEJHN6UfkqwGR5LVkqeeIMaadh50TaEu90IBYj5zdB1Xm3nt8NuDrof8Xi6S
ssuQrC6HE7ouA+RB1+GfPLSYTR4awwm9eAE3hU6DQHpfI4UTzMNrakUn4cTI
dQGdkzpS1sm1znX99Q0dVx3gXcXUTDnnpc0LWSLJ6iDRzLum59+EdK0ucbno
lQNgVxGH8Yw84J4U0YOugX6eNCcJktVO0ky06Z9/o9D1GXP2hHnCl97cVVSW
fT1INup70NX7SFZjDbNJPR2blT8dB/Oga+ckDw1/+p4H3xWLV5xT6LqARbJ6
/gGh6wMWekQtY1IedFXP3EAA8JNtXVRXr/CgawcjdD3Bk2S1EEjoOmDlQYdj
MUufG4DJVER3GTYVvtm15/TdP+qHlwXEIVk1OsnqEJ4HXbspoWuIJQ/dUtw0
gM+DrpAIXSNtTDae1Ooz4X5RQQHraR60HSnDbnSx0Btn9NiT7DEeKWD1PpLV
0NRd2vnHDutMPw96kVJiBewiCuBQz7qjWqdjFrAODQSs/krAGhwJWHcD5QEO
KUUzHPLQExgIXccJD7r68GWiG5qfZEOPIoUO8QlB17OdyUMTrNCcrEl6b2Hk
dND5Jk6+aROfqsT8PlmddIQ0EkOPkfsHokEpVYFrdBOt8JBy8X6kFLAG9Tnu
mubNuwRYNREd+ocZqa5D58XNER1yrCUPfQSHPLQi70HXZHaO6JUrW4zw2qtZ
mdVzsPKg891nykN7DKFr6lZ43UR5FrBOpUhMCzOaftFhCFjzhjzA2iXJQ21M
wFp9oa6L9yOlr77VmealYhp2DULXh64bp3oIvQaQgLkHVJWiQEhZc3gqRacu
HmDogB2RgBGGOEkjWZ0aNw6wD+m6IkcpOg3Os6euqXvQdUcPyepoRbIamlQj
HGryoKudfux1ccQhhmLdjlbitSvsTEqhgzWjKskyR0PXTEo0yRsS6nv/zoP3
3md7tetQ7zaPZp2G20VXPIZTP7gmvmXNk3bnVZOse/NS6z37Lnv5i5rgGgyl
1w5BmFpepvSa1FN6jTCe9KqYHweaJ9K3zH3NzosvvGD7dj3Y2+ZREm/zGNC+
0soPuBn0iQaX+br20INRFTmG0ThGidWnyKN4T5TtLp7NyD47ENESiVvkvgBC
JpHJiZzJoQCHl1Vap4MWOUk22CvnH2X9R42zCRMm2ISxR1l5s1bWc9gEO2fJ
B/WehxA6LZzSqw/sFtAI6aHknd1WlUqvac3sgAIrae8GvDuE4y0PJYUKDmxb
YbsOuSvdC/H1a1U29NLl9hXuLxg+ZPfQ6fSEqDMKSo5QxAlcSRq3K7Ly6oBL
Ylr4Ksi7/ffGMCaqvPu07mj7nvpQKm9dzRp78JSJdv+nNUXyxns/dPccbUlg
fGuoShl6baSuPnr21fF6tig0u0LRMHnJRuXt0bKDHTyz2l1rbJveWWBjr3jd
Nq7P79Q0rr4f8hLP1fGbcUmHzkYBOZzYe7ivdFi7ODA2JJ06vAuk+JU4kV1U
5i7Nyqz/ta+kMtdtW2fVF5xmy1ZUN0hmtQll1vkoZdZKg/+uVfSziqzMumpE
meE92Vfs5QcyfHbpV/oO0c+et7LGbW34fe87hyuxzR/eblOqbrE+5fX23uwj
QJ9kUOnbdymsThwpbPEer1RYzRFJVl/EmQib/6IatNDzYLg55GczxljTndva
8U/9nQLX1f7DXp7Vx0pbbFfgkBkg3JLFL2UE1qVjCqxLUJ7AmmNenEa3rhQz
9000mZebx5+xIeT+O5baIb3OxIYQJhpbP7nHBlfuUa8Hh96zQxk1ke0RkIcy
6jK6k3HPgK/Mctc0a9zdBVW0Y1zEP+dPoReMVwbUR9JUCtyM8VInsESs83YP
sUbemeww7v3DILuHQ6xOgX9uITqEuHNAGSStQ9weogy246umo2jSKQtULUZq
fBEuYgqpaTuhlgdUZZsp7NgVQzpgz45Ye0BZ8wFzUtO5P6mpQbmuElHLA1qk
g7gL7emiuH5L+In3WE9HQEeVGe6a5mB7umiBLPWZ6vfi69FErG0OJhWD4qrL
7+HQccyAf7I85aFT/c4IkCI6BKLx4+5jdhFCxzU09a2LxL3Za3o6kmA9edL9
NIIHTDWrVACgQCW5hjQIcTzeYRGD6hIQj1T0Vc6kEj/FESkefaVzFogqW0k4
T7S+OaoICaEDzuCE1V4ZV0k0d6G7pgWbPFZwsQzM2E+PzjIAFs7ryEB9McSA
KyPwTx+ceoonC3I05syh5nmstEZ/QcCDPKl0nNLmiAho3i+HFdTL+SHvpYPg
k2O1t/tKy5znByJiHqsQTA15Hiu1C1mp74RY6evffZiaTnistCZ8vrCnq+Sx
WnjTn9P63PmiJS7ie6yoBISm8wUt3SKPlfbE8zx6CHFDElb7BPr+uV5z2Kx/
gBXL1Bq0ea9m2x4rfQRJm3MRtH8amHS3FtXLO3QK7THQ2U2oeZ4scARal/fq
8UOO1b4BFz/HXcPgwS1weazUxXkvgzasNzTLCr5DCaZ7HRfaPyLAaheRgDB5
r/ZEj1W8xB2hAPlQ8zxWGsWnyzX2RMfqh+4rosenswPN81jRxQGJrLTjeqw0
RpwdaB5ipcVZKvAsT/nw3WFZVli3gBehiTZ3uZ4NyGEFmIwRvFeHUMfqRwEF
nhmwVR4rDoNoR1aqfGUVj5ChRiEGuwXURnCqck8W3acaap7HSkPrGQELHZOw
2s99pXnX6QELDUyD0G4BZZGB2sVjgD7AYfl0aU67DAzIElof5L2qco8V34cN
/Nqc3TCPlaqN96rKHav93VdJbEq87TSRlPEuj5V2V96r8W54lpV212nSnKsE
RwZY9QgokPeiT9JWHitFxuY6gOWxgqKoaN6ry3CO1QHuK9iJyKaKpIzseaz0
4UGy0nTAYwXTEtnUQPOELGYS9S+z7Njh6tGE9uNlNnvcyXbBpXPswsmj7Kwl
r8bPHobWWVgQ0PFyirumqcexWbF02JziaQbfJWTz10925DHZuk0r7Mpeu9no
Rz6LH9up/aLaTuy+q019Jn4veWhFgZJpMkGoWrBxkvUSRTDNOTXQ7ROyxc+a
New89GbRfXOtZ0X/+AG6GGrNalvap61VnvgyVgvyJIk7TbwYuSqVBBNJhglP
Ep0oUBK4YrZC17DicP2PCDazdX8caGXRvc+vd/du+cAW7t/aKie8ZBvCErHa
p53uFAkvXHIdkZUojvDDkjPS2Jye+Oaba5yiwk94NvxA7222emkfK23ewybe
8Y5trK2xtdUzbY/W3WxK9brY+wonmDMqgDt9n8j4IDVQO0EOFLkZm04OxLod
F6RV8HjutU/0s7LKcfaH6sV20cShdmi/kXbe7X+xf2yrCwUDFqfg61xyPjlg
Kk8aFm0gPJvr8FWQ5rs4WiP7evkU69bhiLjrhJ5qInz0eFR+8GmyeBVcBwsN
IxP4BwVC3ySvOZxwzx3s8f7Tpds+e9iOrtzdZry+MYFau9He++ML9tGm8CO0
FAPq5HrQZFE1x09PDE1AKEacc7k5BMXIWypo0EHgtV/av07vabuf/rSti0aV
bZ8/biO77W1z394UFIdVKXUg4kOgZT9w4hzsvtIx+iR3DZkISaTi5CwJ1PNc
aLLkE5ns21X24JzJduYll9nMSYNs7Pxq+7wm2DN6iv7p6hRCh3NPCIz+XGCf
GPDEowOsWCPCdJG5K+/VVHdUlhUQcfsUm7OOjuZ5rOgmaMd7dTHdseodMMOJ
cu3yeU/Fn0KsWE2BNhhaJohG0F8xKh+XZcV1Cgg+wVMgEsYhOaw48KM97+Wp
iJDUsTrEfQU/pL7HS59iRSSPFVjQYclKY7zHCnahF5GVjswxq5gTqymwBirP
+DTO00Pc8RMGfcR34Hv4dIK7xvQMDjI0IAtZcZBFZX+cAKaDeKzoY5CFrPQx
sRArljggL/OqEwJ6cKwODUg11tM8kp1hOayYO0Gq4z2NYPAek2WlUpGV+k6I
FesOaivei30XrC07VoeJwJxijXHXkNWxN+WxolTwuzEBjYzNsuLsGb1ptMQN
XMN3xwRYsSwAm7I3jfa0BBiO1eH4tTPCw2i5MTtnDjMg7piR6CZr8YSBRAZE
gVEeCQSS4QFWnKvDCejOo4QerIvfiYOkBX8goDuPlMhAEiFWnNVCcroz73Xr
ZfEnjxWsQYOOEKlABn51bA4rTqAhAe+FizNWJj0srVeDBdNTksVAQIMemwYh
Tvp+dtWz6ZDAOwAq24XTcitUtuC6JKBSRegD2elKVhadXzII8V46e3xSVpYV
92irE7O7gtSIACtOKjAa0ZK8F92VUjlWLEwCPXo3rMKuqW4aYnWgtIMSNS6q
VOOzrDguQsdDU6k+SQPTyBxWdGdMQniv2sqxYjGPeQ1+Hy3sKdmoAKuDhCxg
apZBv4NUyYCYVqVADgpE88GB3hRixSQHLsW4OFjosXd6rCABWF115bM2yFMq
wsxxOawoATyQ9xbc7BOX+KSlInwFMz4RRd2jxFWQ7xSSjSwrJjm4h4vERwpM
xAi4S5KSpWTRcVl/o6Rq7tEBVsw8QG7a1H/JFD/BHvdCYseKAl8+7+m0+REe
Mnw3JocV2uFe2ItuFucPUYDGQs5JWVaF5k+nrICMzj4mDUd9ROVQGzow70C8
oYs7BvQTGhT+whjIcIv0fWxAFqYDcAIYHurlvdyFDBjJVCD1fj6lD/yHe2o7
95xlaQKirDhGq3UPF7UxECQzwTQbJTLMJkgCCoGWIXGIFclCE9AInOdQgXnp
j/8Qw0zm8mn4oDUgXR9RAp4rQT8/IcCK4xp6ICSAwnkvMwrAdKwYUNFz2CN6
i61AAt+Nq5dVSSqB89venrkKtaM02lMPyAMPEj0g+M2c8Viaoiu3fsJt+tnL
4jATCcLbIRNkg8WS2ls6jEFsqBEW6+VhdtEiMcb3WBSu/dZWPlRlY0ecbhdX
zbbpY0bbrPvetY31nFjWX2ChP0KSyEl6iSUg76U/ftLVIdOxHN4Ld4Sv7C9U
0C9hvEgviZd+X6Xhprb5g4V2SMe9bf6b38RXtny42HqX/9B+8tY3QeEYi+CS
9LH9PWvC+6O/nXAc0tnX4IE/kjvw2anocAdq+7WicOVxzQOHWbvOfrGvne33
i/dtc11467wOrPBw9MUfBQSKHCtZgXCJQ0nckxH+4OTRt/vITSCWkWlHynfh
dwWufXKglZWPKNz79XI7rVs76333x1ZTj2wcDulXgLWvg4k+BtlOPeV3QJ8s
xrj0IfkWIQBeF5l4L5Et7tPR5Ui2vqlsDS20ho/JQxFsYvcuNnrpx5Eeauzz
J6fZrp2H2z2fuBPk4mrxQAcCgQYAzjv3YeDcSyDjsjNHsjznMoeCVRA7ohiy
p9yEzojQEf3d73sSCAbbsHy+9a3sYUMmj7B9OvWyGc99Ue+ZaYMcHAxViJuu
eEqUiLoULRIkWeR06UNJnKrjW6RxkU/2cJfjlDi6jMgY3dR/h/2wHtG+eduu
6NXJei98N1LDFvvo7kHWueeF9sqGcD32aAcHPgjlIyJGmv6B2AVhHl9Fv5Ml
c5dNNE6DH5wXvwvPfya6QhRyFh3Y4NgRrjNvWbnEerXvafPe2eQC4SI7oP1e
Nn9FuDA7xEEEJGQmgIHUAZAJEakBzAkzRFZKth64kT7ZrQmb4U4EQQjURQRn
Id75puvN370EXbv+OZvYrYsdX/1FPBZueDHqbZ2G2QNrwg+TDRMLAg/+RcNv
V4HKnuWM6/amuKG/cTye4S40QdPC6bPJ7TzJg9WHQdKNdrA6XeiBNbbuT9fa
KceearPmXmLTho+3eY+ujhQW7oFJNtMko3j8w9/RiK1omSACMWo4ycYnN6Vp
Es/GUN+Fz8L4+ByZtsx9DdmRxIA4c5w0/mYxHRvABBWiAhJRbe8wYQjGJQQN
YALDZLucS+KbxY6IFX1S4I50pHUR8xauGTwQl1iBhAh80DL67vQAxlFO37gN
dTeAAAdoAPMCgGvp2iDzgcJQ28U0A+3QdQA42SCZLoABMGvoO8c4SuIlZ3x2
DyvuHD8c0Tx9ihSUABaNKSOOr4s3QweQJxO9jrF2EStBB6hwPxIB/M2qNnQH
bvjNswVAH9VttMdvSAxFQcpk769L7xIDQhFgA906EnGhLzIgH6/DV9AFEJ8b
QHyCkEPwQFugckdHkRyUAQ4QnuSS5y9sRYDqW/JV/M1bDWu7w1/ZTv8N5YCO
Kg==\
\>"]],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwU2nc4Vl8cAPDX3pv3NVL4payEloRzhFDKSCVRUdFECFEZiYpkhSJlZJSZ
Vda59ix7C8kmK9s7ftdfns/zXOece84953y/z/uVtHEwvUFPIBC0GAmE7b8n
Dbi1tyRFsGa1/qtvysfBsfxHC6w7RTAKJaw0VGUCKEjOvCeKimAJ5x8IvUyc
ANwbtevK/CKY+NHOJ8eeTYLWVJ/Mm/Qi2NEmygl4YhqYs66IdI0IY//ttuW8
m/cXGLhcq/0zKIw9kDMn+eyaA2rDrS6LfcLYJ+9TqwMv5sCOb5nNnO3CWPp1
so6e5TwYtrv5TLtSGOPoPbzvuecCsKvtX8hOFMb2R3LsiqItAvMDJ+PKPghj
1N1t8k37loD+h2+nmmKEsR8XpE8/vLQE5NzeJE+EC2NyQxZLR/KXwNweI8ud
fsJYyNaK1CGbf8DVv6I28Low1mnD4LMjYRnYLSk9eHtVGGt+1rAzq3YZmF/+
IJViKYz9ftXZWjS7DNQOP3pcYSaM1aS1OGkdWgGUsUMHNnSEsbFb/yTlsRXg
p5sWZystjH35dCfkTdkqwAI9jHdJCmM5r837agdXAbn1FH3PDmEsWbV4wIW6
Cpwvz90wEBTGGD2SCXrqa8DG7cA+BQZhzOCndwPD1zUQV8o4NEolYa+er1Vo
/1wDvQxdIe83SVik+Pc73NNrwDjEfZl7iYStFtNlnZJYByCttHhxmIQZHzxl
EhuwDjzmg+99HiBhvwReq9z8uA4KDl3dda2HhP1u5xf5+W0dKFbQP+1oJmEn
9hUBh8l1sKNf72RhGQmj6J1LVNXeAJucbT2PYkmY25Ds2pXJDXD4bOLLQ9Ek
zBAyJ73d2gBOb13U58JJmMrE6+AA7k0wJU36eCWQhGUxpaNnBzZBj6al3XEP
EpZZ6xmh7LEJChzHV1jM8f6OYSI2W5tgqaAwBTtLwqw/PbP2ZN8CipTnFx8a
kbBTkhfDLUW2wKcX8qXTJ0gYz/e8Vo/DWyAiwdHvxyESRtUJuXjcfgvc79jk
DxcgYURmkn5DxxaINDWyiOAhYSwt+cdYh7dASUti/BsOEnbDtyVRcmYLMP8w
VIpmIGF7k0qPThHIILY67vT7f0RsraToa78cGdQVHH+e0k7E3vrKv6pxJ4O5
g1HNqc1ErOuxnTrVhwwEcmeInxuJGE91d41IIBlczor4lF5JxMI/LShTY8ng
X8p4RU4uERO76HrqOSKDnW9fUorDiVi04ZlbmzQy0CEN6ZS+JmL6hIrsjywU
cOvNgaCyQLx/dQKjMg8F5IUOiJY/JWKRLczifDspwOClomqNMxEzreGb71aj
ABfPNqeWs0QsxNZSssKRAhqsRCdHBYjYiNbJge5mCjD6oA42eYjYuoRozr5O
CugYvhzJw0nEHOmN97n2UcCva4k6aoxE7MOvS81DoxSwcEsh/vWyEPaJ7vRD
0Q0KILlqWqh1CmFXN/0kTXZRQWzh1RyjViHMkXmCYew/KpDY8GW98UMIa+LY
5LSXoQK5R7UFr6uFsPbGRPGrylSg6WssMJYvhDWWio3WHqeC68E2Ta8jhbB1
q4388mtUMNXs99+nMCHMvGFCodCOCuz5UjyKgoUwNh+9osQ7VOAWMSMz5i+E
8Ty57WfjTAUv37k8U3MTwvTa9PMe+lJBdrK/5tgFIawlyPjQ7g9UQCn7nK0m
IoTJZA57MbVTQVPffs4tQSHM0vxeomEXPv7VPLtiXiHsJqO2d1AvFagrop3q
rELY3fpbJatDVODxvj1IY00Qi01SC3SbpYJVT/JN2CmIZd5RnjnGSAM1UT5V
hFZB7FRwmIwwCw28yWWWKG8SxKyVj16YY6OBgzO83VpVglihW2/Tcx4acLaQ
1tXOFcRa2J7OuInSwILqGckToYLYL/W9dYb7aQAza3/E/EoQKw8bSG5WpoHX
juY9Nc8FsQSLQvvTB2lAMdXmtZ63IBbG9H7h6FEauEdyo+g7CGLeC2IqPcdp
YHrlQ++p04LYLvlf2MFzNPDn62KoCZsgJp7Pe6PMlQZimTd9LZgEMeFqyukI
dxo4b0Hvco1OELtxQJXOzoMG6ugEzj/YEMB4T/f+oX9CA5nGB0XfTglgLBEz
1kLPaMB9zjVhuF4AY/cDml/CaIBTjvzV4aUA9ohZx7XmCw1UP2ZMcvcXwLS6
SJePZ9DAk1bONz6+Alj9z/LO4kwaWHQXdwv3EMDMg+efp+TQQFet5rHC2wIY
JZTupU0hDcTf8KmknhTAvh+Vlb5TQQOH45k7XnEIYGr/LX4c66IBteb79Vos
AtitLZULh3toQJMyULZCL4DlOZW0+/XSwImLuWlWm/yYaBWritgADVzgu+q1
b4ofa7eyoVP8jY/f57vcjxp+LJ9/V878NA18t77rw+nLj60ey5ShkWmg7HW3
K/aYH1vTdsngpdJARenxuy4P+bFGZt8HEjQaaBARuTDgyI/pjh22f08gwL7W
aoX0K/zY2YgjWRn0BLiptavnlAY/JrXPbT6ZmQDVpdoUA9f5MMqD5VPM3AT4
UYDj4NllPuwH61N+F9wMTDpHxRb4sK2BoH2/cTdM5Gt/meDD7n50v/GdhwDN
M96aN3bhz7sMb1rzEaCLqrUvRz4fVpQYnhQhSIDpZxY6A+/zYYmL2bn+ogTI
C2X7z97jw+JS2zeGcTsr2wyL3eLDprsavqqJEaCaYMf0l6t8mCX3Le9Z3HW9
hbRGIz4s9tm5jwbiBDh63UuWU5EPGxbijp3eRYA7PLkfB03zYvc2He807SbA
W0kNpPfjvBhH+LcnfNIEWPDD/2vGCC/mb3dW7jxuEwnaxM8+Xiz0wA3DQdz+
1fOmfI28mFjrdN3UHgKc52mVifzCi0Wp3mSZkyHAiqTwjg93ebGOP8K+mQoE
yPPTyCH7Ji9WN8H5YAK35RoHe/l1XsyR7hqXxD4CXDPwAyOWvJho/5v9IbgV
5l0+7z7Ni/H89te+q0iAb46e907bx4u1X9VYElAiwJZYZXPbXzyY1aCY338H
CJCQ5BD5q4MHM/vv2sdzuJW+ZHSYNfFgL3cdsArAHfJd1kS7mAdr2JX2fQq3
cZfkSYm3PFhH3gXmzwfx9nj41fvMeLB7ts2KIofx9kjGHiaGPBinyBtXXdxK
O4O/1WnzYA/Yrl67jztEgf1QoQreHi/Dvjrcxgb0ihG8PJhK6pGA+0fw9nyX
dp1p4saizWVf5qri7b1UulxdyY3tj+PW7MOtFGofq17MjSmO+70jHMXb+zAt
LP+ZG4s9PHnaELdxyQgf63NuLMQ8N3EId8tKG0OFNjf217NbeVUNb4/Ce/zo
MW5scm75KekY3h6jkXe2Cjd2n9nIRxV3CH8jOU6SGzsQd+LJQ9zG+ytXPGlc
WE/KP7813M03cycOFXNhdYzCw3/UCbBtaM1YM5cL+0+vQYSKu+u8etGJL1xY
6aXDHMIaBDigUx10IYYLs971TOgU7mmJbuWHnlzYCl9/fQZuxt5Nz5JjXFjx
imXZDU0CZDUGY1UHuLD4EYqHJ26O2qdnfshzYQYiRxZCcPPnc0oOinFh5UsR
jMW4d4XurKFtcWJ9KT87OQD+PRsc59Uu4cRmG6p2fsStifk/PJXHiSn9990u
B7fWkcaRs+mcWPSNl7cqcOtLm+Vfj+XEntSgqD+4z9HZWvg/4sSiVlTjpCC+
39w/Vwa7cGJlbf0Zyrgt5+cUou5yYqQdOq4Qt80vN1qKJSd2JuO0shVux+8v
kurVObHwr15G4bhdlH5ytR3kxDREX+3+iNsthd+tT4ETk38k+TUd95M3MQYz
OzixCIO81Srcgfcz5jgpHBiReGD3Eu7gycULQisc2GravhIy7rArh8vF/3Jg
cvoGnCxaBBh9GoUr/uLAWJqSOkRxJ8u2qhqXcmA+WXyMAPfNvTnl3vkcWJzL
vLIebjnp0JM5GRyYV4uKqBHuTAkTS/44DoyXEiNyGbfjTuWx45EcWLjMW6Ub
uFV28Nk7B3NgAR8+093FXUhq9ep4woH5BX1tdcftIZTDyuTGgT0K9mx5gltd
IDT0kAMHVrhEee6HG+M2SYy8woEtGPzY8xq3L6eyQu0FDoxpaoIjArcOO1/+
mhEHdl3rwudo3HVMrTXmkAM7klHHH4/7JUOO0QtVDszJI3wgCbchXWjPdyUO
7LizzpVU3Nw0R+tpGQ7s17Wyd19wt5KNp0UlOTB2tz/BmbgjNpWcT4ng/3/o
zbEc3OfXecmefBzYil/ex1zcwqsLfulsHNhGimRZPu6+fy1cv+g4sCz1kvBC
3LGL2ZFcm+zYDfVrkt9xX54P2aW5xI6VbS7bFuGW+OuYaj/NjucTRteLcY9M
Gyt/GGHHtMrPiJTgTppUKmruY8cK97U827btOK82oZ0dG9iVlbZtmdGFRqVG
diw9scZv2zO/W8ysK9mxH6KLxG1nDmX/Ci1mx6qOsV7dbt/xV4htRS47Jsw3
dmW7f5V+x/mlL+yY+/oV4vb4lnuM3f9LYscG442fbo+/oEuJziyWHcvkDk7e
fj/3Dt6XfhF4+yFzXtvvr9a2wJ8fxI59r9fj2Z4fcnNLzJgfO/Yhzd5se/7K
fmTvJj5mx67bHzHanl/vxpCMEw/w90l4QEvBfbze8bDbPXZMUJx8fXt9mGqN
UcoNdqyOGuv1cXs9q5T0e6zYseWvskax2+tZwdvKep4d8//r1B61vX5lLSO3
TrBjV+Q9Nl7hbinOvvNOkx2T2+h89xx32PeQ5YbD7NjRYdkFX9zEfGNmhb3s
2J7Hf/Ndcfd8VXptuYsdMxJZkXbE/S6bV/gViR0TeLvb4BbuXektsnMs7Nj9
JqlUi+31Scv+upOAz6fV0z+m2+uTEnLMaJ0NKwvc33pyez0SjU9nT7JhTHT+
FUdxK71rcXSqZ8POmZatCuB+buhKv4GxYawGW/2suIepYhFe39gwXsVn1yj4
/nx9za4wKIUNo7dVMx/DPadApSQ/Y8N8hxibs3GfGEp8ve8xG2Z7P7A0AXdc
qIFkngsbNqhYcCoC9+nVCJ3ya2yYoe0rXVfc6Ug+sF+LDUs6JvDpEG5Gp9Yd
NkfZMIX5cP/d2+fRbrfMSSU2rPZ8JaMAbo4XFa0ru9iwP19jOufw8+y26UVh
Xiorpis8WRqPGw+WP+kUsWKS8+onl/Hz0ztK4UhjDiumUVxWNYC7x6CtziSN
FWtOZuuswh2QKT57OZoV+3WLNz8c97hbnspDV1ZMVEP6hgLuJPYRlKHCijnd
fcpvgJ/n5JIAk4NyrJgH53q6HG4zh31/iiTx/qx6OzhwM3S4M9fxsmJDpmEN
Tfh9YfOe5/TIHAtm8/OMhgFuSSWNPuIXFuy1+ad8efy+MTSdilRMZMFIv1lv
s+J2d3lz9kQMC0ZX+S9nFL/Pfn772/QgkAXjz9+1GYPbQysOddxhwZrfFl9i
wt1hSksKU2DBgq4oDVbg9yfN5Yv1590sWPJJI79o3HJRF3ZW7MCf/6WRdw+3
d39W1CInC8b36HcmEfe+61dfGv9lxk71Hifb4Pez/4NyB+5MZuz668sXRw8R
YE7UPYU9yczY3R2z+l9xD3wXmdKIY8Yun2gu8MKtQr1vcy+YGRPhdGYXwT3k
L3WuyZ4Ze3y+wkMXjx9Uo5+qvdzPjBm//VPlp4Lfj0W6TMw5TNh+Js+sSDx+
+RJa2OCcyoSxFH2jGOK+e1M25PcHJsx2qCKEHvdfIS6x0mAm7FRQktcdPP5Z
cOxQcrnLhN2/H2R+EI+XVvdcsxzZy4Tde7I39aMsfn5TOiSNdzFhmQ9dw07K
bp8HJyZKiUyYmNDhtH94/LXhI+f0lokJc+Y0PKeNmzywGGD8hxF75Bnp1oPH
a/Th3rllcYyY5aaaSc9/BFh5a8ldIZIRu8icu88Ftx+8rvnuFSOW+VdDhAc3
05xe/YNHjJi/8m2h41L4/W7AM6RgwYg9C2ywi5XYPr/fs8cIMWKyIxeCJPB4
U+xOsbVbEAP2IrhW6LwQvp/r6k5w+TFgtfMMfa14fCu6p0s+0ZMBo0QL3jbc
9u+FlZ+3GbBLwvojGgL4eX5hz8s9BgxYeCPDbz48PhbUDv3aycSA9druvunJ
id8HH+Oi7lDoMZ3Le7xGOAhQgPrlEd0KPfbCq3e/Pm7+7zUn9o3SYydNzYx5
2PH4eT+5z6+CHpud4JQNYiFATjE7hoNe9Ni3NfVZdTy+D3J3max3pceK7m0O
B9Lh+6/L58cVe3rsn2WRci+eD7CHxkYFWtFj8gFzX37h+QMrS5v8n2P0WBYH
nwXHBg0w/VM3C1unw27eESYXzdIAtYH/08J9OkxvPSBCqpUGTKL35JNu02HH
NkPjrjfTQNINtWpNGzrsXZ1kYsIPGjhJsBkLMqXDtHWmHfgbaCDyUI607AE6
7FK8/ADC86V9H42SrZcJGPKaiNLLpQHve9cKns8SsMMVJi3aeL7VpuZWkzVK
wPpk4uGxLDwf6owbp3QQMOJR+jAxPH+rYp/b8y6fgL1PE7j7MYEGLB8EpbS5
ErD1RPO/GSE0kHX8Y+GGPQGrP3Kw+nwwDdDz5tVK2BGwSgvT4Y1AGkj93D9h
fwHvX376nWIADSwPyclwqBKwgbkMBePHNEB8E2YSsERDBSeaFK/dxPNhwGl2
a42KjumI3DmA57M62ujZtXEq4vTac7vwEP68nlOhVScVlfJX2Sir0MC3Mz2i
prlUpAQrMpjlaYBslfRbzYGKJD5d8FbZQQN+j9QdOCco6DJWZH2HTAXnvOc/
MndRUBqWekJ9nQr2+CW0Eaop6I17+VPCMhXUBbIeXkmgIHk5gpbNDBVwxXSQ
f12mIL9XT+Sf9VJB5Pe7L7O6yMhXzfWBcC4V2JXuKkmrJqPZHwExTJlUoFre
9jcxj4ymWU++GEmlgr46VZPoMDKqdGzNuB1HBTt7GIV9zpDRq7yNW+nPqSBl
NfaTac0WOv9Nfl/uRSpw3zTqNszfQp4WAfweZ6ngJJWeTS9pC3n9PtIhf5oK
Zplu3T3mu4Xsina4nIFUoCR06MBuzS2U/FvL9pk0FXw78ANbyd9EucTaLMsZ
ClAivdLnT95EGeM6DtKjFJC6adiiGLmJXhyNquwcoIDo8qYhO9dNVG3j5j7z
gwLcjJqovYc3UVNvX+ZgJgUcvtOoXla4gVKTlivd71BA5pnAqr6UDWTqRij0
taGAPSqnDNeiNpCJp6be3YsUQNxouKTkvoFuq8r29p+ggBX/Bo8E1Q2U3Dqh
IiZBAXkJ9d/8v6+jHl6A+TSSgYL/C5iYto5+J0o2H8LIIOmWQR16u440DuRI
lOWRQYRSfff6w3XEmLxTVP89GTiX1a3eVltHRS7d0jJ3yWA6/vmTALl1VPUl
Uv7GFTKweabPnCS6jn4N/GV0MCUDU8M6oV+ba+jtj0WusSNkoNJXe9CoeA31
6OkJqxPI4HNpQMmdL2tomKfLt3xxC0jF6+k8j1lDb1q1m9n/bAG+m7Vnyz3X
UAEpnW+0agssrNQ4HVBfQ2l5pdlBz7ZAFl9NNql0FVXxqzq7bWwC08t8J4e/
rKKVG7rylNFNsPrZ8k/qu1X0+NgHK4mWTaCu809IzX0VPSGP8R/+tAnqXCU8
LQ+sIp5ggYlLJzfBnco7gtJSq4iB6fTqS5VNwM1bmPGXdxU9Wrraoy26CczS
Tg8/mVtBxXo5KvqTG2C430M3Pm0FOXXpTJ96sgGeytQM3opeQb1rRvEeNhtg
zwM+d5WAFQQUdZfFTmyAu9ypnyuvr6A9a6U/0jg2wDrs5BnftYK8QmS0o16v
A77k/X1ykctoTyVGwdzWQN6Sh/M/v2Vkl1KV+sJkDZiDGs4S52WETaQ9D5Zb
A3E9luC0yTJ6eEVpN+hbBXIcL5McOJfRlSZrr8H9q+DHhU4N1a1/KFNC7K48
wypwTJLoJkz/Q767B3reda6AAo1CtrDafyjU/bJ9l9sKOO44ap/n+w+Rye1O
XjnLYKxkP+vj+/+QZ6KGU9zjZfCczTNe9+o/tOrwp71Zfxn8TODr6NL4hyQI
5k22A/+ARafm0Y31JbTf1AvdWF8CzmpvGTQdlpCCP//d3UyLICJCbOD85SUk
F+okrlC1APLm3uc5nF5CC0nVbG6+C2A1IeFGvPwSqlB+ZjW+MQ/cOdJrGScX
kVcrp3Nfx1/wZKAssPHqIrq5987sj6tTIO6w1vVRo0XUuVP2imLLJEAhleoU
zUUUO0BTugcmAUG37q+i+CKKUJJeXxSfAE8zWo3CehfQ+uyFOvbBUfD8yajA
RdMF9IewtNLvPQxSe2xn72stoE4T8h375SFQrzJV9VJpAbmKJm2NTA0C9om/
D0q4cd+yTgn8NQBEP8xlgch5JNYsYkKb7gGWZ/9dve8yjw7Ltvr3rXaD9yzr
fImm88g+0NzzOHM3kHCkc2HmmUfgoD//yv5OIK0lqPojYA7l/mM/J5LdCmxX
hKeoN+aQWc6/vrjeFpCaJv5OSWcOHXmrLb3G3ALk+PeSwwlzKCNRw0Onrwko
/TmKWTz8i9QfuZw6/bMGqD27oj95exYpzOyPO6HyDdSvP/50+dQsGvdmKmGY
ywfmd2PpO+VnUYLpr5PR+bngwdnekvLZGUQ/yKZ6vjkTZEueVY6xn0HieT1c
hwzfA/DmfjCf0Qz6LPPfsxdJb8BP1pCZgP0zyKzsssupM0GAdfOV/sbiNHpH
X2yqnjyoubfshOgZp2lE2UybDXwQgwqUb7hVmU6ja2yGSb5zH5HOp6cdagem
kV11aVIqTxKyCcKC9y5PoaRniYRbYp9RnIUaA53rFCobO9fvl/0V7ftpftXt
/BR6G2tCU2HMQyVabqV/D08hyTsa3sgoH/XK5Ln1rU0iodjBbPLPQiS4tm82
9+EkksM8O+Pvl6DE24YGchaTaDVI0vt3QClSGbyd/FFtEmXPnBMjRJUh4+qU
q6+2JtCF6Tv5e4wxFBgu2Wn7eALpP3WMFVSuQKIsUOWX1QTy0OJkORBfgVI9
Lr8+qzmBjIudbOW5K1GNdYwBpI2jMlajtZ7BSkSvJFQm4jOOKBMXdC9bVqPQ
xANiIdbjqM+BHPAsrxpJkEzdmY+Po7nSUL8BthqkQQ1W+Uc/jpT+ybZqpteg
pvsZr2/9GUPEBgnypY0aZDHWODtUOYbaG4TeNmnXIvcm1pQmvzHk7sX3o66l
FrHAvYzaN8ZQ0ud51usCdSgyV9f6u+4Y+vroNb3T2TqU985XLJl5DHnzbkTQ
N9Uhbe549x0To+i7xNfSMMZ61OaDOsNqcd+nVmer1aP5m+TXXs9HUfXd8oHM
D/WoI1OZ94ztKPLp22fr1FaPipZtQ3bojCIX14tF9+kb0Ae1WN4ZyVF0BE0+
yN3fgPy8W0O+0/4gEkFkTMOiAd2uYeZ7/usPkn+1xEjybUBGnOqh54v/oJZ7
jn46KQ1INDo59J/rH/S87NNgzlQDov3q56sw+4O+GQ6922JuRKP/8YWFqPxB
m9zVnhmSjajh1gn+K7x/0OO1ye+NRxtRVpZn2L65EcRytk/XwqgRRaxk85Mb
R1DlObp6S5tG5HFsPKwhbQT9q3ZI7nJqRFd8xATeBoygxebkrQbvRqRTaxxu
d2MEfRI0jVcPakSyXP4Ch7VH0H7WdXnFN42I+2xxOKPkCBrL+zAbH9OIlqMX
BNqpv1EQ9c7i2w+NqHdQOiJ+4Dcy9lZgFo5vRGW7Lwk6Fv1Gj6VH88Q/NqKk
2yERmtG/kUuM7on02Eb0IrtakMv1N+Iql66oimxE9qubEf1nf6O2w6PzdsGN
6Ky6ktBn5d/I9EjD+cinjUjV98Ybdx68/cErmsaujWhn3Tshvb/DKJz9W+Yb
20bEwN3yRqhxGOUz5TramjWiybNMxNHUYcS9S5W7AjSin2/VIr/6D6MLd2zb
UmQaUe6QA9Hn+jDS7CupJ/I0omjpT5FGx4dRfdfRCq5/DejxnT7iTolh9DvN
6VRgRwMel+xS7N0aQpd7Egpe5TagkLkXiq6FQ8j9ey5RIKQBWXgsKwo4DyFZ
f3UocrsBSTNf2Z+tOIQK/vOsf6/VgBZC6/efnh5EgQu67HHEBvQsLU4pwHoQ
6R8y7mX6Xo+MD7Ep7xYfRKGylwZt/euRaLmzcnnPL6Q9CZ8fNqlH2T36KltG
v5AwoY2Bf6gOeVzPVYnm+IW2umrPCiXUId0F8QOHageQeF2pjqtNHepj+XfA
QXMA0Sc26mv016KkcKuDnJv9qF6wui86vBY57Ko7mJbfj0KbNtg1DGoR45H3
h/4o9COwyOqph++/nxUsh70n+5C3yapy/MUa9PaM02HxpD5UEvjNRY6xBina
6h25INaH9LO4C7OMq9H6Ys6R5a5e5Kl7XPz9UhWqfLxDNTSsF4GbAgOxoVXI
/M2iaiNbLzpo52aSW1OJnlbFqIH1bmRJlRwz5KxAkz+Pht/41o24pPN2dLwv
R2d6u2cC3buRVULV8xCFciQ6J/C+Z70LBfWs/vdcC0PZpCDa/Y1OdP5w1Df6
0BJElJIzj/7eiditFfY9e1aMPBXqsssedqJk3zCHUecidEKL0YZjswOlHUk0
nNH4hn7dflSVtNmOwq+qtv/xy0XHH4iKNxa1o+kj/7ULn/iKUr2+PVj0aEeZ
tlt3nxFykEvE8h7NrTY03GLw8GJ5OmIvu/uie6sVwckaB8eoeGT14dILz+AW
ZJWy2TbobwDspYpiBTebUVycsd+8RjA4emT1tLVHMwpaXHwauPYGMBqq0DI2
f6JdCiEVYouxIObBZ2u9rR+oSWz1m1nSJ1BX926PB7kReY6Wrw9d/wrCf3V1
1zzC9x0l4oj3lTxweYn/hQAF/05nt47xXysAK2KBM+mUeuRnce2XxbMiIOXg
mT1ErUVN5X91NGLLwd+nhdYKXrXIVfmFn1lZBfgW/Y//Ia0GZewrKNw7VgmM
Ku484CfUIGy86IiwVg14JGSppktXhUjxu01CVBpBV7F61WcGDAny7szlpLaB
HQ9tBpc4ETLV3BuakdMOgjxOHQzhL0MKV/qX/O06wJ3H4sMN4iUoO3gCNPR2
Armn5UfgwW/IX1f9zPfuHpAWzDYhZ52NrHcGfa7fPwRa8g7msl61Q7vppRcW
742DDpd0TZUcI3DwWEnM31/j4L2b7pRxrDPYNSjVOHd6ArQm8RPPurwAzyZe
f2neNwnuHHuoYHY1FkCLbL2cmSnwzT+90KwrA6jF8+eln/sLep72cYg2ZoGo
FMZz9thf8AgyZs8PZYM/jJptPnJz4L2GCmN+x1fQnPZ60pM8BwaPBKeDsgLw
8sFan+OpBXBF4QTFLLQMFJg/VCI3LwL16OTg1Y8IGD01DzpGvwQ4fRl4Dc0x
kHY6lTB0YAlM/b0W/9euHFx5oBRn+GYJJFTvrlIKqASH1/yfpBr/AyFbHUF0
PFVANZA/YfbxP/BE+dm5tsgqMM4acPP153/g0vuxcefkatD5q6R1kW4ZCD5I
ZiusrgWF4zwXj6YtA/ov59sCTteBt35Vod6ty2BhmDnGvLMO3IRZHAoby+CH
oZ3C5mg9kNl3sT3vxArw3y1jpMHYBI6bVXfn960A8pRZg7VkCxjulGqYnlgF
/xgzFE/eaAERzNKVyixrYHoXU7hKWgv4VgiJ69JroOdc/iUG5VZwlmzxlt1m
DeSXC/1Ngm3gcA1D4+OONZA+cM/klV8bqGSqOrY6vwaS1qrzH9S1gcyaxCgK
+zoI2+f65IRxO5iX2peDgXVg/7aLZ/JKB7ifZzVpmLQObuQpurQkdoBr5rk6
90vWgWWzf8+3iQ4Q+dfd/EDHOjjFdCT+hUMn8Kr+lxpFvwFk7kepyHt1Ab+u
5i+8lzbAb33zc/ZxPaBkSP7oPvIG0Bx7ZP3jVw84dW4qPpdrE7zzib+nIN4L
Ms/+1NvciedHRdPPpmN6wTGn0uwmuAkq5B8X2L7tA6VTpdmJPpsggTuBdCVi
ACwIDwyvr28C6uea/8raB4Bsj6E+hXkLWOjN7BcX+AV6Jq7fbhXcAvzeB/X7
Q3+BzGLnPbP7t8DTxRr3C68HwSXv+Xd017eAyvTK7F7dYTDb5KJhgudvV1VZ
nbuvD4N4h5PkL81bINhfdMPfbxhM37n/93ffFpiWAkzjlcNg89Djlt8LWyDh
0nPxpOO/gcTY2X4tMTIQ+CF6RgKOgPdPZ8XJt8jguNi+juYrI4BoJ/7Z0JkM
HG8BCy+vERChgHV5PyKDJqbrtoNlI8BqhrPnTTAZ+GlmPInV+ANypRacn+SQ
wXIWyBI+NgrC7LquJy7hz8sf43e0GgVntC1YGLfIIDHl8INar1Eg72qScZKB
Akw/7DvmWjUKGuvrsgIFKCAnWKy2/fQYyLgm1zKhQgH299YGg6+Ogx4u44OW
9yjgxNSS1rjvOFhJ15A75UIB4jfmkjQ+jYNoA9k1aU8KaLIcuz07NQ6IRq+N
Pj6nADnD9lUD5wmQNHdRPTuBAibksriZ/CfBzi/F8R7tFFCW/Pm+Zeok0A9g
ndXvpYBIqeSO3IZJYCSjY84yhPcn+v6dDc8UkB9x8zo3TQFJbIF7sOgpUFbU
uE+DQAVXJ201Pb9Mg42sJrabslTQ92mn/WLLLHid56Ps4EQFBczppqlLs6Dp
X/jfV65UEG539MgVwb/Az6bhR4IHFRjKmhF+XPgLmMTeP8zypYKy9BdhqYN/
wYZKQf+FMCqIz10uuDI7B2xgnjQ1iwqeCPrGELnnQTzDCdZXuVRg8YDH+8f+
eZDvPd4hUEgF/EfkDI45z4MVPd7XbGVU4Fd0pZ+4OQ/SaE7S0Y1UkHd1jDb+
dAFMCCqknhujAik+BaeKiAUgtauazn6SCkLKnUbff1oA/gZHUr1mqOCeFKHe
rHYBXP91Tvb1IhXsGRUNq2BfBL+UszitKVQQbWe8Oy50EdyfOkQeEqABT/ti
/XMfloD5hRH5YnUaOA5WrnNnLYHK91sCK5o0wM6736e2bAlkVEgNymnRQHRO
wvejg0tgl/oCfKlLAwXLL+R2iv8DzuqLZ0XO0MCShznnxLt/wLEme8L7Mg3c
Dlhpdo9cBjoBIQM5j2hAxXz/rHLyMlim+3jv4RMa2JC5xTqTvwwo9ufmNLxp
4HnDALTqXAb26rv7Sp/SQDJXVY6W4ArYpPCQ3r2kgd/hYeHsYSvgiN3R6voo
GjD/uP9C7KtVcPlD3+n92TSwzDJonRa3Cs7G/OhHOTQQ4hB0tyBrFUg4q34+
nUsD9ZpTPi2tq2D+44iEdQENqP1KSGckrgHDmNAdN0toYIcokf5e3Bp4rUIx
3KqlgaFwcrpG1jro+Chz+tIvGni09bnwJLYOLj2feBY3SAPC1y5WXGhdB1NS
rElDQzRgrFLQff8ffs513Iq/NEIDWIsDffKRDRCptyV4bIIGErj+XODGNsCD
gWjLmAUasA2opx9q2QQMrr3RFAIBWvLcKawf3gRdj8T83ekI0CSK827ewib4
Us9WvIRbPcWo8wXvFvDQbyeM0RMgf21nykHjLXCut068nJEAS5lHDF/i54qQ
0s54c1YCFPTfjDz0kwyqfpZZcvIQIDt37CmJQTKITvG57YSb9kaDwDFHBgXc
/353457+5H1rmIsC2mQf88XzEiBWzaweeJoCDHjXAhX4CfAuk8Dv4SYKKHk6
mSEjRICVfvLyQfh3GtUdf7RYlADVaG8+7umngoDahDvcYgT49SGBWD5NBT33
DaStcSfYdxJW2WjgnCSnCtMOAvQ19+q6ok8DcyJfK/TECfC4QrvPgWoaWNdX
PFG4iwCHb2ncvXeFAH94BZZo7ybAHSlLyWp2BLhGv5PuBW7z0ZTfLA4E6MDy
Z/AH7pbL/BcSnuDzcOuP3Xb9B3Z2Qqv7Pf6eLFElNnsI8INGKElrgAA5OZg6
bsoQ4GW+sQrBi3Qwb+px3D4FAmR817EcaE0HR+7pfLuD+7NU1R6G23Swc8nk
ZhrutQOJLxc96OBdEv2r//YRYMh5a9OfsXQwJSB3mV8Rn4+YX78Dhungowir
t4P7CfD27h8CtEk6SLT4YEBUIkDejBJd10U6+C7+Q+Rp3JZlMWnX6elhU6cJ
azHu1eGL97V200M1Vk+zUGUClNnTRdiyo4cxFy8MyB8gwJ+Z1SpOjvTQZfQ/
XyvcD47kX59yp4cW/ZwNwbgr9CPqul/QQ64aO60F3JfumIbkfaGHacUuXZkH
CTA4++cu+3l6yKJg2SN6mAD/qdVq/nZlgF/Os1CzVAmw5my2bu0TBijtc7Gv
HXf03beGGf4MkLUN3VnDrRl3x+JhJAPkyryeqXGUAF/S8bryFTDATn7Fwhrc
UnXmGVorDPD0iaSVBjUCXBnWyttLYYCW6vIHp3HXbcgVczExwqses7JsxwjQ
Xp5S1yvICDUzQ4+dwF0UHD96/yAjtCY6bpbgNjk3LZbgzAhfDTSSY9UJcLd9
u9RzT0Yo/+lUcSHuVf8SWfunjLDf9rVKG+7Yb8FH1MIZYcfd7FPMGgQ4KXbg
bNtXRpheeF7uDm7vEc+X9EuMkGHpaMpeTQI8u3U9dHKDEWoZ9G1o4N4jeCb6
Jx0TDOFWZjbD3aQrkfyOjwnG7pQz9MItnFZVrqLMBM94age34c5y4NqwcWSC
ch9XFu4AApxtV1pbcmeCB5GDtRduOVWzFV8fJkiwK/MKw51EiFlMCGOCef0D
1YW434XKTI/kMcE5SXZ3Ku7ulVOTTqVMEM2IXOCB+P61cBinr2GCxXYLf3Zt
/74rVTAi1c0EdxzqZ96u//DL1e632WCCPDODjo9wV5DsepfomCFz7tXSl7hp
ni+7fdmZYZW/XWE0bg+d1vYEMWb4er09Nxe3Q+flphENZvjdJaVp+/fi9KO+
DU4nmKFdVdfTRdzT7z/V0RsxQ91lwcnt+o/rtrNVUleZoYaAcyG/FgFarD0s
tfFlhmqCng5quKMuvS9eeskMbQmzQdq4OxD23TecGXKLY+cNcRs9ZylISGKG
lpPy85a4g2bl8lQymOGgY3DpddwNxme+VuQzQ86BqSPb9R46Im8yR2qYYUQA
Sclju37j8bd0p2ZmeCA7I8MbN/rd/5m+hxmef1nV5b9dP6BLSw0bZoYb3ce+
BG3XF3yWSpGaYoaf3ZfkwnC7cZ/49HWRGUbdrDm3/ft/ntOtxOObzDAVRchv
1wfsP5b9wYaDBUYHhHRv1xPc/dD+fkmABYp/ds7Yrvf4zLAW47uDBXK8KdmX
jnvCTvQdvzQLJA5om2fh3t2kEZ2wjwXGyPxW+IrbRsk6UuUwCwxQvfMlD/eH
CL+ICk0WqPursL0A98B6SpipHgsM34z59A23qFVjyIgRC7z+bEZiu77iQvlc
sJM5C0z3fai7XX8RIc3/it6aBR5iFhbYrs9oe3EoMOwWC7RRjn6xbZ458xdS
TixwQbkhdduGpo8CvnqwwO/wseO2XxZ8eHb8Kf78R6/h7fZqRSuftgWyQK7Y
uPXt/hi9xn1sIlggs3/yt+16DntnhnPWsSyw4qaM5vb4euwkZK4msUC5Ih/X
7fEft9TYupzOAqsE/a233y/d2OKnVR4LrDFhpW3XcxB13eItS1gg//O+M9vz
4300wuVSFQuU5fhpvD1/0/ty9CyaWKDw7VzGNNxmUj9FL3bg47O3uP1pu/6D
OPP3wgALnBAN89mux5HhYC0/P8oCqz/LnHy/XZ9B2x1xbpYFHgyZqdyu3yH/
07IzW2aBls4pc+Hb9S6Tl9XOklmgorJMQ/B2fceAJ5cpIytU7FM9/wJ3YnV+
rpEgK7wrp+L1GDdnUZv/mR2s8P1UupgbbtfM+Yund7PCa+X9dtv1HSejZAmn
DrLCU+OO3Dbb30/giXYDdVbIUGBzc7u+Y6f3tWR9HVbY/HHX/e36jqWb7w1P
mOH/H8warIXb0qpol64lK8w++z1eFXeNSfeS9nW8vQLNa/u360fU+N5qubBC
K8vaObHt+eV8NqYewQpv6X+Q2N6P6YSEb8diWeGScEPM9n4lrpQFqiXhfve1
ond7v/5aV1bNY4WYxEf+8u16ray7Tw50sMIO/cWvgbjJiS9MVAZYYbGAoN9j
3LbRybuVR1nhgngi1R63ms9wg+IyK1Ta0ThnjHvE1IwkJ8gGVxYcvvLiNtS7
Py2zgw1WfpCpoeHnVcGx4NK9u9kgkCrz3q73eLm77pr0QTbonb97qgG3yuqx
bAkzNui5W/bx9nno8/Y/A1IEG6QjdVztxs9PBZZP5L8xbDD0joRc+Xb9h8ue
7KpENnjdXyD6M25FY1mSUy4bfFx3/eoj3H3M+8ea2tigsUB+lBjugy5qPr58
7HC8/oauPn6+D/0uPnhRhB3GCBXIKOB+aaQxuV+SHeo6Mn7mwT0sB41+KbHD
vtBav078vnj1W1dc1Zgdiud0vbLEPX7G5PvfYHa4rm/scwG/f0JL2u5WRbLD
USlmjkO41eXMJGLi2GFJWrscP+4wpgsB+pnsMGd/kFwjfr+BEstziT/YoawP
VVQVd7TszUVzTg6I3p0FFPz+PMXoJVv1ggN6ZchrKOH379VStQ6dMA6YeJvn
yNYh/HtzXX1S/Y4D9imYxVbjTpi811HzhQOynpP5ZI57vcnSq/4HB8wwdolw
w+/zpDdqnT/5OKHA/CRDtAp+f55Z9TIS5YStHGFqF3E3s3yVa5HihGpfJxtF
cG8+lPVuPcAJiwyYNqPx+ML4srB8xzlOOBDEfe01Hn+Q96x6977lhJlKz89d
wuMZ/uEceYsETsjQP/2JD/fet/e6+j5zwjEyRb0Wj39MOcbkB4o5oQJ/7lEl
3Knz7V2Dvzjh8u4R3Q15Ajz3LUdhVJILGl/KvWIrS4CZBvd65tK44D+mFIv4
/whwIUzKfDCHC5p3S6vo4FYZ6O7+8Z0LusSeVhuXwr8v++Pd6fVcsN9QrGsv
bhRO6ro9xQVXZSBXvAS+n3+Vt4/LcEPu3YdWb+HxI/9et7NdStzwYWsSBw2P
L80cFdqrVbnh9dzXh8Jx99JHtSXpc0NNVgH0DY9HR/bebbW5yQ1DOJTvr4vg
8dB9YvNgCjeMeCPso08kwMPFjWd+ZnFDYvjc5A883nVn9PlZWsgN6T46aJvi
JkfO/IitxfuLFK29IIifnyVYk8UENxS4LVJzDo+Xicx3Grr28EBevStOYtwE
qPoOVf/8xAMZntqZFeHx+qhilvrNTB5o0Sxuy4E7tDIul66QB+4OF2+1YMD3
8+zj+IN1PLCo7Ub8Mh7/xwL1x++meaDvMZ2Le6k04O1kKZpL4oWYSXnA6iIN
dKl3dNLEeKGBvaLTFTy/UGAxDDWU4IWdZXedq+ZooDfmGOu4DC/MtbIP9p3B
87Fq0VVhNV7obMo9/WOUBsZIva1PLHnhASv9msguGlAfMX7VeJUXTv32+lDc
QQNh6XX6wjd44dELlMb+NhrQ1PqGcu7h/elfmOBqxvPD21EZo094ofRcWNQR
PH86WXruxcl4XugmkpMQjudbmTZtkDiOt3/p8MW1EBr4dOvR7JlpXljskHrc
OZgGYh33RAfM8cJjBwkvJgNp4OUTj/n1VV7YuDjVWeZPAzfeScX1s/DBtlo7
GgnPJ3e0OW19lOWDncvxtXY3aECgd0dK7z4+uLenJtLeBs9fh2tM+VX4IFvy
YfV7V/C84q/o56dqfJAsaPjW5CINtLNVmtue4oPrKtJ3cw3x/rQECuTv8cH7
4K0apkwDPvql1tfv80F7rgcyhxVpwN3Ijuv9Az74JkJmNl4Oz9+siq9zP+GD
AvwSVy3+owGth9cEFoP54A09yfKTgnh/2bmOBdl8cEDC7gDTMhXMF1rtmM/j
g2Lo44vqeSoYL2Op2/udD9ZLcHI8xPP3jqZLu96W80HrK+dqv41QQdYkw0/P
Nj74UIH24E0LFdhKmMlrLfNBPVX0PSyNCpznPbSU1/lglvdejeokKvAui78g
SeaDfHH2D6Y+UEGM5fxTOkZ++FKDsJc5kgpaol8OlAvwwzWVndovfajgKF/5
q+MH+GHh8yQYcI4KTgxPJKoc4YeupwwrvhlRgVkWd5HUMX6o3N+02W1ABfan
LcfptflhZOI7m0ENKkh4saZZacoPHd6tu9JLUwEnveKCthM/3LlyJtBqngJE
Ws2YD7rywygW7RLtSQrY89Fzx24PflgitSzD/5sCtDTr9Rl9+WGF4GsB2zYK
cPW4Hl8Vyg+D6oO0BnMpYGjpnaluDj+0vOf0MfU+BcyWl988lM8PT/ylix24
SQGbIZNPpL/zQ7o1T/nFKxQguP/wF6ZyfjjHqfz9O5636t9pZahp4Yc/zrIV
Fe6lgK9/WPJPLOD9jVIbOzrIwKWnsSZwmR9qKX/i66wjgyM/Xve0rPND4fHf
LxJLyKCkgES2oBOABvPPBpITyaD6xV5tB34BSB9byy/jQAbPn8yY5REFoP7d
BElPazI46ZxluyEqAM+a1YHws2Tw0/LIy6f/CcBBN7rnXEfIoGe/XmvUQQGo
HUT0ZdzaAu92c/wZUBWA6CvmaTGzBaxEmpclNQTgmyzy5dv9W2CE/oJwuq4A
jFJi/pBTtAVmOm2vYOcFIM+prqWsB1uA6un/d9JdAN5573i+u38TYI4nafse
C0C+GzfyNmo2wdMb3HzOPgJ4XN05XpizCViNIg9SXgjAj6ktb6jPNgGfVLIn
X4wA/PuHUHpfdhN0EG+/Ov9BAP8eFEv2822CSA7FDzGJAtBQTK36wfoGEF3J
r5BOF4B2Ln9YXldvgN111WxqpQJQsmvgZ/LFDTBe8kLMq1wAvnp1gXBeYwOk
5ZzeV1UtAKevzdMeSGwAxZhO4zM/BeCXY6ZdW6Pr4Ij9WJTNkADkPP3Nocp2
HZwUZNoTSCcIPVXc2i1OroH/WnUTApgEoT2LnYX0njVAfuW/049NEJ6fNvmk
Q7cGMlhYSY/5BCHjJS7kmr8KeLfYWR0kBeHQ3FPdq0KrYLLwlN8daUEoGP6K
4/nMCih3CSLclBWEZaxv3yxgK8BpjmvjqrIgvHTS7ZPnrRXQ+Zt32lRLEFq5
cVvr5SyDzDgTWyNdQRg+lHbiuM8y8L8UNnLKQBDGa7Ldum+8DFQ7Bfp1TARh
6Myj6Vuz/8C7OmLTYWtBuFDZGFsu+g9czdqRKeojCIenxBfYTBfB0btWcqRn
gvDyO9PZBKFFwC8blyzwQhBSW1w7gnoWQGXCrg+coYJQZVpt+KblAtgTKRVC
/SgIhZNzWUa/z4GZRzJOI5ggTD78+7FzyDRwPXnw8GeCEPzKd/gA084RMK+d
khDGKATbTr5S5Y77DW5qiPJ4sgpB24izJby7foNLSoTJU7xCcEGhblxr9zCA
xKa3f3cJQaudfoSmhwOgiAcwd/0nBB/OOKcnBPWDA2xfncr2CsGNE/uKYUIf
2EOOOvV6vxCkmbw7Kd7VAzhGrlGUgBB8pb9qxmDTCfz6u26JaAtBXRsmv6ag
DkDtMOii0xOCn60aw2uL2sFC7f6stjNCcOSFwsodiTbQlbF11eWyEEwb0TFI
kv4JPj4Mryp8LAQ10KCt0d5KIOLMrPzRRwgasIcKqYyWg7C7D98/fyYEL346
EnkyBQPPrlxxvfhKCNZ5e90u9SoBt3XlZbZihSDjD/Gjd+/ngj+acRF/PgrB
cy1prb9P5gBLVT66piQhKF7uKW9yJRMYya/1xqYLQWP1jHrSoWRwkK8yULNE
CApGk8jKLwNBBvvh9T2YEJyZLii7zu0Buu+pyJdUCkEGBfagA0Y9miJrwRrD
jUIw9YEpcSwxCFEHLOZ9+oWgiZz7dy+6JOTe9ePS7SEh+EO/5tc/thS02Azr
TP8IwbePT1cWET6j0Yo98f/NCMHuOym0m0VZqD51ybR6UwjqdQ748B7IR+u1
9MX0NCHomkEadH9dgPZM8P8HGYjQlF2vqXakEPlKH/hXxEGEAZK5wqX2RUg9
wTk8ewcRmoSHWxpKIHS7/OnWXwkivLhrSEdsB4beDodfk5cmwnbH3AdiSRha
3Zl3IHkfEQ41pVh5p5aj7Jjl9hhNIvSqjfr21q8SDRYxqvceJ8IuweOGqUuV
iKtPMImoR4RC7A3j6lZV6LbwIZdQIyIchomP9slUo+gjugM/zxLhoWRzUuLz
alR7/pwOpzkRPuX9ttk6Vo12v3kgGHCVCJU1d7q9jKxBpnnPHlVdJ8Ibya/9
5aZrkE/7m1G6W0R46UPUz2y1WjTIV5D36D4RrsYtdEa31SJO5ZodRQ/w8WAL
AtyideiYcZff2kMinLQbfRlyuQ5FB6+aOfkSoSHblvbwYB2qyWAuzfInwvOb
feplovVopYko/fclEfYVLw02nK1HphxHVuzCiZD5gdXfV6X1yFtOz+pTFBHq
nOV8YDpXj7IMLlSPxBChFGX/kPWOBsT53O2NVRIRnjzJK+/h2IDUUgIo71KJ
8L0eT35wZAO6VRN1oyedCLdeaLowFTWg6LGUH0I5RFjw5YfPn74GVMP47dDZ
fCLUcqNl7NtoQMv/1b0P+U6EVzQkfSYFG9F/2j1MP0uJ0KrMTV1YsRGZ2kze
46jA1yNFsh/TaUTePuud+jVEKJE4zz9u3ogyP7Jq+jcQ4TlmlXOBtxvRLySc
XPmTCEX/e9Sc+7ARcQ7JcNO1E2GckdVdG/9GpEZVddXsJkLyV56OtyGN6Ka4
waBnPxGWz+y4ZxndiKLUL574PkSEFSnrlunvG1HNpVuZq3/w99UNfR74sREt
ezwkHpzEx/euK2ILt9S7F0/uzxKhDO3wBCWuEZl8fzueuYDPVzF/cvg7fLw9
aWdml4lwbEX6e2k4Pt617wWyG0R4x3iq/tHLRjRAbNhpRyFCS4Mp7dYnjYjj
cJ9/Eh0J0iIEzxU74uM9Nz33m4kED4XSzaldxcfrsnl+FzsJVlHkKoxON6KM
SwGygtwkGC//bfLh0Ua0dFyQzMpPgnUzEcrP/2tEh+Xif1KESPBFpXPzQ45G
5MmnGL8kQoJR0rK1pxcbELZe5DwhToLgetE8fWcDYhzWOzEgSYKqsXZLUQUN
KDjTeqZalgTzu8+duOTcgNrfzJUW7SPBmz9NmfzPNCDhx54hWcok2JnQ9fDF
3gaUcOrNobdHSfBA2IAtX3s9mlCRYg3WIMFdhgcGQz7VIwXRrD5fLRJ8FRzE
OvSgHuVP1nndNSDBqUk7936eerTZfM7U+jQJphsyn3raW4c0C0d2nzchwYTj
0dOzH+tQ3TNyPbhIgqQ2j7RVmTrEde9F7EErEjw6jg0FT9UiUzOig6w1CZoa
B/H2ptSiASklQYFbJBip2u9/X7wWSbKXjrPcI8HpDyl2BR01yHbR4DvZkQRt
eeQfvntRg+bRtcvj7iS4eGjjrPxsNaK3ikr9/pwEk1uyjNvDq5Cezm7PzCAS
9I797OB6pAoFyeecTgwhwb7naqSXPZVIaLNhKSiaBJUdPjBP8lcimSiq+tVU
ErQq5cYK7MrRvSeBPOfSSfB6TVM3aRVDX28Ijxhkk+DFlpgnmT4YOnZQJeDA
NxI0c92bWoCfX2dab7Qy15Hge4OTBB+hYhT+bSlxq5EEW+aWY74zFKGeD16u
C80keMtRnLF55huytn8r1teNr2/euMLxtALkwvHjRsYECY/fnuQLduegGN2D
m2dZhOFc4N0SvqwY9DnjQlQZhzD8OJFAesT4Bn0T8jwoyysM9Vp3+nLdCkJS
zpkxAiLCcD31j5BjTLcmr7/Rn1Q5YfgcOybi3vMe7Jpz8hbYLwyjTfTKdgwm
AMXzkeJPDgjDcurn8ezRZHBqz68LZ9WFIc8DNdUZpSzgX3O7iXIab//oxll+
22/gjWLwrZumwrDNrEOEL78IJEXmMLefF4YcelNLhjyloNx2HaZeEYb3444f
mV3CAJnZP9/0vjC0v6vyNZe7BjjpxcelRAhDy/OTN4WyW4BPVtUx/rfCkN31
eqadUysIIU32PHovDJ8uSp2OP9IGMiYUBUyTheHPkC93chvawWRASQC5UBiu
ahSJ3ufvBpfruh1N+v8PugBF/xhA/PCUNSsd3j9tMPsNvN8YQIWcrN+3CN8/
fJgeqybkGEAzUULmPvbfP5loZeX77BhAfg+1q2nr4D/UCPNZpv4YQO0qquV7
1eI/43AW9xADGUBDLFBfoVHjP/LYOZR7BxlAUvCHJU3O4z8PqYDOUBAZQOEj
v5zzyOQ/HhGka7sUGUB3ewyTy0blPyx5xwgmGRlAY9mueuTE5T874eqlkB0Z
QK0evXQsQ+Y/SkkOQ/shGUASDICHkcHmP0OAdac=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-0.2158536939759892, 
     2.032098127037882}}, {{-6.283185307179586, 
    6.283185307179586}, {-0.2158536939759892, 2.032098127037882}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.547565264279772*^9, 3.5475714793111267`*^9, 3.5475751349322186`*^9, 
   3.5475752574568186`*^9, {3.547575319260225*^9, 3.547575333215454*^9}, 
   3.5475755509138937`*^9, 3.5475780993769493`*^9, 3.5475781778910933`*^9, 
   3.5475782393037024`*^9, {3.547578453120725*^9, 3.5475784612071524`*^9}, 
   3.54757934048356*^9, 3.5475795346593647`*^9, 3.547580103671892*^9, 
   3.5475814364739075`*^9, 3.5475814925597115`*^9, {3.5475845202405777`*^9, 
   3.547584582350058*^9}, 3.5475850137939463`*^9, 3.547819576685986*^9, 
   3.547819993365086*^9, 3.5478205475678425`*^9, 3.54782058840121*^9, 
   3.5478206281567593`*^9, 3.5549818456023493`*^9, {3.5549833535575995`*^9, 
   3.5549833745127983`*^9}, 3.5549856657308483`*^9, 3.5550020609353027`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"M1xy", " ", "/.", 
     RowBox[{"eg2", "\[Rule]", "eg2value"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", " ", "/.", 
     RowBox[{"eg1", " ", "\[Rule]", "eg1value"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", " ", "/.", 
     RowBox[{"ef2", "\[Rule]", "ef2value"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", " ", "/.", 
     RowBox[{"ef1", " ", "\[Rule]", "ef1value"}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", " ", "/.", 
     RowBox[{"a", " ", "\[Rule]", " ", 
      RowBox[{"20", "Degree"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", " ", "/.", " ", 
     RowBox[{"b", "\[Rule]", " ", 
      RowBox[{"16", "Degree"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", " ", "/.", " ", 
     RowBox[{"thf", " ", "\[Rule]", " ", 
      RowBox[{"60", " ", "Degree"}]}]}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"M1ThgOnly", " ", "=", " ", 
     RowBox[{"%", " ", "/.", 
      RowBox[{"M0", "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Abs", "[", "M1ThgOnly", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"thg", ",", 
       RowBox[{
        RowBox[{"-", "2"}], "*", "Pi"}], ",", 
       RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Arg", "[", "M1ThgOnly", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"thg", ",", " ", 
       RowBox[{
        RowBox[{"-", "2"}], "*", "Pi"}], ",", " ", 
       RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}], "\n"}]}]], "Input",
 CellChangeTimes->{{3.55498346406592*^9, 3.5549834840840654`*^9}, {
  3.554985673394286*^9, 3.554985674594355*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtnHk4lN8XwO37bowhLSTZkqWNcK5WpRCKRKG027Ik2kiKJEtkL5Klso09
y3tnMENRkqTVLiQhJMTv/T7P7y/P53nve+45555txn1G0cXDypWLg4NDiYeD
47+/e/eIbZ9XlMPRPztcz3vRYWvp5XGBFXI461qS6pvTdNBU/JFKlZfDhQG6
9cud6bD87mEzZaocVlc5On3Ing5if9mzOlJy+E+d+d5LNnRYOrEpC8TksED5
09U3LOgw3pppvV9IDmt5F5ReMKNDt6E05xE+OWxb7ym4y5QOb3OC8k9zyeGp
Br3FuZ10YFLGj/gt0nBSVd/eezvoQL9+VDBkjoZFG9KucZD8eLS5LHqGhvVt
7fj3kXzfbuuJh5M03K1zT82DfP9mfa5k3hgNQzBF5NRuOvhp04gXIzQ81tRT
or2XDqdSQs83DtLwWtl54ab9dLATmJbr6KVhD/kjXzWt6LDH5zi77xsNf84c
/GRnSweD7rc+E59o+Mhq17Q9jnTQ2IeUljpoeGNx4LP543RQqMh/I/KOhm3D
crzOnaODqPLyK/JvaDjZy9A8zpsOi/fuqKu+omFjU8tI38uk/adO39xeR8MT
1zrX7o0i7X/XoXuAoOHy1bmfNyWT9sPO7qNVNMyWPf7sZRYdMmWVtgYU0/DF
W3lzHwg6xN2IGrpVQMNh1n9T9rTQIfTXYlzcM9Ke4e+PrT6T9rE/jxc+puHB
3e0yy/6S9untTat9SMObHWcetgkUg+nDCrPmZBp2ka1+IylXDOoX47K+x9Kw
6oZfEbJbi2FMxcJhRQgNTxkqib8PKYaumBpBzes0nC4aqH80oRhaFzXK9S/T
cHjhmRrL58VA7xCQOuhDw9p9Jv7H3xeDXyiTfecEDe/9LgnfNErg1KS2b6IT
DZ/ZOulqua0E7I4+VMp2oOHbMt3pEodLwGDT5StMG9L//n/eu98qgX8DG/X+
7qBhrbQfq8y/l0DIzty0k2to2CElxGBdUSngOwGWKxVp+EkIz0aHllJYeGvG
1alAwx/NN90uGS4F76NjrnsoNDxf33KqQ6kMXC7qrdPkpmHqnemaB/FlALk1
VRPdsvhLvHYCJbgc5kTaOi+nyOLhr3Y/AhwqYZP14/CNCbL4kcbnLYOXKuFC
oo/hWKwsPhccsGzHg0oYXiP76NgdWaxcdnZZ+9tK6DR2OLUtQBbvstc019r1
Aso8B6f57WRxez5//nqNKvBqn5OKlZbFKjvSV3zrrYZ4Kwv7++KyeCp99Gj+
fDVUtz5OjxOWxe99FS+7UmqAr2WfdgK3LK4niKpbO2sgpSFtf+pvKj5Reb4j
IasGGsu23c5+R8Ubbt0P6TxeCysSw/9VxVKxv7Yf+9pLAnbIdu2ouUfFi/Zm
AoLdBJyJ04uovUPFV193/bo4TUBJ9Bd5xg0qXtGn5cEtgWFPuNYWljcVDxZ5
mk7rY/AJbLvQak3FeTvaFM/dwfDSUX6oX5qKa5mHjHuUGWDx0BDmxKk4Kn/p
fO86BrR3H40XF6HiYx9aZTs3MeDr8cc7DHioWI1vQCLdlAHjZzTT703J4L67
a749PccAWT9je4P3Mvhf2pfQnAIGnIh0ab4XL4NNH5+0eryeCcNvQlY/iSG5
P6zZbDMT3CWzA15EkuvVzlqOGDPh4v0fqgOhMvjN6Q/ZguZMCE/yuWlwUQa7
bcqZbjvHhMKsUOMBWxmcupq+kPSECf9qnxYayMng4cRXaYek6qD503qReYoM
TijdIeoqVwcpMyWnqiRk8M4DOyLPrKoDQy1ihaGADDbXCuU6qFUHAanvIoz+
ULBXjZxZ+Z46mAlcOI3eU/DRirBPpVfrYHyLueKuaApOZHktn++pA2zz7jLf
XQpe8t46Pfi9Du552nWyblOwHKdRzMufdaCV43Jv93UKHk7bu//S3zpwk734
z9SDgqWButxPoh5Gph9+NNtPwZUG+tF/DOuhjz4RfUCQgj/Z1judiaqHFL65
YHteCg5RpYeKx9XDIXsun+OcFNyyX+pFQWI9NHJKH/L9K42HzD6c+ZZRD/mW
G+QTh6XxJNv6zXRJPfiP+WV0N0ljs6lb8dKd9SCivkD3CJfGfkHPHoN8AzRc
4cn0D5XGpycK7TetaICrb0XigoKlschIuIiqUgNM+C+/GBsgjR/e3RW4oNYA
HWzjreVnpfHti1qGZ/UbIN01qG5xrzTuXafQe9S2ATal87XfFZbGvGffmny4
1wAGb7yaTPilcdJat+Kg2AYw/veldppLGq8SyVJc+6ABdh0uznWck8Ly4/Li
x9MawFbS6dq6YSn8OeHC8MPnDeAfVKnewpLCkc+j9+s1NkCl8/kgkWApPPp9
3eCP+QaovffBD1+RwgI1VzW4lhqAWbPtvM8lKbxaO289hYsFL+XkbL94kuuj
psM0BFjw6W2D5vNjUjhFer2cKoUFcyYrO82MpDBj/SOaowYLDJXatO7MSuK1
AWyzzkMseCQtvMF6ShJ7Pc6cOH6YBdy8O/SXjUvirZf5JUaPkPK/l25/9l0S
R7pLsCacWGCXl2j3qkMS560+dOPdWRb4bHEOFi6VxOUuCeG/r7Dgufn4+zte
knhwxb6btekskEBqn63dJHGYk8nu7scs8NZx6V52RhJHr14+sfiEBQaU9pFn
TpI4P/aRgN5TFjR+LF96ZSGJ95+mJvnRWdB/4pqaiBa5f0PLKzcmCxQCxa5E
jEjgZkqMxfpuFpzJfCmbOiiBb4q8UHnfw4KyllB6Xq8EPp98Ld6/jwUHVi19
f/2J5O2muysGWRDa8MtK8pUELtLOXbXsJwt+ib9VjX8mgcVnJQw9/7KAmRnb
/vC8BL57HEUdl2CD+GsLj8LTEjjItq+OkGSDwx9hIcYJCezZVVInJ82GP3tC
oNdBAmutsF3HlmGD5i+fp8r7JfD1z9Mt/MvYEKd/6HruOgkcVtB8XHENG1pT
dOxOfhXHdaV5q2s3s4Ej0yP+a7s4Ljugz/65hQ3az/LabZrFcaq99ZK8ARui
KtUObK8Sx001Ezruhmyw7FDcuypRHI+HUhh/EClPXMrwk404fiixLiBhDylP
1jLgwD5xnGRd/SN9LylvRWRF43ZxHH2ylSvXjJSnKbSxXFccL7ukvqZwPylv
D5fWfQlxrCKmaZ1xgJQXPLnSvFkM/9G7ICR7mJQXrn20oU4MH/EK2zJPsna0
e4phlRj+dA3TvtqT8h6O0DSeimFqycrJRAdSXnWvpMBtMXzve5Hc7DFS3nQb
N3O7GGa9/1i26yQp75/ENv2tYvhlhZkZ3ylSHo/F9UJdMaytZpRUR3KU1KuF
NEUx7BqsfGbzGVLe+rrpwCVR3KPe0M59ng1vThd/31glioVHi1Zre7GhreuP
pXGxKF48LraDQXLHIcMXu56J4nORe9wsL7Dhy46GCNtkUSzFYH467c2GkVUf
dC4FiuIzD7pWB/uy4eeDZclB3qJ4R+bJu9x+bBgXc+IJPyeKKXO7OW6Q/Gdh
qCPpiCiOtF7GdfkiG3g+zgVWbxXF5bZOvocusUHAEgbq9URx+FENtUaShdk3
zFs0RPHSEufg5gA2SJWKKH5bJortPdwDJAPZsDJ6BWtpXgR7r+wUyrvMBiWB
4+sFpkTwRZun3OJX2KByLTtBYlQEq4268XiQrOmmfU7xiwi2PrykoHaVDQZ7
tklsrxbBl+5JZt68xgZjHHrJrEQEdzwz6/hAssnmV73Wz0Ww2617YqrX2WC6
xqb0RIoILlTnjmKSbJaSsMLtvgiuWhPTKRLEBnPpr7d8I0Rw+vbhNQdJPsh5
0j70MqmfY3hLF8l2/k/rIn1EcJST3FqlYDL+f41pPjgvgtui5264kOzy9eJS
toMI3mcjt+sryZ6VYZlNhiLYkPGh68UNNvhovxZt20Dul7nC9CfJF7OlLn7S
FMGxkusKl4ew4Wpc8p4fCiJYm0i+4k9ykEg3/TdFBJ/SnujJIDnkhrLCgogI
9ro1u/0VyXe88sZE/gnjPuHeRZmbbIgcmrCVmRbGK/amHdpCcsyxTYzlP4Ux
5x2ca0dyXEeAusqAMH60N++PH8kJ+4lYra/C+FxcA8SSnFLP/W/Te2FcwHsq
KI/kh1tNT0KLMBZg/KhqIDmDHvFmd4MwbvF9OvaZ5Cy1t1ssa4RxlN0MbZzk
02uLGNdLhfHdPR/7OEPZoL4mem9RnjBW0zKqlCR5VMnrXc8TYbzNyzdhJcn5
qw44SKUJ4+XGbdc1SPZcoTOwLV4Y377yyGsjyboKku7ekcJY953aWSOSp+Qm
Zh6HCmOH5JIz20kul317rf2qMG77fsNjN8kBMkUCvBeFsf2VDwF7SDaUjo7e
6CGMx1t/hP/HixJe8idPCeMxnrm0/9ZjsQOP448JY8XBzWX/yQsW0dFk2wpj
yeEPb/7bb4eQZOkfC2HMUBH88Z8+fAITRqqmwljT/g+fJsmNvG9ZdkgY07+8
VFpFcjh3kUXYFmEc9DjHSIrkfZzRnZXawljfkH6Ii2SxJU/nEVVhXN3E6/af
v94uWI7IKwpjI87aa19Ivj+n7W0mJ4yzVSbvskg+NCuxECgpjHMFy+LzSf70
u1X0K6cwlvipft//v/OaKIwXnRPChaqTofYkH/0VtdJ4Ugifjvb1NCC5d8RS
52GvEB6vLls9RcZL5pD2izefhPBspPuPFpJPDkps53gnhI886XjyhOQfPa02
znVCOC8wZMyc5Pyuwq/RVUL4+9PsgFUke36NOsksFsKXpzdO/yLjd6rT0n91
phAWe6dSdJvksg5tTpsUIZxStWf8AMn+7RLhIfeF8CUXOzk5khfetCYPhAjh
h0tRyulkftS2FCpTrwjh2CJHnv/y5/qrqLxdvkL4b9SRplUk87ItiWxXIZzE
yb/4gMw/sdrW3jO7hPBVftFf58n8ba0qPJdkLITP17i9VyA5pjJq6uUmIWyV
2R7/ksx/aqkln+ZaUl+RQ09WkrzyeavaGL8Q3pZV9LKArCe9uYX0FRxC+Lr/
sIs5yZnZUVstZgWxphfXqxGyHqk+ttxfOCSIh+ZneZaTrJ3U6nmhSRDn9MxN
nyTr2e19flx/sSCZbx0cI2S9615cdv9ahSDeuu/dmbMk3zt+qjwiWxBHHeA1
P+7PhjHNxX9ZNwVxw4c65Y1kPd3V9fjeuiuC2HGfxWAGWX/TovcolvgI4rMp
/NOiJO+fub+DcVwQG+2RnPhM1uvnhMadzyaC+L13/mpbsr7zXHir4KIviD9I
TogVeJL1SPli/pC2IA761buBh2ThMObb6ZWCuKdbYW2WOxvOWh2mSSwKYKWx
i8caz5H2DYQ+2fFCAGuLun274Ur6/4Hm5ldFAjgixn17/gk2dO5pazyQK4Cb
Wwwq3x9nw6385aNHEwRw0t3GV8tc2DB4sUT3kp8Aphrrbw05SvpPqJfI0xXA
Xa/Rw7pD5HlX3zqwQV0Ae4TqP6s5yAYbj3V9LxQFMEfbTHyJDRu42/35GiUE
sDKXF0eiFVk/U8X3947xY0be1eqt5mxQ1Db6RH3Gj0f8v7IGdpD5ZDUcr/WY
H68NLN7J2E7Gl0+c9a5kfnxo2YVPidvY8LriZ7PvHX68R2Kt/jZyHggwSSPa
z/HjKc3jFzy2sqHdaikzRpMfDy8bmNqiw4Yln2fOT5X5cQo839e/nqxXD2xX
MBX48faBtTcjtEh/fC54MCHCj9sKJ8LeabBh3QmncMuffFhzJ+3KVhU2hPoy
PMTy+fDIH2+mhzwbih64aapk8WENgZLT32lkv62UGzZK48OVtEn6EVmyni16
ubhF8uGzCStWG1DY0BWqdLDZnQ9bt9kttoiyYUvCDYPw9Xz4nU5l/34Osj+/
2MnLV8SL2z1bSyN7WfAsuvyldw4vVhZjep0i573zp9Wieh7y4iO3tO9u/caC
nzKiy2oiefGmi0Xs9x9ZMO7Zru1znhfb3UMRb1tZMKNy3KF3LS/pL3e17hoW
lP9rV7RcyYvnHeUTz1WxyHzd9b2GyovlhnlnJipY8DdI/UIiLy/+sPTJ7lcx
Cxa+TNyy7OPBt3bd+f4slwVcsdeLa9N4sHN1MG3NfRbUnZn014znwRUZE6lH
olkQgk4YJ93lwRcuV9yNiGQB79juJt/LPPh1DDXs620WCOwR79K058HNsfZT
BuS8LLaUKpQsw4MPCpwL/XyCBcvOVTlfjODGQ6skMtzXsyCpsXGXaAg3vlMQ
nDxOzu/yKh0ajwO58TPH/H/nVEnuGZ9+fZYb3ytMbTVXZAHNViVcZQ83Nvn1
MqBOigWU7dH097zcWFfWrffoVAOILDvFveEaF650z/4nQG+ACH+foSY/Lhzr
yqGentcAwh1BLcfcuXB9+Wk9ndwGEIpOeXDHkQvHUf9kbnnUAAL8bRp9W7nw
lruPvPruNgDvb0ObmFlO7PMupz75VAMsvpR6Mu7FiSOu30tRozTAgQSVUtmz
nFhVV7FsSawBMl0NGoxdODFyPcfZItgAezlcBiKsOLE2vjO5b6ke4jcWrVHT
48RgNprWPVwP6x5ZZDlPceDc6F2Ne2rqwcE3IrvNjwNbvXkrVOxQDwXbHpX/
defAUDI0Z3moHrgkStirTnHgutUrKP0W9ZDz9PN3d1sOfFP47qXhbfUw1aWu
KryFA09xT4t7qNYDNS7mwK3JJSKu0VL44EQdeIOIzZk/iwRHzuoc7oA62LGd
uHl8cJH4LArWfl51QN19odzx/SJRne1y6OPpOqgw75S3Kl4kJHga/njY1sGC
Y2aPgccicXlP2pMvenUQctnQQ+T7P0K29+/e5GEmxFeeDy/oWCBO/+u/OLib
CadqVlbnNiwQQT4nM9cZMWELo+3n45IF4qvKiWRnXSZ8atxyICFmgfCrEPK7
p8CEFZ08tCDzBYIvSJFY+sWA7JmUJ1aseSK1VU5cPpYBFXoteLp0jgj70mdx
uQmDtuxdU6msOSK0rf6SSA2GnLl9rVrxc4Qp9lQJK8SQwGjuOuU3R5iUrGzZ
/QDDRYvmxY+b5gifxS9tnccxbDr3yrC2/C+x/8QpkeuTBJRkNFWEVs4SdQNd
P3jVa6FAklUoWzNDuJ0+knxC9QVYHZXc2/1shlCMtdS4wv0CZp469OUkzRDy
oxGrA79VguGO3zIG/jPEhc/ebZr3K6HRb1Wgg94McXXkVEb0YgV0fw7YmZ47
TYT3bxGcbi2HG6qsb2cSpom+OQUznWfloOIr6a97a5rYgs+suXCzHM6L5Tyt
OzFNXL+7VCliUA6z6L344Mppgu+vY/Dfx2UgmbX+k3r8FBGUPHi65koplEwG
eP8OmSL0+Ymvbw+Xgh2wRKq9p4iCCONdKptKIa3TAfYfmCKefJMfy/hVAurC
4ZkeIlOE/c9zDddPlkCL7XujLfO/idld13pVd5aAZ+aqDxwjv4lvFUU7jJRL
oMyoXDCG/ZtwLI/YUt9XDNs8+91Lgn8Tja/MWnjPFMNA9XqBK16/iWEhm8Ym
s2K4LRiYvtPpN7ESfeDQWV8MrzMk2zuMfhNcdnPX+Gfp4PXLwe2h5m/Cs+mH
SehXOlAMc/hOL/tNNG39psuuo4P9e2P9v7OTRPC6dqIghg7/FMPbGN8nidEh
p9RTgXR45P7+XHjHJOHScmANlysdBvnPpy0rmSTu1Iwbc2ylQ5hN+eb+jEmC
HmTh6LOWDprpXG+fR08SimtXbhyl0MHbIJHb2GOSaGFzd/L/LoL795d9OXR0
kuCwfxHB0V8EJWOpJR77JwmRckq2VEcRvDdddfe24SThpOwStrOpCGYyMlzT
NUhmm7s/qikC6j9l4xfyk0TO33gX9eIi2GybTX0nOEmozmUbj+QWgV2R2q8f
sxNELeg/GkwvAn/h52yeoQlCe9dI35rkIkh01Xq0/MMEIes/sSI/rgheEIX+
m1gTBGwYpt2MLoJPcnoHLEoniAydxp2FkUUw712qdjpzgjhaLoU33C0Chdeb
uYJiJ4jKtwe2y5JsqPriU2LwBLHN+6uKA7neMdiwmO41Qcx/4j3MT8q7+qX2
ziunCWKpPNtegdwvbZPJiX6LCWJL8sataUlFQETVGf4zniAi+VDcPVLf7pGd
MlStCaJHMOTOJGkPx87Gn1rLJ4jo96GsRtJexYd7WbtFJoh7onUXpIki2Pa3
Oc1pfpxw7z8L714VgYu1xcVLI+PEGcCOAp+K4EbeW4uYj+NEuytXEH24CDL5
bVSfNY4TW0bHvrXOFUG9cwdHffk48Wj8rbaLKB0Gquw+fskaJw5TVpWeUKQD
H/Vz0XTcOBGyMVanYxMdVDwdw8VujhOpaYzp4v102P2yy2WtzzghvFPl2xwZ
H7ev9ksfthonpsdGXEqT6JDTeXLUy2Sc6Gx2TFxVTocm3eH6cO1xwuNGlnZ/
Ox2Evv/0rRYbJ0piT9w4RikG+YdjBRD/i1ihUqQSlFEMDta/nbx8fhGbrh+9
K9JUDKn8s5KPrX4ROeMM09rxYljlyenDJ/6LKPjm9dZvewmsMaFsabk1Rsyb
WKc6TZfAyWna8KLrGGEwb/dih3Ip5OQuT9LeMUbsaShcLW5TCupSaxdiOcaI
+JbR2A1lpaDdp4/tL/0kig+1nX99owwMbh4zHTo7Sozenfa+ZVgBTbNXnhw1
GyVyCJnor14VYHc+heu9xiix/azoseDsCvC1/ljNGP1B7L/6mJEsXQmFitY6
ye4/iHR/Ja09Y5WwtnaXvPmFEaL5qt7SrewqKNNxvVhvNULo3HRhh32rgh1P
brQb6I0QBPqk6CZTDS4ROHLt1DDx6dQtoja4GtLsDbg5/YYJnddM1mf7GqD8
WTdafGmISHf2dk6er4XHZ/ftUbcfIiZKPys3ryNA99vZrEcGQ8TU8o74K8cI
sGzIdro7/524znjgt49BwJ1Yxfcnr3wn2tePdHECBnl+pPvV8TuxxLf+7tuD
ZL0POHrP2vg7MRh+w3/feQws5+Q9aGmQsNr/0NAgAQOXtkytXNAgIb6Svb/4
B4box3rLopwHicTwLX5JSxhWyVr5820bJG7rBZ2Vl2aA0WKk7m+uQWJNR4rz
ly0M8G8WyG4OGSBGNXzFda4xgB+t5dnuOkAssGcasu4xIL54p3PlzgFi4k7g
nycPGVCSFLwsi2+AWCMyr25Qy4BfpxfuXbvdT7D5fJ9FTjOgPV9HwvxkPxHc
IS2lxc2EF1MnoxR29BPHP7GMNkgwIeT626jKpT4CH+3+6a7KhLMsPsnbX/sI
0fWZ+Y/0mGAhYhh9qKqPaNz0ME/PmAnyCVnRv/3I5yN/PvgfYMLS18+STJs+
4vylrGlVeyb0r5aMidLtI+iEz6ZNLkx4eWaX1DGJPiL71f2Wh2eYUFAQGLNu
jJzxPR7yunoy4f50odTCq17iQkA2uunHhICtgzEvc3uJc2qms0uBTDgWtEw6
8VYvkcHMr2m/zoQdbMvYU669hPj+h/rcN5mgJhoqvWl7L9Hj5KN55zYTxKyr
YnkUe4kaPnn383eYMJUwLv1usYfIe8I9lnWXCR+/rbmf/qWHiOBaXmxwjwm1
ykconi96iD8Hyj6vjWJC5tmo+8YJPcSD4+dS3UkOK2ygiPr1EGWTvDvFSXaf
mbv/2bqHqFx7ZJMQ+b61obbMU50eQsFOefQYKX9LsGucv3gPcVz+3R8Jcv8V
jUkyu392E6sIJ84VpH7cYq1xMq+6iat75di3QpgwZM1L7c/pJrbyuiy3IO17
nWgQTw/tJjYzAsd8SPuLuzyoQSe6iftTyGDOlwkJa57EW2zrJgzZXTLdHky4
cu4TdcWqbsJ3S9SztaR/G1xWan2c7yJWBu0yaHNmQtRYmJZfeRch9MlZpucw
E+wDprSkvbsI2de2mQfJ81vDd2x9oVYX4bbdwUXHlAnj0U3r9498I66c4vvm
S573zdw07VvO34iVo87ZoMYEy42COsrLvxGi0OHRuJyMB4a3DqPzK1EonDeC
JZlQ2GmqO2/xlTiw9k2BwCwDPvH/1vMw/kKURtgrryPjMzPWcYPI3Gfi9wB/
wfl8BnisbNyQW/qZ6IstXtJMYwDP5tSNfZqficfu9AT9ywzQOrl7s+2yT4Rs
AodYky4DZieKNk91fCTcR3Y22qxkQN0VhS3RMR8JztqaT77CDLCLm9jySvAj
4TPvpnajF8ON+mQDmP1AFPSnnJePwDD0Wj/WteID4ZWxbXjVRQzmHz/8uOP/
geCxsvP55kzm+5h0audsB6HOJZ16exOGQtmIJa+/7wmnNN7NRCUBX89ers+c
e0fwNCRbFEEtuCu9SKHMvSFcezv6hVdXgf7mmf3OAW+Idymrsn+PvwCefbpL
eXOvibXfWkona19Asu9T593zLcS+u1rm+468gMbGJJWAhVeExUlRYZ74SlDy
CCzsWmQT7ux8YW1aBfy8Ue6seY1NNNV3D4mOlENFwm+pS0ss4vRamde21eVg
wTznK8XBIgoOZEntcCmHyzIOBjs564l2J0cZ4ZIy6KgyrH/KjYnvsgNW97xL
QeGSy7dJEYKIlzZ/pmNRChEBZhuipGqJkWKnSyEapXDuyvLul8urCdqx/T/3
DpLz2g3GZrShgpBr1ZVmniiBpJCnd7/qlxNdl5XDLHaVgFBobF8AlBFPiZrq
XNUSGLnteq90bwnhK+Bg0fqrGHIjBb+rOxcSP1ZfXKZ7uxh0Vw1cimrJJwR0
1ltd8CwGqdXla151PieOBTRdjD1cDG9Vj1xBv3KIkWe6Zde0iqFQY51a4FwW
sSn88PR++WKI0lpqL+V9Qoic2uHOzV8Mlhsea2oopBMJfwxOq/bR4Zj7SOEr
8zSCv246PbGNDit8IgVMXJOIod91N6eZdPh2SdepLDCe6PKSvGRYQofUax3l
GjExhO6oapF7Fh0qhKZXbDtwl1inK60XkUiHzVSj15pXbxLbNOLf3b9Lh3Pb
hea1DgUSqmI2m28H06G1ZEOxgNMp4r2+8DtXfzq0+zw31i2yAIeumR+aHqT8
izuHLVO8Ifa4ZcKXk3SwLLRvMEoPggWdCcL7GB3eZkpRrX3CwM2TsnzCjg65
+1z1Sh5HQWTbZiNrazqM7GJ8Nr57HyBSPjjBnA7qJstDmvwSoG/rRyViL6nP
1kuaNk4pEGG4Zl3Dbjp0JJ09+0v5EThIxIfm7KTDzIOE2hK5DNjwSWrs5A46
+fmMJRUglglIy+rfv+2kfTFTJ4E7C7YruqufI5/b3VOq4pnNhvDA8KZn5Pv+
EZbiL0dzYaw9XKyGlJ8QdvX4vZ5ncNWhQyyF3L8i9Hm5TUceDE6r1O0k9eu8
8UlY/lUBNJ9wFiy3osNlxFP4q6sQMtb5ZI3a0kEEltlbkXNY2oSBaZ8j6R8j
XZ5Scu55yXHi1oMTdNAy3JMv+6YY8NLBYd7zdKg1cLILaCqBS/eke9V9yPPb
HPkcastgx19QCA+lg/umJ4cyKsrhq8zVpeooOixuqObgLa4A7jgGfpBMnr/u
iM3L7BewWUq1cmMxHfK1OZc0M6ogoN6MnDrpYLyelnsvpRosHOghO1vI+NHc
9c8muhYO5XKczxmmg2FCVuTMIwKU133TX/hL6h/MLbHPDsOFa9HrJ4SKYfjn
8fSfpxiwKSdj2TMyXjMalOu1b9UBz+fk+M7LZLzOt0dwitfDCfinUhBdDFd1
bh5si6+HAZrFAkd2MRxJHRj0zmoAMcdL4TzvioHimyVY3vDf91IPKiS1S4Dr
2aG2W/sbYcu2DSGmpiUw3s2XbPe+EU5tm8jqdCI/P+07pTnX3wTKszGB0zEl
EKqsamHE0wze/tBdOVcCC8M2L50VW+FFZues//tS+M2Tp7XXtRUSeVoNMiZK
YWQlb6xubivkUsKY46Jl0Hmw9Ai3zls4lpt+6feuMihlyPzMRG2QdvTivX0v
ysA9sUN86Fg7VB7afs4zsxx6TO0Ouqd1gvwmh2dNAZVgPHDZueVrJ3x0sNH6
G1cJSUHpbprLP4Lnd4OLCkWVYPVi5OZI8kfQ9h7N3fq9EpgaV8pOJn6Cx84e
8q+sXkCGWIbssftf4Pk/G2qpShXojkyPrt3ZDVP7TOS+11aD0xYB7w8nuuF9
Us+DzA/VEBkq/zc0pBtEKoOT9oxXw4gS8A7WdYNn79y9PYo1kHHk9vLMbT3g
dGPz5eXBNSDdIm++CvVC/hWT/YvGtTBVAAW0rf2glMX/ZNcTApo1tkp5OvbD
loSGQ0nVBDzO3uTLvtYP0WHPw9+8I8Dq4bqtfvX9YFb51/oXB4aiyGXsd/sH
QD67IM1UC4O7259vkU6D0GA3GKYRiuG7eoEYb+gQbNyaOsGlwYDarKdeDjlD
4Hiu3bhzAznPKWW1F78cgvLcH4yHxgzYJZ+a5CI+DBfdJ7N5rch+KXhHBScM
g0CWYJ6WPwOchk4aBz4bAY6Sj0XcTLK/PlnhPtE6CgGjWwXX7WNCGd9zq5zJ
UXB+bKq6zYYJsaf0Nx+j/IRnS7dnzByYsE/NhqPF9iec/azSZXSenH+eh8Xk
fPsJc21P7qeQ80p68VTZsdExqA25L27dyIQSp4GlwRvjkEx3rhU1qAMlSc0L
zPvj4OZqb9yB6iCKcaE/9ck46McomMXtrgM3JY4mG/Y4/DxHbPtjUwcq/fIx
TKEJuFw1p7nPow4STlkqp0VPgKZUFWtnRh0EuleZHnw4CfwadSvecdbDNpg+
IVYwCU/fmP5S5q8HIYn1QezaSegzDRn1EKmHhKKMSv1vk2BkMhszQa2Hsqkw
9RXLf4PP6ldxmRr1MBlgJ/I96Tc8vhjm+9a6Hs7emn7jHz8F4Rdvf7/xsB50
7daP6mRNQe+V5xkimfXwV/WMwI/SKdg1EPTwXk493H75BTm+n4KGSc8rIUX1
kCVaX2RCmQZ883e6el099MTGxArFTIPF+UxFj4F6sHu03jbl7gxc/DKiIqzS
AFP835xz02YgI/lEk5F6A0R5RJwvK5gBm+c9pWe1GqDJeDio9e0MRLzRuVu8
qQEMvmY856H+gWB9XgrX7gZQkKdyuaX9Afae3j2JJxugK3bhuVHBLHys/FHW
l94Al+eflu/Fs9BKeaPr/qQBaMcPM23fzkLmk+vdv3MawFK37IPX71mwzfg6
Ml7QALjVgytr8184fZR1jl7TABmifbZi+C+EWzRfsutsgJO3mri6Wueg9m+t
+WEhFjiInytv6p4Db9O8DiVRFhx4IHK+ZHwObPXSWobEWWCYbfE+TGIeNhd2
0c7KsECK/T57g+U8LJ3Jjtu2igU1fL37wt/Mg2JtWLz5RhZQQufiN75egIm4
W2WjDiwQEksxW/VtAV5YUoLNjrFgKc6IQ3hsAfxNpnSynVkw8uT6mW7Rf0Cn
pJodPMkC3MBneGf/P6jHDUSEBwvO80r3dDf/gznznc7nglhQF6KhEfFqEXJ8
FPgWMlhgsBT3SOXzIsQ11C77nckC+iUOKmNkEdzFve9+z2JBhvt7jhnBJdAz
TIhsfMqCYLtrHcdMl2DkTsCec3QWbNN8F6TXsATGMzcebmSwoPuM0Xm3YxxI
24rjzegXFihkT2YZnOJAzL57ebHfWGDXn93D78GBYHOTxpZuFrQelbLNuMqB
fkvfFQvoI/W3/m7yIZUD7VhX97BnmAUPjaJlTb5woBfrVS+azLDgqOQAk3KY
E52dynOyEGUDT1L71B1nTqQstln1lRgbnirVq3Cf5UScimPHdkiw4Y/e4/CJ
AE7UqvleZb00G6IOOVu9TuFEwacWTQZpbKhL/tpzq5sTqZg8lfuymg1nlVuk
l4Y40aFrUk/Xr2GDRF71Tr8JTrTn76b66ypscKhNzj3BxYU+OXgnL1Njw0z3
YS8TZS50pe/Xgp4WG1RVOjjmT3Eh13O4bHwzG17nN+he8ORCbqmdN5frs8F3
c+mJYX8utEsm6fduAzYwTe83fgjjQiaKFQVxhmw4cs4qquQZF5LexW6imLAh
svD1SvdfXOgEZcOFjD1s+G3ANu7x40YJ488UuA6zgWVduJN9lRsNt3PGvCc5
4XzivrxQbqR/7q9otj0bjNPO2V+K50bSXJ+W7XBgQzinhJ9kGTcy7RFMPXmM
DUqNdnkm09xo73KLhP2ubJjuNilZ+48bBSe8zuc8yYbGv+pVorw8qDS3qq2Y
ZHeNf40fKTzosIHKDqnTbHgRmd7vtYEHhczeel9+lg0HDo4sy/DmQUvWHSNP
PNig7P5O6XYgD2q23DVr4En6K7Razf0GD6pGPdTXJKdURG42iOVBuz8o3B7z
YsPQMj3rNjoPehCbYUTzYUPVBgX7ihc8aPmaix9SSY7cz+ucxuRBV3fr3FD0
ZcOGax/cz7bxIPGiSxKr/dhwvTcwnGuSB/20z+ES92eD9fyJ6KG/PKhAQETz
JskqFPOE15y8KKRp36m/JDfvXJWVJMmLataulf5yiQ203HqGrg4vyv35zSg8
kA0/GHmNNH1e1La5+/c4ybWf4t8sIl50cHbixcHLbDghcubrS0tepMqdFSh3
hQ0FHqJ/XTzJ94cNmWFX2TD6TvvPpD8v6rohbzBEsvoWm+ngIF40l+x7dsc1
NmRyJE9kxPCiF+aHfk+T3Hui9pduMi+KX6FuZnadDSuben4yH/Oiv22y9mkk
J0WrjvSW8CK7xLxkoyA2fJg2G7pQw4sCVwa1hJFMsfcY5GLxolXuDSXvSL6n
VNar9IEXqemy052C2RBSvP2zy19ehHMavx+9Qcaf7KmPk5x8qP+wfXkCyUuB
4R+ChfjQT/bmLa0kB+x4+y5jGR9K4/Ew2xLChvKcqbe6ynzIZXP4l9MkT4nQ
WpmafGjLsLfCA5I93h9t7jXiQ11SPFmjJD/XD355YRcfOtq1e0z6JhtGUp80
clnwofst93v/uy+xlquJFWPLhzaqaQUfIfnEydF6JSc+FP7Mqjnwv/sPL8Xr
6Kf5kKi/IU4kuUtLj7HNiw99pSk6lpKsEHuIaLvEh4YCdDJek2z/51KNSzAf
ihhJjBwg+cGR1KrJcD4UKh6sOEdyO4Erg2P50L5hEXuRUDZIKfeXS6XwIflX
dpsVSLa4zV+WkcmHvtteq1AjOWJUvUQ3jw9dvhr3ZQPJLy3N6cxSPqTt+yzj
v/sK/KVehVa1fKiptFlwx3/3F+Ti8ntZpL1/lyRM/7vfcKXi+YU3fKhEb3f5
f/chiJ7PT7k6+dCaew/n/3u+sHMpJ6abD4mf5vy6k2SDp0rZSsOkvaZO9ojk
i2K7ntAn+FBnz9MLW0guuXDm8bY5PiQt8kpZi+TJjoj0Ni5+1F/9xEOR5PVb
Cx+6CPOjTp5lVv/dhzj/8F3qpDQ/2izE94qD5Kfcf5KDFfjRF26jj6OkP76f
kk+SWsOPdDZEB3aQrNxslJCxjh9p9r8urCHZRds5XncTP2p2rLmY8d/9lPsh
95nG/Ej6+4o3ISTLO76K6rXgR+XCGurbSLZljEVesONH/34ijeX/3a9YI3WX
y5kfnXB5VD5NxoP4mF2Y0gV+9Ovwp/MPQ/77//LlW/QAfpS45k+MJ8nhZQ9v
brvBj6oFeo2BZJ5rg0Eu9/lRgKeb0nsyHt29uQ86p5D2yL5Z94jkzlOrVJ0y
+VFOuqHwGZKfW9q/dizhR29trTdPkfFO3Xkx3aGaH+0/dPVG2X/3HfTv+xyp
50fs9ooUP5JtlF7LH27nR0PdujrjZL7UUn/8tP3Cj8qOvsvNJVlVWIBxqJ+0
R3fniBPJC79NTtlM8SOrdu2aRjIfHzeUFltQBNAC3+6QK2T+irxoCzVXEEDc
7vmUNST75f86vF9ZAEklPXJ+Seb/3gdqHGYbBJCglraGGMmTp1P37bIRQMK1
VlYBZD1xcHyxcqeDAOoWu5kiTjLrwIfJ7ScE0EGFgfgMsv4kGUgmmvgIIKvX
T+MYAWzYJnJzwPC+ACqZo0f0kfXsOUdGxdYUAZSi9FHtJMnU6do7BpkCaAUt
/8zgRTL/vs7qbCkRQI+37nvZRdbLmILzV/XaBVB8XuaXUrK+LjwOO6D7hdTn
XJ7DGpJPJmQp6/QLoKdPyj1jvMn4DOp+qTUlgFah5ftdL5D1yspGVp0iiIx2
aD36Sdb7fbu9RlQVBNHnyyfD9pBctjWyZq2yIFrxo2wmw508X+XG42s2CCLJ
tr0Hzd3YoDuztXCVjSAaWmAOhpL9Iyhx9R7Z+4LIaiLZ7coJNmjyP1n4mSyI
Hux+lVpynDxvH5XC+seCKO6Xu+mwCxu0LNVkLxQLohzqBLeZMxs+8a0faG4T
JOtdY9svR7I/+BgEBUsKoc3yuqXVh8j60VO14bCcEAo0DvB4eZDUx8JoaL2i
EHJI3XTlvQ0butWRxVdtIfR8PvR2nxUb7vbsXL7FUggtq0qU7jJnw6D5gcqf
kULoLZ9P1IFdbIiubjtfHy+E6O+EDfR2ssFQ3WZVcpoQmikzFZLaQfqX1/aW
ab4Q8k96LMUm+zlUOxx83CKE3nuIuokZkf1a7fSEnYgwUr9iHiKuxwYznmtq
9WHC6MBny+d1CmxwqjFo3xEjjPiTXNRWLyPjyW/makOSMLLGX19elSPr45Bb
O+uZMFrFEjqlTmXDbLPDtaYWYZRSne5rJU72lziD968lRZDp7gHLHg6yX5vP
XLOQF0GV1sszOZZY8Iafrt6qJIKu/jnBWvaPBXOX1K6/1RNBvrnKzjv/ssDy
KE2j/aAIUtPJMnOdYMGCysz1j4kiSOhvzbM2cn6T6i7SsM8QQbut161+Ts53
axPdOj49FUG3uqv4g8j5z0p4QONLlQjS6P74T6GTBTm/3nV8+yqCmjRdexXe
sOBgRZFmv6Ioap2yvLqpmgX5e9w6x3JFEe98/+HUGBaMxyjZfSsSRf22e1fz
RbFA98uHDy2Vouix85OVZ++yoMx924fnTaJI+qB23OrbLCBiZTvODosit3H1
50eukPPlV8a7QVUxtGl50opP5Hz824v65lu2GMp5qZ/2kZy3N1W9Mn9dIIZO
a1jIJumywJ8n6HVNuRgySeJi2awn7Y3/0ZLCFkNKB8weVaiygKcaN9t/F0NO
9/JM9ZexgMp37mWHiji6/KxRi7rUAFuSiIbXT8QRv8xw9CyjAfq1CgxP54sj
U99ds3Hk54nourRiznJxFPylX1qjsgFGRq+kb2gURwq1x7QNCxsgBQyvJI2I
oynxEcfZ1Aa4fsFBvlhWAoWlPFn16mIDDMh+fHvVQQI9yMrQPq3cAIa9lndf
OUkgFtXn5tcVDRDzvNGU5iqBrmxsumwq1wDGJhVEkZsE6kq/xL8k2gAJZx/k
9V+VQIfEVvqMztTD3pqDYXvTJVD8U/lT5ax6yHdpQ9RBCdR77E9yoGM9PDlz
edR8RAKNVyfGpB2qhxRPlYRbYxJIddRuscSiHsKvBvyanZFAb5Wpn6tM6sE1
SSntM78k4lMsUl+/ph4U2i7MP1KTRN+D1xc9GK6DcBPpMg03SRTovNeh4VQd
BJnWOJ/wkkSPUhmpqsfqwN/ilGiqryTqbmIbXz5UBycdq06IXZVEXSPrNkzt
qAOTS8elJyIlEXFk65/VinUwW1jsWVYoicyn2wbOdjDh5CobDZMpSVTuES7y
To8J3r8CTHRmJRFn+5OHLDUmXK9Nt1VckERCKw/cz13JhGSHXzc4eaTQV/32
3UbCTGhNCP/CkJZCRy6vcEnsYYC+JOPuNj0pVOgzJip5hwEiXFrj2y9IIesv
r+3Ot2KQe2vDt8FPCjWu7+tTqseg8ihQQTlACm3ev8KSVY7BxLjJlCdYCtVZ
m0e/S8PgF3AivT5aCr3u/KzPdx5D12SS1c4iKeR4lMOMyYWB3sdfumtcCvXl
2er3basFn85XrDtTUkjdfC7vp1ItbG6519k6K4V8iTcJL7lqobpMdsGeUxpt
ejgZv8CogYawtds9pKRRt9VA027jGuhcv/vtgw3SaIN6XHadVjUsBob+HPKX
Rj3VGm7avysBe+5dWndFGhXkG7xyf10JN1zFJL2DyPf15H7dz60EAYv4Df/C
pJG/Ur5Z2rFKkFTKCpRMlkYxPD6xb19WgHJjg6BBjTRSDsu55viwHPZSeFXu
cFLQeZv99zWtS2H1250Zt3gpaPbGigBN3VJYuBu6IkSQghwjkmdOSZZCHr+A
7BVJCprkW6OY0VoCEvNCAh6KFJQoeEYx1aoEhsrNQs6toaC1BnONk3olwPCJ
4DitRkHeG92X5ciUwIUx0b9OOhQUGn5TbdenYnjfIzFiZUJBLyzs4gdOF0N+
2oGTFjspaGXoJ/uW/cUQeiSm12wPuT7SlI70imHLe+nPOw5QUCrHzzW9S3SQ
iLGxNTlIQXH2SiEK3+kwbB73zugwBXn6f5mee02HpEZq8yZnClpCf/xrHtHB
+6atqZ4rBfWrqLjmh9Nh37aE+vVnKAjMfWUcfenwr0quRtWLgqqI5nHR/XTo
8LfXX+NLQdKee2G5AR3yNyaXKl6iINfy1TE8qnRwKlDIlw+iIFnG+Yu+fHTQ
P++oLnuTgiTy9YRF/hSBlFpalnQYBalmv0m9P1QEIwPflCTuUsj+uP2mzOci
qMtY+VAkmoKaI+IX778ugpRjTssE4ygo5wFSk6srAh+F9Ae8iRRkHRnAlVNR
BPs/9khzpVKQuWqw0+6CIlCJV4pafERBHgrvfi5kFcGi1XGR+UwKGlQ+pvz6
YRF8EM+8/SeHgp5VNpvixCIobO7nmXpOQZdm6l077xfB7bA1QeOFFBTteXj3
sugicN518t9oCQVNfQn3uxtZBAbc2ZeGKyiowubvBr27pD34+/RANemPNWx/
CZJ/XFa90IspqCW2bEiVXF+vf2bsWz0FtX0O77wWRdozk3v2cyMF2QuV7KSR
+/kWjwx+aKag3w372qcSisDcU+N4eysFHbHzbJYl9VVZd76rtZ2C0k+Oyd4g
7Vkafn6kpZOCTMec0BbS3s6snx+avlCQw0K225ZK0p7jWjasbvK8Y1tOhNQX
Qdgqj1ZmPwUJLLe+pfC2CFy+FuwjhihI48FQG0cXaU/SeGPVKAVtSozo0R4r
AmlbnZ0V4xQUuVF65NliEYxKX2CUTFHQqgoJhqcEHepb6UZFsxQ0o6/86cpq
Ovjt3bDpKYcMeuzqxzpNxsev7dkZMTwy6Eva05RXx+lw2khePFBABpkmx4c5
BdLhiDbHkJmEDLLVd+mWzqdDu5q3zQaKDPJKiVDXaKKD+epBrEAj5QVzWZ0c
oAOiNif+XCmDwuS+LG1SLIYX4sDXsVoGfT9usL8OFYOeIP1C7VoZNPAtVsTZ
uRhUFh6Y3Vsvg24fs+GvflIMwr3H/2kDud+PiGfWBiUQ8rnjjNx2GbToN/2+
1bkEFtv3dHDulkGTbTftdMJLYJy9vqDNXAbFHbhVF/y1BDry5p18jsogtzNV
RP7dUnh0Kba+/IoMsnrjBxvFykHOm0/nUZAMyu2ZnGWicog5fyn19k0ZJMlZ
PcjyLoebx475Hb4rgy5p33KR+VwOZ3dqqM6nyCDnlF/5gvkVsEGy7o5xNblf
bGGE6bEX0JQzadUwJ4NmeL5+ysA1MMvmquJakkEmr48p2f6tAZXvUqsRNxU5
rAHDRzq1ELxG7/cLYSq6fcLg5rtHtWCY4R1bqEA+v+7jM+1PwFnGjfmfq6ho
InNLc2geAYndscc11lDRdQNlb58eAmZWlOhlraMiF9V52SerMRQmT71LNqai
2bjLH2VuYvj2gsfw4zYqkmm9EeubgkH0EyWTupuKdBb4bc8WYzhL2+gTbUFF
TyStr/J3Y1CO86XccqKiKB+t43V6DLAquXm5/gQVrT9oTb26mwFB7+L6Oc9Q
kbPRteAKewZ8kywruexFRaZ6tDWPrzEgIXLG5kIwFeXVIA6pOgaw8vhqCkKp
KPjEm/MRbQyYbqau+RlORZJn1tf6kv3NSnjz9KlYKrq3avXyyH8MuK6+2/HJ
Ayr6mXxtoFKICQV7bBt6k6noh2uVgLksE0RuX4xzzCTXV/XV5moxwSD71r+k
HCoyKLle7q7PhDOsB66dz6nI9n1NR/x2JiQMZLfIFFHRtqBzfIr7mcDiqdho
XUpFf68+3CVyiAlTqxtToyqpyKqtI8/2KBNWb+/kfV1DRVf2Sp/hOskEK5ch
N2EmFVELpqqE3cj+HTT73pRFRZv9Wji8vZmQ/0jAOPQlFclN03M2X2LCV4KW
Vfeaii7M3956+Cqpb5eqGOc7KtrxSsDuQzCp7+IWP+MPVNTmWldcFMqE08v3
fAv8TJ6v+splQ2FMeGB4eFdlFxUN1lp6BUSQ+h45kz/TR0XHjCwKT0eS+gZc
om4YoiL/iroh+j0mKCWFXfUapaIywSmTw1FMOFCZOJg/TkUn53P+HiH5emeu
+egUFTl1iJ+oItfn/6ksU/tLRemOD35cJOV9ob5cceofFfmZN0rEkPsJb/oU
mskpi/g85M4KhZP6HhwZ6+GVRTk7icc9/+nrM3dopZAsOht58RrtBhPyjtxS
o4jJojXSHDs4rjFhchtlQUBKFjn5KnU7BjBhk3r6638ysoiaOqOk68uEQEmt
9Ek5WZQerPPjigcT8OwL7+/LZZFb1KTKtjNM4OneveuLoiyKyYh8d82FCZH5
zj8a1GSRRvtp4pw1E97FjdW8WCeLTvYc265gxgTalcCoAh1Z5N2mzti7jQkZ
ZnEbE/Vl0cqZ0Tcq65nwXVdJINJIFjn8nJb5oMwETfmCT8EmsihTy4MQkmdC
6VDjtfN7ZJHxg5zNXNxMmHtz0Mp5vyx6GeW6ummGAcblvcqHDsiihMK5Z3Ij
DGi8udAEh2VRwXOq1dE3DPiipE2RPiOLqpSKU7PvM0BRqGaQ300W2crmsEZD
GHByYk/lgqcsullKXfPShwG/iONHB/1JeXZpkQetGcDl+CCn8rYsok0y7IaF
GbB7h3JgfoQsknlTuU79L4YIjaL9j6NIe/12raMMYpCZezkZkSCLBMbuV4zW
YlB9sGjolEOeR9Naxjg5z5m/dX3L1yiLDmhc76sk60fyzg1z1vw01DwqVV/h
Uw1P82wf1ArTkJ1CpetGo2qokAncoCZBQ78OcBVk8FZDxwDDfZFGQz49Hg/O
x1eBRKhFX446DeUVyGy7U/ECQllnm//tpyHOnnuZh3krIU4r8sxpKxraa7os
xry1AjLji/jeHaIhV56rcTnJFcA4OYtyjtFQgLY85OhVwAJfaKmVFw3d3Hv/
XtKZcriwOz0t+z4NbbL0uL3tdykEFdRvlUqkITHtu20MdilEyQ51Xk6loWO9
5WslU8l57buWtFUWDel/vlK0eW8pDN2qvrVQTkNCq7h4theUwJ9fXcqnqmnI
xm9wbS/ZD/jsuJlvMQ0RqV7LrpwqgdWqexeymkh7EpatrVxdAkcbP3ge+ExD
tPea2xg5xeCmPS9a3UVD545siy2PKIbLCSueqfTTUNYO96tNXsWQeNp1YH6U
hjQdv/maQTHktN4OPjlBQ4mBRVfx2mIo2/J85dtpGnL8slb2iGQxtAv8Ppy1
SENeVz+08Q/Roc+T+keCWw6tacvLVnhPh8lO/fuB/HLIa9LUzaGODhwmjjqD
wnLIdXl7FZtOB/Hc668tJeSQcfDBr0cf02GFZOa5KoocCs7yaVGMo4PmJbaA
ipwcqnEI1pe4TYetPSNPopbLoe6nddfVLtPh/78HgfY5cZT+93sQ/wNvQPYx

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.07},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {0.0685587210529273, 
     0.1837856430924184}}, {{-6.283185307179586, 6.283185307179586}, {
    0.0685587210529273, 0.1837856430924184}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5549834716583543`*^9, 3.554983486319193*^9}, 
   3.5549856750353804`*^9, 3.555002063428445*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwU2nc4lV8cAPBr7829RgM/yg5t4RwhKSKlJC0VlcoM0UCikKxQJCujCNnz
vGST7L1CCNnbHb/XX57P495zznvOe875fp/7lbC0NblNTyAQtBgJhO2/p/S5
tbckRLAStb7r78rHwbHcJ/Osu0QwRAkpDVadAAoS0x+JoiLYywuPhPwSJgD3
Rs26Cr8Itutox7NjLydBS4rntzv0Ihh7I+UEPDEFzFhXRDpHhLGDUlac93P+
AX2nmzWjg8LYITkzkufuWaA23OK00CuMBXicXu1/PQt2FHz7xdkmjL27RdbR
s5gDw9Z3Xmr/EMbWug8pvnKfB9Y1ffOZCcKYVDjH7gjaAjDbfyqm7JMwtizV
Kt+ouAhOfio43RgljFVflDZ8fHkRyLm8S5oIFcbEh8wXD+cugtk9Rha7vIUx
v60VyYOWS8DZp6LG/5Yw1mXJ4LkjfhlYLyo/en9dGGt8Wb8ro2YZmF39JJls
IYz1v+loKZpZBmqHnjytOC+MFaQ2O2gdXAGUPwf3b+gIY8N3lyTksRXgrZsa
YyUtjCV9tgl6V7YKMH83490SwljGW7PemsFVQG45Td+9QxhLPVLc70RdBY5X
Z2/rCwpjTG5JBD31NWDpsl9RgUEYM2jyqGf4vgZiShmHxqgkLPDVWoV20xro
YegM+rhJwsJ3FtpwT60B4yDXZe5FErZaTJdxWnwdgNTS4oVhEnb2wOmz0b7r
wG0u8MGXfhLWJ/BW9U7sOsg7eH33zW4SNtzGL9JUsA6UKuhftP8iYbqKRcB2
ch3s6NM7lV9Gwih6pglHtDfAJmdr95NoEuY6JLt2bXIDHDqX4HcwkoQZQubE
91sbwOG9k/psKAlTnXgb6Mu9Cf5Kk2Kv+ZOwDKY09HL/JujWtLA+7kbCMmvc
w1TcNkGe3fgKixne3zFMxHJrEyzm5Sdj50jYjc8vb7izbwElyqtLj41ImL7E
pVALkS3w+bV86dQJEsZTmNPidmgLhMXbef88SMLodIMuHX+4BezbN/lDBUiY
CDPpZH37Fgg3MTIP4yFhLM25x1iHt0BJc0LcOw4SdtOrOUFiegsw/zRQjmQg
YTKJpUf/EsgguirG8OMSEVsvKfreJ0cGtXnHXyW3EbEwL/k31a5kMHsg4lfK
LyLW9dRanepJBgLZ08QvDUSMvaqrWsSfDK5mhH1O+0HEQj7Pq1CjyWApebwi
K5uIiV1yPv0KkcGu936U4lAiFmlw5u4mjQx0SEM6pW+J2ClCRWYsCwXcfbc/
oMyfiK2pExhVeCggJ7hftPwFEQtvZt7Jt4sC9P2UjlQ7EjHTar65LjUKcHJv
dWg+R8RCrSwkKuwooP6K6OSYABH7rXWqv+sXBRh9UgebPERsS1w0S7GDAtqH
r4bzcBIxW3pjRedeChi4maCjxkjEYgYu/xoao4D5uwpxb5eFsCQ6w8eiGxRA
ctY0V+sQwq5uekuc3U0F0fnXs4xahDB75gmGP/9RgfiGF+vtn0JYDccm50MZ
KpB7UpP3tkoI62hI2HldhQo0vYwF/uQKYZWlYmM1x6ngVqBl49twIWzxykZu
+U0q+PvL+7/PIULYxfoJhXxrKnjIl+xWFCiEMXvqFSXYUIFL2LTMHx8hjPfZ
PW9LRyrw++D0Us1FCNNuPZnz2IsKMpN8NP9cFMJaAowPSn2iAkrZl0w1ESFM
5tvwc6Y2Kmjs3ce5JSiEXTN7kGDQiY9/Nce6mFcIu82o7RHQQwXqSmiXOqsQ
dq/ubsnqEBW4fWwL0FgTxN4nqvm7zFDBqjv5DuwQxFJtVKaPMdJAdYRnJaFF
ENMLDJERZqGBd9nM4uWNgthNlaMXZ9lo4MA0b5dWpSCW7dLT+IqHBhzNpXW1
swWxn2wvpl1EaWD+yBmJE8GCWJ/63lqDfTSAnW97wvxGECsN6U/6pUIDb+3M
uqtfCWLR5vkPDQ/QgFKK5Vs9D0EslOnj/NGjNPCA5EI5aSuIPZkXU+0+TgNT
K596ThsKYjvkB7ADpjQw+n0h+CybILYzl/d2mTMNRDNvepkzCWLCVRTDMFca
uGBO73STThCz3H+EztqNBmrpBC482hDAOA17Rumf0cA34wOi7/8KYAxh0zeE
XtKA66xz/HCdAMbmDTS/htAApxz5u62fAPaIWce5+isNVD1lTHT1EcBAJ+nq
8XQaeNbC+c7TSwBraCrvKP5GAwuuO11C3QQw08C5V8lZNNBZo3ks/54ARg6m
87PMp4G4254/qKcEsOyjstI2FTRwKI65/Q2HAHbgv4XYP500oPbLvk6LRQCz
2lK9eKibBjQp/WUr9ALYd4eSNu8eGjhxKTv1yiY/xl/JqirWTwMX+a4/V/zL
jzVfsaRT+o2P37NQ7mc1P/adf3fW3BQNFN6478npxY8tHfsmQyPTQNnbLmfs
KT+2ru2UzkulgYrS4/edHvNjjcxej8RpNFAvInKx344f0/lz6OFHAgH2tlQp
pF3jx86FHc5IpyfATa3d3ac1+DEJRZe5JGYCVJdsVfJf58Moj5ZPM3MTYKwA
x4Fzy3xYA+sLfifcDEw6R8Xm+bCt/gDF37jrJ3K1v07wYTaxrrcLeQjQLP29
WUMnH9boNLx5g48AnY7c8OLI5cMKEkITwwQJMO3MfIe/PR+WuJCZ7SNKgLxQ
tu/cAz7sU0rbxjBuRxXLYbG7fNhkZ/13NTECVBNsn/p6nQ+z4L7rMYO7tief
1mDEh0W9NI3V30mAY7eey3Iq8WG/hbijp3YT4A537qcBU7yYzaadTaMUAd5N
rCd9HOfF2EMLnvFJE2DeT5/v6SO8mI/1ObkLuM+K0yaaenmxkP23DQZx+1TN
mfA18GKiLVO1f/cQ4BxPi0z4V14s4sgdllkZAqxIDG3/dJ8XaxsV9vqmQIA8
TUa2mXd4sdoJzkcTuC3WONjLb/FidnQ3ucQVCXBN3xuMWPBiwn3v9gXhVphz
+iJlyItx/fbRvq9EgO+OXvBIVcTbu66xKKBMgM3RKmZWAzzYlUEx7//2EyAh
0TZ8oJ0HM/3vZqwpbuWv6e3nG3kwv937r/jiDiqUPatdzIPV704t/IvbuFPi
lPh7Hqw95yLzlwN4ezz86r3nebD7Vr+URA7h7ZGM3c4a8GAcIu+cdXEr7wos
qNXmwZzYrt+0xx2kwH4wX5UHq+NlUKzFbaxPrxTGy4Opphz2tT+Mt+e1uPtM
IzcWbibrl30Eb89P+WrVD25MKYZbsxe3cvDDaPVibkxh3PsD4Sje3qcpYfkv
3FjUoUlDA9zGJSN8rK+4sbdm2QlDuJtXWhkqtLmxGfculVU1vD0K7/Gjx7ix
ydnlF6RjeHuMRh6ZqtyYLbOR5xHcQfwN5BgJbkw15sSzx7iN9/1YcadxYd3J
S95ruH/dyZ44WMyF1TIKD4+qE2Dr0JqxZjYX9p9evQgVd+cF9aITX7mwksuH
OIQ1CLBfpyrgYhQXdn33S6HTuKfEu1Qeu3Nhy3x9dem4GXs23UuOcWFFKxZl
tzUJkNUY/Kncz4XFj1Dc3HFz1Lw481OeC9MXOTwfhJs/l1NiUIwLwxbDGItx
7w7eVU3b4sR6kps6OAD+Pusf59Uu4cRm6it3xeLWxHwen87hxPb9V2idhVvr
cMPIuTROLOK2390K3Celz+feiubEnlWjiFHcpnRW5j5POLHwlSMxkhDfb65f
fgQ6cWKlrX3pKrgt5mYVIu5zYqQdOs4Qt+WACy3ZghMzTDdUuYLbrvB1Yp06
Jxb6/blRKG4n5Sau1gOcmIboG6lY3C7J/C69CpyY3BOJ72m4n72L0p/ewYm9
089ZrcTtb58+y0nhwIjE/VKLuAMnFy4KrXBgK6mKJWTcIdcOle/8x4HJndTn
ZNEiwEhDFKo0wIGxNCa2i+JOkm05YlzKgXlk8DEC3Hf2ZpV75HJgMU5zKnq4
5aSDT2Wlc2DPmlVFjXB/Ez9rwR/DgfFSokSu4rbbpfLneDgHFiLzXvk2btUd
fA8dAzkw309f6O7jzie1PG9/xoF5B3xvccXtJpTFyuTCgT0JdG9+hltdIDj4
oC0Hlr9IeeWNG+M+mxB+jQOb1/+55y1uL04VhZqLHBjT3wmOMNw67Hy5a0Yc
2C2ti18icdcytVSbQQ7scHotfxxuP4Yso9dHODAHt9D+RNwGdMHdhcocmJaj
zrUU3Nw0uxtTMhzYwM2yD19xt5CNp0QlODA2l9HAb7jDNpUdT4vg3z/47lgW
7gvrvGR3Pnw+vXNis3ELr857p7FxYBvJEmW5uHuXmrkG6DiwTPWS0Hzc0QuZ
4Vyb7Ngt9ZsShbivzgXt1lxkx8o2l62KcIv/s0t5OMWOUaWMbhXjHpkyVvk0
wo7B8jMiJbgTJ5WLfvWyY/mKzS+3bTXOq01oY8f6d2ekbltmbL5BuYEd+5pQ
7b3t6d/N52/8YMcaRReI2/42lDkQXMyO/TjGen27fbuBIKuKbHaMxPfn2nb/
qn12c4tf2TGX9WvE7fEtdxu7/pfIjg3EGb/YHn9epzLd+Wh2LIM7MGn7+Vzb
ef28w/D2g2afbz+/Wus8f24AO1ZYp8ezPT/kX81Rf7zZsZjUh+e356/sZ6YU
8Sn+/A8PG23Pr0dDUPqJR+xYXvwjWjLu43V2h1wesGMCO8m3tteHqcYYJd9m
x2qp0c9jt9ezUvlk9xV2bPm7rFH09npW8LawXmDHXv5zaIvYXr+y5pG7J9ix
a/JuG29wNxdn2nzQZMdkNzo+vMIdUhi0XH+IHTs6LDvvhZuYa8yssJcdk376
L9cZd/d35bcWu9kxI5EVaTvcHzJ5hd+Q8PG8l9K/i3t3WrPsLAs7ZtcomWK+
vT6pmd93EdixyisvRk221yc56JjROhtW6r+v5dT2eiQYG2ZOsmGMdD4VR3Er
f2i2c6hjw86blK0K4H5l4Ey/gbFhLPpbfay4h6liYc8L2DAepZc3Kfj+fHvT
Oj8gmQ2js1Iz+4N7VoFKSXrJhnkNMf7KxH1iKOGt4lM27La9f2k87phgfYkc
JzZsQCnvdBhuw9UwnfKbbJiB1RtdZ9xpSN6/T4sN+3xM4PNB3IwOLTssj7Jh
8nOhPlLb55GUy7dJZTas5sIPRgHcHK8rWlZ2s2Gj36M6ZvHz7J7JJWFeKium
LTxZGocbD5Y/6xSxYhJz6qeW8fPTI0LhcEMWK6ZeXFbZj7tbv7X2bCor9iuJ
raMSt++3nTNXI1mxgbu8uaG4x11yVB87s2JiGtK3FXAnso+gdFVWzP7+C359
/Dwnl/iePSDHirlxrqfJ4T5vqzhaJIH3d6WnnQM3Q7srcy0vKzZoElLfiN8X
lh95DEdmWTDLpjMa+rgllDV6iV9ZsECzz7ny+H1jYPI3XCmBBSP9Zr3HitvV
6d25E1EsGOHHUtYYfp81FfxrfOTPggnk7t6Mwu2mFYPabViwpvfFl5lwt5vQ
EkMUWLCAa8qDFfj9SXP6euOLFAuWdMrIOxK3XMTFXRU7WLDmAY2cB7g9+jIi
FjhZMP4nv78RcSveuu5n/I8ZO9VznGyJ388+j8ptub8xY7feXr00dpAAsyIe
KOxJYsbu75g5+R13f6HIX40YZuzqiV95z3GrUu0tHwQyYyKcjuwiuId8JE0b
HzJj7hcq3HTx+OFI5As1v33MmPH70UpvVfx+LNJlYs5iwpSY3DPC8fjla3B+
vWMKE8ZaVEAxwH3/jmzQ709MmPVQRRA97n9CXGKlgUyYQUDicxs8/pm3a1d2
us+E2dsHmB3A46XVPTctRvYyYQ+e7U2JlcXPb0q7hPFuJuzbY+eQU7Lb58GJ
iVIiEyYqdCh1CY+/NjzlHN4zMWEOnAam2rjJ/Qu+xqOM2FP3cJduPF6jD/XI
LothxCw21c52/0eAP+4uuiqEM2KXmLMVnXB7w1uaH94wYt/+aYjw4Gaa1at7
9IQR81W5J3RcEr/f9XmGFMwZMR//euto8e3z+yN7lBAjJjtyMUAcjzfFbIpv
uAQwYK8Da4QuCOH7ubb2BJc3A1Y7x9Dbgse3ons65RPcGTBKpOA9g23/nl9p
useAWQifHNEQwM/zi3v89ugzYGENDL/58PhYUDv4ewcTA9ZjJXXHnRO/D2Jj
Imwo9NiJq3uej3AQoAD16xO6FXrM73nPvpO4+QurTyiO0WOnTc4b87Dj8fM+
cq93BT32b4JTNoCFADnFrBkOPKfHitfUZ9Tx+D7A1Wmyzhn3g81hfzp8/3V6
/rz2kB5bsShS6cHzAfbg6Aj/K/SYgu/s1wE8f2BlaZUfPUaPpXHwmXNs0ADT
kvr5kHU67J6NMLlohgao9fyf5+3psBPrvmGSLTRwNnJPLukeHXZ0Mzjm1i8a
SLytVqVpSYfF1UokxP+kgVMEyz8BJnTYSZ0pW/56Ggg/mCUtu58Ouxon34/w
fEkx1ijpxjIBw55PROhl04DHg5t5r2YImGbF2WZtPN9qVXOpzhgjYL0ycfBY
Bp4PdcSMU9oJGOkofYgYnr9Vss/u+ZBLwOJSBe7HxtOAxaOA5FZnAkZNMPuX
HkQDGcdj8zceErCGwweqLgTSAD1vTo24NQGrMTcZ3vCngZQvfRMPLxKwH/JT
H5R8aWB5SE6G4wgBG55NVzB+SgPEdyFnfRdpqOBEo9LNO3g+DDjP312jInUd
EZv9eD6ro41e3hynIv7ne+7lH8Q/r+eQf6WDior5Ky1VVGmg4Ey3qEk2FanA
inRmeRogX0n8rWZLReKfL3qo7qAB7yfqtpwTFHQHK7phQ6YCU4+5WOZOCsrE
Uk6or1PBHu/4VkIVBX10LX9BWKaCWn/WQyvxFCQvR9CynKYCrqh28sBVCnrz
5pn8yx4qCC+875fRSUZ+as6PhLOpwLp0d0lqFRnN/vSNYvpGBUfKW/8l5JDR
NOup1yMpVNBbe+RsZAgZ1dm1pN+LoYJd3YzCnmfIKCpn427aKypIXo3+bFK9
hS4XyCtmX6IC102jLoPcLfTC3Jff7RwVnKLSs+klbiG334fb5Q2pYIbp7v1j
XlvoVtEOpzOQCpSFDu6X0txCGb+1rF5KU0HB/p/YSu4mSiPWZFhMU4Ay6c1J
/iTc4zq20mMUkLJp0KwUvomCj0b86OingMjyxiFr501UaeniOv2TAlyMGqk9
hzZRQ0/vt8FvFHDIpkG9LH8DJScu/3C1oYBvZ/wre5M3kIULId/LkgL2qJ42
WIvYQFfcNfXuX6IA4kb9ZWXXDWR3RLan7wQFrPjUu8Uf2UBfWyZUxcQpICe+
rsCncB318wLMs4EMFHxew4TUdTSQIPHrIEYGiXf1a9H7daSzP0u8LIcMwpTr
utYfryOGpF2iJz+SgWNZ7eo9tXVU5tQlLXOfDKbiXj3zlVtHdV/D5W9fIwPL
lyeZE0XXUW//P0ZbEzIwMagVGthcQyk/F7j+HCYD1d6aA0bFa6hXT09YnUAG
X0p9S2y+rqFRnk6v8oUtIBmnp/Mqag1Ft2j/Yh/dAnx3as6Vu6+hHFIa31jl
FphfqXbYr76GUnNKMwNeboEMvupMUukqquU/4uiysQlMrvKdGv66iii3deUp
Y5tg9YvFaMqHVeRx7NMV8eZNoK6zJKTmuoqekv/wH/q8CWqdxd0t9q8ivkCB
icunNoHNDxtBaclVxMRkuOqnugm4efPT//GuIq/F693aopvgfKrh8LPZFVSs
l6V6cnIDDPe56calriDHTp2p0882wAuZ6sG7kSuod80ozs1yA+x5xOeq6ruC
oJLustiJDXCfO+XLj1sraO9a6c9Ujg2wDjt4xnevoGdBMtoRb9cBX9K+Xrnw
ZbT7B0bBXNZAzqKb45L3MrqVXJny+uwaMAPVnCWOy6hkIvVVoNwaiOm2AIZn
l5HNNWUp0LsK5Dj8Em05l5FF443ng/tWwc+LHRpHtpZQqrjYfXmGVWCXKN5F
mFpCj6T6uz90rIA8jXy2kJol9Nr16sNOlxVw3G7sYY7XEqKntDk8z1oGf0r2
sT61X0LXEjQcYp4ug1ds7nG615fQou1o26+Ty6Apnq+9U2MJ7SSYNVr1LwHz
Ds2jG+uLiMfkObq9vggc1d4zaNouIm0f/vtSTAsgLEys/8LVRSQU7LBToXIe
5Mx+zLE1XES9iVVsLl7zYDU+/nac/CI6rvLyyvjGHHDlSKthnFxAES2cjr3t
/8Cz/jL/husLqHWPzczP639BzCGtW2NGCyh6l+w1peZJgIJ+qFM0F1BPH035
AZgEBN3af0o7F1CJsvT6ws4J8CK9xSikZx45z1ysZR8cA6+ejQlcMplHg7SF
lT6PYZDSbTVjrzWP7pmQbR4uD4E61b+VfsrzaJ9I4tbI30HAPvHvUQn3PDK7
cyPZf6AfiH6azQDhc6jvp8hZ2lQ3sDi3dN3eaQ5V7G3x6V3tAh9Z1vkSTObQ
Uz8z9+PMXUDcjs6JmWcOxaj48K/s6wDSWoJHfvrOIrUldlORzBZgtSL8l3p7
FolnLfXG9DSDlNSdH5R1ZpFzpLb0GnMzkOPfSw4lzCLzeA03nd5GoDx6FDN/
/A/dfuZ02rCpGqi9vHZy8t4M8p7eF3NCtQDUrT/9fPX0DDJ2YiphmM0FZvej
6TvkZ1C92cCpyNxs8OhcT0n5zDRKb2U7cuHXN5ApcU4l6uE0uuTbzXXQ4CMA
7+wD+YymUem+/16+TnwHmliDpn33TSPzz1edTp8JAP9tvjm5sTCF9hrzmKgn
DWruLTshesZhCgWyfpnxfxSF8lRuu1SaTCEBAYNEr9lYpPP5Rbva/ik02lSa
mMKTiCwDsMC9y3/R5cAEwl2xLyjGXI2Bzvkv0pwy7fPO/I4Um8yuu1z4i0Jj
ztJUGXNQiZZL6b9Df5GUjYYHMspFPTI5Lr1rkyj202AmuSkfCa4pzmQ/nkRl
Fe4dcfYlKOGegb6c+SQ6+FbC47dvKVIdvJcUq4Z/fsZUjBBRhoyrkq+/2ZpA
0dM2uXuMMeQfKtFh9XQCZb2wixZUqUCiLFB14MoEStDmZNkfV4FS3K6+Pac5
gaxKHazkuX+g6htR+pA2jp6wG611D/5A9MpCZSKe44jw96LuVYsqFJywXyzo
xjiSsCf7vsypQuIkE1fm4+MoEgV797NVIw1qoOoS/TjqWZJt0UyrRo326W/v
jv5B3PXi5Msb1cj8T8PM0I8/KOSn0PtG7Rrk2sia3Oj9B6148v2sba5BLHAv
o/btP0g9bY71lkAtCs/WvVGo+wdJPX1L73CuFuV88BJLYv6DePg2wugba5E2
d5zrjokx9EDye2kIYx1q9UQdITVjqMaBWpWpVofm7pDfPn81hp4+KO//9qkO
tX9T4T1jNYb0+hStHFrrUNGyVdAOnTHE4XqpyJ6+Hn1Si+adlhhDbGjyUfa+
euTt0RJUSBtFIvQifzTM69G9ama+VwOjqDtwkZHkVY+MONWDLxSPoju2dt46
yfVINDIpeMl5FO3APg9m/a1HtIE+vorzo8j8zNCHLeYGNPYfX0iQ6ij6w13l
ni7RgOrvnuC/xjuK3NYnCxuONqCMDPcQxdkR5HiuV9fcqAGFrWTykxtGUPEF
ujoLywbkdmw8pD51BKnW2CZ1OjSga55iAu99R5BUS9JWvUcD0qkxDrW+PYKS
BU3i1AMakCyXj8Ah7RF0hX1dXuldA+I+VxzKKDGCcnM/zcRFNaDlyHmBNupv
ZEu1WXj/qQH1DEqHxfX/Ruc8FZiF4xpQmdRlQbui3yhpz1jOztgGlHgvKEwz
8jeKidY9kRbdgF5nVglyOf9GVZh0RWV4A3q4uhnWd+43qj40Nmcd2IDOqSsL
fVH5jQYP1V8If9GAjnjdfufK8xstDl3TNHZuQLtqPwjp/RtGLBwF395ZNSAG
7uZ3Qg3DaJw5287qfAOaPMdEHEsZRj7iR7grQANqeq8W/t1nGNU9sGpNlmlA
2UO2RM9b+Pf7S+qIPA0oUvpzuNHxYfSi52gF11I9emrTS9wlPoz2fHU47d9e
j6osdyv1bA0hlt74vDfZ9Sho9rWSc/4QOl6UTRQIqkfmbstKAo5DSPS1OhS5
V4+kma/ty1QaQgJS7nUfterRfHDdPsOpQdQ3r8seQ6xHL1NjlH1vDCJ0wLiH
qbAOGR9kU5HaOYiWZS8PWvnUIdFyR5Xy7gGkMQlfHTpbhzK7T6puGQ2gbloL
A/9QLXK7la0ayTGAUFfNOaH4WqQ7v3P/wZp+VFpXquNsWYt6WZb222riTmg4
qdFXgxJDrxzg3OxDQLCqNzK0Btnurj2QmtuHPjdtsGvo1yDGwx8Pjir0ocOL
rO56+P5rqmA55DHZiwzPrqrEXapG7884HNqZ2Iu8Agqc5BirkZKV3uGLYr0I
fePOzzCuQusLWYeXO3vQLd3jOz8uVqIfT3ccCQ7pQQPWAv3RwZXI7N3CkQa2
HmR+x+VsdvUP9KIySg2sdyE/isQfA84KNNl0NPR2QRfavTdnR/vHcnSmp2va
37UL/U6ofBWkUI5EZwU+dq93Irue1f9eaWEokxRAs9/oQGyHIwrog0sQUVLO
LLKwA5nfVFB8+bIYuSvUZpY97kCrL0JsxxyL0AktRkuOzXakfjTBYFqjAA3c
e1KZuNmGWiyPtI16Z6Pjj0R3NhS1oTdq/7UJn/iOUp4XPFpwa0PeVlv3XxKy
kFPY8h7NrVa0+Uv/8aXyNMRedv9111YLcp6strWLiEOZMZdfuwc2I79Ecuug
jz54KFkULbj5Cz2KMvae0wgERw+vGt5w+4UYpxZe+K+9A4wGqrT0zSa0JBFU
IbYQDaIefbmht/UTme5cLTif+BnU1n7Y40ZuQBqj5etDt76D0IHOruonDWiV
HHbY41oOuLrI/1qAUo90ZraO8d/MAyti/tNplDrEYnZzwPxlEZC0dc8cotag
4PJ/OhrR5eDfi/wbCs9r0Oq+197nyypAQeQS/2NaNfJXyMvf++cHMKqwecRP
qEYj40WHhbWqwRMhCzVduko0FSt1Nki1AXQWq1d+YcBQG8+ubE5qK9jx2HJw
kRMhds29welZbSDA7fSBIP4yVH21b9HHuh3YPN05XL+zBJEDJ0B9TweQe1F+
GB4oQHy66mcKu7pBaiDbhNyNTPRgV8CXun1DoDnnQDbrdWvURyc9v/BgHLQ7
pWmqZhkB4WMlUf8GxsFHF92/xtGOgH1QsmHWcAK0JPITzzm9BpYTb7/+UpwE
NsceK5y/Hg2WLmXqZU3/BQU+afnnO9MBYxx/TprpP9D9opdDtCEDRCQzmj7E
/oEnkDFzbigTtDFqtnrKzYKPGqqMue3fQX/q20l38iwYPByYBsrywItHa712
p+fBNYUTlPPBZaDA7LEy+dcCUI9MClyNRUD3hVnAMfpFwOnFwGtghoFkwxTC
0P5F8Pffzbh/1uXg2iPlGIN3iyC+SqpS2fcHUFjzeZZivASCttoD6Hgqgbw/
f/zM0yXwTOWlaWt4JZhg9b3z9ssSuPzxz7hjUhVoHihpWaBbBoKPktjyq2pA
2TjPpaOpy4D+64VWX8NaEOxdGezRsgzmh5mjzDpqwS2YwaGwsQx+GlgrbI7V
ASnFS205J1aAj5SMkQZjIwDnq7pye1cA+e/5+hsSzWCkQ7J+amIVLDGmK526
3Qw+MEv/UGFZA1O7mUJVU5tBXj4krkuvgW7T3MsMKi3AiGz+nt1yDeSWC/1L
hK3gcDVDw9P2NZDW/+DsG+9WUMlUeWx1bg0krlXlPqptBenVCREU9nUQouj8
7IRxG5iXVMzCwDp4+L6TZ/JaO3DMuTJpkLgObucoOTUntANLs2wd+5J1YPHL
p7tgoh2E/3M129++Dk4zHY57bdsBnlctpUTQbwAZ+whV+eedwLvz11feyxvg
90kz04cx3aB4SP6oInkDaP55cuPnQDc4bfo3LptrE3zwjHugsLMHZJxr0tvc
hedHRVMvp6J6gLpDaWYj3AQV8k/zrN73gqK/pZkJnpsgnjuedC2sH8wK9w+v
r28C6pfq/8ra+oFst8FJCvMWMNeb3rdTYAB0T9y61yK4Bfg9DpzsCx4A6cWO
e2b2bYEXC9WuF98Ogisecx/obm0B1amVmb26w2Cq0UnjLJ6/XT/C6th1axh8
sj1F/vprCwT6iG74eA+DSRv7f797t8CUJGAa/zEMVg8+bf49vwXiL7/amXj8
N9j151yflhgZCPwUPSMOR0DMi5md5LtkcFxMsf3XtRFAtN75xcCRDOzuAvPn
z0dAmALW6fGEDBqZblkNlo0A82nO7neBZOCtmf4sWmMUfJecd3yWRQbLGSBD
+NgYCLLuvJWwiH9e/hi/3ZUxcFrbnIVxiwwSkg89qnk+BuSdz6afYqAAk0+K
x5wrx0B9XW2GvwAFZAWK1bQZ/gFfb8o1T6hSwMMHa4OB18dBN5fxAYsHFHDi
76LWuNc4WE/TkDvtRAE7b88manweB+/1Zdek3Smg0eLPvZm/40DI6K1R7CsK
kDNoW9V3nADxs5fUM+MpYEIug5vJZxKIfi2Oc2ujgLKkL/YWKZNA15d15mQP
BYRLJrVn108CAxkdM5YhvD/Rjx8sef4CxRGX56ZTFJDI5r8Hi/wLiosaFDUI
VHB90krT/esU2MpoZLsjSwW9n3c9XGieAUE5niq2DlSQx5xmkrI4A6qWQv+9
caaCUOujh68J/gNelvU/492owED2POHnxX+ARezj4wwvKihLex2SMvgPrKvm
9V0MoYK47OW8azOz4AbMkaZmUMEzQa8oIvccSGQ4wfommwrMH/F4/Nw3B/I9
xtsF8qmA/7Cc/jHHObCkx/uWrYwKvIuu9RE350AqzUE6soEKcq7/oY2/mAdj
ggoppn+oQJJPwaEibB5I7q6iezhJBUHlDmMfP88Db/3DKc+nqeCBJKHufM08
uDVgKvt2gQr2jImGVLAvgEGVDM4bFCqItDaWigleAA5/D5KHBGjA/WHxSdNP
i+DSxRH5YnUaOA5WbnFnLIKqj1sCK5o0wM67z7OmbBEkV0gOymnRQGRWfOHR
wUUgoj4P/XRpIG/5tdyunUvAQX3hnMgZGlh0M+Oc+LAEHlZnTnhcpYF7viu/
XMOXgYZvUH/WExpQNds3o5K0DBboYh88fkYDGzJ3Wadzl8HmQ9NZDQ8aeFXf
D690LAMbdane0hc0kMRVmaUluAKWKTykD3408Ds0JJQ9ZAXstz5aVRdBA2ax
+y5Gv1kFVz/1Gu7LpIFllsEbqTGr4EzUzz6URQNBtgH38zJWwX+OR74YZtNA
neZfz+aWVTAXOyJ+I48G1Abi0xiJa8AgKnjHnRIa2CFKpH8QswbeqFIMtmpo
YCiUnKaRsQ7aYmUMLw/QwJOtL/mnsHVg/mriZcwgDQjfvFRxsWUdjEuyJg4N
0YCxal6X/dI6eNB+N+7yCA1gzbb0SYc3QKTeluCxCRqI5xq9yI1tAMf+SIuo
eRqw8q2jH2reBIzOPZEUAgFa8Njk1w1vgvYnYj6udAR4NoLzfs78JvhSx1a8
iFs92ajjNe8WeHyyjfCHngD5azqSDxhvgfM9tTvLGQmwlHnEwA8/VwSVd8WZ
sRKgoM9m+MEmMqhsKrPg5CFAdu7o0+KDZBCe7HnPATftnQaBY5YM8riXfnfh
nvrscXeYiwKaZZ/yxfESIFbFrO5vSAH6vGv+CvwEeJ9J4PdwIwUUv5hMlxEi
wB/e8vIB+Hsa2RV3tFiUANVo72L39FGBT028DbcYAX5/TCCWT1FBj72+9A3c
8Q87CKtsNGAqwanKtIMAvcyed147SQMzIt8r9HYS4HGFNs/9VTSwdlLpRP5u
Ahy+q3H/wTUCbHjuX6ItRYA7kheT1KwJcI1+F91r3GZjyb9ZbAnQlmV08Cfu
5qv8F+OfEWDJ3VHr7foP7NyEVtdHAqRnjSix3EOAnzSCSVr9BMjJwdR+R4YA
r/L9qRC8RAez/z6NUVQgQMYP7cv+N+jg6AOdAhvcXyQr9zDco4Nti2fvpOJe
25/gt+BGB21I9G/+UyTAoAs3TJqi6WCyb/YyvxI+H1EDv32H6aB72JX3g/sI
8J7UTwHaJB0UMv+kT1QmQN70El3nBToYEfcp3BC3RVlU6i16etjQcZa1GPfq
8CV7LSl6qMbqfj5YhQBl9nQStqzpYdSli/3y+wmw6VuVqoMdPbQf+8/rCu5H
h3Nv/XWlh+Z9nPWBuCtOhtV2vaaHnNXWWvO4L9uYBOV8pYcpxU6d3w4QYGBm
0+6Hc/SQWcGiW/QQAS6p1Wj+dmaAXy6wUDOOEGD1uUzdmmcMUNrzUm8b7sj7
7w3SfRggayuyWcOtGWNj/jicAXJ8u/VN4ygB+tHxOvPlMcAOfqX8atyStWbp
WisM0PBE4kq9GgGuDGvl7KUwwMvq8gemcNduyBVzMTHCa24zsmzHCPChPKW2
R5ARan4LPnYCd1Fg3Jj9AUZ4g2i3WYL7rOmUWLwjIwzobyBHqxOg1MM2yVfu
jFDu8+nifNyrPiWyD18wwl6rt6qtuKMLAg+rhTLC1vuZp5k1CHBSbP+51u+M
MC3/gpwNbo8Rdz/6RUbIsHg0ea8mAZ7buhU8ucEIoX7vhgbuPYJnIpvomGAQ
twrzedyNuuJJH/iYYNQuOYPnuIVTK8tVVZigobt2YCvuDFuuDUs7JigbuzJv
Awhwpk15bdGVCe5Htjee45Y7cn7Fy5MJ0lmXPQ/BnUiIWogPYYLZff1V+bg/
BMtMjeQwwVkJdlcq7q6V05MOpUwQTYtc5IH4/jW3HaevZoJF1vOju7d/35XM
G5HsYoI7DvYxb9d/eGdr91luMEHu6UG7J7grSNY9i3TMkDn7eqkfbpq7X5cX
OzP84WOdH4nbTaelLV6MGb5db8vOxm3bcbVxRIMZFjolN27/Xpx21Kve4QQz
tK7sfLGAe+rj51p6I2aosyw4uV3/cctqplLyOjPUEHDM59ciQPO1x6WWXszw
qKC7rRruiMsfixf9mKEVYSZAG3c7wgq9Qpkh107sggFuo1csefGJzPDypPyc
Be6AGbkc1XRmOGgXWHoLd73xme8VucyQo//v4e16Dx2Rd99GqplhmC9J2W27
fuNpQZrDL2a4PzM93QM3+t33hb6bGZr6VXb6bNcP6NJSQoaZ4XrXsa8B2/UF
XySTJf8yw1TXRbkQ3C7cJz5/X2CGEXeqTbd//89xuJtwfJMZpqAw+e36gH3H
Mj9ZcrDASN+gru16gvuf2j4uCrDAHV8c07frPb4wrEV57WCBHO9KFNNwT1iL
fuCXZoGkfm2zDNxSjRqR8Yos8IPMb4XvuC2Vb4SrHmKBvkdsvubg/hTmHVah
yQK1B/Lb8nD3ryeHmOixwNDNqM8FuEWvNASNGLHAmy+nxbfrKy6WzwY6mLHA
NK/Hutv1F2HS/G/ob7DAg8zCAtv1Ga2vD/qH3GWBliqRr7fNM2v2WtKBBc6r
1Kds28Dkie93NxZYCJ/abdsv79PL4y/wz8c+H95ur0b0x4tWfxbIFR2zvt0f
4/NxT8swFsjkk1SwXc/x0JHB9EY0C6y4I6O5Pb5ua3GZ64ksUK7I03l7/Mct
NLauprHASkGfG9vPl2Zs3nQlhwVWnWWlbddzEHVd4ixKWCDfq94z2/PjcTTM
6XIlC5ThaDLenr8pxSw980Z8/u5lM6biPi/ZJHqpHR/fQ/N7n7frP4jT/y72
s8AJ0RDP7XocGQ7W8gtjePtfZE593K7PoEmFmc6wwP1B0z+263fIS1rW55dZ
oIVj8mzodr3L5FW1c2QWqKgiUx+4Xd/R785lwsgKlXqPXHiNO6EqN9tIkBXe
l1N9/hQ3Z1Grz5kdrDDmb5qYC27nb3OXDKVY4c3yPuvt+o5TEbKE0wdY4elx
O27L7ffH/0SbvjorpM+zvLNd37HL42bSSR1W+Ct2t/12fcfinY8GJ86zQstA
1kAt3BZXinbrWrDCrHOFcUdwV5/tWtS+xQpP5Wne3LddP6LG917LiRVesaiZ
FdueX86Xf9TDWOHdk5/Et/djGiG+4Fg0K1wQro/a3q/ElTJ/tURWuPjhe0XP
9n4dWFc5ksMKMfFY/vLteq2M+8/2t7PC9pML3/1xkxNen1XtZ4VFAoLeT3Fb
RSZJqYyxwvmdCdSHuNU8h+uVllnhvh0Ns8a4R0zOk+QE2eDKvO13XtwGevZT
MjvY4I9PMtU0/LzKOxZYuleKDWpKlnls13v4SdXelD7ABj1ypf7W41ZdPZYp
fp4NukvJPt0+Dz3f/6dPCmODdKT26134+anA8pn8L4oNBtuIy5Vv13847cms
TGCDN30EIr/gVjKWJTlks8GntbeuP8Hdy7zvT2MrGzQSyI0Qw33ASc3Ti48d
jtfd1j2Jn+9Dv4sPXBJhhx+E8mQUcPsZaUzuk2CHOnaMX3hwD8tBowFldtgb
XOPdgd8Xb37r7jxizA53ZnW+scA9fuZs4b9Adrh20tjzIn7/BJe03q8MZ4d/
JJk5DuJWlzsvHhXDDktS2+T4cYcwXfQ9+Y0dZu0LkGvA7zdQYmGa8JMdynlS
RY/gjpS9s2DGyQHRh3OAgt+fpxmfy1a+5oDP0+U1lPH793qpWrtOCAeMv8dz
eOsg/r45rz6r+sAB+xTOR1fhjp980F79lQOymsp8NsO93mjxvO4nB0w3dgpz
we/zxHdqHU18nFBwbpIhUhW/P8+sPjcS5YQtHCFql3D/Yvku1yzJCdW+TzaI
4N58LOvRsp8TFuozbUbi8YXxVWH5dlNO2B/AffMtHn+Q96x69LznhOnKr0wv
4/EM/3CWvHk8J2Tom/rMh3vv+wedvV844TiZol6Dxz8mHH/k+4s5oSJ/9lFl
3ClzbZ2DA5xwRWpEd0OeAE0LshTGJLig0eXsa1ayBPhN/0H3bCoXXGRKNo/7
jwDnQyTNBrO4oFmXtKoObtX+rq6fhVzwUbSh2rgk/n49PN6VVscF+w3EOvfi
RqGkznt/ueCKDOSKE8f380B527gMN+SWOrh6F48f+fe6nOtU5oauLYkcNDy+
PG+n0FZ1hBveyn57MBR3D31Ea+JJbqjBKoAK8Hh0ZO/9Fss73DCYQ8V+XQSP
h+yJvwaTuWHYO2HPk0QCPFTccKYpgxuSQmcnf+LxriujZ1NpPjekj7XVNsFN
Dp/+GV3DDR+Hi9ZcFMTPzxKs0XyCGwrcE6k2xeNlIrNNfeceHsind81BjJsA
j3xAVU2feSDzC+vzRXi8PqaUoX7nGw80+7XTigN38I+YbLp8Hvhf6M4WcwZ8
P888jTtQywNLW2/HLePxfzRQf/phigd6H9O5tJdKAx4OFqLZJF5Ycbbcd3WB
BjrV2ztoYrzw5EMlh2t4fqHAYhBsIM4Lu8ruO1bO0kBP1DHWcRlemHflYaDX
NJ6PVYmuCqvxQlsT7qmfYzTwh9TT8syCF+67crI6vJMG1EeM3zRc54Wzv59/
Km6ngZC02pPCt3mhxkVKQ18rDWhqFaCsB7zQ4OTFCa5feH54LyJ97BkvlJkN
iTiM50+nSk1fn4rjha4iWfGheL71zbIVEsd5ofrlQ5fWgmjg890nM2emeGGh
bcpxx0AaiLbbE+k7i///AOH1pD8N+D1zm1tf5YUNC387ynxo4PYHyZg+Fj7Y
UmNNI+H55I5Wh61YWT7YvxxXY32bBgR6diT3KPJB1e7q8IeWeP46XG3Cr8oH
eZIOqT+4RgPr/0S/vFDjg+uCBu/PXqKBNrYfZlan+SBFVfp+tgHen5ZAnvwD
PvgQvFfDVGjA82TpjVv2fNCW65HMISUacDWy5vr4iA++D5OZiZPD87crxbe4
n+Ht84tfN/+PBrQe3xRYCOSDD/Qkyk8J4v1lZtvlZfLBP+LW+5mWqWAu/8qO
uRw+KIpiX1fNUcF4GUvt3kI+2CDOyfEYz9/bGy/vfl/OB29cM60pGKGCjEmG
JvdWPvhUgfboXTMVWImfl9da5oPnj6DCkFQqcJxz01JZ54OpHns1qhKpwKMs
7qIEGW8/5uGjv5+oIMpi7gUdIz/00SDsZQ6nguZIv/5yAX78eXdp+3lSwVG+
8jfH9/PDgleJ0NeUCk4MTySoHuaHzqcNKgqMqOB8BneR5DF+eKSvcbNLnwoe
GlqM02vzw9iED5aDGlQQ/3pN84cJP7z/Yd2ZXpoKOOmV5rUd+KH0yhn/K3MU
INJynvmAMz/8wKJdoj1JAXti3XdIufFDJLksw/+bArQ0604yevHDGsG3Alat
FODsdiuuMpgf+tYFaA1mU8DQ4gcT3Sx+eP2BQ2yKPQXMlJffOZjLDw3/0UX3
36GAzaDJZ9KF/JBhzV1+4RoFCO479JWpnB+ucKoUFuJ560mbFobqZn7Yeo6t
KH8vBXwfZck9Mc8PG8eoDe3tZODU3VDtv8wPdVQ+83XUksHhn2+7m9f54a7x
368TSsigJI9ENqcTgCZzL/uTEsig6vVebVt+AcgcXcMvY0sGr55Nn88hCkDt
+/ES7jfI4JRjhtWGqAC8fL4WhJ4jgyaLw34v/hOAwy50r7gOk0H3Pr2WiAMC
UCeA6MW4tQU+SHGM9h8RgOXfMXfz6S1wReTXsoSGAIzLIF+917cFRugvCqfp
CsAoZeZPWUVbYLrD6hp2QQAKnO5czHi0BajuPv8mXQWgzUe7C119mwCzO0VT
fCoAhW/fztmo3gQvbnPzOXoKwCbjjvH8rE3AahR+gPJaACamNL+jvtwEfJJJ
7nxRAnBmlFBqL7sJ2on33lz4JABLXimV7OPbBOEcSp+iEgSgoZha1aP1DSC6
klshnSYA7zqNsryt2gBStVVsaqUCUKKzvynp0gYYL3kt9rxcAAa+uUi4oLEB
UrMMFSurBODUzTnaI/ENoBTVYXymSQCmHTPp3BpbB4cf/omwHBKAXIYFtpVW
6+CUINMefzpB+FTVpc381Br4r0U33pdJENqwWJtL71kD5Dc+u7zZBKHe1NnP
OnRrIJ2FlfSUTxCSzbmQc+4q4N1iZ7WVEIQ/Z1/oXhdaBZP5p71tpAUhIfQN
x6vpFVDuFEC4IysIi1jfv5vHVoDDLNfGdRVBePGUy2f3uyug4zfvlImWINR3
4b6hl7UMvsWctTLSFYQvhlJPHPdcBj6XQ0ZO6wvCUE22u/bGy+BIh0CfzllB
mDH9ZOruzBL4UEtsPHRDEM79aIguF10C1zN2fBP1FIQNf3fOs5ksgKP3r8iR
XgpCjg8mM/FCC4BfNiZJ4LUgXGt2bg/ongc/4nd/4gwWhGJTasN3LObBnnDJ
IGqsIORLymYZK5wF009kHEYwQRh06PdTx6Ap4HzqwKEvBCE4yHtoP9OuETCn
nRwfwigEa/TfHOGO+Q3uaIjyuLMKwRNh50p4d/8Gl5UJk6d5heCCQu24ltQw
gMTG9/92C0G2Xd6Exsf9oIgHMHf+JwSVphzT4gP6wH627w5le4Ugq65iMYzv
BXvIEaff7hOCx859OLWzsxtwjNykKAMhKKy/ep7BsgN493XeFdEWglaWTN6N
Ae2A2q7fSacnBAWvNoTWFLWB+Zp9Ga1nhGDZK4UVG/FW0Jm+dd3pqhAMHtXR
T5RuArGPQyvznwpB5bJBK6O9P4CII7NKrKcQfMMSLKQ6Vg5C7j/++OqlEJxK
PBx+KhkDL69dc770RghOOj+/V/q8BNzTlZfZihaCWfU7j963zwajmjFho7FC
sLU2teX3qSxgcYSPrjFRCFoWucufvfYNGMmv9USnCcFh9fQ60sEkcIDvh79m
iRAcOkciq/j5g3T2Q+t7MCGYUppXdovbDbQ/UJUv+SEEd6baB+w36tYUWQvU
GG4QgqKxJsQ/CQGI2m8+59knBPUOuRY+p0tErp0/L98bEoKNp6sHltiS0cIv
WGsyKgQPBBj+KCJ8QWMVe+L+mxaCZLtk2p2iDFSXsmhStSkEYXe/J+/+XLRe
Q19MTxOCWAZp0PVtHtozwf8fZCBCBi69xpqRfOQlvX+piIMI86SzhUsfFiH1
eMfQzB1EyB4RamEgjtC98hdb/8SJsHf3kI7YDgy9Hw69KS9NhG8dsh+JJWJo
dVfO/iRFIrRvSr7ikVKOMqOW26I0iXCiNqLgvfcPNFjEqN5znAi/Cx03SFn8
gbh6BROJekRI4KwfV79Sie4JH3QKNiJCK62EJ4oyVSjysG5/0zki/JNkRkp4
VYVqLpjqcJoR4QW+gs2WP1VI6t0jQd/rRDigucvFL7wameS8fFJ5iwjHk9/6
yE1VI8+2d2N0d4mwOS6iKVOtBg3y5eU8sSfCJ7HzHZGtNYhTpXpH0SMidCmf
F+AWrUXHjDu91x4Toab1mF/Q1VoUGbh63sGLCLfYtrSHB2tRdTpzaYYPEaZt
9qqXidahlUai9D8/IlQsXRysP1eHTDgOr1iHEuGdR1f+vSmtQx5yelc+RxBh
kSnnI5PZOpShf7FqJIoICyn7hm7sqEecr1zeXUkkwjl9Xnk3u3qkluxL+ZBC
hLUneXIDw+vR3eqI291pRGjgp+nEVFSPIv8k/xTKIsLutJ+eo731qJqx4OC5
XCKcdqGlK27Uo+X/aj8GFRKhlqaE56RgA/pPu5upqZQIx0pd1IWVGpCJ5eQD
jgoilPwi0YfpNCAPz/WOk9VEuJo4xz9u1oC+xbJq+tTjz8Oiaup/rwENIOGk
H034+v735Ff24wbEOSTDTddGhD/PXrlv6dOA1KhHnDW7iPDBd57290EN6M5O
/UH3PiJsn9nxwCKyAUWoXzpROESEqqnrFmkfG1D15bvfVkeJcKde8Cv/2Aa0
7PaYeGASX++ozrAt3JIfXj+znyFCT7rDE5SYBnS28P34t3ki7CjmTwr9gI+3
O/XMzDIR7liTLiwNxce7Vpgnu0GEgiZ/6574NaB+Yv0uawr+vpz6q93yrAFx
HOr1SaQjQZVwQdNiO3y8plOzv5lIUDqYblbtOj5ep80Lu9lJcJUiV2Fk2IDS
L/vKCnKToIFCweTjow1o8bggmZWfBA/8C1N59V8DOiQX10QRIsHvlY6/HnM0
IHc+pbhFERIskpatMVyoR9h6kePEThIcuV00R99RjxiH9U70S5Age4z1YkRe
PQr8dmO6SpYEB7pNT1x2rEdt72ZLixRJ0OWXCZPPmXok/NQ9KEOFBIMSOh+/
3luP4k+/O/j+KAmKhvRb8bXVoQlVSdZADXz8Z/YPBn2uQwqiGb1eWiRYExjA
OvSoDuVO1j6/r0+C1X+tXft46tDmL1OTG4YkaGPIfPpFTy3SzB+RunCWBNuP
R07NxNai2pfkOnCJBH+1u6WuytQirgevow9cIUGxcWwo8G8NMjlPtJW9QYL2
xgG8Pck1qF9SWVDgLgnOqvX52O+sQRLspeMsD0iQMTbZOq+9Glkt6BeS7UhQ
jlf+8YfX1WgO3bw67kqCzIc2zsnPVCH6KxEpha9I8FNLhnFbaCXS05Fy/xZA
ggdjvtg6H65EAfJZhglBJPjzlRrJr/sHEtqsXwyIJMFl20/Mk/w/kEwEVf16
CgnqIm4sz7ocPXjmz2OaRoLU6sYu0iqGvt8WHtHPJMGTzVHPvnli6NgBVd/9
BSSo5Lo3JQ8/v8603G5hriXBH/qnCJ5CxSi0YDFhq4EEu+aXowoZilD3p+fO
879IMNd+J+Ov6QJ04+F7sd4uEhzNHVc4npqHnDh+3k6fIEHZhWe5gl1ZKEr3
wOY5FmGY7H+/hC8jCn1JvxhRxiEMexfiSU8Y36ECIfcDsrzC8PC/XV5cdwOQ
hOO3KAERYahkYiZkF9WlyetjNJoiJwxjy46JuHZ/BLtnHTwE9glDR0O9sh2D
8UDpQvjOZ/uFYczWl/HMsSRwes/AxXPqwpDeUe3ItHIG8Km+10gxFIaRBzbO
8VsVgHdKgXfvmAjD7ybtIny5RSAxPIu57QLe34m/iwY8paDcah2mXBOGWPTx
wzOLGCAz++Sa2AvDYzaq37O5q4GDXlxMcpgwlLgweUcosxl4ZlQe438vDGse
3fpm7dACgkiT3U8+CkOdBUnDuMOtIH1CScAkSRhuBP0f1gAp/6trs8rTP+iH
vIf8txhAxT26GnES1z9eyNdwUdsYQC3xlDUrHd4/bTD7DbzfGEARnKzftwjf
P3yYHqsm5BhAlFBC5j723z+ZaGXl++wYQCkPtatp6+A/1AjzWab+GEC2Kqrl
e9XiP+NwFvcQAxlAFyxQX6FR4z/y2DmUewcZQBjwhyVNzuM/D6mAzlAQGUDs
I7+c88jkPx4RpGu7FBlAgHsMk8tG5T8seccIJhkZQFjZrnrkxOU/O+HqpZAd
GUDMHr10LEPmP0pJDkP7IRlAAgyAh5HB5j/7OnKd
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-0.21585369397599638`, 
     2.032098127037882}}, {{-6.283185307179586, 
    6.283185307179586}, {-0.21585369397599638`, 2.032098127037882}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5549834716583543`*^9, 3.554983486319193*^9}, 
   3.5549856750353804`*^9, 3.555002063634457*^9}]
}, Open  ]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.554985629713788*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"coefff", " ", "/.", 
   RowBox[{"eg2", "\[Rule]", "eg2value"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", 
   RowBox[{"eg1", " ", "\[Rule]", "eg1value"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", 
   RowBox[{"ef2", "\[Rule]", "ef2value"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", " ", "/.", 
    RowBox[{"ef1", " ", "\[Rule]", "ef1value"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", 
   RowBox[{"a", " ", "\[Rule]", " ", 
    RowBox[{"20", "Degree"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", " ", 
   RowBox[{"b", "\[Rule]", " ", 
    RowBox[{"16", "Degree"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", " ", "/.", " ", 
    RowBox[{"thf", " ", "\[Rule]", " ", 
     RowBox[{"60", " ", "Degree"}]}]}], ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", " ", "/.", 
    RowBox[{"M0", "\[Rule]", "1"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"%", ",", "4"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5475754449618874`*^9, 3.5475754833170958`*^9}, {
  3.547575531899267*^9, 3.5475755648340397`*^9}, {3.5478207765234346`*^9, 
  3.5478207772393456`*^9}, {3.547820858204977*^9, 3.5478208593273554`*^9}, {
  3.5478209425033035`*^9, 3.5478209433002*^9}, {3.5478209810474577`*^9, 
  3.54782103601404*^9}, {3.554983391292758*^9, 3.5549834140390587`*^9}, {
  3.5549864753571563`*^9, 3.554986475493164*^9}, {3.554986718526065*^9, 
  3.5549867189590893`*^9}, {3.5550018079678335`*^9, 3.555001822346656*^9}, {
  3.5550020205589933`*^9, 3.5550020207900066`*^9}, {3.555002076517194*^9, 
  3.5550021104251337`*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.06393271635872722812895478674855732823`4."}]], "Output",
 CellChangeTimes->{
  3.547575484594836*^9, {3.547575535168422*^9, 3.54757556527322*^9}, 
   3.5475780995414295`*^9, 3.5475781780868683`*^9, 3.547578239452471*^9, 
   3.5475793406557474`*^9, 3.5475801038442554`*^9, 3.547581437874347*^9, 
   3.5475845226909986`*^9, 3.547585013880536*^9, 3.5478195769053044`*^9, 
   3.547819993516071*^9, 3.547820547895463*^9, 3.547820588549296*^9, 
   3.5478206284421144`*^9, 3.5478207776081266`*^9, 3.547820861698674*^9, 
   3.547820943640746*^9, {3.547820981896369*^9, 3.5478210363722506`*^9}, 
   3.5549818457083554`*^9, 3.554983419085347*^9, 3.5549864763412123`*^9, 
   3.554986720561181*^9, {3.555001808810882*^9, 3.5550018228746862`*^9}, 
   3.5550020214210424`*^9, {3.5550020694247885`*^9, 3.55500211089216*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["coefff"], "Input",
 CellChangeTimes->{{3.547821275399914*^9, 3.5478212764316807`*^9}, {
  3.5549861234650292`*^9, 3.554986123568035*^9}, {3.554986520661748*^9, 
  3.5549865234929094`*^9}, {3.5550013472314816`*^9, 3.5550013473054857`*^9}, {
  3.555001560390673*^9, 3.55500156208677*^9}, {3.5550016312167244`*^9, 
  3.5550016508698483`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  RowBox[{"ef1", " ", 
   SuperscriptBox["ef2", "2"], " ", "eg1", " ", 
   SuperscriptBox["eg2", "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"ef1", " ", "eg1"}], "-", 
     RowBox[{
      SuperscriptBox["ef2", "2"], " ", 
      SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", "a", "]"}], " ", 
   RowBox[{"Cos", "[", "b", "]"}]}], "+", 
  RowBox[{"ef2", " ", 
   RowBox[{"(", 
    RowBox[{"eg1", "-", 
     RowBox[{"ef1", " ", 
      SuperscriptBox["eg2", "2"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", "thf", "]"}], " ", 
   RowBox[{"Sin", "[", "a", "]"}], " ", 
   RowBox[{"Sin", "[", "b", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.5478212768862076`*^9, 3.554981845943369*^9, 3.554983435862307*^9, 
   3.554986124332079*^9, 3.554986524434963*^9, 3.555001347792513*^9, 
   3.5550015631208296`*^9, {3.5550016359489946`*^9, 3.555001651583889*^9}}]
}, Open  ]]
},
WindowSize->{707, 697},
WindowMargins->{{16, Automatic}, {94, Automatic}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
Magnification->1.2000000476837158`,
FrontEndVersion->"8.0 for Linux x86 (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 157, 3, 33, "Text"],
Cell[717, 25, 98, 1, 33, "Text"],
Cell[CellGroupData[{
Cell[840, 30, 513, 14, 70, "Input"],
Cell[1356, 46, 939, 21, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2332, 72, 469, 13, 95, "Input"],
Cell[2804, 87, 970, 21, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3811, 113, 469, 13, 95, "Input"],
Cell[4283, 128, 943, 21, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5263, 154, 287, 8, 68, "Input"],
Cell[5553, 164, 900, 18, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6490, 187, 258, 7, 68, "Input"],
Cell[6751, 196, 853, 17, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7641, 218, 307, 10, 68, "Input"],
Cell[7951, 230, 838, 17, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8826, 252, 424, 12, 70, "Input"],
Cell[9253, 266, 1076, 25, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10366, 296, 338, 11, 70, "Input"],
Cell[10707, 309, 979, 21, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11723, 335, 318, 8, 68, "Input"],
Cell[12044, 345, 774, 15, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12855, 365, 350, 11, 93, "Input"],
Cell[13208, 378, 764, 16, 35, "Output"]
}, Open  ]],
Cell[13987, 397, 110, 1, 33, "Text"],
Cell[CellGroupData[{
Cell[14122, 402, 96, 1, 35, "Input"],
Cell[14221, 405, 805, 16, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15063, 426, 98, 1, 35, "Input"],
Cell[15164, 429, 974, 21, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16175, 455, 137, 3, 35, "Input"],
Cell[16315, 460, 1023, 22, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17375, 487, 98, 1, 35, "Input"],
Cell[17476, 490, 964, 21, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18477, 516, 123, 2, 35, "Input"],
Cell[18603, 520, 997, 21, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19637, 546, 95, 1, 35, "Input"],
Cell[19735, 549, 809, 16, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20581, 570, 98, 1, 35, "Input"],
Cell[20682, 573, 779, 16, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21498, 594, 94, 1, 35, "Input"],
Cell[21595, 597, 736, 15, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22368, 617, 98, 1, 35, "Input"],
Cell[22469, 620, 755, 15, 35, "Output"]
}, Open  ]],
Cell[23239, 638, 159, 4, 54, "Text"],
Cell[23401, 644, 583, 15, 35, "Input"],
Cell[CellGroupData[{
Cell[24009, 663, 267, 5, 35, "Input"],
Cell[24279, 670, 17205, 430, 1177, "Output"]
}, Open  ]],
Cell[41499, 1103, 337, 9, 35, "Input"],
Cell[41839, 1114, 208, 4, 33, "Text"],
Cell[42050, 1120, 2740, 71, 273, "Input"],
Cell[44793, 1193, 2663, 70, 273, "Input"],
Cell[CellGroupData[{
Cell[47481, 1267, 462, 9, 80, "Input"],
Cell[47946, 1278, 665, 10, 35, "Output"]
}, Open  ]],
Cell[48626, 1291, 271, 6, 35, "Input"],
Cell[48900, 1299, 129, 1, 33, "Text"],
Cell[CellGroupData[{
Cell[49054, 1304, 1485, 43, 190, "Input"],
Cell[50542, 1349, 331, 5, 35, "Output"]
}, Open  ]],
Cell[50888, 1357, 128, 1, 33, "Text"],
Cell[51019, 1360, 2351, 65, 190, "Input"],
Cell[53373, 1427, 2610, 66, 256, "Input"],
Cell[55986, 1495, 268, 6, 35, "Input"],
Cell[CellGroupData[{
Cell[56279, 1505, 188, 4, 35, "Input"],
Cell[56470, 1511, 4936, 129, 300, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61443, 1645, 1533, 43, 190, "Input"],
Cell[62979, 1690, 394, 5, 35, "Output"]
}, Open  ]],
Cell[63388, 1698, 176, 4, 33, "Text"],
Cell[CellGroupData[{
Cell[63589, 1706, 504, 9, 146, "Input"],
Cell[64096, 1717, 1846, 47, 80, "Output"],
Cell[65945, 1766, 1876, 49, 80, "Output"],
Cell[67824, 1817, 1590, 40, 85, "Output"],
Cell[69417, 1859, 1234, 30, 63, "Output"],
Cell[70654, 1891, 874, 18, 35, "Output"],
Cell[71531, 1911, 1261, 30, 65, "Output"]
}, Open  ]],
Cell[72807, 1944, 876, 22, 58, "Input"],
Cell[CellGroupData[{
Cell[73708, 1970, 270, 6, 80, "Input"],
Cell[73981, 1978, 114, 2, 35, "Output"]
}, Open  ]],
Cell[74110, 1983, 126, 1, 33, "Text"],
Cell[74239, 1986, 1819, 53, 212, "Input"],
Cell[CellGroupData[{
Cell[76083, 2043, 2286, 57, 234, "Input"],
Cell[78372, 2102, 38709, 642, 295, 22387, 374, "CachedBoxData", "BoxData", \
"Output"],
Cell[117084, 2746, 23732, 394, 285, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140853, 3145, 1849, 50, 278, "Input"],
Cell[142705, 3197, 22499, 376, 295, "Output"],
Cell[165207, 3575, 23089, 385, 285, "Output"]
}, Open  ]],
Cell[188311, 3963, 69, 1, 35, "Input"],
Cell[CellGroupData[{
Cell[188405, 3968, 1797, 43, 234, "Input"],
Cell[190205, 4013, 840, 12, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191082, 4030, 353, 5, 35, "Input"],
Cell[191438, 4037, 945, 26, 65, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
