waveformRegularIntegrandTree.nb

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    434228,       9897]
NotebookOptionsPosition[    413541,       9527]
NotebookOutlinePosition[    420415,       9678]
CellTagsIndexPosition[    420372,       9675]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8854566866793833`*^9, 3.8854566877128696`*^9}},
 CellLabel->
  "In[222]:=",ExpressionUUID->"16665d6c-a593-4d10-8212-9970407d0a6d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<DdimPackage.wl\>\"", "]"}]], "Input",
 CellChangeTimes->{
  3.88561699010215*^9, {3.885617066652623*^9, 3.885617082967815*^9}, {
   3.885620085588559*^9, 3.885620086850143*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"327c79f2-29ce-4fc6-be07-ec77238e75f6"],

Cell[BoxData[
 TemplateBox[{
  "Get", "noopen", 
   "\"Cannot open \
\\!\\(\\*RowBox[{\\\"\\\\\\\"YoungSymm`\\\\\\\"\\\"}]\\).\"", 2, 1, 1, 
   33382493806769262141, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.886853600434926*^9, 3.886996545226719*^9, 3.887109485946312*^9, {
   3.887150294694313*^9, 3.8871503054661922`*^9}, 3.887187506947742*^9, 
   3.887197491464802*^9, 3.887203303859343*^9, 3.887230300275125*^9, 
   3.887253902649301*^9, 3.8872809172327223`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"03039d86-2d4b-42b1-8b63-ac9492b3dcc4"],

Cell[BoxData[
 TemplateBox[{
  "Needs", "nocont", 
   "\"Context \\!\\(\\*RowBox[{\\\"\\\\\\\"YoungSymm`\\\\\\\"\\\"}]\\) was \
not created when Needs was evaluated.\"", 2, 1, 2, 33382493806769262141, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.886853600434926*^9, 3.886996545226719*^9, 3.887109485946312*^9, {
   3.887150294694313*^9, 3.8871503054661922`*^9}, 3.887187506947742*^9, 
   3.887197491464802*^9, 3.887203303859343*^9, 3.887230300275125*^9, 
   3.887253902649301*^9, 3.887280917289288*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"14d0ff60-e923-4820-8bdd-21737383291f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Get", "[", 
  "\"\</Users/gangchen/Documents/GitHub/WaveFormOneLoopQM/Amplitude/1-loop_\
HEFT_amplitude_result.wl\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.885456690263624*^9, 3.885456708952443*^9}, 
   3.885617386377214*^9, {3.886234817588086*^9, 3.886234829428155*^9}, 
   3.88632184493084*^9, {3.8864652730298862`*^9, 3.886465299295464*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"e773623c-7722-45da-b7d1-23e2590fd5e7"],

Cell[TextData[{
 "parametrise picks a frame (here I am considering the ",
 Cell[BoxData[
  SuperscriptBox[
   SubscriptBox["\[Epsilon]", "k"], "+"]],ExpressionUUID->
  "745df51a-ce12-43e3-83ea-3e2b930fd8d7"],
 " helicity polarisation):"
}], "Text",
 CellChangeTimes->{{3.885540458273069*^9, 3.885540532524213*^9}, {
  3.8859001626260357`*^9, 
  3.885900164272862*^9}},ExpressionUUID->"47a43bcf-7052-4794-aed0-\
0c6c25698324"],

Cell[CellGroupData[{

Cell["Plus Polarisation", "Section",
 CellChangeTimes->{{3.8868951646061487`*^9, 
  3.886895191553602*^9}},ExpressionUUID->"cba1d26f-3996-4786-99c4-\
16384b08e68e"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "parametrise", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"parametrise", "[", "exp_", "]"}], ":=", 
   RowBox[{
    RowBox[{"ReplaceRepeated", "[", 
     RowBox[{"exp", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"DotProduct", "[", 
          RowBox[{
           RowBox[{"Momentum", "[", "x_", "]"}], ",", 
           RowBox[{"Momentum", "[", "y_", "]"}]}], "]"}], ":>", 
         RowBox[{"x", ".", 
          RowBox[{"DiagonalMatrix", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}]}], "}"}], "]"}], ".", "y"}]}], ",", 
        RowBox[{
         RowBox[{"DotProduct", "[", 
          RowBox[{
           RowBox[{"EpsilonPol", "[", "k", "]"}], ",", 
           RowBox[{"Momentum", "[", "y_", "]"}]}], "]"}], ":>", 
         RowBox[{"\[Epsilon]k", ".", 
          RowBox[{"DiagonalMatrix", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}]}], "}"}], "]"}], ".", "y"}]}]}], "}"}]}], 
     "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"u1", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"u2", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", 
         RowBox[{"V", " ", "\[Gamma]"}], ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"k", "\[Rule]", 
       RowBox[{"\[Omega]", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Theta]", "]"}], 
           RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Theta]", "]"}], 
           RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], ",", 
      RowBox[{"b", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "B", ",", "0"}], "}"}]}], ",", 
      RowBox[{"v", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"4", " ", "B", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}]}], ",", 
      RowBox[{"\[Epsilon]k", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "-", 
           RowBox[{"I", " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], ")"}], ",", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "+", 
           RowBox[{"I", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ")"}], ",", 
         RowBox[{"-", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}]}]}], "}"}]}]}], 
  "\n", 
  StyleBox[
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"k", ".", 
         RowBox[{"DiagonalMatrix", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}]}], "}"}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
          "\[Epsilon]k0", ",", "\[Epsilon]k1", ",", "\[Epsilon]k2", ",", 
           "\[Epsilon]k3"}], "}"}]}], ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\[Epsilon]k0", ",", "\[Epsilon]k1", ",", "\[Epsilon]k2", ",", 
           "\[Epsilon]k3"}], "}"}], ".", 
         RowBox[{"DiagonalMatrix", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}]}], "}"}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
          "\[Epsilon]k0", ",", "\[Epsilon]k1", ",", "\[Epsilon]k2", ",", 
           "\[Epsilon]k3"}], "}"}]}]}], "}"}], "/.", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"u1", "->", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
         RowBox[{"u2", "->", 
          RowBox[{"{", 
           RowBox[{"\[Gamma]", ",", 
            RowBox[{"\[Gamma]", " ", "v"}], ",", "0", ",", "0"}], "}"}]}], 
         ",", 
         RowBox[{"k", "->", 
          RowBox[{"\[Omega]", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{
              RowBox[{"Sin", "[", "\[Theta]", "]"}], 
              RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
             RowBox[{
              RowBox[{"Sin", "[", "\[Theta]", "]"}], 
              RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", 
             RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], ",", 
         RowBox[{"b", "->", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "b", ",", "0"}], "}"}]}], ",", 
         RowBox[{"v", "->", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0", ",", 
            RowBox[{"4", " ", "b", " ", 
             RowBox[{"Sqrt", "[", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], "-", "1"}], "]"}]}]}], 
           "}"}]}]}], "}"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"%", "==", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Epsilon]k0", ",", "\[Epsilon]k1"}], "}"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
       RowBox[{"%", "/.", 
        RowBox[{"\[Theta]", "->", "0"}]}]}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Epsilon]k3", "->", "0"}], ",", 
       RowBox[{"\[Epsilon]k2", "->", "1"}]}], "}"}]}], "*)"}],
   FontSize->14]}], "\n", 
 RowBox[{
  RowBox[{"g0", "=", "2"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"amp1", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "I"}], " ", "amp5TreeLevel"}], "/.", " ", 
     "replaceTree"}]}], ";"}], "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"amp5", "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"amp5m13m22", "/.", " ", "replaceDivergences"}], "/.", 
             " ", 
             RowBox[{"amp5TreeLevel", "->", "0"}]}], "/.", " ", 
            RowBox[{"replacer", "[", "]"}]}], "/.", " ", 
           RowBox[{"replacelq", "[", "]"}]}], "/.", " ", 
          RowBox[{"replacely", "[", "]"}]}], "/.", " ", 
         RowBox[{"replacelw2", "[", "]"}]}], "/.", 
        "replaceTriangleIntegrals"}], "/.", "replacec1"}], "/.", 
      "replacec2"}]}], ";"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"amp1", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"F1", "->", 
      RowBox[{"FTrace", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "q1", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"FieldStr", "[", "k", "]"}], "}"}], ",", 
        RowBox[{"Momentum", "[", "v1", "]"}]}], "]"}]}], ",", 
     RowBox[{"F2", "->", 
      RowBox[{"FTrace", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "q2", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"FieldStr", "[", "k", "]"}], "}"}], ",", 
        RowBox[{"Momentum", "[", "v2", "]"}]}], "]"}]}], ",", 
     RowBox[{"F3", "->", 
      RowBox[{"FTrace", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "v1", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"FieldStr", "[", "k", "]"}], "}"}], ",", 
        RowBox[{"Momentum", "[", "v2", "]"}]}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{
    RowBox[{"FTrace", "[", 
     RowBox[{"a_", ",", 
      RowBox[{"{", 
       RowBox[{"FieldStr", "[", "k_", "]"}], "}"}], ",", "b_"}], "]"}], ":>", 
    
    RowBox[{
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{"a", ",", 
        RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], 
      RowBox[{"DotProduct", "[", 
       RowBox[{"b", ",", 
        RowBox[{"EpsilonPol", "[", "k", "]"}]}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{"b", ",", 
        RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], 
      RowBox[{"DotProduct", "[", 
       RowBox[{"a", ",", 
        RowBox[{"EpsilonPol", "[", "k", "]"}]}], "]"}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"qq1", "->", 
      RowBox[{"-", 
       RowBox[{"DotProduct", "[", 
        RowBox[{
         RowBox[{"Momentum", "[", "q1", "]"}], ",", 
         RowBox[{"Momentum", "[", "q1", "]"}]}], "]"}]}]}], ",", 
     RowBox[{"qq2", "->", 
      RowBox[{"-", 
       RowBox[{"DotProduct", "[", 
        RowBox[{
         RowBox[{"Momentum", "[", "q2", "]"}], ",", 
         RowBox[{"Momentum", "[", "q2", "]"}]}], "]"}]}]}], ",", 
     RowBox[{"w1", "->", 
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "v1", "]"}], ",", 
        RowBox[{"Momentum", "[", "k", "]"}]}], "]"}]}], ",", 
     RowBox[{"w2", "->", 
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "v2", "]"}], ",", 
        RowBox[{"Momentum", "[", "k", "]"}]}], "]"}]}], ",", 
     RowBox[{"y", "->", 
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "v1", "]"}], ",", 
        RowBox[{"Momentum", "[", "v2", "]"}]}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"v2", "->", "u2"}], ",", 
     RowBox[{"v1", "->", "u1"}], ",", 
     RowBox[{"y", "->", "\[Gamma]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", "q2", "]"}], "->", 
     RowBox[{
      RowBox[{"Momentum", "[", "k", "]"}], "-", 
      RowBox[{"Momentum", "[", "q1", "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Gamma]", "2"], "-", "1"}], ")"}], "]"}], "%"}], "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", "q1", "]"}], "->", 
     RowBox[{
      RowBox[{"z1", " ", 
       RowBox[{"Momentum", "[", "u1", "]"}]}], "+", 
      RowBox[{"z2", " ", 
       RowBox[{"Momentum", "[", "u2", "]"}]}], "+", 
      RowBox[{"zb", " ", 
       RowBox[{"Momentum", "[", "bt", "]"}]}], "+", 
      RowBox[{"zv", " ", 
       RowBox[{"Momentum", "[", "vt", "]"}]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u1", "]"}], ",", 
        RowBox[{"Momentum", "[", "u2", "]"}]}], "]"}], "->", "\[Gamma]"}], 
     ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "bt", "]"}], ",", 
        RowBox[{"Momentum", "[", "bt", "]"}]}], "]"}], "->", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "vt", "]"}], ",", 
        RowBox[{"Momentum", "[", "vt", "]"}]}], "]"}], "->", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u1", "]"}], ",", 
        RowBox[{"Momentum", "[", "u1", "]"}]}], "]"}], "->", "1"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u2", "]"}], ",", 
        RowBox[{"Momentum", "[", "u2", "]"}]}], "]"}], "->", "1"}]}], "}"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u1", "]"}], ",", 
        RowBox[{"Momentum", "[", "bt", "]"}]}], "]"}], "->", "0"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u2", "]"}], ",", 
        RowBox[{"Momentum", "[", "bt", "]"}]}], "]"}], "->", "0"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u1", "]"}], ",", 
        RowBox[{"Momentum", "[", "vt", "]"}]}], "]"}], "->", "0"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u2", "]"}], ",", 
        RowBox[{"Momentum", "[", "vt", "]"}]}], "]"}], "->", "0"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "vt", "]"}], ",", 
        RowBox[{"Momentum", "[", "bt", "]"}]}], "]"}], "->", "0"}]}], "}"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"z1", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"DotProduct", "[", 
         RowBox[{
          RowBox[{"Momentum", "[", "u2", "]"}], ",", 
          RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], " ", "\[Gamma]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
     RowBox[{"z2", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"DotProduct", "[", 
         RowBox[{
          RowBox[{"Momentum", "[", "u2", "]"}], ",", 
          RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}]]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Momentum", "[", "bt", "]"}], "->", 
        RowBox[{
         RowBox[{"Momentum", "[", "b", "]"}], "/", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"-", 
           RowBox[{"DotProduct", "[", 
            RowBox[{
             RowBox[{"Momentum", "[", "b", "]"}], ",", 
             RowBox[{"Momentum", "[", "b", "]"}]}], "]"}]}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"Momentum", "[", "vt", "]"}], "->", 
        RowBox[{
         RowBox[{"Momentum", "[", "v", "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"4", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"DotProduct", "[", 
               RowBox[{
                RowBox[{"Momentum", "[", "b", "]"}], ",", 
                RowBox[{"Momentum", "[", "b", "]"}]}], "]"}]}], 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], "-", "1"}], ")"}]}], "]"}]}], 
          ")"}]}]}]}], "}"}]}], "/.", 
    RowBox[{"\[Gamma]", "->", 
     RowBox[{"DotProduct", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "u1", "]"}], ",", 
       RowBox[{"Momentum", "[", "u2", "]"}]}], "]"}]}]}], "//", 
   "parametrise"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "\[Rule]", 
       FractionBox[
        SqrtBox[
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Gamma]", "2"]}]], "\[Gamma]"]}], ",", 
      RowBox[{"B", "->", "b"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"%", "//", "Reduce`FreeVariables"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Phi]", "->", 
      RowBox[{"Pi", "/", "2"}]}], ",", 
     RowBox[{"\[Theta]", "->", 
      RowBox[{"Pi", "/", "4"}]}], ",", 
     RowBox[{"b", "->", "1"}], ",", 
     RowBox[{"\[Gamma]", "->", "g0"}]}], 
    RowBox[{"(*", 
     RowBox[{"\[Omega]", "->", "3"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"amp1", "=", 
    RowBox[{
     RowBox[{"%", "+", 
      RowBox[{"ReplaceAll", "[", 
       RowBox[{"%", ",", 
        RowBox[{"zv", "->", 
         RowBox[{"-", "zv"}]}]}], "]"}]}], "//", 
     RowBox[{
      RowBox[{"Expand", "[", 
       RowBox[{"#", ",", "1"}], "]"}], "&"}]}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"%", "//", 
     RowBox[{
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{"#", ",", 
         RowBox[{"zv", "->", "Infinity"}]}], "]"}], "&"}], 
      "\[IndentingNewLine]", "%%"}]}], "//", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{"zb", ",", "Infinity", ",", "0"}], "}"}]}], "]"}], "&"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"%", "//", 
     RowBox[{
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{"#", ",", 
         RowBox[{"zv", "->", "Infinity"}]}], "]"}], "&"}], 
      "\[IndentingNewLine]", "%%"}]}], "//", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{"zb", ",", "Infinity", ",", "0"}], "}"}]}], "]"}], "&"}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.8854590882188787`*^9, 3.885459207381425*^9}, {
   3.885459695029687*^9, 3.885459697525921*^9}, {3.885459945250136*^9, 
   3.885459949245571*^9}, {3.885460448313633*^9, 3.8854604485255613`*^9}, {
   3.886234833982122*^9, 3.886234839212298*^9}, {3.8862400399997463`*^9, 
   3.886240058329913*^9}, {3.886895147095488*^9, 3.886895157245583*^9}, {
   3.88723014582777*^9, 3.887230160878978*^9}, 3.887253928236376*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"1df71baa-21a3-46fb-b213-ea907b55bedf"],

Cell[BoxData[
 StyleBox[
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"k", ".", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"{", 
          RowBox[{"1", ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}]}], "}"}], "]"}], ".", 
        RowBox[{"{", 
         RowBox[{
         "\[Epsilon]k0", ",", "\[Epsilon]k1", ",", "\[Epsilon]k2", ",", 
          "\[Epsilon]k3"}], "}"}]}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\[Epsilon]k0", ",", "\[Epsilon]k1", ",", "\[Epsilon]k2", ",", 
          "\[Epsilon]k3"}], "}"}], ".", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"{", 
          RowBox[{"1", ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}]}], "}"}], "]"}], ".", 
        RowBox[{"{", 
         RowBox[{
         "\[Epsilon]k0", ",", "\[Epsilon]k1", ",", "\[Epsilon]k2", ",", 
          "\[Epsilon]k3"}], "}"}]}]}], "}"}], "/.", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"u1", "->", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"u2", "->", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", 
           RowBox[{"\[Gamma]", " ", "v"}], ",", "0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"k", "->", 
         RowBox[{"\[Omega]", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{
             RowBox[{"Sin", "[", "\[Theta]", "]"}], 
             RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
            RowBox[{
             RowBox[{"Sin", "[", "\[Theta]", "]"}], 
             RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", 
            RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], ",", 
        RowBox[{"b", "->", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "b", ",", "0"}], "}"}]}], ",", 
        RowBox[{"v", "->", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", 
           RowBox[{"4", " ", "b", " ", 
            RowBox[{"Sqrt", "[", 
             RowBox[{
              SuperscriptBox["\[Gamma]", "2"], "-", "1"}], "]"}]}]}], 
          "}"}]}]}], "}"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"%", "==", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Epsilon]k0", ",", "\[Epsilon]k1"}], "}"}]}], "]"}], "[", 
       
       RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"%", "/.", 
       RowBox[{"\[Theta]", "->", "0"}]}]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Epsilon]k3", "->", "0"}], ",", 
      RowBox[{"\[Epsilon]k2", "->", "1"}]}], "}"}]}], "*)"}],
  FontSize->14]], "Input",
 CellChangeTimes->{{3.885459224904504*^9, 3.885459332375993*^9}, {
   3.885459365567626*^9, 3.885459367369875*^9}, {3.885459416826579*^9, 
   3.885459444029855*^9}, 3.885459595636795*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"1015fcf9-cb8b-42f1-9050-236ff6dae640"],

Cell[CellGroupData[{

Cell["Continue", "Subsection",
 CellChangeTimes->{{3.886163682445346*^9, 
  3.886163687179957*^9}},ExpressionUUID->"44dbcdc2-78eb-4fec-89e5-\
381371b94503"],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"amp1", "=", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"amp1", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "//", "Simplify"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", 
         RowBox[{"Length", "@", "amp1"}]}], "}"}]}], "]"}]}], ";"}], ",", 
   "ii"}], "]"}]], "Input",
 CellChangeTimes->{{3.8862351120308867`*^9, 3.886235126106399*^9}, {
  3.886853796506529*^9, 3.8868537974503107`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"d4a57b35-7da2-4ff5-98ac-e7f5f3f7fed8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"amp1", "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8868540124983587`*^9, 3.886854013865697*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"a26adcaa-ace4-4057-8bc7-1179a2bbaa44"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"3", " ", 
    SqrtBox["3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "63"}], " ", "\[ImaginaryI]", " ", 
       SqrtBox["2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3"}], " ", "\[ImaginaryI]"}], "+", 
         RowBox[{"4", " ", 
          SqrtBox["3"]}]}], ")"}], " ", 
       SuperscriptBox["zb", "5"]}], "+", 
      RowBox[{"36", " ", 
       RowBox[{"(", 
        RowBox[{"11", "+", 
         RowBox[{"28", " ", "\[ImaginaryI]", " ", 
          SqrtBox["3"]}]}], ")"}], " ", 
       SuperscriptBox["zb", "4"], " ", "\[Omega]"}], "-", 
      RowBox[{"6", " ", "\[ImaginaryI]", " ", 
       SqrtBox["2"], " ", 
       SuperscriptBox["zb", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"21", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "3"}], " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"4", " ", 
             SqrtBox["3"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "111"}], " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"212", " ", 
             SqrtBox["3"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
      RowBox[{"12", " ", 
       SuperscriptBox["zb", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", "+", 
            RowBox[{"84", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", "\[Omega]"}], "+", 
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"19", "+", 
            RowBox[{"32", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "3"]}]}], ")"}]}], "+", 
      RowBox[{"3", " ", 
       SqrtBox["2"], " ", "zb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "63"}], "-", 
            RowBox[{"84", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "4"]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"183", "-", 
            RowBox[{"44", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"16", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "13"}], "-", 
            RowBox[{"12", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "4"]}]}], ")"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"45", " ", 
          SuperscriptBox["zv", "4"], " ", "\[Omega]"}], "+", 
         RowBox[{"12", " ", 
          RowBox[{"(", 
           RowBox[{"7", "-", 
            RowBox[{"2", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", 
          SuperscriptBox["\[Omega]", "3"]}], "-", 
         RowBox[{"16", " ", 
          SuperscriptBox["\[Omega]", "5"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"16", " ", "\[Omega]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["zv", "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["zv", "2"]}], "-", 
      RowBox[{"3", " ", 
       SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
      RowBox[{"3", " ", 
       SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["zv", "2"]}], "-", 
      RowBox[{"3", " ", 
       SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
      RowBox[{"3", " ", 
       SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.886853999083506*^9, 3.8868540143711653`*^9}, 
   3.886996556279704*^9, 3.887150386857505*^9, 3.8871510115088787`*^9, 
   3.88715185297373*^9, 3.887151988765503*^9, 3.887187516130831*^9, 
   3.887187665251603*^9, 3.887197497709422*^9, 3.887230308838709*^9, 
   3.8872809248685083`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"e7e77fc0-5978-4894-a711-f158ffa2e70c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1list", "=", 
   RowBox[{"List", "@@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"amp1", "//", 
       RowBox[{
        RowBox[{"Apart", "[", 
         RowBox[{"#", ",", "zb"}], "]"}], "&"}]}], "//", "Expand"}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.886854491772028*^9, 3.886854523532729*^9}, {
  3.886855668460884*^9, 3.886855673432858*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"9d7bfe09-a1ab-41d5-9410-84bb0603ff02"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1list", "=", 
   RowBox[{
    RowBox[{"amp1list", "/.", 
     RowBox[{
      RowBox[{"Times", "[", 
       RowBox[{"f__", ",", 
        RowBox[{"Power", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["zb", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["zv", "2"]}], "-", 
            RowBox[{"3", " ", 
             SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
          RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "I"}], " ", 
            FractionBox[
             SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
          RowBox[{"Times", "[", 
           RowBox[{"f", ",", 
            RowBox[{"Power", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 SuperscriptBox["zb", "2"]}], "+", 
                RowBox[{"3", " ", 
                 SuperscriptBox["zv", "2"]}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
                RowBox[{"4", " ", 
                 SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], "]"}]}], "/.", 
         RowBox[{"zb", "->", 
          RowBox[{"zb", "+", 
           RowBox[{
            FractionBox[
             SqrtBox["2"], "2"], "\[Omega]"}]}]}]}], "//", "Simplify"}], 
       ")"}]}]}], "/.", 
    RowBox[{
     RowBox[{"Times", "[", 
      RowBox[{"f__", ",", 
       RowBox[{"Power", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["zb", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["zv", "2"]}], "-", 
           RowBox[{"3", " ", 
            SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
           RowBox[{"3", " ", 
            SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
         RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           FractionBox[
            SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
         RowBox[{"Times", "[", 
          RowBox[{"f", ",", 
           RowBox[{"Power", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                SuperscriptBox["zb", "2"]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["zv", "2"]}], "-", 
               RowBox[{"3", " ", 
                SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
               RowBox[{"3", " ", 
                SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
             RowBox[{"-", "1"}]}], "]"}]}], "]"}]}], "/.", 
        RowBox[{"zb", "->", 
         RowBox[{"zb", "+", 
          RowBox[{
           FractionBox[
            SqrtBox["2"], "2"], "\[Omega]"}]}]}]}], "//", "Simplify"}], 
      ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.886855538625163*^9, 3.886855641195485*^9}, {
   3.88685571229713*^9, 3.886855745943301*^9}, {3.886855940936037*^9, 
   3.8868559843749104`*^9}, 3.886895427080196*^9, {3.886896038972371*^9, 
   3.886896041424025*^9}, {3.887203286517324*^9, 3.8872032888799973`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"9bc15df4-cf0c-4357-b617-32d650bc8599"],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"amp1list0", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Assuming", "[", 
          RowBox[{
           RowBox[{"b", "<", "0"}], ",", 
           RowBox[{
            SqrtBox[
             RowBox[{"2", " ", "\[Pi]"}]], 
            RowBox[{"FourierTransform", "[", 
             RowBox[{
              RowBox[{"amp1list", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], ",", "zb", ",", "b"}], 
             "]"}]}]}], "]"}], "/.", 
         RowBox[{"b", "->", 
          RowBox[{"-", "1"}]}]}], "//", "PowerExpand"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", 
         RowBox[{"Length", "@", "amp1list"}]}], "}"}]}], "]"}]}], ";"}], ",", 
   "ii"}], "]"}]], "Input",
 CellChangeTimes->{{3.886854565112446*^9, 3.886854602841876*^9}, 
   3.886895592633415*^9, {3.8868965199475822`*^9, 3.886896531747871*^9}, {
   3.887109540787512*^9, 3.8871095432560062`*^9}, {3.887109731772121*^9, 
   3.8871097329088287`*^9}, {3.887109910216022*^9, 3.887109915266468*^9}, {
   3.887110184080741*^9, 3.8871101917618933`*^9}, {3.8872033627748938`*^9, 
   3.887203373728644*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"20555039-7473-4c91-95e2-9bccd7b7e624"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp10PP", "=", 
   RowBox[{
    RowBox[{"amp1list0", "//", "Total"}], "//", "Simplify"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.886855844051917*^9, 3.8868558514677*^9}, {
  3.886856124904985*^9, 3.8868561387402973`*^9}, {3.887150999073676*^9, 
  3.887150999210347*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"1a0339ba-23be-4213-8cb8-2dcf6e106237"],

Cell[CellGroupData[{

Cell[BoxData["amp10PP"], "Input",
 CellChangeTimes->{{3.886895324137906*^9, 3.886895324306335*^9}, {
   3.886895902684102*^9, 3.886895952911434*^9}, 3.887110126172573*^9, 
   3.887187758125836*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"7bec7cf2-de07-4706-8ed5-3c10311891d8"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"16", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", " ", 
       SuperscriptBox["zv", "2"], " ", "\[Omega]"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Omega]", "3"]}]}], ")"}]}]], 
  RowBox[{"\[Pi]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", 
       SqrtBox[
        RowBox[{
         RowBox[{"6", " ", 
          SuperscriptBox["zv", "2"]}], "-", 
         RowBox[{"6", " ", 
          SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[Omega]", "2"]}]}]]], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], 
           SqrtBox["2"]]}], "-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["zv", "2"], "-", 
           RowBox[{
            SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
           FractionBox[
            RowBox[{"5", " ", 
             SuperscriptBox["\[Omega]", "2"]}], "6"]}]]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"252", " ", 
          SuperscriptBox["zv", "3"]}], "+", 
         RowBox[{"48", " ", "zv", " ", "\[Omega]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"10", "+", 
               RowBox[{"\[ImaginaryI]", " ", 
                SqrtBox["3"]}]}], ")"}], " ", "\[Omega]"}], "-", 
            SqrtBox[
             RowBox[{
              RowBox[{"6", " ", 
               SuperscriptBox["zv", "2"]}], "-", 
              RowBox[{"6", " ", 
               SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
              RowBox[{"5", " ", 
               SuperscriptBox["\[Omega]", "2"]}]}]]}], ")"}]}], "+", 
         RowBox[{"8", " ", "\[ImaginaryI]", " ", 
          SqrtBox["2"], " ", 
          SuperscriptBox["\[Omega]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "3"}], " ", "\[ImaginaryI]"}], "+", 
               SqrtBox["3"]}], ")"}], " ", "\[Omega]"}], "+", 
            RowBox[{"3", " ", 
             SqrtBox["3"], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"6", " ", 
                SuperscriptBox["zv", "2"]}], "-", 
               RowBox[{"6", " ", 
                SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
               RowBox[{"5", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}], "-", 
         RowBox[{"42", " ", "\[ImaginaryI]", " ", 
          SuperscriptBox["zv", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "9"}], " ", "\[ImaginaryI]", " ", 
             SqrtBox["2"], " ", "\[Omega]"}], "+", 
            RowBox[{
             SqrtBox["6"], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"6", " ", 
                SuperscriptBox["zv", "2"]}], "-", 
               RowBox[{"6", " ", 
                SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
               RowBox[{"5", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}]}], 
        ")"}]}]}], "+", 
     RowBox[{
      FractionBox["1", 
       SqrtBox[
        RowBox[{
         RowBox[{"6", " ", 
          SuperscriptBox["zv", "2"]}], "+", 
         RowBox[{"6", " ", 
          SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[Omega]", "2"]}]}]]], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], 
           SqrtBox["2"]]}], "-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["zv", "2"], "+", 
           RowBox[{
            SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
           FractionBox[
            RowBox[{"5", " ", 
             SuperscriptBox["\[Omega]", "2"]}], "6"]}]]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "252"}], " ", 
          SuperscriptBox["zv", "3"]}], "+", 
         RowBox[{"48", " ", "zv", " ", "\[Omega]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "10"}], "-", 
               RowBox[{"\[ImaginaryI]", " ", 
                SqrtBox["3"]}]}], ")"}], " ", "\[Omega]"}], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"6", " ", 
               SuperscriptBox["zv", "2"]}], "+", 
              RowBox[{"6", " ", 
               SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
              RowBox[{"5", " ", 
               SuperscriptBox["\[Omega]", "2"]}]}]]}], ")"}]}], "+", 
         RowBox[{"8", " ", "\[ImaginaryI]", " ", 
          SqrtBox["2"], " ", 
          SuperscriptBox["\[Omega]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "3"}], " ", "\[ImaginaryI]"}], "+", 
               SqrtBox["3"]}], ")"}], " ", "\[Omega]"}], "+", 
            RowBox[{"3", " ", 
             SqrtBox["3"], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"6", " ", 
                SuperscriptBox["zv", "2"]}], "+", 
               RowBox[{"6", " ", 
                SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
               RowBox[{"5", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}], "-", 
         RowBox[{"42", " ", "\[ImaginaryI]", " ", 
          SuperscriptBox["zv", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "9"}], " ", "\[ImaginaryI]", " ", 
             SqrtBox["2"], " ", "\[Omega]"}], "+", 
            RowBox[{
             SqrtBox["6"], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"6", " ", 
                SuperscriptBox["zv", "2"]}], "+", 
               RowBox[{"6", " ", 
                SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
               RowBox[{"5", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}]}], 
        ")"}]}]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["zv", "2"], "+", 
           FractionBox[
            RowBox[{"4", " ", 
             SuperscriptBox["\[Omega]", "2"]}], "3"]}]]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["zv", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"48", " ", "\[Omega]"}], "+", 
            RowBox[{"7", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "12"}], "+", 
               RowBox[{"7", " ", "\[ImaginaryI]", " ", 
                SqrtBox["3"]}]}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"6", " ", 
                SuperscriptBox["zv", "2"]}], "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[Omega]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"16", " ", 
             RowBox[{"(", 
              RowBox[{"3", "+", 
               RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                SqrtBox["3"]}]}], ")"}], " ", "\[Omega]"}], "-", 
            RowBox[{"3", " ", "\[ImaginaryI]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "28"}], " ", "\[ImaginaryI]"}], "+", 
               SqrtBox["3"]}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"6", " ", 
                SuperscriptBox["zv", "2"]}], "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}]}], ")"}]}], 
      
      SqrtBox[
       RowBox[{
        RowBox[{"3", " ", 
         SuperscriptBox["zv", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Omega]", "2"]}]}]]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.88718775860775*^9, 3.887197555400033*^9, 
  3.8872034337446413`*^9, 3.887230364548201*^9, 3.887254026350214*^9, 
  3.8872809834595213`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"ea585196-9f68-4f1d-9967-023acf4802aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"amp10PP", "/.", 
    RowBox[{"\[Omega]", "->", "0.1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.886895467061453*^9, 3.886895468133973*^9}, 
   3.886896145468636*^9, {3.886896265292391*^9, 3.886896265463235*^9}, {
   3.886896607510057*^9, 3.886896613510816*^9}, {3.8871098988360043`*^9, 
   3.887109903004422*^9}, 3.887110003216237*^9, {3.887110051758753*^9, 
   3.887110077271801*^9}, 3.8871102722792063`*^9, {3.88715100133134*^9, 
   3.887151001465276*^9}, {3.887187836611231*^9, 3.887187837466427*^9}, {
   3.887253964843128*^9, 3.8872539656043463`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"f2464365-1cb9-4a49-b502-5a47af192a3a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "256.9693129580713`"}], "+", 
  RowBox[{"100.64098691458528`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.886895468919537*^9, 3.886895884752284*^9, {3.886896119134666*^9, 
   3.8868961461009703`*^9}, 3.886896266060237*^9, {3.886896608138431*^9, 
   3.886896630734172*^9}, 3.8869966120641613`*^9, 3.887109665402334*^9, 
   3.887109798699361*^9, 3.887109899463744*^9, {3.88710998718067*^9, 
   3.887110003831949*^9}, {3.8871100675632763`*^9, 3.887110091563418*^9}, 
   3.8871102728745604`*^9, 3.8871504723875523`*^9, 3.8871510667461243`*^9, 
   3.887152043927594*^9, 3.887187574113707*^9, 3.887187777765057*^9, 
   3.887187837960968*^9, 3.887197555466751*^9, 3.887203439517769*^9, 
   3.887230364613594*^9, 3.887254031277566*^9, 3.8872809835280123`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"547f58ff-8e19-4bea-8195-9979cb0e518b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"amp1Reg", "=", 
   RowBox[{
    RowBox[{"(", "amp1", ")"}], "*", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", "zb"}], "-", 
      RowBox[{"0.0001", 
       RowBox[{"Abs", "[", "zb", "]"}]}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ampNumUnReg", "=", 
   RowBox[{"amp1Reg", "/.", 
    RowBox[{"\[Omega]", "->", "6.5"}]}]}], ";", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{"ampNumUnReg", ",", 
    RowBox[{"{", 
     RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"zb", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", 
      RowBox[{"+", "\[Infinity]"}]}], "}"}], ",", 
    RowBox[{"Method", "->", "\"\<LocalAdaptive\>\""}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.886895477559411*^9, 3.88689551390541*^9}, {
   3.8868962683182497`*^9, 3.88689626851917*^9}, 3.8868966148820267`*^9, {
   3.8871100538781347`*^9, 3.887110072696671*^9}, {3.887110129647585*^9, 
   3.8871101347666607`*^9}, 3.887110287175597*^9, 3.8871877065911093`*^9, {
   3.887187833132338*^9, 3.887187834690631*^9}, {3.887187921462328*^9, 
   3.887187952194912*^9}, {3.88720344730437*^9, 3.8872034705486603`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"3ae1ba03-e859-4b65-a8ff-51b6a674d0c0"],

Cell[BoxData[
 RowBox[{"0.0036078709796881214`", "\[VeryThinSpace]", "-", 
  RowBox[{"0.022588545599614318`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.8871878152029552`*^9, 3.887187857231674*^9, {3.887187944863297*^9, 
   3.887187973738344*^9}, 3.8871975752543592`*^9, {3.887203462058359*^9, 
   3.8872034861649446`*^9}, 3.887230379629602*^9, 3.887280999620963*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"6e4ed26b-6f17-47e5-9c36-7d6db651d531"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Minus Polarisation", "Section",
 CellChangeTimes->{{3.8868951646061487`*^9, 3.886895191553602*^9}, {
  3.886897101313171*^9, 
  3.8868971040555477`*^9}},ExpressionUUID->"8d388668-ca12-4e6e-aeca-\
837db9304a9a"],

Cell[BoxData[{
 StyleBox[
  RowBox[{"ClearAll", "[", "parametrise", "]"}],
  FontSize->14], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"parametrise", "[", "exp_", "]"}], ":=", 
   RowBox[{
    RowBox[{"ReplaceRepeated", "[", 
     RowBox[{"exp", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"DotProduct", "[", 
          RowBox[{
           RowBox[{"Momentum", "[", "x_", "]"}], ",", 
           RowBox[{"Momentum", "[", "y_", "]"}]}], "]"}], ":>", 
         RowBox[{"x", ".", 
          RowBox[{"DiagonalMatrix", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}]}], "}"}], "]"}], ".", "y"}]}], ",", 
        RowBox[{
         RowBox[{"DotProduct", "[", 
          RowBox[{
           RowBox[{"EpsilonPol", "[", "k", "]"}], ",", 
           RowBox[{"Momentum", "[", "y_", "]"}]}], "]"}], ":>", 
         RowBox[{"\[Epsilon]k", ".", 
          RowBox[{"DiagonalMatrix", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}]}], "}"}], "]"}], ".", "y"}]}]}], "}"}]}], 
     "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"u1", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"u2", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", 
         RowBox[{"V", " ", "\[Gamma]"}], ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"k", "\[Rule]", 
       RowBox[{"\[Omega]", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Theta]", "]"}], 
           RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Theta]", "]"}], 
           RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], ",", 
      RowBox[{"b", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "B", ",", "0"}], "}"}]}], ",", 
      RowBox[{"v", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"4", " ", "B", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}]}], ",", 
      RowBox[{"\[Epsilon]k", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "+", 
           RowBox[{"I", " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], ")"}], ",", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "-", 
           RowBox[{"I", " ", 
            RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ")"}], ",", 
         RowBox[{"-", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}]}]}], "}"}]}]}],
  FontSize->14]}], "Input",
 CellChangeTimes->{{3.8854590882188787`*^9, 3.885459207381425*^9}, {
   3.885459695029687*^9, 3.885459697525921*^9}, {3.885459945250136*^9, 
   3.885459949245571*^9}, {3.885460448313633*^9, 3.8854604485255613`*^9}, {
   3.886234833982122*^9, 3.886234839212298*^9}, {3.8862400399997463`*^9, 
   3.886240058329913*^9}, {3.886895147095488*^9, 3.886895157245583*^9}, {
   3.886897204573135*^9, 3.886897209004116*^9}, 3.8871953017413883`*^9, {
   3.887206022639316*^9, 3.8872060252488413`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"d43a2ac9-9243-42dc-aaa6-43d9dc359460"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1Neg", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], " ", "amp5TreeLevel"}], "/.", " ", "replaceTree"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.8861102587436447`*^9, 3.886110275786768*^9}, 
   3.8861106623202963`*^9, {3.8862348523783607`*^9, 3.8862348528807497`*^9}, {
   3.886246802205497*^9, 3.886246803194159*^9}, {3.886853471467314*^9, 
   3.8868534832277317`*^9}, {3.8868535286623983`*^9, 
   3.8868535312792053`*^9}, {3.8871916355219097`*^9, 3.887191636189548*^9}, 
   3.887195306384001*^9, {3.887206028940731*^9, 3.8872060328286133`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"bdea3304-f638-4902-b569-1122e296d534"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amp1Neg", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"F1", "->", 
      RowBox[{"FTrace", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "q1", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"FieldStr", "[", "k", "]"}], "}"}], ",", 
        RowBox[{"Momentum", "[", "v1", "]"}]}], "]"}]}], ",", 
     RowBox[{"F2", "->", 
      RowBox[{"FTrace", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "q2", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"FieldStr", "[", "k", "]"}], "}"}], ",", 
        RowBox[{"Momentum", "[", "v2", "]"}]}], "]"}]}], ",", 
     RowBox[{"F3", "->", 
      RowBox[{"FTrace", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "v1", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"FieldStr", "[", "k", "]"}], "}"}], ",", 
        RowBox[{"Momentum", "[", "v2", "]"}]}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{
    RowBox[{"FTrace", "[", 
     RowBox[{"a_", ",", 
      RowBox[{"{", 
       RowBox[{"FieldStr", "[", "k_", "]"}], "}"}], ",", "b_"}], "]"}], ":>", 
    
    RowBox[{
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{"a", ",", 
        RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], 
      RowBox[{"DotProduct", "[", 
       RowBox[{"b", ",", 
        RowBox[{"EpsilonPol", "[", "k", "]"}]}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{"b", ",", 
        RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], 
      RowBox[{"DotProduct", "[", 
       RowBox[{"a", ",", 
        RowBox[{"EpsilonPol", "[", "k", "]"}]}], "]"}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"qq1", "->", 
      RowBox[{"-", 
       RowBox[{"DotProduct", "[", 
        RowBox[{
         RowBox[{"Momentum", "[", "q1", "]"}], ",", 
         RowBox[{"Momentum", "[", "q1", "]"}]}], "]"}]}]}], ",", 
     RowBox[{"qq2", "->", 
      RowBox[{"-", 
       RowBox[{"DotProduct", "[", 
        RowBox[{
         RowBox[{"Momentum", "[", "q2", "]"}], ",", 
         RowBox[{"Momentum", "[", "q2", "]"}]}], "]"}]}]}], ",", 
     RowBox[{"w1", "->", 
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "v1", "]"}], ",", 
        RowBox[{"Momentum", "[", "k", "]"}]}], "]"}]}], ",", 
     RowBox[{"w2", "->", 
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "v2", "]"}], ",", 
        RowBox[{"Momentum", "[", "k", "]"}]}], "]"}]}], ",", 
     RowBox[{"y", "->", 
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "v1", "]"}], ",", 
        RowBox[{"Momentum", "[", "v2", "]"}]}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"v2", "->", "u2"}], ",", 
     RowBox[{"v1", "->", "u1"}], ",", 
     RowBox[{"y", "->", "\[Gamma]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", "q2", "]"}], "->", 
     RowBox[{
      RowBox[{"Momentum", "[", "k", "]"}], "-", 
      RowBox[{"Momentum", "[", "q1", "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Gamma]", "2"], "-", "1"}], ")"}], "]"}], "%"}], "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", "q1", "]"}], "->", 
     RowBox[{
      RowBox[{"z1", " ", 
       RowBox[{"Momentum", "[", "u1", "]"}]}], "+", 
      RowBox[{"z2", " ", 
       RowBox[{"Momentum", "[", "u2", "]"}]}], "+", 
      RowBox[{"zb", " ", 
       RowBox[{"Momentum", "[", "bt", "]"}]}], "+", 
      RowBox[{"zv", " ", 
       RowBox[{"Momentum", "[", "vt", "]"}]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u1", "]"}], ",", 
        RowBox[{"Momentum", "[", "u2", "]"}]}], "]"}], "->", "\[Gamma]"}], 
     ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "bt", "]"}], ",", 
        RowBox[{"Momentum", "[", "bt", "]"}]}], "]"}], "->", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "vt", "]"}], ",", 
        RowBox[{"Momentum", "[", "vt", "]"}]}], "]"}], "->", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u1", "]"}], ",", 
        RowBox[{"Momentum", "[", "u1", "]"}]}], "]"}], "->", "1"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u2", "]"}], ",", 
        RowBox[{"Momentum", "[", "u2", "]"}]}], "]"}], "->", "1"}]}], "}"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u1", "]"}], ",", 
        RowBox[{"Momentum", "[", "bt", "]"}]}], "]"}], "->", "0"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u2", "]"}], ",", 
        RowBox[{"Momentum", "[", "bt", "]"}]}], "]"}], "->", "0"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u1", "]"}], ",", 
        RowBox[{"Momentum", "[", "vt", "]"}]}], "]"}], "->", "0"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "u2", "]"}], ",", 
        RowBox[{"Momentum", "[", "vt", "]"}]}], "]"}], "->", "0"}], ",", 
     RowBox[{
      RowBox[{"DotProduct", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "vt", "]"}], ",", 
        RowBox[{"Momentum", "[", "bt", "]"}]}], "]"}], "->", "0"}]}], "}"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"z1", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"DotProduct", "[", 
         RowBox[{
          RowBox[{"Momentum", "[", "u2", "]"}], ",", 
          RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], " ", "\[Gamma]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
     RowBox[{"z2", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"DotProduct", "[", 
         RowBox[{
          RowBox[{"Momentum", "[", "u2", "]"}], ",", 
          RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}]]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Momentum", "[", "bt", "]"}], "->", 
        RowBox[{
         RowBox[{"Momentum", "[", "b", "]"}], "/", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"-", 
           RowBox[{"DotProduct", "[", 
            RowBox[{
             RowBox[{"Momentum", "[", "b", "]"}], ",", 
             RowBox[{"Momentum", "[", "b", "]"}]}], "]"}]}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"Momentum", "[", "vt", "]"}], "->", 
        RowBox[{
         RowBox[{"Momentum", "[", "v", "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"4", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"DotProduct", "[", 
               RowBox[{
                RowBox[{"Momentum", "[", "b", "]"}], ",", 
                RowBox[{"Momentum", "[", "b", "]"}]}], "]"}]}], 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], "-", "1"}], ")"}]}], "]"}]}], 
          ")"}]}]}]}], "}"}]}], "/.", 
    RowBox[{"\[Gamma]", "->", 
     RowBox[{"DotProduct", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "u1", "]"}], ",", 
       RowBox[{"Momentum", "[", "u2", "]"}]}], "]"}]}]}], "//", 
   "parametrise"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "\[Rule]", 
       FractionBox[
        SqrtBox[
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Gamma]", "2"]}]], "\[Gamma]"]}], ",", 
      RowBox[{"B", "->", "b"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"%", "//", "Reduce`FreeVariables"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Phi]", "->", 
      RowBox[{"Pi", "/", "2"}]}], ",", 
     RowBox[{"\[Theta]", "->", 
      RowBox[{"Pi", "/", "4"}]}], ",", 
     RowBox[{"b", "->", "1"}], ",", 
     RowBox[{"\[Gamma]", "->", "g0"}]}], 
    RowBox[{"(*", 
     RowBox[{"\[Omega]", "->", "3"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"amp1Neg", "=", 
   RowBox[{
    RowBox[{"%", "+", 
     RowBox[{"ReplaceAll", "[", 
      RowBox[{"%", ",", 
       RowBox[{"zv", "->", 
        RowBox[{"-", "zv"}]}]}], "]"}]}], "//", 
    RowBox[{
     RowBox[{"Expand", "[", 
      RowBox[{"#", ",", "1"}], "]"}], "&"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"%", "//", 
     RowBox[{
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{"#", ",", 
         RowBox[{"zv", "->", "Infinity"}]}], "]"}], "&"}], 
      "\[IndentingNewLine]", "%%"}]}], "//", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{"zb", ",", "Infinity", ",", "0"}], "}"}]}], "]"}], "&"}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.885456731851774*^9, 3.8854567318650427`*^9}, {
   3.8854568591533337`*^9, 3.8854569134000483`*^9}, {3.8854569562717247`*^9, 
   3.885457253123619*^9}, {3.885457283555296*^9, 3.885457296368341*^9}, {
   3.885457409040711*^9, 3.88545745276152*^9}, {3.8854575775684977`*^9, 
   3.8854576017570877`*^9}, {3.885457675664674*^9, 3.8854577116133213`*^9}, {
   3.885457764611758*^9, 3.8854578001999817`*^9}, {3.885457851533032*^9, 
   3.88545788403493*^9}, 3.88545811843134*^9, {3.885458264724238*^9, 
   3.885458368123651*^9}, {3.885458428327434*^9, 3.885458439780059*^9}, {
   3.885458561377578*^9, 3.885458606710339*^9}, {3.8854597406391487`*^9, 
   3.885459754121593*^9}, {3.8854599599706573`*^9, 3.8854599620715227`*^9}, {
   3.8854600953766327`*^9, 3.885460145900446*^9}, {3.8854601807593*^9, 
   3.885460216906826*^9}, {3.885460257461762*^9, 3.885460296181263*^9}, {
   3.8854603285799522`*^9, 3.885460359197034*^9}, {3.885460394567628*^9, 
   3.885460396117332*^9}, {3.885460452899461*^9, 3.885460483518643*^9}, {
   3.885460532010907*^9, 3.885460534266769*^9}, {3.885460571594687*^9, 
   3.885460658860572*^9}, 3.885461719188785*^9, {3.885462479978223*^9, 
   3.8854625203447533`*^9}, {3.885462587120408*^9, 3.885462587324806*^9}, {
   3.88546837908834*^9, 3.885468383169426*^9}, {3.8854703315664997`*^9, 
   3.885470338851557*^9}, {3.8855314841617928`*^9, 3.885531513182888*^9}, {
   3.88553157325158*^9, 3.885531578620184*^9}, 3.8855323280492373`*^9, {
   3.885537499046571*^9, 3.885537509360013*^9}, {3.885537699943323*^9, 
   3.885537718522553*^9}, {3.885540547454075*^9, 3.885540552030573*^9}, 
   3.885540625426733*^9, {3.885617831966545*^9, 3.885617872167688*^9}, {
   3.885627113144567*^9, 3.885627122700824*^9}, {3.885627699419248*^9, 
   3.8856277017413187`*^9}, {3.885627769944202*^9, 3.885627774031125*^9}, {
   3.8859811367675037`*^9, 3.885981139633284*^9}, {3.885981173835288*^9, 
   3.885981181845402*^9}, {3.8859822921570377`*^9, 3.8859822938789186`*^9}, {
   3.8862349247763844`*^9, 3.886234934163705*^9}, 3.8864653256239367`*^9, 
   3.8864653824475393`*^9, 3.886465756382634*^9, {3.886466595459223*^9, 
   3.886466605847642*^9}, {3.886853705539219*^9, 3.8868537076824007`*^9}, 
   3.8871916707345257`*^9, 3.8871953158513613`*^9, {3.887206037480549*^9, 
   3.887206052756241*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"33bee92b-f0f5-4861-bb18-1149ff92d5ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"amp1", "-", 
     RowBox[{"Conjugate", "[", "amp1Neg", "]"}]}], ")"}], "/.", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"zv", ",", "zb", ",", "\[Omega]"}], "}"}], "->", 
     RowBox[{"RandomInteger", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "100"}], "}"}], ",", "3"}], "]"}]}], "]"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.887206057719906*^9, 3.887206108626788*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"0d8b7008-2ab7-425e-9313-7e2d879eb6bf"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.887206097075935*^9, 3.887206109010358*^9}, 
   3.887230379765774*^9, 3.887254240382934*^9, 3.887280999745936*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"c60b23e4-fcd1-45ad-b621-58604ca7d1e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"amp1", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.88562795488384*^9, 3.885627955763845*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"83d69b78-7d65-435f-9047-5d7e5da6c3f5"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.885627956317474*^9, 3.885631172642663*^9, 
  3.8859002772559032`*^9, 3.885902246266708*^9, 3.885934216877947*^9, 
  3.885981273808013*^9, 3.885982301776247*^9, 3.8859825679585247`*^9, 
  3.8860459942559834`*^9, 3.886046030996249*^9, 3.886046125223775*^9, 
  3.886054750097026*^9, 3.886054965947727*^9, 3.886110721093769*^9, 
  3.886111249671661*^9, 3.8861120298538017`*^9, 3.88611270097999*^9, 
  3.886235014288341*^9, 3.886240178371746*^9, 3.886250102129805*^9, 
  3.8863219246766567`*^9, 3.886386992430524*^9, 3.886466652150734*^9, 
  3.8868536274420557`*^9, 3.886853718267552*^9, 3.8868973578200073`*^9, 
  3.887110579633918*^9, 3.887150525667132*^9, 3.8871511124941196`*^9, 
  3.8871520440175657`*^9, 3.8871875742678556`*^9, 3.887187996200886*^9, 
  3.8871880417546797`*^9, 3.887197575392009*^9, 3.887230379774468*^9, 
  3.887280999754964*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"db180c91-e871-4b79-8984-a8fc2eda724f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Continue", "Subsection",
 CellChangeTimes->{{3.886163682445346*^9, 
  3.886163687179957*^9}},ExpressionUUID->"721b3385-6b51-415b-a975-\
3dcef6fa9cb6"],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"amp1Neg", "=", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"amp1Neg", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "//", "Simplify"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", 
         RowBox[{"Length", "@", "amp1Neg"}]}], "}"}]}], "]"}]}], ";"}], ",", 
   "ii"}], "]"}]], "Input",
 CellChangeTimes->{{3.8862351120308867`*^9, 3.886235126106399*^9}, {
  3.886853796506529*^9, 3.8868537974503107`*^9}, {3.887230258003186*^9, 
  3.887230261527861*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"6b3bce01-e46d-4f79-b60d-ee961671f5b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1list", "=", 
   RowBox[{"List", "@@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"amp1Neg", "//", 
       RowBox[{
        RowBox[{"Apart", "[", 
         RowBox[{"#", ",", "zb"}], "]"}], "&"}]}], "//", "Expand"}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.886854491772028*^9, 3.886854523532729*^9}, {
   3.886855668460884*^9, 3.886855673432858*^9}, 3.887230269046756*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"0ceed858-5840-4494-8642-fabcc76fb99f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1list", "=", 
   RowBox[{
    RowBox[{"amp1list", "/.", 
     RowBox[{
      RowBox[{"Times", "[", 
       RowBox[{"f__", ",", 
        RowBox[{"Power", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["zb", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["zv", "2"]}], "-", 
            RowBox[{"3", " ", 
             SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
            RowBox[{"3", " ", 
             SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
          RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "I"}], " ", 
            FractionBox[
             SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
          RowBox[{"Times", "[", 
           RowBox[{"f", ",", 
            RowBox[{"Power", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 SuperscriptBox["zb", "2"]}], "+", 
                RowBox[{"3", " ", 
                 SuperscriptBox["zv", "2"]}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
                RowBox[{"3", " ", 
                 SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
                RowBox[{"4", " ", 
                 SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], "]"}]}], "/.", 
         RowBox[{"zb", "->", 
          RowBox[{"zb", "+", 
           RowBox[{
            FractionBox[
             SqrtBox["2"], "2"], "\[Omega]"}]}]}]}], "//", "Simplify"}], 
       ")"}]}]}], "/.", 
    RowBox[{
     RowBox[{"Times", "[", 
      RowBox[{"f__", ",", 
       RowBox[{"Power", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["zb", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["zv", "2"]}], "-", 
           RowBox[{"3", " ", 
            SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
           RowBox[{"3", " ", 
            SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
         RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "I"}], " ", 
           FractionBox[
            SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
         RowBox[{"Times", "[", 
          RowBox[{"f", ",", 
           RowBox[{"Power", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                SuperscriptBox["zb", "2"]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["zv", "2"]}], "-", 
               RowBox[{"3", " ", 
                SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
               RowBox[{"3", " ", 
                SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
             RowBox[{"-", "1"}]}], "]"}]}], "]"}]}], "/.", 
        RowBox[{"zb", "->", 
         RowBox[{"zb", "+", 
          RowBox[{
           FractionBox[
            SqrtBox["2"], "2"], "\[Omega]"}]}]}]}], "//", "Simplify"}], 
      ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.886855538625163*^9, 3.886855641195485*^9}, {
   3.88685571229713*^9, 3.886855745943301*^9}, {3.886855940936037*^9, 
   3.8868559843749104`*^9}, 3.886895427080196*^9, {3.886896038972371*^9, 
   3.886896041424025*^9}, {3.88720351881772*^9, 3.887203521061174*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"839c0c30-c90c-4bd1-80c3-79be8b19b43f"],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"amp1list0", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Assuming", "[", 
          RowBox[{
           RowBox[{"b", "<", "0"}], ",", 
           RowBox[{
            SqrtBox[
             RowBox[{"2", " ", "\[Pi]"}]], 
            RowBox[{"FourierTransform", "[", 
             RowBox[{
              RowBox[{"amp1list", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], ",", "zb", ",", "b"}], 
             "]"}]}]}], "]"}], "/.", 
         RowBox[{"b", "->", 
          RowBox[{"-", "1"}]}]}], "//", "PowerExpand"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", 
         RowBox[{"Length", "@", "amp1list"}]}], "}"}]}], "]"}]}], ";"}], ",", 
   "ii"}], "]"}]], "Input",
 CellChangeTimes->{{3.886854565112446*^9, 3.886854602841876*^9}, 
   3.886895592633415*^9, {3.8868965199475822`*^9, 3.886896531747871*^9}, {
   3.887203533548827*^9, 3.887203539002437*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"66882833-bedf-4485-8e30-31bb57046e91"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp10MM", "=", 
   RowBox[{
    RowBox[{"amp1list0", "//", "Total"}], "//", "Simplify"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.886855844051917*^9, 3.8868558514677*^9}, {
  3.886856124904985*^9, 3.8868561387402973`*^9}, {3.8871510510656157`*^9, 
  3.887151051207938*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"e544ad5a-5990-4b24-a372-1b74741319f7"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.886853948071288*^9, 3.8868539609492598`*^9}, {
   3.886854529833088*^9, 3.8868545410663424`*^9}, {3.886856162678536*^9, 
   3.886856250186467*^9}, 3.886895624147155*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"b4de6475-f7c3-4656-8a89-ac690be4dbb5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"amp10MM", "-", 
    RowBox[{"Conjugate", "[", "amp10PP", "]"}]}], "/.", 
   RowBox[{"\[Omega]", "->", "6.5"}]}], "/.", 
  RowBox[{"zv", "->", "1"}]}]], "Input",
 CellChangeTimes->{{3.886895324137906*^9, 3.886895324306335*^9}, {
   3.886895902684102*^9, 3.886895952911434*^9}, 3.887188162249226*^9, {
   3.887230656260219*^9, 3.887230663547112*^9}, {3.887230708264977*^9, 
   3.8872307290112534`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"cd1231ad-73ac-4f06-8e8c-bd9454f4b126"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.003012436754253819`"}], "-", 
  RowBox[{"0.01041480649844798`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.887230657588971*^9, {3.887230714300169*^9, 3.887230729632443*^9}, 
   3.887281059000867*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"363be972-bd29-43e5-8c90-269c4d55137c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"amp10PP", "/.", 
    RowBox[{"\[Omega]", "->", "6.5"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[56]:=",ExpressionUUID->"77652c4d-76ae-41a8-87b0-0d7f419abf13"],

Cell[BoxData[
 RowBox[{"0.003823849953968632`", "\[VeryThinSpace]", "-", 
  RowBox[{"0.02268615751449523`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.887230611317309*^9, 3.887254352216481*^9, 
  3.887281059044903*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"d8cc25c3-b9c2-4bf8-a26f-fa90e41efd31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"amp10MM", "/.", 
    RowBox[{"\[Omega]", "->", "6.5"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.886895467061453*^9, 3.886895468133973*^9}, 
   3.886896145468636*^9, {3.886896265292391*^9, 3.886896265463235*^9}, {
   3.886896607510057*^9, 3.886896613510816*^9}, {3.8871881686533546`*^9, 
   3.8871881687871723`*^9}, {3.887230608266253*^9, 3.88723060871283*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"fc2185ad-1901-4040-8274-965d030fbc51"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.027666965841937383`"}], "+", 
  RowBox[{"0.03278755865478037`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.886895468919537*^9, 3.886895884752284*^9, {3.886896119134666*^9, 
   3.8868961461009703`*^9}, 3.886896266060237*^9, {3.886896608138431*^9, 
   3.886896630734172*^9}, 3.886897532335473*^9, 3.887110635500751*^9, 
   3.8871505806563673`*^9, 3.88715116774306*^9, 3.88715209971691*^9, 
   3.8871881693419027`*^9, 3.8871976336368637`*^9, 3.887203600962824*^9, 
   3.8872304358580837`*^9, 3.887230609293611*^9, 3.8872543494925222`*^9, 
   3.887281059092663*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"ee04eb6e-0b73-46b9-96ff-d7633841a8c0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1Reg", "=", 
   RowBox[{
    RowBox[{"(", "amp1Neg", ")"}], "*", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", "zb"}], "-", 
      RowBox[{"0.0001", 
       RowBox[{"Abs", "[", "zb", "]"}]}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{3.8871881926491947`*^9, 3.887230433192747*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"d3b87191-a03d-48c1-8390-5fb57a99994d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ampNumUnReg", "=", 
   RowBox[{"amp1Reg", "/.", 
    RowBox[{"\[Omega]", "->", "2.5"}]}]}], ";", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{"ampNumUnReg", ",", 
    RowBox[{"{", 
     RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"zb", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", 
      RowBox[{"+", "\[Infinity]"}]}], "}"}], ",", 
    RowBox[{"Method", "->", "\"\<LocalAdaptive\>\""}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.886895477559411*^9, 3.88689551390541*^9}, {
   3.8868962683182497`*^9, 3.88689626851917*^9}, 3.8868966148820267`*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"a5efc6ce-ad8c-4f55-941d-bc2608acb54d"],

Cell[BoxData[
 RowBox[{"1.9247275159327257`", "\[VeryThinSpace]", "-", 
  RowBox[{"0.03784805227034793`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.886895494063733*^9, 3.886895524190032*^9, {3.886895897862954*^9, 
   3.88689596583808*^9}, 3.88689627884641*^9, 3.886896625184422*^9, 
   3.8868975450835667`*^9, 3.887110645433622*^9, 3.887150590402639*^9, 
   3.887151177595016*^9, 3.8871521097721367`*^9, {3.8871881855075293`*^9, 
   3.8871882121221848`*^9}, 3.887197648099671*^9, 3.8872036177945747`*^9, 
   3.887230449105583*^9, 3.887281073478816*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"fcb8b0e7-ddda-42f3-9048-0e4ac4b9f45a"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["PlotPPw^2W", "Section",
 CellChangeTimes->{{3.886895628955553*^9, 3.886895629618394*^9}, {
  3.88715107219531*^9, 3.887151072313574*^9}, {3.8872042394913197`*^9, 
  3.8872042447879*^9}},ExpressionUUID->"ff12f576-e8c4-4163-802a-22dce25e0856"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.887150970141984*^9, 3.887150990413754*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"bcee90f9-5f67-4044-8cac-b08b6496e40b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$interval", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$finiteSize", "=", "12.205"}], ";"}]}], "Input",
 CellChangeTimes->{
  3.886916252550088*^9, {3.8869163623912067`*^9, 3.886916372455441*^9}, 
   3.8869164375943727`*^9, 3.886918062828347*^9, {3.8869191141565943`*^9, 
   3.8869191161453257`*^9}, {3.886919230864924*^9, 3.8869192618838778`*^9}, {
   3.886919723837805*^9, 3.8869197241240387`*^9}, {3.887150440353751*^9, 
   3.887150458044381*^9}, {3.887151018475897*^9, 3.887151020896557*^9}, {
   3.887151385790868*^9, 3.8871513894310217`*^9}, {3.887151821365581*^9, 
   3.8871518215851927`*^9}, {3.887153861932822*^9, 3.8871538624150763`*^9}, {
   3.8871893940985317`*^9, 3.8871893966297703`*^9}, {3.8871896148060217`*^9, 
   3.887189615381865*^9}, {3.8871898159196663`*^9, 3.887189817142865*^9}, 
   3.887190160864286*^9, {3.887190377259347*^9, 3.8871903802333*^9}, {
   3.887190633809146*^9, 3.887190640615471*^9}, {3.887198057790056*^9, 
   3.887198058803424*^9}, {3.887203647837812*^9, 3.8872036494227467`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"898a8eae-a7ae-41e2-b62f-262784523d94"],

Cell[BoxData[
 RowBox[{
  RowBox[{"wlist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"ii", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "$interval", ",", "$finiteSize", ",", "$interval"}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellLabel->"In[63]:=",ExpressionUUID->"6252d9b1-c3cd-485e-aa04-8df9308b1411"],

Cell[BoxData[
 RowBox[{
  RowBox[{"num", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Omega]", "^", "2"}], "*", "amp10PP"}], "/.", 
        RowBox[{"\[Omega]", "->", "ii"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "wlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.88689670051527*^9, 3.886896710529189*^9}, {
   3.8868967437226067`*^9, 3.88689674572598*^9}, {3.886914883414083*^9, 
   3.886914885704412*^9}, {3.886915686016613*^9, 3.886915692113388*^9}, {
   3.8869157457143927`*^9, 3.886915747258988*^9}, {3.886915995489711*^9, 
   3.886916007937778*^9}, {3.886916091143714*^9, 3.88691609538454*^9}, {
   3.886916197795518*^9, 3.886916208704795*^9}, {3.887150982812023*^9, 
   3.887150983056734*^9}, 3.887151441872077*^9, {3.88715147480015*^9, 
   3.8871514981288853`*^9}, 3.8871515609081087`*^9, 3.887189604469346*^9, {
   3.88718990551891*^9, 3.8871899082063437`*^9}, {3.8871901700464354`*^9, 
   3.8871901755472517`*^9}, {3.887198052497628*^9, 3.887198054597868*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"ffa560ea-e986-4d40-9eb5-ab343c5d6b56"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"wfFRe", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"wlist", ",", 
        RowBox[{"Re", "/@", "num"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"wfFIm", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"wlist", ",", 
        RowBox[{"Im", "/@", "num"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"wfFRe", ",", "wfFIm"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8869164575655413`*^9, 3.886916476150309*^9}, {
   3.886919146378133*^9, 3.88691914673559*^9}, {3.8869191812721643`*^9, 
   3.886919181697256*^9}, {3.886996935440699*^9, 3.88699706013197*^9}, 
   3.887151455874309*^9, {3.88715150154317*^9, 3.887151507787959*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"9aa9a407-5ed6-4d56-ad27-630a5a044133"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10wlQk1cQAOAEUpsq4QYhhoSQkCBnVKxKlbe2ojNKS4EWUekIeHAqWFTU
quARFBEdBWRArEGQKlIRPEjkSKB4oCYVOeSIFhAVIkg4qoIHLWTdmX/+efPv
+3bn/W+5oTF+G/QoFMqu/5+Jd3bWRMiIPHa/V/kxmkK3riNDTfMYheXmCvc5
E9FADH85Q1w3s/F7K3k1VlBVlsBTUCajg8xdN+cljS9UTKbPeUaY10ZyAziO
irCNE/GC0O3qm+9tc8b9veRwvm/mVZGrQvlgIvqIcT/ohwS5oaclWZFswSp9
EeYPkoSKURcTjgj7GSbn4mpLT9JFCtXk/hGy4sWYT2WqG9Z7Q6ZIxhzdq10V
1EnvHbm65Nr6wTIX9EYJxUY2HLLHGb33JF9qM9A/wwm9D6Tw/p0zb3NmoveJ
lDbImZ10B+yPAhHLdv1qGSbA/imwlTOriFnFR58KRx2rT58y4+F+PWDVHiwI
j+ZiPX3gU5vkEVkc7I8GNWXxLE0MCz0a9GvunTAOtUbvC4ifmz5yYKslelNg
xCnmO22hGXpfAkevO4FLN0GPDnkxfkcXsBjo0SHXL2B+zG46el8Bz+72m9Wz
aehNhSGX5MVhnhT0poGPRajSGUblOs8AvJ9+H7CsaEiu8wzAOCSyQryrV67z
GOCsqDLPlz6R6zxDSLxET1fevSXXeUaQyHh8JOnwDaI7PmPYsS1knfxtA5lM
32gMNKbl0n02HUTnG8P4Ja2iw+s50d0nE2Au/rnVX9xLJstlmcCOfS9l4X19
6JnCWg/GqCxlAD1TuHHZm9Et06JnCh439U2jVw+iZwaV48mRUcWDRNe/GYi9
jxhKFIPomcNPDZL54oxB9MyB50ttXD53ED1zqLzUclBVoEXPAtZvf7TCuXMA
PQtYWUFzy5z1Gj1LaP8kTIhb3oeeJeRVaOdnfK1BzxKUTr/lGFB60JsOLeGB
7+yvPEdvOlS5u3yI9HmGnhWcfeG/4fzzDvSsQMTi37g1rEbPCipKK84P81vQ
s4b0GHUxO7IBPWsQUTf6bM9WoseE16ug69WftegxQeGbssXoGyl6/68tUkU2
xWfRmwG2zLCa8yNn8P/PgKBYNz39getynccCSV9mctTlarnOY4GpY41V7tM7
eH9YcPtUyUVTsVKu82wgZ2Hq2PQf69GzgYWiqMquzAb02JCWumDtpuwm9Njw
r+xJyd3Ax+ixYQ3n24v7G1vQ44DkyUNqplEbehyYtrM7OdigHT1bCA7hMVOU
7ZhvC+9PbVk6JUCNvi0cyfuoendBjfttwTPjVfO1OjXWswWadHF3UbkaPS4U
iMYLI/ar0eOCx+yivETuZ48Leq2LolNy2tHjwphXo5bztg09Lvwt/yOwzr0N
PTu4nxZeSl3Vip4dgO/61c5hLejZQbRUa3Yi9DF6dnB7Xo9q5Q/N6NmBqj7K
ROzShB4Povfmfnyj14geD3Ks/9KE1j/CeeUB2/vQYf/Tn8+fB/pTbx4QrnuI
Hg9K4+O9uAEq9PjQVSLIFWjuo8eHMvYxJiOpDj0+LBxI3ergcgc9PiyJkMbF
ddWix4fjnkklJy7UoGcPLr2Xh+r3KdCzh0VFRh0hHRXo2UOQuFdfppGiZw8+
an/PzfbX0bOHqnOHoOxkCXoCmBdorjkYXoSeAFx7E9P2WhagJwArJ5NNSpEE
PQEE/a66aBSbgZ4AYst9fXuKk9ATwskoRuWe8mD0hODwYbdrmt9OovOE0NP+
tHxBZwrOlxDig45rmqvTcX6E0D8THpxWZeO8OcA/D9tKxw0lOE8OcKVH5dG5
5hx6DuARHdzF9Msn/wEIzV6+
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10wlMk3cUAPAKFRCwUs5SC/Qum4hybF6M/9sQxeEioJviVCaMcrkQEeNg
aoRAFIkLChG5lqGCzBOHouWwpTCsUQ5BsPWAiogitCoF5HZCX1/y5cuX773f
e9+X9+eEx4dEGlEolOTP1+w9P282JMS7VODzLfM90T/fI9VVSeNlvZ+It9ds
tJPYfHVpQZYp6N+ryNm+DEVrCw0oc6Em2Xu/yi1stoa5dK+XZONoYnzQiB1E
iWejjzzZnUFTdjKwvp+MpGWyyuMXQ9OD2RgkotQTu+W1Tui9J4OeqT0eMhfM
/0ByQxipp6vZoJ9HR5oH7SN69nKgea5+mHTl+a/sNeZiv1Gy97e1BW0JXJg3
542R2MtlFXwZF71xMh0THZuu4aI3SRZ94NMVU1z0pohzWeD2rncGb4b4pYyn
tCi4OB8FVCfTjpdncHF+ChTJTBOKvA3+PMgKLAmouM/BeiNgNofTLYI52M8Y
vAOOht5sZON8VGA2+iVWurPRo0Jz7pYcE3vD98+HiVXMn6ernNAzgZJfSzdq
N7HQM4UhxTch3yuZ6JnBBL105+atjuiZQXijwJ/Z6oDeAoh+cmb1IX979MyB
+yCmSVhli54F+HtKo08st0HPEtzzUkB3kY6eJUQT82LxEiv0FoI89R+39KiF
6NFA0v5BFpZpjt4i2ONF3bbxP1P8f1bAcewzf+owH+bSxVYwVv/oE0k3Qt8K
XuT30LYuouA+0cGC2PyyKX6SzLXLo4Pf85zAtplRovesIbi7pHxhyxDRe9bQ
MaXZmi3XEL1nDQmn5FUn9/QRvWcDuixv4/WrunHfbaDTvFWsPt+Gni14WMeW
R4pr0LMF24vhj1wiLkn1ni10NaXEney9J9V7dhB33WLtwcMdUr1nBx/fff1d
EuO5VO/Zw5EV1ck/9r6Q6j17aPRbMS140IuePSw7V8U6F/AaPQe48DvV2Tys
Hz0HGKkrnH5oO4AeA2Z6txQVxQ+ix4AQiVbqvl+DHgOO67qUoUu06DnCOHXb
jYlcLXqOUB9Cn+iXadFjQsO10kzdJS16TLjt9ba2aZcWPSakEac4ercGvcUQ
alHzxNNTg95iUHeEJv+xcxA9FlRHTe6migfQYwFbFVN0PegteizQhbG93Ln9
6DmBdrxG/abrNXpO4HbMJ42e2YeeM0ReanTN/fIVes5gmRpxRVj3Ej1nsA8+
P/lFSA96LrBDR2u4q1aj5wLbWobi7nZ3occG2vqBIF/qM8xnw63hN5tveKnQ
Z4Ns7I4yJqET69kQ7CEy5TW0Yz82rLOTKpe4PUTv87n2kW2QbG9CjwMBFoXL
fHMU6HHAZNMLk9dmDehxoC0rsUd1QIoeB06NrYnID7uFHhfKrj49tiXvGnpc
yKp9dUSSWoweF85TCjyuj6agx4XBabPcZ50ncN+5QDtdWBMUehb3mQclXWum
7y+/jPvPgzNTnLDbR/4l+vPKgwzj42kT0ZV4Hnhg5ZHt4dohQY8HAfKfQhX3
atDjw+Ekh/3KQCl6fHAq+hi1o1yGHh8KV1cMWB6tQ48PMwExviNucvT4cMp3
qZJXIkdPAOqGx4cqh+ToCSBr1UeXdkY9egJgXe0MLGbWoycA3ygj97WTBk8A
lvuu8DtqDZ4QchwSundFGjwhKFrtFqiG69ATwlIfvwP8eMN8QvhrNOmp6WMZ
ekKoKHR577ZMhp4INH/mr/AZvoOeCFYO9C3ISKxFTwQpnm3OTS+r0RNB8f2L
yT+sq0JPBI8k+1Tz/76NniuIN5zuuDBciZ4ruBYfvpy//iZ6rjC282D2ZEEF
+R9Fk1GQ
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 12.200000000000001`}, {-16.121355889769344`, 
    9.493713889846303}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8869191471525507`*^9, 3.886919183073358*^9}, {
   3.88691923758848*^9, 3.8869192680758257`*^9}, 3.886919728744965*^9, 
   3.886996908943514*^9, 3.886996963912912*^9, {3.8869970045770693`*^9, 
   3.8869970606104507`*^9}, 3.887110374629136*^9, 3.8871504846127777`*^9, 
   3.8871512047104483`*^9, 3.88715157877951*^9, 3.887153703123884*^9, 
   3.887153869813469*^9, 3.887154030015005*^9, 3.887188267714389*^9, {
   3.8871896104480658`*^9, 3.8871896228812447`*^9}, 3.887189915866691*^9, 
   3.887190184986158*^9, 3.8871904024800873`*^9, 3.887190436265007*^9, 
   3.887190658350993*^9, 3.887197667846374*^9, 3.887198113040411*^9, {
   3.887203633211339*^9, 3.887203656495812*^9}, 3.8872304610794992`*^9, 
   3.8872316304925013`*^9, 3.8872321236669617`*^9, 3.8872543769849663`*^9, {
   3.887254655726663*^9, 3.88725467939767*^9}, 3.887255778983939*^9, 
   3.887256775111574*^9, 3.8872810749681797`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"9c1fad2f-8525-4f9a-97dc-8b6832d0bbb0"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["PlotMMw^2W", "Section",
 CellChangeTimes->{{3.886895628955553*^9, 3.886895629618394*^9}, {
   3.887151080283435*^9, 3.887151080424231*^9}, 
   3.887230333525141*^9},ExpressionUUID->"b0f49f4c-747b-468f-9234-\
1c780f4147e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"num", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Omega]", "^", "2"}], "*", "amp10MM"}], "/.", 
        RowBox[{"\[Omega]", "->", "ii"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "wlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.88689670051527*^9, 3.886896710529189*^9}, {
   3.8868967437226067`*^9, 3.88689674572598*^9}, {3.886914883414083*^9, 
   3.886914885704412*^9}, {3.886915686016613*^9, 3.886915692113388*^9}, {
   3.8869157457143927`*^9, 3.886915747258988*^9}, {3.886915995489711*^9, 
   3.886916007937778*^9}, {3.886916091143714*^9, 3.88691609538454*^9}, {
   3.886916197795518*^9, 3.886916208704795*^9}, {3.887151193831358*^9, 
   3.8871511939682627`*^9}, {3.887151606859659*^9, 3.887151630121749*^9}, 
   3.8871896290695*^9, {3.88718991941391*^9, 3.887189920448547*^9}, 
   3.8871901916553497`*^9, {3.8871980255472507`*^9, 3.887198028328755*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"7b6844d9-e459-4fc4-922b-c755b9042526"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"wf1list1", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ampNumUnReg", "=", 
          RowBox[{"amp1Reg", "/.", 
           RowBox[{"\[Omega]", "->", "ii"}]}]}], ";", 
         RowBox[{"NIntegrate", "[", 
          RowBox[{"ampNumUnReg", ",", 
           RowBox[{"{", 
            RowBox[{"zv", ",", "0", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"zb", ",", 
             RowBox[{
              RowBox[{"-", "\[Pi]"}], "*", "7"}], ",", 
             RowBox[{
              RowBox[{"+", "\[Pi]"}], "*", "7"}]}], "}"}], ",", 
           RowBox[{"Method", "->", "\"\<LocalAdaptive\>\""}]}], "]"}]}], ",", 
        
        RowBox[{"{", 
         RowBox[{"ii", ",", "0.2", ",", "0.4", ",", "0.1"}], "}"}]}], "]"}]}],
      ";"}], ",", "ii"}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{3.886896665191103*^9},
 CellLabel->"In[69]:=",ExpressionUUID->"e54d6a03-9b74-4bd4-8eb2-ffa697a7a321"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"wfFmmRe", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"wlist", ",", 
      RowBox[{"Re", "/@", "num"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wfFmmIm", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"wlist", ",", 
      RowBox[{"Im", "/@", "num"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"wfFmmRe", ",", "wfFmmIm"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8869164575655413`*^9, 3.886916476150309*^9}, {
  3.886919146378133*^9, 3.88691914673559*^9}, {3.8869191812721643`*^9, 
  3.886919181697256*^9}, {3.88711056894635*^9, 3.8871105967993593`*^9}, {
  3.887151641620533*^9, 3.887151642687072*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"af1e839c-43de-4aef-8161-06696fc6aecd"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10wlQU2cQAOAYI6Ac4Ug4E0hCSAIkiAUEo+XfwYtawIt64IUwgpZSOyio
kSpe2NHCpEotaAuVIkwcg1pgbBSNgKIWUJRTOSRye3EqEK4WsuzMmzdv3u63
+7/Zxw3bu24XlUKhyP6/pu4X06ZCRVaFLOX+60sB3fMT4nK46mw+xQQ8Paai
imTmzJZt5TLx/UvSF8zOOHbDFijT0UJM0mv3aUscYDrdo5XIPEULdnrwIDJi
KjrIu6TA/PYgPtZ3EzvWi43BXgKoKJ+K9+RFRHiovEOIXi9pPCt5axnmjPl9
RHYtcnJ9jgvOM0A2n8gsaShwhafT9YNE3rse5Eli7PeZXC/lsVVuEpg17Q2T
FC79melFCXojJCK1svRJpQS9UeLMHj6VVC1Bb4zIdyVbHciRoDdB/p7zJXte
gATno0BbdNwe4UMxzk+BxQtV/ZNMMfqzYFaz4WM9P1esp0J2fYv8TcDM/LPh
ao7SYIfUGeejgb6t9vl2ExF6NAiLvdtZUS5Abw5coZ9vTznkhJ4ebEswXpNk
zUdPH9x9srVxSh56BnCK9lX6x8Vc9Awg9bj0m7JkB/TmwtjIOsXCbBZ68+Cn
hO33JA9s0DOEZSveC1d8tETPCPKfuxb/6sxAzwi+NrJg5MrM0DOGe3FbIj3K
jNEzga1xPP1bDQbo0aFot+GS12Iafj9TuDYSQvM+PUmm0yNMwbfGeFH+yiGi
803h5x+iE1f69RDdPplBlr9y0Hu+hky3SzMDzhMfVkFUEdF55tCVezQ2qa1c
rfPMgTf/0b6TyRq1zjOHZbH3o48o3qp1ngUcvl1t9a1/n1o3vwWEdrWuV2cP
qnUeA1QbJ9w8Y4fQY4CjdIuGcXsEPQbs998bFx4/ih4TqBUT12+VjKHHhDpD
s/mc1HH0LMGtVmEzhzqBniUEPrKIMpo3gZ4l6NWVmFFU4+hZwXDBwaECq3H0
rECqEs3Wuo2hZw1ebHe+TH8UPWvI9IrZna+Ymc8a4iwGWZ3sYfRsoJRW0kf9
7jN6NhDov4mZcWnmvLYQKD7u3ZPXj54teJGg0Dt3etGzhUpVn0FezAf07KDQ
eDh+7a5u9OygLf0NjxXSjh4LLv5u79EeokGPBS/PrPA00rxCjwVae466aHkV
emxw91C+Sm59hB4bekR/te17kIeePfzBiK4p5lzCfbGH4tzNkolCNe6LPTRK
y0+FHy3DfXEAwwF2pot9FdF5DuBPUR/9oFeP+8KBfgP18j8PNGI+B/SuOhSn
eregzwFPWlpv82cN1nMgRkjSpLJW7MeBpiW9D9TFbehxITj03KK+5+3occFq
287VeYoO9LhQ/8rNkgR0oscFxSqRhlnYiR4XEo9lBHwa7USPB4dcQ56WmXSh
x4M7icxm5VAnejwQ/yMtKlPNeDwYj/Cm7t404/HgZpA87WltB3qOcOXyL+UB
Ph3oOYL75vgS54R2ovtfHaF0g09dxs029BwhPqo7pfbZzHkd4fxh//1NTW/Q
44OYtXZJTrMGPT6cNMw11atpQY8P5t9n+a05/Ro9PqzuVnY7hzShx4dVYWZn
Nwgb0HMCMX2y0negHj0nCJBHRw0W1aLnBNQFF565/1aNnhN8EXmjKjjuBXpO
UKEtsNgTVomeANK1FGvfwnL0BPDeJVF5pe4xegLg9h4csLV7iJ4APvn1hNPP
FKEnAPsY0Y38oEL0hKA4cn9HwtsC9ISw7W7U0q6a6+gJge52LnY4Kws9Ibzb
lOgLZ1LQE4Lp3B99B3o3oCeC3HpJwgUDOe6/CPpv29293JKh1nkiaGyqqm6g
56j/A1DXPXI=
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11AlMk0kUAOAWhCJU5CilxYL0BMHFLHiwm9V5ggfIFY4FG0FdFeqqixhB
WAx7YPCIx4KQiCyooMQbUA5BhRaVVU5bLhUN4nIoihUEeyDiLvyPl/z5M/nf
fPMy/5vhb9kdEm1Ao9GS/3+m3jmnp6KK+Pu7r9Ozhwk1ridda12CJTVfyWKP
qWgjZhd/2LHamwHU92ekKLxhkzHDHGjT0UM4F4qPe9CtYDrdo5dwnmjbKo6y
QBYzFQNkh90DxpdsNs4fJIXd6R8zhBxobpqKIQLqyBCJCxe9YcLvj3UwLuZi
/gjprNg4dOgWF6h6Rsnz6kMbUvy40DI9f4z4DvgUX47n4HoaQjbceLlyhS3Q
pz0deS/KtE0qs0FPT9RMn0vWfdbofSabGxJUNl2W6E0QyXcWaZ1r5qI3SVzv
u7WEnjbF+mgQ6xd2tey+EdZPA80HpSj7BQ19OoDLQ/rjES2h5huA/cX+gyeL
hnA/DaHLK7jI262dUPXNArosL8E4r0VOebNA0Jhy/6b0jZzyjCBg8Y7q/rej
csozhkeN7uKqiXE55TFgXkRNZsEVmoLyTMD7xHBtQYKhgvJMgL5B5fvnCyMF
5c2GsisLVhl3MxSUZwoH1m5vTEqeraA8M8g86x+fVGqKHhP2PVXrO46aoccE
MeuLaieDid4cCFoasErrwkTPHGLt+g5//GyG3lxY4xcljfvDTEFtnwU4jy8J
1NeYKqbTYyygWN0TsLNmNvoWoA4t8nqeZqKg+skSKp/sXv4rj6GYXu60JRTk
rrRPPGKEnhW4xGkejbQZomcF118tm3hhYICeFfDMovNHeDT0rOF1uWno8uAJ
3F9rqLgWlKOL0MkpjwW5peHLDkjH5JTHgh+jPOKTNg/j/2HBkqzkauf3b+SU
ZwMPbPqiw31foWcDd7PyOBkNbeixIc5wS19qYgV6bEhfJDvcu0tOKI8N6/MW
VnkeayeUZwvrQtoD2e49eB5toe7T+ED9lX5CeRywDLRfz7v6llAeBxbVmP2W
uugDehxIvAahYzkj6HHh2kD52qaNo+hxYelQislfvWPo2YHM+3qcjYsGPTtI
btv+7q6HFj07qPE1NpAa6NCbBx0piTRxtg69eVB4oqq9XKtDjwfaOZm+Q0I9
ejyQuOZXvp6vR48H51pO+unVM549bHz6e8+prBnPHu65peeHsWY8B9iWWxip
3KNFzwFcOxMv3CjRoOcATVHHa/9u/4TefPgn7tY+yasx9OZD4QKPnM5no+g5
ggkjMNX23kfMd4RcT5nXkrwR9B2h4cmm0ojYmfvQET650lMn4tS4niM0C6wG
dRPv0OPDhyQDmTptED0+KH3Hg+ssXqPHh/DsU3n0gj70+GDTOMmuXf4venxg
ee2VJTx+iZ4ASndxKlPWPEdPAP4he933DHSiJ4DyZQcdN5W1oicAH17nQ5ef
m9ETwJ0uqSSwow49IYTXeuYro6vRE0LYefP1j5gleD8JIam5efN5t+PoCcHE
0u/bqIVnsd+FUOATc/H7VTexn0VQ0cvd2V13B/tfBOuGTaNZC+7h/SQC5qDX
wyRNHZ4HEWTdPOLWGFCPngiOWVlXytyb0BPDVvPadK9LLeiJQVCaf35QqkRP
DM5nfomhfaNCTwyrJysdGUoVemJICzoT/GB1K3oSuJ07ctsuoxU9CXSXnPCk
l7eiJwEYj+fvL2tFTwIlZ74uzTjZip4EgvL6RH4hM54TdOiFmZc1KvScIOJz
cf25VBV6TtAYK+2z1ivRc4IVzrFZykglek5QbKR7yv7pMXrOENafu7XqfTN6
zvAyZTJy/7Ym9JyBM3RpgtnQIP8P/qpRcA==
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 12.200000000000001`}, {-3.5209794364989544`, 
    14.915142237222044`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8869191471525507`*^9, 3.886919183073358*^9}, {
   3.88691923758848*^9, 3.8869192680758257`*^9}, 3.886919728744965*^9, 
   3.887110681340457*^9, 3.887150606510663*^9, 3.887151208449107*^9, 
   3.887151643984583*^9, 3.887153710494817*^9, 3.88715403210804*^9, 
   3.887188292216506*^9, 3.887189633446327*^9, 3.887189923744639*^9, 
   3.887190205062153*^9, 3.887190452269411*^9, 3.887190677450986*^9, 
   3.8871976802337914`*^9, 3.88719817461346*^9, {3.887203642851412*^9, 
   3.8872036625971613`*^9}, 3.887230465618711*^9, 3.887231632571883*^9, 
   3.887232126005272*^9, 3.887254383460308*^9, {3.887254658376873*^9, 
   3.8872546813094254`*^9}, 3.8872557809484386`*^9, 3.887256777346465*^9, 
   3.8872810762865477`*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"e0eabe1c-39ab-4c78-87f7-161c2c0a3c6d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["time domain", "Section",
 CellChangeTimes->{{3.887151094656426*^9, 
  3.887151096946519*^9}},ExpressionUUID->"30a098e9-1865-4fab-8229-\
5fee527e93ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"wfFRe", ",", "wfFIm"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.88725576902743*^9, {3.887255807754154*^9, 3.887255821103409*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"1574550e-dccb-42c9-9cb6-66402f960f4a"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10wlQk1cQAOAEUpsq4QYhhoSQkCBnVKxKlbe2ojNKS4EWUekIeHAqWFTU
quARFBEdBWRArEGQKlIRPEjkSKB4oCYVOeSIFhAVIkg4qoIHLWTdmX/+efPv
+3bn/W+5oTF+G/QoFMqu/5+Jd3bWRMiIPHa/V/kxmkK3riNDTfMYheXmCvc5
E9FADH85Q1w3s/F7K3k1VlBVlsBTUCajg8xdN+cljS9UTKbPeUaY10ZyAziO
irCNE/GC0O3qm+9tc8b9veRwvm/mVZGrQvlgIvqIcT/ohwS5oaclWZFswSp9
EeYPkoSKURcTjgj7GSbn4mpLT9JFCtXk/hGy4sWYT2WqG9Z7Q6ZIxhzdq10V
1EnvHbm65Nr6wTIX9EYJxUY2HLLHGb33JF9qM9A/wwm9D6Tw/p0zb3NmoveJ
lDbImZ10B+yPAhHLdv1qGSbA/imwlTOriFnFR58KRx2rT58y4+F+PWDVHiwI
j+ZiPX3gU5vkEVkc7I8GNWXxLE0MCz0a9GvunTAOtUbvC4ifmz5yYKslelNg
xCnmO22hGXpfAkevO4FLN0GPDnkxfkcXsBjo0SHXL2B+zG46el8Bz+72m9Wz
aehNhSGX5MVhnhT0poGPRajSGUblOs8AvJ9+H7CsaEiu8wzAOCSyQryrV67z
GOCsqDLPlz6R6zxDSLxET1fevSXXeUaQyHh8JOnwDaI7PmPYsS1knfxtA5lM
32gMNKbl0n02HUTnG8P4Ja2iw+s50d0nE2Au/rnVX9xLJstlmcCOfS9l4X19
6JnCWg/GqCxlAD1TuHHZm9Et06JnCh439U2jVw+iZwaV48mRUcWDRNe/GYi9
jxhKFIPomcNPDZL54oxB9MyB50ttXD53ED1zqLzUclBVoEXPAtZvf7TCuXMA
PQtYWUFzy5z1Gj1LaP8kTIhb3oeeJeRVaOdnfK1BzxKUTr/lGFB60JsOLeGB
7+yvPEdvOlS5u3yI9HmGnhWcfeG/4fzzDvSsQMTi37g1rEbPCipKK84P81vQ
s4b0GHUxO7IBPWsQUTf6bM9WoseE16ug69WftegxQeGbssXoGyl6/68tUkU2
xWfRmwG2zLCa8yNn8P/PgKBYNz39getynccCSV9mctTlarnOY4GpY41V7tM7
eH9YcPtUyUVTsVKu82wgZ2Hq2PQf69GzgYWiqMquzAb02JCWumDtpuwm9Njw
r+xJyd3Ax+ixYQ3n24v7G1vQ44DkyUNqplEbehyYtrM7OdigHT1bCA7hMVOU
7ZhvC+9PbVk6JUCNvi0cyfuoendBjfttwTPjVfO1OjXWswWadHF3UbkaPS4U
iMYLI/ar0eOCx+yivETuZ48Leq2LolNy2tHjwphXo5bztg09Lvwt/yOwzr0N
PTu4nxZeSl3Vip4dgO/61c5hLejZQbRUa3Yi9DF6dnB7Xo9q5Q/N6NmBqj7K
ROzShB4Povfmfnyj14geD3Ks/9KE1j/CeeUB2/vQYf/Tn8+fB/pTbx4QrnuI
Hg9K4+O9uAEq9PjQVSLIFWjuo8eHMvYxJiOpDj0+LBxI3ergcgc9PiyJkMbF
ddWix4fjnkklJy7UoGcPLr2Xh+r3KdCzh0VFRh0hHRXo2UOQuFdfppGiZw8+
an/PzfbX0bOHqnOHoOxkCXoCmBdorjkYXoSeAFx7E9P2WhagJwArJ5NNSpEE
PQEE/a66aBSbgZ4AYst9fXuKk9ATwskoRuWe8mD0hODwYbdrmt9OovOE0NP+
tHxBZwrOlxDig45rmqvTcX6E0D8THpxWZeO8OcA/D9tKxw0lOE8OcKVH5dG5
5hx6DuARHdzF9Msn/wEIzV6+
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10wlMk3cUAPAKFRCwUs5SC/Qum4hybF6M/9sQxeEioJviVCaMcrkQEeNg
aoRAFIkLChG5lqGCzBOHouWwpTCsUQ5BsPWAiogitCoF5HZCX1/y5cuX773f
e9+X9+eEx4dEGlEolOTP1+w9P282JMS7VODzLfM90T/fI9VVSeNlvZ+It9ds
tJPYfHVpQZYp6N+ryNm+DEVrCw0oc6Em2Xu/yi1stoa5dK+XZONoYnzQiB1E
iWejjzzZnUFTdjKwvp+MpGWyyuMXQ9OD2RgkotQTu+W1Tui9J4OeqT0eMhfM
/0ByQxipp6vZoJ9HR5oH7SN69nKgea5+mHTl+a/sNeZiv1Gy97e1BW0JXJg3
542R2MtlFXwZF71xMh0THZuu4aI3SRZ94NMVU1z0pohzWeD2rncGb4b4pYyn
tCi4OB8FVCfTjpdncHF+ChTJTBOKvA3+PMgKLAmouM/BeiNgNofTLYI52M8Y
vAOOht5sZON8VGA2+iVWurPRo0Jz7pYcE3vD98+HiVXMn6ernNAzgZJfSzdq
N7HQM4UhxTch3yuZ6JnBBL105+atjuiZQXijwJ/Z6oDeAoh+cmb1IX979MyB
+yCmSVhli54F+HtKo08st0HPEtzzUkB3kY6eJUQT82LxEiv0FoI89R+39KiF
6NFA0v5BFpZpjt4i2ONF3bbxP1P8f1bAcewzf+owH+bSxVYwVv/oE0k3Qt8K
XuT30LYuouA+0cGC2PyyKX6SzLXLo4Pf85zAtplRovesIbi7pHxhyxDRe9bQ
MaXZmi3XEL1nDQmn5FUn9/QRvWcDuixv4/WrunHfbaDTvFWsPt+Gni14WMeW
R4pr0LMF24vhj1wiLkn1ni10NaXEney9J9V7dhB33WLtwcMdUr1nBx/fff1d
EuO5VO/Zw5EV1ck/9r6Q6j17aPRbMS140IuePSw7V8U6F/AaPQe48DvV2Tys
Hz0HGKkrnH5oO4AeA2Z6txQVxQ+ix4AQiVbqvl+DHgOO67qUoUu06DnCOHXb
jYlcLXqOUB9Cn+iXadFjQsO10kzdJS16TLjt9ba2aZcWPSakEac4ercGvcUQ
alHzxNNTg95iUHeEJv+xcxA9FlRHTe6migfQYwFbFVN0PegteizQhbG93Ln9
6DmBdrxG/abrNXpO4HbMJ42e2YeeM0ReanTN/fIVes5gmRpxRVj3Ej1nsA8+
P/lFSA96LrBDR2u4q1aj5wLbWobi7nZ3occG2vqBIF/qM8xnw63hN5tveKnQ
Z4Ns7I4yJqET69kQ7CEy5TW0Yz82rLOTKpe4PUTv87n2kW2QbG9CjwMBFoXL
fHMU6HHAZNMLk9dmDehxoC0rsUd1QIoeB06NrYnID7uFHhfKrj49tiXvGnpc
yKp9dUSSWoweF85TCjyuj6agx4XBabPcZ50ncN+5QDtdWBMUehb3mQclXWum
7y+/jPvPgzNTnLDbR/4l+vPKgwzj42kT0ZV4Hnhg5ZHt4dohQY8HAfKfQhX3
atDjw+Ekh/3KQCl6fHAq+hi1o1yGHh8KV1cMWB6tQ48PMwExviNucvT4cMp3
qZJXIkdPAOqGx4cqh+ToCSBr1UeXdkY9egJgXe0MLGbWoycA3ygj97WTBk8A
lvuu8DtqDZ4QchwSundFGjwhKFrtFqiG69ATwlIfvwP8eMN8QvhrNOmp6WMZ
ekKoKHR577ZMhp4INH/mr/AZvoOeCFYO9C3ISKxFTwQpnm3OTS+r0RNB8f2L
yT+sq0JPBI8k+1Tz/76NniuIN5zuuDBciZ4ruBYfvpy//iZ6rjC282D2ZEEF
+R9Fk1GQ
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 12.200000000000001`}, {-16.121355889769344`, 
    9.493713889846303}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.88725577000312*^9, 3.8872558217146463`*^9}, 
   3.887256785548373*^9, 3.88728107636516*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"30b923ad-5e69-4ccf-95ba-d3391b1d7eb0"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"wf1PP", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Part", "[", 
         RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFRe"}], ")"}], 
     "+", 
     RowBox[{"I", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Part", "[", 
          RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFIm"}], 
       ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wf1MM", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Part", "[", 
         RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFmmRe"}], ")"}],
      "+", 
     RowBox[{"I", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Part", "[", 
          RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFmmIm"}], 
       ")"}]}]}], ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.887110697337852*^9, 3.887110735670046*^9}, {
  3.887254628418971*^9, 3.8872546296811943`*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"d0a326e3-3a29-41bc-9100-a79803f636ec"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"wf1PP", "=", 
    RowBox[{"wf1PP", "[", 
     RowBox[{"[", 
      RowBox[{"minomega", ";;", 
       RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"wf1MM", "=", 
    RowBox[{"wf1MM", "[", 
     RowBox[{"[", 
      RowBox[{"minomega", ";;", 
       RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8871107974164667`*^9, 3.88711086551973*^9}, {
   3.887150670169547*^9, 3.887150671605939*^9}, {3.88715127126446*^9, 
   3.8871512727617893`*^9}, 3.887151658405706*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"8ad70d08-1020-43f1-ac36-3e735f8c3d3c"],

Cell[CellGroupData[{

Cell[BoxData["omegas"], "Input",
 CellLabel->"In[77]:=",ExpressionUUID->"a185ddc1-85c8-48b8-8b2d-f467f79bb26a"],

Cell[BoxData["omegas"], "Output",
 CellChangeTimes->{
  3.887189374997766*^9, 3.887189642349146*^9, 3.887190271590057*^9, {
   3.887190464760996*^9, 3.887190472911417*^9}, 3.887230489738659*^9, 
   3.887256785596533*^9, 3.8872810764286823`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"71e9fa85-52e7-4045-ac4b-2e134bd963e3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"omegas", "=", "wlist"}], ";"}]], "Input",
 CellChangeTimes->{{3.887110835331246*^9, 3.887110836838662*^9}, {
   3.8871108743064547`*^9, 3.887110885615568*^9}, 3.8871506731626787`*^9, 
   3.8871512762702093`*^9, {3.8871516668301477`*^9, 3.887151667676443*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"4f8380bf-3c2b-4057-bf34-d12811d79321"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"exp1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "I"}], " ", "\[Omega]", " ", "t"}], "]"}], "/.", 
      RowBox[{"\[Omega]", "->", "i"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "omegas"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"exp2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"I", " ", "\[Omega]", " ", "t"}], "]"}], "/.", 
      RowBox[{"\[Omega]", "->", "i"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "omegas"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.887189268867241*^9, 3.8871892817181263`*^9}, {
  3.887189648476344*^9, 3.887189651403503*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"223d0ac7-82f1-4a0a-afac-c715c95be00d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"omegas", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.887282112852186*^9, 3.8872821137298527`*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"ed29d472-e0e6-4144-9f3e-2fe8e2e7661f"],

Cell[BoxData["0.1`"], "Output",
 CellChangeTimes->{{3.887282110689342*^9, 3.887282114193309*^9}},
 CellLabel->
  "Out[100]=",ExpressionUUID->"02e41f8a-f7d5-4d80-9c4d-4098cdde284d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"wf1MM", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8872821160493793`*^9, 3.887282117195879*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"a7ca1b55-a91f-4ba6-a188-d1108b163a63"],

Cell[BoxData[
 RowBox[{"2.030658969753209`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.0056088350582`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.887282103127554*^9, 3.887282117624818*^9}},
 CellLabel->
  "Out[101]=",ExpressionUUID->"6d5ac11a-b7d0-419e-9421-e40077a6ce2f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"wf1PP", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.887282139451956*^9, 3.8872821404120626`*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"aee15104-cc57-4be9-8b15-a6bab5f84425"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2.569693129580713`"}], "+", 
  RowBox[{"1.0064098691458527`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.8872821409789257`*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"4ae12868-025b-45c7-a2b9-9e3965701055"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"wft", "=", 
   RowBox[{"Total", "[", " ", 
    RowBox[{"0.1", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"exp1", "*", "wf1MM"}], "+", 
       RowBox[{"exp2", "*", 
        RowBox[{"Conjugate", "[", "wf1PP", "]"}]}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "wft", "]"}], ",", 
     RowBox[{"Im", "[", "wft", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.887110904582904*^9, 3.887110921510973*^9}, {
   3.887110958983729*^9, 3.887110964060787*^9}, {3.887111160122809*^9, 
   3.887111167217389*^9}, {3.887150542429034*^9, 3.887150558037839*^9}, {
   3.8871508615484743`*^9, 3.8871508635794497`*^9}, {3.88715090973661*^9, 
   3.887150917713591*^9}, {3.8871513449646072`*^9, 3.887151369195043*^9}, {
   3.887188316869488*^9, 3.887188347291589*^9}, {3.887189256094808*^9, 
   3.887189263100337*^9}, {3.887189298829103*^9, 3.887189314510211*^9}, 
   3.8871897040403*^9, {3.8871897507156897`*^9, 3.887189756922131*^9}, {
   3.8871899506993313`*^9, 3.887189955642049*^9}, {3.887190224414756*^9, 
   3.887190242163046*^9}, {3.887190301211582*^9, 3.8871903059415617`*^9}, {
   3.8871904857426023`*^9, 3.8871904872420797`*^9}, {3.887190518195867*^9, 
   3.8871905839873877`*^9}, {3.8871906188527193`*^9, 3.887190619006022*^9}, {
   3.8871906923136377`*^9, 3.88719070885203*^9}, 3.887197699455361*^9, {
   3.887197834618432*^9, 3.887197860717503*^9}, {3.887198197938527*^9, 
   3.8871981992472982`*^9}, 3.887198260653816*^9, {3.887203683265368*^9, 
   3.8872037138690042`*^9}, 3.887203818923051*^9, {3.8872039436090527`*^9, 
   3.8872039708006487`*^9}, {3.8872315214925127`*^9, 3.887231522807528*^9}, {
   3.8872316134232397`*^9, 3.8872316207625933`*^9}, 3.887231654292986*^9, 
   3.8872321144850597`*^9, 3.887232148928542*^9, {3.887254403471694*^9, 
   3.887254414807251*^9}, {3.887256737245901*^9, 3.8872567481263313`*^9}, {
   3.887281795421224*^9, 3.8872818022724867`*^9}, {3.887281861047345*^9, 
   3.887281931623007*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"a0ec09a0-21d1-47dd-9fe9-01c66d48b85b"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwUV3c81e8Xl72z97ijiKJlFTmiSAOlKPk2JIqSlUSlhCQV2ZJRklDJzrrH
DFnZxM0eUda11+/+/rqv9+s8z3Pe533e57nPh2h169RVRgYGhr3sDAz//70/
cmJmY4OMHpOcvSXZeTDsKTL3a5WMtmferXVm5IER3++F3CUyHvR7ypuRkge5
iR+WQ+bJOC1g9efymzwg7HNcuzVLRkYfuX/sz/LAv06D4fgUGXW/7fxZ55IH
05c3MW37S8bqqaBbVPM8sJivZmH+Q0a+YJ6AW+p5UBrwir13mIyn5JjuFQrk
wXbZ81yFA2SsMPoywvonF0IzybyRvWTkpRicCy/KhavdWYImXWT0KbP6UGSR
C/WO90V2tJNRIFLcdX1LLqix6Iuzt5Bx9OO8autEDrArt8tgHRn9H0qslrjl
gFNpHDGmhozuHWLjb/blQJfZtS3u38n4d+8J/+iVbEj1WlLYVULGzHc6BmEP
skFIqHQHdzEZh20kkq11suFecsDO0XwyZghtY5tnzAajn5Kq8VlkTNLqJa48
y4Lcq4Pq976SUWT01RcN0ywgLKftP/uZjDvnnufXSGWB/4vbB1RSydgi5QKb
xzJhmqStw5dMr59dzvNSXiZY5LLqTSSSMVtV2lboWSaUHms4XJVAxtKqDM17
lzNhe2/EkcRYMvK/37E0oJkJoa6Xjj18TUYGI8XFYIlMWGNXMLKMJOMYm5R3
5VoG2LyZNtEII6Ox13nngqEMqN+dbyr0ioxHtzn3vmvKAPVKb7OpF2Q0H+Zq
SS3PgHiLY+dqn5HR4hYb02JBBrBPClom+5OxuJA1+n1eBjg97r7g40tGTe3m
zTX5GdAl+v7yJW8yfi7sZHIpzQC9tJvWWl5kvMIzI5/UkAFpOmq2YvfIKK0R
rnq5PwOEWtev09zp8bcx/6KWM+D+9e83Gm+T8ceXOwraYpkwvPbyVpozGW3W
J0b30uszenXW2f8WGU/gVq9zVzIhV4542/oGGb/JjBX4BmUCoWDsjs51MpJv
lmz1L82Ep8YZHlI2ZKSdKDqgsJQJMwMe9xetyJjM7VCnqJIFZdzcj9MtySjX
/WdVLScLdiS0+Aaeo+dzLaMmrWZBqOob/2tmZGRSvhupq58NNheUXxBMyBgo
zRMV3JcN9TPzQavHyRh6fhOL754cUH9CCekwJKOK4sL7rb50v6WbRAXpkZF4
VEajQSkXUje5JDKok1E19Z+N9KM80DBNYY3aS8b7LlaxDV15UJnYd233Lvr6
SgvlwD3foNfARMlKgYw6wU67SV3fwCHqycvlrWQ0/N0QxKKQDyt/iqdfkcgY
fbymkt01H0ReKOWUSZKxb/a0eflqPiT+thazFCPjVHCAev6+Ati9O8aDJkTG
q+QKw+NOBVDs3dwdyE9GaseBfuV3BXC8hRO28tL1czo9I9tQAF1bdROKOMnY
evDivRFaAdjeuctkxkbGoPqn8+ZChUCrSr/6j4mMZ78IxhgpFYK3xOh3PwYy
Xve/mJYJhcB3Q1ZRdo2EziKXIjyOFcKbIrPA3CUScsrxi741KQTFzS/+Gc+T
8O2pGlUV40LIu1RhMjpDwo3icwf1DQrhcMZqxsNJEnbmzqUsahRCE5OKsPgE
CTdnqLS4bSmES2fs73wdJWHg/fPV8xyF8DfpbafhEAl9djiN5Y0VgMdip2Z/
Hwk9vT/cYysvAPaj/LEeVBJKVJTvU4sqgLDXRxgEf5GwS/xcQcL1AiD99bJK
bSehhsr7oc+qBZCunVuu10LC7yl7tGvW8uFA0D+57kYSyleoqdmW5sPZvf+N
c9eQUPkVNPDr5cOwT+iJ95UkfEXuHSMy5INL248vB8pIaCMXPJBT8A1e3N3v
6lBIQjGKgEDUrm8g+cOpjfUbCZ/4xDas/8mDZKmPGnHZJNymPJ8glpQHZRTR
tYbPJBS2VesNI+SBCb/xxWupJKwZkbHl7MsFqpVfCUMyCRWd5m1ME3PBPquI
HJVIQlPj1B+TdrmwyDLnuzuBhD/eeIudU80FP/Mdo9VvSNjrFRLByJwLgh+v
HLWKJqHoaf+Qs+05EL8cnbYcTsKkl8sxlC85oHy8iTckhIS531K6Q57nQOEb
DqftQXQ9U9Blm1MOGE7qNJcFkvBk1rbxSoscaNNxV7V8SsLQ7RyZn4/mgPWr
LxE0XxKOFu/KFDqYQ5+/4aVAbxLeCz/4l6SdA16qMpZbvUhofxJ2L9Lj3E/O
FBd5ktB8knXow/EciO4IJJi5k/D1uujvfRdyYJtiufc/V7ofjsydTqHf39me
K4N+TiQ8mqjbMxaWA7p1ewxkHUj48tE7356CHGiUsfuYa0fXI1Zr9cJoDvzn
mMBlYktCtsqoWi3JXPhT0nFz9AoJyY4RX/afzgV3Qb7Gh5dIyBza8Jc/JBdY
rhrsEf+PhLWpY81O7bnQdGG3+fg5EvovHNVZksyD2LOS94rMSPg4/ll3lnUe
qB2frLhsQkKX2BCea5u+gc3eiHMpeiQMGm+rnbXMhz1Kjx7c0yHhofsl6955
+bAuZ//O6AAJ1+6F0niECyBCAv7OqNH1lmPn06PPX9WmkYeaiiRUUv9w+aRm
EYSuNL7nkSdhQ8GpxrngIrg0l1/zm0zCuG7l16tDRbA0+kLIR5qEyRcSXIN9
iqGy332fmQQJ848L7zhfXwyvuq0ubBOl6x06kbshSAHFRrXkWj4S/hZwinoZ
TIH5akJdLA8JrRiD5oarKFBaxjnjyEnvH8MRwZllCrwooonosZHwbjgXtVAQ
4XwuVVOYmYTtoiO35OURtn2tujTCQK/3fbLDe3UEWkqG77c1Iu7f6vFb/jAC
JsakPFsmYks1h2qiMUJgrF/DfwtEPBXccEnIHOFspCNtJ42IXoVfetzOI2x5
ZSHOOE1EAdnRzHpLhKlnh7Rb/hLxxDq4kenxIl/lK0l/iHhj1z2NR2YIAV5i
/u4jREzUIHstGiGY3WX8dHSQiNyTSdtiDyGQXCZ+SvUR0VpO0OQZnd+/G23z
/3qIeO+SnUIPnX++DUqWdBGRgXOgPUsYwe9Sik5IOxHTBnS01TchnLIIvXq1
hYiNzDIh4q0UkD39IED9JxHjgnhvlr6jwMSJa1846om4aL34rtKBAnkGp1p+
1RBR/q3u9adqFDDRlJN5WE7EEHm1f5NFxSClyqd3qoSIE4a11Y4PimFUedl2
SzER1/2Z5a8fKIZHpPqvVblEbHfenhGdVwRGUnlt0VlE5Jq821t+uwgkRN6u
3PhKxIopkpLB3iLI4HA7zJ9KxMuWp5k1vhbCA6ZLdgMfiHjXQ9UyzLkQjq4Z
vsxOJOKLx0c55dUKQWRhb9aTBCI+eZylfmG1APqnpDvPxRJxIyzJIrmiAD7/
YVvf/pqIRQVNrxxe0e/TwWnSegQRX+mycQtfKQB96i+DxlB6vsejtsvqBSDY
UXHjbTAR37Mk77zDXwC4PcHf5wW9H60zbnen8uGG171Em2dEPG1EbPVoyQfx
ZnM84k9EQuz24fyifKiU29ut6EvEXaxpM05p9PvTg3eR25uITs853jTG5wOh
fkxw8gER3V9fj9qIzoc6YsXOn55E5MlscpR9nQ8et+OPZboTMc/1l/GRhHyQ
r/a0DbtNxNfCu/qefsqHFinzx3eciUgy2aYyTsmHR4574s7dIuKwVvgXu458
UC7nKdC8QUSxx0N86/P58Et0rE36Or3+hKA7ryQLwN++fGbjKhHjk3rvcesX
gColjrffiogrXZ3mR9zo+gl4KpZfJGIXSZ5HIq0AXtqY6SdZEvFkfVnKiZEC
0MrfbeV/ju7fLMGXH+QLIfzyaNRxUyI2DfcpF+QUgl52WbayCRE/OfKc7GIu
gin2uJ98J4g4wPnywrhZERxNP8PRqk/EUnm2gzdYimGBaffWXD0i9lkOKAld
LoZEc+6DUTp0fxyTMpalFMP6eqn7f/uJyO82SE18SIGME7tGh5SIeEHum7q9
H8LFBC7mKkW6P9nC4WUuAvfcsGyKPBGnm4ebRUYRbGLemDsQidj68UuxvX4J
CE65u5jIELGyyKu22qUEUO/0yz2SRKypZ7/9Ka4EJMY5v88LEdHlqPMLzZkS
+K493N/BT8Ro9RXZJ2Kl4PqqZD2fl4i2mR9FXmuVAnE4RuINFxGlr8qfMb5Q
CvX73NW82Iko26Ui7nW/FDyfm566zELE3niz3RzRpbCtT9lBj5GIo9neSo2Z
pdCqwhmwdYOA75mfBOTXlIK3/9B7tlUCWquOtWdQS2FnN5aMLRLw81u2jg+T
pdC9M6bnxxwBf3w8Fh24VgpPH99Z+jRDwObQwy/PspeBWvsp4aBJAtqcCQln
4yuDAUXl3c4TBIzN82SNFiqDoAccJ06PEfD53K5PQiJlcKBp8JraMAE3DHJ+
PKTH/2xFH7EBAro63eSc2FwGEXdfxy//JuC3lXO21+jnH6pzK+zuJmC78G4Z
7vVSmCac6ijuJCBL/pmA6alSiHVVosW3EXDRe4xRva8UjlWx8z1uJqCcDPnr
en0pLEoObr/aSMAVN/Jlh/xSeH+LYmBQR8AXLwJOfHlXCqfKoq8o1BDQt0Jo
+G9AKWxpGaR+ryRg0eHeBWaHUpgfVLawKSPgrimDYjXjUohiLTN5V0jA1ymC
G8vcpdBrOH5A+gsBu9zffGZ8UAIZFqrfClIJeMz9bmbjuRJ4bO+lYpFMwBif
l7ZcaiUg91xwe0QCAT+qFJosTyEsvvkvSTWWgBmaFnKHGxFqPn8gtkTT9/Pk
/tv2FSGGMh3jHEFAFxa31PEQhJuNmmL8oQR8pN16tdEdQbvPN+RLEAEXRPiL
RC4h8M008Bo9J6CjpYnHsiFCP6NEwMRTAnKZNypmqiFkCVqzPPMjoND2dXSR
o9/XWz4/VHhM19dX9oCdOIK56uLKdy8Cqu0gXKBspv8/6evesblHQMI77vPh
HAjLZoEzzHcJCNTM99xsCLW2bTff3Sbg8ZyunH3sCLHuhLGDzgQ8ymE5qMyD
4PjUzrrXgYDxXA8PLtD/Hw5GZ/1+YE/XU6P8aQQJQSB13UL6GgFpnZoivHsR
BguOtBVYEzAhK67nlAFCTu2rkxaXCRihxu9lfhHBv6e7dvE/ul9aHpuzeSJY
/JM7EmFBQIrxpwSDaIQdG45lquYELPhzLH6hEGF9c4F2iymd366HTVP9CA0E
lnxnEwI+YRvZzcZdAvG7jVX5TxCwUJjPg0OjBJx1o9K/GBLwy3K3e4lNCYhY
K32Y0CVg0sqc4ZUfJTDqeof0DAjYUCly7gdDKXzzLXmjoEXAlul0h2H1UrD8
cCbURpWA3o6b1nhTSuHdn/uPeuUJaKFwb9PnsDJwXfm++mALAU/UbRs42lgG
+twC7tJEArqJ9qoqcpbDH6UkBwsJAt5XFApz9yiHQu2psUURAjZujD0xSS+H
58b7r0YI0s83Tco9MFgOu5zqz7dwE1B7z0PqkcMVwOgt1u7MQcBbetENo04V
0PLK6hQ/KwHjNK2q3r6ugKR3aXVfGOn9vBHFq1daAf+u/Q2OWZfFGxMXBV8P
VUBwwCP/zgVZ3D0aX/aIpRJU0oS9RKZlcbzRqaGZWAkddR9vm/6RRf2w0RGX
/ZXgOXngRtCALILK2sxR40qIuaw+qtMji1XVlUOHLlZCYfMu6+k2WVyzKf70
y74Seg4r9iY0yuLwgZ5yrtuVsJ5LtjxVI4t5Xc4f2jwqQVZRuoOxXBZb/KVb
dO9Xgk6MyOnMIllsd3MuP3+vEi7z8jVeyZVFi//+o+52rwTvhxzHhb7KYtNv
wwtdjpXwboaxqjyFjv327r9lUwnl1qt6txNlMTKibI33XCUMtc1RtsbKItPu
z3HdRyqB1XBSsy1CFnmkAkw2VCtBvmA01y9YFhlPXNN7S6iEI0r9e9WfyeJh
w7uONPZKCOBv3R75QBY91MJjXJorIPVx/Ycj7rKoBprTvDkVUDv3nbzkJItO
vs2BqhEVwNuVL2lxVRZFmnhfSZlVwKu38VxSx2XR9GClplNdOWQKRT+pPSyL
9/MFXVxSy6HFL4TpPshiwLfY/3gDykHE3m+lZ48sxqy+0hA9Wg7qPV53XuyQ
xQ0JBj/WHeVw1vjurLacLMqal3oHbS6HuyXOtyZlZZFTYUpqmlYG0XtvjMeJ
0/Vvn/t2ubsMCt5ftTURlMU4n5w+scoy6Ba9OMDAI4s2ebl/DTPKYO3p2Ytf
Wen8djUUbkkoA5nVk78uM8jiqkG5feurMgCHY+YCyzLIcsZY0OdJGVzqPdRc
OiuD+8I6n532KoNHp7SNXf7SseRZdRuPMnhbrv6DPCKDNo9Cfja7l0GZ2m6D
ll4ZXPqyxSCTHh9MVizz6ZLBLZFXQ4QflgGL5BZQbZHBjMiA96xPy+j3pXTB
UJ0MTo/xnnhOnx+DDRH18O8ymNsWopT6vgyuOfFl6pfQ41kG+ZbfysB/gGPn
Qr4MRiVQNaLo8/XxDFPqhywZrJqWrD01XgY131flzn6WQV+dXl83Dvq87Zt/
y54sg44i7x9OKJYDV9qkzLcEGQzZcYgh0rgcdsiMRV9/LYMGaT1R5nfK4URQ
v4hEmAyeOZxkxfK2HBwYu1/VvJDBzrbzW+80lEP6cH3Adm8ZLF6SKBzbXQE/
z1axdnvKYGug9Zi3TQXM1JR4B96WwaKWi+b8bypA5UuWx99rMvhQ59oLqc2V
kHcn2u6LsQzuJ8UOtW1UAsna6X3HERn8pMaVpqX7HZ6bHOndpEvfTzQe9/D5
DlYK82dOq8igYXqpnQxbFdQK1wXdV6LXe8NrtUW/CtQYE38kycng+zHmdjbf
KuD6dfLgkpgM7lLzz41ZqQK379vukQRk0NV5WtZ6bzX0Zm7kHOOSwbaaN29d
rlXD0fi2aVdmGbRvrvL0j66GrMBPO2LXpDFmgrhkXV0NMnd9bL/PS6Oozc7h
Rlo1PL16/u3UJD3+xXMySqoGaCf39IiPSWMUF3UlRKcGLmhziOn1S6NAj45n
1KUaqFLsPXXjlzRuvXku5dm9Gtgjmvs8rEUaFf3ba06F1kAM04uq4jppzCJ+
MKZ+qAG2KWum0UpplBCdWd2SWwPO3Zra/CiN5y3fr2wprYHuKoG7+7/Rz6s+
2TtQVQP62WOZVzKkUSbN7L3DjxpIT8B/ganS6F9+LrKzugYkXkQo5CRK4xNl
OU2d8hrw9XCw/v1GGo/ZE8Uq8mtgyuZwHHsEPR/T64DgTzVgYSrVtTtIGjvU
TDxbY2qgHGaFzj+VRru3wfzf/WtAeUeNsY+3NM6ZBp5761QDkWIJAZ88pfHk
z6O9yeY1wMTiXtHmKo05R4T0iZo14DBtxMDgII2LO/q+m9H16ujZqqlgK43c
C6kYuVINaTnN6Z7n6OeRG/4FZVeD2bWdMQRtaTx4muEoM7Ea8DRru6G6NAof
qejcvVoFigd7+F12SaMeZ0qdekcVhCplHY9RkMZbf69UO2ZXwYb4sycVJGns
bnf+oBpaBXasVqX/JKVxfmXgd7drFbTMaKyJCtP10qbOfDOvAu3fmzUO8krj
U9fldqkDVZD8Y9jZjk0aqUOXXU5urQKBvKJPIQzSeFk0kT+OrwruJ4aOFi5J
oey4wrjBxncYDbInD89IoYedbLr/9Hc4dV/3wuYJKfz4Lk46cuQ7FF4Xj9IY
ksJGG2pMUt93kDObar5MlcIKlpWJnt/fIUj3O++zdinccUq441L/d1hRjjXM
apTC4GlF2tGx72Ajedunp1oKE+13OqbTvkMj23EKa5kUCpkX/n3DXAX7aaTl
nYVS+Ohfgq2YeBUk9i6pnMuWQjI5YKv0nirgrWu85f1ZCvvkagoTjKvg7rcP
KakfpHDxu61MqFMVDL5/MNQSL4UsFw5mdEVUgdGrM4T1KCk0eLDL63RpFXjs
2WxoECKF6U20XQuTVZDUVOUUFCiFP955ipnS+7MuoFVG8pJCjf38yjYvqkEx
c27c3l0KXQd/TyfR58fM9ItQtpMUlunubc1iq4FPISQbA2sptHmTPyb0jO6H
vd0vgv6TwktifD4/GmqAuSUst9NMCru43vCIi/wASyEOjhuGUuhtz+NCSPoB
3GGTqUHKUsjoKp8kVVMLGqofWzrlpXDiZTcjlb8OrFut1khEKVQzI0fcPFsH
hcJtRtmCUrigJ30qrrcORrNf3lnnlkLuunFyDLEehMwM4w1YpfCs4VKE9KV6
sA8vnO5clMSSR4JfAlvqIVzNTYI8I4m5drK6cxwNUNq2U+/GuCSeHE3Q6NRs
gH9uY/bZg5K4U9CzlMmuASRE34Wu90gi20E7Df3QBtDPtSwyaJfEynf+N9zz
G8DZXGQ4qFEStyvun3LvboDYhQbermpJjH8saay03AA1EU/VyWWSOM6nJ1vC
0Qjz6nqXbhRKInN3Sq+qUCOQOlb9s7MlUX+2Lc5ZqhGM3HO+rn+WRCddw2p3
UiN4iDl2GSRLoqNbzKMTco2QlKfAFJwgiesPWOOW5Buh6ezA9q5oSRS5WBjz
lI7XF2NOk0MlkTZ5xJ9nayMoRJndv/GcXr/qzGgkoRFO7+NLyvaTxIIfpxJ0
JRrhYWd1/bqXJG4JNfuxRaAR0u4+XjC4K4mhe5tfWLI3Qof4AUKwsyRWda4M
CdLrYc6fP9JlL4l32QXM4nobYJdFuhP5qiTOSLkVvi9vAP9oclm2uST2v4gw
s/JrgKz9PePrJpLYNPbuZIl1A/R2hQsdOUrXT/tt8fjBBtCQ5LTp0pLETRHL
KfzL9WBdUPaCrCaJtuds1ata6yHo/P3cGzslMU/CRIrytR5GX0+xbxAl8UrF
570j9vR+a6XsPiIpia67kpOajtaDTvcVi2Aher0WUOy0vR5u3JN+3MUjidkO
1n5SvPUQKdWeSmaTRHO/yXn52TooLwxqucEgib/PPb861FUHU5ZH17KXJDB6
7tJaQkUdSK0xyW3MSKBwo/aBpMw6MHhTZHRkQgK33z5/X/U9ff3z7lXmYTre
JW289XUdRD9YSSn5LYEFYyzez0PrQO+WxLkHnRJ4Mfx0enhwHUxc3Mem2SyB
Stde2Vq/qoNwk7PZC7US2LsxMSMUUQdw8M6VrEoJXBVnVSqJo/t7dzi/E0rg
gLTXuXtpdfCKlE1RypdA7s+erKeL6kBLsOXmn0wJFNU8Nm/cVAdDTLOSHz5J
4HDnf/zO43XwgsZfc+WDBMr1xlzKYa8HjaFd7oQECfyRsJdPULEe+luN5Xqi
JdChtMrD3bgenlU6tESFSiDrHqkDP93rQSX3ubfZCwn05J45yZhUD9QPabsE
/SUw8Yac2nhbPfhH/qA2PKLne5kvZMPVALuf/gkM9JTAWJH4ZQO9BvCx2zbG
cksCCyVfDt4rbADl8wYRpdck8CrTeKLVWgO0H7M57GUlge5+zBQ7uj8VlRIT
Fs9IoKpM0mNl20ZokS4zzjaWwPDynd6zzxrhPm//mpMhXZ/h44WuXxuhcVLW
YlxLAvtW2fsE1xvBLeO1AJUsgS5/GjTdo34C4V0+RkvT+V/ti/lF+QnVIZ0O
5qIS6MSyqQOHfoLUbdEfjZwSWDJt5H5nZxNUXlW7+5xZAhWDjN+un2qCW2Zn
5I+ui+NJA5YYl9tNUKoe8rhsWhyFTO78SshpghvbMnY/HBfHW90z7NKtTSAs
/vO31pA4HiCy7+acaYJijqnnS1RxtDmW8tSYpxmuLfNq5XSIYxL7f6mtcs0g
MK70x7lJHIOuqmc90W6Ggl/HI3fWimN7zFlb09PNYF1rrz9RQd+fHXdE4Voz
8BYF0JIp4via717W6t1myPv08e3Vb+IoHZIxW/a0GS7HVpmQMsXxy4/Fo+4R
zcD5cmSdmiaOzK4nWEXeNUOWF+un10niWBa/4hWT1gwXHLeePxsvjhaHtci8
Wc3AdvkQh3C0OMr+umXn+K0Z0k9eyf0ZIo7J1lMdPwqbwULX++qL5+Kopes9
tb24GZj3JggeeyKO/TmOpLiiZvhExhK2R+LIS75eqFbQDGZCv2+Ve4jj8f3K
P1lzm4GBZV36kas4mtvrSst9bYaUOanaAw7imJDweeTTx2YwHdb0WLYVx4Nb
+H5/i2+G1TaLbbmXxfFbk/SsbXgzJH2/2+Zyns53S5diR0AzRO1x0/t4Why7
L44s8N5vhsA3zunUE+K49E/Kb6tDMzi72AcY6ohj1EnbUxknmuEq1XbhwT5x
XN7i+SdQqxnOGlpbZ+0Rx+DkBePN25vhgOx/2rJb6ftN9Q/+ZmuGXQHnUk/L
iCO34cSNiPkmIM2dEQsQFcde9ZTpH0P0fl865UvhE8dfm9SPfaX3n/2H0QyN
Q5z+PWy04VHZBCuqxy4qMoljz9T64fN5TfAv3qD24qoYMp5cyfRObYI+rkP7
wubEcJH77ohsfBO0uOkk1fwTw4HuPRoXw5vge5+WIMOoGG6fFLC3e9EE+cf3
PVTtE8O9rJx21/yb4FOu6l+7LjE0qHzJcN+nCeJJeyzim8VwG/HgmyrvJgh5
rvy9tVYM+Z9yiF973AR+i4oqXJViWGOx38fVrwncr8gn6FDEEDT+LDEGNoF9
PZnXLU8MNd+M390S2gQX9hE8U7+KIQt7XPVQbBOYJEqN9qaIoXdC53njtCbQ
2yx+RiRRDCVdeHSuFjaBmodw6bE3dP7EFjH5hiZQGOLf+ShcDHekTYkHDTaB
lAlvTM5LMUyTbeSJWG2CzQWcHBP+9PxRPlbKos3AKMfmRvQWw4NKCtqHVJph
LohpwMxTDH1+BkWXmjbD6MqGcaArnf+y8LWXt5uh/ueiwoKNGD5gfDYWSWmG
Eq258B2XxDAg1nzkxQjd7x+mmazOiaFNnet/+vwtEHX/T0/tMTHksbtdZ3i9
BQJHh48yHhZD+2gZa/WIFnhgOpCrri2GiYfdDBUrW8BaoTv47S4xnBXLTDsh
1wq7WusOuwuLYWx2+sWXY61A1qnJ+MQrhnNtktP54m0gklopO8AmhkalwUFq
hm2w+pCydGJZFANdpDsN37fB5HiBzeNZUbTmFXzs+bMN+s3ymvMmRLF0/uf4
7tU2+L7j6yfyb1EsendT2uN4O+RHfJI41yGKTvI/S785tUMaY8qTFz9FUTVP
4FZXaDvE3UyildWIYiFPfEhBdju86nh7ealMFId7Vt10WtrBVy+uXrlIFDkO
02xNptrB/fNrTescUVQwFfvTxtEB9uKRyVFfRHF8r86vMkIHXPAJFW5IFkUr
1pJgLtUOqId5Nve3oshSFo5BhzsAVsyXCTGi6LpZ+wzFtAPSc75NVIeJYjvR
7WvkxQ4gOEv+dn4piiejUouJ1zsgSOn+T8mnoih4enLUyrEDNo1Ry8q9RdGL
p0jo2u0OcE7Uybl5TxRNM9681HHvgP6Lb5NF3ESRbSpvZZ2OT0kyv6bcEsUX
/E5q3+50QFnb1efXroui0vPt+/1dO0Dl1Xcv/iuiuGnk1sqTWx2QeELBOd9S
FOOcnx9sv9YBQhzPrK+YieKAzoZHxKUO8C2fMOM2EUX30R/PJ8w6YN7LyDDb
UBTV/2xJXD3WATaa6ZoX9ERRX+zl3CR0QNs8vzLbAVHUqu4PnNrTAQYZLoR0
NVFkNrnDpbi1A7YpqLMwKoqi/5M9OatsHRA5GLmQQhbFnMLLP2cW24EjfnnM
VFoUH/yTUPw11g5/RIrr3/OJotvVMeeDte1g0SRbYsQpih9yPgTLFLfDj+eP
MheYRJGY0Fycmt4OWoYD7+PXRFBwB1VYNJHef+bDkYYLIljiJBn7PLIdpDAp
YGZKBDM1Ctk0X7TDc0/2+6//iOC3lQg7Q992WFezu3VoUATDPmxj67vfDg4z
Py7/7RHB7iMinNvc24H6Sel0eLsIjtl9OqXr2g7G11/qw08RXCsJ1zrp3A64
ZVpjtEYEd+4j3XSh4129p7YHl4ug3TnnxHL6+vjXWdL7i0Wwza/h1X9324Hf
XIRvIFcEWyOsM0wftoO3gDtj4FcRFJuL2/rtaTvM1HXSVFJFMAlvRseEtYPV
U82RnkQR3OLhvoeDXl/zoTedfrEiKHc+3JGV7udDDBs/dkaK4PIm7+2RVe2Q
VXCpuCNYBMvt5nyLqe2w5U5p+qNnIkjSUJu4vdAOYXu2vFP0FcHPdhKiuQId
wPrPN6z5gQju8PMRurOrA9w+jjy55y6C4iSjMx9MOmDY2tBjq7MI/qC+RFWX
DjAnpN6otxfBulylWu7IDtCIcDhJuCiCfssEaeXRDkg+1ahXfVYEvduktQ4I
doI47x4151MiOK+kzyir0wnLPnMS5YdF8GzHT++K2E6w0zHnuQkiqGl09/u+
xk74tZK3IbxPBP8NF2r2MnZBofO9QdsddP7z4lE89l3w4BLTZy5Ber8CKFEf
D/6C9AaDFy3c9P6EmPY6uP2Cfu1AhzesIjja6as8nPIL9KWFd+5cFsY7sYTh
XQLd4B54bvPirDA6XmPS/XioG1JW3kziX2HcOtnJLePWDbxdcumn+oTxQbtl
7enWbtAxtA+S/CWM1wqpwt8Ze8A574vjYIswnhh6NB6u3ANt4Rq73aqEccpa
d1PVwx5gZ73PD6XCKOL3jTyR1AP7b5dMsxUK42qiyfRsTQ/Emh7NiPoijF/V
kwJPc1OhsfTFK6uPwqgqHWftr0AFxj3NztvfCWO5Gquq2SEqqCSImtJihNF6
IIAly5IKNnyWe4vC6fU8+m372pkKkV7xgn5BwtjpePgxhx8Vav4NzhoFCGNR
P5fkRjgVVv9TaBH1EcbXDHMvH76ngnLdzaze+8LYxnyvO+wrFS5pZYR+vCOM
sWrrz44WUOFV6ryrs5Mw2gw0pH0qpUK5hOYZTXthfJN3oujndyrMP/VSZb4q
jGnzm0Jra6iwbalMuO6CMBZzrurm/qCCxTX2+bCzwkia8pr/RI8Hth9vu3BK
GGXu72tooO+n6AfnyB8XxkSCXJ52GRVmslvDpw4Lo/vvmxqyRVTYslXizjcQ
xm8qdgcjs6lgFnrB3HufMPpKyC41pVHBn+md+rG9wsiaeuvR8lsq5DuPiAop
0fl/sCzUjKTCRN/2xW45YbziH8dTEUgFE8zKc5AQxtv7n/nccqWC986lSHUh
Ydx5623KjC0VsmIP3GXgFUZndd0Lj85TYZjH+1w1mzDuudwfd8KYCmL3K/e9
2iSMvyvyzJ/qUeHoBKfE+RUhZG6e47XRoMK988bL5DkhfF1p/lFImQqfa0K6
Jv4JYV2Uu2zFFir07uvIzx4Vwjf9+/YnSVFB4KPU6wf9QlgUkm48JEyFQ2KX
PQ26hbAvc2rTZz4quD15f56vTQg3ZYgwKPJQIXl+TLOzQQjdJceqH3JRoeuq
stTbaiGcYbRza6dj7lbnVbsyIZTyTr1vwksF7UO53XuLhFDFWM2PS5AKjpkr
has5QigfeVxtqwQV3pJ03lSkCyEjgxFHLpkKLcE+91+kCOHZVU+F9p1UYN1U
/Z95ohCm/TA3itSmgoYjjzYhVggpLbVxHCZUsPt9UmYsQggDk01j1aypEGMU
vv41WAj5RvfwyXtSob6oi+rxTAg/K67OUkOpwKAkS9HzFcLigvPuF+h+uydy
8ILvAyEMrt5VYtdMhYUNq7XKO0IoacWW+3mRCs5jPjHsTvR44ugVSeJv+NeU
pHnUTgh/Wk6kxBz/DdcLq7qeXaHrNc1vI+75Gwbf/7lbZymEuaqRgS5pv+GX
u3KeibEQ0szMzkRy9YKZlYn5qyNCqLHAe4ewrReajjnPNx8Uwhu1ut3lh3uh
SiZHxVxFCI88O+u9/LgXcsoPfP1PXAinYl5X/mXvgz2fL5rECQjhhHT18v7t
ffAp4tFkL5cQvgsIOJ15og8S7SqUrNcFMTroZHvsqz54xXcixW5AEAWTT8zk
i/UD77KDYVq3IOqNROUVa/TD04Gg0b+tgjjZ/iX/j3k/PMxpkXOqEsQybr0L
x0P6YSVuviKjRBDF/J0Tjb70g9tTsau0fEH8IuxZJVDTDzctLd/d+SSId1aF
5l+u9MPo4Qe635IEkcgdeEVOYACsd8b3LccJYkDc2ax98gPwW6z0oVaUID5t
Ueou3j8AFoyDsg9eCWLbxVL3T8cHoG2chUJ5JogSIdz9G5YDcLJV/sImX0E8
HLimmmk/ALXFhmu6DwSR+XLixe/uA3Ak2T7G544gysZ/FAefASgPfq5Z6SiI
ykclJ2RfDAB4fulisxPE8+JPtzqHD0C+9c+7hlcEMarRvUHnzQCoGc2KPbMU
xCIO3diotwOQoS6cV3tGEE9lXOsOTBoAJaK6Oa+xIGpshJ5U+jgAyZzn5o2P
0PViNt4alDIAW2geYcEHBXGrSWpRLR3H98SoNO8XxMHvUtGr9PWS34ubhVQE
MTs7SVEzeQDC03udzZQEMZkv/d379wMgEM0oECkniNqzxfUW9PzPH2/52ikr
iI+Dr3V4xA4A+019E0lxQdwyXCkpHz0AGxDwIpZLEC+qF1p8DhoAD4U0pV5m
QVyPt2RofDYA8wL1tcR1Ady8Y7CY88kAOK1O2l9ZEMDFP5efeHsPwMQQP9f7
KQG8PlIjff7BAFxr2JsyPCaAeg7knlyPARjIO2O4bUAA1T223iu4MwAX3t4Z
vd4tgJ5vvzc9uT0AXc+inqS2CqBcH2vCAdcBaK4gpF1qEMB3MXotCy70/mx8
aBSuFkBRDwOOr/R4xb6dczWlAtj7crPxQ7cBKHbJEX9YKID9WrX6nncHIPfT
AW3VHAHso5xhyrk/AOkj5VZ/vgjgs501f3QfD8BH4vEncR8FcE+yd/SegAF4
e7459fQ7ATxwLKAu5NUAvA6zaOR4I4BP5IoPu8QMQGhDH604XAAdLb7l/vpA
15PjurhrkACSR9O+tWYNgJ/e1AGFALo+17SzbcsGwOv+HSvqYwHUjfHpDmse
APfcdb+Q+wI4YalCshoaALvtPI1rjgJYQvR98JNnEK5cDaVl2Akg843WLTe3
DIJlnKT4NWsB5DRR54vUGgQjQUWrJnMBfLS929zVaRAMTnz1e3JSAFO3TqVy
vxgEnScaqVrHBDCTo+4MY9og7FnRpyVpC6B/yLboovFB2K5aL2apIYDp+mFv
LXiGYMutMwf49wjgNuEeIeZdQyAycMXPc6sALp+PDxd3H4KVmodiJtwCqJ1V
G2rONww0ZvYDLKwCaFFzwuCG+jD80355OX+DH79PyWekXRiG3ow3KVtm+ZE6
aROo8mkYyqPztZY6+VFg08WnDAYjUNRy8PLnZn5M3XMFRG6MQA5vte+VOn60
0kzhsw0agWTv9vo65EfO7rMiJm0jkFB4YdY7nx9zhQ1SchZGIHp+SFQjix8Z
DxOvzImOQqAd7dLbD/x4y+tI6cfTo+Cb6OlrnsCPPPWaZ1YcR+EBlTGF+zU/
Kqntlel5Ngp3xALqS0L5scn+5j7d96PgeIp/1u0FP5KtXZZli0bhemCk6A5/
fhw+G7R2s3kUrCpltfoe8eMnFlY1udFROM/w4VK4Jz+2Jw0tHloZhdP7lX2P
3ean6+fJXM09Bidcsz8y3OLHggNaPplSY6D/Was++xqdj6YKP/v2MYDRshk7
K36UsB7+XKs+BhqkY6IES36sqkkp59Abg92WTZqtZ/jROSdAsOb4GCiGn7sU
YEyvvz45WeLMGJAbe33AkB89Ph2u5bQcAynOax9puvz4Ntjtb+rlMbBXVWT5
JbUZGf603N1eOgnOLN8+uG3ejI4HeLjDBibBo9XgqADjZlRk1I/y2DQF3u/b
Jj7ReDHWyFWFwDcFAbevvjQc4cU392xP50pPwavDtN1Dnbwod9ey6IDiFEQL
P255WMuL+9lvMmSqTsHbIf47UhRetCwQeCCmMwUp2fHieV95sf3jl6tOhlOQ
4buz0DSRFz/cksgoPTkF+WeKL0yG8+KzgZ1kwXNTULr1xKZnT3mRv9NJxf7i
FNTM/Xond48XXbZS+Fqtp6Cpwk6/1IEXm2ZUH1ten4KusKXR/y7z4h2y2RDv
zSnov+r/bMmUF80VHnCu3JqCMVVR5TB9XjRR7Nu223kKpliSGnft48XnQeJY
6jIFi60qLrXbeVFFx+t+qesUMCSVCV+T4cWwezdkDt2eAna3U3lM/LwoSY43
saRjPv0+izgmXnRSnAwi0LGYiOPa/nkeXDbzYP9A308YXo9rG+VBcnHcNVY6
3pbzXNf5Fw8ysfZXnKHn2+UnNcRTz4M39Dc5p9H5aJilPvmIPPic+XErkY51
5PYrHs7kwbX5kSN1TlNwZL6qtvc9DwJPw98KOjapNL91L5IHX8Yc9ifR158N
H+YXe8aDyUE+Z5fo+JLN7azM+zyYJmwxd5Ge31aN2dzYkQdZzz+Qt3ebAgfW
kKU/Vjyo1cZXqXx3CtzaiDF+Z3jwTNXd0KJ7U/AgKV2bdIQHvSvGiAqPpsDP
DfqK9vNgatjnlEd+U/BCv/7xOSUeNGB+tdIaOAXhIv/JzcnyIJeAq/ne0CmI
HR6vChLgwbiXRhffx0xBUo6H/Q4WHhS6XLuqmjQFn/04eKsWuDEhPtr4b/oU
5JhFpl/5w41p/mFvfhZOQbGcvOlGNzdqP/h3eKR6Cirns+eiG7gxu+NK7q6O
KaivPBSpVsqNfJtjr38emaJ/fzTvb8riRoc+7LywOAVDatNeHNHcyOnayHJE
ehomWB+S3gdy09/n80Muu6eB1sZboePFjfKcJt15+tPAfGcHp7s1N2qUJ0Zf
dJ2GLbm2ocPK3NjptP+gZ9c07Hgyr+ZN5EbHAtmYjrlpUDH37ZQW4kYFJnb7
Kv4ZOLTwVubMEhfeyjjDz3RsBq6oU5PLyriwP89BaS/OgE2yupl+LheGbpFL
ffxrBuzEg5mqU7jo7103uQ/zM+C4onehPpgLZUVnbgrumAWXG2+4TvpyYatt
jvxe/Vlw65nPa3bnwmN5e+aaL87CPcpHwc6LXHi2Pd3xePAseO1iKjlvSsd7
VX9uJM+Cd4KlA1WfCx/XPvo9TpkF/8ebqweUuLAsL6Jz5/gsPKNdc7MhcqG8
yJUn9huz8OJqKXlMiAvH9x0J/iBAg1CD2w/+rXCijBTRbV6VBhF59dudJjnR
9uD10oXDNIhW2NY528+JIuYs19tO0+BN9CM/tzZOFP87feu5FQ3iuX7tXarm
REmpXhfxWzR4d0+lz7OIEw+y2Hx296BB0t/nL9bTOTGBbWApxYcGKRdGNB8l
cuKqzubmr89p8KlBZ4wpkhPxwO6zQWE0SNeJDvd7xolf+BYPH4uhQdbXWT0O
L06k2axMjybQIJd0YvqZMyeqPh/WdUqiQX5IUiyvDScqZJsl/f1IgyJmhuPB
5zhRT8ad+XoaDfD2uSXBE5wYxO30dfITDcqGM5LCdTix6HOa5cvPNKg05z4t
rsKJH/dIrpvRcXXV1U0x8py418SrxIy+vnYf5bOMJCfGuQ1OxqXSoCFFzDKB
lxO7np9vP0TP1yTpzLGFkRMb2mW+nqXzaQ38kZM0x4Fi9FGafEuDjrUt1gpj
HPhtO4ugTBwNfv9uL1Zu5EA3hVa+yHAa9JvsvvG1jANVCp2vb35Fg+GSAHGV
XA405vjH7kbXZ2zPYGVOCgeybWw73+9Pg4l3B1z3xXLg7r+/0I6u56RQBLEw
mAPdBa84bH1IgxnfqXptXw40WIo5uu0eDebmDe+VuHPgGidHvb87DRZt3ykc
usGBOd1n+s/fpsFKx2pb5UUOzOJ6UZrtTIN1QzMfQ1MOtBUS6P7oSINNBV92
1+pz4N0ngelH6f1l3sHx22g/B/ZQub99dKAB2xurwJ9KHOhQ4XK0nY45eQv3
nSbSz1s559lPX8/rJTzSJsSBxWJRXJ1ONOCfcgg9x86BB468PvHdlQZCl6sO
dq+wo/f3UP48Oj+xJuLkhUl2HDr3/VXWfRpI6nnG9PWz44zcX5vyxzSQyWox
tG5jx4TAoVt/A2hA3Kq8MFzNjmmmBQ17Q2iwJfxJ4vUidmS5K/Y7iu4feba+
kxPp7Hj/soYc4QMNFN33bzgksuPPhqtnKzLo/ugxUhwIZ8cksZCbH5AGZnpX
zpg/ZccG7UvdjQ008OYNTAUHduQ3CbJvnqbzc41vy7zEjmccSlRDmOfgc2fW
pm2m7DjI5VVrKzYHnYk95nwa7OhYe1CCSW8OHDhnvH0U2dG1fNki9twcMDuy
fl6UYsdWQb38Bcc52KW5k7lvEzveW17TvZswB/4/H6Z//cGGbqJ5Ua6s8yCj
HvZrazEbkmT/zv+QnYesmI+s0els2HQ7/OeYxjz02jZZeoexobbe2sXJ6/Pg
Vjf8ZP4JGzLYDxx79WgeuPeuZNh5sOFzUd1Q58h5UF8nc5heZENfAR43m7J5
qL2iofL9JBu27VPr3Nc+D1bVxy9qHmLDoSjnsJqxeVhUvhzwRY3ORw7eryzP
w4vQ29lkBTYszT0d8ZVzAbYsP+2NkGTDurNKhU1iC5B/MZaLm5cNly9Vmhhs
XQCTigy1hwxsGG9zKmlp5wIMK36/TJthRWPKK/02jQW4F/Qr8NoQK1o5hQnV
wgIIzE/mdrezYpFY9PXaQwuQfJ55wKSGFWXPDSv9MFgA7RIx3opCVnw2efZv
8ZEFaJFT2rfvCytqGAWPxNPjdoEHrT8lsGJcs7/kTfp+hpkzL4mhrHiX4G1E
op8fZm6XH+bHigY5+3lL1RdAsejBEMddVtzSf+qzifICICmE74E9Pf53RKeV
tABm/h80Z/5jRZto64Bzwgsw8bfAxsaEFSM4Q6fGWBbA27QxuEuXFauUuK6G
0eZB7NtgoZEqKwb0MB+72TcPn2WWRkrlWZEptOWsb+08HPLhEVSXYMV5C8nb
s9nz0DVG1E7lZkXy3PTLhjfz4Gisdl12gwWN7HTd9/rMw2uJixS2QRa8YeSt
zHhiHmbS0+07PrGghw3t4+amOUjoMS2/e5AFh7qyK65W0mDP4J7lFhUWNAgd
uelN93v5H/5du7ax4GnIyGZ8Sr9fFhpeD/Oy4Js/GYc8TtDgzvrnnwcZWVA3
5aJlyC4asLO8YHszx4wX2x2dTIXo8yJw3MW0mxm3r9tVzffMQoHY9o+fG5hR
54ld3njZLByX5fzNUcaMdv80W1JSZsFhR9VR/MiM0TsZDwV7zEKG/iGS0h1m
XM0wVM8jz4LeCfJZfztmvM0zEFi1eRZaTBlfDPzHjAOpvz1vr87A/CVcijrE
jCFGs9QL7TOg6an1k1WAGaN2rPYwBM9A7SNJNisWZrSo2zCO8pqBC/7LWkWL
TOiQcKKUzWEGHoblJbv8ZsLIxlvOVMMZ4I+JoNY3MWG1uMjEutoMvH3rJqRY
yYRG7z1325BnoPyLysPeNCZk8EsSv7k0DWdyBHM045lw0cO9rrB/GoYLZ8bD
Q5gwzcy4MbNmGu6U/STO+DGhhzGPpMLXaWCvSTc/4cGE1+JtQmfDpiGq8eXz
5JtMePBend4f92lQbHcoY7rMhJp8F30Gz03DicEdO/MNmJDzFPOCnvA0UP9w
XRXWZMJhFln985NT4Dj9J9pRmQnljoaXdFVOwabF6sYfRCasuqhoFPua/h5f
T2aVF2ZCxrYLhx/T379kFn8tb3YmtKGox1/TmoIsLlvnnhVG3PIuTXYnO/29
JLaVGtLPiJeMz3/t2D4JtrLMQpOtjFjxt9r3vy//YHHrgOHRakYcIAn2Nm//
BxJ7E7IZ0hlRbS361ALvX0jd93D8/DtGbFF7Jmp1ewK0dC4Sc8MZcdnQaHVf
yzhcOCH9/OZ9RlRKZtYd9vgDk6arpVWOjCjQQop+WzoGDy1+LZKtGfEy76ON
14xj8NY2yrrrKCOO/8m5Y2I/AiOPhLUMxBgx0K/+tlzfAHDe/zIZwsmIKdU3
k/e394Oyu+G73tVNKHg8actAeR+4Odzn9OjbhKvVfzSdN/8G1vNDHWkpm9Bj
Kd0j5UorbFHJvi1wYBPeY3jw+Q7coRzZaaxwcecmbPXTcr0vn0K5oTjWnUrc
hCMBvubiHXmULIL0ocOsm3D/nubxQOsqih6Pr4B7AwM+9+p75RnYQbEaPv2l
5zIDnmw2bsu2HqP49f2zUjzNgC+9j4pnSI9TUrr9Re7oM6BpSG3bqe4JykxT
4X2+7XR89xQzr9oUhdHLMNJvdIMSHvC49uX0LOXo7fsbsnUbFJ/3OY/J4zRK
sP1Xm29fNygRQwv90WNzFMJZcdUJjw3Kjl+td/znFyiwe+znSZ4Nii1D4ksd
i1WKn7z0vvHpdUp6T4l5ns8apV76ZLxP2zpl6X7Ur7mcdcoFzm8OuXHrlP7x
pLgt0Qx4b8CfS3rPOoXQdZTPyYgJyzsLnXNE1ilzA3YtHOzMyN041Wm8skax
goaH65XM+LrwbLJ3+RrF2JDX6N0ZVswP23Z41GyN4t5zpZA9nwPZz49c2aS1
Rlno23XzZiwnmhGSvCWIaxSx2Zxy7qdcOJNCxuPjq5TnzIuO5k48qIAyml+9
ViltXU9iuar40M2351yN9SqlN1HdVPk0P5YfjXEfMFylPDT/eTFlgB8vtYrn
CAutUuKj0z5kcwti5B+h3R7JK5QUd6jc/EQYh780G4c8X6HsVUipW1USQZXb
rxzSnFcozmWwqt4hgg0bm9OoWisUvQCWBz5qYsgqzCWv93OZkkH5fbZJXBJv
wyZp7uUlyqrU3Bu2AgKWMqPm1t9LFJabuh8T5InIV/PAQrt8iTJyc2S1MIyI
aadXIxxfLFGepE/vu+tGwsHrCwKtpCVKyX8RHepHt+Cp0L/ssccWKdes+y5F
am/D+HNp8rm7Fil9TRw7+su34T8Ze/1G4UVKIXniP6YTChjwcfQxY+8CJff1
lowFK0UsKR5Yt3FdoDwwTBn8m7QDd4110na+maf8im9OK67dha5TSgqiPvOU
Zwd0nV9L7sa8hUf/rdvNUwgk36Ug+914kFWxslZjnqKV1j7SwLsHT5E9Iq63
zFGq30c1llrtxdv/Sex/xzVH+dj2fNMdUMN8aweHgBkapZF7tOBLnBqu25e+
deqkUR7VSwe3M6ijn4cdl84HGqUN1kg/KtQxMiK/u1uXRmH99u3N4Nl9mP/T
wkvEY5Yi+WWh+FaYFq53fM5cuzRLcdGL9Q5Y00LdXsbRQYNZiulS+ybXqwfw
x78Uk0zhWQox/ED6ERVt7OZaIZp8naEcK5hcGqwBJAgam6lHzlAEzx6QUhHV
wasS7wJkvGYoO8IDEq4f0cF/247NThyfoUReffRhOlkHNw6/Ln86Ok35pysk
lnfpIB46Mbno2DBNmbWaZvov8CD6n9ZTOpszTVGdGw+azzmIfFfGw+R8pimb
2remVLHr4mk7qOGxn6Z0Hf17oH+nLkY5hazTTk5TmkLEIzPO6CLpoaZtmew0
pbLYNFvrjS7aPHn5OoV1mhLzP4arOx7rP4jbZO89nlFEskmiO6NJ0ZKQMipJ
UUqyIrPIKKPkV0JaSil7PI89QjbZeyczEvk9f75fd/e+e9/d5/v9fAgO0z+K
DajvIoa/R/+co8R2hAwv9RlQZ2N3Md1pnaN83fHDxW/DgKr+X5j2+YI5Sm58
wKiLuCHVI7Xf+UDyHOWLQptsjqYhtfC9+kul+3MUqjT9h8OmhlS6LyFtQq5z
FLaf96NlLhlSjfK7t2yYz9H26VD8Dh9D6sd3r3ZX7Zmj8F+Xfc742JAq+szl
cjRhjmL7RVUlPc2Qei9s91Mr5jlKNaFZTiLXkNq+wvLIuPUXZfP6O/cDVYbU
d50J8/3//aJwLpspy7caUn3zlI7dvPSLYvRTMCKvz5B6PKH0E5vqL8rlPxV0
i2OG1G1e5rz/rc1S+OjcdjbNGFJXraZcVMtnKaw6Iqtmc4bUOl3f7xUPZynO
QjtDXOcNqUlS/MqWp2cpXr0yB5Rp9pv/XkXMEmh2k7iZh7T4g/27Z+9N/aTw
XI++FUHjl6DWHxH5+pNinmgtr0HLP5tk++G9z09KlZVJfECLIbXUf5kTD/yk
THYZx9yrNKTG2d13buX9SYk+u3uXdo4h9bKhVJ1j1wzFtFegNf2VIVV36+cd
GykzlN4dG8uT0YZUXuZ9YdFXZyhPjgtZrHkZUkdGO6e27ZqhBO/S7J20N6Tm
VjofzqeboST1RAZXHDKknguN2TL8eJoSnNGf7MljSFW7vP3y7bPTFOUnf0zc
fhlQWQ4XVnPITVPuLpW6xNUbUD9yjIRo5E9RHrV3PkoNNKCuR6izBA9MUjIj
Cz4zD+hTG12qLoi/m6QwXvmvy/WLPjXFzKrio9skpS7ed+NNkD71MH9AYAfL
JKWdt72kS1af+jS2mUF+5wSF17fwTrUNUrUSr29+uzNG4R7qWne/rkdl92E+
d95wjKJ77t/Wbax61N6zT4uXOMco5slMX+T/06UGypT4SCWNUvYMNN4pq91D
bUnmXb9WOUL5HPTZ+6uyDjUtINWKMWqEYpZDNHn2bTfV00G7IP7MCGXZw6m1
1HE3lSR73pM6M0xxLxKVJ73Wpv5mWfpxMnuYssS71cXroDa1Zjxk9+TdYQpn
6Owpi+ld1MRqiac+h4YpZbFv58sid1Fd32as8gkMU/zLxfmqNHdRzS+SXzZ7
11DWrZ65VtWLUh9cdwt9lFVNWeEOUG32EKEWeZe5HJ+tokSy3wn/RRCmbn1s
v7f5XCUlgUAK3XpZgLpASeluMiij1G9bFXEu5qBKqx9UTObLpyh7fC43ejlC
CTo0sUYMyKVUoffY7eRmysy50JqXS9kUxdXfWj8TMiA/vPriy44vFAlV9Z9T
HhPwoS7aQH/Pe4qfaGYA1x56nHvy1GH+6Q3Km2865fSHBNCbIaZiv/YZEFep
TrwfJYhKCfZVglp3YdrJyiagVQhPqHcWBuvHAF26l4PFMVG8fvHKZHlMGri7
PWnplJDC5N07TCo+v4Xu5RBZFSNpbOWc/ljRkA5jLu8zDzvKYOIZTR37wM9Q
rxZ5sL6JgHR0WZv2xTnw7FnWh+EFEj6dFFQdMcmDF4se1Fe3yKjWctPOoTsf
dlvmbKr+JqNDmkaFw2oRqLb91k2f24oOspYVamKlYFBjpXDumyxW1f14oH6i
Gh5J+kX2iSugo0dXldWOGni5wBifE6CAbFu7mQIZa0EL89V1pxTwsFePb+uX
byCRdU/Y9tMOrJPvv3FL8Dskf/65tYi4E53b+jP+m/kOhNshm3EeOzEYXX/b
2TVC4ZPjcgfrd6LcjKt6mE4TxNzbVENXJXQ0vPGhe6oZ/CicJgOJyqj9dOHb
L/MWuKOfdrpxSBnZft2YYixrAe6us2nmAir4NsFNTvFZK8zY3RsVPamCnnOL
+5C1DQqq1Pb+vKGCh/ffdDjp1gaac4s6eVEqODV/86W3cTvcIDdP76pRwfwD
y5SonHbgzfE2mRpWwQf/3epLJXcA/WHhr483VHDHIXeJ+r8dUPpP0K52pyqu
P/+9e/BSJ4zFrbCeNlLFuiV3i+WWTjgQXuH744wqOifdjpVK/wGrIqSNYn9V
1P298kVVtAuOfnKuIMaoIqeJR/O+wC5g1Pk1deeVKva8XJ07M9cFdYPj8VVZ
qvhhxYPnmnU30G1aSnFUqKLvkT8771V3w7Z7/StGLap4NOWOSZxGD+yO2N56
a0AVpf/8cXqX1AMOBYaPn8+o4uxRz/vFnL1gRgo8Sl1RxeLUtdfNHr2Qscpv
1UOvhhFrnpVjI71QukfmyBK7GtqY/R1ZM+uDkJS0tS0Caqic5sXIU9QH53ua
fWTE1ZBu/S+RLN8Pvd/HtHYR1LDxmDfuiu2HmZjc+hPbaPiEb8YrugE4cz1L
zUNeDXN9i4sztAagQOHai9eKapj09l99nvMArOW/ixtVUsPQ1r29ZckDoGHK
PKKpQhv5pu9MfecAOB7mepZIwxYKlL8d3IOw1LIoJE3DeGqTfchoEJoMyheL
afHb/UB8xnMQlj13CAfS+Hnf35X//YmGuZqf36Dl/9NG0aYbHwTZV0dmImn1
DdHRHWSXGoLukY9xg7T6a3fgacETQ0BI+HzlqoQaZpr7XZS+PwTTT2Kddgup
YYI/9dZ2yhBw7n5NMeZWw3vpdEFqy0OQ2utLeceihk4dGKO7YxhGzm0OWv9T
RZ2dJZlm8cPw++GVzdZpVdRsbY8rrhmGGSUDdqshVVTxmvFUXB+G5f/0Amw7
VVG2RsSQzXYExITk/jKXqaLAhWstFIVRsBd4KX/wsSpycwbm7Dw7CryPGoKc
g1WR/cvTZ88iRyEt46Gg3h1VpKOvsL+9NArGtbttVs6q4kyixJJS8RgcMCD4
ntmqiuOGqp2Jc2OgWHhv1lFIFYem9heyk8chbb2E+TCLKv7QvhE4FjIOhbUn
nkeNq2Bla7Xg82MTUMbVJBj1RgVfcLprco1OQt+6INMrWRVM+BIm5iUyBecu
jtQqCqtgnOXLjYlDU+A7w033nlkFw9/UVZR/nIK90+1SYjXK6GFENvf2mIZ3
0l0W3w2V8bh3o/s0x0+4OyB2wkxTCRnchXocxOaA5YxaktnGDrQ8/645V2MO
PifLh5LadmDmYajhNJsD91Y7o4L0HWgnczn7a/Ac3KV/bLDfageWVhdGMS3N
QV60kv1algIGSDjsS22YB42/jWNUB3nsYf6zZ3VyHhwKnxof05FHjbmHaibM
CxD4NVt5mEceR8pzZJb2LACp0vESqWA7Gl3jWDN8uwBxj6aOZvJvR6aSzI/D
AYtAf3dAjof2PbR+f+DVrheLoOsunGCdIotfY3ueheUvwspjs6VNL1l0cGK5
rz6/CK/DV2ZOKclihYClfYDNEjDWnzxxP34bBl+kFyXvXgahw+NcYj5bkZXT
zN9u9jc4PY27ffgBCS3kLKlaW1ZARqcl6uVVEr4zcNhk37oCT0vMTcWPkfDo
HQ+fL2dW4Pyt9WpbURLGjSXdYapYgWL1/X0Tr4koWzJ/Pe3ZKhQ/nLkVVU3A
fe6P7aYOrsGpW00fUUwa46L/e1lsvwZbMyLmGoekcCL99cAj3zW4upd9b0q6
FIYPF9js+boGMoe7TsvrS2Gr2YhluMxfeF2n9MTrmiQ67NA8ofT7L5yP9v5Y
2S+O2fvhEQPfOriYtBTd/iSObHaHmtp3rMONQ2ubFf7imP7krOld23UQ5qg4
aCQrjkvMwcaNdevgV3ltZc5dDAMG2g1vpGxArtGOmHtaotiXZ3zVo3AD4o6l
6MYLiKLOY2qcb9sGHHZm2UKaF8G5fe8mH7D+g2Glm8qhH0TQ5r1PZMqVf3De
YMqdc4cI6rhv7W5V34SgqJuntmsI4x/m3XkSdnTomqMYy2UpiGk3FuufX6PD
2+MZ4nq6gniy/8MQ0YsOezusoq2lBfFTLolzewwNXw7+dmVIAC9e4TynUUmH
pfsOFA5fFsDWxn6mIwr0aFCdf0XUgx/v6SWINWrR41HqfSKnJT+qvDupdMKQ
Hp8FeSuI6PJjWEDN6TPW9HjuzrGxQDp+NND68u5CBD1edyxQ2BvGh5+eBZv5
LtAjny/v/S3pvPhNIHich44BDW7Icx2M5MWxsCDfl1wMGM67PfnXDV6U9A5M
L9/OgFN3O/8G7+HFUOt7bBznGFDr1nKdWioPprT6v0h0ZsAS92vyddd5sNjE
X0vJkwHfXfK7dxJ5cEnXz+FYLAPelt/9QWmAG89L+VLjvzEgI893rgIFbvSK
9Tkt/4MBM543hgdtcmEcl89s/hgD8ly7NC7TxoV1G16SffSMmDAS45l6jwu1
++54bNVmRO1ax5+To5zI++KWyudURswccKqoKePAHSK3qgwyGfEFift6QxIH
7o+8adNKYcSekZD3Sz4c6H3XLXylixFvUeKP3dHmwIlz1yf0+JjwytMvffs+
sCOVcDWp1ocJf2hU/xCN3IIuyQ68I+bMuC9w780NOVaMuPM0McKeGeceXBK/
ysiKH80atu92Zcaz5kTe5T4WnP23Sz/iPs3/Z2zptTgWdLbiuKFdyIxrhlkV
c6wsGK6G/4aqmZH18aTillFmTN9y68HDNmY0m/Vr9yxlxumcvuShWWb0cTS8
FOLLjE6CmS3hRBYcINQ60K0z4YPpsXO7lFiQTffz+Rc9TPiuVGJmUIcFa7cQ
rlcXMeGkaxDTrpMsWHjziES1PxM61ltoDgaz4D/JkqYqXiYMTX1YEvaYBeN+
Sfow/2bEN16lR7SSWJBgzarR082I4/KKF8PyWFDpicJVs7eMeDF4M05zhgXp
nl41FTBmxOCzGuSBVRbcm9Ks1qvBiGkalzMeMLMiT8fpP3IyjDg61FzVL82K
prkBLfLLDOgAaav3j7Hi3ayhIIU0BrRbNbHsy2ZF62stSoFCDHjvu/9YaBkr
esnXUniZGDA5LfuGeiMrNnuf7nxF29PBk4Sw0ElWXJLzc6r9To/nPy8WqEmy
IZ/VRrbqfXq0cUqQCvFnQ8V1Zx67RTr8+2NLw/xDNrSuu/v8Vz8dPjl0x9c6
gQ1nH3lG7K6jw6btFv2qX9hw6MAhVfpUOjQaF3rZM8KGdTvNjt00o0N5h+it
age3oOGLbWXuezehsoWuLfHkFny4SXg+zbsJdoauQay2W/BQeNldGP4HiSTT
sZ47W1BMwyYjJ+QfcA9yvgl5vwVr8sR47Zo2YOls6I5ebnZkO0reGuG2DlH1
K90HJNjx4Imur+qH12Gn3qXwTDl27Cp2ux1MXIeLkvt/hiA7upIIT880/4Uf
XYwZajfYkenUBNtjvb/gftjt3H++7Mi3b/RzgPhf4M8f4mELY8dDJSNHT6+u
gcnTEtfeFHZ0PHjJ9FP2GhSfvqsW2saOeVuflijtXQOrqtmhhUF2FDCvCjck
rcGqls3js7PsqKmAFDXWNVAV1ltSY+XASv9b5++3/IHU1rWsXto52eduULTv
1h9AI6eLB/dx4GPpwGW7c3+g98sP4S/HOPB1orqOyOE/IPw493aoEwcGD1nt
ECb+gfvH3HerJ3LgztoRJu7WVXhUp+Cc/pYDz50VurRCWYXEA/3Pt+VwYAIh
xVg0fRU+6R1kEm3mQIfYOO6CwFXolBf/vs7KiRK9kj/faq7CUGoDvbsQJ26R
Mw6+RVyFGZkAjV8kTjz4+MHF35yrQCc883RQjxOdRUp8hoZWYDtDsUOlGyfK
Gx823np/BdR8bsSDPycqzbAvnby+ArqrsrW5EZxokvFXb9piBcxmI5Xfv+VE
zR8LL3fJrsDtLtu1yH5ODFcZjCXl/YbKTOaoM8ZcePKTMRuxbBkad+aXNltw
YYmdQL918jJ0vbm2bHyRCw9R7BVM/Jdh9nmH5V5/LhSyYPXx3rsMwmFvt5Fz
uDD9SPGF8pwlILDYWCSWcyF9t6+/VtwSKPjzhwk1c+G90HcybTeXYO9trznW
n1wo+Krua7vaElywP1IwQ+JGZdmz+dFfFuFaH/3sBRVufOu36sUduwgeZ7IJ
/XrcmGnX66lwexHCTWWCmyy48aoG209nvUWIq23JPXyRG++z0tm8Ji5C0r7Q
6TI3bkxS5xl/w7IIX/fMm2VHcOOFVDovqZYFKM5+FaCcyI1vrtnnPstfgGpV
y+w3b7lxRmC37UryAvTIlUk8K+dGx8bePlP3BWASjB27u8aNzw6pXveRWwD+
WV9uflYeXKtcHuAWWQBitaNWqgAPulnKFZ5kXYC93rrB1Yo8SKdiUTJKuzcd
MZf9aLmbB580XZsm9cyDtQpv+8w+HlQ8vR67Srtn3RkZ3sZ3jgc5DMauH8qe
h9Di+iMpV3jQjDFO+PO7eYh7knNL04MH/d6ywYMX8/DVJKziTDQPhq252zk8
mIfZr2oXkst4MHuwMuGK/TxsREg+1GjkwRnhL53ClvPAeZklq7KHBw2fxui2
mM2DvFQX0/QyD2p9Zyw6snceMkuxWUyQF3vnXQh/ROYhL0NzzE6cF9sosNnD
NQ/URIW19wReTHsQMnqLcR6+uwuS9u7kRQPLYf2XP+dgRmHiut1+Xpza73Z6
o3AOlkR6g96b8KJhhFxOasYc/GVqfrp0nBd3PnrQVP1yDtj7C0qCz/Gi8N0Q
f8/AOZB7HMn33oOWL5tH76zhHCj5BW5b8uVF7ur610Wqc6B19c5uvSBefGkb
2/xEZg6MDtjbfo/mxX2qCvefL/4Cu79anxff8eL9lcE3n4/9gssTOyp0P/Oi
s9umwmG5X+DaRvgRlMOLotrd52F9Fu5msNOLlvMix/dsDE+dhUT7PjPdXl4s
5UoTXpn7CR3fguYCefjQ+4re3o7wGYjZ+9++U8J8+O2R8ocGmxk4/vlrwjYp
Pnz7YSgyRXUGGuKGjSoV+NDkmM7G/q5pCN/y92mcKh/u6r952+DTNBz25v91
UZsPt3ma/rkZMg2VtvpPWffzoWBucGTF7mkIbLWY7TDhw5GHzL30QtNgcMDV
8M0JPlSwa7rxeX4KihVf/Dxoy4cqjpljERlT4P0i20DMkQ+TJNQ0aqKmQIe/
IX7yGh9WMg3GRrpNQfbKuv4Dbz6c3btoT9GbgptOgvGWAXy4IPP7IGnbFKj1
7phReMCH1CMVyMQ9BXOmhvp/o/gw3QH3Wq9OwsdSy7hv8XxYEnJnQ3pkEpw1
b0w/e86HBasjItA0CQpv7qPzKz78sUVK8gNlEtIe5k5xfuHDnK8XwnckTYID
XSP05vEhf9rMsMCjSSC5jcd8oPJhUHmt/lrgJDy3EIajDbT4hMf3z1+dBOtv
O2Ok2/hQ+Jr+vg92kyC+d9/kbDcfYk4QwyOLSYgj33wcOcmHjcsFAl/3TcLJ
uLCJc3N8yNUYEJmrOwn8W1L0VFZo/ll0RcPqkxAx2zTeyMSP4RPtT/aQJsHE
dlL3JQc/xt+/QVEWmwT2VrpH1/n5ca0Mx3/wTEJwnrIuP4EffeqMPcb+ToCR
4oHoIVl+PHZ730Ph+QlgeGEzlrmTHwkuHkefjE4Alc99T4AGPzb317af+jEB
voEPo07s4cdXJ5VadOomQHcldZRswI/Exc4UjeIJWLtcqLN0kB+nRoM91TIm
wN10eiTGnB9dUrNz6CImQKOUQefCWX5c9DD3zvOagAUN8UhNB370+iu3/YDj
BFwTP7S7/To/7nxeP1CjNwGKD89HpNHuzeJoOp4rOwFTm7eH3e/S6k2R/+7K
PQEXR9MeijzkR7cbndsOdo3DVoviofHH/MjfSY5zKx6Hodq2XbkJ/Dix+av5
7stxsPnENGTxhpYvkI3ZyWEcTnnZaSWU8WNTZ9QPnf4xiPtPkGWlhh8P8XS4
XqG9i9splW0nGvkxWdKJIv7fGJgz7bjF1cuPq+ezVI3OjIHFw8Uvfr/5UbrE
+TbH91F4kvEqoHedH3sMLy65pY9CZ9PpEzqMAsjvNJ3J9GAUzggXLizyCCBJ
97HC732jYPkiUPWSvAAaxQZoXCgbgYQSLfpyZQGMvlGvZJ06At3DE40ELQE8
WSU4LRE8Atbbj7h2GQigzK7Dy5omI5B4eBN2HRLAgHGxyx9URqDH+TNPjKkA
Vgxep8oJj8DZz0IZR6wF0O/QVz+zkWF43lLl+85OAG0Nncd464ehb/nOUVba
O6XZZ5pnNXsYpEUVpR1cBDDPb5yHI3kYbHT6flJvCaCWzh+LIxG0eOuoIilv
AeSg6ORRvYah39fgoec9AQysMbe44DQM58vSFDUiBVDBSDpHx3gYkkYt1qNi
BXB2d0Gcvd4wDLJy1P18RuN/oMXwUWUYSApFzw4nCyDlIFmMf9sw2Jm4XHn9
RgBrjmZ4BYsPQ/I14h6mDAFkylA5Q8c3DENRLey2WQL49Ge9nxsbLf5LUFdR
gQAuK8vdbKYbBvu2Xe/ES2n2tGEv7rUhSF2ZvHO7WgC5chiLRZaGYEQs8VBr
gwDy9rad6p0dgq26R8VU22jzGLt89cjUEDjY0E0+7KbFM1lbnBqjxftl5k4N
CmCvyfeMwaEhGE12CD0wIYDJYVdd+vqHQLZC2CJ1VgCfz6HArt4huDheLUe/
TOv/kE52e9cQpG3xWjn7VwDHL+uovukcgvEdO6vy6QVRcNFeJ659CLYf7Y8T
YRPEX93PAsNah8DRNfriTW5BTOVc7rvRPARvHhlqNQkK4lmZ0RO7Godg4usy
s5KEIB5b5TlYXk+L73jd9oAoiAIuPk+Yvw3B5T9nXo3LCeLvOM7c8aoheCfB
ectISRAJN/58O10+BFN6xUYvNQRxywnjKkPqECicdxX8p0Pj72YMSigYAqd7
pBFLfUF0958YMM6mxae2fsk5IIgBL0obDn4agunK4ADBo4KocnPJJeDtEChO
ap+4flIQhTcM5X69HAJnjmlSA+3dXGFKeef3lOZ/J5+Jw1YQa3aVSZyLovFP
3B87cEkQvcQiTS2DaXrMz1QHXhXEdB/Ft1e8huBSxfZ3JW6C+KTs8+JDlyEY
U18N+3dHEC9GtDgW2dHmk1x1dY8fTW+3Y9bKySGwu3tRNStcEJuLQ1sfaA3B
4E9NgYVHNPsBOpOxbUNw3pp5WempIPIHGfYfExwCm92puW9eCaJsw1nLa7OD
cGZxEBKLabjZ52fCk0HotP1M/FEuiObCZVLG/oNg3ujHKPyNNo9R9e/mlwfh
5AeZqsgOWn/NJL4W7BoEs0tnjwbMCaJtSPu+oO8DsL+709qJJIRM9dsc6X73
Q8WhN3tfbxfC/kGPnt+l/WCUe5swokTD23Xse6P6QT9WeOTsHiFcyGoo2VTu
ByrjWEWCvhDWSL2386Tvh703sl53HBBCksZXU7vWPtA1PXnl2Ekh3NjBe2PY
tw8KishHIiyFUKyjjS7dvA90FBeVvp0Xwl3dqyao0ge5CaW8bJeEsCuvSDKT
ow92bXm0YHRVCPeF/nnHO9kL2bdtW/3dhPBa6PVHjtW9oDGmkl18Rwhv3WIo
KnvbC2pl3+9oBwthh6hD+X83euGz6gurW+FC6Dlg+IJk2QsqSdf0Mh8JIXuy
2pdsw174yL1X5tcTWn2Gv+jNlXthpw8XveILIZTcMV3zR7IX0qd7hhxfCeEq
VST6CWcvKFiml796L4SvRiLUZf/1wNtqr7Shz0I45L+5/Hi+B7bvMg6VyRVC
ba3SZ41jPfD6lbiTdbEQGtfe9Kvu7QFZwSnjp+VCaHr099cL7T3w6l7ezvZa
ITwy/0QmqrEHts6H8gg0CWEM0fLFzroeSDlnMW/aIYSJdj9VSTU9QGqQawnv
FcJqQztJs6oeSNJd+VozLIQ2VgrCTyp7QOZ9ZRzLlBC2tqL7Dxo++SI3r3ZO
COXebKzyV/fAg8fveiJWhJCfrBkmVdsDlJDEzeP/aFjG5eE3Wr4lrwiSCLMw
qpW+j5n93gMKrn77ujmE0SPQMvd0Sw+cc7jh+IJfGA+K/B3ooNUfY+EQZi8m
jATREWHs6oFaE/OPcgRhdHzyvtGWppdO/2DTtKww+h3+iDwDPaCpqbOUsVMY
BzfVX0oM9YCTvKLITQ1htP0v09dqmKZHSlpHe48wJsh/3Uyl4XY+3rPr+sLI
RZ2Qb6T5c7Aw+FEPCuOa2gI5h8aHa4vJgabC2DPi7aZFy+c+O1px0FwYk7/C
rp2dPZA+1DHBeVYYiRyB1j5NPTDYXsPRZC+MAil93zlo/RT+VqAU6ySM937X
vKEW94AJ5cOxM9eF0XOm2zQkswfufXlxU8pDGOujz7w4mtoDOa+j4wd9hdFe
Y3mDLaYHZp4F5L8KEsZDog/d0v1p84m61Xs5XBibxb/lqF3tAYvAS3RKj4XR
ZiFS56l5Dzz0OENeeCqMrMIysoN6PVDqbLw/O0kYqePsVjzkHlg9r3fZ87Uw
HiBOX1Bk6YGdp5TD934Uxvi5+WtG491gd4iYwZAljE9sfcmXKruhXpV5+UGp
MP4WVVaWvNsNDLIrIqY1NP5tduf7LLpBW3xSR6BRGGVPWP7HrtoNyQz1fs96
hfEBO99DQm8XeLTEcKavCuNbnTZG2N4FH6uClV03hXGPFGVB+88PGC7wOK7B
IoKfXvSRG2t+wNFU6yeFAiLIKhJMCXX6AVtvbd1arySCBmfeZLNndILlZeED
0ZoieCms6eF3/06IPMvmdEpXBNcNmoeiTnXC2r6ZjN5DIjhxtGvgFV0nqOj0
Nb80E8HOPdvFDDs74IJS4/KF0yK4s0v+psvnDmgU/rpn1kEEL9cumM46dgAL
R5pN5hURNBrolHc/0AF7NuP93W+IoFttjv+KXAe4Lt5P1bkjgu/1PxsGsXdA
2rhX1b+7InhIWpFF+Vc7dHdfnSoNFkGbB4rzdO3twNt4jivkoQjtvuHxnpHS
DvvLj6kYx4igdlvKEd137eCVa3iC55kIIq+EVXp8O6hZN86deymCC9fMPU6H
ttPud9YRn16L4M9X92OmPNshOWVyB/1HEexJORxk49IOlgfca459FcELJx/6
vr3QDvzTDJeS82l6vFlIlLPtUBsRybRIpfXX/+CjqNPtcE9NMtmwSgTPB3nf
5zzRDjrtbyCmXgSfssS6yZi1w8Idzd6RFhE8vbs57MvRdngnVeqp2SWCq35X
Nj7RsF3JUdHgARr/kiLrP9N2ELvQndU+JoIJz1uId4+3QyOb4wm5nyJ4zPDX
dhHzdghNX5q7vSiCtu2cwa8t2wHN/COq/4hg4rvJs7zn22F1kUtRjE4UfVyc
KSoX2+FTfELNZRZRvPVWunXMuR0c98hdyucURbs9/Xy8N9uh8x4mW4mJ4oks
2QjlgHaIkq2HdBlR/HehmK7/QTscrD3Tu75NFBffdF25+agdcvjcRJ+riWLp
5PqdiqR2uJa1mTWrLYrTbjrZuq/bQfZM+AkAUUwufODH96Ed+tZF5yP3iaKY
tMMSObMd4pJeRQwYi2LHx7mrp7Lb4aiRmqLqcVG8OkDIDs1rB5aJ4hp/C1FU
VotTTC5oh+Iw40vNNqIYViL/K6SwHdyVO5nIF0RxQLz9H5GGlVockt2uiOLS
s++2lvntMOY+D+XXafUOJhhI5bTDc3HfXkEPUdTTX+Y4Q8t/qpjd64IvTd/i
Jf9/79uB0y5eNDtQFCnP7VvpUtuhnHlrNksYLX68MutUQjt4v/104nQ0DRNy
7Zcj2kHjiN7863hRPOxK+dLl3w4zczURq/+J4jF7QTFGt3ZIjTFXPJQqijXn
RV5fs2sHa+3hmqfvRFFbYJmHQNsHwR6XS1OfaPYbt19I6rZD3d11pj05ohjy
hUvNWbYdAsn3k8OKRPHSd7HtYjztsOiU3KtYK4qk99qz1O42eMet7OXTKIoH
xLiv9VDawC6zQLShXRS7ZmZ845LboPlP6wmXYVF0k3JRAIc2yAxlrf28Lore
i4wdGt2t4JrmnK2lLIaCHTUZ1zNboO+7RCy3lhj6xwkJfn3QAkf+1LqN6Yph
8kvN6nj7FlAwkVeNOyyG52efEUdFWuDJrU6ea8fE8Ph4onriYjOwvgiZ3Wch
hiHUA9MRjc0wMj/6fvmCGPZVzv5Nj2iG4xKxD+qdxTCJ7aymkGszlBgZXX7l
Jobv0levqZ1oBpVriwd8PMVwpOyXgaR2MzyPT5Y95S+Gmf7fDcelm4Gz5Bjz
zlAa/+PgrlTWZvCcohthihTDyo4hefuFJpgQ+FTaEyuG3JTcFcX+Jjitd+7l
10QxrJrpfLaloQkqL3L7haeIIVfk7NJ6cRNoRBXZOLwTw9E2c3vWzCZIznPW
0/1My5ewUrPtdRPwDktICuaKIbDzxR573gS+nN/WpovFcG7kb6VffBP81PT8
UVYhhlG1Bexpj5rA+px87rM6McwRMqz7FNkEtaGdcW4tYhgoqGv+MKIJtDND
bhl3ieGGFGl5K83+ulvrJHlQDH3Hr8jYRDeBMPOY2t9xMdzcvJssGdsEgUqx
fC2zYphqsLVVP6EJFk4bzb1bFsMnXnzV6UlNYOu/2HBvXQwjYo7c13nTBI3v
kj9YMorjpVMT5pWfmmBv67FwNXZxPCT4eVg+vwnSN+iusPOJ499e9yd65U0g
Iffp0JCIOO5xOt/ZSevP6h1u1kfbxHGL2SI33WgTXEwpGr2sKI77fucraM81
QVudc7m+ujj2OOW9N/vbBJky3/znaa9lwbPO+3x4m4FwyPN8zQFxVIiackfx
Zoi8IQ8vj4ojUedvtQG5Gf4965S6c0oc18+f6bfZ0QzOFSHrZtbiSLeUx31d
rRm6ZrW6t9uLI4Od8NPTtPkfFB3Lo3MSxyzuyLEF3WbI1o990ukqjk05Qfnb
sBm2XTG6/em2OC7dinNo02+GmJjFU6G+4njymNTPSRpmKE7WOB8kjvd5/+ke
pfm7jh8T0A4XRz59Z5yj8fXx0i/wPBbHKi5PppJdzWCi86lx/Kk4XojR+/5V
pRkK7M9lUJJo9ZdfUCuTawaFh9wR8a/F8ZcVUXRcshmeZBc5u3wUx223jWql
afpZBpyND2SJY95y8uIV+ma4tUVSQaZQHOcXXjxrofVvRO0b20qpOB71XZew
6WuC49ae4w014qga+YdXpLYJqEHylWmN4sg7NmXI9bUJlDM6U307xPHTmm3U
8cQm4GTYZac0Ko7kdD5PgmMT5N1mPDE2LY4vWONnbE1o8/r53fD5gjgmqhie
tlWm8XU6buOmk8B3aTmrvAuN4JaRMPFTXAKrKsbmmq82AmHbpR+viBLotT9r
22PjRqhLUK89u10CjYTc07fKN4JscN37ek0JvL9y/8/b6u/QZf3v2gczCWQd
QmtScQOENNeeu3BaAl2Eck5t+DaAxsF4MykbCTzcJfCtSr8BItRV1B5ekUAZ
1sEmuYZ62PN2nbTvhgTe6emwVntSDxPSNQIbHhI41231ROhCPeiz2y07B0ug
wwc1dRm2epi9qzS29aEE6vwRco3tq4OE5bX2nscSSB/w/klAbh0cuFJVFZMg
gf/M5/oZ4+pgaeBxrslLCex6tP+1wu06eGl+/i3TGwlc/cp/jsW6Do7WKSYU
fpRA8Vat6y+M6uCv/p8HN7MkMHF/mOaqSh28yanwUiyUwB1h9nOcxDo4tfOR
80ipBCqkS3W3CNYBQ4rN2cQaCTzb/FZLj7MOMkR3HD3ZKIE2x8cvqbPWgXXE
yl7ODglsl0uVesZcB1uYypXLeyXQTGv97gmaPftOFMF7RAKRUOmoRYu3+2XN
pzEtgcTC9FRRGj/PBXmGmXkJzCMF69ZK10Fh1/JCyqoEBr27UimsWAeOZqXD
VpsSOFa2pbhiTx0IVUa0CrBIIkPXo+GEI3VQuseq4hunJLokZSWZ29aBy2e5
7AABSdz55OeNbPc6kJRbStsjLok8nN6Wtx7WgTv/w9D3cpK4oijzYaGoDsih
Z+7YK0nib+9xinRHHTRubHOS0JTEri4RheC5OlCYLDYOM5DE0NdvzXpJ9dBh
E6ZreEgShQei/HbvqYfA1tM7/5pKYm8449C74/XQR5njvnJWEr9U6rBk+9RD
mGbRJslBEtWN/xOvjaoH7ff357qcJPFzgXvfxMt6GCWYDz66Lom+JNNDHZ/q
4VEcqfmwhyRqRxVttSmqB+D8VcpwVxKTBFYvHK6qhxn/gi/5QZLo2mPld5W2
X09WQlJvhEti+eqlT/8118O+qydjFR5LYvDy573ZLfVw81EBnctTGq686N/e
VA+pOSTnLy8kcdVSy0Covh5aeu53rLySxNvLDsG2FfXAwDBvoJsuiQlNx99/
zK8HNTmLj36Zkli2Zd59Kb0ebE0oYhW5tP51/yAqJ9ZD1HXZoC0USXQi0lmd
C60HatzDuSMVNP2yi0YPrtfDr4Ilq0ffJLFTqcg573Q9SA9aVbU3SaI32Tl/
TacejrKUqUl00vRJnLU6L1EPPjsUnp/rk0RzNec0uj91kG4WvSV1hDbvZbW1
5ZY66Lm1enNiitYvxdBYm/Q60KFWGl9fkcTHDvwzguZ1cHl0Z07WhiTS/cfW
8UmuDp6wx5LWGKXQv2hh2WrlG6yctP9zj1cK7Q2k8xOjv8HXyc20GHkp1GjU
/eGaUwvD3Jf4fyhLYbJj8bDo3Vrg12jwkdKSwtaMaR+v/bVw3TfxZJqBFN6b
iz5n2VYDSgK7GXKtaPzv+PXb/lTDWe2kq+u2UjggunIipaIaws+y/kBHKZwN
+cb361E1TL9uy6i5KYXTPZ1V5WrVIF6vK8HtJYV/hQS3vGeuhsMLKcHH/aXw
7vhBpqquKnije+Ns90MpjB/eGb4rvAo6bX9Uy8RIIfOzka3fHauANQQ1HBKk
UGwkUZV0sAq00l+/eJMkhYVHnKoPKlTBxSZujp9pUnj5vvuKOU8VxP6+5a76
QQqjsiLfWq9UQrlE7+CtL1LYn/0l6sJQJSyh0ZH8PCk8bJclfKexEsgX3+f+
o0hhkhHPyYSSSjgexr/VsFIKR7b84qzOqoR7n+5EhtRJ4QkXr6/r6ZXwuW1g
7VuzFHoNHXFXel0JA2sHLvL+kMLnrTz7TVMrgZeQ0XSyXwpZtMnLJjQM+4T1
no5K4ViOxlE+mv81J583vdNSiHQRWvdofM8jRwRIC1L4heN3q//XSqj/anz3
4qoUXksbLZotroT1H5lT7/5JoXZiw9bUb5WguClm/otJGhv+KvJ7dlWC1Vb/
EnUOaTwxx/9833QlPDg0oejBJ42X/X8o/diohPxrpk8KRaQxzS+hgIm/CkTz
pFz2bZVG9YwQmTN7q+Cf/WsJvh3SKPy93pdkUQUj3KrVParSKPA6X7LhRhV8
cjAi3gRp7BD7l/3hbRXE8dAO5X5prNhxeMasogq88097chyRxua/O6qyBqrg
AO+VlmRLaXyYe1c5TagaFAuW7l6zlUaz2JtVr5Sqgf+ir6KOozR2GlxjNttf
Dau8bD+YXaQxpPbYVgfraugriA5qukXT09O9J9W1GsovSqj95y2NEUWib9ru
VcM7vld9jgHSSNVXvlJC27eoQqUwjQfSWPiiO1QjqRrcL+XuoouWRsdtDFZ0
76vBmt9g5Fu8NDKdrO9by6wGg6JvUfHPpfELY+effznVsN3xlJ79K2kkN8xn
z+RVA7dA/6RSujTO84l7vs2thqUix7i1TGlkgbM7CF+roctxwaAyTxpf2Jpa
6KdXA1XA+1c0VRpHx2aNGV9WQ1oxc+LZKmk8MFcraUerL/xy5EH5BmkcWrb4
fM6vGm4Iii0vtUpjjox7PuOVarCgJL+kdkvjAytiqtXxatjrpHg0fEgaKS/D
vD21qmGrUPba6UlpvHoyvclDpBrYqfCaPCeNXWbxQTeXq6BN6ARdwYY0fjp4
c2HpTRXkU3vSg5lk0GVmJ2+DbxUkXbl45jiHDDKRespMjleBc8mdzElRGTQ+
t0nhW6wEpqtJDqIaMhjndsbAlFQJUyIKfCM6MniI4y/nt+kKaCz9UpShL4P5
9HYzg18rIFG0SviAqQzu+ygovba/AjTKf1bfcpLBoIhw75s3ykHc5fYt/esy
yJ3DEmCL5UAnTk/i8pBB/+a9zSy85TBW/qCh05dm135q+2KwDOpcBL1Sg2Qw
vL6w0y6rDDLFn8u5hsvg+PdUtaCwMnhSIde657EM+s2zX9JyKANf189+rAk0
PaV54slQBvYSe3a2JMmgrJvx6V9SZXCwsvzH89cyuGladxg3S0Hp+tFgp480
vW3veDKHS0FQslNNK0sGA5iO+Vh/K4W1Stt++kIZ7J76Qn88uxQGrk+H1ZfK
4P5Z4cAXqaVQKXlL+2mNDAayqB4ziSuF9Kp/Iw6NMniuv4nXMqwUHt0IjVbp
kEHRTcGK8gAaX116bmivDD678l3o891SsJNr6h8YlkHDHH6z276lUOu/zLJ7
SgY9zV6QWf1KQb1HTCl6TgZbVza0TAJLIVFr76nJ3zK4Mvd9vxKNnynazlt/
QwbP5nQejo4phexbZU119AQMyg1NOpVUClPJp0ZXmQiY41atY/GxFKQbx1e3
shHw9HpB+43iUji+cYfzGAcBD+1W1vRuLIVgBU6CDzcBY5ZPWhwcKYWC08/V
3/IRcIHoXfHmTynMBaocaBMkIMnoTK0zbxlszSy1pBcloHaVd4Xt9jII5xz3
PyNNQLkHJWqcVmVA3X0nNohIQOtlh4unbpXB0kWOt5+3EjB7+P6XlcgysC5R
btyyg4C/H9U8cqwog6jZkmFNJQI+TWuvqOovo32fT67YqhIw5bT+6ss/ZbDT
3UM6fxcBU587E+YUysEuhV1tTIeAWglaZX/1yyGuMXEf/14CjvUrWWSeLofa
DaUze/UJKCjqcWLkSjn8UyhxdjKi1SuW7e/gWw5qFif84g4Q8ENZ2yG2yHK4
GDT6uPQwAVWsJ6de/1cOCZm3X88eISCPDyVL+l05NPRvKRA/RkBjzUF946/l
wMCV2LD/JAHZx9/9x1NYDlo6SkM3ThPwSajOnWMl5eB0ibr83JKAZweWjdfK
yuF5zPEt384S0Erb7eYKDTeXjEiunCegnlX8cR2aP8svdxWyA02fQ7lVbkE5
6EhuMTK9RMBtIRvbr3wpB5dDz057OdH0sv/0NXtTDqnuO6+8vkpAx4xSU6eE
cuhMofi2uBLwb8FkdvH9cuBsOvZo041WH/+L2dPu5YD/hl/tuE1Aww8eYHS+
HG7ucM877UnAvMrVydgD5fDGgq0+wIeA75JM2e0Vy4H3i+JSdwABO1P74rpm
y8BooJiVLYSAaR1du8vqysCD65iExgMC9iko2KW8KYOBS7cMwqMIGPfPh33S
sgw+SxZH6f5H67+J4tJV2v4dDzbd+V82AQsZWLW69Uog7czcobw8AjrVrxy7
y18CfxSjL7YVEpAr45eL8gQVklqaX3CVEfD2aEuGUzwVFtPcCuUrCWh+4ke6
yXUq7PcU/LGvhoB7fmpOjJtQ4SfBnN/3O60f50Md+rZQAZd+KyU0EzDsRdXY
n3YKxFTFG2e3EVDB1HMj6zkFxhO0HZs7CWhzL0to2xUK6Fz7ETjbTevfFslH
N3UpEKHv+ZK9n7ZP4tvna/kpMCgoUSw7RKvveumTA7PFoDFR0GUwSkDLnb/f
M3wvhtAC6xWbCVq/XNemOLOKoSdiQ8BrmoB77Qv+c0kqBmW75yrxswTsWNgI
VYwuhnuacOTLPG1fNBVm9UKKoZ1t4PL3JQJWhuTFxt0rBvkev+DpFQIGCmmN
EAOKwTuDmML6l4BXGd//KQsthsZ7pRTyPwJe0j3VfeZxMZDN7XuAnoiqWeav
85KLwV2e6Y8VExHTpmWaM7OLoXY9VciDlYjywZpXuWn1SjXuU4thJ6Lm8pR7
5HQxuKaMHf3ERUSzmOdqixwUKHcPuVLHS0Rvr5XQeWUKiBzeHjohQMT8iwku
eqcpUDx3uYQgTsTkl3wpbh8pwF/O3qcrRcQj4WLSGb0UuBD/fs2CQESFgDbK
VVYqcO79qR4tS8R6XiFKuQ4VzoS5ptGrE5H6Vpe5MJUK6TZ8ZVJaRMxKG1Ws
KqYCnVpm/+7dRByeSKM36KRCWuei6A0gYiJ5g6WarQTW3sdoRhgQUWv+OMtt
mRI4clfz+Lt9RLw29bepV6MEko63X6s8SMQcjtzY5oMlsLTtdtiQMRGbQ289
32lVAgf/iLz5d5SIp/h7omuulMCzutxy8eNENL1+MznAswRmX5wZ1DpFxM2v
ZOqekBIwcFvbOG5BxPaL2eWt0SUQu/+ZuIsVEY0m9RI1EkpgQkx3V5gNLZ8C
22WjpBLQ/dlz4rUtEbm46FLmUkogkurjWuZAxK57xmryr0pg6LH0w/5LRIxX
YAwapNm1LlHe/nUiYrnE2AteWvx9nfOVItdoelsX5T8/LYEeLvph9etEdLHt
vVESVQIqgy83TW8SsUNt/03DoBII+Gog6XybiI+dW+t1b5dAe8iwdqgnEVkG
RQqzL5aAglXgqVQfIsYJmrMXnyiBM9ez+Zn8iWjA+ozvtm4JhIZMfLcPJCJZ
bmHTk1QC2f+JPywLIWLb5eJX48wlMPrF5DA5jIhWymyy/WNUEKz1ZQ2IIOIh
elJhSAUVDAY+lQ9FE/GL5UNPjmTa+eUUguQnRIxpG9tjc4oKDaQD6/SJRNxN
0FuNVqTChvadPNsXRJRUz3l1mYEKlhd61YlpRLRp6v/SfIoCQsWvtid9oel9
k6h4Z7oIjFo7RjeziShUw28qE10EN6a2pJzLJ+LrdXaf1l1F0Ch8TUqmhIgX
DXb5H3lQCP8Uk7p8y4lofXmwbE2rEHYaNsf3VRFx6+/Pl0LHCuCBixb/8wYi
TsgRLcZNCyAvyPH7RhOtn4NlF73YC2DiWUL42TYiJozHid2syQfhzLpDRZ1E
TJUjPiI+zId91f9YpHqIyMa+U6DuVD7c7FMp9+4n4qrvtwdfyPmQvGTn3zNE
RIHocwo8K3nQxB67V3eMiM/mLbm4GvOAjlj199kkbf/79vxq+pgHyrv+5P6d
IaKrh8G8x+M8sDmyw91qjohRK7tdBXzzINz+rHrBIu38hMdNvbmWBwV3IufE
V4hot597RetCHkxFlnzwXCMi80q28WfbPBBNW3Tq2qDpwydt9A55cKBw23Yd
ehKqygQNsDnngXvz6dGnTCTMMl8++t+dPEiduJ/8h5WEya+8B8PD86DlX8G5
Mxwk7E6xf5iYmgcMQrOSedwk9FKvHwwtyQOVHYQuUX4S2loVeLIM58E5/ePx
HkIk/H1O2b+ULR8iTgee7BQl4YXEsF32avkwHTDREC9Dwq3edG11kfkgniAe
vkIioWJ81oGK0nw4+Mnk0GlZEor+MxxgWM2HtJ5PZcI7SfgoInaP36UCaF0Y
8nNXodVbK8bdklQAjFuE9rar0/j2m2c+6iqA85p3cmN1SHh3hfTO7UghRBq/
v7WsR8InFsXk1KBCKLbtVTulT8Izj/lMbAsLYeY2z9xXIxKSbYC6a74QJCL0
PwgeJOG9i66+OeQiOJzq5nTTmIQ77zu+uHmiCDzyX8m1HiVhShv7Fja/Injd
2DGifpyEQSdfifK+LYL2sS3Jj0+R8OreaUPVhiKoPHk/Mc+C1j+61V8sP4sg
u5Qtvt+KhGu6OxJ/shZDmkpoNPM5EjZGW7W9ly6GuOes4TvsSPhG3tiUW7UY
gjlDgo9doNUfc2jnxF7a99yTxf+2Iwnj8LK+wMFiuDgR5PXfFRJe+v1L39Wk
GE6ZM7uXXSPhR6WcpTHjYjAqD3SdvE7C+RQ0u7if9r9SY7rCc4uEKpXHHo3s
KYatSQEXND1IWPRo1ficYjEIcjOet/IiYbjetF23SDEwed+z9Pcl4VyDIduF
f0WwNEl/6rU/CT1M36TyDBTByGl/0/pA2nz1N/OWC4ugtYLu8GIICQPd+/O1
Y4ugXN3PSCyMhCtsfzroLhfB15ebeyGChPspZWXe2kUQ4/NPPSyGhCLSPBmX
vxVC4LSP0ud4En57RF0/FVkIN89sbO9IIGGGl+zmtGkhnNBclyK/JOGro8+v
GFYXgEGKl+ihVBI6HB/1SfMrADW+v/wur0looaz0ZlmrAPh//mEt+EBCHrbi
/yjP86E5dWX+eD6t/iWM1qedl1L+2zMeRSQcPkmVUxTJg0y/32PPqSSs6418
uliTC4+sl7unKkn4Pdm2IEI9F+7V3mznraWdn4InBNHpHLihvdSoVU/C63fH
yidSc+CY4GLFvRYSjh4pKHpLyAG8d4P6pp2E8ad0WTWHs0Flbj6/4QcJG+QF
num+zQaCzfWspR4Sqm9tY2ZwywbeurkM8QESpklctCnBbKDTcX2Hw7T51+Dc
J/5smHv9K/XiGG1+QThLN5kFA0IuL8InSagQe0apuywLGgNmn2bOkDBC7OWs
XUoWUOevxnT+ou3D7pWUryFZ8Oncz4h/CyTUdnvSPOqaBUn1zve3/iahRl3d
HNO5LIjaMxNw+A8JVzl7TogdzwK/t1d8XddJWGJ+Xo58OAtcRaY94jZJ6HeJ
zkXiQBacD3JyK2QgI2V7OP/SwSwwXZy8OsRMxqbDl5biTbNgr+1lR7YtZFwR
luaftswCpe8TdkqcZDQqWPhY65QF0nqOZ0/ykNHakhTKdTcLuN+Pn/bkJ6Po
wcf8gfFZ8E/00vEkITLSn4kqWf2SBbPBYyaVomRUEN9urtKaBX1LFw7MSJDR
/Vy+1tRKFjTYjerzy5CRv0atYUA6GwaZXq/Gksj4QZVbqeNINiylOWaIyZJx
z90ed06/bBCbnpYk7iSjf66Itv1MNji4Lawo7yEjYTFMTqkjB24Lff34ZS8Z
yZkaHDn8ufAg59aFXQZkZN9MKo06kgsZf1eb9x4io2yu0BdNSi6U/pd/v9SE
jG+qa3VZl3OhFbxxvxkZ92qd3Ni1PQ/GB/VWak6QUeMqf/MpizxYC9j8cOQ0
GRv2X7dcCswDLtkShyZLMj4/JJz/4UMeEKrvSZyyIaNBDrspuTkP1JyMmjtt
yTi3+szy33we7ONkuW99gYx6v8qfzXHmg8XHKhhwJON6DFfXV1I+OJnd/23v
TMZPgVPneNTzwWfh8IdxFzLOK5fbN+jlQ1QMp8MVNzIy4U+bWoN8SNFqEP/l
TsZ7h+eOjennQ3ZnZNMNTzKqESjLPHvyodrzWOhvHzKqvnX9AUr50C0pAJ7+
ZLx//KzzHYl8mC1uXd4IJKNK08OlWoZ8oLONS/cPpen1fXz9yEgeCDBa2DOH
k/EkB7PzVmoeyL4SE78fSUbq/Ppnn7g82H2gu5HzMRk//idGH30pD0wmE0Oi
4sh40z7p+Qv1PLi+k7Ac/x+tn7UqCQNFuRD4ffC9xEsynnIWekL1zoW46yl2
L1LJOHaMfXR5Vy4UZsk2pr0nY+G6bzHbqxz4fnoiWCGDth9iSXuqT+fA0J+3
eh8zydj4QezIC7YcYN27831WHhltfC/+vncxG45XqgeXV5FxVT//Ej0xCy44
Luse/EbGyeojntj8FTzYcxa/NZCx5IPt0YCgr/DfUR3bljYy/h/IADf/eFvm
hOfzsz+w8PsXV9kjQIhGx1nmr7M/wpK9ztrcI0A92mhHom+zP9U0f4Ve4CNA
WLuWaHozsz/o1kA84uMjQDb4alrG+7I/+ngC82XnI0C3Jgmg1ciyPw0bxKnp
6iNAwFUuFe+asj8gvYVgbe4jQAwHkXBQcrI/Ml9HF/HxI0CPv+/WLU+yP0UB
Cc509SNA+RiOf7Exsj9Yo8qE+PgjQIa0wGr7GbI/akWMO3z8I0DNdAcrIQiy
P33nTfL//yNACssTwS38sT8sgEuL
       "]]},
     Annotation[#, "Charting`Private`Tag$92595#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwUV3c81e8Xt/fe2x0lEVFGRZ3bQAqJUNIS5YuEkGQlSaiUqKzI3nuE3GNT
spNZskIySpSM3/39dV/v13M+5zzv93nOuecQra+b2DLQ0dHdZKOj+/+vzzfD
n5ubZAz2U5uuuHwbJm+L/B5cI+MI7+W8L86uYMT3ZaXsLxnlG9UrDJMvQ1ly
2mrEMhkv+skwPNTdC4S9zuvXf5ERuZtD5BdOU4M/7KEzWKDZZ6ubrMg5UBcv
0TPK/yCjP2k1YuSKG9VyuYWZaYaM524OMU9neVFrQ56yjUySsdzwy/v7O/yp
irJnOavGyEhqncrtLgygPisi87wYIeMJj56zS+OB1DW9WT63YTJmEFwcfalB
VNuhYkHjATIGeMWu3YVgapuzj8iOTzR/aQ48L60fUDWYdcXZeshYOTy2+5Nc
CPXVSx6p8Q4yXvtX7jkSEkJlU/4kgx/IOJ+dcP/rwxCqS+0rYuw7Mq4vj7JG
7AyhDpjbbfFsIqPV/u8q+5wfUA99V9l2qp6MPcbNT9ONg6lZfn+3q9SQsZ4h
Q1CrK4gqJFS7g6uajPt4Qsh9y4FU7/SQnVMVZNTlcpH/gQHUCW3TXfVlZPy8
liHnsNufatQpqZ5QTMaq8aOm95K8qGW245reBbR80O+YfAtuVMJq9r7TuTQc
9mToTrA9dZF0gMKXTtNzjFvA8dkhsCxjOTybTEa7ihOPfPJtofZ4u05zIhnT
+9/8vvvuBjxzu3jcP4aGWSouiF66C+ts242sXtD8WV7Q8TIPhitxi8Z7Imn+
loWvRF99CJqNAeYLj8jodWlFUXkkAgZEUy5dDCDj1PnBnTIQD4ezr9lo+5FR
Lst2/NSlBMimaFwV8ybj9k55yxsxieDzX5NjhzsZFx7PF75bTILJ9cfXs13J
SK7ePpfLkQJGT0+7Bl8n4/XQ5HN6wqlAqJy+SfmPjGWaKS5v/qbBgxOFXlJX
yOjWm3DxS0c6/Bzz8vljTUZL3Tt85s8ywNLzsH/PBTIWN1SasBzOhDourrv5
VrT3sGujcHkwE3Yk9twLO0NGc2LJtMH5LHimHhdsZ05GgZ0rxBMtWbDeYht6
xJSMdBfm+GylsuHKeeVHBGMyBgVID4tZZEPbz+XwNQMyhlWTekRvZYPmfWpE
nz4Z3QNGfuwKyIYEyeCoYl0yNnYfkLrgmg1s+cYvww+T8dtWuqsl+tngckQ8
1pFCew+GLt2ubNkw0Pc1/uh+Mt75yiz2JzcLDl3LTNyyj6bP9QNSLfuzIIv+
RjKdJhmnZe7ohJVkwh7TTJaXu8lY+yroZhlbJjQmf7VTVSHji7SB0i+HMsB0
Wex9yw4ynqWLnjljmw4jesZK1ttp+Xz4qSbJJQ2cXt5/vLqV9h5sbu+99F8q
/JupXnxKIiMlbcvIGaMUEHmkVFonSUZnic7Kim+vIfmLjZiVGBl/NJVyHk1I
BFXVWK8lITK6qL1pNjVKAIMeDtjKQ8b2Vk8jFfkYCJCYagqiI+PGzIfdsgLh
wOcoqyC7TsLP+RffZlSHQNxb87CyvyT8Sce/R/r2PSi/2GA89ZOE5damt1zW
PUCncK3Qf56EeE9WvvacA3QxqgmLz5LwRazJ/ccZpnDRzOFmwRQJVT4on61h
PEb9kfq6X3+ChLNnX4ceDbKlev3p1xr9SsJs6osv28NdqGzH+OO9PpOQ3/HR
r4MxN6mRMUfpBAdJGPXWw8S+35tK+uFnnfWJhKnXWe28E/yp+QfK6g/3kNBM
SU201yaAuj98Tm6og4TaY0xm50rvUt993frA7QMJx/NesVx/Gkg9vfvcd653
JLTMjoxWXgmkTgY+M0xpJCHHmarbD8YCqTd63+ftryOhQzW98l6LQCqdPKNA
L5WEbS5b+etN7lIf3drn5lRFQo9noU3en+5QJd+79LK8ocXjv3iXrt2Pmi6V
sedVCQndfARHbThvUzWcRqI1C0mYkLtidMPBnVpHFV1vzyXh6ZKezNH5a1Rj
/hMX7LJIONIQJa89e5762Tqohi6dhHTaV7VHenjhD/Pve6qJJLQxLH6juM8V
gix2TLXE0fR/uNvlk5Q3CGZcPmYdTcKu2Jt5aQfvgrJBF09EBAmPnSCd/u/4
I6iKY3dRDCfhr2Fm1W+sT0F/ntJdF0bCMZWYS//+PAObp3nPl+6RMIvNbVlv
KZpWn5N/wwJI+FBi1enlUhz4qctYbfUj4QKTZB2rZwJE94URzD1J6LyrhfWU
dRLIK9QHzLmRUK6qq4zzXTKU3P43HuRCwvi/DN8zt6bCoQ+79GSdSJgoaKcw
55oGHTL2GWX2NH1nG+Iy8tLhnHMip/FVEop0uTW09mfATE3ftanLJIxpV2K9
Mp8JnoJ8Hf4XSfikMJM1dS4LmG31domfI2GDstn70Y/Z0HVe1eL7GRLmF3zv
a4nKgfjTkt5vzUnIW0uyPk3JBXsT5sTHpiT8bpt0+kVnLmgYzDdcMibhLe3t
DmX6ecCg2z+z25CWr5dz+mzpedAGdbwsx0h4kae0mHE2D6L35qj16ZJw2zfb
9GSOfLiy+/mZzMMkHNXsI3Xw58MupTu+3hQaX7my9tuc+bAh55BktJ+EitlL
7lfm8+AdwayZsI+ES83y/Yo5efBcAn781CBhQFPxnVzjPLAR2i7QsJuETCW/
db0HckGFR1DzuQoJnU5SLfWP58Ia6/rZ/5Ro9bTOaDCflAPN9N/8tRRIuFFZ
1+kwkQ3P/nWkcG8jYQnxz4UvfNlw8XfFuy9kEjIu3A0O3ZYFf6ceCQVKk5DL
7byrslQGNI567jWXIKEns1au9noaPB2yPi8vSsLNpto/Oe2poNChkd7KR8Ky
chHy/IlkWG4hfIjnJmHztqOHg+mToLaO46czBwnJHrGX+bMT4WzZZy1hJlr9
2y81Kk7FQVh8UPu5FSIuXqhfXhKMgNMvnJd2LhGxmUO+MOBWOGx5ainOsEhE
rZ6uM/FjofD2nvLl1BkimjzaYqJ2KgBC/MSCPb8RcYtbm/JKw20wv8WQc2yc
iJ4RmXd9/rsBpBuznVJfiegvIdklTrkKc469y3PDRLQjFp68/+kkVFxByZoB
Ip7O9VV2M6RQgy5mUiI+ETFf1OuY9MkLVBPLZ7a2PURsf1Kas63mP6rsKd8Q
zU4i/jkkn2wm50KdNbTLY28jopn3Sw2XeDdquZ5Jz+A72n3Xhr/9OXSTGnhQ
+29OExEDpUW2afDeohprycn41xOxMJb1W/7mLaqUOt9hkxoitj5n1VQX8KJO
Ka9e3VJNxFi+xPVenVvUYvnxsOUKInql1Lb9ir5JvUNqK2guIyKXNvvALkF3
qpFUeW90MRG1D4csBBS4UCVEXv9zLCCi8WL5UaUle+okbxgBcom4cOg999vx
i9RCdg8d/iwiEjR3OnGx6VB9GS/aj6XR8G6bcusnJ+DYuv7jkmQidhAsO+29
r4DIyu7i+4lE7DM/tcyz9waMLkj3n4kn4p7KZ/1pn25D7gzrhmIMEYvpPQ6s
BQWA1/giaeM5EXeNokLI1fsg2Nfg+PoJEYPc6fb6zIUDKiYGBz6i+Zf/POOa
FAGOft7JV0KJqPJr1PS1QxQ0yu0eUrhHRAV24mMzuVjwck84XuRJxItlQo5f
Z5JgW8vtq5HuRIzZVNwQOZsCPVIWd2+6EnFUR0+KriEVlOu5K7UcicjRmPiA
4JsBg6LTvdL/EdFdgJcQ3pIJwQ71PzdtiRjWNq+9nTUbRgVuK9RfIOK+f+7X
2Exy4fEVc91UKyKO/NLhlrXKA+0KVevgM0R8OWF2g2F7Pkxzc/vamxOxmvWB
1a6X+RB1aeqlgSkRs6Z/URk38uFwSV2JsjERQ3XvSX03L4AFtledfIZEFBYj
UK8lFUCcldePn/pE1NtecpM0VgDH8s3YP+oSUYwnV71QuBBWGFW3lh0motp8
TUjfvkJItuA6+JJCRKW164I2JoVwMuub1e39RBwg3KnXsCqEjY1az3P7iEg6
Iyate7oQskzin4EmEUtV6fbH6BbC6dRb+UQ1Iirv5fxisq0QmFdPtTKqEnGZ
955m3GoBFBqqTE0oEZFZrr/0LRbAhUROpmYFIl73rcrn8CoArt+TspnbaPFJ
RlOzcgXw5mitVtgWmj4FLfRfmmj9LTbOwolIxBfqYQOO5/JBcMHzhrEM7X00
vA637cgDPHzq8S5JIp5PvHznDa2fSnznaFoWImLVLRvlzLhsaDowOdrHT6t3
/33n7zhkgdvTmo0KHiKmskwwPVHMhLa9nhp+bER8KqN3k/ogDQKCJ1JY1wgo
d9XQ3fF3IuwcwprpPwS8dnBbvkdoAgztjB1+/5uAwVM/HK/rxYPGJxPh8HkC
ioCXyqnGFzCmoKzqOkvANz0BGaNSURDuy254apqA1xOPPFYIjoCZrRgoNkZA
iR5e/qunH8LzWzEJq18IaM41cCSwLxiOfPCoGhoiIEPucVv1V4GwSDDpq+4n
oEVH+Ytvhf4Q76a0lNBLwGi5KaZ9u73geDMb391uAtqI5wg1F9yAP5LjirYd
BHSelxDd/8kBUq5T9fQ+EFDwHnlPefclMKmLvrz9HQEVcoXdlbtMYEvP+Oem
RgIm/xMfLFdVheVxZcsrdQSk8ETLUif2UJt/e35kQhqWSD40cVKf+pKlzjip
ioD+j247fBk3pNqLcrcefENAOnLv4xMSx6ja8hZ6IyUEvDh7bLf1sBaVZ29i
rW8h7fuhB6++GyrAiP73/dJ5BBzx/PB2KOMkFFqqv6nMIiAhanPfHIc13HXw
U7NMJ2CH+/0Po3uvwSnvlrw/yQRkuqw+Wy3vDnIPBRWfJxLQ7cZNealX3vAn
7lyqejwBnfZ6Olt5BcC73DRiTzQBC2V1tGx57sO1Di0x/mcENNvdpvM4MxwO
fL0XkRdOwBw/L6bB2xHA97Odx+ghTY94YaVylygoFrRhDg0i4Kh6g4dceSys
mof9ZLpFwC0GDnM6fCnQerX3WpI7Lf+jc4fC6lMh3pMwfdCVgM0paRH7PNLh
YHTxF18HAvIcPPNltDELBLI2LKXtCNikELroezEHxiuP9lbaELDs2ppGx2wu
BA8Ptf45R0DL1rXejul8sJyTO/rckoYNlctLnxXAjk3nOnULAm47GlOjq0ar
R97KAz2mBPS4LPLSt6kQ2gnMFa7GBGzobdBwNiyCBNUT6vyGBPQTl/E53FAE
rode5ufpE5DNoyNbU7kYjpiOKRrpErCvf2dh8v1iELFRSps9RMDtau/11zqK
YcrtJikUCOjldmj1HXsJvLlXE7ddm4D8H159LVctgZAoTvHmPTT+596dCjla
AlZpZs+uqNP0y/p5gmBUAsrlr3iZd9H4npUv8zxUAnQt0yFJyjQ9vZ5fyd1a
Al39u1kOKdL43Nkv8HelGJJmfO6MbCOgjIPG7+w3xeD2r2nNdwsBW2KFTu5z
KAZdLgFPaSItnjhz9Q7uYhCTtvpVKU3A1ePdBgoJRTCjlOpkKUHAsEEF759b
iqDqwML0HxEChq7UMZyLLYSHJ/bZPhck4Jm4a86nWQtBxaXtbA8XAWeimTS2
VuUDQ4DYJ1d2AupyDwRosuVDz1NrE34WAqa7vO0ueJELc3Y/nsRuyKL1ldaR
sbtZcHt+v2P4mCwmrrz2vsKfArGXNKcow7LoEl/x0OhJElR1q9gs9sqiVGVQ
q73Ia9goI1uZvJNFdTubyRjXeJBVkO5jqJfFx5TjXzdLY4ASK3Kq6K0sGlft
i3AQfQkB/uwGQgWyWPxD+/s97WeQ9JOhuT5TFjWoN7f1sD2Fepu1w+7JsviV
zL5+ji4cJnp/U7fGy+KvikL2ZoMwYNGf1+p9LosrNTKbzf+CYVvlVFnQE1n0
jX1YoiQYBEeVRndrhsriSG6MZvvzu/Dfq8G8b4GyGGoq5Dj98A6E8H9UfOEr
i3J3VI9t/+kHWXfb0o56yuLr9U4N/3IfaP3dRP7rIotzr/2qLG94w4+rNa8y
HGTxtEa2T/9Wb+AZqJC0tKXhEguvkk5v2GlQ/JzjgizKqEcvad/0BePqHMHK
07KY7ou7MkL8wUUl7bGDiSxaUsxqS2nz1tPXCZxSBrLIIMmg2v48EIqEou+3
6shiwNy6rv7J+9ATFMHoA7Ko0lG/pc0nBH7/CfNT2iuLPwfUBs6JPwIRh6B/
w7tkUWx6/+1M3iegOex389EOWWyuexq4V4c2/5249euAnCx6RD1ndsmMhOjd
jt9ficvip0taKR3L0VCZYnvVWFAWmf3L2Xp642BI9MIYHbcsZkYeNyU4JoDM
2snBS3Sy+PRwhs3550nwul7zPfmbDAqEumV+Mc+EOg1VvZ4RGTRW+zfFw5sN
4+kKdYEDMuh85Jfeh4YcWv+Srpz4IIPhb7/sK3uaD3qbIppRTTK4Ile6+sGm
AOxc+Ip0a2TQTLvJyUu1EDLMGLPSimVw93rXja2lRfCuaU3udK4MpvoPTTE5
FsPM3uXXbOky+HP62NoBsRLgzJ6XeZMog2ntOm5jb0pgh8x09H8xMsjF7qbG
b1wKhuGjIhKRMugR6/5wpb8UnBiGnr57JIPqEktun8zL4LHbR57bwTLIMngz
mamxDPIn20IUA2SwT+9U3KRcOXSebmYZui2DGu3k8L+e5fDzXU1AmLsMTT93
ufbKchDcX7mhfV0G5XJuKvHOl4NaXrHXDzsZ9L8fQ/AUeANmxNzlOGsZjPp3
KuLL1jfgEZHmamQlg/FzJ2/t2v4GnjMnzm2YyaBdQK6Bu9QbKL8ZbZ93QgZ9
uUf46zfLgWTjktJ3VAavr7iOjbeVw0PjoyP0h2SweSRr22RoOfzRlpVU1JLB
y6bk//Q0y8F6+7LZKTVavI/8DamdZdAq/CHcR0kGfXK/zlDPloEGQ/L7VDkZ
rCx4NGXfWwoJc14sHbIyGHj3XUP0oVLgHDx58K8Yjf+Q6sLZxBLwaJL3JgnI
oO2vnbe7fhXDSNFm6XFOGVQ1va2xR6sYisNydsSvSyPbZd0MsdxCOH+AXezw
qDQO+XesfKb1k2aFERPHQWm0dxNXZBvKhl2iZQ8je6QRxuafZhCygHXBhnGq
URqN9P7L+16RBq5DWgf4URpbX90eqBVJhaFmgVv73kijpel+Dzf/ZMhPxLmw
LGksL96dxPwgESQePd9emkyLvxJZ5KCUAPe8nGy+xEmjcIi75oWPcbBwRecV
23NpPNJJp3otKAYsTaUGVMOlsdkoa8PZ9SXUwy+hsw+k8dvUx6Kbcc9Bece7
E4EB0qj3lTVjC2cUvBBLDMm5LY2LLy9wZFU/A0Zmz4ZeN5r9e01yc0UEOC0a
0dE5SWM7ZYtLNX0E9A1v1dp+VRoNFKTvn4x8CoferbmbXJRG4y0GzbUeTyG7
tDv/9hlpfL09gK499SmIJGV+TzaRRpbL45+zt0bAncd35NqOS+NnzUEzrl8R
MHv79KWVIzT7Ry1fRXgiwdxuZyzhgDSGGt8rdXaPAjzF8klfUxql0zc79217
AQoHh/lvqEgj6wrDojAxGp4pFRvEbpfGZ402l+QuxsKmeOj9BpI0CiQ/yhL7
Gg/2LNa1c5LSaH1/4p5gRwL0/NyzLiosjUIXlPsfG7yG9PeTrvas0hjl2HyL
MyIFBMrf5kTQSSOp/M76d4s08El+NlX1Vwp700tywnZmgInPofO8s1Lo9vZF
9UHOHPinHK9f3CGFbxVfbL36qBCuSLoHDrfQzgnKtqHhRdDBakBlqZNCj+4X
vlceF0PyyF+1MyVSODdnxtLnXQo8HzquB+RKYUTxj64TdmVw601aZlaaFJLl
q17qHisHo6dmhI2XUrjD5+wI9+wb8NrFq68XIYWon6syk1IBqV3NLuFhUljt
7D0ecbISulwDovvvSeGp19ZqDHOVsCGgXUfyk8Il8cdkHa8qUCj6/d3BUwrv
qFuI3/9dBeameUIlLlIYs+vfCZ4LbyHgl93+DXsp7AzYInKg9C3kRJCu6NlI
oYXM0sjz1bfQt3voUfg5KUwTq99RpVgNTD2RZf3mUmiUzqvooF8NKm4nRkjG
UqjucFT7nmk1WAmxszvqSyEDW4ka57FqCC6uVS05JIXhBq0OMkrVUHzK23JD
SwofT36KpFt/CyNL6nf11KVQYIjBTrDiLXBFzmeFK0thOa8xa5/NW9ijntHT
v00K//kbHp5brwKbj9brJKIU5u3JixMMqoJwdyk5RwkplPA2IZA2KqFKuNeo
RFAKz83fZuS9WglTJY9vbnBJoXvNDbnpmgoQMtdP0GORwgvzc1afeCvAIapq
sf+PJC3/tztXHpRDlIaHBPmnJKo7a/N/Li+D2t6dhx2/S6L2FwdG7ZFSkBBN
erYxLInL9Zn09jIl8O75A01ynSSyRfvJ5AYWwLLm4YuOVZLobTpSTpeUD6S+
teCSEkm8khNa2BuWB15izgN66ZKY92dwxEknG1LLtzM+SZTEjnaGw9vfZkLX
6THFgWhJfP58S8qfYxmw8Sf2FPmZJJ5vP2geupgG21+a+zg+lERLr1Iru6JU
OLWXL7UkSBKPRtbt/v40Bfz7W9o2/CRx1KmvDZ4mQ/atuyt6tyTxsLrF9Pmi
JOgT30944iqJbkvCGRx/XgNTxfLRAQdJtPtn8fL9pdegYpnvQral+Qt0YJxb
TASr1f+iHc9Lotm6f4ZfRiIER5PrSiwk0Xo275shrV8V7xv+vmEsifd4PA+M
P0mEkYEooaPHJDEj6IJ+aF0icN023v/ksCQ2iL8iH5V5DXskOa4MaEui83ZR
7aHE12BTWfeIrCGJGi4CLxsMkyD8rE+Z405J9L2ZGArEZKj6pzFSIi+JR5iT
Og9LpsBUzALbJlESB2J6toTtSwUh7UzVo5I0Pd4/VXvmkwaUocuWT4Roejft
Z40dTYcXUp+yyKySuEPLoeYJRzbUV4X3ONJJ4q5bLqoLzTmwYHVsveSvBJqA
XotGQh7oxb01OjorgRSPP0p7mmj7+cOhNaZJCfSg66/Ct4UQ7fsvs+aLBI5p
b7krU1EEsxf2smp1S+Df64xlJGoJPCWVUJUqJPCYo99iVs8b0BbsuTZTJIHW
k2niD3oqYILxl2RajgS+PVt06057JeyZUPEkJEpg3VOtx08L3sLoxxNyw9ES
WKSofG17VDWENjr1vHwmgYLnX9wadKbC57RsFcFgCZwfZtLhCkAIfvH+c/sd
CbS9/7tIbxhB9cFMWNhtCbxt5ibpq1oDA7fYtfTdJTDq7vDng741EGgvP818
XQIDttD+AetqQPms3vNaOwlMm9zptrBZA5+OX9Hxs5bA5765cppqteCvfe+X
lpUE3iS4z9VdqAUFpeTEP2YSOE0/svNyQC30SNedKDkhgdzrPwhzMbXgwzO6
7qIvgYFd3azHs2tBbpMuW/mwBI5mj1+5VlQLHfOylt+1afdrDhI2L6gFr5ED
bOkaEhhfzaIrmFoL5M5zpTYqEvhkUsMTn9RCa423DVFBAn+Sxk8HudWCR2GM
wGeyBB5sOfIo2qgWCEkVGC0tgd6/El2AUAstEf1OFqK0/LlFldZN14Br4B8p
IX4JjA46QxeQVQNS7qLvOzgkcEkyxXbEtgYabTVuPWSSwJpTX8dOiNfAdXOz
bcc2xNE727z2eCNCrWbE3bpFcZzZki3GzIvgKF+o6v9dHM0/X/ZttaCCsHjn
F+0JcUz6TuDf/aAa7FZ5tEv7xDH8hP6AUF8V8LwNWUqniuP+HksrigFtHsrJ
eG37RhzTyB3XO+3K4VJ8szGpiOYPOJ+xBZdBsR9LTkyqOHaU7/vL3FMC5523
nj2dII6vuTlPhzGWAOulI+zC0eJ4XvczqzptXrE8FGD76KE48vq+XGJsLgSm
3YmCx++L46Ta128RsoWQQ8Ya1jvi6H8niF+E1p/Mhb5cr/cSx88SXTORy/lA
x7whfcdNHDm6pe9weuZD5m+p1v1O4qhF8GOxZM8H00ktr9Wr4jiydnYz1jwP
1not5csuiaPGNW3S/re5kNp0q/fGWXE8yKs40KaXCy93eRzOOCWOnXWKB4/+
zIGwONf8z4biGBvZ3HikJQf82K5LC+mJY0xy6avADzngesMhRJ8ijh5DFB3v
zRyw/Xx1xXevOEptFQw0vZALp/VtbIp3iaPzrCrXBG3fPlZ8sXNaURyVbbff
rU7Lg/2y5w7IbhXHYoGTYeF6+aAScibrlIw4OtFZGNF30vrvbzOxEFFxZIsn
ht6/XgDCF03uUfnE8XhsjYMZqRDY3hv9XGIXR7sa/SCvqUL4p378ggKjOGKY
38UJLIK5BL3WC2ti6Ey0VbTNLIYeD0rquzkxVNadDj2RVQpNX7UF6abE8EoD
o1kbtQwqDPb6q38Vw4x1Qf3HX8ohgbTLMqFbDE1e6DwQ2lcJDm1kHo9yMXzS
seBpLYRwfi/hdlaBGJbxzTY1FSIYJ0tNjWSK4eue5KSAEzWg4SVcezxODJ8N
aDmBfy1sn+DfeSdKDIfbrgk6C9SBlDFPbOljMbwgOPXe/FUdMMixehADxHD2
HNxfSamH3+GMY+a3xZDw5JbbFpkGmPq3eSLMTQxfmHmuzD9sgMEra1U118SQ
8xxda9FSA7R1/tm+ckUMR1UyyvpONkKN9u+oHRfF0O2KVcSn5EYoTltktD4j
hkMHdPbt+9EIqQJzzs9NxLDNMMwqVqEJXvrMDLceF0Orw/+pZVs1QdjU5DEG
HTH8pKArpXi3CXxNx8o0D4ihsOwY01xcE7hUf9lyTVMMHaPi3w1nN4HN9qEn
r1XEcOfI/v9W8prA4lnfxqftYlgo08JtkNYExzZ7HLjJtHwE6bHQRzTBfvvO
vkNSYvhdxvrxiRtNoPLxg46nsBiWdu/wDzzaBGTKu8IcHjEsF37csynQBCJZ
jbJjrGJYJbMhotbdCOwidWFi9GK4/4JrZsqDRljzp/41XBVFl+3lv6c1GmH+
e+WVu79EUfPfdZfUwQYYNS/vLp8VRc/9OtGPPRugaUdBDvmLKOYPf/y5HlcP
Fc9zJM70iWLqqfsmO+TrIZsh8/6jTlHsc9jc6M2pg6d9ry/9rRNFa6GZ+TN5
tXA+8Jlwe7ooMrh+SdJLRWiDZVbP16JIUVHQj92JAP8sVgmxtPPZiEKPm1Qg
uEp+cX0sis7yS1nfqt9CuJJPp+QDUZz4Xb0muVgF9NOf6+oDRNFJweD5mHIV
uCZTSq95i+LIYEtszK1KGL3wOl3Eg+a/gk7xcVcFmEgyxVCvi+LyzJH/fu+r
gLpe24d2/4li71RWwXzRG1B72uTHf1kU/+016r9/4A0kG253rbASRdPTKtG5
g+UgxB5qc9lcFLPT9xP3hZXDvfpZcy5jUTTrD6sdNy6HZT8j/RJ9URzlmPt4
XKEcrmjla50/LIpNX4PfzomVQ+8yvzLrflH8mCwopixdDnqFNwj5GqL4KvaH
7HHa/ld+7aPAGRVR5N+6dc/Vq+Ugv12TmUFBFMu7lNPv5pTDi/EXK5lkUeS5
0x50h/0NsCesTptKi+JqklsP8TZtfj5rNbQmIor/ZS3WMzNUwIxIdVsKH42v
vwltgqwAyy7ZGiMOUWQ/q2x9x7AS3j+8U7TCKIp8QQnxNXxVoK0/lpKwLoIH
ClpuvJisgmwmnRf6KyIYrXerWqDtLUhhasjPBRHMLTzPRm6shoe32XxiZkSQ
23OMOekDFZx+vr/0Y1gESxcunfvFUAOfc5RORX0SQRnmG4/+vKyBE/891oVO
Ebxa4rRvQ70WVEZMFJ/Ui+Azhqzh37fq4OeH/iW1LBEs4orx65ZoBOsHWt+G
k0Uw5vXe9NN1jdB9JK4/KF4EFw92Bx23b4LiyovVfU9EcF7LlkLOb4YtN2vz
74SKYNBIb42tYQtE7tqSpHBPBK0GNoq7J1rAI+PbfW9PESyfNXy3k/k9TNro
e211pd1/LKO9IOQ9WBCyHNscRNDFfUT1AVsrNA9yXbhpS4t3vz5C3LcV9jx3
Okm4IIJnFARiumZaId2k43DLaRG8+9Hxg4rRBxDn2aXhakK7//0fltVpHyCk
JUJe0kAEvcU4PgqufIDVwN8S9ToiuLO5sqNPqw3sKRbc10AEnS9Nuda7t8Hg
v/JN4b0iqKKsOhmX3AYGZRI/q3eJoJ2bwxvt5jaocvUev7pDBEN45eUejLTB
DuXPvXxyIsix0HXA+0cbxE1DyxtZEQQfESbCfBvwpCRWWouLYGWo6aXHE23g
e5Exl1OQFu8TiW+5ow3y2/Ue9XCJ4FTW+aKjhW0weiDMKY6FZs9fmhbwoA2E
cjuMrtCJoJPNTMqqeRvoSgvv3LkqjIEG9inCkm3gGXaG988vYRxi9DDX7f0A
mf/i5vGHMEqTvIK5HnyAIfvR9gffhDF59JrP0u4PwDMgl2/yVRg1rkorRn1q
BYq+Q7jkoDAaeVk7PHNrBdfyPOfxHmH0tb0qFcvZCr1Re1Q9moWxwsKpIk3h
PcSbHit8mSeMhEkNLstDLdBR++ipdYYwkswYG5gbmoFhV7erYpIw6jybZ+I/
2gxX+Kx2v40SxkXmh4vJJk3wwi9BMChcGJ8dvW/TP9gI7+bGfxmF0DD755Ba
u0ZQ/nCteMRHGLU4XBZGwhvgonbhs4ybwmibKzgWp9QAT7OW3VxdhGn6x1RJ
ddZDvYSWmZaDMI6W+8hze9fD8gM/dSZbYTSWdpkW2lkP8n/rhD+cF8aHiyxT
bTN1YGnHthx5Whg3+3iM3+XVQdgng97zJsIYKsFa/cC3Dqi6T0q3GQijU2Cn
T4AFrR5KPkYt6Aij/YeWQUmtOtiyVeLmGxDGoucHH+RurwPzZ+ctAvYKY6fu
ceFAch0EMyZpHt9N4/89watXvg4qXL+JCikJI88387r2vXUw+1Xxz5CcMAa8
+177wLwOZE4696UQhPGxx7Zv3H51YIzF5U4SwijkI0kwK6qDgJ1/X2gK0fTz
8vii96sOiuP336LjEcalgX07qw/UwyR3wJkWVmGUaGn+4hdZD2I+jXuf0gtj
awT7hyMr9XBslkPi7D8h/HLSfl/J5QbwPntilfxbCBULdunYDzTAyN6+ipIp
ITyforGzerwRBDKkYnxHhZBNi6vq6M0mOCJ26bbekBDmDXeVLfA3Q/rytFZ/
O81e/NXytFULOBf9q1orFcLbHazDEWqt8JpEiWvIF8LcFL8Wj1+t0PMk0OdR
phAezal031f8AfY4cx8gxAvhwdT/XIc024FOSZZ6+J4Qqt3eEmcl2gneIgfP
3/Ol+ZNOMnx0qxNWNq3XG28KIYcg56Gyvk6Y60rVOmYvhD6NlimzoV3wX1Xz
QOhlIXy5tIuX9UsXjKfM3PpgJYTWGvInNZS64eJjLnFecyH8Yy8mLeTRDYOe
yuXGJ4Tw6TWd2UNvusHc2tji6VEh/EBOeO203A1dx12Xuw8KYQtrH8lQqQcM
1Z9FCmsJIbfLjq74cz3QLFOqZqEmhAIgyrnzfg8cYevrfqEkhCaOTL49GT1A
XfzrOiAnhOFXr/q5NPTAvkFJASmCEHo9jDu01N8DpfX7C86JC2Fb4Q56i289
sCv3gvErASE02MbNk/CjB3Ke35kf4RRCzZD2nq+zPSB/J+kRiVkI03XC6/dN
9ECyfYOSzYYgpm5plfvY2wOEU99aU1YEcUTo+OhkTQ/E7Gd3/LYgiKx3byoU
pPaAyDZFzu0zglgb/lLS/14PPOUzzLQfE0Tof3gk83wP8Kw66WcPCeKUR65M
+K4eeDAWPvXjoyDefFjnFkPfA/6lPXIuzYJYkhx5culpN/x7tdxQWCOI1e2P
Wvabd4PHAzHbpQpBtCtLZE0S6YZrVlZJN3MEMWtMaHo1vAumdHwPvUkVxLSm
DSFhgy6w2ZnwdfWVIPYohqq+YOkCS4ZxWd+ngtjw82LpQe9O6P3OTKWGCuL6
3A6huD2dcPLjtvP09wSxMNv9WMtyBxxNd4gNvCmIP9Z0Ur97dUD9k4dajc6C
ONTpeoDpUAfA7bwBVntBDLj5LkOFuwMqbDpv6V8WxK9/7mpPv2kHDaNfYqFW
NPuTfC9fXm6HQk3h8lYzQfS93idkJdYOSkRNC54TgthHvSbI3t8G6Rxnlk8c
FURDwVd7r6S2wZYlr8gnBwWRfXNUaOudNkgYjlXr3ieIV+v3jn39rw0km6q7
hdQE8aFEpg/pUhtE5Y+4misJIq/AkatmV9tAIJpB4IWcIA5ctmTo9G6Dh3e3
FPTLCmL2vcs/uhLbgO2arrGkuCDGhhQF+/W2QaC53byVgCBtf19L+SrRDpsQ
8iieUxCl6fZbzzi1g9f2bKURJkFsexSg4NLVDssCba3EDQG0Enr/+yWpA1zW
5h0urwigLY9GqcPlDpid4OdMWRBAhYPO0zeyOsCufXfm5LQANsYyZjiudsBY
uZm+/JgAPrG8789k3AkDoS/vZ30UQLUZ9x/PuLugu4GQfbFdAPP6riukXuuC
1s20DuEWAfxZUviHs6sLqm+UivtXCeDmrQPOCqnd8Ppsd9apJAGcdHqzOe70
EWIiLTvY4wTQoFaJa3P8Izxr/7pUHSWALWGZLilneyHo8ML+7SECeO7BMem7
Rz+BvSJ3x7qzAJobvRUTFOiHy7bPlgrtBVDj1xdhJd9+sHolKW5nI4DxNhzJ
7ZP9YCSoYN1lIYB2v4jU2awB0DMsCLp/UgBT4s7yRrIOAuX+nizt4wIoYpxT
RDo/CLv+6S6lHhDASJN0jFodBEX1NjGrPQIYZevXPQFDsOW62X7+XTQ+oodu
zfoOgXTG0KVGRQHUar+o5142BCJjl4NubxXA72NbL52aHgJe6e+ZKrICeEi+
l3pVaBjYLFzbJ8QEcEGe6vh8zzAwPPn7K1pAAAvNu7M/mg3Dv3f+YsZcAtjQ
Fywt6zgMS0xs+5lZBPDV7/par9vDMHfg8aWKTX4MfVXEvHp3GL55igRd/8uP
Zw/7J5ffG4aRwrjMLb/40Ubj39Mh/2Hon93S3j/Lj+Y5Bq2R7sPQJZf969Ek
P745MCssYzMM7y/uFjsywo8sV7cXlxsMQ310hfbffn5szEnlK9w5DG97Dl7K
7ebHq1/3m17gHoZSnpZ7lz/wY0Tfpx/Sk0OQd9Q4U6yJH6MKP0qaVgxBesCn
tg/IjyKrlWYOIUOQWHX+V0AFP17+9PVNv/kQRC9PiO4p5keD78v2ooQhCLNf
uvg6jR+1+4KPb2YOwr3k2/csEvnxyfX47KJrg+D7mSGTK4bmXy/h0LGdg+Bs
wv/L4xE/5hN3yJkUDMB/YS9EdwTzY4FTd+mI6wBYN8pqf73Dj+l3/a+EqA/A
qX3K946786P48f7zV7AfDN1KMuiu8+PHHzfs8h70g26udluJHT/uUWj3AvN+
gKm6n/bW/Nj0ReXBS7l+2EM6Lkqw4scHje8btf71gapVl9ZHM3581xT0Pb6n
DxSizlwMOcGPUyXS/upFfUDuGAkEfX5sOJK2y+F5H0hx2GUsHeLH2UJ/teQ7
fXC+ujWMpM2PuRaSHgdc+iDRVdXZWJ0fSVVhx6l2fTAuF2Xqq8yPawxSY3dp
WG5wVSN7Gz/6/9YWG3LuA7vHFyQGCLT7Hjb/wh7QB5mH69dZJWj5oNQ2U2L7
YHZF/qu6ID8K1f6OSaH2wc7sh/WXufjx9OlwTqPZPnC9+DPtCTM//rg5H0Ah
9UOxkEUodYMPi7YWcbtd6ofl5kqnHyt8uKvX40xHBo2/D8FEcpEP73T3dCr9
6wcv1Xvq+jN8OJ4Z12tmNgBvJ6bFbo7x4XcLOi7G8gE4ZFT0pesjHybIMwaE
Rw5CIINYHV07H6pM+UYk8A5BU6l3qnIzH94kdNdFhQ+BgazutZAKPpTnrBjj
SRkG84W+1YOv+DDopHGvF+MIvEje//n6Cz60q7mUkm06AoOnX9fEPeFD5orP
chXJI3CxxiH4710+vPGykuWb3lf47+mGcIEdHx55Eta4eH8UsnUv//18iQ85
TQyEvXpGYW61aYjrLB8yhJgmT8mMgevlJ0l2hnwo4SjxfVv2GBSLLgdF6fLh
xz/8hmfnxmDlvaV9PfBh5kbIWS2lcfBW26JK2MWHO49Y+DMkjEP1VLCQkSIf
iltc4fbqHgf6uB8rt7fwYSv3Gj0yTMCRkyaDGdJ8qKNaqZ+rNAFBzGXVn0T4
8DX9yg25UxPQ/EbyNTMfH8quOy7we0wAh5P/vd3sfEh/rPGAdcQEGJAm7C4x
8OETugA+/uwJkMmJeCGzwov2lnTnCDgBScLnLnhN8+KCpu/V6PYJkPeVk+sd
5MVF+anSJwMTkD05P6vaxosVOoGbhK8ToHriTdFD5MULB0I27McmoLQswGu6
kBdVt/XrRdPO9xEMDuqk8KKakwDL18EJoAYLsyU+50XGEc8czy4an8XPbWsP
eNE/jv11YsMEtJxJjzztzYtElbOdr0smwKjWxarYiRe/m4xTWl5PQLeCFpnv
Ei9G+l58cvXhBJyOYJpxMOXF9ReSnh/dJ2D434f8Jh1eDN1Pt/O61QRY2zy/
Sd7Di1UFp4aeHZwAB3UF5kEpXvxP2fChEPsEuDK/SfPg5UVbe6fqutlx8Pqo
d0yAgRf9ii2SojrGISCldzZniQfbndUCFovHIcTd9rH+Nx58Gvjo8Z7ocXiq
s6Q60c+DX3IL9Nv9xyFa+G6PfysPyq896hH9bxxeT/DflKLyYJLSTgtX03HI
LEkQLy/gQZ3LNWe1KeNQeG9nlWkyD2oZGu/u2DkOFWbV5+ejeLBJgXw+kDQO
tVsN6UMf8GC0ecvfTLFxePd7MEnOmwfJY43qTwTGoavBXrfWiQd9+tvaffnG
YSDy79S5SzwYc9HxRQntfNQ2OPSvKQ8G8c7TuYiPw7S6qHKkLg/2nLtYNLFl
HBaYUztU9vKg7aM96gfVx+HPR7UbrYo8+MnBMzLj2DjQpdYJ28nw4JMjlXL7
bceBzcOknJGfBydu1OgI3BsHPt2vlq8Yafz6v+zQzBwHMRHn9X3L3Mg/ktVT
0DMOhMmNV71T3MhgIjfqx0R7T6UPD7kOcuOk6ZPXUXsnQCVIaoK7jRunwlmF
x25MwB7zrPsZSPue1EN/rGgCji43t46kcONJViGdLsokGDdaXPd+wY0vbutk
Rj6ahNNRk/xiodxodOnp7vKRSbiqwWRxwpkbWWJuNPE++QZOLBF/Z6y5UeTE
mkXe3Dfw6CXGBplxo+xMKmPgiSkI8oCvb/dx44Fwl2hb8WlILfVy2MHMjWmv
FxpP181AbhA7T/MKF46YuBwSV/kOpeYv8i/PcCH9xYHF77HfoXG55Hd0Oxda
nHEnSbjPwoTGoh97NBdu3/u1favQHMyy+JNSwrhw11hII5vHHCz18jRQ/Liw
VYju5EDPHDDd3MHhacOFHWyc7+mD54FLrzJb0IIL/Yfn9tcNzoOQ6LETefpc
uPuzZEaK8AJsKbv6bFKZC9PkD8z8d34Bdtxf1gggcuGxYXPJ/X4LoGZxr19a
iAsDnXomX8YtgPY2Ie83LFx458f+s25vFuDIymsZs7+ceJYnYbm+awEMmlRr
Fr5zYtgB0pvg6QU49Rwvh33mRK/Zwyo16wtgdfUEi3wnJwYnpHq58S7CZc3P
6XV1nCiSbnYkR2YRrqRrmuuWcWISvPuZr7AI9uJPGFsyOVFiUrM8Q20RroXM
5B+P58TXVPP0TO1FcP53+HzbE07ULkhge3doEW44xnGevMeJS2FRakS9RfAY
Xi7v9uREH+VbPq36i3DLyPiKuSMnUiNfMX8/tgje1AzB/guc+Mvn5fN4GvZT
Yaw5a8qJ35RO3eKk2QckWjl91uXERCUfrdO6i3BPoFTy0j5OfK9hcy+HFi/4
Lm/LmBIn2tAnDasfWITQJTuPK0ROHLnTe1167yI8sq0lTwtx4ruiN+1Pdi/C
Mz1337l/HLjrAkP30LZFeF7epugyz4HzkXY2gqRFiN4u3/9rlANT7vaIRUkt
Qlz0nSCPXg7cr69XFim6CAmcg7v/tnAgf3z38CHBRUjyVvt6+y0Hnus7UvWB
pmfqj4ePNvI5cMs2oXZb7kXIPP9N604yB+qc5Y3Zy7UIOe2UacYXHJgjIGTv
QcP5lOiooFAOHGI5yH6UZxGKC34dZvfjwNSY9eA+/kUoIxkuhrpyoHqS+uYJ
WvyKiNR4niscOBG+xaCHlq+3THQGT85w4B4i22iw/CKg+5m/goYc2F3BE/6I
lq+6ycLUKAoHPnjWacx4eBEaLbhOiatxYDV9qhTDqUVoabalj93GgU4SXPj6
6iK07qXmykjS+LncLv3rswjtmWJWiTwcOBbRzC72fBG6JF3ZtzBw4Ls2Cw3O
okX4GPa+NPU3O4owHhca7lyEvvUtNtun2TE+uLMh4tcifPnyqVq5gx25Hp87
UwI/YdRY1bGgjh17Df7Eitv/hMmaEHG1Mnba5HXjltnznzCbtN9tbzw7dlux
2Uqv/oR5oefEqifsuG+5hvnezl/w895C24F7tO+/soffvvoL/lxN2n7EkR3P
8xR7pn7+Bf/61nobL7DjrFmeQ4z0Emzomwfqm7KjkNSvxoTzS8C0g/2L0T52
FPzjmnhgcgn4F5yenWFjRwYx86QllmVQ8Ny36ZTMhovFsRFz1n8Ah40UxqLY
UNN8U0a96A+YH75sZvGADetXGVlOMvyFAJ6wLHBiw7HWwmXp2L8g5pbQW3SR
DcV2tPZfnPwLuf3F9PKmbHjo6NaIOOVV6E8etuDbw4Z7fywmGpevghPHz4BA
BTbM/Ooxf/PvKjA5s+T+kWJDlskf0f80/4GK1k6mr/Rs2BQYJJqf/Q8aEw7v
NFtixbDrXdYVo//AiuW0ZcskK1p9yDTvEV6D4E7//IL3rLhs9T5G/sYayGhG
Dm6tZkVVH1OKfdwaFMdmsETns+Ji/aED7+rX4BhDtSpPEiuW6EdNWk6vwcjV
LquASFbU6AgzVONcB48Pk/eX77Pi8XYdJTeFdeDa/a/Q3osVqaO51fv11kFz
g8xueoEVKQa524S91qH18h61ppOsyE+nzXY3fB2sWwwuaB1hRT4eX5l9Kevw
6Jl7CXk7K9JdWb/o9m4dtqw+GHkuyYp1M5UMtwbXoeJCPCcXDyv2zDD/a/6+
DpMKTZeWfrKgouWbnGucG+AdPhhmN8GCdmHueFpyAwSW58uGPrHgxcT+bxWK
G5B+lmnM+B0LytT+Io5qb8CBGjGehioW9At5lSF1YgN65JT27s1jwTvWoe7l
1htgH3bQJieRBXPNFkoZPDeA7qfZY+IzFjTz6z2t93gDIi3sKyKDWLAjHf07
0jdA4a3vBPstFowsfME/Wb8BSIrg83VgwQ3WYtUPYxtgHpym9fMcCzIE1vU0
MW/C7I/KK1eMWfDqb+9jQoqbEGDa8WTgEAtO9TR0zZpugtib8SojdRZUaZDZ
c99/E44EcgtqSrDg2ZH1ozixCQPTxANZXCz4pmw6+DQvHcX5hMZ/spvMOPrs
Sy6jMh2FpeTYs4hFZnyoeP3rnBEdJUbiApV1nBmZ2+DUFlc6ior/jZnbvcx4
gfcUb9ZzOkrjxH3hhWZmXOkSHAmi0lF+5uc79OUwYweP4yttEXpKsEhDlEEC
MwppBbVw69BTZLz7a/ApMz4OYHhA8qCnHNNjEMu4SbOPi2r++pmekjhsWn/r
IDNeq6hej25moOwa37Xao8aMm1GRd3UZGSn1M/wqKvLMuDfrrs8JYKRMrrTH
TPIw49otazXOSkaKgoDBDdMhJtTZWeU4/JaJUqh7hKR0kwn51Zuiz/ewUA4b
kk8H2zPh8wmF9CMirJQeU4ZHY+eY8ErqQmK4BStl+SL+fXmECdWpS+/nPrFS
tG5rd7IIMKGTWNrsng9slNY7kqzWzEzo0hU8/IaVnXI+eFX77R9GNIjN8Fin
sFP8I8vTb3xhRCpT+2BaHjulPk/NfySbEQMLdqaRfTgoZqWCpVoJjNjtoJh+
MIeDMln183tUBCNqHDlxijTEQWF7l29h6MWImm01odYanBTD8R07K/QYcdyf
K271Myfl8wynrbAWI8b2TX5TY+WiOC/ORDsrM2JAWJHbhDIX5elGOss2YUYc
5v6do+LDRekV2/o5YpQBB3btIt8X56ZclWUSmv/IgBd+PrjndZCb8mfrmP6x
FgYMXy0PkrTnpkjsTiyhy2fAH6leZsLV3JSsvf7fzyYxoP+1Czsap7kp2pQL
xLIoBvzUNqjdI8JDOW8o/fCaDwNGhziElrjzUOZN12qbnRlwo/J+7XAaD8Xf
cvAP2YYB3+3hzeMa4qG8vvrSZuAYAzaalfdKHuel7HbyjFY/wIAcWpnJukG8
lHo3i45wVQZsnpAf56rnpXy7I6ytJ8aAJyNfOP4m81E4fPLmIzgYsH1zYVD2
GB9F2VM/aYS2+vC8DaoUceWjeDj5cHh9pWH3OeNXTXyU6P9Eqxu76XFecl+B
7m8+SrVNgYtgIz3GRJ4vnNjCT2E5O9GXnUmPFjXcJJkQfoqCuV/Y31h6tLc6
W1VJ5acYnRSn6D6mx8LrZ/TPrPBTIvUM077coEddq77Pdx0FKFvUStwF9tNj
WbSzY9Y1QcrRnSe2X9hJj+0cS/HXCgUpjgrTQ1lEevT7r1Oo/48gpZggfUSH
hR63xj/pOhciRDnMfU/As50OxwU640reClOsJ0/lDV+iw5e7gimixmKUoK9z
1gqn6NDx16zXy2QxSuZQsMhNXTpkzLS4bPRXjPKzq8qHT5EOpxvCa5mTxCkM
fvovgqY2qU9/xL3jWpaggOp050nuTeqSyxydU6Q0JWib9N7vixtUJt2NaoFp
aUqb9MmEwN4NqrNauWG/tgzlPMcbp7JXG1TFRrKx4oQMxXssmFN61waVf6e1
No8MgVLfX+VaKrJB7Y/cmvtXn0Dh6ljoP/FvnWpnedLI04NAiak6nR5Qv05N
k9FVCuokUCoi5XWmzNepZa0JsS5PiRS2s98u02uvU3cNbvCG1hMp5oTUAAni
OpVy/CX/zAqR8jOTjAbf16jnJ98K9VuTKBTn0c+2HWvUByOjdC+jSZRH6onr
viVr1HAVceGNbhJlO8poFfitUS0mBn4JGpApHveGz7yzWaO6KUd5LYaQKfXH
Yj3H9NeoxwU0HD68J1MufhQvFRZao970rU3vNN1CeTEjpOqV/o+6bd+YNqff
VspkXveJiIf/qJpyIQTahE5Rc3/qlO36j1rptddKiyxHad/kzf6s/Y96hd70
R1qnHIVFmHPb4c5VanJkPG0ZlaecGmjRsSpdpbYyp3YRiuUpr18F27jHrFJf
Xo6PL5PaTjmgwPI6zXaV+j1SFpmXt1PcgV6aa/UvlUXI4MNgsyKllgm1tn75
S+Uqt9RWOrKDwvfO1/JA/V9q75P8PyK1OyjZp9aeOz/6S10KfFgZ2aBEGf9v
ReAj6S/1g8b6deuZnRSTZz/Y4o//oapuyF/zN9lFSTiTva1M5Q+18HD6jeP/
o9C647F8v7Dsvb0270uJQmUVjfdUdiWjhG8SSdGgkhVC0aQUioSQXdmb89gR
shIyCyFkRjJ+7+/P8znjus5138997vvzeRJUYFrqkm6L0DKKJRtMay6qwMPU
sTv0g0u4I/R2ycNoVago/7Hu4LqErp85nrr9VYOd490LO17/QSJZd+vS/G5w
nVFSEL77B//cKnJyMNsDhUv+1utOf3DiZyDZLncPHGTeVtu45w8OHZbpO3BL
E0xlvV44diwiHavf0lWpvRCxrfmTcckiumcpvJR8vBe+7ZKh2xO/iFUBsltG
/+0Fe2i4yOyyiKPHD9Twfd8HN63FtBI4FnHq/DGp8YYDUGx/9erDuQWU/DNr
fOsIFdYvVcZf615AI8ebqqXNVAjycuKA5AWcoHyMqbkK8PJFcW/voQWcapuS
Wg45CMWtVrdJXvN4I8p5aEFEG9a73uesnZ3H03kOa2rXtOHQIP3YsN48/tKc
y/vXoA2fptOMc4Tm8ZT6HQOmOzrQy/GPYpw1h2epm9tEGPVgQ+dV9YOxWfTP
L4yWP2AI2sd+L7t8nsVN7A1bVFIN4f6Jw0oW+bPoxPZ9e6XgEeA99ytc7u4s
8jPs/sg4dQRk/PZeqJKexUGrsxmFMcdAu/gb25r5DB4nbz+o42oM79Peatbt
ncH93w7LXUozBpFXzo6h5BkUzir4/XTAGDqXmJ8d6fiN/XLKq666JpDWFTU7
8Po32vCYZ264m4BvkbKJ64XfaP/fmplsiglsuWXO+3plGunsqna3MJjC8n8T
zruqp9FgX1bh1h2m0LjP93NN8DRu3fugI9fCFOIk+XdYnZrGRDP7HzZ+puC6
/jZkmjyNqXsUBviSTEF/QHM6YGIKW8nonltvCuJE0zHh3Ck0C+6RU/llCpX+
i5ygN4XPHjQIXNlqBhF2Dy538E7hpq9/BhkOmYHjYcnGiz2T+M76M7OClRns
25y1fS1hEjOT1Jganc2Al0nnUeiVSfQbefmkL8AMhke6JrbsnsT4rUWvjj83
g8Lay4bFdJO4bc3YWeiNGTxOpkszaviF+QaFGbIZZmBzP4ztx/NfuM56+oxL
rhmoOMo7ulv/wucbDJvmi8yA2bD0I8fWX2gd2vU4sdQMerYZy8fNTCCfvqTP
bZr9nmP4nlrxBAYshnfepsUHTLr//HhnAk98ClZMyDGDk00cetbHJvDwPs/E
sTQzkH8fmzRLmkB6OqVl41gzWA1RZQ4aHMdRqSS3/qdm0OJcd14sbRzv3D7L
EH7bDBKM/6t5f2McpZn3CnpdMgO3Xb83H94/jtVz4+/CTpiBIf+du1+Zx/FR
9d8zU1pmIDVPGr7UMobhAQ6aIVJmMNeedpguagxDvzc2BGyYQmR4G72C0hiO
P8z2ii4yhctuDnZlf36iUaBhzcAzU4BTKxUmxE8ULdvGnONoCmMiMv5eZj9x
PrD5lxmvKZT+zRvklvyJfVpLJQaDJvCkxwASRkdRjWtbgfR7E9CIvrbxyXMU
Q3iODtUdNqHNYyabs4dHcdVOQrKBwwT6rCPLFzhH0Ukp15WzzRjuSlf4SMaN
YLu+hW+RpTG0x/OuXq0dRo17bi9MsozAJfXDMp/ADxy3ZQ87ZmUIO7mv3jk0
+B2D1uLXjn0xgNnritw33n1HJTfikIqxAVzflyrbofcdf/laK+jo6sPNz/FG
Ed5DaHfgM1/ibl2Yn9huoN44gH9+qo5lGh4C19yUMxEOA6ixbJ3l3X4Q/vhs
cV2iG8CzbqSKWeuDsMwrHVuk3o+H9g6fYPUAWNXgX9wf24ubhG6mvLyzH5jv
LMfpXu9GMYs3NxQsd8O9ozfzkzm7ceabjsXpBA1gJc19Yk3uQpHwLaX5M+rA
nvrrT8O3r6j0VY56MUwNeD73Hz2u04nZicedZ//tAhHxmuVTIu14mNH4jYnx
NjB3kH3T5l2PnRXn96zs5YaH127cf5b3EZ80+frpObFBmXeVs+l0Hd5acvaW
CWaEzc/PHWizqUUGpbuJataL1DlM+NZ6qArL7wpVvTGZRylVfcV4vmJMP/e2
JvaiGDHzMtJ+NvI6uh//Km1noEJ404fV6O6xpAYP5Uv9ZVEllKPO1Qlq3Kba
t3n/O1KrSpipdpUGHQyjCmsodScfVCeuOVwarw5LooY/lhts3bGHoKPL2zhX
XkDtykmqlGrZT0SOC+4a/v9/ng2R7R7eBwiVdlc7+2/F1Kiz5LgmOSphn6RW
Y79cRnU4G1/6QAsIezmrGhXRSuqtI6ucm24dJOoaux+qmn2k5qYJBZ8sP0xc
9Oip+297PVXSNdxahlmbYN38jfEuQwP1NM+fW9pHtQnDW72+HTmfqG02Vby3
27WJRoWB6zcFP1OdXQSD05p0iMtfBj68nvxM1ew5yLXCoksEgcsfO7sW6jjX
x6BI0CW2TrqoPtJqpY5UmLE3Z+gSFw9ff/dtoo164lrdP+1resSeyLlPv83b
qb9+GuwwiNEjWH9fn2Coaqea6KpKfajXI1KjbmxVfNVB/aHZIZEhrk94zczr
AMsXap47o57BIX3CUNfV/sSNL1SOpP4TJy7oExOzrm+8j3RSuZ1lLxIZ+kSx
3iI+LeikXh1kub21SZ94+Ppmf6LsV2pz0b4w1kl9YruBm3jTv69UGcZxJe0t
BsRqzB/NoQtd1GQjb41EqgHRuOBmsdjeRd0ex3rogYUBcTnOPVwyo5u60yPs
9GSgAbHvz1LOLpEe6t6NzQrOUQYE51GPNp27PdR7FS2ufu8MiN43yzOWMz3U
J9FdtjJoQLxb8uC5evobldnr76r5ZwPC99hfpYCP36ivI5Op5H4DwijB82iE
Wi9VdV8Bv98vA0Lq71+ntLheqnCPo4nHkgExbeT1oJyzj3rOu7ORnd6QKE9c
SW7z6KO2Gicc1+QwJEJWvGpHh/uo+2SY45kEDIkzxv+GV4z7qfdYNoVcEzUk
diTdYuAp66c2nmj54StlSNCt/qPIKgxQa1J9fXfIGBItJt6wO3yA6vXtuX7g
Zppt5vvhLd0g9eGVdgjYYkgU+paXf9AYpBb+t+ErT7PjUtebii4PUtt5w/Z4
yRoS9zsO9FXFD1KZXl2v8SQbEi4bvpNNXYNUWZeriQoShoTFNvz3lXuIKnop
9/ZjkiEBJzfYv2sPUf34Nu16y2NIyPtRxSa9hqj9SdE1biyGBG/6bYU/mUNU
EBUMYFw3IP5+wT10P4eoJg5JIybzBsR3Ojp9dsnv1IrCM+/sfhoQDdvhlKDZ
d2qIQkenVo8BkW3u5yD14DvVsv5+fP8nAyLKn7gpj9+ppabfw01LDYiADLpA
lcXv1EdZBd6v0g0Ip68Qtm/7D2qwubNTeaQBoaVUkW384gf18cPbfCnXDQj1
js6I8vof1IHz13imzhgQO29Neimu/qBG9SR91jE0IOTqhQ+z2g5THet9KvWk
DAiB81fbcdsIdZL7a7FiqT7BzXm3QMl6hMozOP7g3Rt9gj0n8tWrJyPUJ+RW
62tB+gTdpppz7gsj1OWzkZ29x/SJyWjxBeXyUeo3p5Yuxi96xM/Du7qiZ0ap
ws9u+JzJ0yO+T+iWssv+pD4y9dinGq5HdO+5fnf03k+qGz+TwiUzPaK246Ng
jMkYdYvIybGBBl0iltNNnWtknOp9c/TceroOEZXzSPSW8AT1hnOC5Kl7OkSE
1Zu1MYMJalv+l8QIOx3icUpjTfX7CSpHvtvDAREdwkNb1tzb4xe18tDMaUqg
NmHq3eL2i2OKmslnO95mc5igdxPqtRedoXImFtuwKB4krM6mtRWqzVB3ieWq
8bMcJLINqfWcxjPUhip5voPfgbCTdszPDZqhHmeXp2OOBKLyY+lTxoUZqnGN
Ah87KxB3xO11EptnqaQkky6Zzv0EY0X2+x935qkns4MMAh5oEqfT9d7ujp2n
zkbscBbR0yRyw3tfPSqep9pNSjTxMGkS9k7MD1Rn56k7Jf0P7w7YQ9QIWJ27
c2aBaveBtW3DfzcR5LBJRFZzkWqtdMOcMVqd6DeO4HY/sUhVZDNhELNTJzT2
bmf65LxINdScs+mTVydGeU7OXU9apK5/u6znUahG6BalNFYK/KFmvOEa1xhU
JVg4jf3tpv9QbZsWJLVMVQiLrVaEBtsStVT6KMlzswqRdsh+g33zEpWxmjPh
9NIuwsjTwyfHconaRjrTxBC7i4gYjfNkrFmiOlzd63JucSchVzF7LenVMvWi
Xrzya9cdhI7bc7sJ/RVqoJJteRfTdiIi9PWb8nMr1O6ZnoLTlduIsYzkwWe+
K1RZ49p05dvbiMc/Ss7szV2hVvTFuBf+VSA6jIetHkv/o5Z3da9dmpMn7Ler
myn/+Uc9pK5remdBjsjXpT6j51ulhil066bnyxGsdgatndtXqYF2nNkmnnJE
xkvr47dtV6mPu/UmVejkiAWmoCMtjavU0FFVtr+CW4g7g52HryesUXeutfI2
2cgS/UVHrniUrlGR8uQG/05ZQus5EeH7ZY2613/xPc8mWWJGJ238Ics6Nfjk
VXbNtzLEmXSfJwmX1qnrv5jFz/2hEMV35wpT765TY/be+xzYSCGEzlz4/uH1
OvXW64K2cwkUopHXRL308zq1t9OE44gZhdBy2/ytQ3WDGtcp8dW3hExEHI9k
/HZ0g3a+J3TvfkEmZuW5lYfOb1BtiXM1z2+QiZRvS35TLzao1d6cv8jKZIJ0
8JMc8+oGVccxZ/K3mTTxl0mzSNyODmTMB66YXZUkkq7PN8VcpQPR61e+JalJ
EicG3n2n3KID012e9l7/JIjMQhlO+TA6KDl75pDzQwnC4RKnjVotHVxXNonS
zhAnOloGGI9t2wQ+s+JhQkuiROarIGPfuU3w27ik/L/HJOKTQNBPHjp6iDex
9w42IRGjjwJ933DRwyezjxr/SCRCwvtuRrU8PfCFXOYuiBci7p8OYOWwoQfO
gsnvy+WCREKHf2z0ZXpIb3zBefyeIFF+1F9D2Yse1Kt0g6nGgsTCPj97k3B6
iJnnUpcaFiDOSvoSLz7RA9G2tYReSIC4Fe5zSqGbHr5LZx+z/sFPRHD5TBeP
0kMBVypnQjY/0bh2S6J/EwOcPGVazXGCn9jT7+mxeQ8DBHcOaQ/F8xFm5p48
+ToMUHhad1nBk4+42uyRpGfGAAdPiKd6G/MRieXuHU5XGeDZkp3iPno+gjf2
5s6sRAbI+E+4ofkaL7Fd+GbdoWwG6JMplhQz5iV0n7ie6UAG+KN8+vKxHbyE
9+0bj5d6GKD6+ZFbzwZ5iDGba2P7+RghmNmNYe4PN0GQr8Q1+DCCFuetmt0W
XIRzvD3vsDkT/DrzOv7NAXYixDMyOuQcE+hKxJksc7IT742b5TVdmOB9idJw
RQ8bMb2++2DIAyb4bv7n7AdXNuLyfxzX95QywZ7y+fsm8ayEk2B2+2MKM6gP
hlXQ9ijx8NeozW5lZrhjEvvgTi4zkVYpPjmkxQzv2HZvEfJhJsZdAhl3n2CG
bu/DBxO5mYmLTRbqQ0HMwM4xI3lenYlwCNqIUJ9khhDkY3gXx0AEWavJDi4z
w6Gd+ikC1xmIJDXHDw+ZWGA43VL0gTYDMfK9rW5AigU6r4zgx0l6grGY5cTD
7SyQmPZ5Z2IlPbE5dN+g2h4WOHkrsyEzkp6wpyYtPzBhgYZQy8lrR+iJu6Rv
d9XOsMDx4OemSnL0ROIUD9+AEwuIxXqHbaWnJ3688lRQu8sCxXNnjn0t20TY
LR+16s9ngZ0NuWebDm8iAj77j96vYgEcWnVWld9ExCflX1dtYYHX56E4m2sT
MXSC/Oj+OAuExyycbvtGR9ApnhRW/cMC3ve+ZFlV0xFkhocJffSsYLgRYd34
jo44mzVfoiLBCvcjy2123aEj/O7L6/fJs8J6LH0kkzMdEWdj3XFPnRXsZn6K
B/5HRwxw1U32GrHCouZbpYMadMQZpyjJe/6s8O+X8oTL0Ab+62Zrng1mhZT3
CfvDiQ18aeDpezqKFT6w/PP6HbuBrfIWA7tyWOFAxlgnntlA7Z9Cb3qHWeEt
h+L+k93rOGgeaKI3ywp6BFtJev46+tQubMpeYwWDbdUlus/XMf9tu909Ehs0
ejpGTRqso4J96GYVfTYYX3hc9iVtDWvb6b5En2CDaxeeBsj4raHdYZdAFls2
+LRZe13pxBpGyxwf7fVkA5m4kNWLy6vIPcSZci+dDcwfBLcf3bWK6cbeFnMF
bOBl68B+evUf6hO/WK2r2cDta27t7tp/6B/b4KjSxwbPtB9fuWf+Dxes72/v
42aHOl3uXf9dWsGnTUvf9MTZwYRb61eo8goq7b/wOHsrO6zoxtdun/2LDhK6
U/eAHSpOebLPuf7F7h6GDyrX2UHwzMnLA57L6GZ4w+a1Lzvocm8O27t3GfmL
v/OwPmKHoM93Hg6tLuHRyAqXvgR24KoR9bnrv4Tlp26r3P/CDnleiTb2z//g
f3XT3+eG2GGoPJD/qNUfXNY489x6mh0+7BL4ayvzB3eR9i+osHDA12eaJe75
i9gcmJH4WoADjKo17yQELKLTovhJVjIHhF9fEz1pvIiJHSt5fXs44IFi/sOQ
mQUEbScHfR0OiPsyvaZatYB9Od2kHBMO6KdLMYh6sYCk54Xu9504oCee/XOT
zgLm0MvLz7txwA0Gi9pk6QU0vv6iy/oOB7TfGaA7/W8eH5i4aapGc0Dxm4Rt
Jwrn8VnjtssZqRxwRUjRjf3FPEbrDcRsKeAAMxcuy+/u85hU+bw1ppoDElgN
t7ZazWPmfn1GkTYOkGkt1q6nzmNx4apG6ADN/6N6X7HcPFarZjmyT3FAZE9R
/1OeeexSEPu8ysIJZKFIr/DROfye2LzJTYgTvmw9kfC0Yw4npe+o/ZbhhF12
7gqc1XP4J2r3hYs7OeHlfr8r47lzSEeajBzazwkev0UFWJPnkD00rtHqCCfk
JVF260bNoSDnyY12C07o7OJM8QuZQ3n6cvvaG5yw+PtagIXnHKr4XH9B9eeE
N7FapHTnOdy3LNdQGMIJ/ScHa+0d5tB4+smO9FROWAvOanc9MYdWjtp2mws4
Yd3glePtI3NoP7wc9rqaEzRdbTisDs2he4/typMBTnA9pxr0W3kO/U6SlNim
OCFd4IXx+c1z+LClwSZghRO0Lnp5UETnMOzI7Wf/WLjAe9nMjIlrDmNqVWtc
hbiATyZXYmFjFlMOji1NyXABfeJ72fbZWcwujd52YScXFGzPWnjwfRZrs5me
Wh7hAsGTmpoKxCy2KBVXtllwwaeyds2pjFnsSbm6eMSBC7qDPU/Cy1kclpWV
r7nBBV/62XcJB8zidMxXqwP+XNDVvGbi6DSLy6KPgwtCuOCSk6PCLpNZpA8H
Ymc0F2xJ2yl2WWMWSY9St8gWcMGPszxPqKszSGY+YxFdzQWvLg7dHeqdwW3+
/I+E2rggmbPKlq10Bg+435phmeICYfGxQgm3GTx/7ljJpAw3bKR2at/O/41X
+zdNn9/JDe6nnZPbz/1GD8t88sB+bujN0/Tx5PmNj49LB7VacMNP16DCFLtp
zN07a5wfwg0vTOknUjcmsTz/7Z0d0dxg9fDvyp2kSfy4yyo/JZUbmO4xNRPH
JrF3a5X4q2puYG3Vee0Z8wsZBcNHb69wg9bUdi594wnkn/bl5mfhgRakp2tg
nkDKx4saiQI8IMfWrWKD43jAe1/QR0UeOLxsnn1p9zgeM5d7b6XJA32nUl7t
WBrD0zt5Oyd1eCBvIC80tmgMPYd/bOGz4YEmTc09S7pjeL+86VjCJR7YX8Bm
yMM/hhEvC26qe/DAtqWwMdXBn/j2+pvXdXd5QLy44viNrJ+Ye/RRjWUoD/D3
6L/8GvgTK+VuTv16zQMRz+jSHax/YiudjZBvGg8Eu4GWzJ6fONijv5+3gAe6
I85VsJB+4nSuyvn4Kh4Y9z7/kHdpFNdCJILVWnjArCG4aNe3UeR0ZM6r7aXV
fy1kc7pyFMUOz/RajPOA4f7UEJ+MUVSQ7GH8tcgDAvvivH0jRzH6n23EgU28
IL5eFqf9YBQTxszT7rHQ7Dbt/qxbo5j25Uh5CxcvfCFLZSW6jGJ2JbSJCvJC
oli7zfKFUSz6oD5qJ8YLat7sKoG2o0hEb1tJJ/PC13TNdLL1KH58IM29KMcL
nK931b+2GsXPboIyB5R44VfANt0my1HsPMemcU+VF0rDJvt8aP5+43WDFk1e
CB38EO59ehRH9s9biwIv/AgwYA63GcXJbWPX7HR5wThIMyX03CguCPcFph/l
BS39bZR9F0fxH2Nb5IIpL3w45/LM+soo0s/VvttvyQsrTKJj5ddHkX2gpCLI
hhci2QTlFTxGka8x88vn87wwd4yl4rzPKIoUvR0XucwLUy8suw4EjCI5KWrN
9jovkN4yvrgdNIpbnz/hS/eg6aFIuC7Q9FL2u7tlwZcXXquL+V96PIoaVzw1
9wfygsMFwbTc4FHcb3X1WNAjXhDqHNp4Q7O19c7Zfg7lhSLV84sstPijahY3
RV7ygqem4Ouy+6NoRjn2wDaGF94/nhiKvjOKVtyHXqcl8sIVY4nSAO9RtPun
kTWfxgt0wwdsj98YRcex7TX7snjBg+ut8yhtPVy+kLsDC3hBbiJbcAdNT49K
oanmMl6YuLqoJGg4irc/sG8SqeaF5B8t9nd3j2JQ9IagbQMvTFe90b4uM4oh
Dxbk01p4Yc8d1SMd7KMY7ja+b76TF4ZmPeYTZ0Yw+ly/8b4+Xsi39ir+3j6C
icbt9oE/eGFx8qbU09wRTN//0aN5nBf+Ce5+mfNsBIuFs+PO/uEFJYV/2g/1
RrCCMTk3dZUXTl7MrLSWot3pZl99nKPnA7VvzAU/54axpf9p7142PuD9G21+
sGYYv34KnLnLwwebK46p3QsfxpO37DSiqvjBOzf5MG9zH0a8FmRequeHhbIf
hnlVfdiJtV/MWvhBZjSH921uH5K+e7zN7OSHdHjYXBPXh+aM229y9fHDqZD+
A0z3aflyfdpOP/hhJsc+x8KpD7/qPxGsG+eH0j3L0mV6fShy6eCw7Aw/tC6q
iO0m96FF8HyO3x9+YJLLb2qb78WXH97e6VvlhxP++0cSKnuxq/WUmRaDAIT2
Jl6sedyLIgtssi/YBGDoo8hTS9NetCSVzs3zCMDBpuLHDwR6MWrP1UpjkgDs
kOfTC2z5hj1W5GfvJATAnDlV4M6Db2gVe3fXBQUBEGvqPuo904NRFRqbqncI
wKBuusWm2B789mOshawhAOs/B4eiDHvwtPwxl55DAmAf8CbdNKobrbOEPhw7
LQACnDpHH2zpwpj2Ot80OwFoWqOoHq79iv2LnkYsjgLg6bb6e9zhK57R6p8i
bgqA11VOmbupnXi2KklR7YkAGEzU/Tt74AvGjVisPg0XgFoyk9ncWAcOsXA0
Tr0SABvVySCziA60O+p8KTlFADjpW6fLVtox/iplL+MHAWC2Z390Krsdvz9t
Z7fNE4CfB1Poh66047kvu9PEKgXAXdZ/PHm2DROXxj3dPwpAIfWgqH5xGw6L
Rht0NAvAfzeXRV7fa8PN+4xEd32h4QvVp9dZtqH9Gbrx4G8CwPh68vnQTlq+
X3bhxJAAyKSMO69xtuFIvP19vTGaLXY9Xm66FeVqSBaJ0wJANmfRse1oRYef
H7duWhQAuTvXt6RhKyax3Vqy/kfT7w13858Prfhzu1Jd8SZBMDVve6n+thXl
jQYihFkFwcVyqfFYbCtedAl1cOUWhMk2rjrpmFZMeXZYo1VQEBzTtLYHvmnF
sdxFJmVxQXjUaUwxSaXlf03+8pAiCBYnL0QZ57Wi41/Ltz+3CoL5i9uxhjWt
mCbOeVNbWRAsZytT6LpbcWJ/ufYbNUHoPta6qjzTitvOugiuawlC190nwsHs
begUIDNsdVAQBvm7hZu3tmFaYkdOgZ4g+NE7q77Ra8NftUF3BI0Ege2X685s
xza8zPFLptlKEOQ9zuQo59D8nsWMHLaCcP/OIR9yN63e2INRvQuCUNKW5jO4
0YYXauTTKm4IwrMMpkhHo3YcVV1+tO4pCP7x6tn+N9vRPr7uyl4/QahPZ11h
jm5Hu9sOu/IeCwIhkx5BN9qOQ1PqAnPPBIGp2Uy3ibUDz55mWlSOFARR+oTa
QoUOHGjo6LwUKwg1V7Imb+p34BnNxMKUt4Lw+S37erF9B/Yl34gaSReE3KhU
4UO+HXiadNhbJlsQjD7pPakP68Ceu/xnbAoF4aGfu5FgSgdazg9Ro8sFQSCJ
fetEQQd22WZRuqsFIdvZhCxS3YHmLX4MpE+CUBFSW+rS2IFfDhiPmLYKQsGr
+t2NLR144p103ZOvgvBrRKCEtbUD28V/pzT2CcKLtthH7E0daPqw/CHbsCBI
bq9TKqXVa10Ovqw7IQiq7o5+3IUdaHzB2ujOjCA4HF1uXk7qwM9fFHcSfwTh
250TPR6hHWikvcq3tkrT/6xr1zP3DmzM/jSvySAE73q/OplYduARyqsvbmxC
sNe671GNRgc2PHEqyOERglPMpBvMvB2ov64ZOSMkBJ8ja1x2jbRj3WW2W0oS
QsDjVEs45rej7reu004yQsDWIXSy60471hikHEiWFwKPfMuX6cfaUbvQnTys
LASVlsXywoLteDCcNGy9VwjaeJK7X79ow33HT1wyOSEE7Px0exL9WrGkTPZY
iJUQECQe0nGNVtRSnFf+dFYIxJ7S3amYaMHdbM/mtK8Igde1Xdv0TFpQpeqz
554gIQivnCLz72vGrF2x/918LASm3tEZ8klNuDPu6v7sZ0KgP+W8wCDQhEo+
XJsUY4VAgVfqgc/SJ8z41fv94lshyBe232fg8gm3WWVUv00XgptmDz6rTDeg
/O4j96ULhWCq/V6c8796TH4r5nS6XAii+5Wk8h/Vo5zgxJHIalr9IFLKhkw9
vg0oUupsoMVLXFR7X/ERN8/e5xFoFYJG/XQQvfgRE2wsZo9/FYKhg12WwaSP
KNO8tf1xnxBsdlXLPdJUh3H7lnLrfwiBo2Zw+4PHdSidXhvBPCEEAo7a2tdO
1OGJ2MKihhkhGLg6rxpIqcOHz9N6Q5aE4MrYVcdNf2sR70VvmK4LAf/Vfx3j
PbW4cCtERpiJBOf16Q/uqqvFbS5+Ot84SCAUl+RSVFaLNvbXL8byk+DAeruV
WXkthlnYPzonSoJywRP++LEWG46av99KJsEJ+yPn3vfWIt1B/dZfciSw0Tdi
r6DhqatrLXxQIoGgj2DWA+k6dFJQFHZVI8FrkaSAx8do/UhKae3ZS4J27TwX
uFOHnXy81qsHSbDtQJY0L1GHHMz0foQ+CXbwr45aMXxEt+mRGn1zEiypSom/
i/qIGd+/jnFak+Coi8h77amPONRZz9F6jgRXbq8IeR2ux6P4zsTyGgkYQ1Vq
o5bqMSAn1lXSgwQ37PXdf5k1YEFy6IshXxLEObj4J2c2oMzTm32Oj0ng8Kye
XfbiJ7S4e4FO+TkJ3LPdmfQrPmGwh6XsXCQJTpMU194KN2Ll5SO6+XEkKKhl
dvFyasTls/sdvZJJMOl23J2tqBGVTu54fOA9Cfr87q/H0DehnQHlA30eCRzt
P04+0W3Cl/sF2mpLSKA4c/XA3rtN2LSLafFhJQk6yA5cHCVNSC+3JHy8ngS3
2PYH3Zxowj1i41oCLSQYWH/0cY2vGa9wf7P+2kmCP5VqWWq7mjGevsnvVR8J
vm7ZHVyk14xdf8oTbIZJMOW3kqN1shm5fmXWyv4iwStlEqubZTMeGogf/zlL
gv0izdaaJ5rRoz2MM2OZBCnib2vtdJrxfV3QDpcNEhyxCqsYVGzGHyUepmrM
wnDMP/F4NnszimQ63VzmFAYdt47J0f4mNEo8/bJUQBhuXL5wJSa1Ce++NCrx
ExOGz3u+I+ulJix6DP3aFGGQKVAKOy/bhNN+KpvY5IXhwV2/MYb2Rtx8c/Pm
JmVhuMrW733Qq5H2/iXphaoLwxE6WeWHoo34xJrV6eQ+YcBvqHkq6xOu6Ex+
6DMQhnvXZDXeNDbgTq3+tjfGwiB3Vb/4iEkDnlduWTx/Shjsz5KK21vqsYWU
u3faXhi4Ro5+2Ff1EZk5ks5kXxKGlVeNEk92f8S9Gy/83a4LQ77ymTuxqXWY
9PNW3fptGp/gRxLcD2vxVuFhM55XwpAQeEh8zKQaVU63zNi8EYaBV69Mq9uq
cGLjdEhmsjDExsWXzJhXoZWeW71JrjDUfuN/732pEvl/0V+ILxYG7rI5venV
CmwIecI4TwjD4Qrb1LbnFajVmUINaxKG6jKhuup2Auc81fuG24Vhx/b53EQf
AtMkK73Ue4TBaMEiPkqZQLsKI5GgQWEIeVwWM9WEKHr+W17nqDAwv/c5t3YM
sYX1otnWKWGI/rtFvruvHO9nLMy4z9Pwdwk/6vcpRzD2D/n4Vxh8/5PIM1Mu
x+V5LkVROhH4eJu85vC7DDNfRNU7MouAzsmO98oVZXhx79YLxZwiUOx0byEl
oQzJAzmMHAIikOKrM1wSUYZdARD/n6gISMYIZqpHleFTuSZqhrQIzLOtLze+
K0P9Bsu+1S0isKfaQpvSWoZ0V0e9jimKwH77V89KGMqxgO+GSIyKCNgS9SQe
nXK8mreRN71HBHKP2HN5hZWjnOVjMypVBLS1QrN0Z8uxf1Vk9omOCGhwcR7P
sEKMiHsbMnhEBDxXDji3fEbafFNR3GUqAtYwxDO8lUDmsfJ6fwsR+JGtlNJ4
mUC3HV2MsudF4Bb7QKgRQwUqt9vH37gkAp3dkthsVoGjbrPU6msiUHHzAANH
cgWeLGe/dd6XpoccC5+FWSWqHds/m/xCBPKH/hYfyK7CyZn6kOXXIlCyfiqv
iKUaE8PMFQ0SafzuRrJK/FeNgr3OFyYyRWC7MjIZ/q3GxturjHsLRMA85vT3
lUM1eFf2QfyjMhGg+BQI2dyvwX11QtBbJQJ615iMlj/W4LxTfJ9igwiUTbM+
O85Yi2ncO275tNDwo2x+LWrWol12iUhzpwjIh3cwBjrWopi5fr5UHw1voaMk
9lkttv3tMHP+IQIbDbsT53Jr8eFr21kcFwH+s7E+ai21eOjgdAjvjAgcSmuO
lBuuxZVhL0XbPyIwpWGvGj5Ti9n3WRqyVkXgYUtA7qnFWnRSDLtAzyAKi0Us
U8ZztSjTQruIs4lCzQvmPc4/a7Hnxrv4BB5ROPj0v6cZHbUYKqwFC0KisMG6
P4y7uBb1S2r7tCVEIUPos3vSC9r8sDG7FS4jCgzv20efXqnFQvpBkVF5Ubi9
Jf3L4t5adEm6nK+xQxRSUmYOsjLUYv9n8XBuDVFoNE39bVVWg8f+NtwY3ScK
/nsndhc512CpjJdp+WFR2HTqwb/HYjW47ajCrghDUVCNPrnpWHk1vrzZxXPV
hFZ/SGWzN219WGLvTetYiEKr1/DllLkqHJ4dSV88LwqVca6hdnxVaCoe/rDp
sii0hR0x3htViRXa2o5vb4gC+cPWkkTpSox5ES930l8Unv+OCmGWrcBT+23e
5EaLQoMN+cijg+VY68Dt9ziB1l/6yotzOmWo9rTsjH2aKITb23EqGpUi7w9x
CcFCUbhB/dql5lqMvpyfVn6V0/DX/1pvCyvCKXWv7qoaUViwXm24WV6IDfe7
Im60i8IKnV13hUYB7sm+d/NIjyiYiOvDWFA+Jn/TOCE7ROPD3uWTMZKHJKZR
lX8/RaHD8Hn8iFke3lUO52ufFgU6bXEZ47ZcnDulPZO2KAr1/zW+emybi7b+
880Bq6Ig/SmyXYo+F1vS4t9ZMYiBptPX3su5OXigw+SxCrsY1JTqeZR75GDG
Gt0ldj4xeEtcTtp3PAfFt2YafBcWA7pHeHV2dw4+NLaRL5YSo+0Bkd46lRxc
9uRmebZFDHbaqyo/puagQ0LZiKOiGNj9m6BOWufgl8bL1QdVxSCq3ZziEZyD
2n/EE0S1xMBSpng4vikHs6U/+c+CGHip10RXSeYi2cDrbL2eGKSw2j0k+eTi
k+sK1DdGYvDu6ax7+UQurr/qkvQ8SeOzFEqtPZ+Hl2vurRqfFoPLQ2WeMlN5
2DOt8U3+nBiY1hmb5NzOR32R0SI6JzEQfFXmqStRgFsuabtnuouBh/Ras9XV
QgwLmz9531cMtrk/MlKmFCF9ebza2UAxuFvX4fCuqwj7eTfN8TwXA85b19Pn
j5fgUa3Mlp+RYuBdFQ8dnKVYcs7mA8aJwb7S7L0vP5biy/yyy87vabbQU2v2
3eXIPHj5iF6eGKSqP+IZGy3Hm2wS26RLxUCvy4ud6ynisMon1qVKMdCPH0oJ
FyHQ9LTXz+Z6MWBqqyr1tyeQCFSoTWoRA9fDlbaq6QTu+NCV6PtVDGKNVJ9I
TBIY03Xvjnm/GMj7SQcUyVUgJ/1uO+URmj7Z7lGhVhVY5M5gNvpLDDaEzw56
BFWgw9TnwzFzYmDFqc9JSq9AgXPRauZ/xYDcIHBe7GMFEl0Xt3DTiUOx4di/
w30VeMVInVTLLA7HHH0EzkxUoFj1JhZfLnFY/OF+7eDvCqzVbF5SFxSHUUOj
yI5fFXjjQ9TYlJg4vNtjO8MxWIHkLRe631LEwWZA8NP4pwpsjFJtsJYXBymj
QTvfDxXoyUtXIrRDHHruXM77+bAC5YIa05vUxSEkkuGYyZkKbP/3Mjpwnzjw
KeXNzStUoN+188H7D4vDj7vFhkLTBCr93OW7aCAOcT/r/mOh6dNzev3qO2Nx
sHsqTi9vS+C9tgab86fEQf/93uODvASq6b8wljwjDkcDx97r3UQMUd2pEnxJ
HD57rr0NXy3DvamrMjrXxcEiWj4mUKUMx6TqBdY8xOF05seQnrOleJDdbvFy
kDicEnaui0wvxunbyqObg8VB/sLbqpCGIoxaXOnsfS4OranbRv6OFuLC4PPC
o2/EIateUc1fsgBTCmpuKZaKA3nrzcNWSTl4UunZ5eFKcShLOzLR+yUb6RPO
WEfXi8NGSoCYLFc2fhDZbnSiRRzOFBpVGx/LwtMhSwc4v4pDtipjm9eLTGRj
rN5R3ScOzDsY6g27P2C+51Oy97A4HNy22eLuq/do9/s0n9ovcVBTmias3d8h
z3kF+slZmv7WW/MuXM3A0p7FuYRlceC+9ieBKSAdLxpX/vhvQxzGnrf5XcpJ
Q6HakA4BZgnIFG7rfsWQhpV7/6v5xCkB+6tswOFGKjpnbc2/IyABqXFfmB0Y
UlFi60LSXjEJuJE1fWJTbgrWRxMv5skSILHPJexiYAq68QffT98qATWXezQi
3FNQ9r6l5zllCaA/8V+H0cMUbFnb4iSuLgENVzMSKGUp6HNjzqp9rwRsxM4Y
OPKk4rbx8iOPDkmA8w7SpmN+qfj1zKN9hw0kYNdCDn8ldxre7Til9O+4BGhl
NiYGF6XhLsPNUjnmEsC058wX3dvp2I8z3JesJaDuEZlieSYDH6mXbcjYS8Ab
Txs+lpPvcE/6g5keJwnwWzqneMX2PT6LkGkz9JCAFvPw6DDLTKRy/q6kvy0B
cg94pzhWMnHSvySnOFAC6j00sv7FZaHOlRPh255LAHG8cvHsWja6Piuhc46U
ALN7DA4HEnMwsUDmck6sBIRYzsXdOJqL9PSzh/ZlSIC9crpLbnQeqmy1eO+X
LQFhG/3qqYfy0fYoitYUSoD6fJPcp5F8JCKCZ47VSMDcbGXcU+lC/F2y8N+z
TxKgzTUXczC3EKWG/qvrbJWAjm1dXvsPFaERc5WKeJcEhAq6Bb75WIQ+27fF
2PRLQHCp/KUI3WLMMA5lSxyWgEGYszcpKcbem8uuYxMS8KdJ55SQXAlyvLIZ
VJyl4TcSvapBJahF1B65tiQBtVGWe7m/laDjiFJB3poEiMWkHyJtpp1/7OEy
KwySwC6uwP+Z9r183LEafIBdEoruSNc2PS3FpRPn/gbwSkLlkxj24pxSlPNq
sK8jSQJbtcdzo/pSNI/d1cIhKQltf4s9LFtLMbD65V5jWUkY4ia7l34qxdzx
jaQwBZr/rbLglcJS/MF9gb97hyTc8vz61vVFKfKrNftIatDwWML2z1wsxUOW
6uO2+yRhC6HkzqtUitd8o08kHZIE/2e3t4sOl2BcAgMxoS8JsilpLLYhJdjy
0Wn7juOScMbXhs1EsQQ3plojbpyUBDdf+qFz5cWoLKBJX/ifJOSVvtTaolOM
1nvirqzaSkImZ/D0zooifGzN0g0XJSG4yU9cRbUIfyV/+VDvKgmP1MfKWVYL
UKxpnzj3LUk4Yfj3+c0TBWg4lxBk6i8Jn7jZDdiS8jFl33Xrb8GSMMO3JVlv
Tx522XZ/lA6ThPIzpx27vHKR5R6o2UdJgpIlj49FMW3etnJzTCVJQp2c+u5t
atko65BeuI60/NOYN3zmPZo+4t98uFYSBoSDXzn+ysCATM8n9xolofhHVGC1
fzoOrug58HZLwlvS2OyJ9hTkJX9oPTEgCdxHLo6wPktGqg5pf+SIJEhl2dY+
tE3CmCfDAjJzkpB23l1raU8iNuUeue2wLAmfk+Xsog8n4Gp39kTauiQEuDvV
+dnHo+KGqPlvRinYHUj2yI1+g/9t9q9Q5ZCCUYfZyi1TcfjQYEzRg08KiC/3
JmPN47D46vGXpcJSEPjvwI6wnFgcf57PsElKCnrHuyuPTsegSJGks85mKbgY
L3tB5kwMrp9LFufbLgXFBu65JuuvcZh718feXVIQ/pE/PrzvNTYUFbum7JEC
jZ37JFP+vcZMe22KK1UK8jO9nbpPxWAET3MTVVcKjBiZ3flmY9C7+JQXxzEp
2Now291aE4t254fkvppJgRy1BySc4lCP91J7vJUUKBz3vruJ6w0qlizcvmor
BWLW/uYGDW+Q38FXUeuiFCQlmDt7xMXjMi9rN5MzjW8Vg+pEcAL2l4QGtt6U
gk617nvtTxOx2kFc5bW3FORxkaZ0kt9iGt/b/ot3pIDTSb1R5XMSul0o3E0X
KgURce8C8w1T8TT/oeFPL6RgWKHWLjMyDQ+VfXr6IkYKjnZ+jJ6bSUdugYFx
5Qwp+K5Uynz5/XtcKLsYsZJNsxt+tn5mycSei3OHaoukIPnboVshBZmYVM4U
bV0nBVaCz+R9ebLxseMTfYVmmh5HnL3352XjdUHRxYUOKTiSGXDx0MkctMD4
N8Q3Keg5NpvmOE27PzopGj3+LgXHsWVz9O1c3CyUv3JqnNaf3LF3LSx5yE5Q
k2VnaPVFAxu5gvJwxqne7PcfKfjTsue/S3/z8IuQGV3JmhTwH33JKGibj8VE
b0YQozSIhX5I1i3Nx7hLDpamHNIAe+UjTrEXYBBphkmKXxqsqkzfZxkW4OUK
z+xxEWnofJVi9NW7AE0vM9jkSUtDHr0W5Vwc7T4tHMzhLycN3qFYxppXgFKV
pMKjStLgx36UEl5cgIxX4uxF1KThwfaRlenMApwQ3sY3rCUN7U9CG0kvC7Cl
Mqfsw0FpYDHPHZRzKcD8K/udbulLQ8JQl4CZZgFGi9SR9I5Lw/gHqxtj8/kY
UGVcxW8uDSqJr7OOxuXjxas9zv2npYHfuN1l7UA+GonaS6Sdk4bGYyHnn7Tk
oVr11MebTtKwmJhq+u5kHoo5u988eE0ags8ZDJI+5yKd2CYZLg9p2Pth+Xjs
/lxsdBa8lRgoDTqpVrtyaPMlWyxmq8tjadDuECU0TbLxZc3Wjr3PpeFdSw1T
2+ssPCe+V6k9Tho8ag3XCuQyUb+2ujsmWRo2ayzsK2h4j8rXjIKc3tP45nQW
XDv8DldqbQc2lUrDjTyq2qZdafjs+v3QnV+lYZTMf+A+JOJKY0bh/T5pOM0+
91B/IR7ttrYODP6QBmePvv2Xct9gg/8is+aENCyY/N2fGBCHqr2iyqEz0jAW
2X5tc0UMRmscODn+Rxok2tODPWKjkTHUzvvgmjT0Zs+ek06IwvybVa2Nm8jg
9GixvqT5JU7EnxxZZiQD3RYp5rzNL1Cq5efyZlYy+KWoWaomh6PpmienCQcZ
POQKRiQswjBoGyfZh5sMm72S/vJrPseSUzGqqXxk+NScXO585BnO3N2p90WQ
DMIxlWbaT0Nxc3al1SYRMnA325qdYg1Fi4ETV5XEydCyO65ONvcpPub86W8p
RYavirohXc+fIqHpGR5IIUPaRw0li+SnuODAkZq1mQyRdI7CmtNPUT7sdWnf
VjJM/ey3rb0QiqcrdrSwbSdDevKln3QCz/DpdMUPdWUyjPjc7I6bfobV4ieW
bHfR8GSoJcJ/n+Oy/ih7iBoZ2qbSqp/tDEclNw+p4t1kaKJrSVl7FoF2Cewq
o1pkcPuqUMok9RIjWqJ1+A+QIelezE3Jz5G4vq3ispM2jc+euiKNl69RxcLM
L0KPDCe0js2JpcWiQ+DI80pDMpRfyk6enojD5gG2EjETMnQdPvUgUCMB6bmi
m3VPkOHqxYWFyIuJqKGl/P36KTKMba/UPRv3FmPCTNk+WdPwN311tBBNwbaK
YYmls2S4L97xI908FZl/u+2UtSeD644hw5XQNHQ2eHXqlhMZvki7bR5cycBE
N6VLyVfIsMAsOJC/+T12JaBvuwsZ6l1UIjl1PiBnq8mzjRtkGLeVUuFVykRY
//F2uzsZRn9nH6FkZaLrdreiU15ksFL8G/9LKQtTLFib7vjQ9LL6fCQjPgt7
A6MGP/iRgSvx2+0M7mzkzVFc+HaHhhfQkXzoWjZqD5azsN4jgzITk0l7fTZ6
cJmIqz2k9ZueytUmTHv/av1QPhtMhgfG3w9UWuXg4IWbhx4/JYPRFuG63c9y
UDCcxbzwORm8fFoTvpbloH5lpONwBBmqSMpXLfpy0Pv3dh/eKBpesWpFwEwO
ZkmUP933mqbHcb/AXUs5OGpgnHgxjqaf/QjFdDYHxdy/F4QlkIHjbd7T4f4c
NEp0/UQkkUErKMPyH+ZgQCvzwGQqGRqDAlxKwnIwf/3lnMg7MkiWXVj+j/a+
nti+nVknkwx1S7WTW8RyUMqyTPRaDhn2vO35cONTNpoGHVd6nU8GGY6q25m0
/pMsZwyKisig3+BJcqKd938VQx2+lJLh6cWhC14JWRjX3hbLVUWGOFvK6anM
TJxPulGqUEuGP27JnBHbM1HXS7Bbp57mH2G+RT3wAafI5vy+n8kwmFG2PeNn
BsLCH+WoNjJoO7o473iXjmF1L47kfyFDqZ6NcLVTGmpd7b47/Y0Md5ktolY7
kvF+yemlM2NkqORiTZqJiMfekDWBW7/IsLPT7tnPY29wh13MzhfTZNAVXw+d
Z4/DTtZBx88LZDjwYF8Vx75XqNDrF/RriQx8OkO3wqdfovcHSgLLP1q/AZRL
WsURKGt+rpe6iQItW5KKzqQ8QzcFxr//MVKg+XrFTc2Wp9iwmijkwUKB+yVK
R8t2h6Bki45KGDsF5jQuiTOJP0KXhFGjTC4K5F6hbtU1uo/VbvcuNfJS4PFk
Jz37l0AUNpS/PyZAy3fV3nou+w46SdYnMgpTwCXoSvnYmD+WzzhWkMUowJ84
LJnj5Yf81ez9+yQpsNw8PpnV5ovnX6SvWJAp0Eg67tFzyQcLnY4K35SlAC95
/tm/Cm/kPDClGipHgZelf323fPFGG74Q43cKFFi8w6FnneiD2cPKV+oVKeDJ
y+oao3QbmQs/PxjZQYEtQiTJ3/l+aPnIJWmTKgUuOJzmvL8zADPO8FVJalDA
7dijOaFNd5FOJXtAU5MCAlEHo6O2BKEZk9nqyX0UOOSRIBYfdR+TuuZFrlMp
kMZ38pPe6Ue4kh6mHnKIAvqct9f3OoTgsdvqpmk6tH4tTomOdNPOwy3uj74f
ofEx6Pj2ICAM9f8Kp6wbUaCb/grR6RuBrxoLq8VMKfDVnlX0a+hLPHRjZc3U
ggJ7SlU5rX9H4xPCx6XKngJnFXONmoQS8PtzqeCBCzT/47jMZtr80biAqf+c
KOCa2XW63PEt9nJt+qF6jQL5uhtloe+TcefQm43jrhS4/OzFEfG6FLyTe0ji
sjsFXu8qefKjk/Z+/O/uyUQfCvy4L2628iUdLa/l8zP6U+Dit7WJii8ZeP/e
2OdzdylQ+SDSSan6Hea/FguuukcB+bhJ1dex73Ek56ih7CMKfKKnToc6fEDB
Bl+WOyEU8Ije4/OVIxMPDWZWfw+lwNGdRub9Fpl47c93/0PhFDggnyX7JTIT
4ziFqPEvafGSPT16zZnYLKO3uimaVi9Pxu/rYiau7fEsso2lgCW3QrkWbxYq
Hk93q4inwG+3SYsDkllodb5PlZJEAaUfv2/VSGThg1s8s36pFJi3+PW9njsL
C0MPvh/MoECx+Jfe/+YzcTT5xiXIpIC9qqFCfEMmCpW/lY/LocAly1eZ3WGZ
qN3xdWQjnwJTmgzCJ00z8foEW4JNMQUyimq3ezNk4hu6fWexjAKPYj2dIkw+
YAvpqqR0Be37YJ5QTwx8j+uKcT2+1TS9+br6HRLfodLhthf9dRRo7xzN0/2Q
gQ+dNfhjmilQXVzjHfckDYsCL35ea6XA1SvmVncvpuLYq6jH1l8o4Ffyx8dM
LQV1Pq4zS/ZSAGI/8NzLeIt0lLp/r8YpwEhplD5gGYc7dv8t/DdJgUS99I4Q
phg8c2y7238zFNj+ZM33l80rLPF8MiO2RIFdFWas9nsjcOJJxTuvFQr8mc25
mF/9HEWS5p161ijQY3mImn0+FN3aTo1EMsqAdlPiCPO/B5g49iD+L4sMKOZZ
i0T+CcT29RIbSw4ZyNitp6WxPwDphaYlirhlgDj7WfpEqg/u3E7uEeGXgUyR
PySXu+5oc9D0hYcQLf5u07ktQtcx5NTdE10iMsBbN/z5eJ0Tll7J59sjIQMi
isGUnik7/HVnrPmFNC3/c8SDAFNLFIsSe7wkIwN+sQ7vrzIao37mUYNTcjT7
gMuDqZXD6F7ry1ygIEO7D//N8+fdj0m9mVUkJRofud6q8vNU7Jj77ue2Uwbo
frLwNV/TQwY2oQOdqjJw0bQq/GmXKapI6/1T3y0DH2vKXHkVrPGsumdhuJYM
7F1tYRg0PI9PjqTfXNwvA/qkKSbHgCtYbtuncvKgDDAan20eCL+Bk+48M7na
MjAVwf0xRMwTxUMOvhPUl4F8nhTNfTq30TDxhpPrERl4zv9i5iLTHfQofru1
w4hmf0qOe/0hCDtH2eKfn5SBz4vtEv0YgrUnHkQXWchACdP208u09civZH0x
8J8MTBRHuNPffo4RMSyPt9vJwPmCHPvDfS/wpDmTW9VVGTAeLR9zcYtD7eq7
LuPXZKBHK/iLxIs3qKbCeInnpgxoWGX79efEoyA3w9n/bskAmRpbst6TiIze
AVb+vjJQIxlFkv3+FhfGN51M9peBl17fnKf6k7Cjhs5w/p4MRM8qpETlpGC1
qp+26CMZsNc3XSy/n4q5bzYOUENkwPXULBevURom8tzWPB9K0//2Zq/z9LR5
57Ou+iiMxkcw9tOHxHS8+8tHOeuFDMz5OZFXVDPQ9X8Nl2k8lXkUx6WiZtRE
yNZonv+M7SNuTVLhPidlRJZJNVINMWQfexkZwyWN0rhaKFFkvZdLo6gsHUmK
6rqWitF2USr7eq2Z5+V58/2c81teHKd5nZdpzH7dxVG+TD/cH0WS+QwKUq6m
yO5SFuBeo7m1JIuCUrcrCyOeAjTPPqFilUNBz6EG/udsAW6Un1UIyKeg7szD
2ZYGAVJ/Ray4yKeglZWn6NchQIWBadlKAQVKcUOXUlsEKH3oD2nxDQo2lO8W
OZYJcPTx1JzMLQp0A9ovN8UIsGtzuET/NgXiO3os8y0CbMmRjDhUMPof8b+n
0FGEtQrH+8OrKcjwN3/0wL0IS6MnP1ytoWDZL3udJzsL8fpgmLjuAQX9h6uM
vOlCPHd4ovNzPQWL7GqiJUzfOY2hL1Y1UuCz83dBqpCHwVvGRZufUWCqrClx
mivAPYpjDzmtTL6M9tPzuvkInOCaghcUZGkP9wTq5yFreKRC2EGBTaLFeh2S
i6ueDpeovaMgUn0x12bsOopiBy+X9jP6XHqZKX8xHWtG/C+0D1FQ8PqIi7NR
Gt5wGfjnyygFi68EdYlepiLXpD/WepoC1nNPn0DWeYzm+UYFzlEQWJZGaw9w
MXBNX3jKAuOnsHyJRvBZtB/75N+1lID7/GSfpdJJZLt6ey1bTqDY37DdVj8G
DZo+uhnIEWh/eLKteyQCvzXz+nXfNwT8Nnztly0ViisLex0jFAhMhdYrN2v4
4hcVT4dMJQLDRYWKalxnHIz/YFOvQgCa3EKsbczxzbiHZb86geiytvslwh20
0O39dgVNApmv51cNRB2kxUvypy5SBKRm+950S3nQ43leJapaBD76jB9r0/Sl
Zaz0jmboEgh8van/ybkAWrWvT+O79QRe5XVJ+LpBtP5ZQWsOi4Byow1nWUkQ
zTYMOK2zieHViNucnILoPc2s7UXGBITOxyaW6gXS7iGjEkMTAomZF5ymLf3o
40q3im+yCezaVHrCNfUoffp2mIexOQGBfV2iWbozne5krFFpQUBf00CR12dF
l8xOtbCtCIhKEywXTrKxNqMiodaGub/KUZ6zyAXb6Ej46WeG/1Z6MjLKD3vF
ZpKGvQTUCpPfxxwIw5nYBYGtIwGbWWi/9iUSV2jdd28+SGA83D4zIZmD6x5z
1Pc7E7CWbKsw6YxHCzmZhMMeBKJ2fPvMYzwJuRfk3H1DCDQEiN5a517G7M1C
taFjBNLLFXzYiulY3p7UHBxBoIMf1vz0xFXs1FhNR8QQsDOsColIzsLBe20T
83EEFMbeJE0WXUcp15SimL8JvHjd7a1VlY1auapqCUmM3/yGWrEgF7dadork
zhNgWW/51JKYhzaf0k9xUwisOnQhyepAPjqfcWYrpjH8HZkqT1cWYND6dROp
GQRmZCttZUsKMK5JXKiexfi3sfiOyJiHKUHZbtdyCFTVKN3UKeAhb7WHKikg
IDtfpW26wMOqMi1RXiGBuJhX0kdN+djk+DFer4TAprO37VgufOya5pkVlxKo
rSiZ2efJx/ErvuMbygm0HIrefW8fH2XZ6wvL7hKQ9hwZi9fmo9q7Qdet1QTM
Nw49n37LQ33ODZXqGgKxhuf9kqN4SH8f3AR1BBb/ZvlucjEPHep/jK97xORV
/nG9VFABenhNmO56QuC0xCX53/p8DP/q9tgTITMn2RUZyeTj6aJwvn0LAe7V
VgcxKw8z7La5tj4n4NbTo26wKxdvDM+ucewgkMKV33nHNgdrz1UL/3vF6ONw
9q7Jjmz8+AJMu7oJlF4+Fc1bmoUz4dJjHr0EKnNdQVVwDVeo1/E+fWb6ELC0
I4/N/L8ulmtGRpg8G0VpHTW/hBaLlgtDJwg09tp3eldfxAPZjXFTUwxf537f
463n0cci0SRyjoDtD/tgrJKLf/baji4sMP5qx65N4ybi/89h9+Y=
       "]]},
     Annotation[#, "Charting`Private`Tag$92595#2"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.887110930882441*^9, 3.887110965168334*^9, 3.887111168180781*^9, 
   3.887150682063732*^9, 3.887150798204279*^9, 3.887150864138158*^9, {
   3.887150911524412*^9, 3.887150918512322*^9}, 3.887151295965914*^9, {
   3.8871513372809687`*^9, 3.887151370348174*^9}, 3.8871516741554623`*^9, 
   3.887153714266418*^9, 3.887154036753583*^9, {3.887188305530118*^9, 
   3.887188347874259*^9}, {3.887189287238524*^9, 3.887189315033214*^9}, 
   3.887189654278571*^9, 3.887189704727233*^9, {3.887189751566061*^9, 
   3.887189757588849*^9}, {3.8871899394199867`*^9, 3.887189956819738*^9}, {
   3.88719021960926*^9, 3.8871902429453697`*^9}, 3.887190306933299*^9, 
   3.8871904885582123`*^9, 3.887190519054202*^9, {3.887190549173849*^9, 
   3.887190584744685*^9}, 3.8871906220584373`*^9, {3.887190689404497*^9, 
   3.8871907096195173`*^9}, {3.887197696285947*^9, 3.887197701454311*^9}, {
   3.8871978496235237`*^9, 3.8871978614840918`*^9}, {3.887198188512261*^9, 
   3.8871982003035707`*^9}, 3.887198261702647*^9, {3.8872036867918463`*^9, 
   3.887203714637471*^9}, {3.887203819642869*^9, 3.887203832045415*^9}, {
   3.887203945058845*^9, 3.887203971520454*^9}, 3.887230489995899*^9, {
   3.887231645384548*^9, 3.887231655078809*^9}, {3.887232115276227*^9, 
   3.887232149905736*^9}, {3.887254399326725*^9, 3.887254416797966*^9}, 
   3.887254694515634*^9, 3.887255699487989*^9, {3.8872567410520906`*^9, 
   3.887256748569249*^9}, 3.887256785859065*^9, 3.88728107685045*^9, 
   3.887281932552724*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"befb2aef-6689-48c9-a490-4e483700d6cf"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"x", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "$finiteSize"}], ",", "$finiteSize", ",", 
          "$interval"}], "}"}]}], "]"}], ",", "%"}], "}"}], "]"}], "]"}], 
  "*)"}]], "Input",
 CellLabel->"In[85]:=",ExpressionUUID->"9d960036-a944-4fcc-ae41-bf2ebd890e34"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ii", ",", 
     RowBox[{
      RowBox[{"wft", "/.", 
       RowBox[{"t", "->", "ii"}]}], "//", "Re"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", 
     RowBox[{"-", "5"}], ",", "5", ",", "0.1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"%", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.887111227174408*^9, 3.8871112453443537`*^9}, {
  3.887154153211936*^9, 3.8871541572307262`*^9}, {3.887154313244252*^9, 
  3.88715431827107*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"7999f724-c2ba-4404-944c-e202f7542e5a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.`"}], ",", "0.5481478325686189`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.9`"}], ",", "0.6007975052129699`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.8`"}], ",", "0.614250237029867`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.7`"}], ",", "0.6079270943687438`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.6`"}], ",", "0.6314417974804962`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.5`"}], ",", "0.6988496454860116`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.4`"}], ",", "0.7678035878596505`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.3`"}], ",", "0.7942562070575079`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.2`"}], ",", "0.7924235480483148`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.1`"}], ",", "0.8187475398255109`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.`"}], ",", "0.8973545126806366`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.9`"}], ",", "0.985113771271147`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.8`"}], ",", "1.0263092945652792`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.7`"}], ",", "1.0278534624627855`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5999999999999996`"}], ",", "1.0535487482523873`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5`"}], ",", "1.1398012136602107`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.4`"}], ",", "1.242747398818632`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.3`"}], ",", "1.2914663641819697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.2`"}], ",", "1.281935595742293`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.0999999999999996`"}], ",", "1.2854449632578189`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.`"}], ",", "1.3527611921836762`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.9`"}], ",", "1.4372976843592946`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.8`"}], ",", "1.4448233898618925`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.6999999999999997`"}], ",", "1.351835747360473`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5999999999999996`"}], ",", "1.2339096459320213`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5`"}], ",", "1.1543327156348933`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.4`"}], ",", "1.0523477176090477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.3`"}], ",", "0.7858270017997497`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.1999999999999997`"}], ",", "0.28432195274213434`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.0999999999999996`"}], ",", 
     RowBox[{"-", "0.39317090615022215`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.`"}], ",", 
     RowBox[{"-", "1.195165559520658`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.9`"}], ",", 
     RowBox[{"-", "2.2473287572133502`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.7999999999999998`"}], ",", 
     RowBox[{"-", "3.8210979369937492`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.6999999999999997`"}], ",", 
     RowBox[{"-", "6.116068954174203`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5999999999999996`"}], ",", 
     RowBox[{"-", "9.139377742739562`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5`"}], ",", 
     RowBox[{"-", "12.868702745411683`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.4`"}], ",", 
     RowBox[{"-", "17.477817187009308`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.2999999999999998`"}], ",", 
     RowBox[{"-", "23.1958238907093`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.1999999999999997`"}], ",", 
     RowBox[{"-", "29.730149893942844`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.0999999999999996`"}], ",", 
     RowBox[{"-", "35.799937366462125`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.`"}], ",", 
     RowBox[{"-", "39.463074077415804`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.8999999999999995`"}], ",", 
     RowBox[{"-", "39.25734035199781`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7999999999999998`"}], ",", 
     RowBox[{"-", "35.294378167985386`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7000000000000002`"}], ",", 
     RowBox[{"-", "29.295078120139628`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5999999999999996`"}], ",", 
     RowBox[{"-", "23.41684472322967`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5`"}], ",", 
     RowBox[{"-", "18.815561398267153`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.39999999999999947`"}], ",", 
     RowBox[{"-", "15.126544618606475`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.2999999999999998`"}], ",", 
     RowBox[{"-", "11.190732810965736`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.1999999999999993`"}], ",", 
     RowBox[{"-", "6.248798988651586`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.09999999999999964`"}], ",", 
     RowBox[{"-", "0.5381490723866522`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "5.060503326593855`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.10000000000000053`", ",", "9.778444869573615`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.20000000000000018`", ",", "13.359944363837938`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.3000000000000007`", ",", "15.898278160057348`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.40000000000000036`", ",", "17.494108376366135`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "18.16181875959171`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6000000000000005`", ",", "17.98860768824925`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7000000000000002`", ",", "17.241700962483655`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8000000000000007`", ",", "16.24691525820288`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9000000000000004`", ",", "15.187622807775922`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "14.067282303882633`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1000000000000005`", ",", "12.857527318935409`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", "11.629062855600267`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3000000000000007`", ",", "10.511422431942993`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4000000000000004`", ",", "9.558859151607072`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", "8.70786744650896`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6000000000000005`", ",", "7.876518468065655`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7000000000000002`", ",", "7.070920654121495`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.8000000000000007`", ",", "6.366174730373336`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9000000000000004`", ",", "5.798572009724406`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", "5.314559839870365`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.1000000000000005`", ",", "4.837848376707789`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.2`", ",", "4.3607637883700425`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.3000000000000007`", ",", "3.9417750891340555`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.4000000000000004`", ",", "3.619033800142226`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.5`", ",", "3.3562639699089614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.6000000000000005`", ",", "3.088229656205481`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.7`", ",", "2.8012105775399494`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.8000000000000007`", ",", "2.5430331553784167`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.9000000000000004`", ",", "2.3538740976575663`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", "2.211278115659595`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.0999999999999996`", ",", "2.059294040851814`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.200000000000001`", ",", "1.879625071379416`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.3000000000000007`", ",", "1.7108633107767022`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.4000000000000004`", ",", "1.5936199405516907`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5`", ",", "1.5159977768716921`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5999999999999996`", ",", "1.4297533148417696`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.700000000000001`", ",", "1.3128985320897122`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.8000000000000007`", ",", "1.1956626046511383`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.9000000000000004`", ",", "1.117870314425547`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", "1.0758815816866747`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.1`", ",", "1.0282081923550666`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.200000000000001`", ",", "0.9500512293758123`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.300000000000001`", ",", "0.8640741994990964`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.4`", ",", "0.8084706192287743`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.5`", ",", "0.7861951535255578`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.600000000000001`", ",", "0.7619351666993008`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.700000000000001`", ",", "0.708939551474185`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.800000000000001`", ",", "0.6430578231166273`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.9`", ",", "0.6002444233776953`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", "0.5887626092233299`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.887111208342148*^9, 3.887111245815838*^9}, 
   3.887151337344246*^9, 3.887153714350243*^9, 3.8871540368550253`*^9, 
   3.8871541582069674`*^9, 3.887154318911745*^9, 3.887188916585493*^9, 
   3.887230490242869*^9, 3.88725678591404*^9, 3.887281076923525*^9, 
   3.8872811166749*^9, 3.887282258256278*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"31a478c2-bc16-4319-ab62-414d39ef406a"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11QswXFcYAOBd1jMeaxGkXku2bJpKLEIfnCOZlIl2KNFqow0GMeqRkCZp
NKRYREcSIh3ExOqkUXREMhmJ5z2tSCghDwmK1nPHlsqya71iNfb++8/s3Nk5
5//+c86997/cqOTgGA0GgxHz5rd1pcOMcN7tDE7MH0dlpVthSmyNC+qb35tE
bqowJZZBMmtp1SR63LMVHPJ10FWh48lJFKsKDqkT1Cd2uE8h2uOQXWPC+dVw
MXgmxPlsav9g4Qx4JoRU+Ch/jJeAxyZfHp4X5R2RgMcmRdHH9F3c/gWPTXTd
y/vs781BvjG5Et4bZJjzCuYbkZanaQHt30ihniFJa5o+sz1FilR8jwEp6aia
Dx2WgmdAirsuCEQfLoK3jSQM3LYMmJCBp0/uN0X8PFgtB0+P1FW7i3sz5eDp
En3mWItLoRw8XeJVmTY7c2MJPB3C0gscfmdTAZ42cffJ4G7aLCMVV6pFfqr0
E9pWLoHHIiWy0/qWbTLwWET523Qx74x6fZpkNj7lUvxLKXga5GYMtzadJwGP
Sew3HO8eFjwDj0FChiSfNPCHKLjBRMFbno2xk1F0vpJqah7JyF1jEnr+a2pH
eWH3tUIjIlDVW6fC9Kof/XXKkpSo/FXqRsNGdrifA6G5FYq/Jrj2sIVPaE9B
yWud3g8+6wqenNp3tCGLK/AET0YVVaftmG3yBm+B6hNvhEWLfcGTUny2ROOj
5gOkU5U/R3VOhOZKRQdgvoSqMTXaU/eLL4lT1RNTve1HvPMDvMlelT9JWXQu
hTbEe4I3Rm0kt1Z2PhGQy6r8Iaq0p+fkn9gF5j+nvm1zaK6KfJucV413UUG8
dH6H0hL+N1J/UP7Hsr3G1efHOGSWfVXubYYJPY5ybE6EXL7oiEV0PsqwrxMd
ur8LY9pHRUHHbWa798D4ENq+e2niXLorhvWhiBB/eQJfgL3o9aPHZY3R5huu
GPaHkvx8bca8XSFfgiJHr7/0QHvxE/p8kGd7myU7wgU8KdIpOPc8xWE3LqfP
F9llWj8zvMfH7vT5I+lIX47ZfifIf/NcH/TkD2nxoJ4CaabEdjnYOoK3guI/
tSpLjOeCt4oimmqMLv5gB9468sV5CRX+1uC9RuKPXTIVp6zAU6IWk5iRFlcL
8Bg4ICtr9a395riXfj7xwGj7nPwLU0y/X0ycK9RgJ5wwgXwNHMUjEb/nGUM9
TSx94aF8JDMAj4U/Y5XPiYb0wWPhwexN6vZdXfC0cPTiVxbjcdrgaeNbss8f
cMNY4OngfxqjFpr7NcDTxdcXfy2+U8/E8H5j59QUp+TvGLB/PRxtzGtd4CgR
7elj35h19ztH1xHtbcOZD5IqTmesqvsLHr2UO5Hju6LuP3j6ez3Ng2MKRHuG
eLJm51Qlcwk8IzyQeN46mSsDzxjr6Zatd08sqPsfzotbL+vbt6Duj5gZuJaU
nypF9P7ZeESgePE0dh7yTfBIoPBV+s1Zdf/F5dW1Dzf+lqj7MxYFmrdmOkug
Pgcfr+kf7oicAY+Do4UFm5W3xOCZ4ibu8uZ/V6bU3wfsk8zodvOYBM8Mf2C1
XLdzYAL9DxFu24Y=
     "]]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-5., 5.}, {-39.463074077415804`, 18.16181875959171}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.887111208342148*^9, 3.887111245815838*^9}, 
   3.887151337344246*^9, 3.887153714350243*^9, 3.8871540368550253`*^9, 
   3.8871541582069674`*^9, 3.887154318911745*^9, 3.887188916585493*^9, 
   3.887230490242869*^9, 3.88725678591404*^9, 3.887281076923525*^9, 
   3.8872811166749*^9, 3.887282258301909*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"561e0aff-dd43-4acc-82db-66c115d693bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ii", ",", 
     RowBox[{
      RowBox[{"wft", "/.", 
       RowBox[{"t", "->", "ii"}]}], "//", "Im"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", 
     RowBox[{"-", "5"}], ",", "5", ",", "0.1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"%", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.887111251653584*^9, 3.887111253002037*^9}, 
   3.8871121587964573`*^9, {3.887154253006122*^9, 3.887154255373107*^9}, {
   3.887154324611907*^9, 3.887154331175712*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"fa2ebbcc-2b33-44f5-8383-68bda4e1eb52"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.`"}], ",", "0.3258587035639479`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.9`"}], ",", "0.27764003060215925`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.8`"}], ",", "0.23733787983200227`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.7`"}], ",", "0.29042207315026203`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.6`"}], ",", "0.40271401549625296`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.5`"}], ",", "0.46116637861436227`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.4`"}], ",", "0.42387774221181485`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.3`"}], ",", "0.3813339747279798`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.2`"}], ",", "0.4409515229712745`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.1`"}], ",", "0.5822597823452533`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.`"}], ",", "0.6781727946616439`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.9`"}], ",", "0.6630342896074157`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.8`"}], ",", "0.6271190507220654`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.7`"}], ",", "0.7040950227523053`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5999999999999996`"}], ",", "0.892032260267108`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5`"}], ",", "1.0484580866577404`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.4`"}], ",", "1.0781730294066716`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.3`"}], ",", "1.0699693140489488`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.2`"}], ",", "1.1908164892067319`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.0999999999999996`"}], ",", "1.4646512099966102`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.`"}], ",", "1.7315326864671048`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.9`"}], ",", "1.8586908742178139`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.8`"}], ",", "1.933642831334064`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.6999999999999997`"}], ",", "2.1704327534564323`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5999999999999996`"}], ",", "2.6325143961977435`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5`"}], ",", "3.140751755459929`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.4`"}], ",", "3.515629347903767`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.3`"}], ",", "3.852816651133319`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.1999999999999997`"}], ",", "4.4504372872482865`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.0999999999999996`"}], ",", "5.450346572597781`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.`"}], ",", "6.669519123715807`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.9`"}], ",", "7.897569868495658`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.7999999999999998`"}], ",", "9.316751008434142`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.6999999999999997`"}], ",", "11.47287568709758`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5999999999999996`"}], ",", "14.779155189965739`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5`"}], ",", "19.220712997642977`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.4`"}], ",", "24.774637402003485`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.2999999999999998`"}], ",", "32.06991316290795`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.1999999999999997`"}], ",", "42.172989694528056`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.0999999999999996`"}], ",", "55.12858617005418`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.`"}], ",", "68.46441048149892`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.8999999999999995`"}], ",", "77.49701183781362`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7999999999999998`"}], ",", "77.90283953986234`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7000000000000002`"}], ",", "68.75048324454121`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5999999999999996`"}], ",", "53.36152300508702`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5`"}], ",", "37.06301000791066`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.39999999999999947`"}], ",", "23.626496111799817`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.2999999999999998`"}], ",", "13.311267224791758`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.1999999999999993`"}], ",", "3.8658416496601973`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.09999999999999964`"}], ",", 
     RowBox[{"-", "6.8129250011540785`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", 
     RowBox[{"-", "18.84275851375253`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.10000000000000053`", ",", 
     RowBox[{"-", "30.614918836151052`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.20000000000000018`", ",", 
     RowBox[{"-", "40.32899675548128`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3000000000000007`", ",", 
     RowBox[{"-", "47.12172359459996`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.40000000000000036`", ",", 
     RowBox[{"-", "51.01768749657465`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", 
     RowBox[{"-", "52.29300706669698`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6000000000000005`", ",", 
     RowBox[{"-", "51.17980911614447`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7000000000000002`", ",", 
     RowBox[{"-", "48.084296606467696`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8000000000000007`", ",", 
     RowBox[{"-", "43.770329104446944`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9000000000000004`", ",", 
     RowBox[{"-", "39.10421801909361`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", 
     RowBox[{"-", "34.61329002488152`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1000000000000005`", ",", 
     RowBox[{"-", "30.37228594435494`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", 
     RowBox[{"-", "26.3110528729759`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3000000000000007`", ",", 
     RowBox[{"-", "22.5313407090216`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4000000000000004`", ",", 
     RowBox[{"-", "19.267191329369993`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", 
     RowBox[{"-", "16.6087764565498`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6000000000000005`", ",", 
     RowBox[{"-", "14.388838741730456`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7000000000000002`", ",", 
     RowBox[{"-", "12.38037720018856`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.8000000000000007`", ",", 
     RowBox[{"-", "10.541019680229082`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9000000000000004`", ",", 
     RowBox[{"-", "8.998524832566071`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", 
     RowBox[{"-", "7.822048622748565`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.1000000000000005`", ",", 
     RowBox[{"-", "6.8899116626377035`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.2`", ",", 
     RowBox[{"-", "6.016366939785769`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.3000000000000007`", ",", 
     RowBox[{"-", "5.15695282925541`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.4000000000000004`", ",", 
     RowBox[{"-", "4.424153538450354`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.5`", ",", 
     RowBox[{"-", "3.9056327330180354`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.6000000000000005`", ",", 
     RowBox[{"-", "3.5302121876551644`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.7`", ",", 
     RowBox[{"-", "3.149867535833292`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.8000000000000007`", ",", 
     RowBox[{"-", "2.7187304316612266`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.9000000000000004`", ",", 
     RowBox[{"-", "2.3328775345534183`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", 
     RowBox[{"-", "2.0873167727430504`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.0999999999999996`", ",", 
     RowBox[{"-", "1.9440423915095104`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.200000000000001`", ",", 
     RowBox[{"-", "1.780163768748006`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.3000000000000007`", ",", 
     RowBox[{"-", "1.5443236749153957`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.4000000000000004`", ",", 
     RowBox[{"-", "1.313921670275801`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5`", ",", 
     RowBox[{"-", "1.1840871858949344`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5999999999999996`", ",", 
     RowBox[{"-", "1.139805738854168`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.700000000000001`", ",", 
     RowBox[{"-", "1.077072650890866`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.8000000000000007`", ",", 
     RowBox[{"-", "0.9387183194255198`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.9000000000000004`", ",", 
     RowBox[{"-", "0.7839729763883265`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", 
     RowBox[{"-", "0.7046223372434481`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.1`", ",", 
     RowBox[{"-", "0.7028650908500145`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.200000000000001`", ",", 
     RowBox[{"-", "0.6906315333466893`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.300000000000001`", ",", 
     RowBox[{"-", "0.6061866234837192`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.4`", ",", 
     RowBox[{"-", "0.49209602405122976`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.5`", ",", 
     RowBox[{"-", "0.43495373759363687`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.600000000000001`", ",", 
     RowBox[{"-", "0.45039798519518026`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.700000000000001`", ",", 
     RowBox[{"-", "0.46469630931744144`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.800000000000001`", ",", 
     RowBox[{"-", "0.41319524334795166`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.9`", ",", 
     RowBox[{"-", "0.3234998634353182`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", 
     RowBox[{"-", "0.2758574494097008`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.887111255821293*^9, 3.887112159975975*^9, 
  3.8871513374095592`*^9, 3.8871537144483747`*^9, 3.887154036955391*^9, 
  3.887154256015402*^9, 3.887154331701593*^9, 3.887188970728846*^9, 
  3.887230490349305*^9, 3.8872567860072393`*^9, 3.887281077038877*^9, 
  3.887281265781497*^9, 3.887282328730571*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"42ffee31-c1d5-4949-a06f-f256091b3ff7"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11Asw3EccB/DDnffj7jymQTgqUmkMpUkUuV1CPJpKMGnaaiKlSKuITqIT
KSPSNJoS0nhHEOGiOtQjJMF1dyhSJfGqeJ94TWkol1DqQuv+v/xm/nNzs/v9
/G73f7tmQVF+IYosFivk/2frkyk9WmPREDM21Idyc7ZKl1q2SyqHfu1G9vLS
paXxL6MMPnmEOju2ik/znqbEHMzsQaHy4tPigmQFXusgYjw+7Th7RUYujoLH
o4pHdY27BMPg8Shr9PrN1rAB8LhUavxDY7LDCHhcWn/8hJvk1gR4XHostjky
q2Ya8jq0ror8fH3fNMzXpq7ZVasBvCnop0V/+WvTU3p5Bsn5Dk3aFGi4//L3
z8DTpGEkU3a+dRE8DdpS9fvHdngJPHXqwXlgkW2yBJ4aFUx6Z2VoPQdPlZ68
F2W0N+of8FQpOeSeH3B3HTwVynIMKrYTvwRPmVplv/mV/eIGknM5HNqzTTqg
cVwBMx6b6n1oUxusw8GMx6Z5p/vOuArUMOMpUdkfaR6KAk3MeIo0o+vId9d6
tDHjKdDYS6JI1MkDj0V9q6ZEOzv1wWPRuoLu8MxyQ8hvkFMuzleNs0xhvow4
hu62tS4yx3byfuuk7ohBs7HUEmfL/TVS3dMfMX/VGrxVQsuLShIc7MFbIcqj
Srd9Wh3Ae0GkpiZzUlUM3nOS6N74rYWBO3hLZDx5LfFs2rvgLRKPOPHM/e2+
+KE8/4zkeIrVHwf6w/xZUnI43vThOX98St5vhqiOS+ZUbH2xrdyfJEMdLUEH
K7zBGydskUsdN8kVp8nzg+QjnKUZVLgP5veSPdnzn58o2IUT5OO/EUG0crBw
Xhu+PyCzjh98FoWN6KsTItjI55AndpQy4+jairlf+E0hLWTyyLS4K814lxtl
XlgvKv/3m9vpqR4wPojUfzqXcSDRC7xx9HfsFy4XdnhTB+b3o68rbGVKWV4U
1odKVm2c2tU9IT+LBk5OWuROuNMuZn9Qbp8R+1jKAfAWkfncDa8EHxeax+wv
6m2uMfMJFNK3mf1H5k3OVrcOO0L+BdrwGFjiJO2FfivIObxEFOpmD94qajtj
1Dpwwxa8NTR0yESi37YbvHUU9ud0B216AzwZ0tnJT2Lp7wBvAy07ZpcIN81e
7R+2rn1ne5uXKX3E/D/xxUgxyz3ViDLnSwHjmMb4Ju5rkFfEpWV84f1CPein
hDcvCHyOVvPAY2PDzd7ARqEOeGzsFGAzKdmvCR4H1xtY0Xk7NfCU8chmuniZ
cMBTwYInwdUNPyqCp4rHMofMe6tZFM43vmc++FaH4SZh1q+GywhbIeW8jDCe
Oh62nxQn164SxtPAtdG19T2cZQL3C65IqAzjSKUE7h+cRlyXip2l4Gnh0+M2
SZVOS+Bp4yv9rqx1tQXwdLDs9e54H4NZ8LhY2vDYwi15hsD9iPMj3l8Yi5sh
zPq5OGHB6r0722Ygz8MT/p/GPQ2ZJHD/4vSyL/0S4iXg8XHknlR7z/5h6M/H
i0JLvl/vCHh8XNrWkpkhHgVPFxfVuMa0Rw+Bp4stWyJaHO72gaeHBaIpluhO
N/kPIVfdyw==
     "]]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-5., 5.}, {-52.29300706669698, 77.90283953986234}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.887111255821293*^9, 3.887112159975975*^9, 
  3.8871513374095592`*^9, 3.8871537144483747`*^9, 3.887154036955391*^9, 
  3.887154256015402*^9, 3.887154331701593*^9, 3.887188970728846*^9, 
  3.887230490349305*^9, 3.8872567860072393`*^9, 3.887281077038877*^9, 
  3.887281265781497*^9, 3.8872823287744627`*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"95e6070a-1c2c-4f60-8b5a-11c08b94da72"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["PlotPPW", "Section",
 CellChangeTimes->{{3.886895628955553*^9, 3.886895629618394*^9}, {
   3.88715107219531*^9, 3.887151072313574*^9}, 
   3.887204236306239*^9},ExpressionUUID->"69113d10-f327-4711-b200-\
6c83de5c8b38"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.887150970141984*^9, 3.887150990413754*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"14094073-914f-4e59-adec-7a9fd9c8d237"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$interval", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$finiteSize", "=", "12.205"}], ";"}]}], "Input",
 CellChangeTimes->{
  3.886916252550088*^9, {3.8869163623912067`*^9, 3.886916372455441*^9}, 
   3.8869164375943727`*^9, 3.886918062828347*^9, {3.8869191141565943`*^9, 
   3.8869191161453257`*^9}, {3.886919230864924*^9, 3.8869192618838778`*^9}, {
   3.886919723837805*^9, 3.8869197241240387`*^9}, {3.887150440353751*^9, 
   3.887150458044381*^9}, {3.887151018475897*^9, 3.887151020896557*^9}, {
   3.887151385790868*^9, 3.8871513894310217`*^9}, {3.887151821365581*^9, 
   3.8871518215851927`*^9}, {3.887153861932822*^9, 3.8871538624150763`*^9}, {
   3.8871893940985317`*^9, 3.8871893966297703`*^9}, {3.8871896148060217`*^9, 
   3.887189615381865*^9}, {3.8871898159196663`*^9, 3.887189817142865*^9}, 
   3.887190160864286*^9, {3.887190377259347*^9, 3.8871903802333*^9}, {
   3.887190633809146*^9, 3.887190640615471*^9}, {3.887198057790056*^9, 
   3.887198058803424*^9}, {3.887203647837812*^9, 3.8872036494227467`*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"df43b8cc-3218-40e7-aba5-e3e0b9066125"],

Cell[BoxData[
 RowBox[{
  RowBox[{"wlist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"ii", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "$interval", ",", "$finiteSize", ",", "$interval"}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellLabel->
  "In[143]:=",ExpressionUUID->"d2e5ac45-2b62-4cdd-82ca-22777d7d0660"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"amp10PP", "/.", 
    RowBox[{"\[Omega]", "->", "0.1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8872545812418957`*^9, 3.887254582079501*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"74da5198-3d42-4e7b-9cb4-aaa9da310674"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "256.9693129580713`"}], "+", 
  RowBox[{"100.64098691458528`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.887254582711134*^9, 3.887255022614064*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"f296fb4b-53ee-4f97-92d9-ed81555caebf"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"num", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{"amp10PP", "/.", 
        RowBox[{"\[Omega]", "->", "ii"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "wlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.88689670051527*^9, 3.886896710529189*^9}, {
   3.8868967437226067`*^9, 3.88689674572598*^9}, {3.886914883414083*^9, 
   3.886914885704412*^9}, {3.886915686016613*^9, 3.886915692113388*^9}, {
   3.8869157457143927`*^9, 3.886915747258988*^9}, {3.886915995489711*^9, 
   3.886916007937778*^9}, {3.886916091143714*^9, 3.88691609538454*^9}, {
   3.886916197795518*^9, 3.886916208704795*^9}, {3.887150982812023*^9, 
   3.887150983056734*^9}, 3.887151441872077*^9, {3.88715147480015*^9, 
   3.8871514981288853`*^9}, 3.8871515609081087`*^9, 3.887189604469346*^9, {
   3.88718990551891*^9, 3.8871899082063437`*^9}, {3.8871901700464354`*^9, 
   3.8871901755472517`*^9}, {3.887198052497628*^9, 3.887198054597868*^9}, 
   3.887204253953103*^9},
 CellLabel->
  "In[145]:=",ExpressionUUID->"c4637d00-0aaa-4f75-87b2-c3b54df4cc88"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"wfFRe", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"wlist", ",", 
        RowBox[{"Re", "/@", "num"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"wfFIm", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"wlist", ",", 
        RowBox[{"Im", "/@", "num"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"wfFRe", ",", "wfFIm"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8869164575655413`*^9, 3.886916476150309*^9}, {
   3.886919146378133*^9, 3.88691914673559*^9}, {3.8869191812721643`*^9, 
   3.886919181697256*^9}, {3.886996935440699*^9, 3.88699706013197*^9}, 
   3.887151455874309*^9, {3.88715150154317*^9, 3.887151507787959*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"4ea593ac-30b5-4d7c-b7a9-4f845463cfef"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10wlQU2cQAOBwKHIIBiGEO3dSy1ggoM4o/CtjoQWhKJaC1xDCIZEGOQST
YK3UA49SsICAgqJEDuWqdsBqScBpBZRCUWHwCGqFQEstguJZbOEtO/PmzZu3
++3O+9+yo5PWxxrSaDTl/9fMvaR4Ji4TxkhwSJbVDi313EEEp8LunvSM0nqJ
Z+IWsSrNMhhgf47vB4jlyBP77zJCtLTZeEi8pWK9MS9AO5su/oNM/bjpg3dc
P2183EwMk3C1qVRl5oP1o+Rw+/IQi8Ll2q6bMzFGdP2Bjp2bxOiNk2KZiyDS
yB3zn5Gpg5MritVLcJ5J0rs0TnNjjUD722z9c/Knh8L3p/Mc7DdFBqeMKx5J
XLUGs94rUsIaqCuVOaD3mlSWbTvwfDUDvbdE1PsXv7nNGr13ZAqup847ZYXe
NMnSRX5cVG6G89EgIUCZwoifj/PTYPT8o/btPYboG4C/2P6tefZ7DVVvCMfM
BlO2R77RUP2MoBOqH6mfvdBQ8xlDyc5xd754QkN5xvBZFy3d2OyphvLmwaq1
06nRFSPozQcLo0LSSH+Cngk4MUK25YkforcAcppjheKHA+gtgF/NGSq/6Nvo
mUJ4QQG7LqcbPTNYxXz1pu7BdfTM4ZlNgq9S0YqeBWxeN2JXLm1GzwJU+3hL
96TVo7cQ2HdLIsjWcvQsIXR/aOYn3Gz0rGDFPd1t7qUMQn2+RbBrp0Sqefk9
mU2PWwQPxqyZ8toyQvmLQHbikPRY0FlC/U90COQWbfza9hyZbVdMB2Z7bk2E
vhI9a6hpaxX0jlWhZw0vb7kZpQZVo2cNcqZaF8WtRm8xTG2QudvmVhFq/sXQ
a330/euqOc8G9lgaeE3sPYeeDQxn5K/t+VCNng1c6YjU/Xxpbj5bCGrL1ReI
zqBnC3dEfhfFeafRY8A6zbfFSX+XoseAE+d5RdmaEvQYEBno5SY9exw9Owhe
O2SuKM9Hzw68WiQVW7R56DFhurjxuKlZDnpM8BRFeBoMZ6PHBF1f9pjcfh96
9tDQ3qIIDtmDnj2MN5jIL7DmzsMBKoJGuj3CktBzgPvCZbWPb0rQcwBa4kf7
TAv90XME2Pq4dd6VNXj+jpBWNnzIMHOLhvKcgO7dSrdixmsozwnKOuPk/wbL
8f9xgqvNQ073V6RoKM8ZJl8zw/o609BzBk9llIwMp6PnAt0rFfWx+bvQc4F8
y7pahU6BnguEnIvp3NWlRM8VTm+t1DvKVOi5Qon/5SMdV1XosSBKwnU40qXC
fBbU6L9sMq5Qoc8C3V16ZlLAXD0L2ncHqgtalNiPBXFFyaoeKyV6bLjVX1pr
slqBHhvSpxNHG7+Ym5cNScMbMvsiMtBjAyfm5O9Wn6ajx4bxwUB1jttO9Dig
KzXqcDZJQ48DZ+qfbhLcT0GPA2HexzZeqktGjwM37HRy1d4d6HEgJjShv6lW
jh4X/ikcudYtSUSPC84HJ77q4chwX7mQQL65c20yHj0uBE5fOOXdH4seF3bb
/VLt0y1Fjwe5uUObDz2QoMeD0NY8+1ijKPR4QLerSD38zWb0eNAW/UNMqWck
ejwYKj9Q1GITjh4ffLKyhpYsCUOPD9LVrtz6lFD0+MCKu22aeC8IPT44ve/k
1XgFoMeHMwejFY1P/dATwERj0Xrfhb7oCeB4pFfh+oll6AngYnuaXrrfHT0B
bAg/uT96Nx89AVS6qutCIxjoCaHK/wWrz2O8hfKEwNlosfQwYwGhPCE0BTJt
mugOuF9CUIyqGx7bcHF/hDDYmHzdYqUI900ENe1TPslH3XCfRHCkokGqt3BH
TwR9oykvLys8yH/1Wkhz
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10ws0lHkUAPDxalpREzNjMJgZ89C2SSnH1up/wypRxExLUtFSzaYHa+vs
UVqNUhJiyquSnZhQ0aZ3OzmlWWRO0i5TYce0qo1NSBvJLnO753znO//z3fu7
93zn/rnR20JijCkUyo//P+PvgvzxuEYutgz3ms0IB8O5nnTZPjdW/L0U5rmP
RwuRzC0/ExQJ+F1LXG9WsCOsPIEyEX+SnB3zjxdp5sJEurueMFZF7IlKdoWN
sePRTbpqq+pOhM3A+pekYyzw2OJtAmi6Px49ZFHbhSFtBA+9PtIzN6Vrzm0n
zH9DRAGpsiClPc4zQDIGYkdOLGCBZqJ+kIhNXFlPVzKw3xBZzqX2z2uxAqMJ
719CnRK5rLGcht57UiTw+YGTY4neCJG9UVZcW2KO3gcS1mnTYRZFRe8j4fMz
t4Q8MMX5KKDNlh2qOmiM81PALvtGdfA+CvpGkBh8JoAhHSWGemPYtabm42S3
YWLoZwJ74p22dga+I4b5TOF6eJ9t5eVBYvBM4fEaR8azb/uJwTOD8ret3pzg
PvQmQYoqwFyr70GPCiP616mLD75EbzLsH3gxmrK/G73JMP+5suj+Qz16n8Fp
qfp3/1gdeuZQk3G6dCyhA70pkNZ8NCYq8zF6FrDiA/PpfutW9CxAov3AWjfU
gp4lvL5S39Lq2ozeVLhq/Zy+d3MTetPAcZBaGGlUTwy/jwZc227zJzZ1ZCI9
lgYeARVeDcW16NPgCD8j34N3ixj2aTos13hqkm9dIRPt8qfDTb9eP77RL+hZ
QZR0q9v7q+fQswKN9mDrzb2l6FkBu3qhw4BXMXrWcHtmpo3+vBznt4a9lme/
ma1NQ48Oqqx0neWsePTokJF0jqlrW68yeHRQ/6HPTFTsURk8Bph46Ew2JaWp
DB4Dqiqa4l/0ZqoMHhP8v85pC+o9qjJ4TPhNXdPf5ClHjwk3Apdpbv1zDD0b
+HV3UkYMLw89G+BvaRj74q889FhwuLF49K5fPnos8C4pLQmQ5KPHAjd76+o4
h3z0bCGUn74utfyTZwvKtMjGy5M+eXbgNxLtbb7wOHp20K9nHZUFHUPPDj7W
K2ReAXL07OECa1bV9/Ny0bOHhHDvawpaDnpsMClrF8ifZaPHhjCfyifSS1no
sWHI4emdrdRM9ByAraANW1YcRs8B1O2225+EHULPEVx+LmoXMtLQcwTP73xb
dutT0XOEjPTQ+bfv7UPPCdQ7TjDda39Czwlmcnc68s8mo8eBqUteBS8yTcJ8
DjjuDH8VLd+FPgfoBbN1sshErOeA1iM1YnBNPPbjQImSMvhSuA09Ljy7tJ2r
oEjR48KRnU4WXb4x6HEha62F/k7fevS4EKaslV43Wo0eFyI4s1pPdYWgxwPZ
HLYm+91S9HhQQgkvHqYtRI8HmwoGvNI/t0ePB6VxeTMP0IW47zyIE1H4p3IX
4D47w2qBXfL1UR/cf2foOdPoqr7oj/fVGfJYm9fKk1bgfXCGrx5VbnjtsRI9
Zyh7zDwZdz8EPT7skDfX5VLF6PFhyL12dUefGD0+HE9YlRKbJUGPD4UmW8Td
vRL0+NBaWHL1Am0VegJgH5ihLB+ToCcAVp1ZRWitBD0BhLV1S29EfPIE0NGc
6HngkRg9AUx9eDe6302MnhBOXnHweZAYip4Q3jG6dUfKQtATQmRnmf2ChpXo
CcEyPWF2si4YPSEUDnr5RumC0BPBeebYvdy3y9ETQULNgH+PaSB6IlAXpymc
6MvQE8FwTaeXWLQUPRGwwgu/FHr7oecCDfzNp6s3+qLnAn3ct7sKC7zRc4EN
IVGVdu1A/gPYZzzw
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 12.200000000000001`}, {-256.9693129580713, 
    100.64098691458528`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8869191471525507`*^9, 3.886919183073358*^9}, {
   3.88691923758848*^9, 3.8869192680758257`*^9}, 3.886919728744965*^9, 
   3.886996908943514*^9, 3.886996963912912*^9, {3.8869970045770693`*^9, 
   3.8869970606104507`*^9}, 3.887110374629136*^9, 3.8871504846127777`*^9, 
   3.8871512047104483`*^9, 3.88715157877951*^9, 3.887153703123884*^9, 
   3.887153869813469*^9, 3.887154030015005*^9, 3.887188267714389*^9, {
   3.8871896104480658`*^9, 3.8871896228812447`*^9}, 3.887189915866691*^9, 
   3.887190184986158*^9, 3.8871904024800873`*^9, 3.887190436265007*^9, 
   3.887190658350993*^9, 3.887197667846374*^9, 3.887198113040411*^9, {
   3.887203633211339*^9, 3.887203656495812*^9}, 3.887204262494651*^9, 
   3.887230523853771*^9, 3.887231681433401*^9, 3.887254449292118*^9, 
   3.88725502372521*^9},
 CellLabel->
  "Out[148]=",ExpressionUUID->"69cdba49-e074-4891-96ed-09f83250fb57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"amp10PP", "/.", 
    RowBox[{"\[Omega]", "->", "2"}]}], "/.", 
   RowBox[{"zv", "->", "1"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8872044350282*^9, 3.8872044359710712`*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"a0f3e65c-19da-40bd-a7d2-25ca6cb645ec"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "352"], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1056", "+", 
        RowBox[{"512", " ", "\[ImaginaryI]", " ", 
         SqrtBox["3"]}], "-", 
        RowBox[{"924", " ", 
         SqrtBox["38"]}], "+", 
        RowBox[{"123", " ", "\[ImaginaryI]", " ", 
         SqrtBox["114"]}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        SqrtBox[
         FractionBox["19", "3"]]}]]}], 
     SqrtBox["19"]], "+", 
    RowBox[{"2", " ", 
     SqrtBox[
      FractionBox["2", 
       RowBox[{"13", "-", 
        RowBox[{"6", " ", 
         SqrtBox["2"]}]}]]], " ", 
     RowBox[{"(", 
      RowBox[{"543", "-", 
       RowBox[{"381", " ", 
        SqrtBox["2"]}], "+", 
       RowBox[{"48", " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"]}], "-", 
       RowBox[{"64", " ", "\[ImaginaryI]", " ", 
        SqrtBox["6"]}], "+", 
       RowBox[{"27", " ", "\[ImaginaryI]", " ", 
        SqrtBox[
         RowBox[{"39", "-", 
          RowBox[{"18", " ", 
           SqrtBox["2"]}]}]]}], "-", 
       RowBox[{"24", " ", 
        SqrtBox[
         RowBox[{"26", "-", 
          RowBox[{"12", " ", 
           SqrtBox["2"]}]}]]}]}], ")"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        SqrtBox["2"]}], "-", 
       SqrtBox[
        RowBox[{
         FractionBox["13", "3"], "-", 
         RowBox[{"2", " ", 
          SqrtBox["2"]}]}]]}]]}], "+", 
    RowBox[{"2", " ", 
     SqrtBox[
      FractionBox["2", 
       RowBox[{"13", "+", 
        RowBox[{"6", " ", 
         SqrtBox["2"]}]}]]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "543"}], "-", 
       RowBox[{"381", " ", 
        SqrtBox["2"]}], "-", 
       RowBox[{"48", " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"]}], "-", 
       RowBox[{"64", " ", "\[ImaginaryI]", " ", 
        SqrtBox["6"]}], "+", 
       RowBox[{"24", " ", 
        SqrtBox[
         RowBox[{"26", "+", 
          RowBox[{"12", " ", 
           SqrtBox["2"]}]}]]}], "+", 
       RowBox[{"27", " ", "\[ImaginaryI]", " ", 
        SqrtBox[
         RowBox[{"39", "+", 
          RowBox[{"18", " ", 
           SqrtBox["2"]}]}]]}]}], ")"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        SqrtBox["2"]}], "-", 
       SqrtBox[
        RowBox[{
         FractionBox["13", "3"], "+", 
         RowBox[{"2", " ", 
          SqrtBox["2"]}]}]]}]]}]}], ")"}], " ", "\[Pi]"}]], "Output",
 CellChangeTimes->{3.887204436722394*^9, 3.887230524194825*^9, 
  3.887231681439185*^9, 3.887254449632028*^9, 3.887255023730722*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"972e2e8d-ef96-4717-aa63-f1f981248e68"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Conjugate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"amp10MM", "/.", 
           RowBox[{"\[Omega]", "->", "2"}]}], "/.", 
          RowBox[{"zv", "->", "1"}]}], "//", "Simplify"}], "]"}], "+", 
       "amp10PP"}], ")"}], "/.", 
     RowBox[{"\[Omega]", "->", "2"}]}], "/.", 
    RowBox[{"zv", "->", "1"}]}], "//", "Expand"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.887204412542452*^9, 3.887204501921102*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"e7dcd566-ac8b-42d3-a07b-2f965a2ea02a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"3344", " ", 
    SqrtBox["97"]}]], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     FractionBox["1", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", "\[ImaginaryI]", " ", 
        SqrtBox["2"]}], "-", 
       SqrtBox["57"], "-", 
       SqrtBox[
        RowBox[{"39", "-", 
         RowBox[{"18", " ", 
          SqrtBox["2"]}]}]], "-", 
       SqrtBox[
        RowBox[{"39", "+", 
         RowBox[{"18", " ", 
          SqrtBox["2"]}]}]]}], ")"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"19", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"48", " ", 
         SqrtBox["97"]}], "+", 
        RowBox[{"27", " ", "\[ImaginaryI]", " ", 
         SqrtBox["582"]}], "-", 
        RowBox[{"48", " ", "\[ImaginaryI]", " ", 
         SqrtBox[
          RowBox[{"78", "-", 
           RowBox[{"36", " ", 
            SqrtBox["2"]}]}]]}], "-", 
        RowBox[{"128", " ", "\[ImaginaryI]", " ", 
         SqrtBox[
          RowBox[{"39", "-", 
           RowBox[{"18", " ", 
            SqrtBox["2"]}]}]]}], "-", 
        RowBox[{"543", " ", 
         SqrtBox[
          RowBox[{"26", "-", 
           RowBox[{"12", " ", 
            SqrtBox["2"]}]}]]}], "-", 
        RowBox[{"762", " ", 
         SqrtBox[
          RowBox[{"13", "-", 
           RowBox[{"6", " ", 
            SqrtBox["2"]}]}]]}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SqrtBox["57"], "+", 
          SqrtBox[
           RowBox[{"39", "-", 
            RowBox[{"18", " ", 
             SqrtBox["2"]}]}]]}], ")"}]}]]}], "-", 
     RowBox[{"19", " ", "\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "48"}], " ", "\[ImaginaryI]", " ", 
         SqrtBox["97"]}], "+", 
        RowBox[{"27", " ", 
         SqrtBox["582"]}], "+", 
        RowBox[{"48", " ", 
         SqrtBox[
          RowBox[{"78", "-", 
           RowBox[{"36", " ", 
            SqrtBox["2"]}]}]]}], "+", 
        RowBox[{"128", " ", 
         SqrtBox[
          RowBox[{"39", "-", 
           RowBox[{"18", " ", 
            SqrtBox["2"]}]}]]}], "-", 
        RowBox[{"543", " ", "\[ImaginaryI]", " ", 
         SqrtBox[
          RowBox[{"26", "-", 
           RowBox[{"12", " ", 
            SqrtBox["2"]}]}]]}], "-", 
        RowBox[{"762", " ", "\[ImaginaryI]", " ", 
         SqrtBox[
          RowBox[{"13", "-", 
           RowBox[{"6", " ", 
            SqrtBox["2"]}]}]]}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6", " ", "\[ImaginaryI]", " ", 
           SqrtBox["2"]}], "+", 
          SqrtBox["57"], "+", 
          SqrtBox[
           RowBox[{"39", "-", 
            RowBox[{"18", " ", 
             SqrtBox["2"]}]}]]}], ")"}]}]]}], "+", 
     RowBox[{"19", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "762"}], " ", 
         SqrtBox[
          RowBox[{"13", "+", 
           RowBox[{"6", " ", 
            SqrtBox["2"]}]}]]}], "+", 
        RowBox[{"543", " ", 
         SqrtBox[
          RowBox[{"26", "+", 
           RowBox[{"12", " ", 
            SqrtBox["2"]}]}]]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "128"}], " ", 
            SqrtBox[
             RowBox[{"39", "+", 
              RowBox[{"18", " ", 
               SqrtBox["2"]}]}]]}], "+", 
           RowBox[{"48", " ", 
            SqrtBox[
             RowBox[{"78", "+", 
              RowBox[{"36", " ", 
               SqrtBox["2"]}]}]]}], "+", 
           RowBox[{"3", " ", 
            SqrtBox["97"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"16", " ", "\[ImaginaryI]"}], "+", 
              RowBox[{"9", " ", 
               SqrtBox["6"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SqrtBox["57"], "+", 
          SqrtBox[
           RowBox[{"39", "+", 
            RowBox[{"18", " ", 
             SqrtBox["2"]}]}]]}], ")"}]}]]}], "+", 
     RowBox[{"19", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"48", " ", 
         SqrtBox["97"]}], "-", 
        RowBox[{"27", " ", "\[ImaginaryI]", " ", 
         SqrtBox["582"]}], "-", 
        RowBox[{"762", " ", 
         SqrtBox[
          RowBox[{"13", "+", 
           RowBox[{"6", " ", 
            SqrtBox["2"]}]}]]}], "+", 
        RowBox[{"543", " ", 
         SqrtBox[
          RowBox[{"26", "+", 
           RowBox[{"12", " ", 
            SqrtBox["2"]}]}]]}], "-", 
        RowBox[{"128", " ", "\[ImaginaryI]", " ", 
         SqrtBox[
          RowBox[{"39", "+", 
           RowBox[{"18", " ", 
            SqrtBox["2"]}]}]]}], "+", 
        RowBox[{"48", " ", "\[ImaginaryI]", " ", 
         SqrtBox[
          RowBox[{"78", "+", 
           RowBox[{"36", " ", 
            SqrtBox["2"]}]}]]}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6", " ", "\[ImaginaryI]", " ", 
           SqrtBox["2"]}], "+", 
          SqrtBox["57"], "+", 
          SqrtBox[
           RowBox[{"39", "+", 
            RowBox[{"18", " ", 
             SqrtBox["2"]}]}]]}], ")"}]}]]}], "+", 
     RowBox[{"32", " ", 
      SqrtBox["1843"], " ", 
      RowBox[{"(", 
       RowBox[{"33", "+", 
        RowBox[{"16", " ", "\[ImaginaryI]", " ", 
         SqrtBox["3"]}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", "\[ImaginaryI]", " ", 
           SqrtBox["2"]}], "+", 
          SqrtBox[
           RowBox[{"39", "-", 
            RowBox[{"18", " ", 
             SqrtBox["2"]}]}]], "+", 
          SqrtBox[
           RowBox[{"39", "+", 
            RowBox[{"18", " ", 
             SqrtBox["2"]}]}]]}], ")"}]}]]}]}], ")"}], " ", 
   "\[Pi]"}]}]], "Output",
 CellChangeTimes->{{3.887204406042274*^9, 3.887204503192679*^9}, 
   3.887230525288023*^9, 3.887231681473443*^9, 3.8872544507691793`*^9, 
   3.887255023773676*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"c4f479fe-a783-4567-aeff-fc8156157877"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["PlotMMW", "Section",
 CellChangeTimes->{{3.886895628955553*^9, 3.886895629618394*^9}, {
   3.887151080283435*^9, 3.887151080424231*^9}, 
   3.8872042487022038`*^9},ExpressionUUID->"3f7b5943-0bf1-4f24-8662-\
987837d208c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"num", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{"amp10MM", "/.", 
        RowBox[{"\[Omega]", "->", "ii"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "wlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.88689670051527*^9, 3.886896710529189*^9}, {
   3.8868967437226067`*^9, 3.88689674572598*^9}, {3.886914883414083*^9, 
   3.886914885704412*^9}, {3.886915686016613*^9, 3.886915692113388*^9}, {
   3.8869157457143927`*^9, 3.886915747258988*^9}, {3.886915995489711*^9, 
   3.886916007937778*^9}, {3.886916091143714*^9, 3.88691609538454*^9}, {
   3.886916197795518*^9, 3.886916208704795*^9}, {3.887151193831358*^9, 
   3.8871511939682627`*^9}, {3.887151606859659*^9, 3.887151630121749*^9}, 
   3.8871896290695*^9, {3.88718991941391*^9, 3.887189920448547*^9}, 
   3.8871901916553497`*^9, {3.8871980255472507`*^9, 3.887198028328755*^9}, 
   3.8872042717785597`*^9},
 CellLabel->
  "In[151]:=",ExpressionUUID->"e7717d63-3cf6-474d-b4ac-638eb7727ede"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Monitor", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"wf1list1", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ampNumUnReg", "=", 
          RowBox[{"amp1Reg", "/.", 
           RowBox[{"\[Omega]", "->", "ii"}]}]}], ";", 
         RowBox[{"NIntegrate", "[", 
          RowBox[{"ampNumUnReg", ",", 
           RowBox[{"{", 
            RowBox[{"zv", ",", "0", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"zb", ",", 
             RowBox[{
              RowBox[{"-", "\[Pi]"}], "*", "7"}], ",", 
             RowBox[{
              RowBox[{"+", "\[Pi]"}], "*", "7"}]}], "}"}], ",", 
           RowBox[{"Method", "->", "\"\<LocalAdaptive\>\""}]}], "]"}]}], ",", 
        
        RowBox[{"{", 
         RowBox[{"ii", ",", "0.2", ",", "0.4", ",", "0.1"}], "}"}]}], "]"}]}],
      ";"}], ",", "ii"}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{3.886896665191103*^9},
 CellLabel->
  "In[152]:=",ExpressionUUID->"1de03749-6ea0-4b59-ac2e-254e7de41c6d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"wfFmmRe", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"wlist", ",", 
      RowBox[{"Re", "/@", "num"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wfFmmIm", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"wlist", ",", 
      RowBox[{"Im", "/@", "num"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"wfFmmRe", ",", "wfFmmIm"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8869164575655413`*^9, 3.886916476150309*^9}, {
  3.886919146378133*^9, 3.88691914673559*^9}, {3.8869191812721643`*^9, 
  3.886919181697256*^9}, {3.88711056894635*^9, 3.8871105967993593`*^9}, {
  3.887151641620533*^9, 3.887151642687072*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"d2344ea2-99af-4ec1-a407-459bf1143bee"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw90w00VHkUAPAhaTS+acwwPmbMh5S+JsoR/7uVdk6akuWIVDgoNplIPlKZ
piyKtNTSSmUyS4SyOrubbbR9p1UbbSmLmjhl7W4h37Hxbt1z3nnnnXfv797z
f/dxQ2N8wrVpNFryx2vyfrJgMn4mZu7DTVahkUA93yUuS90NsmT+sFg8GU1k
85pcGS1Aiu9bSFD32pWdLSuBNhUdxLDoz7iR6wSm0sUaktW3zyfoS1fYGjEZ
XURUvXL1xE+Lsf4N6RcUvioLWAi/35+MHpJ04/KmO3In9N6S1sNO3czQ2Zj/
juQ/PbvUeoYQ5+kjY2ukYas97KFxqr6fxIm3pczvtMN+A6Ry+4nm+betQWvK
GyJhWu/eGnpbojdMjAd9lNZeFuiNEpmk8/aDc+bojZHEalYvc60peuPkUvtd
hcDNGOejwavo3ZGim/o4Pw3614kvZibpoa8FymmRDQNpulivDQ6bYlfM0EzD
ftNg9LvElyMHtXA+HXAq9H1w+d44oTwdaLGW9caPjhDKmw6OJsHd2scGCeXp
QsW1tqFMeT+hvBmgrfdbctCNd4Ty6JD3t8QnRvkvenSQ0IerfTy70dMDaZPk
x2chXejNhEvR6qQL/7xEjwF+DK3g3rp29PQh/fpEcpnfM/T0IfnWty1eeY/R
M4DWVmGbReQf6BnCBl/Tuc6HG9Azgo7iQTrP9Sahjs8YKoYDdZZ8oyZT6RHG
0ChkOqc7XEbfGCyPJ5RIAysItU8mUFcQwc799RSZaldgAt78iqaohhT0TKGe
se3oguY0NeWZAmuPYCct66Sa8kzBjx4fcnOdUk15ZtDlxuZO1ypVU/ObQaKf
RZpRWrma8syBEfFmYZluJXrm0N/xxf5mVRV65lArdbc/vKIavVkwUJTkszG0
Gr1ZcMiNqz+xrBo9JujsXTAv5moVekzYseHIxJiqEj0mvL6y5azHqgvoWUB9
WU3N6Ypy9CzgyXPDOdmvy9BjwRA7Nb5EtxQ9FpSa+ps+MVGhx4JD1o21OWbn
0GPD0yWBRh1mxeixYc9QhSSPfQY9SwgafFHyi28hepaQUTA+79HxfPQswYrh
vfzDhzz0rODNwGLVvNxj6FnB2uanei01R9DjQPqORTaD5z99Dw44zvKPMTCW
o8cBF9fA+4YNCehZw64hfY6yejt61jByTbvWz9IfPRtIL9F45v/lgftiA86O
WUdDjofgvtiAd7wPp6AyGvfFFormpo1v4uzC/bQFTX4io1iZiPtiB710teeZ
hBTMt4MfiuI4O5X70beDntn+qZ5sOdbbga1bed9q1gHsZwf5OSd8i5sPoMcF
be9VGravAj0udB4cOBJRqECPCwtt3+uwahTocaHG/czr7FMK9LigupJY1x+s
QI/38X9zz3XW/uTxgLfl+aLRQwfQ48H5wfqssref5uPBxLLeyKBVcvR44MF+
ZNKVmYqePaiCFc9OKfajZw9f5YffKW/di/+rPbCiElpfClPQswfZeW5U8dZk
9OzBe3hmWP3n8+ODS2pVSHb7bvT4ECAVStpt4tHjQ1bswViD8Dj0+PCw6T9X
rdqd6PFh38a2+iUmMvQEsNEs/GHu4Hb0BKCMv1vV1ROJngCY/DAj8fSt6Amg
p0kdXbI8DD0BZA/pZ7SoQtATAl3Dkz0I34yeEHwtj17QNAagJ4TTkpCvt2T4
oSeEk06xY+/z1qMnBOP5Ut2oF17oiSCnT1UqdvFETwRFuvfWn5B4oCeC7wPS
efVSMXoiWMqwuHXnBQ89EaRmlF6U173yoDwHuBqWmc2Qc3D/HSDn0viNvW1z
1JTnAM1eRo6uj8Xq/wHk1C9X
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11As0VHkYAPCRGUNEw3iM95iXrbTHI9Gx/t/ZLbSVpaRtbNJMj9N7e+2G
trKiiIlKk+mB2NWqjbyGlWYTs16F6URiUZpKWYpNesgu9/Odc88999zv+33f
vee7lyvZuXzDNBqNFvX/MXFWpE9EOZknH4jV8lYDdV1HuPqbB5MbA8DDfSLu
kVqtTbdCBHi/nSjNWt8f2DcfaJPRQ6xy8pPdddxgMt29lyyVuZx1TpgDmzZO
xFPCq7qcY2Qiwvo+MugSw6jvcII7jRPRTwoMZu1cxHJA7xXhanfY6+VzMP81
aQ6I8xsEc5xnmFwsWTCrK4UFdyfr/yW6P3jGsV4bYb8R0vqueKBAyQSdSW+U
9D9bvMV8iS5674jb6Vel4exxQnkfyJwN4ksRJaOE8j4S7k3CORg4TCjvE5Ep
MvRH9v9DqPlosGNJyJXi21pCzU+DM0NXo2Vnugjl60Dijx7cN3X3sH4acIy9
eNMLarCfLphuDaGFM68Saj46ePAaPAvl2SrKo0NEgpHEueWGivIYEJsYs+dQ
R42K8vRgoIlepExoUFEeExrvuhZ+WdKkojx9eKLw19ovbUFPH/J6XIueumnQ
M4DwZNDu/UWD3nSAXKuxo0oNeoaQv95wcHuUBj0jyHj1hcZ/bMozgq721cpF
y1rQmwF51V0PO/Y1o2cMat3qoCc6TeiZgCjVK9duoFFFvb6Z4Px+XuC7m/Wq
yfSNM6GqTmnZcbgW/Znw2ZBmu7uvWkXtEwuqrMOuK8dvqybbpbPAzeTF/LTG
W+iZQnz0rS7flSr0TKFGVeM57FOBnilUPDIRRq5SomcGx5Nkha55RTi/GVR/
enzrhVcBemw443LJzMUoDz023P+Q0v5ekIMeG0zfLO/LO3QBPXOQrylhrLh+
Cj1zqPQdKKWXxaFnASnjqUt9qzehZwGjoXs+HtP/HvfHAmZZ+WT3+hwhlGcJ
LsdmO75skuE+WcLi0Oxi5stTuH9WUK4YG00slhPKs4Ky/uCkghYFelZwXFLt
rv7mAnocaPSrvGPok4EeBxIjLt38KzgTPWsQZPs9P1qXiZ41lHZuydplmIWe
NVyT63212y4LPRu4ks+Od2VkoWcD7LwDvxnWTnm2YPuwjMzYOuXZQpcXs7tH
m4GeLfD6rw141l5Ezw5Ya1JOQNwF9Oxg3c9SThT/PHr2YF7UrVNxVYGePZxv
TWnz5qejZw9BIz0hqSly9Bxgy4PZoeqRNPQcQBywLDYw7DR6jqDPDPzZsuok
5jvCy47sZNncVPQdwdq1LT3I/wTWO4JstfevLf5J2M8R1NuGg9skCehxQSjt
O9d2Lh49LowN1nrL38SixwWf3BQD790x6HFh4biaqxAeRI8Le1c69lUWRaLn
BG4znv3OTN6HnhMc7hU7NBXuQs8JNPU29esXb0PPCXSUNyLDbm9Azwk2X2HG
qDPXoseDhPDOwr8fhKDHg9ley6JyvvbD/xMPOoeG78W389DjAVvh162n9sB9
50FId1S9dYc/7jMfFv4keR6kDsb954PRn9e9UutC8fvnQ7ndB0YgIwy/Bz6k
dQjo546Go8cHRqdpr29+BHoC6IqOGXrWsA49AWzULpCfzJSgJwARi97w0F2K
ngBaT/QFC5Kk6AmgvGyF8dl8KXpCWL8ytNksR4qeEMRp8kOf75SiJ4QWr7mH
PSymPCEc4et42F6UoCeEP3ZFR8sMJeiJ4O3dWs4jydR8IngdC48tL0egJ4Lu
/QFzGirXoieC528rSsXmU88rgij6k20Ga75DzxmMxdVPtyrE6DlDRmTi/TjN
t+g5w8KsXF6zwSrVf1MsSw0=
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 12.200000000000001`}, {-0.29245185581622835`, 
    203.0658969753209}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8869191471525507`*^9, 3.886919183073358*^9}, {
   3.88691923758848*^9, 3.8869192680758257`*^9}, 3.886919728744965*^9, 
   3.887110681340457*^9, 3.887150606510663*^9, 3.887151208449107*^9, 
   3.887151643984583*^9, 3.887153710494817*^9, 3.88715403210804*^9, 
   3.887188292216506*^9, 3.887189633446327*^9, 3.887189923744639*^9, 
   3.887190205062153*^9, 3.887190452269411*^9, 3.887190677450986*^9, 
   3.8871976802337914`*^9, 3.88719817461346*^9, {3.887203642851412*^9, 
   3.8872036625971613`*^9}, 3.8872042749284077`*^9, 3.887230526913599*^9, 
   3.887231684375943*^9, 3.887254455838443*^9, 3.88725502611334*^9},
 CellLabel->
  "Out[155]=",ExpressionUUID->"da59dbb7-07be-4e29-a080-621f94c7b581"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["time domain", "Section",
 CellChangeTimes->{{3.887151094656426*^9, 
  3.887151096946519*^9}},ExpressionUUID->"1c0ec2de-7c7b-4d9b-842d-\
8d8e7bc0a82c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"wf1PP", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Part", "[", 
         RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFRe"}], ")"}], 
     "+", 
     RowBox[{"I", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Part", "[", 
          RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFIm"}], 
       ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wf1MM", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Part", "[", 
         RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFmmRe"}], ")"}],
      "+", 
     RowBox[{"I", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Part", "[", 
          RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFmmIm"}], 
       ")"}]}]}], ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.887110697337852*^9, 3.887110735670046*^9}, {
  3.887254612215122*^9, 3.8872546134391327`*^9}},
 CellLabel->
  "In[156]:=",ExpressionUUID->"278f5371-68d0-4160-82cc-0b1b7e74cbe5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"wf1PP", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.887204360633793*^9, 3.887204361192514*^9}, {
  3.887254476066461*^9, 3.887254481030156*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"f5e36c16-1cd1-43e5-8498-6081b25ea528"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "256.9693129580713`"}], "-", 
  RowBox[{"256.9693129580713`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.887204361622994*^9, 3.887230537267025*^9, {3.887254464605109*^9, 
   3.887254481513232*^9}},
 CellLabel->"Out[95]=",ExpressionUUID->"79773bad-bd44-4ba9-b87c-13bd2ed80e85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"wf1MM", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.887204367320581*^9, 3.887204368205619*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"cd18277e-06dc-4e28-b501-06bd9d2121e3"],

Cell[BoxData[
 RowBox[{"203.0658969753209`", "\[VeryThinSpace]", "+", 
  RowBox[{"100.56088350581997`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.8872043699708443`*^9, 3.887230539279138*^9, 
  3.887254466931457*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"0676f4b6-7986-4b45-a2ea-e877138ab764"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"wf1PP", "=", 
    RowBox[{"wf1PP", "[", 
     RowBox[{"[", 
      RowBox[{"minomega", ";;", 
       RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"wf1MM", "=", 
    RowBox[{"wf1MM", "[", 
     RowBox[{"[", 
      RowBox[{"minomega", ";;", 
       RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8871107974164667`*^9, 3.88711086551973*^9}, {
   3.887150670169547*^9, 3.887150671605939*^9}, {3.88715127126446*^9, 
   3.8871512727617893`*^9}, 3.887151658405706*^9},
 CellLabel->
  "In[407]:=",ExpressionUUID->"2ca5b032-0625-4b4e-8360-6d8901f2abd0"],

Cell[CellGroupData[{

Cell[BoxData["omegas"], "Input",
 CellLabel->
  "In[308]:=",ExpressionUUID->"596208d5-fd63-4c2d-af4d-465ca66c18c2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.01`", ",", "0.02`", ",", "0.03`", ",", "0.04`", ",", "0.05`", ",", 
   "0.060000000000000005`", ",", "0.06999999999999999`", ",", "0.08`", ",", 
   "0.09`", ",", "0.09999999999999999`", ",", "0.11`", ",", "0.12`", ",", 
   "0.13`", ",", "0.14`", ",", "0.15000000000000002`", ",", "0.16`", ",", 
   "0.17`", ",", "0.18000000000000002`", ",", "0.19`", ",", "0.2`", ",", 
   "0.21000000000000002`", ",", "0.22`", ",", "0.23`", ",", 
   "0.24000000000000002`", ",", "0.25`", ",", "0.26`", ",", "0.27`", ",", 
   "0.28`", ",", "0.29000000000000004`", ",", "0.3`", ",", "0.31`", ",", 
   "0.32`", ",", "0.33`", ",", "0.34`", ",", "0.35000000000000003`", ",", 
   "0.36000000000000004`", ",", "0.37`", ",", "0.38`", ",", "0.39`", ",", 
   "0.4`", ",", "0.41000000000000003`", ",", "0.42000000000000004`", ",", 
   "0.43`", ",", "0.44`", ",", "0.45`", ",", "0.46`", ",", 
   "0.47000000000000003`", ",", "0.48000000000000004`", ",", "0.49`", ",", 
   "0.5`", ",", "0.51`", ",", "0.52`", ",", "0.53`", ",", "0.54`", ",", 
   "0.55`", ",", "0.56`", ",", "0.5700000000000001`", ",", 
   "0.5800000000000001`", ",", "0.59`", ",", "0.6`", ",", "0.61`", ",", 
   "0.62`", ",", "0.63`", ",", "0.64`", ",", "0.65`", ",", "0.66`", ",", 
   "0.67`", ",", "0.68`", ",", "0.6900000000000001`", ",", 
   "0.7000000000000001`", ",", "0.7100000000000001`", ",", "0.72`", ",", 
   "0.73`", ",", "0.74`", ",", "0.75`", ",", "0.76`", ",", "0.77`", ",", 
   "0.78`", ",", "0.79`", ",", "0.8`", ",", "0.81`", ",", 
   "0.8200000000000001`", ",", "0.8300000000000001`", ",", 
   "0.8400000000000001`", ",", "0.85`", ",", "0.86`", ",", "0.87`", ",", 
   "0.88`", ",", "0.89`", ",", "0.9`", ",", "0.91`", ",", "0.92`", ",", 
   "0.93`", ",", "0.9400000000000001`", ",", "0.9500000000000001`", ",", 
   "0.9600000000000001`", ",", "0.97`", ",", "0.98`", ",", "0.99`", ",", 
   "1.`", ",", "1.01`", ",", "1.02`", ",", "1.03`", ",", "1.04`", ",", 
   "1.05`", ",", "1.06`", ",", "1.07`", ",", "1.08`", ",", "1.09`", ",", 
   "1.1`", ",", "1.11`", ",", "1.12`", ",", "1.1300000000000001`", ",", 
   "1.1400000000000001`", ",", "1.1500000000000001`", ",", 
   "1.1600000000000001`", ",", "1.17`", ",", "1.18`", ",", "1.19`", ",", 
   "1.2`", ",", "1.21`", ",", "1.22`", ",", "1.23`", ",", "1.24`", ",", 
   "1.25`", ",", "1.26`", ",", "1.27`", ",", "1.28`", ",", "1.29`", ",", 
   "1.3`", ",", "1.31`", ",", "1.32`", ",", "1.33`", ",", "1.34`", ",", 
   "1.35`", ",", "1.36`", ",", "1.37`", ",", "1.3800000000000001`", ",", 
   "1.3900000000000001`", ",", "1.4000000000000001`", ",", 
   "1.4100000000000001`", ",", "1.42`", ",", "1.43`", ",", "1.44`", ",", 
   "1.45`", ",", "1.46`", ",", "1.47`", ",", "1.48`", ",", "1.49`", ",", 
   "1.5`", ",", "1.51`", ",", "1.52`", ",", "1.53`", ",", "1.54`", ",", 
   "1.55`", ",", "1.56`", ",", "1.57`", ",", "1.58`", ",", "1.59`", ",", 
   "1.6`", ",", "1.61`", ",", "1.62`", ",", "1.6300000000000001`", ",", 
   "1.6400000000000001`", ",", "1.6500000000000001`", ",", 
   "1.6600000000000001`", ",", "1.6700000000000002`", ",", "1.68`", ",", 
   "1.69`", ",", "1.7`", ",", "1.71`", ",", "1.72`", ",", "1.73`", ",", 
   "1.74`", ",", "1.75`", ",", "1.76`", ",", "1.77`", ",", "1.78`", ",", 
   "1.79`", ",", "1.8`", ",", "1.81`", ",", "1.82`", ",", "1.83`", ",", 
   "1.84`", ",", "1.85`", ",", "1.86`", ",", "1.87`", ",", 
   "1.8800000000000001`", ",", "1.8900000000000001`", ",", 
   "1.9000000000000001`", ",", "1.9100000000000001`", ",", 
   "1.9200000000000002`", ",", "1.93`", ",", "1.94`", ",", "1.95`", ",", 
   "1.96`", ",", "1.97`", ",", "1.98`", ",", "1.99`", ",", "2.`", ",", 
   "2.01`", ",", "2.02`", ",", "2.03`", ",", "2.04`", ",", "2.05`", ",", 
   "2.0599999999999996`", ",", "2.07`", ",", "2.0799999999999996`", ",", 
   "2.09`", ",", "2.0999999999999996`", ",", "2.11`", ",", 
   "2.1199999999999997`", ",", "2.13`", ",", "2.1399999999999997`", ",", 
   "2.15`", ",", "2.1599999999999997`", ",", "2.17`", ",", 
   "2.1799999999999997`", ",", "2.19`", ",", "2.1999999999999997`", ",", 
   "2.21`", ",", "2.2199999999999998`", ",", "2.23`", ",", 
   "2.2399999999999998`", ",", "2.25`", ",", "2.26`", ",", "2.27`", ",", 
   "2.28`", ",", "2.29`", ",", "2.3`", ",", "2.31`", ",", "2.32`", ",", 
   "2.3299999999999996`", ",", "2.34`", ",", "2.3499999999999996`", ",", 
   "2.36`", ",", "2.3699999999999997`", ",", "2.38`", ",", 
   "2.3899999999999997`", ",", "2.4`", ",", "2.4099999999999997`", ",", 
   "2.42`", ",", "2.4299999999999997`", ",", "2.44`", ",", 
   "2.4499999999999997`", ",", "2.46`", ",", "2.4699999999999998`", ",", 
   "2.48`", ",", "2.4899999999999998`", ",", "2.5`", ",", "2.51`", ",", 
   "2.52`", ",", "2.53`", ",", "2.54`", ",", "2.55`", ",", "2.56`", ",", 
   "2.57`", ",", "2.5799999999999996`", ",", "2.59`", ",", 
   "2.5999999999999996`", ",", "2.61`", ",", "2.6199999999999997`", ",", 
   "2.63`", ",", "2.6399999999999997`", ",", "2.65`", ",", 
   "2.6599999999999997`", ",", "2.67`", ",", "2.6799999999999997`", ",", 
   "2.69`", ",", "2.6999999999999997`", ",", "2.71`", ",", 
   "2.7199999999999998`", ",", "2.73`", ",", "2.7399999999999998`", ",", 
   "2.75`", ",", "2.76`", ",", "2.77`", ",", "2.78`", ",", "2.79`", ",", 
   "2.8`", ",", "2.81`", ",", "2.82`", ",", "2.8299999999999996`", ",", 
   "2.84`", ",", "2.8499999999999996`", ",", "2.86`", ",", 
   "2.8699999999999997`", ",", "2.88`", ",", "2.8899999999999997`", ",", 
   "2.9`", ",", "2.9099999999999997`", ",", "2.92`", ",", 
   "2.9299999999999997`", ",", "2.94`", ",", "2.9499999999999997`", ",", 
   "2.96`", ",", "2.9699999999999998`", ",", "2.98`", ",", 
   "2.9899999999999998`", ",", "3.`", ",", "3.01`", ",", "3.02`", ",", 
   "3.03`", ",", "3.04`", ",", "3.05`", ",", "3.06`", ",", "3.07`", ",", 
   "3.08`", ",", "3.09`", ",", "3.0999999999999996`", ",", "3.11`", ",", 
   "3.1199999999999997`", ",", "3.13`", ",", "3.1399999999999997`", ",", 
   "3.15`", ",", "3.1599999999999997`", ",", "3.17`", ",", 
   "3.1799999999999997`", ",", "3.19`", ",", "3.1999999999999997`", ",", 
   "3.21`", ",", "3.2199999999999998`", ",", "3.23`", ",", 
   "3.2399999999999998`", ",", "3.25`", ",", "3.26`", ",", "3.27`", ",", 
   "3.28`", ",", "3.29`", ",", "3.3`", ",", "3.31`", ",", "3.32`", ",", 
   "3.33`", ",", "3.34`", ",", "3.3499999999999996`", ",", "3.36`", ",", 
   "3.3699999999999997`", ",", "3.38`", ",", "3.3899999999999997`", ",", 
   "3.4`", ",", "3.4099999999999997`", ",", "3.42`", ",", 
   "3.4299999999999997`", ",", "3.44`", ",", "3.4499999999999997`", ",", 
   "3.46`", ",", "3.4699999999999998`", ",", "3.48`", ",", 
   "3.4899999999999998`", ",", "3.5`", ",", "3.51`", ",", "3.52`", ",", 
   "3.53`", ",", "3.54`", ",", "3.55`", ",", "3.56`", ",", "3.57`", ",", 
   "3.58`", ",", "3.59`", ",", "3.5999999999999996`", ",", "3.61`", ",", 
   "3.6199999999999997`", ",", "3.63`", ",", "3.6399999999999997`", ",", 
   "3.65`", ",", "3.6599999999999997`", ",", "3.67`", ",", 
   "3.6799999999999997`", ",", "3.69`", ",", "3.6999999999999997`", ",", 
   "3.71`", ",", "3.7199999999999998`", ",", "3.73`", ",", 
   "3.7399999999999998`", ",", "3.75`", ",", "3.76`", ",", "3.77`", ",", 
   "3.78`", ",", "3.79`", ",", "3.8`", ",", "3.81`", ",", "3.82`", ",", 
   "3.83`", ",", "3.84`", ",", "3.8499999999999996`", ",", "3.86`", ",", 
   "3.8699999999999997`", ",", "3.88`", ",", "3.8899999999999997`", ",", 
   "3.9`", ",", "3.9099999999999997`", ",", "3.92`", ",", 
   "3.9299999999999997`", ",", "3.94`", ",", "3.9499999999999997`", ",", 
   "3.96`", ",", "3.9699999999999998`", ",", "3.98`", ",", 
   "3.9899999999999998`", ",", "4.`", ",", "4.01`", ",", "4.02`", ",", 
   "4.03`", ",", "4.04`", ",", "4.05`", ",", "4.06`", ",", "4.07`", ",", 
   "4.08`", ",", "4.09`", ",", "4.1`", ",", "4.109999999999999`", ",", 
   "4.12`", ",", "4.13`", ",", "4.14`", ",", "4.1499999999999995`", ",", 
   "4.16`", ",", "4.17`", ",", "4.18`", ",", "4.1899999999999995`", ",", 
   "4.2`", ",", "4.21`", ",", "4.22`", ",", "4.2299999999999995`", ",", 
   "4.24`", ",", "4.25`", ",", "4.26`", ",", "4.27`", ",", "4.28`", ",", 
   "4.29`", ",", "4.3`", ",", "4.31`", ",", "4.32`", ",", "4.33`", ",", 
   "4.34`", ",", "4.35`", ",", "4.36`", ",", "4.37`", ",", "4.38`", ",", 
   "4.39`", ",", "4.3999999999999995`", ",", "4.41`", ",", "4.42`", ",", 
   "4.43`", ",", "4.4399999999999995`", ",", "4.45`", ",", "4.46`", ",", 
   "4.47`", ",", "4.4799999999999995`", ",", "4.49`", ",", "4.5`", ",", 
   "4.51`", ",", "4.52`", ",", "4.53`", ",", "4.54`", ",", "4.55`", ",", 
   "4.56`", ",", "4.57`", ",", "4.58`", ",", "4.59`", ",", "4.6`", ",", 
   "4.61`", ",", "4.62`", ",", "4.63`", ",", "4.64`", ",", 
   "4.6499999999999995`", ",", "4.66`", ",", "4.67`", ",", "4.68`", ",", 
   "4.6899999999999995`", ",", "4.7`", ",", "4.71`", ",", "4.72`", ",", 
   "4.7299999999999995`", ",", "4.74`", ",", "4.75`", ",", "4.76`", ",", 
   "4.77`", ",", "4.78`", ",", "4.79`", ",", "4.8`", ",", "4.81`", ",", 
   "4.82`", ",", "4.83`", ",", "4.84`", ",", "4.85`", ",", "4.86`", ",", 
   "4.87`", ",", "4.88`", ",", "4.89`", ",", "4.8999999999999995`", ",", 
   "4.91`", ",", "4.92`", ",", "4.93`", ",", "4.9399999999999995`", ",", 
   "4.95`", ",", "4.96`", ",", "4.97`", ",", "4.9799999999999995`", ",", 
   "4.99`", ",", "5.`", ",", "5.01`", ",", "5.02`", ",", "5.03`", ",", 
   "5.04`", ",", "5.05`", ",", "5.06`", ",", "5.07`", ",", "5.08`", ",", 
   "5.09`", ",", "5.1`", ",", "5.11`", ",", "5.12`", ",", "5.13`", ",", 
   "5.14`", ",", "5.1499999999999995`", ",", "5.16`", ",", "5.17`", ",", 
   "5.18`", ",", "5.1899999999999995`", ",", "5.2`", ",", "5.21`", ",", 
   "5.22`", ",", "5.2299999999999995`", ",", "5.24`", ",", "5.25`", ",", 
   "5.26`", ",", "5.27`", ",", "5.28`", ",", "5.29`", ",", "5.3`", ",", 
   "5.31`", ",", "5.32`", ",", "5.33`", ",", "5.34`", ",", "5.35`", ",", 
   "5.36`", ",", "5.37`", ",", "5.38`", ",", "5.39`", ",", 
   "5.3999999999999995`", ",", "5.41`", ",", "5.42`", ",", "5.43`", ",", 
   "5.4399999999999995`", ",", "5.45`", ",", "5.46`", ",", "5.47`", ",", 
   "5.4799999999999995`", ",", "5.49`", ",", "5.5`", ",", "5.51`", ",", 
   "5.52`", ",", "5.53`", ",", "5.54`", ",", "5.55`", ",", "5.56`", ",", 
   "5.57`", ",", "5.58`", ",", "5.59`", ",", "5.6`", ",", "5.61`", ",", 
   "5.62`", ",", "5.63`", ",", "5.64`", ",", "5.6499999999999995`", ",", 
   "5.66`", ",", "5.67`", ",", "5.68`", ",", "5.6899999999999995`", ",", 
   "5.7`", ",", "5.71`", ",", "5.72`", ",", "5.7299999999999995`", ",", 
   "5.74`", ",", "5.75`", ",", "5.76`", ",", "5.77`", ",", "5.78`", ",", 
   "5.79`", ",", "5.8`", ",", "5.81`", ",", "5.82`", ",", "5.83`", ",", 
   "5.84`", ",", "5.85`", ",", "5.86`", ",", "5.87`", ",", "5.88`", ",", 
   "5.89`", ",", "5.8999999999999995`", ",", "5.91`", ",", "5.92`", ",", 
   "5.93`", ",", "5.9399999999999995`", ",", "5.95`", ",", "5.96`", ",", 
   "5.97`", ",", "5.9799999999999995`", ",", "5.99`", ",", "6.`", ",", 
   "6.01`", ",", "6.02`", ",", "6.03`", ",", "6.04`", ",", "6.05`", ",", 
   "6.06`", ",", "6.07`", ",", "6.08`", ",", "6.09`", ",", "6.1`", ",", 
   "6.11`", ",", "6.12`", ",", "6.13`", ",", "6.14`", ",", "6.15`", ",", 
   "6.16`", ",", "6.17`", ",", "6.18`", ",", "6.1899999999999995`", ",", 
   "6.2`", ",", "6.21`", ",", "6.22`", ",", "6.2299999999999995`", ",", 
   "6.24`", ",", "6.25`", ",", "6.26`", ",", "6.27`", ",", "6.28`", ",", 
   "6.29`", ",", "6.3`", ",", "6.31`", ",", "6.32`", ",", "6.33`", ",", 
   "6.34`", ",", "6.35`", ",", "6.36`", ",", "6.37`", ",", "6.38`", ",", 
   "6.39`", ",", "6.4`", ",", "6.41`", ",", "6.42`", ",", "6.43`", ",", 
   "6.4399999999999995`", ",", "6.45`", ",", "6.46`", ",", "6.47`", ",", 
   "6.4799999999999995`", ",", "6.49`", ",", "6.5`", ",", "6.51`", ",", 
   "6.52`", ",", "6.53`", ",", "6.54`", ",", "6.55`", ",", "6.56`", ",", 
   "6.57`", ",", "6.58`", ",", "6.59`", ",", "6.6`", ",", "6.61`", ",", 
   "6.62`", ",", "6.63`", ",", "6.64`", ",", "6.65`", ",", "6.66`", ",", 
   "6.67`", ",", "6.68`", ",", "6.6899999999999995`", ",", "6.7`", ",", 
   "6.71`", ",", "6.72`", ",", "6.7299999999999995`", ",", "6.74`", ",", 
   "6.75`", ",", "6.76`", ",", "6.77`", ",", "6.78`", ",", "6.79`", ",", 
   "6.8`", ",", "6.81`", ",", "6.82`", ",", "6.83`", ",", "6.84`", ",", 
   "6.85`", ",", "6.86`", ",", "6.87`", ",", "6.88`", ",", "6.89`", ",", 
   "6.9`", ",", "6.91`", ",", "6.92`", ",", "6.93`", ",", 
   "6.9399999999999995`", ",", "6.95`", ",", "6.96`", ",", "6.97`", ",", 
   "6.9799999999999995`", ",", "6.99`", ",", "7.`", ",", "7.01`", ",", 
   "7.02`", ",", "7.03`", ",", "7.04`", ",", "7.05`", ",", "7.06`", ",", 
   "7.07`", ",", "7.08`", ",", "7.09`", ",", "7.1`", ",", "7.11`", ",", 
   "7.12`", ",", "7.13`", ",", "7.14`", ",", "7.15`", ",", "7.16`", ",", 
   "7.17`", ",", "7.18`", ",", "7.1899999999999995`", ",", "7.2`", ",", 
   "7.21`", ",", "7.22`", ",", "7.2299999999999995`", ",", "7.24`", ",", 
   "7.25`", ",", "7.26`", ",", "7.27`", ",", "7.28`", ",", "7.29`", ",", 
   "7.3`", ",", "7.31`", ",", "7.32`", ",", "7.33`", ",", "7.34`", ",", 
   "7.35`", ",", "7.36`", ",", "7.37`", ",", "7.38`", ",", "7.39`", ",", 
   "7.4`", ",", "7.41`", ",", "7.42`", ",", "7.43`", ",", 
   "7.4399999999999995`", ",", "7.45`", ",", "7.46`", ",", "7.47`", ",", 
   "7.4799999999999995`", ",", "7.49`", ",", "7.5`", ",", "7.51`", ",", 
   "7.52`", ",", "7.53`", ",", "7.54`", ",", "7.55`", ",", "7.56`", ",", 
   "7.57`", ",", "7.58`", ",", "7.59`", ",", "7.6`", ",", "7.61`", ",", 
   "7.62`", ",", "7.63`", ",", "7.64`", ",", "7.65`", ",", "7.66`", ",", 
   "7.67`", ",", "7.68`", ",", "7.6899999999999995`", ",", "7.7`", ",", 
   "7.71`", ",", "7.72`", ",", "7.7299999999999995`", ",", "7.74`", ",", 
   "7.75`", ",", "7.76`", ",", "7.77`", ",", "7.78`", ",", "7.79`", ",", 
   "7.8`", ",", "7.81`", ",", "7.82`", ",", "7.83`", ",", "7.84`", ",", 
   "7.85`", ",", "7.86`", ",", "7.87`", ",", "7.88`", ",", "7.89`", ",", 
   "7.9`", ",", "7.91`", ",", "7.92`", ",", "7.93`", ",", "7.94`", ",", 
   "7.95`", ",", "7.96`", ",", "7.97`", ",", "7.9799999999999995`", ",", 
   "7.99`", ",", "8.`", ",", "8.01`", ",", "8.02`", ",", "8.03`", ",", 
   "8.04`", ",", "8.05`", ",", "8.06`", ",", "8.07`", ",", "8.08`", ",", 
   "8.09`", ",", "8.1`", ",", "8.11`", ",", "8.12`", ",", "8.13`", ",", 
   "8.14`", ",", "8.15`", ",", "8.16`", ",", "8.17`", ",", "8.18`", ",", 
   "8.19`", ",", "8.2`", ",", "8.209999999999999`", ",", "8.22`", ",", 
   "8.23`", ",", "8.24`", ",", "8.25`", ",", "8.26`", ",", "8.27`", ",", 
   "8.28`", ",", "8.29`", ",", "8.3`", ",", "8.31`", ",", "8.32`", ",", 
   "8.33`", ",", "8.34`", ",", "8.35`", ",", "8.36`", ",", "8.37`", ",", 
   "8.38`", ",", "8.39`", ",", "8.4`", ",", "8.41`", ",", "8.42`", ",", 
   "8.43`", ",", "8.44`", ",", "8.45`", ",", "8.459999999999999`", ",", 
   "8.47`", ",", "8.48`", ",", "8.49`", ",", "8.5`", ",", "8.51`", ",", 
   "8.52`", ",", "8.53`", ",", "8.54`", ",", "8.55`", ",", "8.56`", ",", 
   "8.57`", ",", "8.58`", ",", "8.59`", ",", "8.6`", ",", "8.61`", ",", 
   "8.62`", ",", "8.63`", ",", "8.64`", ",", "8.65`", ",", "8.66`", ",", 
   "8.67`", ",", "8.68`", ",", "8.69`", ",", "8.7`", ",", "8.71`", ",", 
   "8.72`", ",", "8.73`", ",", "8.74`", ",", "8.75`", ",", "8.76`", ",", 
   "8.77`", ",", "8.78`", ",", "8.79`", ",", "8.8`", ",", "8.81`", ",", 
   "8.82`", ",", "8.83`", ",", "8.84`", ",", "8.85`", ",", "8.86`", ",", 
   "8.87`", ",", "8.88`", ",", "8.89`", ",", "8.9`", ",", "8.91`", ",", 
   "8.92`", ",", "8.93`", ",", "8.94`", ",", "8.95`", ",", "8.96`", ",", 
   "8.97`", ",", "8.98`", ",", "8.99`", ",", "9.`", ",", "9.01`", ",", 
   "9.02`", ",", "9.03`", ",", "9.04`", ",", "9.05`", ",", "9.06`", ",", 
   "9.07`", ",", "9.08`", ",", "9.09`", ",", "9.1`", ",", "9.11`", ",", 
   "9.12`", ",", "9.13`", ",", "9.14`", ",", "9.15`", ",", "9.16`", ",", 
   "9.17`", ",", "9.18`", ",", "9.19`", ",", "9.2`", ",", "9.21`", ",", 
   "9.22`", ",", "9.23`", ",", "9.24`", ",", "9.25`", ",", "9.26`", ",", 
   "9.27`", ",", "9.28`", ",", "9.29`", ",", "9.3`", ",", "9.31`", ",", 
   "9.32`", ",", "9.33`", ",", "9.34`", ",", "9.35`", ",", "9.36`", ",", 
   "9.37`", ",", "9.38`", ",", "9.39`", ",", "9.4`", ",", "9.41`", ",", 
   "9.42`", ",", "9.43`", ",", "9.44`", ",", "9.45`", ",", "9.46`", ",", 
   "9.47`", ",", "9.48`", ",", "9.49`", ",", "9.5`", ",", "9.51`", ",", 
   "9.52`", ",", "9.53`", ",", "9.54`", ",", "9.55`", ",", "9.56`", ",", 
   "9.57`", ",", "9.58`", ",", "9.59`", ",", "9.6`", ",", "9.61`", ",", 
   "9.62`", ",", "9.63`", ",", "9.64`", ",", "9.65`", ",", "9.66`", ",", 
   "9.67`", ",", "9.68`", ",", "9.69`", ",", "9.7`", ",", "9.71`", ",", 
   "9.72`", ",", "9.73`", ",", "9.74`", ",", "9.75`", ",", "9.76`", ",", 
   "9.77`", ",", "9.78`", ",", "9.79`", ",", "9.8`", ",", "9.81`", ",", 
   "9.82`", ",", "9.83`", ",", "9.84`", ",", "9.85`", ",", "9.86`", ",", 
   "9.87`", ",", "9.88`", ",", "9.89`", ",", "9.9`", ",", "9.91`", ",", 
   "9.92`", ",", "9.93`", ",", "9.94`", ",", "9.95`", ",", "9.96`", ",", 
   "9.97`", ",", "9.98`", ",", "9.99`", ",", "10.`", ",", "10.01`", ",", 
   "10.02`", ",", "10.03`", ",", "10.04`", ",", "10.05`", ",", "10.06`", ",", 
   "10.07`", ",", "10.08`", ",", "10.09`", ",", "10.1`", ",", "10.11`", ",", 
   "10.12`", ",", "10.13`", ",", "10.14`", ",", "10.15`", ",", "10.16`", ",", 
   "10.17`", ",", "10.18`", ",", "10.19`", ",", "10.2`", ",", "10.21`", ",", 
   "10.22`", ",", "10.23`", ",", "10.24`", ",", "10.25`", ",", "10.26`", ",", 
   "10.27`", ",", "10.28`", ",", "10.29`", ",", "10.3`", ",", "10.31`", ",", 
   "10.32`", ",", "10.33`", ",", "10.34`", ",", "10.35`", ",", "10.36`", ",", 
   "10.37`", ",", "10.38`", ",", "10.39`", ",", "10.4`", ",", "10.41`", ",", 
   "10.42`", ",", "10.43`", ",", "10.44`", ",", "10.45`", ",", "10.46`", ",", 
   "10.47`", ",", "10.48`", ",", "10.49`", ",", "10.5`", ",", "10.51`", ",", 
   "10.52`", ",", "10.53`", ",", "10.54`", ",", "10.55`", ",", "10.56`", ",", 
   "10.57`", ",", "10.58`", ",", "10.59`", ",", "10.6`", ",", "10.61`", ",", 
   "10.62`", ",", "10.63`", ",", "10.64`", ",", "10.65`", ",", "10.66`", ",", 
   "10.67`", ",", "10.68`", ",", "10.69`", ",", "10.7`", ",", "10.71`", ",", 
   "10.72`", ",", "10.73`", ",", "10.74`", ",", "10.75`", ",", "10.76`", ",", 
   "10.77`", ",", "10.78`", ",", "10.79`", ",", "10.8`", ",", "10.81`", ",", 
   "10.82`", ",", "10.83`", ",", "10.84`", ",", "10.85`", ",", "10.86`", ",", 
   "10.87`", ",", "10.88`", ",", "10.89`", ",", "10.9`", ",", "10.91`", ",", 
   "10.92`", ",", "10.93`", ",", "10.94`", ",", "10.95`", ",", "10.96`", ",", 
   "10.97`", ",", "10.98`", ",", "10.99`", ",", "11.`", ",", "11.01`", ",", 
   "11.02`", ",", "11.03`", ",", "11.04`", ",", "11.05`", ",", "11.06`", ",", 
   "11.07`", ",", "11.08`", ",", "11.09`", ",", "11.1`", ",", "11.11`", ",", 
   "11.12`", ",", "11.13`", ",", "11.14`", ",", "11.15`", ",", "11.16`", ",", 
   "11.17`", ",", "11.18`", ",", "11.19`", ",", "11.2`", ",", "11.21`", ",", 
   "11.22`", ",", "11.23`", ",", "11.24`", ",", "11.25`", ",", "11.26`", ",", 
   "11.27`", ",", "11.28`", ",", "11.29`", ",", "11.3`", ",", "11.31`", ",", 
   "11.32`", ",", "11.33`", ",", "11.34`", ",", "11.35`", ",", "11.36`", ",", 
   "11.37`", ",", "11.38`", ",", "11.39`", ",", "11.4`", ",", "11.41`", ",", 
   "11.42`", ",", "11.43`", ",", "11.44`", ",", "11.45`", ",", "11.46`", ",", 
   "11.47`", ",", "11.48`", ",", "11.49`", ",", "11.5`", ",", "11.51`", ",", 
   "11.52`", ",", "11.53`", ",", "11.54`", ",", "11.55`", ",", "11.56`", ",", 
   "11.57`", ",", "11.58`", ",", "11.59`", ",", "11.6`", ",", "11.61`", ",", 
   "11.62`", ",", "11.63`", ",", "11.64`", ",", "11.65`", ",", "11.66`", ",", 
   "11.67`", ",", "11.68`", ",", "11.69`", ",", "11.7`", ",", "11.71`", ",", 
   "11.72`", ",", "11.73`", ",", "11.74`", ",", "11.75`", ",", "11.76`", ",", 
   "11.77`", ",", "11.78`", ",", "11.79`", ",", "11.8`", ",", "11.81`", ",", 
   "11.82`", ",", "11.83`", ",", "11.84`", ",", "11.85`", ",", "11.86`", ",", 
   "11.87`", ",", "11.88`", ",", "11.89`", ",", "11.9`", ",", "11.91`", ",", 
   "11.92`", ",", "11.93`", ",", "11.94`", ",", "11.95`", ",", "11.96`", ",", 
   "11.97`", ",", "11.98`", ",", "11.99`", ",", "12.`", ",", "12.01`", ",", 
   "12.02`", ",", "12.03`", ",", "12.040000000000001`", ",", "12.05`", ",", 
   "12.06`", ",", "12.07`", ",", "12.08`", ",", "12.09`", ",", "12.1`", ",", 
   "12.11`", ",", "12.12`", ",", "12.13`", ",", "12.14`", ",", "12.15`", ",", 
   "12.16`", ",", "12.17`", ",", "12.18`", ",", "12.19`", ",", "12.2`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.887189374997766*^9, 3.887189642349146*^9, 3.887190271590057*^9, {
   3.887190464760996*^9, 3.887190472911417*^9}},
 CellLabel->
  "Out[308]=",ExpressionUUID->"4e84f829-3c0f-4f5c-b237-48e1adce7581"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"omegas", "=", "wlist"}], ";"}]], "Input",
 CellChangeTimes->{{3.887110835331246*^9, 3.887110836838662*^9}, {
   3.8871108743064547`*^9, 3.887110885615568*^9}, 3.8871506731626787`*^9, 
   3.8871512762702093`*^9, {3.8871516668301477`*^9, 3.887151667676443*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"828ca43d-a3c2-41c6-98b4-1e8955ad928a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"exp1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "I"}], " ", "\[Omega]", " ", "t"}], "]"}], "/.", 
      RowBox[{"\[Omega]", "->", "i"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "omegas"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"exp2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"I", " ", "\[Omega]", " ", "t"}], "]"}], "/.", 
      RowBox[{"\[Omega]", "->", "i"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "omegas"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.887189268867241*^9, 3.8871892817181263`*^9}, {
  3.887189648476344*^9, 3.887189651403503*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"073ca06c-fcc7-4937-8b19-56382b9ade29"],

Cell[BoxData[
 RowBox[{"Conjugate", "[", "wf1MM", "]"}]], "Input",ExpressionUUID->"a92927d5-53b8-4b6d-a42d-19bd1884ba38"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"wft", "=", 
   RowBox[{"Total", "[", " ", 
    RowBox[{"0.1", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"exp1", "*", "wf1PP"}], "-", 
       RowBox[{"exp2", "*", 
        RowBox[{"Conjugate", "[", "wf1MM", "]"}]}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "wft", "]"}], ",", 
     RowBox[{"Im", "[", "wft", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{3.887255055334148*^9},
 CellLabel->
  "In[163]:=",ExpressionUUID->"a7bde492-3cac-4de7-afaf-3b5af5f16900"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtl3k01d33xxG6IXGTKWW4KEopIVOfjxAyX/N8P6YikVlEhVKaSUgUUpGh
MjyonJ3xiTLPVyGZlXl8lO/9rfX746yzXmudvc857/3eZ60j7uJLdWdhYmKa
ZYz/myPGjOY3NynwpPKazM73rDAazr9E36DAnximjeo5VjDmGVj5Z40Csp5+
OZH72UBM5cIf3wUKhArPlvM+YoOquHjS4CgF7s/Gfyv0YwfSoe698JUCA8Kb
Sd2yJHgYSDO4kkqBN/YeGerZnPCaOeA5kzIFcoYTFHY68QKbu+5RIUcJOLNt
SFPUXgh29tR6Zz4Qh9zaxZ3WT8SAWv3YVaZBDBKjLjS8y5OE8BkN7/vDorDh
ONFpbCUDZSGPvQpN9gJTSSR4LsiBcbyl2N8UEeDXTasKzDwCumkfjfWmhcGF
efTNqvcxeFF/sSuAsU939bWMVUVlcIp5uKv5lQAM9yRcuRyoCpG0LQWcO/lB
wfXAiEm5BjDJiSKta3yg1Po9npyMQ9+tlNjXnWRIjYv69/3zkyDCcTZn8SQv
WLgcqLtbqQ3nFGXZ6CI7QMv1zuI3bV1wVf7+qrqaE945zLcKc58G2VDVTZ/n
JMht1etN2jSEjG/mNRc12eDE8JpMm5UpHP15dL3jGBuwvP/dr+VkCjWTvPLy
DN2FtPLsKtxNYXSlOXWUmw2C5t+3lASagizZMMC8nxXSrMl2Y/Gm8O6UtoRc
CCv4FXfLqrYw4guPXRnM2wIiisfzaozNYOzqLnVdQRbwYRvNynagAkdE4UwC
Bwtc7csdU/SgwqFQ/azBDWaw9TRq/upLhWCfCI6wIWa4H9hSwxdNBXb7kZ68
XGagq9yYZsqlguSxkiCyBjNwX8zJdl6jgsuoReE3gglaWYiYzHRzuD7020XW
gglEqTMl2jnmkNt/gz/kFBPcPTHnOVtkDvNtHyJ4DjBBf4HgfbfP5sByWT/5
+vgmKmH5Tv20aA7YkYlWs+2bqDM4E2yMLKAicb/OuNUf5HV80smT3RJI9mOu
zOp/0Bs1u34xsiVYib2IEhb/g+JvJUYM77GE+VwKGE5toKDQ7VFxipYgA3vV
3l7eQBq+ipwu7paQPMl3JOzVfyg54Je2Yb0lBGHMe7jW19BX8zmNuodWUMUK
alIDa8h4V2sdOdMKeBoi7U7UMPi/laLzhVaQZ7GRdOHuGmIZpEqaNFjBT88V
cqfEGmJ39z9UzWQN1Ie/SOkGqyieaL9w7YI1yE/0Lh5OW0aRYyif28EGAmfl
ZARillGz3Bc5Yy8bKFu56vjXaxm5tUslPgm1AU122bovx5dR3p5dFh6JNkCl
hCV5diwh7egs8cJmGwhyFFbN4lxCevViheK6tlDRaneZP2wBfeKgP23WtAPt
Cvq2P1azyEO33qLb1QEKcrNV6tVm0WoDb4BsiAMIpvp6PhCbRTIl9g7X4xyg
a4U93qBjBkW8rO+0fOsAUuFWPGnrv1G/rfPciU0HqLq6xIXr/kK7h9BSVKoj
bNxVYL8+OIGG3h0+T2l2ghbfenfh3Alk8F1kjD7kBFmm9rUFARMo7iDn68hF
JzhNjo7pZp9AoneSGyOFnCElsY1FRm4cnUte32Lo4gxKT/w2Gy+OIl7ed2dV
fjsz/MnmTNMaRR+CvQNFNp3hm2NK5SLXKPLf1b7711YaxIh+itjzbAS5Mtma
+wnSoD2TZ8On7id6KhY2duM4DS7kFK7y7hxG6T42IzmBNJDn9ok+OfgDXT31
h8sknAZz/ge5A/J/oK5dWkkDV2ngr55D6dD9gWzV02Sr7tIgqDnT+NGlIeSm
oHzk5ksaKB0jeuv0h5CDxTbNa/k0WE4WdVvhH0K2EVjauSIahLg8uWjzdhB9
0q/sWa6kwcLkAX3FLwPo07S9AFsnDQKLXzk98hhADdPdSmZ9jPgIqcAVpgEU
InNte+wADVZ5RJ+WK35Hcrx6xYUTNNhQIi9pPO1HERw6awsbNIhgusfxVKUf
HXx/vfc2MwF/P3OKMXXQUVmftPIOdgKYHdkMqkh0tDUTObdwE8AevfrslH8v
ot9QOaEtSkCsYVDpS65eFEx3p++nEEDin28kvexBmEja72VpAjhyppYb6N2o
wocWZnKIgB3N3w1NdLqQLf87rXk1Au4n27u8GehEoqkDryUwAsguPSG8YZ2o
YrL3gfpJAviWWjPbCzqQUkt370E9AgR3165aC7ajCJatxCaVgJSfmtzl79qQ
Pc9rFG5JgHBBJUXYqA2dPhSXOmRNwB7NMuP+q60odCvUejoQkM6h6KYh0oqS
kj7z3HYiQLTj7cX00hY0IxXSlkQjQKvJSv9TVzNqHNd7c86NgFOEaWA0ZzMa
Dd1br+BBgN6i/lMdvAmdfsN6euQMAadjtRq2Bn1F6nPdilc8CTAU1lj6nPMF
jbsbx7KeI8A4X0ns9vdGlOm9qervTYAZLm9gvLMR0dPPGX0+T4CVByWj7dJn
VCGoekXhAgFxfgE34kv+Rbbg7qXpR8DHS9W+1N/16LQAKVbFn4DZ2J3W5H31
aE/iVNvuAAIkE1xPtDnXoQcc/50eZ7BNepFUfHItYo02mE4PJOBWzpbt1NYa
lGEtXYwFEVBZbL7Iy1GDXp/d+ayBwfMoi956shr1+g/nY8EESDcuVD0Ir0Iq
gRX0dAbbdmnlmhV/QrkCwvvHGXx7KOEB7y9AVcLTD3aHEADTw6GtUoDOPL8t
qMLg8ZkzIPGxEjlGdbzHGWzCTrqXeegjEtWiXDrK4FKRV44Sz94jCYqnHTeD
9yroHczkrUDZNfI2HYz81/TH18Wjy1D0q1chMQyedr7xOWOxFN2j5b3fy2Dz
4P3J4h4lyC7g674sxvkrbv/rkdFdhL5N2AMvg8WzziqK679DGVd84rwY979R
TmLNqHiD7gRN3spn6PP9qVm2pk0BapqOa+xj6Jn/5cFJTbXXyH9szHSeoXf4
WusAvvcVOlh/SXKRUQ99aXIEzpyNUuwKTAZ9CRAwpwrjPzPQhk9Lf6kPAY2b
kr6X76ahlmHZ7hBGPc/aZudEWiShdo2/pymMerMWSf2MEH6A/v4Tq1Puxahf
corbXIo/SjEpJWUz/HOJ5WHtqeO2mOPXH7Pr7gQceuxaz6d0GZPN70lXY/jP
XKHnw3XNh9jbkJuPIhj+LO21jooNf4yFDpNJlxn+3Q5TlBq7ZxhZdMu9cwx/
+3mcm6h5+AL78VH6OLsNAZkqBwxr3+ZgZv3BccWM/ujgmiqobcrDtg+5Uo3N
CXhiq6jqGvMWK6qLKtA2JoCJqWTTtfIf7FgDjjAtRn9N8B35aViOFc/kfDfE
CTjaHujiRq/AEh3bXU9pEOD24lit2+pHbMBMQGZTicHSdrVHhaqw1Eex8bdk
CKj/0hunYP4v1mJQxnSUk6FPaF+9/YHP2H8h8kYfGe8LSZLOGrOlAYsyEA8/
xsLop/D+yI6iRqwnSMx1bJUGX2QG/IP4mrF8g2K6+wgNzmr559Mn27Cryts7
1itocDxlvnHGqh1b4S4NppXQgDTjP7mluh1b+PistaSQBjmPA/YdTO3A2N+J
v5V/ToPJucCMSwZdmHqlkpTPbRp4PwtJ3JPXixmTPqXgdjRQX14pOiLYh+lT
XXaAOQ24DEPbdGL6MK8qa30FIxrkr4Tu8HGgY5JueVzLGA1+G4fdrOT6hhV6
69IXJGlQFllZWag0iI2Op1Ty9DmDqtynd6ZJw1jhnNlU3G8nUOzoelT5eRjb
L2P1zXfQCeTDp8MObgxjKtwX8gzbnED6s4AWifiJWbzaqz5T4gQ73X3akewI
xneghRi65ATTT3YvHqocxSKcbtnCNid4yhWsuH1kAtONKpNyEXcEluBd/W5C
s1jKssIZPQt72MpletXl9zLmlRlXNf3BGmz22YHSthXsX36ZhoVCa8g96bbJ
IbmCBQtE/tiSZQ3GF0MjimxXsJqkUjXspjU8Gn12kbV2Bcu5w6srYWUN0p/m
/F6krmLoRJZa0pwV6AQnuEzqrWP/hJ2n7DtsBdGDXVr+WX+wQtqRPJ4aC/he
bnA+9MMfrGJ7FnW93AJUE+BRZOcfrLRtcniy0AJmdXIn4rb+xSy62PIGUy3A
6XXEvaxzf7GWqGTy3kDG+mBJeofCJuY/ySrRJ2UBa2wq5btdmHDWgUsx++6a
w5vU66aR88x4v3Tw144LVPDNdOP5acWGcymPGFobm4KT1+M9sVdJuBUUb8zK
G8FNs2AVhSeceK2pYKoFfhpY+RJHL69z4z/4mmL2+OhCd+O12ZgdvHhSc9lF
Hj4dsAx3UXpcTcYLourws/UnwZtzSqLJjg9XFigK6mjHQfR13SP2yV24lur1
336UExBepmW+I1UAT5zWvmf2VBUuvPAuVToshJslaVadSVQGLhZll0Mjwjgr
M+Wm97VjoHPeIlE2QQQ/0Ha/R63sCAiW7/HVkdyLU4Y6Y+7cPATx/jceyHeL
4i+NYu4cjJMB6nUTubRSMbz/OBH6QVIKZO1jLJ9HiONyQXeDyTzi0DW6LTPB
UgI36bV0yv0gBE0uI5pkUQqucfZ59zUTMgyxvlxNlKDg6gM2tsqHybD44myh
kDQF585Eu2a5ySA0NSUiLkfBqf9p8Yc08YJbwPzKYTUKfiY2m7/PiBfWozfz
jawZ+TyMXaaMeEA6W0j45j0KPiWZrU9+wQUquvQWrgQK7noxXUHqDBcYTjyJ
vf+Igieqi2vo7OcCPzmxpaQ0Cl6YcKQxL5cTPpRIt7x4TcHLut2qhd9wALVO
4XpNPQWvUuTZDPtIAvezS+p6jRQ8QS/5uNtlEoRy/LPQ2ETB/eJED9hrkiDN
WJVo76TgZCUxO//arTDehav/GKbgr84L3jjVxA7roSwL7mMUfE3dVin9Pjts
312TMzFJwS+nzFRtMWeHo866AnNzFJw1uydwtZsNdJi3NQUuUfAitV+JsY/Z
wCarIWZ1lYJX5LfflnRkAy+d22qXNih4mLS2RbMoG/z/fxcvTCseif3BCv8D
fHGQpw==
       "]]},
     Annotation[#, "Charting`Private`Tag$136541#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtl2k0lu3Xxs3JPGWeLyHzTMi1JaS4ryYk6SlTKY8MiZJUJM2GzDyhUoaS
BkpynhnTLWUucxEZEjIP+d/vWu+Hc53r92Hvdey99rHX2gruJ/d4sTAxMS0z
3v/94cMO02trBOZLm1u4KCOCh8JEZ7tWCJyt3HJ3QkQE0wT65ksXCXzGLSLG
hUcEy2/2Xz35h8Dss6lCasvCuPJaPGf/EIGvKgu8fPlFGHNqdcjijwQ+XGE2
fipBGN85dXjnhXQCZ9CFh66uE8YFzEH3mYwJ3KH5o8V6VBCze9nqSbgp4la6
OmtRAx8W/lLjmxOngHelmaSutK3He6rSPDZ9kMe2khvVG4rZcNjvLb6xA3J4
6dHnEqdbq+hVSNrxIkoW85KD66sbpxAt3lH+b6o03qvHsgt3f0a2mW9p28cl
ceHmEd4b5oNkbt2Z9iBXCRweG51z5eICeSjqzoZPj8SwYM7VNfnnbHD+MOsT
bmFRLF1l/NjNnheYNOWQ1WUR7DvTd9nMShg6r6deKWgTwlYvJr06PouDNNex
vJmtgpjkYis1uS8LJwzV2Luk+fEG8Vh54d+KEMj++uFpfn5sIuIs6fFXEc62
2e4QYuHHJc2TH8p5CbgW7HXbbpgPb08SS7ypQUD+yyyJV8V8uKHz6/Pc4wSM
GIppJdrw4U2Hx/6t/UnAUSM2Z8qfF79l6xzU/qUEHsa9j6qquLEL/3ByloQK
eD8ydrIp5cZSywY26WoqcFwijrU+nxvzHyi4n22mAv7LVoca47ix6bGekiY3
FTiH8oS//sONi97uVHuXowJ3bIPPTyxz4Z/x2wMmtFSh1plnn4QBF2ZuifKQ
2r0J1EJN1/zuc2JFCdqJx+/UAffQ1AaSOHFEia3dYoc6OFl5ODpf5cQPP7vK
u0yowyW+GwWkHyd+XOCj7CilAV/v9zgLmHBi16SNuZanNSCm6cLTYvo6PKQ6
obhORxOG1OqOzExz4H2vD4hZvdCCc7FdN4794MD/NhrSqY9aIDT3u7S7gwNr
molsDR7SAot34nw15RzY/DKXNbeENiQ6Hy9LjObA9BRTyidCG7ZF8QobS3Jg
tbzFtZuqOpDds7f6jCU7Tu0xOTTKpgt6g3pLrQbseL31aT9zIV2oHhXU0VFl
x//6j6hlyOnC0Pyn9CE+dszel7waZaoLakL2QXu72XDKwYzDf/114ZnNNkXN
EDZ8uchf+V4/I77I4EJ/IStmm2ft2k/XA8cS4RKzLFa80mvZdaNTD4bKp8eS
EljxweYDGU0jesD54amzw1lWTI9k67vJqQ8OgxraZbasOMFlz2yrjT60i2/s
TfjOgpdul8W9qdWH4YsbzG3FWTCZn7vzT6sBcIUX/U7gYsF3TG/q/h02AK1Q
u3v9K8w43OpfN8VlAzjtF8519hsz1gmIPVSqYAgcrj++FOYz456HI78k/A1B
yeBlsNAWZpx1qyhuUtAI3If2FfUcYcKZ3y+rHDlhDNHfJtzV9jFh7l29W/5e
NIb87hjREBsmPH9YN+pNijFMN5eHC6gzYYeYnITkWmNgibBLif65hna7FV7r
JkyA1B1p2s27hkRuW8w0D5pAWaKq9U+nVXR/y7CfzyVT4HQd9mA2X0XebmYr
Qpmm4CSfe0lSYRWdvu7jOVhqCtP5BLYfW0FpG3nYmCZMYROWNSuOWEExeTQz
4qAZpIyK6J59tIye1NSMHwJzCCaZZXiWFtF/69J2vlGzgEo2bLaxbxGJv/Tx
mNlhAQIfzh+wqF5EZ8IMPQ+dsIDCfSvJ/rcWEVKJZ64ttIBBn3mhNsVFVH40
OGZEl4Q9d35x/rdzAT1hMlJpVwTQGfk6o505h1x3U9XCOyzh1KTmJrGoOfRG
6iaT1EFLeDV/0e3v8TkkTd/isNnPEiw51GobTOaQ6GC00Jt4S9hDnE32aZ1F
g/YZnc3dlhDsJml6j3sWrW07+t+O4K1Q1nQgQvTsH9SultL/sMQKtpV1rV91
mkRUTYBqwQkbeJL/YHOd2SRys3p54n2kDYinn/SJk59E+XTBxuF0G2if54jf
2fobaRGL5psabGBjmJNA5tIECu/MDsrQsIXKi7M8YPsLVVSrH/Ebt4WVW/oc
0f0jqOW44wODI3bw+WSdl2T+CDL0P2z7PsQO7u1yrXkSNILuJotGWd6ygx1C
kVEdHCNIPTSL/3uZHaQmNrNs0vyJtu9UOFIvtAOMMgLW6GeGULNU5a/i8h3g
n1e0ICg8gPbTk9NXZ3eCDp9f5Nb+7+iTapaY1Dp7mArU4At6/B0dlnJMEhW3
h0DzPKLV9jsijHdJP9xsD8GfcmhJ576h61llwuph9vBnVN3OsKEPVe/vzn84
bw+nXjw6lOTdh84c1bZP4XCAufCNp+aZ+pBguNwOrw0OsCAgd/e1YS/yOto+
n6DnACtGQrNb7naj00MbbSxPOABH5EKWTeBXtN5oD1HV5gBX7INLHvJ8RQL0
hte+3x2AU3SazvnwCzpb5dY5OeEAXHljcx+6OtB68VStmHU04P/Ua09Zt6OO
NG2T30Y0iE1xdX/a14beO38w8dlKAyH3LyGCZ9sQW7dedrkDDURmm3JanrQi
CfcrQr89aCAuVbPgLN6CEic1nc7fokHqoCXf62fN6MC6yWCUQgPJJxWEpEMz
shF43/QlhwYylq9o3RebUOne/McJJTSwanSye9f+CVkJaagrd9PAyZvIbj5X
j8YKS9dy5Ci4FhAUE//yPUo+PBGkp0LB23NVJ/dM1KGto96zqVoUKCV4WDT/
U4t6Py99mzSnYBrd62raWoWmsCz/W2cKlOl/KuPCKtGoY+Ft7kMUuLRb5e9+
8Q4ZDOh80vWkAI8PhDZtxAivel9h96dAVn+7Ro5gGVI3rdT5cJmCy3Y/lxQi
X6F3Xa9+t1+jYPyfmPrsmRI0dfxl6pvbFJTdeO+d3fEceVsXjPKkUqBw75ih
gt0zpBx068WZTApiXnOyZZc9RVa7txVVZFPwuCFuq6VZASKETsU35VEQttjU
B7KPkJLEgcd3H1NgpywUDswP0MPfPW42xRTQ15RORtzKRMaWrIsyryg45vIg
7/y+ZOStUKlEvaGA7fnGwXDJOLTllu0xlwoKJlNSPadSA1Fr0Gf6YhUF51ju
1NiYuJAOVyNNY2sp0ErzqBMxiiAv9NkcYqqnoFeieIKb/wY5/MLVfQedgr36
X8qjLe+Qe09FBPl9pKDkq/OlK2FpZAt7P/L9RAEvHiOqD2SRe+f4Q6ybKCAT
CqKrQ+6RMxeW6heaKQjwPjFSfSeXPHC5YzS6lYKczer2NcV5JE+wHO9kGwWt
PGNPahoLyYitEV4GHRRw9OcL1o4VkSKuDZv2faEgw8XQ1COqmFQtWYilvlJg
aJV4YkDoObmPeV2LcicFjRqzGR7ZL8gn039VOxl8VNSxcUC7hBSq/9bg00UB
E9PLNY+KUtKY+e5iG4NTR0R0B+1fk4q268dkuynQaznl7tlVRh7Oo/dsYzC9
vDVh0KecdBP5h387gz1zDWo8F96SBpJMFaoMXr19Z24wGpEl3A9Uhxn56OZL
Cc+uYbLYe+ZWJINTdPMLp3e/I0vSzXT/MvR4Kh+o0ZOoJGe1vHc5M1hHiqs3
sL+SfGA4q3mbUc8qf9ncs4dV5KzOPHcuo94PbMf5//hVk6zbmTQzGP1IWpRQ
1TeqIc/2K7YGtFPgPlEPQas1ZHziz20qjP5pDZxxeV5dS/53Y2dVeQsFdQ1f
r+nvfU8CR99SzGfGfIR21rmq15PL6sv8KY0UcCp1sUWxfiDPbbnUcamBgh1h
3edbn9PJjBTRgfE6CkaVe96sXG8gI/OaOn1rKLje3LOg5PmRDHliM15fSUHD
pr7AYJFPZHp0Y530Wwp82/qKMsc/kdedT2wXLqMgGvzn3N0/kxZXGqifJRSo
jPvrXzdtIiVbVTy0nzL0WAU+7hptJskAx3IzxvybpE7Tfzu1kJwgEafD8Afn
78BR1ioGb7Jr4WD4Jy8tSEUjvZVEGjOiLrEMfVOnss/tbCfV9YwG/wtn+M12
FsWWtpMdU60n8kIZ+yEzuPc+0UHyyc3vTgmiQN3utNTH5Q5S4W7RcyUfht6s
kESZwq9kd9KsAsteCszn5p/rineSscvbpzc7UMBjH9psHdVJhhpLiLjYMvw5
H8rvd7CLdDjXWkUzo2CCdvZqBU8PmZsSx6uoSMGr8xUVRUb95LukRfHXYzQw
1Xz3bFfyALkFvmltCKCBYWt7UkX9AIl61/oCfGigEzZ+VmNlgJzxNQ2pPEID
5XoxK84jg6T7+wc2sIcGwl5+LUjtB0k+E6h5oUeD8QypGa2KIVI1UC69eMoB
7vKcNuT9MUIWxgQtOvk4AMvpDd2eEpOki3AcstxuD+t4dl10n5gjm3m4f43U
2EFkf7tV4L1VUtkgf0El0BaepkfvOj/NDK+5f/CshlrDyRxPgUEndlgL9tjC
ddMKDh1Pk7lykRPcDMwP2kxZwtXdpzfrZ3DD5WcKh3dHAbCJJA5FLPGBqt8P
YTUzC+igX56M4heEtgsDjVNfzcAxzN0orUoIPhpXuU6EbwZf7jHFxgMiYN5G
ZVWFGINcQW0Sx+gGUDpT8Uc22xDCXlnt5U8Xg+EHslr2dfrgn+tbYqQtAY+Y
/eUvq+sBD4uxu9YPSSi2VC0ovaYD1v/uS1RLkAazara5deJaIP5a5qS1kiwU
LtaUeoWqQ3xgTJxOhxyYT1099bZeFfZEU5qZJfKwj81mWs1XGdRcoxzvhyvA
y447WaMmStA+tD4nwVERDvoOPB+fUYBG9x+WQnIEPO94d57phxx8Y3u4kKhI
wJSTRtP5FjmYyT1WJKFMgHTY6xKmSjmQGBuTVtAkQM/QT5v/rhx4Bk3Pa5sR
sFN0McHJRQ6WItceOzgToOGiwXKrURaUH0hIXr1NwJFLu27eeyMDm227PvMk
EOAl734yIV8G7EcyrsQmEXDc2Wk2OlUGAjTlZ5MzGXdVgcWf0BAZKH+p/Dm3
gME1zV9i9GVgT61+dHUdAX+XUfz+QmnwOjZrvp1OwBkrYvlSujSEcpX+oTcS
oNx7iL34mjRk0kyPtLQRkKAeOivmIw0/28H8+wAB31clpwSUpWEplOWP1zAB
hIWa2P4N0sArVZ03MkrAqzM7anLYpEHvH1uxqSkCJjipvK0DUmDNvL7x1CwB
nxSftic3S8H+ex+iFhYI2C+tEjb5TgqOW98wO7dCQIArxNsXS8H/3+dAWzsv
VpglBf8DCeFqeQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$136541#2"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.887255056100453*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"127dbe76-6c98-444c-8e6f-9d78561ee033"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"wft", "=", 
   RowBox[{"Total", "[", " ", 
    RowBox[{"0.1", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"exp1", "*", "wf1PP"}], "+", 
       RowBox[{"exp2", "*", 
        RowBox[{"Conjugate", "[", "wf1MM", "]"}]}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "wft", "]"}], ",", 
     RowBox[{"Im", "[", "wft", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.887110904582904*^9, 3.887110921510973*^9}, {
   3.887110958983729*^9, 3.887110964060787*^9}, {3.887111160122809*^9, 
   3.887111167217389*^9}, {3.887150542429034*^9, 3.887150558037839*^9}, {
   3.8871508615484743`*^9, 3.8871508635794497`*^9}, {3.88715090973661*^9, 
   3.887150917713591*^9}, {3.8871513449646072`*^9, 3.887151369195043*^9}, {
   3.887188316869488*^9, 3.887188347291589*^9}, {3.887189256094808*^9, 
   3.887189263100337*^9}, {3.887189298829103*^9, 3.887189314510211*^9}, 
   3.8871897040403*^9, {3.8871897507156897`*^9, 3.887189756922131*^9}, {
   3.8871899506993313`*^9, 3.887189955642049*^9}, {3.887190224414756*^9, 
   3.887190242163046*^9}, {3.887190301211582*^9, 3.8871903059415617`*^9}, {
   3.8871904857426023`*^9, 3.8871904872420797`*^9}, {3.887190518195867*^9, 
   3.8871905839873877`*^9}, {3.8871906188527193`*^9, 3.887190619006022*^9}, {
   3.8871906923136377`*^9, 3.88719070885203*^9}, 3.887197699455361*^9, {
   3.887197834618432*^9, 3.887197860717503*^9}, {3.887198197938527*^9, 
   3.8871981992472982`*^9}, 3.887198260653816*^9, {3.887203683265368*^9, 
   3.8872037138690042`*^9}, 3.887203818923051*^9, {3.8872039436090527`*^9, 
   3.8872039708006487`*^9}, {3.887204308009275*^9, 3.887204323878044*^9}, 
   3.887231734682094*^9, 3.887232027617393*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"fde50a46-1f48-4893-b910-24ce34035433"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2Xk0lc//AHD7vq/32rmWSLLeW5buO1xLWoRUVGQrJcpWIpI+QlL2FJUl
a1ESSnkmW1kS0WJXpEgiu9Bvvuf8/rrndZ4zz8x7nve8Z+ZcRTc/O08WJiam
L8xMTP/7vfB9159//yio0Re5dNToo7FQifm+VQoaNmEq4anVR7uFhharliko
eVZFj4H0kcLW02t+sxT0eL1x+XmDPqqLS+IaHqOgowok56K3+ohL65McektB
hSIBColD+igl0NXm4m0KqrObYo9lNUAlzAF5TDQKcr/X4Muz0wCxe1rqkg8r
oRY1+7orkwZI9HOjT06iIqpJyXOtjaYiu/pb7uotCsj4lqdpghINhf428bkx
Io9y5CwcEztpqPrsrRNle+SQ8WDeE9fQLWh30j6F9QwZ9OK3tstVo63IMuvl
bqtJKVRuwHnvHbMhyn8d8jHAmYxyxziCuxsM0ZHLKeLvCiWRMk/f79P3jVC4
K2spr6gE2ml+0GbwP2PEtEmeMPtPDNEuX9h02t8E9V7NuFLyQQSZs0RJhcVu
QzI8x4vmTIURr+rZyIgCOjppoMHeJyOIqq/4T0peBOROGyysr+dFyg5eNpPb
tiONc4b/fPO4kO1m3ksHuUxR9oB9Q8h2dpTmWLqdymSGvkeKG1uSWNCPKEJB
hcUc8Vwo+53Mw4K+yDkNPuQwR1rnrHOHV5mRlvrsORqvOQr2vcBz/gszSjY+
K7JLzBxxOH/7/KCYGQU2pblcVDVHyvpPg0RMmJGuIHPSyg5z5DbmUDZwlAm9
/5gv3JxsjqK/TLlpODChrb1OlntumqPi/hiJsxZMiMdpalt3pjn68/7FBaGN
TIjF/Zpi731zxBJhfTP6xz/i7IEVj64qc0TXGe/cy/+P0Jwf1zzeZ46ep25g
/HBcIyx/W91wUWAgLufv7szGa4Rb66eGEGUGclTIvySluEZonbdmXN/AQH+K
KWjnz1WC5DB6qUSbgdSRnNHjiFXCsEtYMQ8Y6OaEmM75wr+ErZZzxkkXBhor
69qTfO0vsTW57qayO87IoCTfB/5/iU1ema8+eDHQu3+CDwaNsW8NZcn7MhCH
OK+aWecKsXQ7PXdHGAMF0Zll+VaWCVNGv1V9GgPVsSEjlaFlwpDPRWc4g4GE
WsKdtjUsE7HWrCvTmQz0wGE1/XTCMsEl7TQ7mcNAo96LIh+UlomYbhJilDKQ
7uZKnSnOZWJ4qn9i6REDXZwLtOX8tURU3FP2znrCQNIRf65trVoiQuLF2J9V
M5Bdyi+uOzZLREF94l/tOga6d/CBWpX2EjF32IDXs4GBpuROWnSILxGl+fYZ
V5oYKK7oRxTL8CIR5vS+NK2FgT77FuRINy4S4w3EmUttDKSq7/VKv3iRkK/S
0XBuZ6BXtSPrXoGLhAOYj3R2MpDA5RzZiwcXicxVdjG/LgY6ZH3UOGPbIqFu
f+HWYjcDFQsoOJdTFokvjaM8Jz8y0FLXYEgr1yJhSwwuvvnEQBYZWTdHfy0Q
Tq6n/gj1MFDKkUNVa+8XCI1bE7GmvQz0lSL9UaJ6gfAuYtp5uI+BtMd75jZn
LRDZXLkNrv0MFDi9SV3y8gLx9e3LUyYDDFS9GHl4/cQC4cXGycs+yECr6x8S
v+1dIE7pKxpWYW/n0Ghq27JAiJ+1S7cfYqBo/vCVJ/ILxIv5yJc92C1i77Vu
cywQlUJUC+thHJ+MqvulX/NEk2Fycza2HeV8unf3PPEr3XnwK3aaRnurbc08
seDzm8z3hYH6dJSYtuTME6dP7RaSxVbYGqwvHztPCM+THcSxPaDlOMdp3H7L
zeA53L7QUi7rl+M8sRZWzfkce3K3f2e3yTyhc5CU5omt7djE/kJ5nrhB4ilb
wOMLOixlmMs7T9iZZA76YD/38PWN+zNH5OvmlL3G8a2frMs50zNHHNOvLeHA
Ng2Q+HQAzRHmQT7O6nh+os+f4IWCOaI8RtBiM56/lshaulrCHOEpuT4jiedX
MFYkUCBojiB/TRz9ir+Hww2vwnnnOcJeYkvO9c94vaQ/7+83nSOUFy+VyuLv
139HQLhBfY7w7zOOj/+A4813Y5QIzREWkWEv+3A+eDysDElanCXOVDyv53nP
QEUVPKUhg7NErsW4PLkD52PNka+ujbPEX/urdhw4v3TryyWsHswSJe/a+zpb
cXydThES52eJOOmJGebXOL7PpU/WXGeJILuT4f/LZ9Nhlh+jlrME236Zo/df
MVDrVLHtE/FZgt+KolFdg9fbwvrlW6t/iN3+AiJxeH04rNk9ixz5QyR0pttT
n+Lx8/5VtH38h7hSsnFKGq83BdE9jrSbf4ikU7O7HYoZyFMqN04u4g+hoStH
9szH491gMzu58w+xzjXEIXCHgf4xbjfE/pgh+l9sOXP6KgOZ7/q9dPrdDHF2
fcrEJZqBYhzMNh2onCFednIMKkXi8bj/TFW9PEMkHPy6qBrMQEoXjY7Vy88Q
Kstl7ySPMJDXleu3izlmiL7qD+45+/H6SRh5l/hrmvi6x71n3ZaB9LKubnGt
mSZKpu5pa5rh/p73ca85ThOG06WjtioMVFp8f+tro2nixs68jKcyDES67eed
qDBNBF32Kf8iykAfFzmSbLp/E1vpl3SvMzOQSqijUNbKFJHB2/zOsNccLTlP
+Ok0TBGW3W69H96Zozbj8HeN16aI0pcsRrRGcxS4fj9hSmGK+GhDW9pZZo7q
Iuf5wPIXcT17pKrxojlKc4v16Rb6RUS3B6enBJojbzPZtuO9k8RElYa/xnFz
JMTOuJp4apKw/GUzUbLbHLnEpHCPJP8kNLrur/ORzdFqgh5H9PA48f3EwYvJ
uWaow++1p1TxONHg//LtQrIZyrV1biwNGCdkjjwbV71shnaIRF3+xDFO3OTb
mvPb3QxlpL5nUd/0g6j349upq2iGqJln/rWGjBGPJf9uXksyRaeLypaERUeI
iCjZu+37tyNtAd8o0+GvxLYBsVQb8+1oxl9TIODhV+KqW/ujEu3tyN+4iNJt
+ZWQZPs4LcG9HQW9y9mdFvaFaFKJ2ptXDWh2YqO1QdsQodRo1jUhAogjaume
hX8P8WY+mbXWxwQ5elGy34c1Ex9IX9e5kmko7kxATNLTN4S/Rb97oTsNvQyr
97Obek2s9E3d2KpPQ8rJ7tveuzQRqiHm0fofqOgPkdvXaVpPhM6rcOVJUJGc
npVmjvBzomqD4ynVm/po+maGx0yGPyFwac9E6W0d9LqtJ07P/g29sW7tLke2
Gjp+rve188ZmOue+t79lQA1xKfexXWZtob9Rs+4PH1JFO0L7w7uftNLjQUNC
Q14VtakP+QeJvaN/NPA+ZZyjjI6b+T/sm3hP9186PaNVrYh87p1NlX3QQ+cV
zM9Z30tCxguLT3RIvfSwhRuBCfmSiG/nufeMy730Qb7TrWN/JdDDxXOCvof6
6FyJSaJzheJoavf52Fq+ATpN2rgpmU8UVYfX1pZRh+ljpJ+zD+d4keGmV+W2
6SP0CEr6trMNM4RB98e02uYR+tQyX0CN1W9CO3TyvObqCP37atZjcYGfhGqz
pBnX0VH6UVR20bPoKyHq6dtFaHyjP2xNVUsTekxMZkrPadWO0b3FHv1++f0X
/S5fsAH/t3F6bH/b0/5IDrj15Co5VHKC/nTgdWj4MU5Ic8pe+2E9QW92rLo/
bMMF8YVtjQ2lE/Sm0jXGTyEeOGdOcQw795NO9rCtM4nnB7uwjuCfvL/oESKL
KheURYAlWLzfgzxNV/7zJpPfnwROrsXvq/Wn6aa59eJ6vSQo30Fv5rOdpgup
y2ys3E4GN3nvyoroabr9nFTfZwEpqHvz4gbb3DQ9LnPFqzhbGqKkPRh57TP0
QoHIA3bFcsD2qrx0JGqW3qG0uZempgSHSizv0+7O0u15xeoE7ZSgIrX/9tXn
s/Q4Z9u798OUwOMER6zezCxdeEGSjb9TCRpFndyjjszRH4X8rf8YTIFoL2YS
Zes8/YfBl86KSmXg5LONdJtaoMe5jxzYx6MGB9ScEJV7kR5CMjcW2qQGxaYe
/3iUF+lZ4Qu70/eowe6QcxeeHFyk3yrpNeVNUYO0sXshbI2L9N36VFKy1AZQ
fTVzJv/2En3eb1/EMTl1YAQnu01YrdBDnHecsGLdCGmJWdm17iv0wA+Hfyoq
bIQfDwqGk8JX6Bv1zhzvNN4I8SM1R4wqVuiHbHuinwRthG7bUad4+b/0mJ1z
1+K/bQSPjQb2Wgt/6YbZl190vtSEqOGPZv65a3SWL7FhkXZaMPjM5tS5F2v0
Xx52e1i9tcAwGaWFf1ij57Lmlx2L0IJpRvF4HOc6PT1mCX0u0YIjJReu555c
p78fPJHtyroZDIOV+7r1/tFbtRoI9YebYZl96zNpNyYI+7LEbh+sDfn+s2/v
+DIB29yIzNcIbXAYevhVMZQJKrXnujxiteFRtRLfhhQmCCHnnmRkaoPXST4X
/SYmiOanmAW90obujiG2XRrMEBsnU32XWwce3Y62Df/DDJmqGRz3EnWgVTT6
uyATC7Cxhu8KvqUDY1f/C8/mZwGObwklkKsDMmGXHzRsYIGO3NPrjyt0IObQ
JS5eFxZoHDqkyv1JB1xlw1F6KwtcZO/IyyDrgtDdIO3HeaxwsK6TpSJNFzZK
Br02LWeFybKeu1p3dMHieuCRboIVuhsTd929rwthEQHxi72scMlHk9+9Qhd+
uJz5YSLMBns2d58P6tQFpHDqXssFNrjvelW0k1sP/HI8hEYd2aH2gKIKEaAH
CSEZmQnu7PAo+eSuohA9KLVt37D1NDs4JRTS4yP0YGqdtj0hlh0C7O+XGV/V
Ax9nXv8tL9hBNThmxSpHD06IlXfFK3JASJr+IOmdHnhF/0szmOSAor81k30U
fYg+rE8ZXuKAliOuZ2Y36EO+vndZHDsnVCU7zLBp6cO3r+9fD8lxwtGHRuvi
W/TBg56/FLuXE97yezHP2OiD29JOp8FKTuiSdVu47q8PR07ckr0SyQXdzVlj
N2v04W8Pd/vMNS748XuH1TdCH25ah4QfusUF19eVUjUb9KFzw4EhnSdcMH1Q
letBmz6YfxfP7h/lAvWkx+u+A/qg7pGorGvFDVOBnY086/owdzhm44AAD4xO
KY6+MTKAG28X+yyleaDCJpoRQTeATSbH4svVeGD/yUgPHTMD8JKx+HUFeIBt
193ZmB0G0NPLWqbrzwNvXo6ssB80gNr9EboxH3ggQHLimHGQAcTuDd6ql8kL
RWMLVc+KDSCpTcPnQREvTDne0aKVGkCm5dAdlSpeMKrkNn302AAemVixkd7z
wushk12p1QbwWV3q3SonH9Qeee24sckANrDUejQF8IF516d9ccMG0FTOfuOg
DT+IZpAGtEWo0LHped37A/zwwulwsro4FXoLfedtvPjh7Pe3AXIkKkzd+eS0
LZIfnNTKWlZlqSBxtUiFUsUPuz89D45Xp4Kn+66aSSUBCD0xvbxKpwKbWOpY
xIoAqEaNj1qdoILIVLiACKcgJB+8Y5PvQwXFN8epeaKCIJKc/Z3Jjwrbwoyj
32ji54Obmh8GUCFkdERF2EUQetym/cbCcP8Vup459YJQMJk5051AhUmNH2fc
LITgYsKO/MePqDAnOfBfyU4h8BR9qPOsnAp/2d5nzNkJwU+PHvXaCirwDNW8
inYRgqhQXW9UTQW15OvCJeeE4E7bkkc+ooLbX+rj2WIh2OfbeGflHRU+tf43
fVlQGF4I7+HsnaRCyrYsxj4JYVAwbW9/NkUFu8cVt1RkhSE66ilr+jQV2tNG
zJs0hKHMlrPJeo4KTUe3Z3BaCMPVSH9y4l8qVC6ubo8LE4bgtuf/irhpkEYJ
TL4+LgxxB4qYJZRp4JB29YfLtDDsGa6QKlKhgQh3ron2ojC4n/o2vlWNBglT
nd872ETgTvr4QwcNGkQ/22wsoiACfwosRny1aRC85+doiqMIlD058JlqTIN9
oW7UW/UiEN8xWiNvh/vLEuNYbBaBlrIgY0d7Gnwkmj7Yd4hA6/eS6TgHGjiy
bQziHxABx+GM9SlHGhy4Nvvk4oIIXLzEvJrtTAOnu5d1jqmLgtzpO4NPPWjg
Wp+vqX9dFPg8W1Pyg2hw79uB1RupojA1H3C8MJgGXzh5237dFoWkbyWVhWdp
4LbT72RBoSjIvq9uyguhgfsHWrFUnSgwX5Rti7tAA6/vb9SY50XhOafQd4H/
aODD+1Op3UkMXJ5rmy0n0eBnyHM23qNiUGzhY/g6mQYnfsSOWR4TA4/x8DfJ
KTQ41rih+FWAGKzxWD7YkIb7i/DSeRovBl6v1B5sz6DBwdkv9MxaMchob0/X
uUuDz0cfK/Y0iME1xZKIcWzHjousEq1iYMOxJHLvHv4eD+VfX/8kBoaPqGbc
OTSwPXZ4d9S0GFgee/OvNY8GFn2fD51QEgf6IY4isWIaNFoXbivYIA6Pp2R1
q7HNq88qjGqJQ8OCSbRTCQ22p0qMHjYSh55l9fTbD2hgvMfh5F4HcbAd00gQ
LKOBbv27kC3R4vA37akeekID+ZKmNI4JcfA2ID+yeYHHc7f6Wcu0ONRupnR9
wI5LLu5PWBSHCfn6B0de0mAuNEFJkl0CLNpdo3xqadCy07FUTUECdobpPj+H
cH5MfWu0cpSA1dJOPfsGGjz4+ukH32EJIAxEK95gf/nYzNvpLgEH3CMnjBtp
sJN4uPfgGQmIbwwNVWyigdKNoAHveAnwPPLFpO81Dd7qsM/H1UmAx7VMYZFW
GrCoLkruaZaA//ykHQKwt0iNG4p2SMDPvVmHu7BzWN5evD0gAb7lPW3X22hw
riuF78GSBHhldu9deUsD5SBl5bdakoAOnKhL78D55i1hmWggCftHaO5j2NcP
c53YZywJRnuv/NTrpMEKY7JswFoSnOquPG/F7pCoMJrykISqw33/Tb2nQWi1
mb3gbUko6KLrsHzA83uoY9olWxI27/BdMsKe+Hco4VGBJHCULA4GYjtZBjfv
rZCEbZPyfKPYhh8L6SlvJXGd/D5d9ZEGf0IMBka7JOFTT8bLCexi2brzBr2S
ULz8rUTmEw3Inn1PP45Jwmo7/dcF7KVZfk0yEwkOFbIzUT/T4FH6rWZvDhII
Xvz38Sj2cSO1Y8/5SCDGdaw9HvvzJchxJpNA+NcR2WHsKuEA0h1dEsR+KNUL
66GB79N/T6e2kMCYc5U9G1v1YLw9nU6CFGP/hQbstHv3E4ZtSPBXaVmbpxd/
782f2SieJGirMeCKw9bq8sgJOEmCM8verwuwx4Jn6A1nSFDkyJ3XgL2vlifU
M5wEczxSlX+x+dzSSZWXSSDuuPJTvI8GDezKlRxXSWCFlGEztv4uk5mCdBzP
3QlzF+zJ6eaEpSwScKqfXwjCzktx1LTOw++3Nn5zFVus3+/YxCMSzBast1dg
t0WsshlVkaBrJIz9DfZlSmzO1ZckyNms7tKLPXsiZ0CzhQTUZy8jVrGLBTaH
XujA8b+8b8XXj9d3eQ2p/SMJliSfb5HGlnK0qpQbIIFpgtxedez3y932fiMk
kGlnTaZix2UdnSHGSWAUlf/PFNt0+1SC0DQJthzcfXM3dnkMZ8vjVRI4lK/a
uWOf0Ew5xsJKhu4G4qwPtlKHArs9NxlMqtbfBmL3BjzMyRUkQ81etf1h2ImS
hjAnToYdNiViUdhWNU0D5jJkuL66zhmLzeRiH5qqRIYJgZu6CdjVLMOksQ1k
UFKfTE3CPp3vU0ndTAaOTD+9NOzBd9KpAlQyXCx7BhnYu5ZbAsaMySDAb+h9
G/uF0nm7WjMyVPs9L83E1tiprpO2gwyUfX9FsrBvBn0W9N1LhqDN5en/e855
98oU4wAZwouubPtf++A31LeyLmTIZpLg/t/7R2e+lcx7kkH27PelVGw76dS4
tz5kEPkSKPi/8b0yN/e+H0AGuT3Ku69ha/vOWl44Twanz5aVV7DvpOeo7osk
Q1q0jHUkNt+rveybYsig7NnMeR77/ATTKNt1Mng/PTJ7BvuH6KO6/lQyBFh/
4PPG3m/ikl2RSYZ6doF9LthNXgIX43PJcPdqZ5sDtv6Nl0c8inE8vB2B1thC
I9IyYtVkoKY17NfGDudrXflZSwaegOxkJexfBud76hvJEF12hVkMuyXmc1pA
FxnOPDAJnMP5tKX8SpBNLxlWr5qEjGAX9FEdKF/IkLhc+Kjzf/molSrcNUUG
MVbryhLsbd1743V5pGCfwhtxR+wHa0wneYSl4Gl2Z8E2bGm1R9ZfJaWgULnX
WxV7KUSAM0lFCu6/mw2dxeupXL41cgakIGeLeEsUtoL1eddmSymQ15Bu98S+
7q9Oz94tBRIeuusW2D6NV1ZtD0mBwujyMAe2yknzs4/OSsHBC/sL/1cPUlJm
98WE4/5vy7AdwGapzdF3/U8KYlIocbrYg0LMfwSTpeAE7Bf/huvJzcqXPn6l
UlDvmLEZsPlYaG5a36TAYJWy0I7r2bOzrPZjP6UgosmCdAfb69c7szt/pMBE
kXrWBxt9Pq4iwCQNcXJ50xzYAWW3fvySkob7re5Lurhe9h5a931oKw3fQ83z
j3fR4Mr7FhfP/dKgk8cNmtj6Vum2skek4eGpF5t+4/qcoKete+2kNPTGmvEE
YG/ncZv3iZYGOmnHhD+u54VVjaGaL6Thq+s3RYd3uD5tSvIZrZOG8Rv3Qvix
WXKPHM5slgZT/x+6Te00OJSwuI3vkzSsbm9rMcAW9FRnmZyRhlcd3jf48f4S
LHItpkRNBoYG5LffbaEB45RDqkayDDTslVmyxPtdYFINk1+GDBzlbybN4v0w
r0rJ58ldGfi0QaAgC5uFZcbU+IEMDAS85Zupx/ORdm16V6MMMGtasybW4f0C
NdmcWZSBs731a08JXG9Ft7JUO8vC2kPOyoxnNDi85d6p1aOykC6mW66HHX+Y
sweOy0JuXI3+22p8vin4UNYcKAsen5s61qtw/Mb+h/uuyQJPyosLhyppQPEq
qV4nZEE3nbSLBZ8PSM9k/RjKcsD7+/HSMj5frLsXSAtvlAN5i8XRUOxRAZ03
/Tpy4Pj2/I41fB555GGuGEiXg6r7neHrRTSwFDrZleOE2w+fCF0pwPNzrJrG
lCgHattOmn/OpcEHcXummjU5MMkGf/XbNEjyj0nU/iQPVss+phYxeP9te1Ad
MyAPf+pYDpdfwfVYrXNoeEQepM9elpLD1usnayVOy4Ohq2P4HD7PTeTs+7bE
pgCF69FjmVE4fr7vkQflFIDx2HGtL5wG7UPcNVJ7FSDv621pIXyetIvesymr
UgGkXXIuWrji+uZ8eV/eBUWITAn/fVcPn1/HuHOS9ynBrYPWA+/W8Pnb7dt2
EXkKDD2SXtZ8TYUvbAVLqUoUcBMue6zdhO8H+cfLyKoUUFg4qqLfSAXyz58y
ipsoILT02MiwngoeAX8WNxtRYM3eSNiMoMJK1L+Hu/ZT4DcKr7OoooLqfbJU
7HUKvGJ8KRMpoMJWy74OvmQKJG4kN/DlU2HneOaVG2kUKK8ZiuW4T4UzmxTm
07MoMFJTqLmcQ4UXT1U78ksowD0rONp7B98fmvSiG15T4OYw15cbafj+dHze
2KoVj5/t9enoVCqc46mabW2nAEl5KwpNoULWbsOjXR8o8FfkW7ZnEhV+fATj
ryMUOH1aMoaK70Mr51hmPb9TQCZ83yaNa1Tgl24oGp+gQFzvjZuy8VTQdbGU
nJmhwOp3lXrWOCowmLnbA+cp8OmUd9RCDBUO5LZcXlqigEBzGO/4FSqcYMQb
ha3i92kWOfdFU+H///+F7gqVwLf/UeH/ANMMLtY=
       "]]},
     Annotation[#, "Charting`Private`Tag$136489#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2Xk0VP//B3DGbNbsJPtUIiFbC7kvhBnMvYpUJLKUVIhISasQWmRJUYlS
pIRPKpX7LkJRolKWUtZQsmbJ8rvfc35/zXmcO3fuzPv9ej1f957R8A7a6EcT
EBAYFhQQ+N9rVC9/ZH6eg46fF+/urueinkj58dYZDtqrkdBd0MBFuGT7xKMp
DrrsndkV+oGL1NcEzwaNctDrDUo/BD9z0cv4i+zvPRwUuFeyS+UbF7H1Pqui
txxkGuQQ4vqLi1IOeDkcz+Agh1dqPa/ZPHRXMPSmwCoOGqkoXpRpyUMMPzvD
hR6ayDo778GWZzwk8+XV3uwkDWS/I+Cbm5492lhxxUf7jToyJ1OcY67ao8g/
6/Ze6FRD329Lf3CRc0CPD14JKCRUUfcj31LTaAeEX9ykPndZGe3Vmz4v+c8B
2V19jnN/KaHNsgcENQIdUW71oaZQ94XoYtwFbvFnR7Q9OkWu/o4CitSo/lRl
x0dHvYTui8rIo6efJ7si7/GRwAo10vq0LNqSC29OiOOoJeFy7N1P0kh/euFT
p2AcKYv4541ZSaFDr1Kmal7haHt5XaKmuRQ6l5NqoF2NoxshK4OdTKRQ+IvA
5rgaHC1tnTYt0JJCv3IsTtjW4ki/4Gylj5gUciuM03z6HkdWeEl74ydJFFAT
XRPXiqPdF+fkivwlUYgz1N0cwtEeEx1Gq/IC9Nmj2XC1IoFCGE9uhy9YgAyd
fTDPhQQ6/MnOXpq2AAXreO04rUSg+DC/87xeCTS160r/O2UC5T/MWvi4SAIt
yVpquFmDQH0mCnqpthIo/XQ4d50OgXaZ0jcTweLIcyzTdJsZgQKZyVP93uKI
2dvY72dOoPAmjcyYTeKIUfjyYuA6AsWEYz+erxVHVv5PC45gBMotPbxHlyGO
lmnsTkiwJlC36fAx4Sti6Ft2cHOQA4F8Vn27U1EhihbQ7pUZuxFo551VrraP
RNG2j73pDHcCBSxMEnqdL4ouPdqz7BPl4H/W298liaLShoAtwR4EOkLmyTR7
iiKH28JDaV4ESrELOzr4TwSZ8Xr+3dxJoEuP3y3f/0cEpX968NlrF4GuaC9r
Hu0QQT7Z/n6L/AmUJdpqNPVaBPXtsExP3E2ge/XQJ5QugvTsVX099xKoarOY
y0JjEfR3h1dc1X4Cva7xE8zUEkEnLeVj94UQqG4NeV91kQgK1NxtKBNKoMZF
IcKLaSJo68j3WLcDBGpv/1yu914YeYUMDH0JJ9Dkrhzt9XuF0VnfaKWLkQT6
92WmqcpTGO1Pa72qeYRAczzXaJ6zMGJ6j6cXUabrCrfja4XR5bVRHW+iCCQ1
FJiylS2MFDZX6PcfI5BOxNr5wJtsZJ1UW990ikDoK67TmcZGCc83qrpGE8jV
2mfT5jNs1H2eb/qB8kmJxLtYIBv1PPPLrTpNoOabXzdLrmaj0kcFr5Niqf0V
GTkZrcNGSy48vTVHmR7MvD+pzEbFVnIKu+MIZGCmT/8hSJ1vdyLH9AyB4hqO
PyiqZaHeO7ymkngCqa5KbV1SzkJjytLvxBII9F9mHvPKAxYKdj9t4kP5+67G
bSdTWej33vM27ESqft72xP6NZSGbx029rpTFjP4VBxxmIbXfi39nU141xxF2
9mShxH2P5Y3OUuvts9q4egMLnfkYaHqQsvdrR0+z9Swk8JLx4DHlcylhDzna
LOTxJi7P6ByBFk+f+X5pEQvhDNWl+yiXeV4TFZNgIdGglvEcyj061TvGRpio
tngiTvg8VU8XWhP9u5noUsYJ3mrK0n//PGr7zET9Ww9u9qV8x53e6fSGiSzP
ehWdpWzxQlHi1TMmstYt2fQf5Y9LV6xZU8hELqfqrL5QDki09L13g4nM1/SH
T1EWGNl0XiOFiVL9OEMKFwiUujmgLDWGidwrdxQYUdZ5frRb+BATyUq75zlS
RprJkkf3MFFDRnyXN2XXuNtmIx5MtEBiuXs45V+/n+7c6cREGYkGIrGUTzq/
T2qxoq6vaj2YQlnxSdcz3ISJUsKeCGVRvq861ftSi4mc1FJs71BeHy0us0qJ
iXarHyq+R7mlT8PirhgTCYs8sHpAOZgw3a02z0CV8aojhZSZD+1TkocZyD/a
5mkB5QwlT5LVxUCa+RbpuZQNjof2RzYx0NJ7ZSevUq7qjpUbqmEgpen50CTK
2xwywfcpA7WJ9PuepDzy4MGeL/cYaJbfxw+mHCf/Ks0xi4GKbwppuVNWPdL8
Al2kjod/6rWi/N+P37+MTzNQ0bbkWC3K9nY0xbyDDLRkq9gsm/L3AnlrlQAG
ssstsOil1jtcenlg0jYGeihywuol5RtfnSsPWTKQY4bRrkDKhl2G0x+NGaiv
ZfN9K8qV/VIGBssYKL/qyqwM5Z6J+oweCQay93x37h5VLwfn7jdY0hho9L/A
52GU2YxzrKvjdJRtkPZ2LWUdacdQ5zY6Uj2sHfCUqsenisvz7tfTUW46pyOc
sqOaSLtwBR0teFUrrU85ULfGHuXRUfeb4AOpVL0X267XXHGQjsh9v2TWUP1i
zedsiQugjs9X6TZT/fXRmXau04OOdjwcyQ+j/NcLTV1eT0cWRSn3c6h+jN11
XX98FR2t4Qqqm1BWDDzq57Scjoy2lbx7SfWvWaR5A1OajgpC9j1vpPq77sQi
ljeDjuS0bvW7UN4eN23+fFIITdbG6H+IIdDx1Md3QtuF0Lzwk7YKKi8qC42P
fy8QQmFc/PMBKm82lcqUmmUJoVG/n41NJ6n1ejYykJYshLpueNw0psx+82Az
/7AQ+mP+8m7ncQLxu3T1y+yEkCzvarzEUQJ96xf1kzMTQvql5ftxKt+Ch/uv
BOsJIbey0skzVP5dnLvD1JITQrAk+O3oYQI1KS75ltxBQ5e6rHqTDlLzSY0u
++cTDUmrnNW4/798XdLJs39NQxfKLr95FUYgJaMbDwUe0JDzt3Cil8rn7XyV
s/uiaIj2/Ln/SBCBek/Imdsp0tBa2zIDTWo+iEQV/kkWoaFR5UNrv/gRSC+C
l/N9RhCppnk7xPlS9RQYJXL4hyAyttxj17SD6gf37i8F+YKorG1Xh9Y2av9d
jyVOZQqi9C/avgXUPMM3LATb84IoLl3FV2cr1e92/NvtoYLIKGBjorQrlU/G
D8Ok1wki2aoKuSSCQFx9QttTXxBlv1u5tJ1PoL06fW13NQTRZIbg3BJHqv7V
VdbbMAVRnvtQxlUuVR/ip6Uj6gXQxsyNGSstqTzscSn8ukMATSd+iP5gQM3j
H4PeOi4C6EFCam+WHjXv2+LkD9oKoKB1aZZ+ulT/NT6LklwugASDZDwbtQhE
O8ZLj/k5T+qWzn5Zq0r1V1jUvNrbebIOdzj/bBGBkvYU7XxSNE/6pruuN6bu
L9S3LDT5dXieHCharM+QJRC2sq9hg/g8ef8yka8tTF1fS2XNwPAcOVGfNbmZ
SaB3KhuyopvmyFvXm4hIIWo/RJ4EPro+R4rXzl3NmsXRkc44URXDOTLUtX2T
9zCOylKX2fx0nSUV9eqMcptwxHbv9RE0nyW364T/WPoBR67quSeVNGZJ5VBP
gYx6HI3kc5DjwAwZw3syv426v9JGqmZFx2bIdHX7WusnOErvl115+M4/EsZF
ysPTcdRT+IFIPvuPPGa4r08pBUfGYRcDC0L+kawRq/zC8ziqn19Q8M38H7lc
8eNcXgyOmHKiWtYN0+TE6lsSraE4CsMEVcSmp0gJ9DV42B5HL+nIbEn7FBnU
NATHbHAk+eaom0XlFEnrLJGfwnBU4DJzKfjcFPntdsy+QmMcde2ekP6kOUUa
0QsylFVwZKhfunKQNUVq7zx7SEABR8fHDjixfk+SjjJ3fN5K4mjRsZGzax5N
khvTXEh1Oo42pvxmX3OYJJX7C37d6OOjrK0FWo8MJknLo5wLLzv4aFB1j+17
uUlS7gu01rTyUXzez1O07xNkLXbxUvRbPnpR3jm388AEWfQuNe1uIR8Z9DWP
6V/9S9Yx7X14gXx0YGiFtkL0X7IkNKxcYycfPZ444TEX8JeUML6l2+bBR5ZM
naq61X/JhY8/eY878tFGzuFLuz+Ok1d7Pe7c1eajNJ13tU5Px0nDZxZKsep8
1LpSU2B19jiZ8DPuDijwkS+88WcGj5OLGWnDDnQ+CvNQWpsjOk7Kdi6LKmlz
RGW+gYHxI2PkTZkdy4MbHdHcnpfZ+5vHyC3dL7YyaxxRzOEAUbg9Ro4pPLn3
rNgRpV8qa2uzGiN3Ld30wCKGOr/B7Zj84VGyUCh34eRi6vwv90tmvUbJfeW9
NlMKjsjqO+1nl90ouUjKdmmNiCOqHcx3KpEbJWumNRNr/zigNtF/Gk5FI6RW
e8M34pEDUpchXFelj5BlHzKe3LrjgPyUcuJVj42QkV5xcy8uO6DBZQ6jvxxH
yMfJYV28SAc0b5NReebnMOn8psYj0swBref/mQyuHyafnFnz9aeOA4pzsV6x
pXSYfJ+kUimr5IAkfQZSl0YPk7Vrym/mTNgjzeNmuyrUhkk9rZTzxwvt0fqy
VuFZ1yGy1yPiAy5lj+7n31pTbTZEpnXKdbhN85BiRtDuJPUhstj0VTyzk4ea
JpgXHT7+IT1LVnWuKuGhJZGuklenB8mvnm8rOnAeenliXAzsfpMOCkn3w0O4
KM37zN6Pkr/J77NB3DkXLtptrVLn3/KLnJLKOCq/ioskGTYJSft+kYuE3l//
O2WHPONShDuTB0jy4XHZgMN2aOacETPmex8pNBBiOuZni94HVfsp5feRG2YO
vPWztEU5Tu6v7of2kfKFDZk7lW2RvfSp6M/MPrKlrf2VQoMNupzaSNNe8ZMU
1eP1cE1skGnm/vnaQz3kHU2Vlsw+axScVzgpJdNJDtYfEOCJWCIDicBTVt87
yPyTCTnVbYCGQ3QlQu91kP8ZcpcwCgGFmOdxPtp1kOLeDbSXGwGF1WfjaUd+
kOjnt8P1ehga7V/OM6lrJ/WKOJ6MFeaIeWoyyzakmVyWuMX+0k8T5LqTc6Px
yGty5YT6n9vnNFD8/tC4iw9ryLXG4a5nn6uj50cqgjYOVpNHA/4UVX1RQ4uT
fSwaPavIM48m55uTldEImdPaYFVBavSMuKYJyyNVI65utlQZKV1fdqp8WBAN
pV/2Hb4cQtoniCsd6JeEI7SUV7art2L3Wk6LT56SBr0rPtWypscw906XhApl
WXA2+vIsxjIFe3jGfLOsowLs37mnrzIlFzMadrz2MUsFBAQezvuUP8Ju6F5r
d5ZYAtV1zfFGzjXYWn7FztYEA/CPaKl2X/4aa+fRrikNGwB7cSs9WugNhktm
ZPVuWgn2kW1HP5bUYmZTOxoWqxpCnXZ7SJhsPbavNCGKlmcE/tYh91r7G7Hv
MpdOqd02hb1ZB1NVCpqxtZ5XTh5YZw7mfydKViq2YJeFWlaqXjQHMceIRpvo
FmxyvqPZpMcc7k1ELAjc1orxd0Xsvpe4Dgbxw2fKxb5i5zSuZZc0WsDjo+Xl
habfMZPWhe9DbwCsXfGi2OlSJza73OzgYLMVmHxsSit/3YmNL6tnNk5agUHk
r8O6M53YRJxPSriCNSx9rWDN3tGFme4ZiRBysQYZv8APpE43tqSy66zhG2v4
lbloTK+8ByvZuPSuyt310Gu98kvmUA92pd3h5oqq9dDRb/tMhNOLqU6bPaP9
WA/Nq0Oie2J7sQuC2JlZORuo+lgje23DT4xYvv+qRZQNXBcLNxHv7sOWXnzc
tcbSFq6UJCyMVOjHEuhx/hVbbCHN7cbsT14/FjPcd0Ah2BYS79S9qrzfj2kM
5KWoX7OFiPUc1yMRA9iW0pkxNGELG4+8Dx8Q/Y0lxBt6x9+wA1q4XJvvwiEs
Iqot5FEDF9y88hsfGw9hbSt4Xx91caHYHnst5jSEJXdqZMRMcMFbbXfpfzFD
WAa+ofyCMg9e1jy7QB8bwsRb3/N8fHlwapGvzc13w5j9zj1JHgM8aGNMmU32
DWM7bE+8OvCPB8ZDZw0dGSNYaopYq5eoPXRVPlIbMxvBLJvGrZ/o2MP6QNFp
67wRTI/zUD98lz3QXxTf7zw1iqWu1YmKaLaHbXftbq26PoptLTioId5rD/+l
tmUklI1i54zf9BwZswffAOYZo+FRbGhQd9MfCQd4JePmc2r7GPZK2JajY+UA
MTsFFTlrxrGgU0WW3GwHYIk5nfAe/It9d7E6dNTBEbZouSFT4QnshfXBpnEX
R8i38p0XWTyB2eFqxc7bHQE/FBFVsnUCi7iW+qMi2BHSerIO0V9NYBtS7FuO
pDjC0hfD+3MzJjGtiWnf6M+OENH278Hh0kksSHDu6rF2R3gzwRjCGyYxEz2b
P769jhCopxQ4wZzCFGUW3R386wilGVYB3JApbMPHNE26HB9swpO9+7nTGFdc
tsSbz4e0pKs3yn2mscGgGGkFFz78LLj9/eLRaUyevJH92I0PiZ1Pt5v9N42p
HDghVbmLDx+dutwS1f5hJ7e12wqe4IPvchNnvb//MD2rYxbrHvCh1Ba7SJOa
wZzTjJ1aHvKB7c1raFo+g9WMpgTsesqHgnQP4tiOGWxn2UG/jVV8GGPEOLyv
m8F6auxlglv5cOp7k3VIzizGR35tv2k4fHvisC/i2SwmcivaD2fhsDYZpR39
NIvZ2DwzzBHFYcgmvy+eNYd9UaCJ6cjisP1u1PmcPXOY+/bHLwsXU+8PX9z6
0Wgei7W/Il5sjUMacZne6jiP5Sce2Oxjh8PwMgm9H37zWIjOTKSIAw53WieO
/740jw1bdtxduxEHecvapcyZeey+vcXIYi8cphhrnizyFoCkbHU/w8M45IaM
vr0WKAASeklN9lE4uLTf69CIFIDZJ71b3Y7j8OCxptiyFAHYyJJu2x6Dw849
Yp7GVQJgOST4YD4Jh4/v2+l8HUHQlTvrWXgbh5Prrix8byoIt9+G/oJ8HAzy
XfScrQVB6Xba5TcFOCScer156zZB+JfteKmqCAcr05J8v3PU8UanMe+n1PUy
YpyOjgjCmM14i9lbHGplYnoXCNBAUL3yWHQ9Dj0Jp4/eEKfBdi+26qsGHJSP
RBdULqNBsrtchl4TDnHbTrJFPWngEoS+3vyGg5fKUXSplgZ3S+WXGwziEJka
tVm7mQYC1+OGBIeo9RSPGizrocFZzHigbhiHutlI5W+CQnB5ycQrfByH1d8O
RSxeLQQ/Kr92C83gIHk9zKDophCYaYpYWbIJWK4QVm1VLAShOmM194QJ6tnj
wPaPpBAkeS8LkRUl4Mix0MSJFiE4cIrv9l6cgJ+e+3+uk6JD/566x0IyBAh9
CT5Wr0oH/5miBCtZAlSdguV36NLBdofl50g5AlwgaH20HR2CSmbmvioQgNT3
Zb2JosPWoZ7UHcoEtKbvXbUtgQ5P/hUYh6kQ8Fdy77vf6XS47JiaekqVAF3B
PTOS/9GhZt8zdEGdgPQf/ls299PBqfBD4b7FBJRs9f/zc4IOgwKpzluWEPCu
YVfMYQYDmnY5zK9bSgD95c7/rqozQLrT+OK0FgFB2b6SXa4MiCsSvblmOQHn
Dl3OPOfDAO+N4jlDlO87vVu2JpgBT7JWn83RJWBwbpXluTMM0FW8YjW7goC9
7qIhq58x4EKHtswJAwISDWGuo4YBOxTCHRVXElAgHBZ/9hMDSkKWFd+lPPDo
W3bHIPX58k8XVxsSECBb/CFRgwmjWSqXGowJiB/o8Vylx4Sll65zHEwIyH+5
6NePtUzYuyhC4wXlvuDT9FUuTEjQ7krONiWAzS278MOLCTmNlQslVhGwTO2P
cuI+JgyXXTAKp+z/dovJjxgmzJizbcxXExB38+yLhGQmSFqm869QvhP5km+a
xYTqV02i45R7tXV3JjxhQpL2yjdZawjYGTOfZvKLCSZH81c0riUgxsOY832S
CVXn0ivkzQjINd5dGM9gwe7EVP4Wyt0djdXtqiz4ylJya6RML2O5xC9nAfuL
V7+IOQGLk8y/G69mwVSMYTxQ9sVyJ89sYEFzwB+pHMrR8q3RxttZYNCozHxP
+ebvBVLtASwY2b1Fc5pyZeX6q2cOssBs1navxjoCOjMOaRtHs0Bgl3ufDWVa
6P2H3y6w4ENN07VdlDXtOy3PXGVB7lRNUgxlKw3Fd0b5LOp3SlVnU/aedHT7
VsqCZ8+3Wz+jfLL+RE9cBQvs3A1FP1DOzi0NMXrPgpXL2zV7Kb+MGpj72saC
BPvEc5OUf7ioJ8T1seBlgOlGlgUBArqbFIz+smDXtaL9MpTVheJzvtLYIEnc
HVKmDC3l+nEL2FDkVtDIoexVNPrUUJkNE86LFi2jfDxuGffrMjbc67R4q005
y9PjY6wJG/Jt4df/jiPTi16GVmyo7F4RuYRyu3j1rzacDXdoc0fUKM91/YuI
dWeD9sGkMXnKqs8MGIb+bNA6WdolStki2S+p7QAbTK4td5qjvv/2gCsqsSfY
EL49e80g5X/Nwu+Gz7IhPvgqq41yOu/Q0W1X2FDvnL+/mrLxk5961blsaNpr
cfgB5YZlW9pXlrBBL/0t5xLlwPTq85kkG17cqguOpCzCXgWsOja8rijx8aC8
vlfuRlsXG9yfr7FRovzd9fQGu2E2WBwYXD1O7W9U1Zhg8SwbpLWetr2lXHrr
g3esvDDURW3CIig7y1nLjGgKwyA7T8ie8lB0ccU2fWHwP8M5tZCytm/SYkOu
MPj1B5FFVP1VfRD4lOkiDF6LAk4epuxtHXyatUMYSiq+illSztQketoOCYPj
k5jT1VR9S/wQuxN7VxiOWuf6l1H1f9fpyJaRR8LQM3D69X7KXDTA9qgUhu1a
kgu0KJ+4/ma34Vdh+P0rdksC1T9jHnHLv0qIwO2hrdvMqP678Hai1W6RCJAv
jbd2UP26Yt2uxGItETj57ohHLGXqGeZ3LIjAos6Wc7VUfze3CBUahohAwBI9
xXVUHpRvPmYY90kE1o8Xd9RQ+eJePdgx8kME/i5Ti91IedJ0e7LHoAhIHn9x
pEWfgJXy68YMWaJwGfnt7daj+ufj9MOvq0XBLTezrpfKrzMbwtcYZYpCwanh
2zeWEXCxTmdvQZ4oNL/Sfs+gnGnXfm3JI1HY6tVk5k/l44N1XLpioyhcid39
U4vKzy/aSvUzLDE4fzjwy0UOlTe0ct+qUDHQZz27rkjlc1Ux48JWB3GoXRDh
MSBFwPsVZS8bt4jD7Me0MSXKLXcCxx12ioOiafY0V5LK02uf3SxOiINm6Lhb
lgQB8gl5SziPxMHsNP+OOTVv/Hz4T39pSgDEjlWuoFN5Ipvac2xaAt5EF4iJ
UPNMevCohDRrAcgsPWKhOoaDRo2/6U2ZBcDcbBa0chQHiyPmMTW6C2CX4cEv
LtQ8PNTVuUTKcwFE9FpKXfiNw+B/hn7ZFQtgPk1ttrkbh186P/d720qCAn0y
v/ITDp9rTw9FL5ACK7/kPFoJDpsivU2vVEjDHr/UOsHtOOwVHdB85yYLaxs4
JkUMHNTuVqUx++XgqQ8vQjaPD5GPrZ0XZCjAbRkozsH4EJy7t9RUfyHIlB+g
3252BDHaKm+9biVQzK3TlvV3BJt9Lqk6ycoQJtQdpvfXARSfqATZLFYFn2nO
B5t4B7gYEpdk8FkNJLN5Ey0yDrAxhlhxtVQdXny+EWV80x503KM33YzSgIeZ
b9Y1m9hDU49wdvImTVhxZfVr/nMevPPutpRW48C2jo1rTR158IN+ezJVkwMq
ASPfzex5MJbrX7hwKQdoRclxllweLBwYUNZYwQEB5fFWx/U88A0dmdA348D0
+01pPuY8mD41f4+/mQOjvTT9JF0eLL21UOnMeQ6wWuW9f4rxYI1d63uxZA5Y
mlQH/BbhgWNfZuyFNA7ctpP0HmHzYP8K9fFLVzmg9IWtNEPnwbOHS9/n3uXA
xQvp2RKzXNhYZRRTWc2Bgn9Xf+v/5oKf/7g5t5YD3jq3y40GuBAh8mi09h0H
dIZco1b1ceEqvnbHh08ciPUUq7Lo5sLPJjDv6OSA1SMy3fErF6YjaKN+vRxo
sd3TT7RyQXxRZV5fPwca8a/6zs1cMPS0Uxge5kBFW/PlrZ+4YCMo/O7AOAc+
PXFC2z5wYUvOm+jJSQ6EuPp886SepwJsEs2OzHDg7KzwuHc9F/7//29QLF/L
2PmWC/8H8v6Viw==
       "]]},
     Annotation[#, "Charting`Private`Tag$136489#2"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.887110930882441*^9, 3.887110965168334*^9, 3.887111168180781*^9, 
   3.887150682063732*^9, 3.887150798204279*^9, 3.887150864138158*^9, {
   3.887150911524412*^9, 3.887150918512322*^9}, 3.887151295965914*^9, {
   3.8871513372809687`*^9, 3.887151370348174*^9}, 3.8871516741554623`*^9, 
   3.887153714266418*^9, 3.887154036753583*^9, {3.887188305530118*^9, 
   3.887188347874259*^9}, {3.887189287238524*^9, 3.887189315033214*^9}, 
   3.887189654278571*^9, 3.887189704727233*^9, {3.887189751566061*^9, 
   3.887189757588849*^9}, {3.8871899394199867`*^9, 3.887189956819738*^9}, {
   3.88719021960926*^9, 3.8871902429453697`*^9}, 3.887190306933299*^9, 
   3.8871904885582123`*^9, 3.887190519054202*^9, {3.887190549173849*^9, 
   3.887190584744685*^9}, 3.8871906220584373`*^9, {3.887190689404497*^9, 
   3.8871907096195173`*^9}, {3.887197696285947*^9, 3.887197701454311*^9}, {
   3.8871978496235237`*^9, 3.8871978614840918`*^9}, {3.887198188512261*^9, 
   3.8871982003035707`*^9}, 3.887198261702647*^9, {3.8872036867918463`*^9, 
   3.887203714637471*^9}, {3.887203819642869*^9, 3.887203832045415*^9}, {
   3.887203945058845*^9, 3.887203971520454*^9}, {3.8872043142704906`*^9, 
   3.8872043250616407`*^9}, 3.8872316980413723`*^9, 3.8872317356152973`*^9, 
   3.8872320282790117`*^9, 3.8872550413257732`*^9},
 CellLabel->
  "Out[162]=",ExpressionUUID->"c90f407e-fde0-4c27-b89a-bfed8e8de90d"]
}, Open  ]],

Cell[BoxData["1"], "Input",
 CellChangeTimes->{
  3.887204012236307*^9},ExpressionUUID->"c3982f33-1892-4c8d-b417-\
e529d365cf3a"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"x", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "$finiteSize"}], ",", "$finiteSize", ",", 
          "$interval"}], "}"}]}], "]"}], ",", "%"}], "}"}], "]"}], "]"}], 
  "*)"}]], "Input",
 CellLabel->
  "In[414]:=",ExpressionUUID->"995c07a8-54f3-43fd-b687-2261b313ea42"],

Cell[CellGroupData[{

Cell[BoxData["wft"], "Input",
 CellChangeTimes->{{3.88711130262181*^9, 3.8871113614956503`*^9}, 
   3.8871114256950903`*^9, {3.887111552081056*^9, 3.887111553295385*^9}, {
   3.887111795544779*^9, 3.8871117984774113`*^9}, {3.887111850236684*^9, 
   3.887111851308466*^9}, 3.887153684455143*^9, {3.887153737433773*^9, 
   3.8871537385503807`*^9}, {3.887154044787704*^9, 3.887154046736822*^9}},
 CellLabel->
  "In[423]:=",ExpressionUUID->"085a517a-11d8-4bb0-80d9-474e6017eeaf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.9933252091538367`"}], "-", 
        RowBox[{"1.9933252091538367`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.9839232607378023`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.7503443645395196`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.851472441395189`"}], "-", 
        RowBox[{"3.851472441395189`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.7534301265357817`", "\[VeryThinSpace]", "+", 
        RowBox[{"6.672369466939231`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "5.489564649118233`"}], "-", 
        RowBox[{"5.489564649118233`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.6000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"5.1364396209735546`", "\[VeryThinSpace]", "+", 
        RowBox[{"9.100350891263805`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.6000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6.859070249572359`"}], "-", 
        RowBox[{"6.859070249572359`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"0.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"6.034736433117051`", "\[VeryThinSpace]", "+", 
        RowBox[{"11.104159111402671`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "7.93769029540702`"}], "-", 
        RowBox[{"7.93769029540702`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"1.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     
     RowBox[{
      RowBox[{"(", 
       RowBox[{"6.42092177917337`", "\[VeryThinSpace]", "+", 
        RowBox[{"12.691581075725416`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "8.722430321262802`"}], "-", 
        RowBox[{"8.722430321262802`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"1.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"6.323720388565077`", "\[VeryThinSpace]", "+", 
        RowBox[{"13.855192292774218`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "9.224263050177543`"}], "-", 
        RowBox[{"9.224263050177543`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"1.4000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"5.810798163604715`", "\[VeryThinSpace]", "+", 
        RowBox[{"14.591256056304102`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.4000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "9.46390850567422`"}], "-", 
        RowBox[{"9.46390850567422`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"1.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"4.972731236837019`", "\[VeryThinSpace]", "+", 
        RowBox[{"14.907789433444304`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "9.46849329160255`"}], "-", 
        RowBox[{"9.46849329160255`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"1.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.9095888515067996`", "\[VeryThinSpace]", "+", 
        RowBox[{"14.827080474979795`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "9.268925026591136`"}], "-", 
        RowBox[{"9.268925026591136`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2.7205594430064854`", "\[VeryThinSpace]", "+", 
        RowBox[{"14.38506631441755`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "8.897852201631196`"}], "-", 
        RowBox[{"8.897852201631196`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.4965353078320192`", "\[VeryThinSpace]", "+", 
        RowBox[{"13.62895798821319`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "8.388102338565751`"}], "-", 
        RowBox[{"8.388102338565751`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.4000000000000004`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.3153237535780541`", "\[VeryThinSpace]", "+", 
        RowBox[{"12.614006301115143`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.4000000000000004`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "7.7715094734794095`"}], "-", 
        RowBox[{"7.7715094734794095`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.7609494989577366`", "\[VeryThinSpace]", "-", 
        RowBox[{"11.400008432271253`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "7.078057477622825`"}], "-", 
        RowBox[{"7.078057477622825`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.8000000000000003`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.6867000058234556`", "\[VeryThinSpace]", "-", 
        RowBox[{"10.04795313038647`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.8000000000000003`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6.335278952847597`"}], "-", 
        RowBox[{"6.335278952847597`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"3.0000000000000004`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2.4324393416916634`", "\[VeryThinSpace]", "-", 
        RowBox[{"8.617054888165748`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"3.0000000000000004`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "5.567860522822777`"}], "-", 
        RowBox[{"5.567860522822777`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"3.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2.983410389443941`", "\[VeryThinSpace]", "-", 
        RowBox[{"7.162317891778454`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"3.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4.7974144331643105`"}], "-", 
        RowBox[{"4.7974144331643105`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"3.4000000000000004`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.3376320920833193`", "\[VeryThinSpace]", "-", 
        RowBox[{"5.732689498706865`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"3.4000000000000004`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4.042383686304539`"}], "-", 
        RowBox[{"4.042383686304539`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"3.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.5036236195906136`", "\[VeryThinSpace]", "-", 
        RowBox[{"4.369804681456182`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"3.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.318053729419685`"}], "-", 
        RowBox[{"3.318053729419685`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"3.8000000000000003`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.49802119203678`", "\[VeryThinSpace]", "-", 
        RowBox[{"3.107282691706855`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"3.8000000000000003`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2.6366482593031297`"}], "-", 
        RowBox[{"2.6366482593031297`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"4.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.3432489500257994`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.9705114526874281`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"4.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2.0074902689842564`"}], "-", 
        RowBox[{"2.0074902689842564`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"4.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.0653596124125135`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.9768407464539606`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"4.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.4372122719194762`"}], "-", 
        RowBox[{"1.4372122719194762`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"4.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2.6921217237136945`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.13609947088258645`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"4.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.9300018994689697`"}], "-", 
        RowBox[{"0.9300018994689697`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"4.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2.251398058371895`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.5486471425333344`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"4.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.4878709346105662`"}], "-", 
        RowBox[{"0.4878709346105662`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"4.800000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.7698338741132522`", "\[VeryThinSpace]", "+", 
        RowBox[{"1.0801793032548246`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"4.800000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.11093745762816033`"}], "-", 
        RowBox[{"0.11093745762816033`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"5.000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.2718536531130882`", "\[VeryThinSpace]", "+", 
        RowBox[{"1.4661142192539802`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"5.000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.202287843221355`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.202287843221355`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"5.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.7789500904806405`", "\[VeryThinSpace]", "+", 
        RowBox[{"1.7178682924609605`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"5.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.4546187540652222`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.4546187540652222`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"5.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.30923869518148783`", "\[VeryThinSpace]", "+", 
        RowBox[{"1.8496400679148246`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"5.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.6499204583761811`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.6499204583761811`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"5.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.1227552612319307`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.877453249235673`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"5.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.7928515039709692`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.7928515039709692`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"5.800000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.5061141528736461`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.8182887713295468`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"5.800000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.8886249611743153`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.8886249611743153`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"6.000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.8333875390039233`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.689325467452201`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"6.000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.9427918658981167`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.9427918658981167`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"6.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.100330662923424`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.5073004847519917`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"6.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.9610490688451921`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.9610490688451921`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"6.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.305556328936985`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.2879935106070832`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"6.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.949072714736409`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.949072714736409`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"6.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.4501313396151236`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.0458329927386782`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"6.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.9123777649077557`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.9123777649077557`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"6.800000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.5371446626885368`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.7936179581451397`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"6.800000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.8562032617294245`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.8562032617294245`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"7.000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.5712702630997906`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.5423456190518587`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"7.000000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.7854224203647376`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.7854224203647376`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"7.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.5583432151878824`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.3011326185664839`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"7.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.7044761259787768`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.7044761259787768`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"7.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.5049635230124498`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.07721638042417898`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"7.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.6173280130861386`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.6173280130861386`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"7.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.4181381630454648`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.1239775524824692`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"7.6000000000000005`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
         "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.5274390057817112`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.5274390057817112`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"7.800000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.3049683225026874`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.29871621925103403`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"7.800000000000001`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.43775899793864503`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.43775899793864503`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"8.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.1723857011824652`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.44480139552264497`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"8.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.3507332436237327`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.3507332436237327`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"8.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.026939106637189`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.5613856028722979`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"8.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.26832100073473375`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.26832100073473375`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"8.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.8746304084935105`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.6487730833486257`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"8.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.19202401470837516`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.19202401470837516`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"8.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.7207972146155104`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.7082153845211988`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"8.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.12292253283209578`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.12292253283209578`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"8.799999999999999`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.5700383614660931`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.7417096517186408`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"8.799999999999999`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
        "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.06171669169074551`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.06171669169074551`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"9.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.4261774347120976`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.7518061666790877`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"9.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.008771309210146967`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.008771309210146967`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"9.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.29225900818061784`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.7414301656733691`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"9.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.035837672256359906`"}], "-", 
        RowBox[{"0.035837672256359906`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"9.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.1705720603237831`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.7137215613642721`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"9.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.07227661440446054`"}], "-", 
        RowBox[{"0.07227661440446054`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"9.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.0626950469001149`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.671894914444044`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"9.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.10090876779867508`"}], "-", 
        RowBox[{"0.10090876779867508`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"9.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.030442672856922065`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.6191208752091906`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"9.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.1222510610454943`"}], "-", 
        RowBox[{"0.1222510610454943`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"10.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.10848798861287787`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.5584293535292821`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"10.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.13693391331476765`"}], "-", 
        RowBox[{"0.13693391331476765`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"10.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.171584222121801`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.49263388164556055`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"10.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.14566467338089645`"}], "-", 
        RowBox[{"0.14566467338089645`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"10.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.22028824317944318`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.424276004608633`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"10.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.1491950899202945`"}], "-", 
        RowBox[{"0.1491950899202945`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"10.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.25548783282902054`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.35558805933965654`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"10.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.14829303976585523`"}], "-", 
        RowBox[{"0.14829303976585523`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"10.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.2783220119053776`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.28847237274895854`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"10.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.14371858511384217`"}], "-", 
        RowBox[{"0.14371858511384217`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"11.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.29010647064428563`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.22449470684110379`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"11.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.1362042982422921`"}], "-", 
        RowBox[{"0.1362042982422921`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"11.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.2922656847694365`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.1648896874265819`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"11.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.12643968319682627`"}], "-", 
        RowBox[{"0.12643968319682627`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"11.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.28627279856523996`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.11057595539791307`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"11.4`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.11505943767307947`"}], "-", 
        RowBox[{"0.11505943767307947`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"11.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.2735979051212118`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.0621788580227711`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"11.6`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.10263523335269877`"}], "-", 
        RowBox[{"0.10263523335269877`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"11.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.2556649636759437`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.02005863553639468`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"11.8`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.08967064823653956`"}], "-", 
        RowBox[{"0.08967064823653956`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"12.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.23381726612005116`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.01565776021330894`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"12.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}], "+", 
  RowBox[{"0.1`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "0.07659885740974227`"}], "-", 
        RowBox[{"0.07659885740974227`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "-", 
          RowBox[{"12.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], 
     "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0.20929109894663733`", "\[VeryThinSpace]", "+", 
        RowBox[{"0.045042867402965446`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          RowBox[{"12.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{{3.887111296704468*^9, 3.887111361974958*^9}, 
   3.8871114307447863`*^9, 3.887111553934842*^9, 3.887111799034762*^9, 
   3.88711185193331*^9, 3.8871513373062773`*^9, {3.887153685316287*^9, 
   3.8871537391356363`*^9}, {3.887154036812705*^9, 3.887154047989998*^9}},
 CellLabel->
  "Out[423]=",ExpressionUUID->"5780e7ba-405a-4713-8078-3e10f6e3dd93"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ii", ",", 
     RowBox[{
      RowBox[{"wft", "/.", 
       RowBox[{"t", "->", "ii"}]}], "//", "Re"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", 
     RowBox[{"-", "5"}], ",", "5", ",", "0.1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"%", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.887111227174408*^9, 3.8871112453443537`*^9}, {
  3.887154153211936*^9, 3.8871541572307262`*^9}, {3.887154313244252*^9, 
  3.88715431827107*^9}},
 CellLabel->
  "In[193]:=",ExpressionUUID->"56cb246c-9554-4e6e-aa7e-c48c86c08cad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.`"}], ",", "0.6809097313362528`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.9`"}], ",", "0.7590506854341662`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.8`"}], ",", "0.7935837160773818`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.7`"}], ",", "0.8005998137079522`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.6`"}], ",", "0.8401213429791345`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.5`"}], ",", "0.9364975235542665`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.4`"}], ",", "1.0438563153423526`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.3`"}], ",", "1.106172883487726`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.2`"}], ",", "1.1344387988894635`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.1`"}], ",", "1.1959444047503542`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.`"}], ",", "1.3256321349923823`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.9`"}], ",", "1.477049581432204`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.8`"}], ",", "1.5827133770436128`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.7`"}], ",", "1.6472467496409662`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5999999999999996`"}], ",", "1.7468049530008751`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5`"}], ",", "1.9295620673338512`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.4`"}], ",", "2.14835369648005`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.3`"}], ",", "2.3210205641344333`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.2`"}], ",", "2.443834552023763`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.0999999999999996`"}], ",", "2.604195350656108`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.`"}], ",", "2.8669531234822356`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.9`"}], ",", "3.1826263098072767`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.8`"}], ",", "3.4476101455773955`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.6999999999999997`"}], ",", "3.6452011295295845`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5999999999999996`"}], ",", "3.876212252419491`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5`"}], ",", "4.224432712066811`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.4`"}], ",", "4.629273301741499`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.3`"}], ",", "4.946150226408571`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.1999999999999997`"}], ",", "5.128815603389113`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.0999999999999996`"}], ",", "5.285194060641503`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.`"}], ",", "5.5063401028313965`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.9`"}], ",", "5.680597579000699`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.7999999999999998`"}], ",", "5.559156560568914`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.6999999999999997`"}], ",", "5.017571969288651`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5999999999999996`"}], ",", "4.163496085282244`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5`"}], ",", "3.112291982372522`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.4`"}], ",", "1.742061487019607`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.2999999999999998`"}], ",", 
     RowBox[{"-", "0.10010428451831932`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.1999999999999997`"}], ",", 
     RowBox[{"-", "1.9834419388211992`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.0999999999999996`"}], ",", 
     RowBox[{"-", "2.586856918230241`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.`"}], ",", 
     RowBox[{"-", "0.3623873187495912`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.8999999999999995`"}], ",", "5.1196715947416855`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7999999999999998`"}], ",", "12.345066067755738`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7000000000000002`"}], ",", "18.523939045723075`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5999999999999996`"}], ",", "21.393733304051107`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5`"}], ",", "20.65219240048279`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.39999999999999947`"}], ",", "17.79262853719794`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.2999999999999998`"}], ",", "14.6011386687691`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.1999999999999993`"}], ",", "11.774306744602033`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.09999999999999964`"}], ",", "8.826847537987613`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "5.065767958889432`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.10000000000000053`", ",", "0.4246482741640345`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.20000000000000018`", ",", 
     RowBox[{"-", "4.650832119833453`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3000000000000007`", ",", 
     RowBox[{"-", "9.881161862559804`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.40000000000000036`", ",", 
     RowBox[{"-", "15.413688614174042`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", 
     RowBox[{"-", "21.29537494688726`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6000000000000005`", ",", 
     RowBox[{"-", "26.81090355040082`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7000000000000002`", ",", 
     RowBox[{"-", "30.565077672554132`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8000000000000007`", ",", 
     RowBox[{"-", "31.379986401240302`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9000000000000004`", ",", 
     RowBox[{"-", "29.177798186788326`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", 
     RowBox[{"-", "25.022752103139258`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1000000000000005`", ",", 
     RowBox[{"-", "20.34457234143135`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", 
     RowBox[{"-", "16.105482434230268`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3000000000000007`", ",", 
     RowBox[{"-", "12.571636296595418`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4000000000000004`", ",", 
     RowBox[{"-", "9.649179317800927`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", 
     RowBox[{"-", "7.262321898196914`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6000000000000005`", ",", 
     RowBox[{"-", "5.415409121198719`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7000000000000002`", ",", 
     RowBox[{"-", "4.0506145308721635`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.8000000000000007`", ",", 
     RowBox[{"-", "3.0012942370060713`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9000000000000004`", ",", 
     RowBox[{"-", "2.1172343529242577`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", 
     RowBox[{"-", "1.3759277061621735`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.1000000000000005`", ",", 
     RowBox[{"-", "0.8295493817331774`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.2`", ",", 
     RowBox[{"-", "0.47165738084809883`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.3000000000000007`", ",", 
     RowBox[{"-", "0.20563149367944983`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.4000000000000004`", ",", "0.05453486037840222`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"2.5`", ",", "0.29745309101425266`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.6000000000000005`", ",", "0.4569745876032866`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.7`", ",", "0.5199133897784654`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.8000000000000007`", ",", "0.5533016906565331`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.9000000000000004`", ",", "0.6213025230383027`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", "0.7087028344498156`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.0999999999999996`", ",", "0.7517344383278761`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.200000000000001`", ",", "0.7298247774968367`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.3000000000000007`", ",", "0.694512655042019`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.4000000000000004`", ",", "0.7011222319658048`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5`", ",", "0.7382356770523809`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5999999999999996`", ",", "0.7478972953901604`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.700000000000001`", ",", "0.7056753207645597`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.8000000000000007`", ",", "0.652622990240838`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.9000000000000004`", ",", "0.6394138384616384`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", "0.6600373002619546`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.1`", ",", "0.6626899578904403`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.200000000000001`", ",", "0.6203249268798642`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.300000000000001`", ",", "0.565699649164288`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.4`", ",", "0.5462860419304049`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.5`", ",", "0.5614655792443324`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.600000000000001`", ",", "0.5652842846590592`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.700000000000001`", ",", "0.528728874554705`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.800000000000001`", ",", "0.4774659165256516`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.9`", ",", "0.4562660458822783`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", "0.46945235319920653`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.887111208342148*^9, 3.887111245815838*^9}, 
   3.887151337344246*^9, 3.887153714350243*^9, 3.8871540368550253`*^9, 
   3.8871541582069674`*^9, 3.887154318911745*^9, 3.887188916585493*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"2e59db0e-2acb-4600-9ff9-e9c22b0aae18"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11Q9Q01UcAPAxtrEBwhiDBBVEERJlImyCqLxnXDtK7rq4MKS7BAS1xCOh
CIEMlbjLoYFCCPmH8AYtwiDgiiLfU4MDRPwDZeYxYbLBAGEiDRBb5d537273
u91738/3976/3/v+/FIy4tK4HA4n7f/fiysbUrrrapbcvkePqipfDHfaoLyi
8X99DIVZhzs9t3RvgyjNiG72vhgSut7gV3D8ghHttQ4J9VGdDVTqxhHzJFRw
4FRd99xj8NxolN7uck2zCTw3KhtI3an74Ql4Yvpqc0ysJmAGPDEt77lU+eWq
p+CJaZK32rFH8TfEu9IVAY9/tXw9B+tdaNBRj+gbcQuQbwlN35ey3/edZ8jK
9zrTKxJvapxZBM+Ziu+kH85/aAHPiU49k4oHNthh5jnSoP3XIrNKuZh5IioK
l/ktFNtj5glpa8uW3am/8zDzhLRoXaHPZ9MCzDwHmvJSUhcvWwSegP5h+K26
pcwJW7lKPjXsblXsXrsEPB7dNn+9NI/rCh6POk/saryjF4NnT5eOpkckFUrA
49Lc5dqqB13u4NlR5HFr69hxKXgcOvPwoFHk7wEeh3673Yt/ROAJ8RbyV/C7
p6d+8oT1z4ng6ZnPz2z1xKHWfItE9r0+xeImxWet/gJpjzpZeKBODN48+dOf
7FzQC8Ezk/FJ9WDew0Wo9yy57Rkqz6huI8x7Sn50iD0f3P4vYd4TUnhvs6Ou
iUeZZyIl09VliRvvkS5r/CSZbO4MUeXa8hsJNY1++l3jy3i/NZ+BpOSe0K4s
CsUhVv8ReRDV2HIjVQH3N0TmOzql5lo5LrHG3yfh/sEtxp6NsL6f3M0sz+wK
C8YF1vluUqPkTh8qDoT/baRBm/9FQp2frX4crwhuQ0K0FFM2j3IqPprNCH6A
qlk8MuWFt2dVSSh7YP2oKLFXHXh9NWXz91Gv4rClr18G+x1C0aaYpvM7FDSC
3T9SyfhJFbciKewPad9cN/VNSRTEG1EOnupWJiN6m9UHbVeVywqDt9nqhxb0
M9J+/mZ6jtUXdZysHFEkyKmc1R/FxpXrOctCIH4WzQRFHW/wXwv5zOjiHuWW
5NjV4M0jH9+K5RecV4C3gPqEEdxkjQd4iyh/Y/2OgTAxeM9RyHjxyVquEDwL
WhVxpGSpiQMeBx9ziOzotTeTPvZ+4lrqs6ZeNU7Y+bLDY5ve/6Bmg5aweC5W
0hCLX1wPYfnsccyemmjLRD2cXx5O5Bc05oj6EfN4WPbPprclaBDOPx/nbPll
n9+lIcQ8AY7xVRJ1yzBingO+pl830Dr8CDwhjkh3K21qMMD7K8Qr1fnJCpcx
xPYvwj976T9pSxwFzxHzRceqMjcbwHPCr8R7jVRkGGz9BXd3KA5WXxy19R9c
YHZ5o3NqFLwleI1B+N5ImQE8F3z3Y/NXr+lGwHPFVZcrudLsEVv/w1fyE1QC
X72tP2LNoPj0Vbke9i/GanOkpvn+I4h3w8ILJQGbvHW2/ovVStXg+rxhW3/G
spFyTdHcMOSX4NLWQ263PHXgSbBPpMedhIkh8Nzxh/XL5DdPaW3fB7yrPb4g
O2wQPCl+K95Od9RJi/4D9DrKMw==
     "]]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-5., 5.}, {-31.379986401240302`, 21.393733304051107`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.887111208342148*^9, 3.887111245815838*^9}, 
   3.887151337344246*^9, 3.887153714350243*^9, 3.8871540368550253`*^9, 
   3.8871541582069674`*^9, 3.887154318911745*^9, 3.887188916634178*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"e1ebc83f-071e-4488-98dc-e0dabf77a60e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ii", ",", 
     RowBox[{
      RowBox[{"wft", "/.", 
       RowBox[{"t", "->", "ii"}]}], "//", "Im"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ii", ",", 
     RowBox[{"-", "5"}], ",", "5", ",", "0.1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"%", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.887111251653584*^9, 3.887111253002037*^9}, 
   3.8871121587964573`*^9, {3.887154253006122*^9, 3.887154255373107*^9}, {
   3.887154324611907*^9, 3.887154331175712*^9}},
 CellLabel->
  "In[195]:=",ExpressionUUID->"99b22d7f-2785-49a4-82b4-0a33e7dc4e1d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.`"}], ",", "1.5345193612147061`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.9`"}], ",", "1.6438984140765496`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.8`"}], ",", "1.77019878660303`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.7`"}], ",", "1.823951668479652`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.6`"}], ",", "1.8149767180590635`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.5`"}], ",", "1.8440352394951853`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.4`"}], ",", "1.9700508899956883`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.3`"}], ",", "2.1277790346773533`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.2`"}], ",", "2.2108400248227515`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.1`"}], ",", "2.2154292066750747`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.`"}], ",", "2.251591267495764`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.9`"}], ",", "2.399209343836848`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.8`"}], ",", "2.5968665949315373`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.7`"}], ",", "2.7178346740140906`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5999999999999996`"}], ",", "2.7405277672409447`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5`"}], ",", "2.785383209518911`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.4`"}], ",", "2.9585315769308855`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.3`"}], ",", "3.2040469435316687`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.2`"}], ",", "3.36898765462051`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.0999999999999996`"}], ",", "3.4072688993149143`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.`"}], ",", "3.4511799300287738`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.9`"}], ",", "3.6405089863920854`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.8`"}], ",", "3.9254379071637433`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.6999999999999997`"}], ",", "4.114535271585352`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5999999999999996`"}], ",", "4.1234016864235725`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5`"}], ",", "4.095569549868834`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.4`"}], ",", "4.211700897387263`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.3`"}], ",", "4.418999282158841`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.1999999999999997`"}], ",", "4.450458798988238`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.0999999999999996`"}], ",", "4.138920214341397`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.`"}], ",", "3.6123646293590026`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.9`"}], ",", "3.064434753102044`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.7999999999999998`"}], ",", "2.3501519042462764`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.6999999999999997`"}], ",", "0.9429531246373699`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5999999999999996`"}], ",", 
     RowBox[{"-", "1.6465109937899727`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5`"}], ",", 
     RowBox[{"-", "5.555266105999161`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.4`"}], ",", 
     RowBox[{"-", "10.897924908299478`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.2999999999999998`"}], ",", 
     RowBox[{"-", "18.41891012111587`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.1999999999999997`"}], ",", 
     RowBox[{"-", "29.43865354376029`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.0999999999999996`"}], ",", 
     RowBox[{"-", "44.571969432211645`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.`"}], ",", 
     RowBox[{"-", "62.13670609031666`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.8999999999999995`"}], ",", 
     RowBox[{"-", "77.98796666572977`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7999999999999998`"}], ",", 
     RowBox[{"-", "87.54139542836788`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.7000000000000002`"}], ",", 
     RowBox[{"-", "88.68469868935463`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5999999999999996`"}], ",", 
     RowBox[{"-", "83.16700524991396`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5`"}], ",", 
     RowBox[{"-", "75.18000873755872`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.39999999999999947`"}], ",", 
     RowBox[{"-", "68.26195348623409`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.2999999999999998`"}], ",", 
     RowBox[{"-", "63.073896758602395`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.1999999999999993`"}], ",", 
     RowBox[{"-", "57.69698040436359`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.09999999999999964`"}], ",", 
     RowBox[{"-", "49.83403846749819`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", 
     RowBox[{"-", "38.84025328594542`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.10000000000000053`", ",", 
     RowBox[{"-", "26.040809170253105`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.20000000000000018`", ",", 
     RowBox[{"-", "13.508104994729917`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3000000000000007`", ",", 
     RowBox[{"-", "2.6362166523337685`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.40000000000000036`", ",", "6.391333433804783`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "14.177439144228314`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6000000000000005`", ",", "21.36612004220031`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7000000000000002`", ",", "28.14299226264128`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8000000000000007`", ",", "34.13506947868001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9000000000000004`", ",", "38.622476505070054`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "40.94382036153823`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1000000000000005`", ",", "40.92145774635714`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", "39.037347210309186`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3000000000000007`", ",", "36.18415884990804`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4000000000000004`", ",", "33.15299363643613`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", "30.27837383265606`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6000000000000005`", ",", "27.514984710764466`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7000000000000002`", ",", "24.787405603141394`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.8000000000000007`", ",", "22.208201583726336`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9000000000000004`", ",", "19.969262734660024`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", "18.109303334670198`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.1000000000000005`", ",", "16.4737881439761`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.2`", ",", "14.907915341321756`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.3000000000000007`", ",", "13.427491199930916`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.4000000000000004`", ",", "12.159633157159652`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.5`", ",", "11.148410101264608`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.6000000000000005`", ",", "10.281979732462096`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.7`", ",", "9.425164201170377`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.8000000000000007`", ",", "8.574991674248421`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.9000000000000004`", ",", "7.839426219978588`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", "7.277406696903853`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.0999999999999996`", ",", "6.813158994336089`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.200000000000001`", ",", "6.330203744506673`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.3000000000000007`", ",", "5.814027998660947`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.4000000000000004`", ",", "5.356973498475851`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5`", ",", "5.026038100340773`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5999999999999996`", ",", "4.770977365147936`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.700000000000001`", ",", "4.489378286694258`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.8000000000000007`", ",", "4.156983017782676`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.9000000000000004`", ",", "3.851381299484633`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", "3.643018268103218`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.1`", ",", "3.5006157277223675`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.200000000000001`", ",", "3.3331687773799583`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.300000000000001`", ",", "3.108285337155534`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.4`", ",", "2.8898501353742487`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.5`", ",", "2.749082691446531`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.600000000000001`", ",", "2.669598992279525`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.700000000000001`", ",", "2.570406578304668`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.800000000000001`", ",", "2.412569766591704`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.9`", ",", "2.2473957777553792`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", "2.1452195836296597`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.887111255821293*^9, 3.887112159975975*^9, 
  3.8871513374095592`*^9, 3.8871537144483747`*^9, 3.887154036955391*^9, 
  3.887154256015402*^9, 3.887154331701593*^9, 3.887188970728846*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"c028bee5-9063-41db-aa13-05111c222478"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw11AtMk1cUAOA+KZTX3/Ia1AkYUHlIEAbzfQ9UES3IQGVMh84NGA4Rx8KG
w6BOTGSbhIGKMJwYNglKh0iCIup/0KkoMFCXackeBCMbzClVIFQobPY/PUnT
NPee7/Te/z/H9/2cpHSJSCRK///z6lsIV/zi2WfBaYcnWFXlq3BBdUHGjsz4
lyzcEi447lw43pY0xbq7XoUapXqD8a8QM8uwhBqrlUYbf6WZCZ4ai/rSXgva
byZPhfmdM64bDs6Qp0Jj9kVpk1wMgsfhN9u9Hnc1ikHwONwZcuZ5WKsYBI/D
sfvrYqOlEhDynfGQzufskYVS2u+EKblrp7fdlIFQzxHjqmw0PlflYOG7HDCl
dte9yidy8hzwu3Nm86exNuTZY2dPfpX6rII8JXYUB6Y+OmVHnh2mdtR3Nb5Q
kmeLMPBOmHu0PXm2mPajz2JZtT15CjR2DAdf93YkzwZvmeLNug+dwcJVynHd
nfG22DyOPBl+9cAsSS3kyJNh5sUnk79t48iTYi1rm93xkCNPgjf0D/yd9Cry
xJiYsVq9qltFnghFGTc8o0qsnghbKqKzvQcdKH+aP5YWuGX8gC3tn+KLxpQf
z+qWQJil3iQvemtG0RD8lB23+Cb+88TsIU3KS17gJvjhrRX6ikXuKHjj/Iu7
Mb2XO/1R8Eb50XnHmpZnhaHgveCPtUKlbtdyFDwjX/bLJl3kmhgUvBG+oLj7
6F5VAnZY8p/wK1qKHy7Zu572D/G91ySLTw9sxExLvUHeq/ITr3tByRhq8R/x
kvrbkefubCCvn78ZvkV7sDMJSy35Br5lVsnD61wi7b/P+18Zyc0rTsB9lvXb
/OOU9LpIQxz9buW3tF+70T4ci9YOmb6ak3U4S4sorLOQE9r8XOUSrBHy2ZuV
hclzZUEoPLD77PjhivYJdzmtG9huj9CW1lJPeh79LGHyfLxhUzAsEv4/c6tX
2F9KjQA6H3OvcfH71m8ZCPlDbH7P36NrVFHQK9wPez74QYI+QUveCCtytNP0
5K+EauF+menkvfXP81bCG8L9M1OOpvNWkZbyR9mfPRlFZR7RVG+cnSr8Xne0
HMibYEOJ/+zXrl5BnomlNVyy+/XAUvIm2ciCge3ltxeRN8X2uBrPx0VEkjfN
6o9HV/lOhFvfPyjHuvhJTRj8LLyfMKdaEbJ2dyj1lxhMNkdX9/UuoHwJDDtn
+PT3BVI9KWgvDOe0Jc639gc0153OnNLNJU8GBbOv/bC11I88ORiGYrwbDXPI
swHnK7YJ6XN9yVOAQ5/t12Wbva39C/1lun3crNet/Q0Ne97FBtDQ+e3AsSnk
qU+SJ3lKQE1USWmUB3n2sG5iLO/LbDfrfIEDdRvb6r1crfMH7FT+HgVuLuQ5
wuXHA0e8x1TkOYH+hHke1nDkOUNAs36mpsfJOv/A/If4+qCfdZ5wEJdbfjda
7EDn52BHwNtpG84oKV8Fy9r/bf7pd1u6DxXEhO7kt89WkKeGk55POe9pOdVX
w67wjy4kb5aTp4alz0xJC0tl5LnAqtqW94xxUvJcoFceUXvmpXU+u0L3jvKB
zAAx/AdYn7Fo
     "]]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{-5., 5.}, {-88.68469868935463, 40.94382036153823}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.887111255821293*^9, 3.887112159975975*^9, 
  3.8871513374095592`*^9, 3.8871537144483747`*^9, 3.887154036955391*^9, 
  3.887154256015402*^9, 3.887154331701593*^9, 3.887188970757612*^9},
 CellLabel->
  "Out[196]=",ExpressionUUID->"b5d3091a-6532-4291-b593-abbfd5bfed34"]
}, Open  ]]
}, Closed]]
},
WindowSize->{1255, 870},
WindowMargins->{{108, Automatic}, {-27, Automatic}},
TaggingRules->Association["TryRealOnly" -> False],
InputAliases->Association["intt" -> RowBox[{"\[Integral]", 
     RowBox[{"\[SelectionPlaceholder]", 
       RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "dintt" -> 
  RowBox[{
     SubsuperscriptBox[
     "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"], 
     RowBox[{"\[Placeholder]", 
       RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "rintt" -> 
  RowBox[{
     UnderscriptBox["\[Integral]", 
      RowBox[{"\[SelectionPlaceholder]", "\[Element]", "\[Placeholder]"}]], 
     "\[Placeholder]"}], "sumt" -> RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
      "\[Placeholder]"], "\[Placeholder]"}], "prodt" -> RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
      "\[Placeholder]"], "\[Placeholder]"}], "dt" -> RowBox[{
     SubscriptBox["\[PartialD]", "\[SelectionPlaceholder]"], 
     "\[Placeholder]"}], "cbrt" -> 
  RadicalBox[
   "\[SelectionPlaceholder]", "3", SurdForm -> True, MultilineFunction -> 
    None], "surd" -> 
  RadicalBox[
   "\[SelectionPlaceholder]", "\[Placeholder]", SurdForm -> True, 
    MultilineFunction -> None], "ket" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "Ket"], "bra" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "Bra"], "braket" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "BraKet"], 
  "delay" -> TemplateBox[{"\[SelectionPlaceholder]"}, "SystemsModelDelay"], 
  "grad" -> RowBox[{
     SubscriptBox["\[Del]", "\[SelectionPlaceholder]"], "\[Placeholder]"}], 
  "del." -> RowBox[{
     SubscriptBox["\[Del]", "\[SelectionPlaceholder]"], ".", 
     "\[Placeholder]"}], "delx" -> RowBox[{
     SubscriptBox["\[Del]", "\[SelectionPlaceholder]"], "\[Cross]", 
     "\[Placeholder]"}], "del2" -> RowBox[{
     SubsuperscriptBox["\[Del]", "\[SelectionPlaceholder]", 2], 
     "\[Placeholder]"}], "kd" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "KroneckerDeltaSeq"], "algs" -> 
  TemplateBox[{}, "Algebraics"], "bools" -> TemplateBox[{}, "Booleans"], 
  "comps" -> TemplateBox[{}, "Complexes"], "ints" -> 
  TemplateBox[{}, "Integers"], "pris" -> TemplateBox[{}, "Primes"], "rats" -> 
  TemplateBox[{}, "Rationals"], "reals" -> TemplateBox[{}, "Reals"], "pints" -> 
  TemplateBox[{}, "PositiveIntegers"], "npints" -> 
  TemplateBox[{}, "NonPositiveIntegers"], "nnints" -> 
  TemplateBox[{}, "NonNegativeIntegers"], "nints" -> 
  TemplateBox[{}, "NegativeIntegers"], "prats" -> 
  TemplateBox[{}, "PositiveRationals"], "nprats" -> 
  TemplateBox[{}, "NonPositiveRationals"], "nnrats" -> 
  TemplateBox[{}, "NonNegativeRationals"], "nrats" -> 
  TemplateBox[{}, "NegativeRationals"], "preals" -> 
  TemplateBox[{}, "PositiveReals"], "npreals" -> 
  TemplateBox[{}, "NonPositiveReals"], "nnreals" -> 
  TemplateBox[{}, "NonNegativeReals"], "nreals" -> 
  TemplateBox[{}, "NegativeReals"], "dlim" -> RowBox[{
     UnderscriptBox["\[Limit]", 
      RowBox[{"\[SelectionPlaceholder]", 
        UnderscriptBox["\[Rule]", 
         TemplateBox[{}, "Integers"]], "\[Infinity]"}]], "\[Placeholder]"}], 
  "dMlim" -> RowBox[{
     UnderscriptBox["\[MaxLimit]", 
      RowBox[{"\[SelectionPlaceholder]", 
        UnderscriptBox["\[Rule]", 
         TemplateBox[{}, "Integers"]], "\[Infinity]"}]], "\[Placeholder]"}], 
  "dmlim" -> RowBox[{
     UnderscriptBox["\[MinLimit]", 
      RowBox[{"\[SelectionPlaceholder]", 
        UnderscriptBox["\[Rule]", 
         TemplateBox[{}, "Integers"]], "\[Infinity]"}]], "\[Placeholder]"}], 
  "tue" -> OverscriptBox["\[UndirectedEdge]", "\[Placeholder]"], "tde" -> 
  OverscriptBox["\[DirectedEdge]", "\[Placeholder]"], "cB" -> 
  TemplateBox[{}, "CombinatorB"], "cC" -> TemplateBox[{}, "CombinatorC"], 
  "cI" -> TemplateBox[{}, "CombinatorI"], "cK" -> 
  TemplateBox[{}, "CombinatorK"], "cS" -> TemplateBox[{}, "CombinatorS"], 
  "cW" -> TemplateBox[{}, "CombinatorW"], "cY" -> 
  TemplateBox[{}, "CombinatorY"], "metric" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "Metric", 
    DisplayFunction -> (SuperscriptBox["\[Eta]", 
      RowBox[{
        SlotSequence[1]}]]& ), 
    InterpretationFunction -> (RowBox[{"Metric", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "eps" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "EpsilonPol", 
    DisplayFunction -> (SubsuperscriptBox["\[CurlyEpsilon]", 
      RowBox[{#}], 
      RowBox[{
        SlotSequence[2]}]]& ), 
    InterpretationFunction -> (RowBox[{"EpsilonPol", "[", 
       RowBox[{#}], ",", 
       TemplateSlotSequence[2, ","], "]"}]& )], "fieldst" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "FieldStr", DisplayFunction -> (SubsuperscriptBox["F", 
      RowBox[{#}], 
      RowBox[{#2, #3}]]& ), 
    InterpretationFunction -> (RowBox[{"FieldStr", "[", 
       RowBox[{#}], ",", 
       RowBox[{#2}], ",", 
       RowBox[{#3}], "]"}]& )], "riemann" -> 
  TemplateBox[{
    "\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]", 
     "\[Placeholder]", "\[Placeholder]"}, "Riemann", 
    DisplayFunction -> (SubsuperscriptBox["R", 
      RowBox[{#}], 
      RowBox[{#2, #3, #4, #5}]]& ), 
    InterpretationFunction -> (RowBox[{"Riemann", "[", 
       RowBox[{#}], ",", 
       RowBox[{#2}], ",", 
       RowBox[{#3}], ",", 
       RowBox[{#4}], ",", 
       RowBox[{#5}], "]"}]& )], "mom" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "Momentum", 
    DisplayFunction -> (SubsuperscriptBox["p", 
      RowBox[{#}], 
      RowBox[{#2}]]& ), InterpretationFunction -> (RowBox[{"Momentum", "[", 
       RowBox[{#}], ",", 
       RowBox[{#2}], "]"}]& )], "mand" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "Mandelstam", 
    DisplayFunction -> (SubscriptBox["s", 
      RowBox[{
        SlotSequence[1]}]]& ), 
    InterpretationFunction -> (RowBox[{"Mandelstam", "[", 
       RowBox[{
         TemplateSlotSequence[1, ","]}], "]"}]& )], "dotmm" -> 
  DdimVariables`DotProduct[
    DdimVariables`Momentum["\[SelectionPlaceholder]"], 
    DdimVariables`Momentum["\[Placeholder]"]], "dotem" -> 
  DdimVariables`DotProduct[
    DdimVariables`EpsilonPol["\[SelectionPlaceholder]"], 
    DdimVariables`Momentum["\[Placeholder]"]], "dotee" -> 
  DdimVariables`DotProduct[
    DdimVariables`EpsilonPol["\[SelectionPlaceholder]"], 
    DdimVariables`EpsilonPol["\[Placeholder]"]]],
Magnification:>1.25 Inherited,
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (June 19, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"bd681c19-8a3e-4f06-a739-7388f593582e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[400, 13, 205, 4, 37, "Input",ExpressionUUID->"16665d6c-a593-4d10-8212-9970407d0a6d"],
Cell[CellGroupData[{
Cell[630, 21, 295, 5, 37, "Input",ExpressionUUID->"327c79f2-29ce-4fc6-be07-ec77238e75f6"],
Cell[928, 28, 603, 14, 35, "Message",ExpressionUUID->"03039d86-2d4b-42b1-8b63-ac9492b3dcc4"],
Cell[1534, 44, 640, 14, 35, "Message",ExpressionUUID->"14d0ff60-e923-4820-8bdd-21737383291f"]
}, Open  ]],
Cell[2189, 61, 449, 7, 37, "Input",ExpressionUUID->"e773623c-7722-45da-b7d1-23e2590fd5e7"],
Cell[2641, 70, 425, 11, 44, "Text",ExpressionUUID->"47a43bcf-7052-4794-aed0-0c6c25698324"],
Cell[CellGroupData[{
Cell[3091, 85, 164, 3, 84, "Section",ExpressionUUID->"cba1d26f-3996-4786-99c4-16384b08e68e"],
Cell[3258, 90, 17698, 517, 1288, "Input",ExpressionUUID->"1df71baa-21a3-46fb-b213-ea907b55bedf"],
Cell[20959, 609, 3074, 83, 186, "Input",ExpressionUUID->"1015fcf9-cb8b-42f1-9050-236ff6dae640"],
Cell[CellGroupData[{
Cell[24058, 696, 156, 3, 67, "Subsection",ExpressionUUID->"44dbcdc2-78eb-4fec-89e5-381371b94503"],
Cell[24217, 701, 593, 16, 37, "Input",ExpressionUUID->"d4a57b35-7da2-4ff5-98ac-e7f5f3f7fed8"],
Cell[CellGroupData[{
Cell[24835, 721, 207, 3, 37, "Input",ExpressionUUID->"a26adcaa-ace4-4057-8bc7-1179a2bbaa44"],
Cell[25045, 726, 4923, 138, 70, "Output",ExpressionUUID->"e7e77fc0-5978-4894-a711-f158ffa2e70c"]
}, Open  ]],
Cell[29983, 867, 482, 13, 37, "Input",ExpressionUUID->"9d7bfe09-a1ab-41d5-9410-84bb0603ff02"],
Cell[30468, 882, 4054, 109, 230, "Input",ExpressionUUID->"9bc15df4-cf0c-4357-b617-32d650bc8599"],
Cell[34525, 993, 1289, 32, 116, "Input",ExpressionUUID->"20555039-7473-4c91-95e2-9bccd7b7e624"],
Cell[35817, 1027, 389, 9, 37, "Input",ExpressionUUID->"1a0339ba-23be-4213-8cb8-2dcf6e106237"],
Cell[CellGroupData[{
Cell[36231, 1040, 276, 4, 37, "Input",ExpressionUUID->"7bec7cf2-de07-4706-8ed5-3c10311891d8"],
Cell[36510, 1046, 8726, 245, 70, "Output",ExpressionUUID->"ea585196-9f68-4f1d-9967-023acf4802aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45273, 1296, 784, 14, 37, "Input",ExpressionUUID->"f2464365-1cb9-4a49-b502-5a47af192a3a"],
Cell[46060, 1312, 887, 14, 70, "Output",ExpressionUUID->"547f58ff-8e19-4bea-8195-9979cb0e518b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46984, 1331, 1312, 31, 90, "Input",ExpressionUUID->"3ae1ba03-e859-4b65-a8ff-51b6a674d0c0"],
Cell[48299, 1364, 464, 7, 70, "Output",ExpressionUUID->"6e4ed26b-6f17-47e5-9c36-7d6db651d531"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[48824, 1378, 216, 4, 65, "Section",ExpressionUUID->"8d388668-ca12-4e6e-aeca-837db9304a9a"],
Cell[49043, 1384, 3745, 95, 230, "Input",ExpressionUUID->"d43a2ac9-9243-42dc-aaa6-43d9dc359460"],
Cell[52791, 1481, 677, 13, 37, "Input",ExpressionUUID->"bdea3304-f638-4902-b569-1122e296d534"],
Cell[53471, 1496, 12213, 333, 765, "Input",ExpressionUUID->"33bee92b-f0f5-4861-bb18-1149ff92d5ca"],
Cell[CellGroupData[{
Cell[65709, 1833, 587, 16, 37, "Input",ExpressionUUID->"0d8b7008-2ab7-425e-9313-7e2d879eb6bf"],
Cell[66299, 1851, 243, 3, 70, "Output",ExpressionUUID->"c60b23e4-fcd1-45ad-b621-58604ca7d1e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66579, 1859, 202, 3, 37, "Input",ExpressionUUID->"83d69b78-7d65-435f-9047-5d7e5da6c3f5"],
Cell[66784, 1864, 976, 14, 70, "Output",ExpressionUUID->"db180c91-e871-4b79-8984-a8fc2eda724f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67797, 1883, 156, 3, 67, "Subsection",ExpressionUUID->"721b3385-6b51-415b-a975-3dcef6fa9cb6"],
Cell[67956, 1888, 651, 17, 37, "Input",ExpressionUUID->"6b3bce01-e46d-4f79-b60d-ee961671f5b8"],
Cell[68610, 1907, 508, 13, 37, "Input",ExpressionUUID->"0ceed858-5840-4494-8642-fabcc76fb99f"],
Cell[69121, 1922, 4051, 109, 230, "Input",ExpressionUUID->"839c0c30-c90c-4bd1-80c3-79be8b19b43f"],
Cell[73175, 2033, 1085, 29, 116, "Input",ExpressionUUID->"66882833-bedf-4485-8e30-31bb57046e91"],
Cell[74263, 2064, 391, 9, 37, "Input",ExpressionUUID->"e544ad5a-5990-4b24-a372-1b74741319f7"],
Cell[74657, 2075, 297, 4, 37, "Input",ExpressionUUID->"b4de6475-f7c3-4656-8a89-ac690be4dbb5"],
Cell[CellGroupData[{
Cell[74979, 2083, 526, 11, 37, "Input",ExpressionUUID->"cd1231ad-73ac-4f06-8e8c-bd9454f4b126"],
Cell[75508, 2096, 338, 7, 70, "Output",ExpressionUUID->"363be972-bd29-43e5-8c90-269c4d55137c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75883, 2108, 301, 7, 37, "Input",ExpressionUUID->"77652c4d-76ae-41a8-87b0-0d7f419abf13"],
Cell[76187, 2117, 312, 5, 70, "Output",ExpressionUUID->"d8cc25c3-b9c2-4bf8-a26f-fa90e41efd31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76536, 2127, 588, 11, 37, "Input",ExpressionUUID->"fc2185ad-1901-4040-8274-965d030fbc51"],
Cell[77127, 2140, 700, 12, 70, "Output",ExpressionUUID->"ee04eb6e-0b73-46b9-96ff-d7633841a8c0"]
}, Open  ]],
Cell[77842, 2155, 450, 12, 37, "Input",ExpressionUUID->"d3b87191-a03d-48c1-8390-5fb57a99994d"],
Cell[CellGroupData[{
Cell[78317, 2171, 707, 16, 64, "Input",ExpressionUUID->"a5efc6ce-ad8c-4f55-941d-bc2608acb54d"],
Cell[79027, 2189, 650, 10, 70, "Output",ExpressionUUID->"fcb8b0e7-ddda-42f3-9048-0e4ac4b9f45a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[79738, 2206, 247, 3, 65, "Section",ExpressionUUID->"ff12f576-e8c4-4163-802a-22dce25e0856"],
Cell[79988, 2211, 171, 2, 37, "Input",ExpressionUUID->"bcee90f9-5f67-4044-8cac-b08b6496e40b"],
Cell[80162, 2215, 1158, 18, 64, "Input",ExpressionUUID->"898a8eae-a7ae-41e2-b62f-262784523d94"],
Cell[81323, 2235, 316, 8, 37, "Input",ExpressionUUID->"6252d9b1-c3cd-485e-aa04-8df9308b1411"],
Cell[81642, 2245, 1277, 25, 37, "Input",ExpressionUUID->"ffa560ea-e986-4d40-9eb5-ab343c5d6b56"],
Cell[CellGroupData[{
Cell[82944, 2274, 1025, 26, 116, "Input",ExpressionUUID->"9aa9a407-5ed6-4d56-ad27-630a5a044133"],
Cell[83972, 2302, 6030, 114, 70, "Output",ExpressionUUID->"9c1fad2f-8525-4f9a-97dc-8b6832d0bbb0"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[90051, 2422, 228, 4, 65, "Section",ExpressionUUID->"b0f49f4c-747b-468f-9234-1c780f4147e3"],
Cell[90282, 2428, 1200, 24, 37, "Input",ExpressionUUID->"7b6844d9-e459-4fc4-922b-c755b9042526"],
Cell[91485, 2454, 1048, 28, 90, "Input",ExpressionUUID->"e54d6a03-9b74-4bd4-8eb2-ffa697a7a321"],
Cell[CellGroupData[{
Cell[92558, 2486, 929, 24, 90, "Input",ExpressionUUID->"af1e839c-43de-4aef-8161-06696fc6aecd"],
Cell[93490, 2512, 5868, 112, 70, "Output",ExpressionUUID->"e0eabe1c-39ab-4c78-87f7-161c2c0a3c6d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[99407, 2630, 156, 3, 65, "Section",ExpressionUUID->"30a098e9-1865-4fab-8229-5fee527e93ca"],
Cell[CellGroupData[{
Cell[99588, 2637, 350, 8, 37, "Input",ExpressionUUID->"1574550e-dccb-42c9-9cb6-66402f960f4a"],
Cell[99941, 2647, 5225, 103, 290, "Output",ExpressionUUID->"30b923ad-5e69-4ccf-95ba-d3391b1d7eb0"]
}, Open  ]],
Cell[105181, 2753, 1145, 37, 64, "Input",ExpressionUUID->"d0a326e3-3a29-41bc-9100-a79803f636ec"],
Cell[106329, 2792, 663, 16, 64, "Input",ExpressionUUID->"8ad70d08-1020-43f1-ac36-3e735f8c3d3c"],
Cell[CellGroupData[{
Cell[107017, 2812, 111, 1, 37, "Input",ExpressionUUID->"a185ddc1-85c8-48b8-8b2d-f467f79bb26a"],
Cell[107131, 2815, 323, 5, 42, "Output",ExpressionUUID->"71e9fa85-52e7-4045-ac4b-2e134bd963e3"]
}, Open  ]],
Cell[107469, 2823, 373, 6, 37, "Input",ExpressionUUID->"4f8380bf-3c2b-4057-bf34-d12811d79321"],
Cell[107845, 2831, 880, 25, 64, "Input",ExpressionUUID->"223d0ac7-82f1-4a0a-afac-c715c95be00d"],
Cell[CellGroupData[{
Cell[108750, 2860, 233, 5, 37, "Input",ExpressionUUID->"ed29d472-e0e6-4144-9f3e-2fe8e2e7661f"],
Cell[108986, 2867, 180, 3, 42, "Output",ExpressionUUID->"02e41f8a-f7d5-4d80-9c4d-4098cdde284d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109203, 2875, 232, 5, 37, "Input",ExpressionUUID->"a7ca1b55-a91f-4ba6-a188-d1108b163a63"],
Cell[109438, 2882, 286, 5, 42, "Output",ExpressionUUID->"6d5ac11a-b7d0-419e-9421-e40077a6ce2f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109761, 2892, 232, 5, 37, "Input",ExpressionUUID->"aee15104-cc57-4be9-8b15-a6bab5f84425"],
Cell[109996, 2899, 265, 6, 42, "Output",ExpressionUUID->"4ae12868-025b-45c7-a2b9-9e3965701055"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110298, 2910, 2297, 43, 64, "Input",ExpressionUUID->"a0ec09a0-21d1-47dd-9fe9-01c66d48b85b"],
Cell[112598, 2955, 92275, 1531, 299, "Output",ExpressionUUID->"befb2aef-6689-48c9-a490-4e483700d6cf"]
}, Open  ]],
Cell[204888, 4489, 464, 13, 40, "Input",ExpressionUUID->"9d960036-a944-4fcc-ae41-bf2ebd890e34"],
Cell[CellGroupData[{
Cell[205377, 4506, 692, 19, 64, "Input",ExpressionUUID->"7999f724-c2ba-4404-944c-e202f7542e5a"],
Cell[206072, 4527, 10844, 289, 433, "Output",ExpressionUUID->"31a478c2-bc16-4319-ab62-414d39ef406a"],
Cell[216919, 4818, 3175, 68, 301, "Output",ExpressionUUID->"561e0aff-dd43-4acc-82db-66c115d693bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[220131, 4891, 715, 19, 64, "Input",ExpressionUUID->"fa2ebbcc-2b33-44f5-8383-68bda4e1eb52"],
Cell[220849, 4912, 11545, 332, 459, "Output",ExpressionUUID->"42ffee31-c1d5-4949-a06f-f256091b3ff7"],
Cell[232397, 5246, 3170, 68, 300, "Output",ExpressionUUID->"95e6070a-1c2c-4f60-8b5a-11c08b94da72"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[235616, 5320, 224, 4, 84, "Section",ExpressionUUID->"69113d10-f327-4711-b200-6c83de5c8b38"],
Cell[235843, 5326, 175, 3, 37, "Input",ExpressionUUID->"14094073-914f-4e59-adec-7a9fd9c8d237"],
Cell[236021, 5331, 1162, 19, 64, "Input",ExpressionUUID->"df43b8cc-3218-40e7-aba5-e3e0b9066125"],
Cell[237186, 5352, 320, 9, 37, "Input",ExpressionUUID->"d2e5ac45-2b62-4cdd-82ca-22777d7d0660"],
Cell[CellGroupData[{
Cell[237531, 5365, 373, 9, 37, "Input",ExpressionUUID->"74da5198-3d42-4e7b-9cb4-aaa9da310674"],
Cell[237907, 5376, 285, 6, 70, "Output",ExpressionUUID->"f296fb4b-53ee-4f97-92d9-ed81555caebf"]
}, Open  ]],
Cell[238207, 5385, 1241, 25, 37, "Input",ExpressionUUID->"c4637d00-0aaa-4f75-87b2-c3b54df4cc88"],
Cell[CellGroupData[{
Cell[239473, 5414, 1029, 27, 116, "Input",ExpressionUUID->"4ea593ac-30b5-4d7c-b7a9-4f845463cfef"],
Cell[240505, 5443, 5934, 114, 70, "Output",ExpressionUUID->"69cdba49-e074-4891-96ed-09f83250fb57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[246476, 5562, 320, 8, 37, "Input",ExpressionUUID->"a0f3e65c-19da-40bd-a7d2-25ca6cb645ec"],
Cell[246799, 5572, 2839, 92, 70, "Output",ExpressionUUID->"972e2e8d-ef96-4717-aa63-f1f981248e68"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249675, 5669, 637, 19, 37, "Input",ExpressionUUID->"e7dcd566-ac8b-42d3-a07b-2f965a2ea02a"],
Cell[250315, 5690, 6576, 212, 70, "Output",ExpressionUUID->"c4f479fe-a783-4567-aeff-fc8156157877"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[256940, 5908, 227, 4, 65, "Section",ExpressionUUID->"3f7b5943-0bf1-4f24-8662-987837d208c5"],
Cell[257170, 5914, 1166, 24, 37, "Input",ExpressionUUID->"e7717d63-3cf6-474d-b4ac-638eb7727ede"],
Cell[258339, 5940, 1052, 29, 90, "Input",ExpressionUUID->"1de03749-6ea0-4b59-ac2e-254e7de41c6d"],
Cell[CellGroupData[{
Cell[259416, 5973, 933, 25, 90, "Input",ExpressionUUID->"d2344ea2-99af-4ec1-a407-459bf1143bee"],
Cell[260352, 6000, 5768, 111, 70, "Output",ExpressionUUID->"da59dbb7-07be-4e29-a080-621f94c7b581"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[266169, 6117, 156, 3, 65, "Section",ExpressionUUID->"1c0ec2de-7c7b-4d9b-842d-8d8e7bc0a82c"],
Cell[266328, 6122, 1149, 38, 64, "Input",ExpressionUUID->"278f5371-68d0-4160-82cc-0b1b7e74cbe5"],
Cell[CellGroupData[{
Cell[267502, 6164, 275, 5, 37, "Input",ExpressionUUID->"f5e36c16-1cd1-43e5-8498-6081b25ea528"],
Cell[267780, 6171, 333, 7, 42, "Output",ExpressionUUID->"79773bad-bd44-4ba9-b87c-13bd2ed80e85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[268150, 6183, 226, 4, 37, "Input",ExpressionUUID->"cd18277e-06dc-4e28-b501-06bd9d2121e3"],
Cell[268379, 6189, 310, 5, 42, "Output",ExpressionUUID->"0676f4b6-7986-4b45-a2ea-e877138ab764"]
}, Open  ]],
Cell[268704, 6197, 667, 17, 64, "Input",ExpressionUUID->"2ca5b032-0625-4b4e-8360-6d8901f2abd0"],
Cell[CellGroupData[{
Cell[269396, 6218, 115, 2, 37, "Input",ExpressionUUID->"596208d5-fd63-4c2d-af4d-465ca66c18c2"],
Cell[269514, 6222, 20769, 290, 1759, "Output",ExpressionUUID->"4e84f829-3c0f-4f5c-b237-48e1adce7581"]
}, Closed]],
Cell[290298, 6515, 377, 7, 31, "Input",ExpressionUUID->"828ca43d-a3c2-41c6-98b4-1e8955ad928a"],
Cell[290678, 6524, 884, 26, 64, "Input",ExpressionUUID->"073ca06c-fcc7-4937-8b19-56382b9ade29"],
Cell[291565, 6552, 121, 1, 37, "Input",ExpressionUUID->"a92927d5-53b8-4b6d-a42d-19bd1884ba38"],
Cell[CellGroupData[{
Cell[291711, 6557, 759, 23, 64, "Input",ExpressionUUID->"a7bde492-3cac-4de7-afaf-3b5af5f16900"],
Cell[292473, 6582, 12316, 225, 305, "Output",ExpressionUUID->"127dbe76-6c98-444c-8e6f-9d78561ee033"]
}, Open  ]],
Cell[CellGroupData[{
Cell[304826, 6812, 2021, 40, 64, "Input",ExpressionUUID->"fde50a46-1f48-4893-b910-24ce34035433"],
Cell[306850, 6854, 23388, 403, 299, "Output",ExpressionUUID->"c90f407e-fde0-4c27-b89a-bfed8e8de90d"]
}, Open  ]],
Cell[330253, 7260, 129, 3, 37, "Input",ExpressionUUID->"c3982f33-1892-4c8d-b417-e529d365cf3a"],
Cell[330385, 7265, 468, 14, 40, "Input",ExpressionUUID->"995c07a8-54f3-43fd-b687-2261b313ea42"],
Cell[CellGroupData[{
Cell[330878, 7283, 475, 7, 37, "Input",ExpressionUUID->"085a517a-11d8-4bb0-80d9-474e6017eeaf"],
Cell[331356, 7292, 52969, 1452, 2482, "Output",ExpressionUUID->"5780e7ba-405a-4713-8078-3e10f6e3dd93"]
}, Closed]],
Cell[CellGroupData[{
Cell[384362, 8749, 692, 19, 58, "Input",ExpressionUUID->"56cb246c-9554-4e6e-aa7e-c48c86c08cad"],
Cell[385057, 8770, 10888, 304, 459, "Output",ExpressionUUID->"2e59db0e-2acb-4600-9ff9-e9c22b0aae18"],
Cell[395948, 9076, 3074, 66, 300, "Output",ExpressionUUID->"e1ebc83f-071e-4488-98dc-e0dabf77a60e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[399059, 9147, 715, 19, 64, "Input",ExpressionUUID->"99b22d7f-2785-49a4-82b4-0a33e7dc4e1d"],
Cell[399777, 9168, 10683, 287, 433, "Output",ExpressionUUID->"c028bee5-9063-41db-aa13-05111c222478"],
Cell[410463, 9457, 3050, 66, 300, "Output",ExpressionUUID->"b5d3091a-6532-4291-b593-abbfd5bfed34"]
}, Open  ]]
}, Closed]]
}
]
*)