waveformRegularIntegrandTreeGen.nb

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    386115,       9121]
NotebookOptionsPosition[    366646,       8771]
NotebookOutlinePosition[    373534,       8923]
CellTagsIndexPosition[    373491,       8920]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8854566866793833`*^9, 3.8854566877128696`*^9}},
 CellLabel->"In[79]:=",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, 
   33381903753082724485, "M0"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.886853600434926*^9, 3.886996545226719*^9, 
  3.887109485946312*^9, 3.8871521022741213`*^9, 3.887190881675251*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"e747291d-ce30-43ca-976e-ac244a9dffb6"],

Cell[BoxData[
 TemplateBox[{
  "Needs", "nocont", 
   "\"Context \\!\\(\\*RowBox[{\\\"\\\\\\\"YoungSymm`\\\\\\\"\\\"}]\\) was \
not created when Needs was evaluated.\"", 2, 1, 2, 33381903753082724485, "M0"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.886853600434926*^9, 3.886996545226719*^9, 
  3.887109485946312*^9, 3.8871521022741213`*^9, 3.887190881726274*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"e2cf42e7-099a-4163-a0ea-704093e69cfe"]
}, 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[{"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]", "]"}]}]}], "}"}]}]}], 
    "}"}]}]}]}], "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}},
 CellLabel->
  "In[195]:=",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[5]:=",ExpressionUUID->"1015fcf9-cb8b-42f1-9050-236ff6dae640"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g0", "=", 
   RowBox[{"115", "/", "100"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.887153374091052*^9, 3.887153379038786*^9}, {
  3.887190908008596*^9, 3.8871909100774727`*^9}, {3.887191015966237*^9, 
  3.887191017591858*^9}, {3.8871910700491533`*^9, 3.887191072586027*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"a8441158-8bdb-4bf1-9463-f552de900124"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1", "=", 
   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.88719088907726*^9, 3.887190889791132*^9}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"2b392ee2-66b1-4c9d-be0b-e367b91b0ce8"],

Cell[BoxData[
 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"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.885627146401615*^9, 3.885627156985218*^9}, {
   3.8856272197028723`*^9, 3.8856272335607977`*^9}, {3.8856273710058117`*^9, 
   3.8856273746932373`*^9}, {3.885627419036437*^9, 3.8856274247542467`*^9}, {
   3.8856274559648438`*^9, 3.885627553801611*^9}, {3.885627644129107*^9, 
   3.885627693266281*^9}, {3.885631119900064*^9, 3.885631124076543*^9}, 
   3.8861102813813677`*^9, 3.8861111991195507`*^9, 3.886112650632861*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"f42a57ec-7541-4496-820c-54b267944a34"],

Cell[BoxData[{
 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[{"amp1", "=", 
   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.887152040966731*^9, 3.887152115518869*^9, {3.887153354348021*^9, 
   3.8871533611126947`*^9}},
 CellLabel->
  "In[199]:=",ExpressionUUID->"a1b1abed-ce94-4d67-a2d6-e40aa2d87771"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"amp1", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.88562795488384*^9, 3.885627955763845*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"97eae99d-cb42-4880-beca-5a9899e95ad2"],

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.8869965557498817`*^9, 
  3.887109501996189*^9, 3.887152119194642*^9, 3.88715339370125*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"62a1913b-a910-441c-9f64-21068dedb037"]
}, Open  ]],

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[212]:=",ExpressionUUID->"d4a57b35-7da2-4ff5-98ac-e7f5f3f7fed8"],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"129", " ", 
    SqrtBox["129"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "5474889"}], " ", "\[ImaginaryI]", " ", 
       SqrtBox["2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "129"}], " ", "\[ImaginaryI]"}], "+", 
         RowBox[{"46", " ", 
          SqrtBox["129"]}]}], ")"}], " ", 
       SuperscriptBox["zb", "5"]}], "+", 
      RowBox[{"33282", " ", 
       RowBox[{"(", 
        RowBox[{"122441", "+", 
         RowBox[{"30268", " ", "\[ImaginaryI]", " ", 
          SqrtBox["129"]}]}], ")"}], " ", 
       SuperscriptBox["zb", "4"], " ", "\[Omega]"}], "-", 
      RowBox[{"258", " ", "\[ImaginaryI]", " ", 
       SqrtBox["2"], " ", 
       SuperscriptBox["zb", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"42441", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "129"}], " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"46", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "60067689"}], " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"14824972", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
      RowBox[{"258", " ", 
       SuperscriptBox["zb", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"516", " ", 
          RowBox[{"(", 
           RowBox[{"40000", "+", 
            RowBox[{"7567", " ", "\[ImaginaryI]", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", "\[Omega]"}], "+", 
         RowBox[{"529", " ", 
          RowBox[{"(", 
           RowBox[{"545641", "+", 
            RowBox[{"48668", " ", "\[ImaginaryI]", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "3"]}]}], ")"}]}], "-", 
      RowBox[{"3", " ", "\[ImaginaryI]", " ", 
       SqrtBox["2"], " ", "zb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1824963", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "129"}], " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"46", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "4"]}], "+", 
         RowBox[{"86", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4215333"}], " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"10920400", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"529", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "53201363"}], " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"5913162", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "4"]}]}], ")"}]}], "+", 
      RowBox[{"1058", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1181511", " ", 
          SuperscriptBox["zv", "4"], " ", "\[Omega]"}], "+", 
         RowBox[{"129", " ", 
          RowBox[{"(", 
           RowBox[{"254359", "+", 
            RowBox[{"18400", " ", "\[ImaginaryI]", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", 
          SuperscriptBox["\[Omega]", "3"]}], "+", 
         RowBox[{"169280000", " ", 
          SuperscriptBox["\[Omega]", "5"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"8464000", " ", "\[Omega]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"129", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"129", " ", 
       SuperscriptBox["zv", "2"]}], "+", 
      RowBox[{"529", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"129", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"129", " ", 
       SuperscriptBox["zv", "2"]}], "-", 
      RowBox[{"129", " ", 
       SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
      RowBox[{"129", " ", 
       SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
      RowBox[{"529", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"129", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"129", " ", 
       SuperscriptBox["zv", "2"]}], "-", 
      RowBox[{"129", " ", 
       SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
      RowBox[{"129", " ", 
       SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
      RowBox[{"529", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.886853999083506*^9, 3.8868540143711653`*^9}, 
   3.886996556279704*^9, 3.887152138554224*^9, 3.887153417683271*^9, 
   3.887190924443878*^9, 3.887191029195822*^9, 3.8871910826277227`*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"7cd31b53-522a-4187-8835-d3dc35f504ff"]
}, 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[213]:=",ExpressionUUID->"9d7bfe09-a1ab-41d5-9410-84bb0603ff02"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"List", "@@@", 
     RowBox[{"(", 
      RowBox[{"Denominator", "/@", "amp1list"}], ")"}]}], ")"}], "//", 
   "Flatten"}], "//", "Union"}]], "Input",
 CellChangeTimes->{{3.8871527589078007`*^9, 3.887152767164247*^9}, {
  3.887152921643345*^9, 3.8871529474298887`*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"04ad779f-3902-438f-94d4-73881ada8c09"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "5", ",", "10", ",", "20", ",", "500", ",", "1000", ",", "2000", ",", 
   "2750", ",", "30250", ",", 
   SqrtBox["2"], ",", "\[Omega]", ",", 
   RowBox[{
    RowBox[{"21", " ", 
     SuperscriptBox["zb", "2"]}], "+", 
    RowBox[{"21", " ", 
     SuperscriptBox["zv", "2"]}], "+", 
    RowBox[{"121", " ", 
     SuperscriptBox["\[Omega]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"42", " ", 
     SuperscriptBox["zv", "2"]}], "+", 
    RowBox[{"121", " ", 
     SuperscriptBox["\[Omega]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"21", " ", 
     SuperscriptBox["zb", "2"]}], "+", 
    RowBox[{"21", " ", 
     SuperscriptBox["zv", "2"]}], "-", 
    RowBox[{"21", " ", 
     SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
    RowBox[{"21", " ", 
     SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
    RowBox[{"121", " ", 
     SuperscriptBox["\[Omega]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"21", " ", 
     SuperscriptBox["zb", "2"]}], "+", 
    RowBox[{"21", " ", 
     SuperscriptBox["zv", "2"]}], "-", 
    RowBox[{"21", " ", 
     SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
    RowBox[{"21", " ", 
     SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
    RowBox[{"121", " ", 
     SuperscriptBox["\[Omega]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.887152153248815*^9, {3.887152763275494*^9, 3.887152768666563*^9}, 
   3.887152811532963*^9, {3.887152937487754*^9, 3.8871529487505302`*^9}, 
   3.887153427767476*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"5890ea7b-bc3a-4451-8912-bdb359bb07d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["zb", "2"]}], "-", 
     SuperscriptBox["zv", "2"], "+", 
     RowBox[{
      SuperscriptBox["zb", "2"], " ", 
      SuperscriptBox["\[Gamma]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["zv", "2"], " ", 
      SuperscriptBox["\[Gamma]", "2"]}], "+", 
     RowBox[{
      SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
     RowBox[{
      SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "-", 
     RowBox[{
      SqrtBox["2"], " ", "zb", " ", 
      SuperscriptBox["\[Gamma]", "2"], " ", "\[Omega]"}], "+", 
     RowBox[{
      SqrtBox["2"], " ", "zv", " ", 
      SuperscriptBox["\[Gamma]", "2"], " ", "\[Omega]"}], "+", 
     RowBox[{
      SuperscriptBox["\[Gamma]", "2"], " ", 
      SuperscriptBox["\[Omega]", "2"]}]}], ")"}], "/.", 
   RowBox[{"zb", "->", 
    RowBox[{"zb", "+", 
     RowBox[{
      FractionBox[
       SqrtBox["2"], "2"], "\[Omega]"}]}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{
  3.887152330268744*^9, {3.887152361708269*^9, 3.88715236303974*^9}, {
   3.887152410524351*^9, 3.88715241309307*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"5103817c-dd6d-4546-bc94-4e5d6c625bb7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["zb", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["zv", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], "+", 
  RowBox[{
   SqrtBox["2"], " ", "zv", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Omega]"}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
   SuperscriptBox["\[Omega]", "2"]}]}]], "Output",
 CellChangeTimes->{3.8871523634618053`*^9, 3.8871524545013123`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"19fd40c6-e820-43e9-830a-7714919ac7fb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1list", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"amp1list", "/.", 
      RowBox[{
       RowBox[{"Times", "[", 
        RowBox[{"f__", ",", 
         RowBox[{"Power", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"258", " ", 
              SuperscriptBox["zb", "2"]}], "+", 
             RowBox[{"258", " ", 
              SuperscriptBox["zv", "2"]}], "+", 
             RowBox[{"258", " ", 
              SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
             RowBox[{"929", " ", 
              SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"I", " ", 
             FractionBox[
              SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
           RowBox[{"Times", "[", 
            RowBox[{"f", ",", 
             RowBox[{"Power", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"258", " ", 
                  SuperscriptBox["zb", "2"]}], "+", 
                 RowBox[{"258", " ", 
                  SuperscriptBox["zv", "2"]}], "+", 
                 RowBox[{"258", " ", 
                  SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
                 RowBox[{"929", " ", 
                  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[{"129", " ", 
             SuperscriptBox["zb", "2"]}], "+", 
            RowBox[{"129", " ", 
             SuperscriptBox["zv", "2"]}], "-", 
            RowBox[{"129", " ", 
             SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
            RowBox[{"129", " ", 
             SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
            RowBox[{"529", " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
          RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"I", " ", 
            FractionBox[
             SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
          RowBox[{"Times", "[", 
           RowBox[{"f", ",", 
            RowBox[{"Power", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"129", " ", 
                 SuperscriptBox["zb", "2"]}], "+", 
                RowBox[{"129", " ", 
                 SuperscriptBox["zv", "2"]}], "-", 
                RowBox[{"129", " ", 
                 SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
                RowBox[{"129", " ", 
                 SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
                RowBox[{"529", " ", 
                 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[{"129", " ", 
            SuperscriptBox["zb", "2"]}], "+", 
           RowBox[{"129", " ", 
            SuperscriptBox["zv", "2"]}], "-", 
           RowBox[{"129", " ", 
            SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
           RowBox[{"129", " ", 
            SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
           RowBox[{"529", " ", 
            SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
         RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"I", " ", 
           FractionBox[
            SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
         RowBox[{"Times", "[", 
          RowBox[{"f", ",", 
           RowBox[{"Power", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"129", " ", 
                SuperscriptBox["zb", "2"]}], "+", 
               RowBox[{"129", " ", 
                SuperscriptBox["zv", "2"]}], "-", 
               RowBox[{"129", " ", 
                SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
               RowBox[{"129", " ", 
                SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
               RowBox[{"529", " ", 
                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.887152474653922*^9, 3.8871524955057917`*^9}, {
   3.887152597302891*^9, 3.887152599788829*^9}, 3.8871530155953007`*^9, {
   3.887153054544676*^9, 3.887153075611128*^9}, {3.8871534515311527`*^9, 
   3.887153479453705*^9}, {3.887191168288082*^9, 3.887191192373857*^9}, {
   3.887191255493207*^9, 3.887191302655217*^9}, {3.887191451531561*^9, 
   3.887191471625321*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"9bc15df4-cf0c-4357-b617-32d650bc8599"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["zb", "2"]}], "-", 
      SuperscriptBox["zv", "2"], "+", 
      RowBox[{
       SuperscriptBox["zb", "2"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["zv", "2"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "+", 
      RowBox[{
       SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
      RowBox[{
       SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "-", 
      RowBox[{
       SqrtBox["2"], " ", "zb", " ", 
       SuperscriptBox["\[Gamma]", "2"], " ", "\[Omega]"}], "+", 
      RowBox[{
       SqrtBox["2"], " ", "zv", " ", 
       SuperscriptBox["\[Gamma]", "2"], " ", "\[Omega]"}], "+", 
      RowBox[{
       SuperscriptBox["\[Gamma]", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}], "*", "400"}], "/.", 
   RowBox[{"\[Gamma]", "->", "g0"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{3.887191232694087*^9},
 CellLabel->"In[75]:=",ExpressionUUID->"aa10d88d-c07c-4d27-86e1-266e54f6f286"],

Cell[BoxData[
 RowBox[{
  RowBox[{"129", " ", 
   SuperscriptBox["zb", "2"]}], "+", 
  RowBox[{"129", " ", 
   SuperscriptBox["zv", "2"]}], "-", 
  RowBox[{"129", " ", 
   SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
  RowBox[{"129", " ", 
   SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
  RowBox[{"529", " ", 
   SuperscriptBox["\[Omega]", "2"]}]}]], "Output",
 CellChangeTimes->{3.887191121401873*^9, 3.8871912331155977`*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"274ac527-78b7-407e-8f4c-d63a5468a6d4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"amp1list000", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Assuming", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"zv", ">", "0"}], "&"}], "\[Omega]"}], ">", "0"}], ",", 
          RowBox[{"Integrate", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"amp1list", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], " ", 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", "I"}], " ", "zb"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"zb", ",", 
              RowBox[{"-", "\[Infinity]"}], ",", 
              RowBox[{"+", "\[Infinity]"}]}], "}"}]}], "]"}]}], "]"}], "//", 
        "PowerExpand"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", 
         RowBox[{"Length", "@", "amp1list"}]}], "}"}]}], "]"}]}], ";"}], ",", 
   "ii"}], "]"}]], "Input",
 CellChangeTimes->{{3.8871941785364122`*^9, 3.887194206968574*^9}, {
  3.887195420872493*^9, 3.887195473875083*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"c6bab9ac-1dd6-4186-bbbe-42225a3e208e"],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"amp1list0", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       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", "->", "1"}]}], "/.", 
         RowBox[{"\[Omega]", "->", 
          RowBox[{"-", "\[Omega]"}]}]}], "//", "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}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"20555039-7473-4c91-95e2-9bccd7b7e624"],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"amp1list00", "=", 
     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.8871929170870934`*^9, 3.887192926658845*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"383bd1ff-283a-45c3-a488-bebb7ce56a18"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"amp1list", "[", 
  RowBox[{"[", "13", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.887155915086562*^9, 3.887155915688776*^9}, {
  3.8871931915970383`*^9, 3.887193197552619*^9}, {3.88719325655044*^9, 
  3.887193272204632*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"f60d3c2e-6830-4f2c-a17b-679081f34925"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"382743", " ", "\[ImaginaryI]", " ", 
    SuperscriptBox["\[ExponentialE]", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], 
      SqrtBox["2"]]], " ", "zv", " ", "\[Omega]"}], 
   RowBox[{"5", " ", 
    SqrtBox["2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"258", " ", 
       SuperscriptBox["zv", "2"]}], "+", 
      RowBox[{"529", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"258", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"258", " ", 
       SuperscriptBox["zv", "2"]}], "-", 
      RowBox[{"258", " ", 
       SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
      RowBox[{"929", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.887155916277614*^9, {3.8871931924645042`*^9, 3.8871931979664803`*^9}, {
   3.887193257175777*^9, 3.8871932726356287`*^9}},
 CellLabel->
  "Out[178]=",ExpressionUUID->"be29427b-4bdf-4ea7-81bb-822a07d756fe"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp10PP0", "=", 
   RowBox[{"amp1list00", "//", "Total"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.887193603083625*^9, 3.887193605785735*^9}},
 CellLabel->
  "In[217]:=",ExpressionUUID->"9105c728-9d5f-40f1-8a12-e7fca2f08922"],

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

Cell[BoxData[
 RowBox[{
  RowBox[{"amp10PP00", "=", 
   RowBox[{"amp1list000", "//", "Total"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.887196151703723*^9, 3.88719616299408*^9}},
 CellLabel->
  "In[225]:=",ExpressionUUID->"1fa8e34a-033f-4746-98e9-dba82aeab315"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"amp10PP00", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.887196199879119*^9, 3.887196222251896*^9}, {
  3.887196374520528*^9, 3.887196376811516*^9}},
 CellLabel->
  "In[236]:=",ExpressionUUID->"23afa2bc-7d2e-48ed-8150-add5b456ae89"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SqrtBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "258"}], " ", 
      SuperscriptBox["zv", "2"]}], "-", 
     RowBox[{"258", " ", 
      SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "-", 
     RowBox[{"929", " ", 
      SuperscriptBox["\[Omega]", "2"]}]}]], "\[NotEqual]", "0"}], "&&", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "258"}], " ", 
           SuperscriptBox["zv", "2"]}], "-", 
          RowBox[{"258", " ", 
           SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "-", 
          RowBox[{"929", " ", 
           SuperscriptBox["\[Omega]", "2"]}]}]], "]"}], "\[LessEqual]", "0"}],
       "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"929", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"258", " ", 
           RowBox[{"Re", "[", 
            RowBox[{"zv", " ", 
             RowBox[{"(", 
              RowBox[{"zv", "+", 
               RowBox[{
                SqrtBox["2"], " ", "\[Omega]"}]}], ")"}]}], "]"}]}]}], ">", 
         "0"}], "||", 
        RowBox[{
         RowBox[{"zv", " ", 
          RowBox[{"(", 
           RowBox[{"zv", "+", 
            RowBox[{
             SqrtBox["2"], " ", "\[Omega]"}]}], ")"}]}], "\[NotElement]", 
         TemplateBox[{},
          "Reals"]}]}], ")"}]}], ")"}], "||", 
    RowBox[{
     SqrtBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "258"}], " ", 
        SuperscriptBox["zv", "2"]}], "-", 
       RowBox[{"258", " ", 
        SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "-", 
       RowBox[{"929", " ", 
        SuperscriptBox["\[Omega]", "2"]}]}]], "\[NotElement]", 
     TemplateBox[{},
      "Reals"]}]}], ")"}], "&&", 
  RowBox[{
   SqrtBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "258"}], " ", 
      SuperscriptBox["zv", "2"]}], "+", 
     RowBox[{"258", " ", 
      SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "-", 
     RowBox[{"929", " ", 
      SuperscriptBox["\[Omega]", "2"]}]}]], "\[NotEqual]", "0"}], "&&", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "258"}], " ", 
           SuperscriptBox["zv", "2"]}], "+", 
          RowBox[{"258", " ", 
           SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "-", 
          RowBox[{"929", " ", 
           SuperscriptBox["\[Omega]", "2"]}]}]], "]"}], "\[LessEqual]", "0"}],
       "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"929", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"258", " ", 
           RowBox[{"Re", "[", 
            RowBox[{"zv", " ", 
             RowBox[{"(", 
              RowBox[{"zv", "-", 
               RowBox[{
                SqrtBox["2"], " ", "\[Omega]"}]}], ")"}]}], "]"}]}]}], ">", 
         "0"}], "||", 
        RowBox[{
         RowBox[{"zv", " ", 
          RowBox[{"(", 
           RowBox[{"zv", "-", 
            RowBox[{
             SqrtBox["2"], " ", "\[Omega]"}]}], ")"}]}], "\[NotElement]", 
         TemplateBox[{},
          "Reals"]}]}], ")"}]}], ")"}], "||", 
    RowBox[{
     SqrtBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "258"}], " ", 
        SuperscriptBox["zv", "2"]}], "+", 
       RowBox[{"258", " ", 
        SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "-", 
       RowBox[{"929", " ", 
        SuperscriptBox["\[Omega]", "2"]}]}]], "\[NotElement]", 
     TemplateBox[{},
      "Reals"]}]}], ")"}], "&&", 
  RowBox[{
   RowBox[{"Im", "[", 
    SqrtBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "129"}], " ", 
       SuperscriptBox["zv", "2"]}], "-", 
      RowBox[{"529", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}]], "]"}], ">", "0"}]}]], "Output",
 CellChangeTimes->{
  3.8871961682422543`*^9, 3.8871962009012136`*^9, {3.887196363279739*^9, 
   3.8871963772844763`*^9}},
 CellLabel->
  "Out[236]=",ExpressionUUID->"ac50b41b-62d7-4cc7-bc1a-b9c9af99ab6d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"amp10PP", "/.", 
    RowBox[{"\[Omega]", "->", "3.5"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"zv", ",", "0.01", ",", "\[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.887155987512309*^9, 
   3.887155988299501*^9}, 3.88719157365766*^9, {3.887192689828755*^9, 
   3.887192689996703*^9}, 3.887196431525003*^9},
 CellLabel->
  "In[239]:=",ExpressionUUID->"f2464365-1cb9-4a49-b502-5a47af192a3a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.0002112566593531937`"}], "+", 
  RowBox[{"0.0008288542768713335`", " ", "\[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.887155929983161*^9, 3.8871559458045053`*^9}, 
   3.887155994223877*^9, {3.887191569088756*^9, 3.8871915742137127`*^9}, 
   3.887193620512279*^9, 3.887193919756878*^9, 3.887196432145441*^9},
 CellLabel->
  "Out[239]=",ExpressionUUID->"269deae7-ae78-4293-8bb1-d3f9e1313b3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"amp10PP00", "/.", 
    RowBox[{"\[Omega]", "->", "3.5"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"zv", ",", "0.01", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{3.8871962257681723`*^9, 3.887196425148335*^9},
 CellLabel->
  "In[237]:=",ExpressionUUID->"a9e241dc-755b-4e72-a203-c59e2c19e6eb"],

Cell[BoxData[
 RowBox[{"0.0002524466246996071`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.0005333834490922654`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.887196226561932*^9, 3.887196425929131*^9},
 CellLabel->
  "Out[237]=",ExpressionUUID->"76376292-d23d-4aeb-abaa-a1b7e7d667e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"amp10PP0", "/.", 
    RowBox[{"\[Omega]", "->", "3.5"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"zv", ",", "0.01", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{3.8871936263405457`*^9, 3.887196428517767*^9},
 CellLabel->
  "In[238]:=",ExpressionUUID->"4f57d07c-0f01-41e3-8361-f26d3fc744be"],

Cell[BoxData[
 RowBox[{"0.00025244662469960685`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.0005333834490922651`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.887193617557438*^9, 3.887193627213866*^9}, 
   3.887193921708971*^9, 3.887196429104692*^9},
 CellLabel->
  "Out[238]=",ExpressionUUID->"3b2aff2e-ea9c-4635-9ac9-8c0d040caab7"]
}, 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]", "->", "3.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.887153667454431*^9, 
   3.887191576844472*^9, {3.887192661449813*^9, 3.887192667555738*^9}, 
   3.887193694655786*^9, {3.887196282927936*^9, 3.887196308144773*^9}},
 CellLabel->
  "In[233]:=",ExpressionUUID->"3ae1ba03-e859-4b65-a8ff-51b6a674d0c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.0002027101806110626`"}], "+", 
  RowBox[{"0.00083634894587023`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.886895494063733*^9, 3.886895524190032*^9, {3.886895897862954*^9, 
   3.88689596583808*^9}, 3.88689627884641*^9, 3.886896625184422*^9, 
   3.8869966229411592`*^9, 3.887109677567225*^9, 3.887109810703342*^9, 
   3.8871099995797367`*^9, {3.887110065761222*^9, 3.887110088761674*^9}, 
   3.887110155230659*^9, 3.887191596162879*^9, 3.88719364875701*^9, 
   3.887193711861322*^9, 3.887193943357389*^9, 3.8871962534977922`*^9, {
   3.8871962993630323`*^9, 3.8871963257758102`*^9}},
 CellLabel->
  "Out[234]=",ExpressionUUID->"ab369af7-b8cc-4a66-a539-a7892246e29c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  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]", "]"}]}]}], "}"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Phi]", "->", 
     RowBox[{"Pi", "/", "2"}]}], ",", 
    RowBox[{"\[Theta]", "->", 
     RowBox[{"Pi", "/", "4"}]}], ",", 
    RowBox[{"b", "->", "1"}], ",", 
    RowBox[{"\[Gamma]", "->", "g0"}]}], 
   RowBox[{"(*", 
    RowBox[{"\[Omega]", "->", "3"}], "*)"}], "}"}]}]], "Input",
 CellChangeTimes->{3.887192355298211*^9},
 CellLabel->
  "In[168]:=",ExpressionUUID->"fb7049a2-217f-4af0-8440-7fdd63d6c135"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"-", "\[ImaginaryI]"}], ",", 
   FractionBox["1", 
    SqrtBox["2"]], ",", 
   RowBox[{"-", 
    FractionBox["1", 
     SqrtBox["2"]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8871923558771467`*^9},
 CellLabel->
  "Out[168]=",ExpressionUUID->"000a643a-11b9-4f07-8fd7-1e0a12193d99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  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]", "]"}]}]}], "}"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Phi]", "->", 
     RowBox[{"Pi", "/", "2"}]}], ",", 
    RowBox[{"\[Theta]", "->", 
     RowBox[{"Pi", "/", "4"}]}], ",", 
    RowBox[{"b", "->", "1"}], ",", 
    RowBox[{"\[Gamma]", "->", "g0"}]}], 
   RowBox[{"(*", 
    RowBox[{"\[Omega]", "->", "3"}], "*)"}], "}"}]}]], "Input",
 CellChangeTimes->{3.88719232558076*^9},
 CellLabel->
  "In[167]:=",ExpressionUUID->"4086e78b-8eb4-49f2-bd33-5359f004af62"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "\[ImaginaryI]", ",", 
   FractionBox["1", 
    SqrtBox["2"]], ",", 
   RowBox[{"-", 
    FractionBox["1", 
     SqrtBox["2"]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.887192326632247*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"35210953-4408-4f68-b917-7f66ab7bf958"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["g0"], "Input",
 CellLabel->
  "In[169]:=",ExpressionUUID->"a38dbb73-81c5-484e-9731-a3bed1fc93e9"],

Cell[BoxData[
 FractionBox["23", "20"]], "Output",
 CellChangeTimes->{3.887192389288865*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"a8ab0e6f-2552-4b8f-8e5b-70209c4d2508"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Minus Polarisation", "Section",
 CellChangeTimes->{{3.8868951646061487`*^9, 3.886895191553602*^9}, {
  3.886897101313171*^9, 
  3.8868971040555477`*^9}},ExpressionUUID->"7f95ec8a-5385-44d0-9044-\
d6290a6aab47"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "parametrise", "]"}], "\[IndentingNewLine]", 
 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]", "]"}]}]}], "}"}]}]}], 
    "}"}]}]}]}], "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}},
 CellLabel->"In[92]:=",ExpressionUUID->"2a70aeb6-d973-43a4-8055-187c3c3b0a74"],

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[65]:=",ExpressionUUID->"2fc64c08-dd85-499b-b909-06d6c8fc1758"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1", "=", 
   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}},
 CellLabel->"In[94]:=",ExpressionUUID->"13e7dd0d-ac57-43bb-b094-6f8e28398af7"],

Cell[BoxData[
 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"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.885627146401615*^9, 3.885627156985218*^9}, {
   3.8856272197028723`*^9, 3.8856272335607977`*^9}, {3.8856273710058117`*^9, 
   3.8856273746932373`*^9}, {3.885627419036437*^9, 3.8856274247542467`*^9}, {
   3.8856274559648438`*^9, 3.885627553801611*^9}, {3.885627644129107*^9, 
   3.885627693266281*^9}, {3.885631119900064*^9, 3.885631124076543*^9}, 
   3.8861102813813677`*^9, 3.8861111991195507`*^9, 3.886112650632861*^9},
 CellLabel->"In[67]:=",ExpressionUUID->"dd2a4914-c085-4e0f-9a77-df1e84760919"],

Cell[BoxData[{
 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[{"amp1", "=", 
   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},
 CellLabel->"In[95]:=",ExpressionUUID->"a6695ef6-54d9-42f3-a723-e6b0a095760e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"amp1", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.88562795488384*^9, 3.885627955763845*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"fed505b6-6ade-4db4-bd32-3c0554412c2b"],

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},
 CellLabel->"Out[81]=",ExpressionUUID->"67c3ed76-25e7-40fd-807a-412581391b6d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["amp1"], "Input",
 CellLabel->"In[82]:=",ExpressionUUID->"55616c20-56f6-461f-933b-a5d0d960f460"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SqrtBox["3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SqrtBox["3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"8", " ", "\[ImaginaryI]", " ", 
           SqrtBox["3"], " ", 
           SuperscriptBox["\[Omega]", "3"]}], "-", 
          RowBox[{"16", " ", 
           SuperscriptBox["\[Omega]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["zb", 
               SqrtBox["2"]]}], "+", 
             FractionBox["zv", 
              SqrtBox["2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
              SqrtBox["3"]]}], ")"}]}], "-", 
          RowBox[{"8", " ", "\[Omega]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[Omega]", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox["zb", 
                 SqrtBox["2"]], "-", 
                FractionBox["zv", 
                 SqrtBox["2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
                 SqrtBox["3"]]}], ")"}]}], "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox["3"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"zb", " ", "\[Omega]"}], 
                 SqrtBox["2"]], "+", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}]}], ")"}]}], "-", 
          RowBox[{"4", " ", "\[ImaginaryI]", " ", 
           SqrtBox["3"], " ", "\[Omega]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{"zb", " ", "\[Omega]"}], 
                  SqrtBox["2"]]}], "-", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["zb", "2"]}], "-", 
                SuperscriptBox["zv", "2"], "-", 
                FractionBox[
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"8", " ", "\[Omega]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["zb", "2"]}], "-", 
          SuperscriptBox["zv", "2"], "-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["zb", "2"]}], "-", 
          SuperscriptBox["zv", "2"], "-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "3"], "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"zb", " ", "\[Omega]"}], 
               SqrtBox["2"]]}], "-", 
             FractionBox[
              RowBox[{"zv", " ", "\[Omega]"}], 
              SqrtBox["2"]]}], ")"}]}]}], ")"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"7", " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["\[Omega]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox["zb", 
                SqrtBox["2"]]}], "+", 
              FractionBox["zv", 
               SqrtBox["2"]], "+", 
              FractionBox[
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
               SqrtBox["3"]]}], ")"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Omega]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[Omega]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox["zb", 
                  SqrtBox["2"]], "-", 
                 FractionBox["zv", 
                  SqrtBox["2"]], "-", 
                 FractionBox[
                  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
                  SqrtBox["3"]]}], ")"}]}], "-", 
              RowBox[{"\[ImaginaryI]", " ", 
               SqrtBox["3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"zb", " ", "\[Omega]"}], 
                  SqrtBox["2"]], "+", 
                 FractionBox[
                  RowBox[{"zv", " ", "\[Omega]"}], 
                  SqrtBox["2"]]}], ")"}]}]}], ")"}], "2"]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"], " ", 
           SuperscriptBox["\[Omega]", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["zb", 
               SqrtBox["2"]]}], "+", 
             FractionBox["zv", 
              SqrtBox["2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
              SqrtBox["3"]]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{"zb", " ", "\[Omega]"}], 
                  SqrtBox["2"]]}], "-", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["zb", "2"]}], "-", 
                SuperscriptBox["zv", "2"], "-", 
                FractionBox[
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}]}]}], 
            ")"}]}], "+", 
          RowBox[{
           FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
           SqrtBox["3"], " ", 
           SuperscriptBox["\[Omega]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[Omega]", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox["zb", 
                 SqrtBox["2"]], "-", 
                FractionBox["zv", 
                 SqrtBox["2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
                 SqrtBox["3"]]}], ")"}]}], "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox["3"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"zb", " ", "\[Omega]"}], 
                 SqrtBox["2"]], "+", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{"zb", " ", "\[Omega]"}], 
                  SqrtBox["2"]]}], "-", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["zb", "2"]}], "-", 
                SuperscriptBox["zv", "2"], "-", 
                FractionBox[
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"16", " ", 
        SuperscriptBox["\[Omega]", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["zb", "2"]}], "-", 
          SuperscriptBox["zv", "2"], "-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["zb", "2"]}], "-", 
          SuperscriptBox["zv", "2"], "-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "3"], "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"zb", " ", "\[Omega]"}], 
               SqrtBox["2"]]}], "-", 
             FractionBox[
              RowBox[{"zv", " ", "\[Omega]"}], 
              SqrtBox["2"]]}], ")"}]}]}], ")"}]}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{
   SqrtBox["3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SqrtBox["3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"8", " ", "\[ImaginaryI]", " ", 
           SqrtBox["3"], " ", 
           SuperscriptBox["\[Omega]", "3"]}], "-", 
          RowBox[{"16", " ", 
           SuperscriptBox["\[Omega]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["zb", 
               SqrtBox["2"]]}], "-", 
             FractionBox["zv", 
              SqrtBox["2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
              SqrtBox["3"]]}], ")"}]}], "-", 
          RowBox[{"8", " ", "\[Omega]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[Omega]", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox["zb", 
                 SqrtBox["2"]], "+", 
                FractionBox["zv", 
                 SqrtBox["2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
                 SqrtBox["3"]]}], ")"}]}], "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox["3"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"zb", " ", "\[Omega]"}], 
                 SqrtBox["2"]], "-", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}]}], ")"}]}], "-", 
          RowBox[{"4", " ", "\[ImaginaryI]", " ", 
           SqrtBox["3"], " ", "\[Omega]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{"zb", " ", "\[Omega]"}], 
                  SqrtBox["2"]]}], "+", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["zb", "2"]}], "-", 
                SuperscriptBox["zv", "2"], "-", 
                FractionBox[
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"8", " ", "\[Omega]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["zb", "2"]}], "-", 
          SuperscriptBox["zv", "2"], "-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["zb", "2"]}], "-", 
          SuperscriptBox["zv", "2"], "-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "3"], "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"zb", " ", "\[Omega]"}], 
               SqrtBox["2"]]}], "+", 
             FractionBox[
              RowBox[{"zv", " ", "\[Omega]"}], 
              SqrtBox["2"]]}], ")"}]}]}], ")"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"7", " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["\[Omega]", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox["zb", 
                SqrtBox["2"]]}], "-", 
              FractionBox["zv", 
               SqrtBox["2"]], "+", 
              FractionBox[
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
               SqrtBox["3"]]}], ")"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Omega]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[Omega]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox["zb", 
                  SqrtBox["2"]], "+", 
                 FractionBox["zv", 
                  SqrtBox["2"]], "-", 
                 FractionBox[
                  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
                  SqrtBox["3"]]}], ")"}]}], "-", 
              RowBox[{"\[ImaginaryI]", " ", 
               SqrtBox["3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"zb", " ", "\[Omega]"}], 
                  SqrtBox["2"]], "-", 
                 FractionBox[
                  RowBox[{"zv", " ", "\[Omega]"}], 
                  SqrtBox["2"]]}], ")"}]}]}], ")"}], "2"]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"], " ", 
           SuperscriptBox["\[Omega]", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["zb", 
               SqrtBox["2"]]}], "-", 
             FractionBox["zv", 
              SqrtBox["2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
              SqrtBox["3"]]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{"zb", " ", "\[Omega]"}], 
                  SqrtBox["2"]]}], "+", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["zb", "2"]}], "-", 
                SuperscriptBox["zv", "2"], "-", 
                FractionBox[
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}]}]}], 
            ")"}]}], "+", 
          RowBox[{
           FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
           SqrtBox["3"], " ", 
           SuperscriptBox["\[Omega]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[Omega]", " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox["zb", 
                 SqrtBox["2"]], "+", 
                FractionBox["zv", 
                 SqrtBox["2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
                 SqrtBox["3"]]}], ")"}]}], "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox["3"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"zb", " ", "\[Omega]"}], 
                 SqrtBox["2"]], "-", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{"zb", " ", "\[Omega]"}], 
                  SqrtBox["2"]]}], "+", 
                FractionBox[
                 RowBox[{"zv", " ", "\[Omega]"}], 
                 SqrtBox["2"]]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["zb", "2"]}], "-", 
                SuperscriptBox["zv", "2"], "-", 
                FractionBox[
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"16", " ", 
        SuperscriptBox["\[Omega]", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["zb", "2"]}], "-", 
          SuperscriptBox["zv", "2"], "-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["zb", "2"]}], "-", 
          SuperscriptBox["zv", "2"], "-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "3"], "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"zb", " ", "\[Omega]"}], 
               SqrtBox["2"]]}], "+", 
             FractionBox[
              RowBox[{"zv", " ", "\[Omega]"}], 
              SqrtBox["2"]]}], ")"}]}]}], ")"}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.8868536346797247`*^9, 3.886853720990095*^9, 
  3.8868951172395372`*^9, 3.8868973594667997`*^9, 3.887110579663457*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"7847a233-20c2-490f-8e10-e54e16949e68"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Continue", "Subsection",
 CellChangeTimes->{{3.886163682445346*^9, 
  3.886163687179957*^9}},ExpressionUUID->"5d75bbb3-62d6-4a4e-8dba-\
0f895b57e805"],

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[108]:=",ExpressionUUID->"41036352-f324-4df3-a9c2-28f0d4920697"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"amp1", "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8868540124983587`*^9, 3.886854013865697*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"4277d234-4637-4a57-b078-7db8b4ba671e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"129", " ", 
    SqrtBox["129"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5474889", " ", "\[ImaginaryI]", " ", 
       SqrtBox["2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"129", " ", "\[ImaginaryI]"}], "+", 
         RowBox[{"46", " ", 
          SqrtBox["129"]}]}], ")"}], " ", 
       SuperscriptBox["zb", "5"]}], "+", 
      RowBox[{"33282", " ", 
       RowBox[{"(", 
        RowBox[{"122441", "-", 
         RowBox[{"30268", " ", "\[ImaginaryI]", " ", 
          SqrtBox["129"]}]}], ")"}], " ", 
       SuperscriptBox["zb", "4"], " ", "\[Omega]"}], "+", 
      RowBox[{"258", " ", "\[ImaginaryI]", " ", 
       SqrtBox["2"], " ", 
       SuperscriptBox["zb", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"42441", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"129", " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"46", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"60067689", " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"14824972", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "+", 
      RowBox[{"258", " ", 
       SuperscriptBox["zb", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"516", " ", 
          RowBox[{"(", 
           RowBox[{"40000", "-", 
            RowBox[{"7567", " ", "\[ImaginaryI]", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", "\[Omega]"}], "+", 
         RowBox[{"529", " ", 
          RowBox[{"(", 
           RowBox[{"545641", "-", 
            RowBox[{"48668", " ", "\[ImaginaryI]", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "3"]}]}], ")"}]}], "+", 
      RowBox[{"3", " ", "\[ImaginaryI]", " ", 
       SqrtBox["2"], " ", "zb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1824963", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"129", " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"46", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "4"]}], "+", 
         RowBox[{"86", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4215333", " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"10920400", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"529", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"53201363", " ", "\[ImaginaryI]"}], "+", 
            RowBox[{"5913162", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["\[Omega]", "4"]}]}], ")"}]}], "+", 
      RowBox[{"1058", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1181511", " ", 
          SuperscriptBox["zv", "4"], " ", "\[Omega]"}], "+", 
         RowBox[{"129", " ", 
          RowBox[{"(", 
           RowBox[{"254359", "-", 
            RowBox[{"18400", " ", "\[ImaginaryI]", " ", 
             SqrtBox["129"]}]}], ")"}], " ", 
          SuperscriptBox["zv", "2"], " ", 
          SuperscriptBox["\[Omega]", "3"]}], "+", 
         RowBox[{"169280000", " ", 
          SuperscriptBox["\[Omega]", "5"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"8464000", " ", "\[Omega]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"129", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"129", " ", 
       SuperscriptBox["zv", "2"]}], "+", 
      RowBox[{"529", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"129", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"129", " ", 
       SuperscriptBox["zv", "2"]}], "-", 
      RowBox[{"129", " ", 
       SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
      RowBox[{"129", " ", 
       SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
      RowBox[{"529", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"129", " ", 
       SuperscriptBox["zb", "2"]}], "+", 
      RowBox[{"129", " ", 
       SuperscriptBox["zv", "2"]}], "-", 
      RowBox[{"129", " ", 
       SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
      RowBox[{"129", " ", 
       SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
      RowBox[{"529", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.886853999083506*^9, 3.8868540143711653`*^9}, 
   3.8868973751404867`*^9, 3.8871105799409122`*^9, 3.887191706538385*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"c44439b4-c30c-4eaf-ac15-2e02b0ce759e"]
}, 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[110]:=",ExpressionUUID->"65a5c004-38a4-4673-9a12-8d4f2c07f965"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1list", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"amp1list", "/.", 
      RowBox[{
       RowBox[{"Times", "[", 
        RowBox[{"f__", ",", 
         RowBox[{"Power", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"258", " ", 
              SuperscriptBox["zb", "2"]}], "+", 
             RowBox[{"258", " ", 
              SuperscriptBox["zv", "2"]}], "+", 
             RowBox[{"258", " ", 
              SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
             RowBox[{"929", " ", 
              SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"I", " ", 
             FractionBox[
              SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
           RowBox[{"Times", "[", 
            RowBox[{"f", ",", 
             RowBox[{"Power", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"258", " ", 
                  SuperscriptBox["zb", "2"]}], "+", 
                 RowBox[{"258", " ", 
                  SuperscriptBox["zv", "2"]}], "+", 
                 RowBox[{"258", " ", 
                  SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
                 RowBox[{"929", " ", 
                  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[{"129", " ", 
             SuperscriptBox["zb", "2"]}], "+", 
            RowBox[{"129", " ", 
             SuperscriptBox["zv", "2"]}], "-", 
            RowBox[{"129", " ", 
             SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
            RowBox[{"129", " ", 
             SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
            RowBox[{"529", " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
          RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"I", " ", 
            FractionBox[
             SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
          RowBox[{"Times", "[", 
           RowBox[{"f", ",", 
            RowBox[{"Power", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"129", " ", 
                 SuperscriptBox["zb", "2"]}], "+", 
                RowBox[{"129", " ", 
                 SuperscriptBox["zv", "2"]}], "-", 
                RowBox[{"129", " ", 
                 SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "+", 
                RowBox[{"129", " ", 
                 SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
                RowBox[{"529", " ", 
                 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[{"129", " ", 
            SuperscriptBox["zb", "2"]}], "+", 
           RowBox[{"129", " ", 
            SuperscriptBox["zv", "2"]}], "-", 
           RowBox[{"129", " ", 
            SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
           RowBox[{"129", " ", 
            SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
           RowBox[{"529", " ", 
            SuperscriptBox["\[Omega]", "2"]}]}], ")"}], ",", 
         RowBox[{"-", "1"}]}], "]"}]}], "]"}], ":>", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"I", " ", 
           FractionBox[
            SqrtBox["2"], "2"], "\[Omega]"}], "]"}], 
         RowBox[{"Times", "[", 
          RowBox[{"f", ",", 
           RowBox[{"Power", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"129", " ", 
                SuperscriptBox["zb", "2"]}], "+", 
               RowBox[{"129", " ", 
                SuperscriptBox["zv", "2"]}], "-", 
               RowBox[{"129", " ", 
                SqrtBox["2"], " ", "zb", " ", "\[Omega]"}], "-", 
               RowBox[{"129", " ", 
                SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
               RowBox[{"529", " ", 
                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.8871917254950314`*^9},
 CellLabel->
  "In[111]:=",ExpressionUUID->"0c597e1d-6389-4194-92ec-a8c9eecb927f"],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"amp1list0", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Assuming", "[", 
          RowBox[{
           RowBox[{"b", ">", "0"}], ",", 
           RowBox[{
            RowBox[{
             SqrtBox[
              RowBox[{"2", " ", "\[Pi]"}]], 
             RowBox[{"FourierTransform", "[", 
              RowBox[{
               RowBox[{"amp1list", "[", 
                RowBox[{"[", "ii", "]"}], "]"}], ",", "zb", ",", "b"}], 
              "]"}]}], "/.", 
            RowBox[{"\[Omega]", "->", 
             RowBox[{"-", "\[Omega]"}]}]}]}], "]"}], "/.", 
         RowBox[{"b", "->", "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}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"727cd346-0f48-40c7-8bc3-893d6d114713"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp10MM", "=", 
   RowBox[{"amp1list0", "//", "Total"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.886855844051917*^9, 3.8868558514677*^9}, {
  3.886856124904985*^9, 3.8868561387402973`*^9}, {3.887191739026937*^9, 
  3.887191767521407*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"a88a1c77-1790-4505-bd20-97c7c0e3dfbe"],

Cell[CellGroupData[{

Cell[BoxData["amp10"], "Input",
 CellLabel->"In[89]:=",ExpressionUUID->"e204c9a8-bba3-4488-b378-969d01c34b71"],

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[{
      RowBox[{"(", 
       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", " ", "\[ImaginaryI]", " ", 
           SuperscriptBox["zv", "3"]}], "+", 
          RowBox[{"48", " ", "zv", " ", "\[Omega]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"10", " ", "\[ImaginaryI]"}], "+", 
                SqrtBox["3"]}], ")"}], " ", "\[Omega]"}], "+", 
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"6", " ", 
                 SuperscriptBox["zv", "2"]}], "-", 
                RowBox[{"6", " ", 
                 SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
                RowBox[{"5", " ", 
                 SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}], "-", 
          RowBox[{"8", " ", 
           SqrtBox["2"], " ", 
           SuperscriptBox["\[Omega]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              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", " ", 
           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[{"(", 
       SqrtBox[
        RowBox[{
         RowBox[{"6", " ", 
          SuperscriptBox["zv", "2"]}], "-", 
         RowBox[{"6", " ", 
          SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[Omega]", "2"]}]}]], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       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"}], " ", "\[ImaginaryI]", " ", 
           SuperscriptBox["zv", "3"]}], "-", 
          RowBox[{"48", " ", "zv", " ", "\[Omega]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"10", " ", "\[ImaginaryI]"}], "+", 
                SqrtBox["3"]}], ")"}], " ", "\[Omega]"}], "+", 
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"6", " ", 
                 SuperscriptBox["zv", "2"]}], "+", 
                RowBox[{"6", " ", 
                 SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
                RowBox[{"5", " ", 
                 SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}], "-", 
          RowBox[{"8", " ", 
           SqrtBox["2"], " ", 
           SuperscriptBox["\[Omega]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              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", " ", 
           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[{"(", 
       SqrtBox[
        RowBox[{
         RowBox[{"6", " ", 
          SuperscriptBox["zv", "2"]}], "+", 
         RowBox[{"6", " ", 
          SqrtBox["2"], " ", "zv", " ", "\[Omega]"}], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[Omega]", "2"]}]}]], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", 
       SqrtBox[
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["zv", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Omega]", "2"]}]}]]], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["zv", "2"], "+", 
           FractionBox[
            RowBox[{"4", " ", 
             SuperscriptBox["\[Omega]", "2"]}], "3"]}]]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[Omega]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"16", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", "\[ImaginaryI]"}], "+", 
               RowBox[{"2", " ", 
                SqrtBox["3"]}]}], ")"}], " ", "\[Omega]"}], "+", 
            RowBox[{"3", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"28", " ", "\[ImaginaryI]"}], "+", 
               SqrtBox["3"]}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"6", " ", 
                SuperscriptBox["zv", "2"]}], "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["zv", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "48"}], " ", "\[ImaginaryI]", " ", "\[Omega]"}], 
            "+", 
            RowBox[{"7", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "12"}], " ", "\[ImaginaryI]"}], "+", 
               RowBox[{"7", " ", 
                SqrtBox["3"]}]}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"6", " ", 
                SuperscriptBox["zv", "2"]}], "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["\[Omega]", "2"]}]}]]}]}], ")"}]}]}], 
        ")"}]}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.886856144600251*^9, 3.886895763507779*^9, 
  3.886895846769252*^9, 3.886896112355288*^9, 3.88689659529326*^9, 
  3.886897526604286*^9, 3.887110635446697*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"26fb0be8-2efb-47cc-a850-4078346a004c"]
}, Open  ]],

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[90]:=",ExpressionUUID->"9b12c223-4027-4528-b460-b4f1e0a96209"],

Cell[BoxData[
 RowBox[{
  RowBox[{"amp1Reg", "=", 
   RowBox[{
    RowBox[{"(", "amp1", ")"}], "*", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "I"}], " ", "zb"}], "-", 
      RowBox[{"0.001", 
       RowBox[{"Abs", "[", "zb", "]"}]}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.886895324137906*^9, 3.886895324306335*^9}, {
  3.886895902684102*^9, 3.886895952911434*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"c71a32bc-04b3-45dc-9d8d-0e5965bc9e02"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"amp10", "/.", 
    RowBox[{"\[Omega]", "->", "2.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}},
 CellLabel->"In[92]:=",ExpressionUUID->"58bd6907-1ac4-4d49-b9a1-6fcd13cb7dae"],

Cell[BoxData[
 RowBox[{"0.03826672476640701`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.924490747341918`", " ", "\[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},
 CellLabel->"Out[92]=",ExpressionUUID->"ad6e51c4-18cb-49e3-9e10-b267dc6b7f21"]
}, Open  ]],

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[93]:=",ExpressionUUID->"752ae5b5-e6ed-4ee6-8b95-5979810b2890"],

Cell[BoxData[
 RowBox[{"0.03408465384133941`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.9268509113480525`", " ", "\[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},
 CellLabel->"Out[93]=",ExpressionUUID->"9e1ed1fb-7d81-47f0-8260-ca71bb3f46c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseFourier", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "0", ",", 
    "0"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8869147884620857`*^9, 3.8869148057165327`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"9be64e9e-ba85-4fb2-aa89-10111073bfc6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2.82842712474619`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.5`"}], "-", 
    RowBox[{"1.2071067811865475`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.5`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.20710678118654746`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.20710678118654746`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.5`"}], "+", 
    RowBox[{"1.2071067811865475`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.886914789897703*^9, 3.886914806330371*^9}, 
   3.8871106454704113`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"29f7e071-af9e-44b4-91ef-08918a5c5d59"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["PlotPP", "Section",
 CellChangeTimes->{{3.886895628955553*^9, 3.886895629618394*^9}, {
  3.887191981887663*^9, 
  3.887191982035757*^9}},ExpressionUUID->"ff12f576-e8c4-4163-802a-\
22dce25e0856"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$interval", "=", "0.01"}], ";"}], "\[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.887191800901918*^9, 
   3.8871918025207148`*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"898a8eae-a7ae-41e2-b62f-262784523d94"],

Cell[BoxData[
 RowBox[{
  RowBox[{"numList", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{"amp10PP", "/.", 
        RowBox[{"\[Omega]", "->", "ii"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "$interval", ",", "$finiteSize", ",", "$interval"}], 
      "}"}]}], "]"}]}], ";"}]], "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.887191815374907*^9, 
  3.887191830133732*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"ffa560ea-e986-4d40-9eb5-ab343c5d6b56"],

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},ExpressionUUID->"ed289a16-9ba7-4f7d-a20c-\
3c27ec5a97f4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"wlist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"ii", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "$interval", ",", "$finiteSize", ",", "$interval"}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"num", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"numList", "[", 
      RowBox[{"[", "ii", "]"}], "]"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", 
       RowBox[{"Length", "@", "wlist"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 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.887191834688429*^9, 3.887191985457431*^9},
 CellLabel->
  "In[142]:=",ExpressionUUID->"9aa9a407-5ed6-4d56-ad27-630a5a044133"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw123c8Vf8fwHF7b+61r7uvUkhD03mHQhENlFSaVCpZbZWinWhTkopKIloy
Q0YoIyNKyN57lPG7v877e//pcbucez7v5+d1r+sUY9uBNTuFBAQEskUEBP7/
5zGVlxb1R88S8/sSto4Lbcgg798gXqxaoyB61jLjPS2gY/X7cEJx9fbnD6UA
H39MsG6FVfVFGmeE3v3/7Rnh4nxg58ebRhlJ/77+JRF7pfJlhbd+Bv8O/29e
EU6B7NtGsdPw+18TQrocqo8GN0Oq8pHHEql3RM0jHZ+19qyMf4e7m0ScsTM4
2qTDyJjmHJQ5pJtCfKHtK3/4hIbnk0bEUhPKPkZrZjzmf3flowziTolpVgdD
PaPz3/N9JFLThbJN/1Az5sz+/y2LKHfZ/uqbNgWfP5tIFHqTc8BPOSNrSJf/
DJ+ISvpu3cWKShnS/84nl3C1alUqKlLIWPPvCfOISBUHnb9O8rjefGLZbROf
cXvZjIaj/z/gZyLBud5D/Kw0nm8hcdZobwu1VjLj4P9Pz6OIyF5v8XLLZgmc
zxfix66LE3IC4hkC/27FhJHS3FC1dFFcTzGxx0z0nMIdkQzL+v8/QQnB+/ps
iex5YVxfCSGW62hz7bJQxrXM/y+glBj3rCj1eiSY8W+5s8uI4Z1foms+C2T8
W05lGbF/J9dzmqAArv8b0f92dmPThcl0nf+fDq2ceGmaPm1w2kQ6OY9y4s9B
4Z/WdX/TXXf9/1ZBzG8vejL1/E86OZ9KQsF2xou158fS/380lZeVhGRoonyG
72g6Oa8q4rK6/bUm75H04f8fbqiKGHfOmXXh9HA6Ob/vRGhoQGxQ2FC6yb8N
UE3Y7dC6NvZxMJ2cZzURFSzU9GtgIP3f6QXUEBUq3zccNBxIJ+f7gxjd1/+p
x7c/vajw/7cfBPWnv9jLnL50ct4/ifHYy0w5nb50yr8TrCUCzEpiTp7sTSfn
X0tERSVGj3/pSf93OOdfhKnX0o2M2O500qOOaH0yU+/qnS5cTx1xfsERH59r
nemkTx2x5NfL8+o3OnB9dcR9r156QWR7OulVT6wMM1JoTW7D9dYTw6lMmera
1nTSr57QLJu4R5FuxfU3EIPxltPUoSWd9GwgaHbtGu4nmtPJwzUQFCJSIzyz
KZ30/U0YjS3esly+Cefzm/AWADnh7Y3pJM9vwq1X6cXh1N84r0Yi3Kbj7mra
73TSv5H4YDn6YElAA86vkZi+75h/X1897ocmYtu+xxHcHfU4zyYiv33avdCa
OtwfTQRIvJeQX1+H820mgoaKzUMSfuF+aSYeHKRRWGm1OO9mIvSdr4pb6c90
svcWInRdcuJk9w+cfwtB30atuaD8A/dTC9H61uHSK6IGPVoJnzRKINOrGj1a
CUX7yIkrsd/Ro5UQ1v284ll3FXq0Ei43PZ/OnFeFHm3E+2a3wcozlejRRojc
GPR2q6xAjzbCo/ZjZKRhBXq0Ez5rPg1bB5WjRzuREp2ZbDjwDfdnO2HyhPdb
3fkbenQQ4keGf1Tkl6FHB5FO9fOcv7gMPTqIlunRjxQTS9Gjk1D6HBForF+K
Hp1E46+UaadjS9CjkzB9Znco17AEPbqI7S4HNZveFaNHF+GU4rb3rWkxenQR
DxVP3TeK/Ioe3cTVxsC11Z++oEc3Mc0tK4TTW4Qe3YTx2vsRVfQi9OghojIi
V3xwLESPHkJ/p92n6zcK0KOHUN5ee9mw8jN69BIdB7ssNut8xvX0EsGD/TGd
7vno00ssMl62PTY9D9fXS9zzjRn0Us1Dr17C+LTjC4p3Lq63lyjINgzcXZ6D
fr3Eq/1O6paLcnD9fcTsgV9nLz35hJ59RMJX703yKp9wHn2Ehvi8e/GB2ejb
R8hsdL5qM5GF8+kjRDOLP306lIXefYTAzhtSf4YycV79hNn8HuvCQ5no308E
dq2/ozPxEefXT/jWK4hXBXzE/dBPNB1welut+DGdfD/qJ96UrU2WfZiBvfYT
K7dvVls/OwPnO0B8nqWzyyw4HffLAFFbvOxm1Mc0nPcAceJ7/s8XI6m4fwaI
+GZGz/TZqTj/AWJH9pzRYa8U3E8DRELeu9utScnoMUh8oNgUVYkko8cgMTfW
sePhug/oMUjInT96QedZEnoMEqHtSYf0hZLQY5Dw7Zib8GLLe/QYJESGfeyP
fHyHHoNExfkl171579BjiMhobYg+GfwWPYaIo3304uNTb9BjiPC9uYmwPfgG
PYaIQoEt1Jrm1+gxRKyJ3e0k6vIaPYaIeJnMzsQfiegxTNglX/Yvck5Ej2Gi
5ajE/QV1CegxTGgf1vav25WAHsNEVMSSuTG9r9BjmEiVDvE4c+IVegwT4fEH
w9fKvkKPEaK2RrtMLCIePUaIxeIfc87PjUePEcK+cMODS2Fx6DFCWFo/S7Iv
eYkeI4QbVbB+hcxL9BghIjw85llYx6LHKCFrkNnFC36BHqOERb+WeUF1DHqM
EuVLhQ4pTItBj1EiQP9pcuWx5+gxSrC3PZsnVPYMPUaJ/nfigwf1n6HHKHHt
xYlfklefoscYIcTWTI3ti0aPMULKaDrTdEM0eowRr5PX73+RHYUeY0RRH+tT
6ewo9BgjIN9f/F7UE/QYI04lFxb1aD1Bjz/EkoXVW9/eeowefwjrbc5JVcqP
0eMP0X57twfceIQefwiXssXZlaqP8PXmDyF2inP1Qngkevwh8tuemCzVjUSP
v4SpTVpV++uH6PGXqHizrcvT/CF6/CWmd6jfzqmIQI+/RF5Wlk/Z3gj0+Etc
WR7w/JxwBHr8JTL0E6IfLXqAHuPEiiMByqY+4egxTugmLX+dn3gfPcYJj6Wb
LmqM3EOPcULw77gXhbiHHuPEubUXuPcuhaHHODEDZukG/whFj3Gih56ZXzkr
FD0miJo9cfR1l+6ixwTBpdoIdrTeQY8JQqtx4djpFXfQY4I4/GTSairuNnpM
EA/TCn5bqd9GjwlCf4Gvi1XgLfSYJKg5QZNNwzfRY5J4zIq9J7H3JnpMEl7u
pa9DG26gxyQx3iCyPnDTDfSYJD7/FJj+tuY6ekwS/gFKmyibrqPHFHGZrfAy
qD4EPaaI3G/eLoq7Q9BjirDcEbrw3EAwekwRE/aK/rWngtFjirjZTRkVUQxG
jymizJJR0froGnoIwBnfm58PL7iW/m/cKgJQd0y8w+JREPoIwEk1tYLEqqvp
/8a1RACaTjybRlG+il4C8PPn7ELrNVfS/y13lwBU/ooyW3zrcvq/5RwVAJpf
ffOn2kvp/043SAAGl60rKtS7lP7vdB4JQM6Vwvw5Jy7i64UALDN13dlQeiH9
H2+hAIyMPqv+MOMCzkcATgh9VHh88Xw6+fLFf9y8/tbZznM4L0F4FFf4wGzN
ufR/h6MJghPv8EReciDOTxBmlZVoTegGpv8bj4Ug0FOjBPPvBuA8BaExM8qU
KheQ/u/0PASh+WeA6NeAszhfQXAtXvD3p8DZdPLzkSAsXb3WWf/kGZy3IFiW
H2yKETiT/m+5mYLgolNSZhrgj/MXhLs5PfW/ZPzTyR9PBCGk3cbc4/Zp9BAC
6lqzqHr2afQQgsGlnVzmm1PoIQTDMMOBbnkKPYQg2+/y9lvJJ9GDf/+F0jJ2
px96CME6Nmsgn+GHPQnBveXza1ydT6CHEOSn/jD8FXYcPYTAWSW8VbHuGHoI
QecRZmKD7jH0EIIHyltH5/geRQ8huHXkb2ln7hH0EIK0c++ke7SPoIcwPD6j
RmEcPowewnA9hiq+u+IQegjDw+WDobHzD6GHMLivN+BVhPuihzA8pQeFfZbw
RQ9h8LhlfcLL1wc9hOE4xf53Uos3eggD41iU5zlnb/QQBvmhLKecb17oIQw/
Ck3XbLXzQg9hMPLbf93sqyd6CIPLPuHv61d7oocIeNyZcrpScRA9REA38nxB
0eaD6CECxWHNa8XbPdBDBPxGQoJ5hz3QQwQcFDZe15L0QA8RqDiiF/tswQH0
EIHMzIrzfrv2o4cILB/fsvnWnX3oIQJbvO4/KP7qjh4iMFl6OVBWxh09ROCD
6T4FfZu96CECx6LHRpWv70EPERBgZ755+HM3eohC2/ijgx9m7EYPUeBJb5Ew
PeWGHqJg0GUhpF3lih6isM+Aes1wjit6iMKB6KLAbTd2oYcoTLfI3Hh3dCd6
iEL4yzf0FJed6CEKtQWypxIKd6CHKHypYSXtWLwDPUTBmx1zLzluO3qIQskn
/QsR3O3oIQogEuU6EbENPcTg0EHa0xTaNvQQg7ytx0zyH2xFDzFQ0VjxQI69
FT3E4OeM5ymHY1zQQwzWH7cSHpzrgh5iIJ7S/LI6cAt6iMFUyg724+jN6ME/
/hqJCZ0vm9BDDObOM4md/scZPcRgUDbE/6GeM3qIwW2/E+Hbtm1EDzFYU+vY
Zx3uhB5iEPpm51z4tQE9xMFyvni7FmcDeohDWaeIbfaB9eghDtz3Y1vU0h3R
QxzeB33/+lfJET3E4Y7SDZE1ex3QQxzG7UuVpnLt0UMcthl+TWrRtUcPcXiz
3mpL35V16CEOy+KvSguNrEUPcZhSjtgpsGMteohDEWVfXNm3NeghDgIivMzt
VmvQQwIUop9L3f24Gj0kYJIlEOi8ZDV6SMAL797U2yl26CEB4+1xn+YQdugh
AZc9Fu5bfNEWPSTgXbuuk9+9VeghAccdYi6KvbFBDwn4nTFuGFtmjT8PSID6
Nj2vlaMr0UMC3EfX7UxmrkQPCWh0FROpWrMCPSRga1qq/onzVughASLZVyLP
ZVmihyTMWdow+E3YEj0kwddgx1UzKwv0kAR5iYknCdeXo4ckDB0YXST0exl6
SELBSTOKsvEy9JCEzb15b3OCzNFDEsy921ymOs3QQxK6r8lLR6wyQw9JyLXc
vOXya1P0kITsviNvn9JM0UMSToTsUa6+vBQ9JEFt+m0dsSlADynwWfadq+wD
6CEFDXfseMU/CfSQgtSWdxVVVSboIQWXLkjdVKhZgh5SkO+UnGnZuBg9pOCa
7u26tYOL0EMKnIpHzotKL0IPKYhypO820l2IHvz7UxkL41cuQA8p8NwcmWrv
Mx89pIAb5Pvqz2Nj9JAC16tfvx6qnoceUtBYtyAnijIPPaRh+eOjhtsc5qKH
NByf3RsScG8OekiD10UV+66W2eghDd/C6Cm+82ejhzRkfP3aNHXFCD2kwbDV
NMu1dRZ6SMPiS4IqVy1moYc0UD6ob10bY4ge0nDWz3n0jrIhekjDgUX7v54W
MEAPaRCwsOvb2DATPaTh4eIHjucKZ6CHDCgXzt5dmKaHHjJw955E++D76egh
A562w/0FH6ahhwxs7opo087WRQ8ZyLt18/D7bzz0kIFVa2+f29PJRQ8ZYDSq
zxGR5qKHDBwObMt3MOSghwywbwqmzHFmo4cMPBzxu3/wKgs9ZODng2qNhhwm
esgA65r+wEZRJnrIQIlQQt8bKwZ6yILc8Q0tudfp6CELHyoWWJXn6KCHLKgN
fmru8aChhyzErmQwb3K00UMWNB8dXn28URM9ZEG0Syxsc6wGesjC2CqR9uGT
6ughC74LK38LOquhhyxclg78uWSpKnrIgmCca8keAyp68B+vULRfwaWghyws
WXUm6AFHBT3k4LTMBQODmcroIQciD5y3pS9WQg85uBpx9LPqOkX0kANaW5yv
oJcCesjBzd3vE64YyaOHHAyJlp50vSKLHnKg29N8Y/qwNHrIQQfdLtfLXQo9
5CBfLvxgQ48EeshB03GFHWqnxNFDDjgme8uTtMTQQw78Yjnr9n0SQQ852FrY
/67miDB6yMPZwQfK8QuE0EMezjEto2+LCKKHPMCHxCdnXk+lkR7yEBFXo5jh
PZFGesjDaFXVmZVWf9NID3nYtFjg17VZY2mkhzyUvo2qm5wxkkZ6yIPoWQMJ
iUVDaaSHPLzY/fwkc+NAGukhD8mGkyJ5l/vSSA958HSeH90R3pNGeshDxn4v
7Q3LOtNIDwUYy1FbXyfdlkauRwFWz5NJC+prSiN9FMB/TFPy+FBDGvl5TgHy
fXfRMqh1aaSXAjgFOn8de1qdRq5XARx7Zm5M2FieRvopwKXGi01C5sVp5Oc/
BdBjHiEeZOSkkZ4KEKPd7k9L+YDzUIC9fXIiHJ+HaaSvAnhvjHF8rvTQhJyP
AhzWSErZQkkyIb0VAISZR28dyjYh56UAV0uj5DTlCk1IfwXoCXJN93paYkLO
TwE+143FWzHKTcj9oACzZMUXl3pWmZDzVIBmnZArFuE1JuT+UIBd34Ucax7X
mpDzVYAiTQ3/mqw6E/LzrwLYnNIenWA1mJDz5s+j3qdwq9dvE3L/KIBJ5/XW
oIRGE3L+CrDIbPywbEOTCfl5WQEiYglRZ6EWE9JDES44bD03ptxKfpyVUoRQ
v5f+LqptJqSHIuxrktKQkG03IT0U4dH0N5wdQ+0mpIcitCwLtGwq7jAhPRTh
sV6cyNiDThPSQxEEH4x8ldzeZUJ6KIIt4zTvpEa3CemhCD8rFR6l5nSbkB6K
4EX8Fue59ZiQHorQtkVmo8ZUjwn5+V0RCu8mjo0t60UPRaDtv/Qp8FwveijC
B41Vuluye9FDEWYzPx6LHe9FD0VQHl3dGGrYhx6K8PWN2AZblz70UASX4iUx
fZf60EMRZPqXXI1O7EMPRRCi3g6/WdmHHoow66/97l8jfeihCOsmpLyiVfrR
QxGMXJ6YyOv3o4ci3JZlrzM270cPRVDP0bIgHPvRQwkqPmikLnPtRw8lGPYv
93Lz7kcPJVB1WmqR7dePHkrgc+WIsU9gP3oogfjfgP23LvWjhxKc9htfZnq1
Hz2UIIN90jqEf5/0UIITI6orH1zuRw8lGDfwWnH6fD96KEHS3dHbtv796KEE
OW3Zn+lH+9FDCZgFZ/KkPPrRQwkiN+p9Zu7oRw8lMC+563LCoR89lCDsD+WI
vkU/eihB4IrErVbz+tFDCSLUQ4vqWP3ooQQHsud8F1PoRw8luLHSVK7oz38e
SvBC6aureeN/Hkpgu0nF4UThfx5KoE4nMs/x/UgPJTBIoSl53e1DDyVQnJei
t8qvDz2UoNW3+jBvWx96KEMfw6VdZlkfeijDsXMxf6V5feihDEnzS97MkuhD
D2X4mfYp4WJrL3oow7lBTzorrxc9lCH5WFKWWHQveihDcMHmvxDQix7KUGTV
mvljWy96KMOapu1vGole9FCGjuc0he1aveihDNby1/dk9f7XhzLUeGps+hbd
gx7K8JqpsUV6cw96KMNloUTDo8o96KEM4yZPembldaOHMoxShzXNjnejhzIs
0D10L9WgGz2UwXDMICu+oQs9lIF5+PlqvZtd6KEMbXTWiUUWXeihDLVH7vd3
j3aihzL8vfazes3zTvRQhlIdi1qvjZ3ooQwX/kTqbpbpRA9l2O9a4K6d2oEe
KjD9L9Gasq8DPVRgW/DDXRa0DvRQAf8h6rLcL/+9XqmAaFGoz/KT/71eqcAH
u9n+Xwza0UMFjmxWueZW14YeKlC/58U27eA29FAB7cp7m4eWtqGHCkRMD788
2t+KHipgFGd3T/9xK3qogG/7WHO4fSt68L/f3cDTTrwVPVRgfOeBfqukFvRQ
gYeno4uC97aghwpEbn2urU9rQQ8VKFl8I4Fd0oweKlA4QaMcO9uMHirwdFXz
+Xnzm9FDBXKGw+ScO5vQQwWkumfs6o1oQg8VcA+sVBi1b0IPFQiSmr32kHQT
eqhA7cxpxp4f/3v/4K/naf2VzkON6KECmxwj+tr0G9GDAh7zbuXua/6NHhRQ
ufBk6bHw3+hBgRJ/dReK42/0oMCtjNUDJgq/0YMCc+q33v+T34AeFFhy/knZ
irMN6EGB06pWdbOIBvSgwPiu3N+v/tSjBwUuZjpXFL6tRw8KDHgeuHDWqx49
KOBA7X5abViPHhTgST5OKe6uQw8KSDDPTnOLrUMPCrycaDOKdK9DDwoIaZT+
PTmjDj0oIDaiqCBa/Qs9+Mc3fHTU3vkXelCg9bRYfv+vWvSggN4ZE/vaHf+9
n1Ngbk2KmXrHT/SgwJUH+wIee/5EDwq4bEn8furvD/SgwAlYV/wy4Ad6UKA7
eH2BvuIP9KBA1+waAUH+zw+kBxUc5hQe58yoQQ8qzPjzhHkvuRo9qCDvTInb
YV2NHlTIGbmR5Ff7HT2oUEkff9N28Dt6UGFzkuDwY7Hv6EEFF4vE53H3qtCD
Cpk36pok5lShBxW0px0PiyusRA8q1DT3RkbuqkQP/vOp7ntfJ1iJHlSQNGD5
uYVXoAcVTM+fOjF/cQV6UIHm6qRrW1OOHlSwPKZY/fxYOXpQYVD3RZWV9n8/
X1HBpKLFfnrGN/SgwoZjSz1W7PiGHvzjvxqa/VTyG3pQYdex0bCl8WXoQQVb
kaYQlfVl6EGFW4FNAzTBMvSgAuXO9UubY0rRgwo9MiVqJQ6l6EEFiei7Nt7C
peihCi+yir4ue1WCHqoQs2B4gZlLCXqogsgdQa09CiXooQqhA3/+vvtYjB6q
MMPrg8N072L0UAXN7KCINF4xeqhCinXRpcb3X9FDFbz3FzgGsL+ihypctpHf
5hTyBT1UwW1i08bNQl/QQxVWLNvddsm7CD1U4a1LQ/TP1kL0UAWdz/7TVm0p
RA9VcF0vPVZZWYAeqmA3vCDUZ00BeqhC0MK3FxlfP6OHKozTh0wrbD6jhyro
TVcxvvolHz1UoVr7RaXZ6nz0UIWKV2EhfeV56KEK3bafy4Kd89BDFc4a/xbV
acpFD1UQmC15/fqBXPRQBSnNM01tf3PQQxV2btrqpnUxBz3UYE2K1nmORg56
qIHGMf3EqZhP6KEGD6ZHOj0hPqGHGpguf9ivUJ6NHmpwoWS0f7F7NnqowVXO
3UqWaDZ6qIGLpgIj40EWeqiBZfrEOpnFWeihBguTzkwKVWeihxq8Dol7GX4k
Ez3UwEmkbvy7RiZ6qEGVJ+dcXOpH9FCDkIz7/erbPqKHGnSGFXQoS3xED/7z
u7dx78RlmJDXt9TAQmS+y8P1GeihBt/mWzlPF85ADzVQELlSvHFzOnqogd15
19c2SWnooQaJ2c5MumoaeqjByMHVHXmHUtFDDXaYmA8sqUlBD/7x1N7N8lma
gh5q8HdEMWHH82T0UANR16nrQtRk9FCHtt5M6WVnP6CHOkQlX9jGHEpCD3V4
7PNm+JpbEnqoAxQyFp+rfY8e6vA7bEfKX4f36KEO1eKSqk0l79BDHc49/SS4
0PYdeqjDnr+xln1f3qKHOigs3fJFcPVb9FAH037dy9vK36CHOrweMgyRcn6D
HupwMPW6eF/ja/RQhzTPU9NlPV6jhzq8sF9t5zCRiB7q0OQd0ZR1ORE9+F9f
t36/DS0RPdRh+vHsgPZXCeihDtmXbtWGWCSghzqYcQZMTX69Qg91ELnndaPx
8Cv0UIfD0rqFJ1ReoYc6/NG89UcwIR49+PPUfmOxe3U8eqiDt8HXJsemOPRQ
h5G8xidn9eLQQwNudTTEWPm8RA8NWPbmhtCdzFj00IBmkwW/XZRj0UMDrpm4
vLnp+gI9NGBOWqacbnoMemhAkZxaoqRGDHpoQCev5fqMw8/RQwOoYeuK/b8/
Qw8NCDTvej255Bl6aACnfl9yyJOn6KEBznHnLs5SeIoeGuC5NHKo6EQ0emiA
4KPQcafuKPTQgGiHEwUFW6PQQwPW6a/8oFz1BD00QEz1oTV39RP00ACLnMOz
Rgofo4cGqCZ9Nz268jF6aPDnfSngUeEj9NAA5qksXVe7R+ihAd8qKgOSKiLR
QwOuX2zRCdoSiR784ymdf/Sj/SF6aIBf8v7mW4cfoocG+C5Sb0mQeIgemhAp
5lPICYtAD03YejmgqdEgAj00wbJEaU3BlQfooQkDS5fsWZQRjh6acFO08L7o
yH300IRdbiuzKUb30UMTzNQqBNcfvIcemgABjjnvX4ehhyYYqRUVssdD0UMT
nmwK1LhgEYoemnDEasdk6a276KEJRS9VFXrb7qCHJhjIbTH4AnfQQxMmyszO
bAy7jR6asIDteCRw7BZ68M93VXf2ko230EMT3MS2bPbIuIke/OMfXOQvO+0m
emiCn8HVeJGbN9BDExx2UF8sE7mBHppg13rmSIbvdfTQBO/niZt3doaghyZM
OXXWs3eGoIcmcL0183vqgtFDE/a8UlJ/tyUYPbRgkXiOinv9NfTQAoGZFxcL
7LqGHlqgFxId+rk6CD20YMf97pMaPVfRQwvWzi+79k3iKnpowamvQs9/8q6g
hxasUPbS1LS+jB5asHJja5SnzyX00ALp0RN+nx9dRA8tCDljaCZZeQE9tMDO
eo8wVf4CemiBa1fwgqqV59FDCy7zwj4bXzmHHloQIRcqol0WiB5akHB//X0P
7UD00ILNH7vjNd0D0EMLatudM8TTz6KHFsgYT4unUc+ihxZUL5rKWXHwDHpo
wZmANS98i/3RQwscy4Rdr8z2Rw8toGhLOh8NPY0eWjDkrmYzTfQ0emiB6V17
x0CvU+ihBQr5oo1/P59ED20I09ldPfbGDz20QTdfrr4u+gR6aEO73+uBSxHH
0UMb0kwp7yseHEMPbTANczt2/8lR9NCG0cEWg9RXR9BDGwJmOe1Rzj6MHtow
eeDJFr8fh9BDGzKVXBt+/PFFD20QkwlxkdPxRQ9tuOyrXN9v6YMe2tDqd0Jw
72Fv9NCGNw/eDzjGeqGHNhgsSD4W1uKJHtpAP2HRpcrzRA9tuJQcNy1+70H0
0IbXYg/vW7zxQA/+POYOmmQKe6CHNjiclqJIvtyPHtqQ08kQadm0Dz20IV7Z
aF0b1R09tKH/9z35H1V70IP/9YtETC4/2o0e2tDVaFyX6+uGHtrQyDHs3LTG
FT1osKBCxYo2bxd60MCuz67gO2MnetDA+WaC4TbKDvSgwXO321oXFbajBw2O
2XJUOMrb0IMGkbuDjoprb0UPGqQuc70ipu+CHjTw8Bz82HtpM3rQIPaBT5Jr
vjN60GC9l/sBhspG9KBBtpNe+5e9G9CDBlrWjh+ZxY7oQQP9KnXVEnBADxrU
Ru4JDkpdhx40OMr2WEtZvhY9aNB5bGRYo3o1etDg/izhQKcjdujBP553fSvN
YhV60IAuv3t2V/xK9KCBtPwG+3sGVuhBg18Riq4xmcvRgwYhH26w7u02Rw8a
vJwf96OfZYoeNBi/G1rr3kCgBw3mfRw4UPdwEXrogH+/gvz6AGP00IHt10oN
ei/NRg8dYA6EidzYbYAeOnCkxPgDdZKHHjpQ6tVnm1pGRw8d4Nyq1CgoUUYP
HejdkWwR/2tsCemhA6c8HKQUnoylkh46YJmwNq78mxL+vl0HEuwVy/OKaPj7
dh0otnM7FqjHSSM9dGDJhQ1ZGUnT00gPHbj7eu/lE5KGeH1CB9pdAz+vuGeU
RnrowByWmfMgZW4a6aEDRt1Pc5mHjNNIDx0Y2GjRfjRjAV6/0IF64XdS4f2L
0kgPHejfXdY2Tc4kjfz3Xzpw8UHl7h+SkEZ66IBUNaOqV3ApXt/QgeqGLsl7
PUvTSA/+POnhPG6ZKV7v0AHv6Oz08hdmaaSHDpw3HvrSc9wcr3/QwSjTN/ed
2TJyPaJ0WD787c4BweV4PYQOdN017xzfLifXJ0+HTqGFrLhtFnh9hA4Cuyge
iWKW5HrV6WD+Lb0gItISr5fQoa58s2jCPCty/Sw6OCYvukHPssLrJ3S4LHcq
nG25gpyHPh2KDcunBj+twOspdNDd32Kbu3glOZ/5dPAdK2z9+mIlXl+hwzX2
6q6lVGtyXqZ0aF3MtrU9Yo3XW+gwurv3m26FNTk/a/7xW9fSJ2fY4PUXOkQI
fUycOGFDztORDnks89F1+Ta4P+hQvtXQzFB+FTnfrXRwr0yo+WC7CvcLHb5M
txHQubSKnPdeOjjcM+4M+LgK9w8d5Puf/1AdWEXO34cO7PtK1HEdW9xPdFDw
4LWtt7QlPU7RQWXewLu17ra4v+hw/mrqH4XLtqTHRTq0r2kwfx1ti/uNDmua
g61c0m1Jjxt0YKQfq5tXZov7jw6Hj2yX2vDblvQIp0NUQcRQc48t7kc6tEVd
FBIYsyU9ntJB7ntRbuakLe5POuSmOl6KErAjPRL5X59xf2oT/z65X+kwELfl
m96ELemRyj/+ygGD98O2uH/p4PY1ZvhYly3pkUuH152TG4PrbXE/8+en29+k
yD/ffx4ldLBwqvKgZtri/qZDx9oJo3cvbUmPH3RIF4QM6bu2uN/58ybCZPVO
25IezXSoib/vredqi/uf//21xW+ZK21Jj17+vGrlBbkzbbEHOuzPLuq2kkWP
P3RwnmF9JbJjFfbBAJpc5mazvFXYBwMWTvfaRDxahX0w4I/F+8mnx1dhHwxI
Pjc6N2TdKuyDAcXiNw7J6K3CPhigr5aRrCuwCvtgQOli+9MjZTbYBwNmzA8q
Ph9lg30w4MPG9CWdh2ywDwYEO/Z1GFraYB8M4GT7B+1UtcE+GCDzINbjTpM1
9sGAjH7R/ZUJ//XBgMn69kmDk//1weC/33TMjVvxXx8MGDelZW2lWGMfDNgY
cGB47a+V2AcD3GfXfQx+uhL7YMDR/uRk7sGV2AcD6K8y6bQFK7EPBvSbWFT4
C6xM+/fvV/cy4GmHqfuW3BXYBwMsnTbrpF1ZgX0wQDutp/rp2hXYBwOy8rsX
TlNfgX0w4FXxzyuWtVbYBwOOiz2vkH9khX0w4OvrU1/OuVphHwzwtA9rfq9n
hX0wIEdSaEVMD75e3WWAy3vzX7sS8fUqnAHtf6evGPC1xD74HnIbuxwXWmIf
DNhaNdIRNmGBfTBg8Zp5ejkZFtgHA847tq/9ecYC+2BAt5b0t5blFtgHA6z3
GtR1SFpgHwzg5gj69BQuxz4YEBn1Yv1o0HLsgwHSXSZaMmuXYx8McIiX0Dak
Lsc+GKBwtTdg9/dl2AcDJCI+2qXeW4Z98PfnfE8LQ5dl2AcDlK9sF81lLSM9
Ovj7dWfoaECLOfbBgDqRvm0HY8yxDwZIOphuvHLAHPvgn8+1q19+zv7v/YMJ
xE7107tGzbAPJow3nJbXSzXDPphQTfvWo+9vhn0wYdHXG54+FmbYBxOud+dk
CcqaYR9MmBbQ0VFRaop9MKH/3d/ikTum2AcTXs/bZOy6xRT7YMIYrySTxzXF
PpiQGbNpZFHXUuyDCVFKRgujXi/FPpiQVRdQ6nZ8KfbBBPEPnu0B5kuxDyY8
W5UfNCWzFPtgQvq2+teV5fj+a82EKYmdsxQeAPbBhIvTVLOeuwH2wQSO+025
Z0aAfTChbpEeqP8hsA8mSK9dUhUbRGAfTMjwOBqhxCWwDyaY8Nx4K1JNsA8m
9L22K3awN8E+mLDT4vq3hd1LsA/++k06zUfPLcE+mPDi3hupYOYS7IMJNlk6
bWJpi7EPJlQmbvPb6LQY+2DCYGeL+bWRRdgHE0Bl342om4uwDya0X9V59GDO
IuyDf/6GrwKPf1uIfTDBj75rronPQuyDCRocrXNN1IXYBxMid62c55W0APvg
e/4QqG9xXoB9MKH5dKmkueAC7IMJS/cWqZ2Pmo99MEGse5Pza+v52Afft32W
VP6AMfbBhM/bKJATZox9MOGlT77IC3Nj7IMJ5k3llke752EfTNhrYt9ieHce
9sEE/6zkqK/m87APJpTMu7vAoW8u9sGEyXB7Ijt8LvbBBD12m7m6zVzsgwkD
2kGf1o3PwT6YIOHhref7Yg72wYKbNluLj2+ag32wIMRv86Sr/BzsgwV5Jg69
8zJnYx8scCuJL231mY19sODwr86s49NnYx/8+x9ml/f9MsI+WCAR2iZlccsI
+2ABs2PBpmM2RtgHC6zzHry/ImqEfbBgffyeyeNps7APFkQHE6KWh2dhHywY
XnLrbpfRLOyDBQ2bZvu5dxtiHyzoGQp3z3puiH3wj3f9NqXP1RD7YIG0kT9j
kGOIfbCgoyF26618A+yDBZ6rKUltlgbYBwvm/Wx3/5Wvj32wwG+l+3Vva33s
gwW6wJ0XVTwT++B//7e4NQcdZmIfLHCIcKkp/TkD+2CBnqPg+9xdM7APFpir
H8qx7tPDPlgQcXd3zeYTetgHC74ZN2b+kdLDPvheM/pBO3Q69sGC2ua5SlnT
p2MfLLj/7lhna8o07IMFj1stTl6ym4Z9sMBoo4t3dJMu9sGCLfmrPRYc18U+
WJCd06tkoqKLfbAg8m7FyKtYHvbB9xevfhtsycM++I/PPNv4vZGLfbCg4NRp
pXP+XOyDBf0S8sU3GVzsgwWfBrc/F8rkYB/887+jOvPzdg72wQLq0JmGVjEO
9sGffxl73cYYNvbB30+3B6Roq9nYBwtSvqUHzRxlYR8smJZ5dm9gBAv7YMHy
O8k8zgoW9sGCqtHnq8SGmNgHC2h7E/dyHzKxDxaAyF1p/1VM7IMNzjafUygT
DOyDDXlHHsvXvmBgH2yYnHp9q3ITA/tgg13UaPOkPAP7YAOFonbHLouOfbBB
bOqhef4hOvbBhr29phd3zqRjH2yofDakbJ6ng32w4eD5iOJhYx3sgw35VsJh
P57RsA826Lu5FXRr07APNuwWNs3k3tDGPtgg/vNk6wkZbeyDDVK+9XFdgVrY
B//83cyvHxDWwj7YsFCzhzpxWhP7YENGXWVekJAm9sGGXc9bgRGggX2wQc6J
YMRIamAfbHhduofKu6aOfbDhS+3jyqtq6tgHG7yFJHk/ItWwDzZErc4rkTBQ
wz7YkLLFKV4uVRX7YEPQlpioFmtV7IMN8ecsHl+ppWIfbMguPvP4z0Eq9sEG
X+bjl7riVOyDDdWCU+WK4RTsgw2h5bSF8fMo2AcbtEvrxCaLVbAPNug+DPYe
clfBPthALxfPuyalgn3w17MoZc3nZ8rYBxsIep3nvRXK2AcbPlw+eF2wSwn7
YEPkfZsZg9eUsA82DA9C5v55StgHG85torbs/amIfbBB/uWjBc0BitgHf/5j
33ZWGShiH2y4of2WvaRGAftgw9b3RxfLn1fAPtjwNvTsKat5CtgHG74eKYks
KpDHPtiQcLVpQfZMeeyD7+G9KsU9RA77YEOE//mFqWOy2Ad/Hn7+v2K2y2If
/P1lHNqrXyyDfXBAI+dW0WJCBvvgQO6RiN6CeGnsgwPB1+d1l7KlsQ8ObK1j
+liGSWEfHFBYvncVS0UK++BA8fqlm5yCJLEPDoxL94Y3ykhiHxxQCcmdnnRZ
AvvgwN7j4kZf5SSwDw5wDXKntK+LYx8cUEz6MXpPXRz74MAUIzPMLFIM++DA
YpMjpyRnimEfHP7r8f71zUmi2AcH2sXWd5dYimIfHLBzU+dmfxfBPjgQaBw+
/tpdBPvgwI3tSefuCYpgHxx4JSc47HlHGPvgwNsPz64azhLGPjiwzMPlVVGB
EPbBgcc9rApTNyHsgwNzhrWunBcTwj44EPLYx+92lCD2wYEwJcM9bpaC2AcH
JjTGeYMdAtgHB7z2ykTPDhbAPvjrr2/v0pkvgH1wIOr8nTk7Pk6lkn1wIC4h
52MOZSqV7IMDsb92aTjtm0wl++DA6XfZQop5E6lkHxzQalZ2r+VMpJJ9cMCD
o+T9JnA8leyD//zuT3dcaP+bSvbBAQu7S4k2q/+mkn3w1/usWnD4w59Usg8O
9F/J0PTl/Ukl++A//kJ+9OOtsVSyDw6c0q5/VyQxlkr2wYHauFlRV06Mkr8/
K+HAZK6f8fDgSCrZBwcOVm2THN8/kkr2wfc5O6vhesdwKtkH/3wPXY9P2DOc
SvbBgVUTjEs2nUOpZB8cSNstFL/BYyiV7IN/fg6nzxYOD6aSffDPLzf2RtjJ
wVSyDw48mz8YkiI1mEr2wQXzZ0mOnDsDqWQfXOiOGq4r4A2kkn1wQWFH6eqo
pP5Usg8u1P5e0v/cpp/0UOEC1TxIv/h3H+mhzoVBPe3bMsf7SA8aFzL2VP9y
oPaRHiwuXC3o+/UkoZf00OVCD3dbcK9dL+mhzwUXr7kM54Ye0mM2/3yCDObH
cHtIj/lcYLOneKn7u0mPJVxIWX5y4NSHLtLDlL+eqXW/miS7SA8LLuzfp3ew
xrmT9LDmwo/M3v2rEzvw95lceEhXqTWW7SA9HLngvClb6OSedtLDmQvWmQZb
VAvaSI+tXCCysxP69NtIj11cmJ/jNTZ5s5X02MsF//a+PYYCraSHBxcGxseP
HNrXQnr4cGHf8YiyTz+bSY+jXFhReGyz7Opm0uMUF6auSy6E3CbSI4ALOeta
U+2gifS4yIW1C9hHZqU0kh5BXHiq6z+rfGEj9sGFPFphg37Kb+yDC3PKaGmz
4Df2wYV3cfOnleQ0YB9cuEP7nCpg14B9cOGEUa7l65p67IMLoi8/5P/aXY99
cCF8n4bnoT912Af/+Y3vPz5wpQ774ELwcPBgCrMO++DCaKrHiqfev7AP/v6Q
mbdm3dNa7IML2yvKTd3qfmIfXPCtf//hi9ZP7IMLJ6OlEz03/cA+uLBOz8+P
iKzBPriwJkcsj95RjX3wj9cRHSw0vxr74M+7ef7skvPfsQ/+89+ateHIzyrs
gwuhukeEW+dWYR9cMCkyPisVUol98MD+UIzfl74K7IMHOTenmhj2FdgHD1rL
eOP9yeXYBw+21KTaGXLLsQ8e1Ks1pOdd/4Z98ODDGZ2DMSLfsA8eNLiuqcg9
XIZ98KDRIOS5bG8p9sGDUQNan/ueUuyDB+P7bQbLW0qwDx5s33fafIFbCfbB
A8NmzXfnOoqxDx58v3BoZ8LBYuyDB3kuuY72Q1+xDx58nVq2OlvmK/bBg07x
ap+b075gHzww2tskHLuyCPvgn/+Pgnc9noXYBw/SLoh/Nn1QgH3wYDLMrOtS
8WfsgwcyZ45bvxL7jH3w4P0I58LdpfnYBw+C3zkk6Z3Owz54kNE+ttP2Uy72
wQM1I7ELnbK52AcPhu0+XOpwysE+ePBi7y/zuS8+YR88OFaiMJIg+An74EHf
CknbVRuzsQ8eXKod2tr3Pgv74EGlxJeYQI0s7IO/vg2vZMdOZmIfPIjYt6Jw
dttH7IMH3QuNrzIdPmIfPPB76uv0KicD++BBrUvNrcKFGdgHD0KSxGUzd6Rj
HzwQmBZ37Z1TGvbBg31PlGLWOaZiHzwQMl4i4OOUgn3woN94tGFwezL2wYOu
Od2rX3l9wD54sONN5eC5C0nYBw+Ypa/UHZ+8xz7487oy+Woi5x32wQPfQjm7
jd1vsQ8eRNfas+0032IfPHA5m/MnxeYN9sHf7zYL5p8JeI198I+/6kfl2cxE
7EMXVMdj3B6LJGIfumA5e0jq08oE7EMXqIvr9n2+/Qr70IWODJGiO63xqeT/
v9cFnwdi3Som8diHLrzo8V1saRiHfehCXOkrl/VdsdiHLmRmOgxyE19gH7qw
uOj549OnY7AP/v07+lrG659jH7pgvcVkkmr8DPvQhUOumQ192k+xD13Ii+1Z
fVcmGvvQhak4tYxfQlHYhy6sUrt64Y7AE+xDF2rZQd23RR9jH7owectKPlHx
EfahC0MSbS3p7EjsQxca9r6xvmnyEPvQBY3r0Cy1JQL70IWzrGUb+6UfpP4P
wafCIw==
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw123c8Vf8fwHGb7L3H3ZeGklKJe95UCilEgzSQFKmMBg0hoylJQhrapYRC
GVGisiNbRmY2pYz63W/n/bv/9Ljde885n/fz87rX/X5Fdd5vu4uPh4fnnQAP
z39/Bsg/Xd3mH0Jkry807LNcBuT9aGJ8beZS29U6kKl5+rtNZiIRND5nsVMN
BR+/QzQP1Xy3MVCBuGv/3R4SqxuO72yhykPWv+c/JfroQm2ncqSBe4f7N8+J
oaxq49U3xfH16URu0fWTeydFQLQ26YCxaAYxLS+QeJkmBP8Ody2LKC3OCBRt
5AedrRcLfmhnE3z6v9pCp3nxenKJS1lXoNaTB+5wX12b9Iao1suNSNH/Q/T/
O18+YfS8qEB7YIpYpP/f7S1hOCw9ITf2myDP/46Y/Xs6SHfJL+LtD23uGQqJ
G9XD3y88/UmI/bueIuJm6oeYDOsfhO2/ExYTStmir8cUxwlyvR+IyR08nM6p
UaLd/78DfiQc1ndq60+NEOT1lhD7j3g7rJMZIQ7+d3kHSom8L9+erVo+TJDz
KSMUBa+ushgYJHj+3SqItc0V0VlBAwS5ngriabugqaN+P7Gm7b8TVBL1bos0
Fk/34foqibKFO9dnNfQSkQX/LaCKuO5wOT2tpIf4t1z9z8RsueEhw4pu4t9y
aj8TMfUxznc6unD91cS5K2ku/oJdhNZ/l6NZQ6RfdSF8F3XiPGqI4uTqxP37
vxG73f67fSHkOtxlPF504HxqiSYi/cQpwQ7iv6PJP60l+ius7Lu2teO86oh6
zvMN7W/aiJ//He5HHbH554XyitltOL964il1/y6NhFaC828DNBBTUY1/TORb
cZ4NRKKZtckZ5lfi3+WdbiRKm4y/H9Btwfk2EZb9g0r7TZuJ0pL/bk3Eo3D3
gNIdTTjvZmJF9Fv/b+GNhMK/C2wh3JziglVfNeD8W4gtgzti28fqiX+H2/qV
+J2oJvp6cT16tBIP96hvmXuyDtfTSnyY2LekuLwWfVoJ7Y+7Hmiza3F9rYTV
tdPLhkK+oFcbIXR/l827nhpcbxsRGt54aaNtDfq1EWZzJywc8qtx/e3E+qnC
6fDF1ejZTmi/lO+6+fQzQR6unfiy6V6i69zP6NtBWL048zruaRXOp4OIMvE8
JrG4Cr07CPUrVYFn8ipxXt+IcOUjIe1Wlej/jfjjMEDt/VqB8/tGPP3aFOfr
V4H7oZN4T91010myAufZSXzZbRLwx64c90cnYcRR/uV5uQzn20VUPh5oeldb
ivuli/jOp9JXRC3FeXcR4mnTK5YfLCHI3rsJ/9SPS7oLP+H8u4nGKm4RWp9w
P3UTqZ4dj5VPfESPHiLUxSvXqO0DevQQfoblBl/WfECPHuLvqjfrX6UXo0cP
0QZ7drxhFKNHL9Gzt/1VfmwRevQS9Hj989eki9Cjl2i6HfuOce49evQRCnn1
oyZi79Gjj+Cwzy6uPF+I+7OPYG4R10qXK0SP78RpFvVWacI79PhOdBwT+M2r
8w49vhO0lV8SDDLfokc/UcBjPtvW4i169BO5Kw9tNPpagB79hJfu25bmQwXo
MUBs13/jT5EpQI8BQhFGygaT89FjgAj54rljkVU+egwS2pamEc2Db9BjkOiP
id1XG/UGPQaJ9buPjEgte4MeQ4SP095t3wvy0GOI6O373DSklIceQ8Rz5l8D
iYO56DFMSEftOskoy8H1DBMzk7Qxpfk56DNMaA6Vfv94ORvXN0yobtWqok6/
Ri/u6084yvC5v8b1DhO0XfvFbGtfod8woWSWIfHb/BWuf4SgJjubfc3LQs8R
IvGU56uBpVk4jxHCUFfDSPJFJvqOEAm8Us5zFmXifEaI4tuPTyx4mYHeI8Tc
72qxs5Zn4LxGieya2zuSCl6i/yhRKOc0//valzi/UeKm0fbfZfUvcD+MEmoT
cy2N97wgyM+jUeJsU7Apcyodex0lohf4hR+6mI7zHSNWNH6wpLLScb+MEdU7
nyxXzEvDeY8Rn79GB5k5pOH+GSOWrPbJT5pIxfmPEdp75MUoV1NxP40RdeG5
X5OXpqLHODFpyacDTc/RY5zQ9c5Z/PHUc/QYJz6t4i5G5zl6jBNGp7szo6tS
0GOcOGs5917O8RT0GCdq3n4yfjY7BT3GiURKPisn9Rl6/CDsmssVg+SeoccP
YiIwKyX28FP0+EEwDnUO9bcko8cPgrmkdYeHeTJ6/CBuPlyjzpvxBD1+EC9D
x/Pj2U/Q4ydxXsbcVyf+MXr8JIzDCz/HyjxGj5+EQEv2ZN2ZR+jxk2jyNjpa
L/QIPX4SX+M1bM6cfogePwluAqONQg/RY4I4uq3PIO/MA/SYIA5vsdnBlHmA
HhMEHw3keOLuo8cEcbaow86EeR89JojQuS/DGlPvoccEcfxWmHu+6T30+EV4
pNwV66q+ix6/iPBCjQajPXfR4xeR7qt6MevvHfT4RejPcVhsHXsHPX4RMXNz
GT8W3kGPX8Rk8fDfhPIk9PhFSBZTU428ktDjN/FGps7zg2QSevwmTj+svbv0
+W30+E0YaKgpBNrfRo/fxN2or6lXpm6hx28i5FHBi/1Jt9CD+/wjI5ECVrfQ
Y5Koqt09avHrJnpMEl0+RP6yuzfRY5JoqJFQL95wEz0mCYN2600D/Dfx/WaS
UNxYNWHicQM9Joke6RVnX1QmoscUcbw5dAVzeSJ6TBHqf70cT92/jh5TxN00
F49XitfRY4rY4fzZLT88AT2miH1HMq6FzcSjxxTxU1n33h/fePSYJpif2UHK
Q3HoMU28u6rtV+QRhx7TRJOemuKfvmvoMU1Mnjcwf+Z5DT2mCXX6uHHZcCx6
TBPn6xT3rTscix7ThN/H/Bg6Tyx6zBD6GxPfmJy9ih4zRGqz9KLrylfRY4bw
ygg4NvtBDHrMEMvfX9zVsiwGPWYIScNHv5NLr6DHDDHwlxN4weUKevwhzDzX
H/ObikaPPwSk9D/afCUaPbj3nxby6upFo8cfwqEoL/l72WX0+EM84cTJhHtd
Ro8/xNbq+He/pS6jx19i0Mji0pK0KPT4S3hozvFdujkKPf4SysSFuLE/l9Dj
L3Hryo6dO+5fQo+/RNSAsN0hm0vo8Zd4X2M2Z95MJHrwQMEl7ZJjjyKJf+OW
5wH9D+NmTlsi0YcHBNJnf3k/K5L4Ny5jHtASFn7tcvgievHAu6sTlfNaLhD/
luvGA9O7ijY1r75A/FuOPw+oO3z/65J+nvh3uRd5IFWruziNfp74dzlJPLA+
6vJk7pVz+H7BA6piBxlHRM8R/3hLeIA1X1C96tRZnA8PtLWumMqbOkOQb1/c
65vi01p85AzOixccThxhMiciiH+H0+QFi68F/cFHInB+vMChBVxaNR1O/BvP
al5w8rfety0oHOfJC+OayQpvRcOJf5d3gBco0q4O7lfCcL68wDi9e+UKWhhB
fj/ihX35YfLmz0Nx3rxwUMrQdL9pKPFvuQXc4yft9n9ccxrnzwv92isTx/ae
JsgfT3ihoWBOgTHfafTgg0nT8LmB8SHowQfvd+XYPTcIQQ8+kGxSay/6HIwe
3OcPNzx65R2MHnzwM045LVAuGD344Gnx1zkyL4OwJz5YmL3I28UhCD34gGXM
ltzPE4QefJD8qu/5nAen0IMPUs6MLb1kcwo9+CCNR/X+1elA9OCDB2cL2Ese
BqIHH6T/FpVw3xSIHvygnTpdRhMORA9+aD8dpvDmwEn04IfXnBp+vS8n0IMf
ZFsX6Z/hnEAPfmi6l5eW8/A4evCDXXt3fY7ScfTgB/1gOePj4cfQgx+WNXJe
Dk4FoAc/PNxwf5ugdwB68INn1/EL6X3+6MEPufRbjUO7/NGDH2aitik/7jiK
HgLgYbTctsHlKHoIwLO5bysOdh1BDwE49na7vJvHEfQQgI6bi2oejx5GDwEw
EOTnW3rsMHoIQPFRuby/wofRQwDsrjF3/bpyCD0EYG3FrkAl1iH0EICQQfdy
20w/9BCARtd5pjfX+qGHAPiJ0n7/aPdFDwHQN1u40iLAFz0EwNm/9tZlBV/0
EIShyPm5xc990EMQQsKVvVvX+6CHIHDarQsqh7zRQxCCqhJaLl/yRg9B2Ko4
TNFc7I0eghBmkyDu3nAQPQTBri7Yas+pg+ghCJMfrTNUZh9ED0FYsDtl5cHq
A+ghCIsORym6Bx5AD0HQf+fp83PeAfQQhF+9Aud1Xu1HDyE4FLiNc1htP3oI
QVCm546ik17oIQTs2bMTxbr3oYcQFHU/71pssw89hGD87ajH0lxP9BACa7c9
twR1PdFDCJyE2gwjb3qghxAM3TWc80nBAz2E4Ncdw6SH5/eihxAERGyV1hLZ
ix5CsKXuiZrW6T3oIQTDDQ8eXBfYgx5C4LWAUX0h1B09hCFcZNFYl6g7egiD
eY9WVNyl3eghDE51m3wSVXejhzCIfN1/ofuuG3oIQ+k9ipSHvht6CEPZYis7
zbe70EMYJGMlhn7a7UIPYZjtnHurr8cVPYTBblh++9AJV/QQBtaapeZTiq7o
IQyFQS0pAs9d0EMYpu95yfNZuaCHCCxrYGn19TmjhwjIVJo9SDvjjB4i8GI3
J9V+rjN6iECuZeueovKd6CECFrdimTx+O9FDBGLO33edUNuJHiKgHrW97M67
HeghAgVJu/V49u/Anwe4x+vlCeZV24EeIhBJvZltcmk7eohAF8dOOHloG3qI
wO2DH54tttmGHiIgenhDUckLJ/SYBSn2CXddNJzQYxb43t7c/T1sK3rMgrPy
fPs2/XBEj1kgYx67JXaXI3rMgv3Ru2Vu1TmgxyyYLqhZ6rrOAT1mQdKDRWnV
77egxyz47hx3q9NkC3rMAlHdvJ1n8jajB/d+auu5l8Rm9JgF9Q8f/XQq2IQe
s+DcR8YT39Wb0EMUnMvujg6WbUQPUeA588ksf/NG9BAFodHDjq3f7NFDFKIn
qpRNfOzRQxTU6Dbxdfz26CEKsl9yFybE2KGHKGSqWu88NccOPUTBuj+94XjB
BvQQBelWveAwxw3oIQpvVHK8on/aoocopPtptcZdtkUPUbD6rLLm0kJb9BCF
Tx4XVnp9tkEPMfChPL2hfcgGPcRg6onO+gxVG/QQg6hHbj4y+dboIQYp1pkb
dfdYo4cYiLTFewrKWaOHGDzdMnJL/fh69BCDYtOiC6dq16GHGJhdKfHVWbwO
PcTgnl+Un0CMFXqIgcX5tzN8k2vRQwzOi75/q7BzLXqIQews1/fzPlmihzjw
mvlbGi21RA9xUJx40rLwgQV6iMPeTJo1v5oFeojDzM5VaTcizdFDHDamhjtN
ipijhzh4PjPoFAxZgx7ikHbLhPKCdw16iEPYRTX61KnV6CEOS3mjiU8Cq9FD
HHyvv+RXOWOGHuLwtCljaZ2MGXqIQ/dIc9t0/Cr0EAczps/yAO1V6CEBVfrZ
WaszVqKHBIicGhPetGYlekjAbD5z4cTGFeghAQZlXaUyB1eghwTUGk7evS+y
Aj0kYKN3vrj9bVP0kIBJj+vPpTim6CEBOvrafqWNJughAT2717uHBJighwRM
dXp/mq1hgh4S8PF4mETGG0APCWh6YvxJyw3QQxISTOeWOUoAekiCSu6M0jtP
Aj0koczb2nJDAQc9JOHTsgWlG9Q46CEJBvJ9YemHjdFDEvLrUjNca43QQxIu
Jmn3bjA0Qg9J6J7TOHHw5nL0kIR9LQ3iz2YtRw9JkLm+7vqUnyF6SIKmoPSe
NZ3L0EMS/DXWHQ3dtAw9JMFovYHW/ZKl6CEFvGeTRuNXLkUPKVA5+bliY94S
9JCCdfnUxg9GS9BDCr5VFvt1ZxughxQEND4wu00YoIcUdCnKLxp4txg9pODV
y5sur9cuRg8pMF/Bs4yndhF6SMFfyya7Zy6L0EMKBDZlXs4e1UcPKXj6o05c
PUQfPaTAvnu+TIGSPnpIQ6+e1eyk5IW4Hmm4oWqvkr5qIfpIw6HuyZrer3r4
fU4aFO0Czy87pode0mB0J+tWrKoerlcalnMUH0y/WoB+0uCTlezu6LQAv/9J
wwVLm+ZHvAvQUxqE+VbsLFg/H+chDV+2WPv33tBFX2kI/d2vnDk2D+cjDYbL
LzxRs5yH3tJQl7vmL++9uTgvaUiNYCzaIjAX/aXhR/2RQim3OTg/aZA8tz5Y
/tNs3A/SsGuw/NJG/dk4T2kYakvZXZiog/tDGr4yU0usJXRwvtKg9VS9rueE
Nn7/lYat38yHjo+xcd7SMJqm947Hg437RxrcTf5ucO5k4fyloXL+k87Lziz8
viwNIfa3RcLameghA/DW5fK8XUz0kIEDPMtuH+1joIcMfNrRecXJm4EeMrBq
007Zkmk6eshA+6O4mYwIOnrIwHtvwxPyKnT0kAGPvAOT1Y9o6CEDoV8KFQc4
NPSQgTm9w+nWNVT0kIFvOumjY/uo6CEDz+fkan8SoeL3dxmYOBDZ+/EuBT1k
wFjOg6dnJQU9uNdb69+qW6KFHjJwd/2SzgRZLfSQgfht3gMCTproIQPyseVg
+1gDPWTg2ZDBhQMz6ujBff7xzl7LDeroIQNLIOxTxRM19OCu9/kW8f5Zaugh
A2ZimzrP7FVFDxlYK7p3IK5MBT1kQEfxkZKogQp6cJ+fcOP5+5vK6CELs09G
7syTVEYPWSj2rmZ0nFRCD1k4R9NbRx1XRA9ZSJwxDtnjoYgesqAVWp73uFMB
PWQhnHevRZ2zAnrIwk7319lf2+XRQxbifdVnUnfJo4csHExW5qz4LocesnDe
Zmb6lI8cesjCwF8vnp1/ZNFDFup5hDZVnZVFD1l4Kz1iX6wmix6ycPNC4tXF
T2XQQxYoox6T4itk0EMWLng43jBpkEYPWVCJKu957yONHrJQImB1NFJKGj1k
ofxdsCvDUQo9ZIFv5u6uwHhJ9JCFawedkjVaJdBDFp6/+rinU1sCPWThaPd5
43w/cfSQBftP54zj34uhB3eehW8HndTE0EMOgmopK8d9RNFDDh7XuCeYV8xC
DznwjWC9MV8wCz3kYOhy0tfWyyLoIQeMzr7IqUlh9JADTkJ1aeguYfSQg19M
tdH9n4XQQw4y9h3NurNSCD3kgPW70lguSxA95CC6ZtuPhwsE0UMOsgt7UzY9
FkAPOaiNkogT0xFADznQ/nFC78VDfvSQg/xJJ6uV8/jRQw4mHC4qPUzjQw85
EL+jIV5txIceclCmeXviRTEvesjBrFUvfhCbeNFDDqruue136eFBDzlQ0MxW
kT3Ggx5ysGje0nFjWR70kIPCyrILqfZ/OaSHHEzG9Joln/3DIT3k4N69iByb
9zMc0oM77xhdnVDBGQ7pIQ99sH21nvk0+Z/fROVh9RphB8NLUxzSQx4WEG2M
iOZJDukhD8/1B/oEdSc5pIc8FOwe87gW9JtDesiD+B/Z9rmNvzikhzwIuWz9
+3DJLw7pIQ8048PfJ69OcEgPeQhP3mAiOv2TQ3rIw+iTLvG3Lj85pIc8iNqO
FEuX/+CQHvLgXFq19avxDw7pIQ9H+1xV1VLGOaSHPOR1tL9OYY5zSA95UHVo
2Hk+cYxDesjDaRPWpUTVMQ7pIQ8+UWMLqq6NckgPeaiMLg9XVB/lkB7ycO9K
Hsfh1giH9JCHE8077c/pjHBID3m48kppdkL6MIf0kIdOv6U+R02H0UMeGNJx
x7TvDaGHPGwqfdCUVTKIHvJwJ5DiG/5rAD0UIIov3e6QzgB6KIDXyN8Fbtv7
0UMBOkfttiyP+44eChB+81JmfX0feijAgi9ilUzNPvRQgIWqEVkCu3vRQwFa
alepbk3vQQ8F8GWLzZYV6kEPBYhvsX0ssbUbPRRg/O7R3sUvu9BDASKr/rzw
lu9CDwXQza/c9eRQJ3ooAMPvSdmnpm/ooQDZhgErX5l9Qw8F6JWujNmZ3oEe
CmBx3V3yCbMDPbiv3/98b0hcO3oowNdNe77WyLajhwLYJprInrvQhh4KkPDl
ovJliTb0UIAqpqhf7cVW9FCATdkXFMwUWtFDAU7e6r8Vu/wreihAX3n7h2e2
LeihAA88W7uT9zejhyK4VOoIHYhqQg9FOLBix/DnV43ooQisyQvzM3sa0EMR
mOWWQtNqDeihCPrLv3uetKtHD0V4YFokQY+qQw9FqP4da1JcXYseimC38puY
jXoteihC6DE/pZvuX9BDEY4/HE6NzapBD0WYN3qwVFOqBj0UgTHJGVPcU40e
iuD8JdzCregzeiiCkiUnclTnM3oowmqBQfnbkVXooQhNAZlZjlOV6KEIfKY2
A0J7K9FDEfq2ST0821SBHoogHyTuVWVbgR6K8PPw3ZDwa+XooQjKwwu2Xoku
Qw9FeNQn730jphQ9FGF40Kw84EYJeihC+FfaQZ5nn9CDe/2Z61cKFH5EDyVY
tTRXa3vbB/RQghO/3+T18n9ADyVIOG6cf3xuMXoogUDaj4QfDkXooQSvjvfe
nnvxPXoowe2y8h9/igvRQwmcvtwLNRcpRA8l+NPuIN239h16KEFUQLBcXsxb
9FCC9RYGVfc7C9BDCeS9hixDlhWghxKEFl1YtjgqHz2UwKdlz6yEoTfooQSx
Ewcb42zeoIcSNI01TmofyEMPJRAPuVhWtyoXPZRgsVC9lwQjBz2UoCX95LZI
0Wz0UIIkD9Ptc3+/Qg8lWO4l5JE8lIUeSlBwQCe5dSATPZTggeHPgOixDPRQ
ggsLl9vG8mSghxJ4LuT7kC3/Ej2U4PKk+6XP81+ghzK8uHvN65lNOnooQ/2x
9vkM/zT0UIbpS/2PhB6moocyfAmXfjm35Tl6KMPIj2LaPpXn6MF9foFJ5g2H
FPRQBlUZka2GK56hhzJMJQRYnWhKRg9lOGltsfFN4BP0UIY4y37zjPmP0UMZ
CIZiulrvQ/RQhqhJ9fL7Tx6ghzIspJz3V/K/jx7KML5pVE/b5h56KIN7agX/
Nb27HPL/bylDn0pp+Gy1O+ihDHVXBRoTJZLQQxnU9l06nyVyGz2UwVnZ+A4h
fgs9lOG9y7azE0o30UMZDFYUatluSkQPZYg8xPfM8EICeijD4DG9VOPqOPRQ
Bot5ex6Nal9DD2UYtvS7Pnb2KnqowLuek8LN01fQQwW8HIVLrQKi0UMFArdq
zesWuoweKhCXO5W29sYl9FABs/Vv5zFWRqKHCqzpsdWf03cePVTAZEmcYYzL
WfRQgaOmGcNtY+HooQLhl/qH98aFoocKWPKmNlzaGIIeKnBoSZDha3YQeqjA
Tn+mz3qJQPRQgb0Vg+v8JI6hhwrcIizM61lH0EMFRkoLrj3f5YseKqD7V1mw
v/gAeqhA+5zF6ycT96KHCiiKuMW9GXZBDxVYPWqv4yTqiB4qULitPdl2jxV6
qMCDUub26W8s9FCBhr2eMk18JrmkhwrULnByU9izIZf0UAHHOQGra5qdckkP
Fches63mzIhLLumhCncsM+fK57rnkh6qIOkR/IKxcV8u6aEKFipeI/ebD+SS
HqqwNlt198UJ71zSQxUeaR42DP/tm0t6qEKkh/nk2m+HckkPVUjR63G+nHkk
l/RQheA70gHih/1zSQ9VsH+nnuJKOZZLeqhCXVzCyIoXx3NJD1UI77AvsTI4
mUt6qEJl5MYCadvAXNJDFd4/NlZO/huYS3qowlw+FffVd07lkh6qcLBHbJEO
BOWSHqpwIKZWLO5zUC7poQqh4sOxX7cF55IeqnBpZuqhcXtwLumhCk81GJyf
TiG5pIcqWL6mRZpXheSSHqrQ2ydPPUScziU9VMEwRvJt5t3T6KEKLSneSWsF
Q9FDFY5USNt7bAtFD1WQ2z6rYe3zUPRQg85rR5PZf0LRQw1WRAyXLFgVhh5q
MF/2aX58aBh6qIGcefLDuIIw9FCDBUoBsO13GHqowQ+rhm6FOeHooQZ9+gYp
Q5vC0UMNtKO/7VAODEcPNfi2aWng66Rw9FCDJfd2OfK/DUcPNXA/vVRSpSUc
PdTg9WjiGcaPcPRQAy1n4ZtrRSLQQw10LkbzZShFoIcauIaxbcPpEejBPX4l
UL/NiUAPNRiIyJrqXxCBHmrwfpP9vncLI9BDDWz4dEXO6kWghxr4B//eu2Ne
BHqoQZbjnNUurAj0UAOz8RG35+oR6KEGcyql03ZLR6CHGhTZxy69zRuBHmrg
+CVA99hwOHqow/kUoSmp5nD0UIcdFL1lh4vC0UMdSk7W5Hx8Fo4e6pCW9D6B
FhOOHuqwfrpoXox/OHqowwjFXcbI6f8e6sDwzF08m/N/D3UIXiXe6Kfxfw91
GMs0jdWfCkMPdRAd9dx+uDYMPdShZRFPkF1qGHqow7JOmRfNZ8PQQx0E5vsq
MF3D0EMdehqy5hgtD0MPdShqpA7ry4ShhzrsVfMoU+8KRQ91KBS/9FDoVSh6
qANfyMGvPOdD0UMdftlvXau6PRQ9uNe3/Py6nQtC0UMdBrwiP3TwhKKHOiwJ
i9J5VvH/PtRhzni8W8WN0+ihDt03MoXtvE6jhzr4q4mzzIxOo4cGhH6o2p86
6zR6aIDbAes5d76EoIcGrLz5ZBkrKQQ9NEDHJkdlxf4Q9NCAX9Q3fQLLQ9BD
A87H8u33EwpBDw24+f6oZGJlMHpogHaKeX1YQjB6aEBxldGZ5buD0UMD3rPn
RuTrBaOHBhhMbhqgTgehhwa86n1+0vV9EHpowLV9yjmRkUHooQE8uiF1yQ5B
6KEB2cHsnALG/9+vNKBvf6D0l8FT6ME9/hanRYOZp9BDAz42Va+RCT6FHhqQ
Mr1Ad5XVKfTQgJyfpaEXlU6hhwb8FhvI/NEWiB4akHE8YPjYk0D00IBA4TLK
7MOB6KEBHGUbIT7TQPTQgA5xXe1ZEoHooQmijp/SwlJOoocmyDu8Oeq5+iR6
aMJoWWdwccsJ9NAEfuNM+6RDJ9BDExTr9ygJSJ1AD01Q3ZgWO3L/OHpoQqRQ
1AZvk+PooQmtb8e8zjUeQw9N2Cpik7/q0P8/PzTB4e7iz0kyx9BDE1aezGx7
nByAHprwKq291dkiAD00Yfyi0InSbn/04J7vpRBt+LQ/emjCs5rzY2UMf/TQ
hGyLJfX73h1FD+7xJB8GVLgeRQ9N6Fx5Y/Wk4FH00IQ7Bb37B+8fQQ9NmNft
OPTM4gh6cNcj/+yMyeBh9NCEPMrmqrtRh9FDE3wFrBlflxxGD02IZlQkDzUf
Qg9NaPHj21cfcgg9tGBryd2FiXMPoYcWbLt+L4mo8UMPLbA4/sQw74QfemiB
9fUEc00dP/TQgpgLMlNO1f//PNeCu+eLN5wM9EUPLbgWI7AoeJ4vemjBueDu
zXsbfdBDCxZ55zstPuODHlqQ9XRjzrdlPuihBR7b1T8f6fNGDy1om+3ZNBLv
jR5aYCX37Pf6dd7ooQWp2SfnX+b1Rg8t2LDx3e7XLw6ihxYccXzjXbz3IHpo
wekdmiKvKAfRQwtsNUeLLtYeQA8t2D6Yutz84oFc8ve/tGB5j25t5+oD6KEF
x8oP/XblPYAeWhDBG9p49vB+9NCCdMWkOqlBL/Tgrnd1gIGdmxd6aIGI/i3N
Ta370IMCJlOx1xS37iPXI0gBr+U7IyPrPdGHAmf4h0sLNnuS65OiwDPqHZ7H
9R7oRYECocevzbZ6kOtVocCqaMcjl1v3oh8F+NRCr15w20uun06Brsos58WD
e9CTAq8kAiVOH95DzkOXApyA8y/9+fagLwU6bva6y110J+ezlALmPeIaazXc
0ZsCkft/ZFGTd5PzMqXAtraFipc4u9GfAq0Xe3/FVLqR81tLAW+JUtUFbm64
HyggHijL3jK9i5znJgo4djhkS0bvwv1BgTV+V/ZZzdtFzncnBdpPNhTIFLvi
fqHApwyO4WZXV3LeHhRw2n5jjQafK+4fCiS77nZwuuVCzt+PAukPrKrlTV1w
P1FA/4a4PHxzJj0CKaB8VO5gY5gz7i8KZPPpGXfMdSY9zlBAwW1p4YbPO3G/
UWDw9w0bnYCdpEc0BdTMVdk7GDtx/1HA9JhO2HjZDtIjkQLVlskp7f47cD9S
oDvJo5WlvYP0eECBcI52kn/ydtyfFLj959ixlRLbSY80CrieKc5L2r8N9yv3
cc3HXyOrnUiPHAqsy7VdL2DkhPuXAo/KbYN/3t1KehRRYIOUz+h22a24n7n7
SfGQ4rJTjqRHJQUuZ9Z6+o864P6mQItn8GF1NwfSo4kCaaLBOUpNW3C/U8BZ
5N4nV7stpEcXBRYGUBdPl23G/U+BOEmd6C+Wm0mPYQrksk+d6f+4CXugwE4P
0QKDtZtIj0kKNNeYDSSXb8Q+qOCaUFdkYb8R+6DCXP4pRaFme+yDCizHHw/r
3OyxDyrIbAh3eD1qh31QQeiTvcT9QDvsgwohditSo6XtsA8qxJ+pXXn89gbs
gwoGHlElWww2YB9U6GsAJ3qJLfZBheEjlkqfXWyxDyo0fefRdp6xwT6oUPCx
8cOHWBvsgwrL1rxbyW9gg31QofSN1aBwjTX2QQViw7BOpZ819kEFgRucPZuV
rbEPKkzGz9+se3Q99sFdr+QTXsnCddgHFT5UjoqskF+HfVDBauONwjduVtgH
FXyE9ZL9s9fm/vv9VQ8qbK212uCqsBb7oMKR/D97Dh60xD6ocNO/K/9KhQX2
QYV5j7wtChdaYB9UiP4hJDt+1Rz7oMLdrQwzRR5z7IMK5jxn9Ckea7APKgzW
2pgJ1a/GPqiQEikimmO+GvugQvPQG51lOWbYB/d8zbQD+/XNsA8qSK46VGT3
ZBX2QYU/Px8ua2Gvwj6okP1o4zDPvZXYB3d/WOcuSmWtxD6okFFRtL/74Qrs
gwp7d0/oxMxfgX1QYekzF7H0DFPsgwqdF+43GpiaYh9UqNSsPCVfboJ9UMHo
iZXAim0m2AcViieqwjOHAPugwqyyVXYewYB9UIGtlPjRRgWwDypo/oxsfudM
kB7fqSC1V6yQfZWDfVAhy+ViSVa5MfZBBVGWSqq7uDH2wT3e9v0HaFZG2AcN
QjdXcmouLcc+aHA26Fbk/gZD7IMGXmfFFVpZhtgHDX7NS36pcHgZ9kGDtva5
8X8/LsU+aDDvRhvtPG0p9kGDL0XuPcnHl2AfNNA6RbyxaTLAPmhwM3hzpjvH
APugAVx5ptSRtBj74F5fZYPTc/HF2AcNShqvmb47sgj7oIE30+WFeI8+9kED
5e1DTQEO+tgHDQ4bvVXkr1iIfdCAkpTx8/KahdgHDYpdA80o7/SwDxr3+4Ge
YJypHvZBg8m2t25jbxdgHzRYzrr6WXPNAuyDBseie8s1EudjHzSo0qJ2ez7X
xT5oMOuCzKj0x3nYBw12OH9yGO6ei33Q4IXfgqER0bnYBw1cDIa/Ti+cg33Q
YGt7UN6v7bOxDxoMtNJPlV7SwT5oYOz66bBLsTb2QQPFQ2z7JH5t7IMGpVHR
2odWsLEPGij9VNhWGMbCPmjQ8dIqx7+CiX1w/Wt93QM1mNgHDTJ2bGh848XA
Pmjw8fHSPtY7OvZBg9TRsTfXNejYBw1sV5S2SQfQsA8azB06wfBsomIfXO8L
81/Em1CxDxqUpXjKnXtEwT5oELGeJTNbiYJ90KB54cakQkkt7IM7v42Wl1b/
1MA+uOuJXOz94ps69kGDcatK9+/1atgH93hFFxa+r1HFPmjQteEKk16ngn3Q
wHLNB93WVmXsgwYCp6vLG4eUsA86hFToafwQUMI+6HBOeXm2GEUR+6CDb6ph
219QwD7oUPz6pFXqbnnsgw5LHvlZCUTLYR90mNTJe1lbKIt90CFuk12X5IwM
9kGHpIN3cs8tk8E+6GAg+fruogBp7IMO6k2VQjXBUtgHHdi9rSeYapLYBx22
ZXucZGSLYx90OHOkqyTBTQz7oIP/5VaKg6oo9kEHyxXHWDq1ItgHHW5/GDhU
myCMfdAh+wVfjL6HEPZBB5jzfFDcVBD7oMMC82fl+lQB7IMOihmy7kdF+LEP
OgT4/Hr7bIIX+6CDdteiDw8HebAPOmyKVXY/1PA3h+yDez383eyDXTM5ZB90
kDmYGjnIM51D9kGHOcTQZJzOZA7ZBx2eCDvZMnb8yiH7oENZxycpwzs/c8g+
6PAqfXTh+R/jOWQfdPAI3GhUsWEsh+yDDlsaTdkZuSM5ZB/cxw98dplYPJxD
9kGHJgON2xe9B3LIPugwDDSv/Mi+HLIPOtxruhI0UdidQ/ZBB8bYtZH7Mp05
ZB90ENCzPm7p055D9kGHtjgfldfVX3PIPuggusXbJLO/IYfsgw6u3/ZGXZz3
JYfsg7t/PPIWrY6pzCH7oEPEl93h1ZYfc8g+uPulfsZPJiM/h+yDDglnfX2b
61JzyD7oYC07fGz8VmgO2QcdoufdSQkye2hM9sE9/+rvSUqXXhuTfdDB5EVE
14bpd8ZkH3Q4kWbecGvwkzHZB9dj9P7UGetKY7IPBjjwxvLfOVNtTPbBAPtV
Gtku92rx10MZoO5CyT9/p8GY7IMBN1X23W073WxM9sGAp3KWQeeZrcZkH9zH
Ha0+HvFvMyb7YMDY+L148YJ2Y7IPBvg7vxG8Nd1hTPbBgLboCc652Z3GZB8M
uCT96wltbZcx2QcDWHI/+l/u7DYm+2CAd2th4zWPHmPyAhnwIOTbddW9vcZk
HwwwXLP+fqhTnzHZB/e+jNVbHbPvxmQfDOiakVdfx+g3JvtggKPXFlOjX/3G
ZB8M+FbyctHyggFjsg/uPKyEdkcGDRqTfTDgfV/0h5PLhozJPhjgOsSpsOwe
Ij08GHBCKzNb1WyY9DjAALO6kNmc6GHSw48BKU1XVs1vGSY9/Blw2tHnoDhj
hPQIZIB2qLvr2K4R0uM0A+5m5M/mvTNCLvcMA359mtGxbRkhPS4y4F3lKJ1P
YZT0iGZA4NKuZXPXjJIe1xhwKyF2qO/wKOmRyL1++1W6m++Mkh5JDFDtu7L6
fOko6fGAAZlnI37dHhslPZ4yoDjP2vO54hjpkcaAiI0aRIXBGOmRyQCLz12B
inZjpEcOA/7upWfGeY2RHgUM6M/y++YdOkZ6FHHPv2H9qfT4MdKjhAFpNuHh
vk/HSI9KBijy9PsW5Y6RHrUMqCt9tTK/ZIz0aGJA3i3qMb+6MdKjjQE2L+6x
J9rGSI8uBmionGvZ3DuGfTBgmF+78MngGPbBgGRx/YsCo2PYB3d/+IoHHRwb
wz4YsDVh/JAA9z7ZBxP6y42bS4fHsA8mpPv7ZDf3j2EfTMgdP/xyRfcY9sEE
55nYWVKtY9gHE+JF46PW1Y5hH0wQj3hdJl06hn1wXz//UbNL/hj2wQSZ4KPB
9ulj2AcT6h6Fzh67O4Z9MCHl5eZO8xj00GeClvfhA26n0WMpEya+LVtk74Me
xkxovHHOjLYDPUyZ8HPkmWe9JXqsZsJ81qB6qAF6rP3v9eaB+hT0sGGCXB3D
t18EPTYx4XRyy9nXw6PYBxN2xnjKPq4dxT6YELO1V6wwZxT7YMI7Xc0lckmj
2AcTLAwFpG6EjWIfTNi9kCg56DGKfTBhujnSLXrdKPbBBLv3q2Kk9EaxDybc
YMTXfJcdxT6482FoOuuN/78PJrjGC3B6qv/fBxN0V53UU34xgn0wYWWyYElx
9Aj2wYSPFfG7eH1HsA8mRF+ToXywHcE+mMBvYdTD0hvBPriPD+scpkqNYB9c
z5l1G/L6h7EPJiRIPK0U+jiMfXDPJzGp+OfeMPbBhLCsVOXHwcPYB3e/3F+e
KLdjGPtgQkbzgImx0TD2wd1/agzvecrD2AcTVIuCv1Vx32/IPphQkbY3oz9x
CPtgwuoFPcap9kPYBxPuzXSKzBPH96suJgyuWujoVjCIfTBhc7njnN1HBrEP
Jmx5GcJcqjuIfTBBoXpOclvHAPbBhJrJ/haPawPYBwsY85dGtawbwD5Y8ECI
x9FEYAD7YIGh9faz8Vn92AcLGnQNFo979WMfLDD6mDvHlvt+TPbBgt2vVQSz
679jHyyQdqhSW3rxO/bBglIJx8iSld+xDxacKzplcXKyD/tgAf1906R9Sh/2
wQLb4vnqG936sA8WJJZ9GA9R78M+WHDiQuPV7qr/f36wICvjfVdQRC/2wYK1
89yiHKEX+2CBms169UMTPdgHC7qCxOu+PO3BPlgQOmLdf8qtB/vgrreJaReg
2YN9sCB4t0zr+y/d2AcLwhWWLHG/2I19sGBMwbvOeU039sGCPJ89aq94u7EP
FpRYJuodfN2FfbBgNs2XfdavC/vgzt9Xv1N0QRf2wYLhJKEFY32d2AcL7q8f
eWR2rxP7YMExTkGtsHMn9sGC/oG/Sss0O7EPFnxoK09uaviGfbCgtbQue/zq
N+yDe/znWpbB9t+wDxZk87SanJH7hn2wYGvfNi+xqg7sg/v61qwgkUsd2Af3
/v4UxWDrDuyDBVLH9jw4Jt2BfbC4P08uuv6zoh37YIGA9wrT0Uvt2AcL7tzZ
XXpgQzv2wYKPD984+Si0Yx8soDh6TU/WtmEfLLBoW35dJL4N++DulyWrta5v
a8M+WLAg/45VFq0N+2ABj/jfr07drdgH16dwYcDZJ63YB3e9Qt3PTb1bsQ8W
iPyiCoYsbcU+2FDcnvbhxp+v2AcbVusL7bQ6/xX7YEMzob9fRuMr9sEGi+U2
vv3JLdgHGxx3xVe1EC3YBxs49d7lPVXN2AcbVilsiRbd3Yx9sKF6y7f5K6eb
sA82fOB9GnMlqgn7YAOMGd75o9OEfbBB2LxF7WRBI/bBhkTrmIeKWxuxDzZs
nelof/ezAftgw/uBhNURUQ3YBxvoWpmmLvMbsA829HsozLEtrcc+2NzPG2Kl
vWc99sGGwIA5eR7i9dgHG0oEBl5FJ9dhH2wQD/BaVb6+Dvtgw54Sja2qY7XY
BxuOuF7t971ai32woWbu2ppmo1rsgw3z5tC7NnR8wT7YMFOt2FZz5gv2wYaY
BWX+zvpfsA82CDboOf5qqsE+uPMVmNGICavBPtgQetZig6F+DfbBho/zNQM7
vlZjH2zYLt6nGXm+GvvgrsdZ+ibHqBr7YIN+yc69A98/Yx9suNl9tTEu4TP2
wYYLV0vWrFr3Gftgg1LHwJ8+ns/YBxtsL+iuOJNehX2wQfuYzwbqnirsgw1B
/TluTzWrsA82uD6MSp5fU4l9sCFMf5tt0rlK7IMNb3i/HBVeVYl9sGFJx8YV
Dn8qsA+uXzR8uJZZgX2wIS1hHfWdTwX2wYYDhwe31s6vwD64+8+BJZdUX459
sOFYirjzTvty7IMNsdv3pXVWlWEfbDCwEJGca1uGfWhDt4mcz4LPpdiHNqS3
FbcM2pdiH9pQ1z66xqWhBPvQhmjhA3cjdpQYk//+Xht+vXzxzannE/ahDQ93
WY03HvyEfXCP126V93f6I/ahDSl3KnQLIz5iH9pwU9dltrbyR+xDG57c9Y1l
PPiAfWjDlqd5214u+4B9aMOHRynO9SXF2Ic2PPUqjojYWYx9aIPtqamsgoki
7EMbkvgkGwIvFmEf2lC8pr8yT7sI+9CGakueswFv32Mf2mA9Hjz8bPt77EMb
1uyoGNo8U4h9aEPFwkdHvBMKsQ9tYPCdPf7LqND4f01fxrc=
      "]]}}, {{}, {}}},
  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.2}, {-100.04665415263014`, 25.296542809650177`}},
  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.8871918623069468`*^9, 
   3.887192019997608*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"685603f5-966e-4f91-8357-f06412740c0f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["PlotMM", "Section",
 CellChangeTimes->{{3.886895628955553*^9, 3.886895629618394*^9}, {
  3.8871919782971354`*^9, 
  3.887191978461897*^9}},ExpressionUUID->"b0f49f4c-747b-468f-9234-\
1c780f4147e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"numList", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{"amp10MM", "/.", 
        RowBox[{"\[Omega]", "->", "ii"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"zv", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "$interval", ",", "$finiteSize", ",", "$interval"}], 
      "}"}]}], "]"}]}], ";"}]], "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.88719187246351*^9, 
  3.887191877601544*^9}},
 CellLabel->
  "In[147]:=",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},ExpressionUUID->"e54d6a03-9b74-4bd4-8eb2-\
ffa697a7a321"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"num", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"(*", 
     RowBox[{"time", " ", "domain"}], "*)"}], 
    RowBox[{
     RowBox[{"numList", "[", 
      RowBox[{"[", "ii", "]"}], "]"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", 
       RowBox[{"Length", "@", "wlist"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 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.887191882579153*^9, 3.887191883546378*^9}, 3.88719196739039*^9},
 CellLabel->
  "In[148]:=",ExpressionUUID->"af1e839c-43de-4aef-8161-06696fc6aecd"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw123c8lf0bwHF7772dfZAQiRL31VYakkobSSgyQkYSyaqoJKVCVNqREolS
Emkrq7KzR/b2O0/39fPP8zrP4b6/3+v9/RzOw0N1PGSzj4eLi+sNHxfXf/8M
knuwqjHwBLHBTzx/r9l2IB8nEJ7nh9jMgjXwTCOia+Oza0RjenmCHnUpPp9B
fBULpaanmMHlS/993CYueHPLGB1cAHn/Pv8BcWS37NRovyFwHnD+TRaR52oY
kOhlgF+fQyToxS9N1JwLIlXpnuYiucTBKPfddno68O9yl/KIk8F/xkI/s0F7
Z1zxsFYBYdv44/n4Lyaup5D4LaBmxreYARmcr65Kf0nwaZUeVa6mQfe/+70i
4u1fJU1mUGG+0X8fr4nmnbuNBpMoeP83xHe95lsHtmnC62Etzh1KiD6qPfee
J+og+m89pcTC/fsWyJirgc2/G74jPH+mLrjToYL7LSMutvUF3XmiDE2B/12w
nJDgV8tKu6KE660gnA/+Fuu5rAhe/y3P8wOxxLA9IPa+As7nI1FKsf47+UUe
uP59fCbKtqa30gXkcT+fidGITefNLOXAsvG/G3whikNSHhYmyuL+vhAPeDN3
2/fLQHzxfxv4ShSo7LrJbSsD/7Zr9I0Y3lhVdvulNPzbTtU3gmv9kEaosTTu
v5IwVj4rWpolBZr/LUfjO2ER9rKrar4UzuM7YSqv7UgES8J+5/8+fhBvsvl0
TS9L4HyqiEqzRWezi8Xhv6vJPagiWp2Mu+uHxHBe1UTKyxtrBA3EYOS/yw1X
E4k3KBlhPqI4vxribXtBUEGhCFj8OwC1RFi6a+1caRGcZy0x1rHw/E43Yfi3
vIg6Ysz4WklNmRDO9yfxO/LxedAXgg8V/338JHyK4/iMLwvivH8RWV9qRfeK
CIL8vwX+Jlh27KyjxwRw/r+JVHCzsRjnh3+X21lPVL7Lmt7rz48eDYSTTN3v
7HE+3E8D0fQ5snDwGB/6NBAx17njB4X5cH8NhJCljFj4RV70aiQmMmlb/bR4
cb+NhLD8vKyMAh70aySO39mr176JB/ffROhOs/3Ve7nRs4mw8Rw5Q4/lBvJy
TcTXXX2pdTrc6NtMPJZM/6L1gQvn00zcdDso3+/Fhd7NxDuNWhElZS6cVwsx
k+qUJR0xS5D+LcSD9q0adj9nCHJ+LUR1r7BSjckMQZ6HVkLp7PrigxenCXKe
rcT2hQZBPRNTBHk+WonR5x2PTBynCHK+f4gffvHPtT9MEuR5+UOI/pLMTzeb
JMh5/yGmrGjekfcnCLL3NqJg75ThM9oEQc6/jeje4JKvkjxOkOepjcjMkFe7
oDBOkB7tRG1Z+x2JC2ME6dFOeEWqtBxSGCNIj3ZiYP70juuXRwnSo52oOLjk
Xjx1lCA9Oghf3qS9rLsjBOnRQWR5nhvZYDJCkB4dRHPbjayJkmGC9OgkNsma
3pPbOkyQHp2E+LdrBac6hwjyfHYS8dEzB21ChwjSo4s4fGiof7PSEEF6dBGR
tCnVqOxBgvToIlYYHrerXT9IkB7dRN6nMykWPQPo0U1UCEp73To9gB7dxALJ
KxWCBgPo0UP80Hmos6nyL3r0EIJ3XP2OBv5Fjx4ix+y2YBDtL3r0Ek43o69C
RT969BK3kiy2vfbvR49eYqYZ8sYY/ejRR3jzn9O+f6sPPfqIqASa/k2hPvTo
I3qXPAkqO9iLHv3Et7+70vgqe3A//cSJfflvVlj0oE8/0VNqmxh0txv3108c
veS69oJqN3r1E0lskathZ7pwv/3EqaUXnhnxdaFfP7HFPnT5peBO3P9fwvP9
gS0Zox3o+ZfwaAk+tNK3A+fxl7hTN+7vxXEnff8SbSm054pH2nE+f4lB8WXN
c6bb0PsvcTF3Yjj1RBvOa4BQqHtq7SbRhv4DRLPjjhtBl//g/AaI8BnF0Xda
f/A8DBCbLztfXJnXSpDfjwaIm/cM6B1WrQTZ6wCxdFIp9EZDC853kDh9s63G
078Fz8sgMcddIRWkWnDeg0S/RVC4yN1mPD+DRMwWycNvVjXj/AeJav0v15z+
NOF5GiSaKooONJ5sQo8h4ur3nqB52k3oMURULrh7y+pDI3oMERKTr6dYPo3o
MUQozP1WkK/SiB5DxLpbmTtmXjegxxBR8ebl0Q6PBvQYIqwnKkZ8VBvQY5i4
Wp0UP+d8PXoMExlr98OZgd/oMUwsWLPiIdfm3+gxTIQ2Wzf75P9Cj2FCV589
v4b2Cz2GCYmEq5a0Mz/RY4TwNzwnt2SqDj1GCGXzrz/Y7nXoMUIEMOQVyxpq
0WOEkIoWzVDcWoseI8TIaOhZgc816DFCiJyIWxBtVYMeo0TNjpY558uq0WOU
+BUlt0ZpTTV6jBIi0tyZYh+q0GOU2F64+pKTTRV6jBLOdR/uydX+QI9Rgtd8
0V1ppx/oMUZITaZfsO7/jh5jhMtS/Yy3Id/RY4wwePxquavkd/QYI0xKipT1
rleixxixJKdyTMSkEj3GiLPBbzqGP3xDjzGC6reK2er8DT3Gid30PtlP3N/Q
Y5x4+kF23Z1rX9FjnLgdV37B3fwreowTbzyb6yV/f0GPccLEvM8yKvQLeowT
IW/XKn9kfEGPCULH2/R1dfln9Jgg9B9NNKZ4f0aPCaLuRrepqtpn9JgglJbs
3xdx5hO+3kwQA/6VL9XaP6LHBNFyMPNv9/KP6DFJZD/Uf/gn4wN6TBJSruNj
E4If0GOSOGGwR17VowI9JgnxTwrxplXv0WOSuBX/wXTFsvfoMUkklFdQjbLL
0WOKKIFb14bo5egxRQgp9y0NTipDjymiV3yooUCyDD2mCKOL0VG3o9+hxxTx
6WVlhLHAO/SYIlTdqfa2EaXoMUVseVVYPS5Qih7TRFVIU4dy7Fv0mCbEJc6X
ZEq/RY9pIp8nqfLy5RL0mCbSmz2ftDBL0GOa0OKxMQt6/AY9pgltA7b7pmVv
0GOGsGJeOeH4/TV6zBASzjo9V11fo8cMcfa47rLJ2WL0mCFsgkdsPJOK0WOG
YMKg4qBhMXrMEIu73j4P+PQKPWaJzTW+FybcX6HHLLFtebzWQYlX6DFLmG93
ZJQ8eokes8SXW1p7p2xfoscsIexz9qv0SBF6zBIlt1TLXq8oQg8uiF7/bct0
UiHxb9xyXHCxxOvI/b4X6MMF65UUA16vfkH8G5c5F4zxNfXr3SpALy4wYse9
rhcsIP5t15kL2hQ1Nd8eeE78204gF3jahgd+/ZpP/FtuHBfIvNqYMLw4n/i3
nHQusL4S4kW5k4evF1wQlae2c7lKHvGPt4ILquvoTTann+F8uGCNiHmlOe8z
gnz54gKrvITlo0G5OC9uSMjIjvAafUr8u5wGN2ibbtVO8X2K8+MGlvPuWe+R
J8S/8azihqmyW3INAU9wntwwNsabXTObQ/xbnic3jDaxdmyKysH5coMoM+UD
yOYQ5Psjbnhm+HX2QupjnDc3+C+c1lxl8Jj4t91ibujLWHTesjgb588N6tqn
hs5sySbIH0+4IXBRh6xkTxZ68IBw3cbhFxFZ6MEDx260foqnZKEHD8yfnRE7
+uIRevDAnB02q47sfIQePHCmn5bQP/EQPXhgqxiT8gceYk88YGo6EvEi5gF6
8IDIr1+H91bfRw8e0NpzYuSN9n304IFfUnvcP4XcQw8eGJ9HP+9ZdRc9eMCg
mvBPNLqLHjxASdl9VP/8HfTghRXTnTt0Rm6jBy/MqKeq+O28jR6cn9Mp6tI8
bzPRgxcOJx9rfWGYiR68sMGKL/bS9VvowQvBb+9DhPwt9OCFz9S/cV6xN9GD
F6j7XKw28N1ED87XP4k5LRl6Az144YGyW276TAZ68MKTV36Hpo9loAcvLMxe
lSrBl4EefOD10sW/LCYdPfjA7PVcJ4pcOnrwwZPGGAWB1OvowQdKHX+Puutd
Rw8+yD87/93qojT04AOBawfsz9ikoQcf5BQ09ei1p6IHHyQqC2/SDE1FDz6I
iHS+t0klFT34IHK3Tkqoewp68MHj3ccSHt+5hh588GjeqmLt7qvowQctBw00
Psy7ih788FnOSCgq6Ap68ENN0wPLFWXJ6MEPNx+elehXSUYPfqitj+jx8byM
HvzAeqj1s6DsEnrwwzNTS8Nc1iX04IdMFe1bGyKT0IMfjid82+DTdRE9+CFn
dv9VyU0X0YMfroYH7pApTEQPfnjT4vvAVTcRPfjBwYZfhu/aBfQQACnZiK2f
ZS6ghwDYDAVkvIhJQA8BuLVH0us5fwJ6CID5ePLJvPDz6CEAFvd0Z27xnUcP
ARAWUSD8o86hhwC0NMROK0qeQw8BuN5vsTAo6Sx6CEDHda7F5xhn0UMAeu8f
TFr/OB49BEAtOknr+vJ49BCAzPlnlWcexaGHAKQJb7F9+OsMegiCGo/BJnPJ
M+ghCE/XP+w+veI0eghClU5tQGToKfQQhLvZH75JvYxFD877agXXjdJ8segh
CD0zPCWea2PQQxCOz2gFKl6KRg9B2FLjYtTbEYUeggCRdK3fFlHoIQj9Ra48
Xy5GoocgbO5q/Plo6CR6CMLJDbngsvkkegjBIdtz9Ka8CPQQAv9nl1qFaRHo
IQQi8cEb3p8+gR5CkNZ1Il5mOhw9hECA6/HiikPh6CEE2+83rGltDUMPIXi3
pEfGak8YeghB1ea/Vl11x/HnASH4kRIokrPjOHoIwf7kT4Xnf4eihxBkDSwy
CnAKRQ8huFdaIHer9hh6CEGhq0oQYyAEPYTBs2nHgjWSIeghDH+KV8aMzTuK
HsLw1iRgt9T2YPQQBmWanZlPZBB6cJ7vElnFmx+IHsJwuv7E0vS/AeghDOLl
yScX6AWghzA8uj+HO+3QEfTg3M96lWHpE3/0EAZNb1/tM1z+6CEMOW4TYXUb
/NBDGCbE9fZdSPdFDxGwiPt19PrkYfQQgTXmebMdWw+jhwi4NXxI2fTMBz1E
4FKM8PlSNR/0EIGozPexehHe6CEC+YzQXK+/XughAjMHVxQEOnihhwjk6F59
avTdEz1EoPk02yRyrSd6iEDG7S+hL88cQg8ROLvJMNo21gM9RMD5/dTK62fc
0UMEtnmkWIclHUQPUXjeuULyY+YB9BAFu/63+XuK3NBDFKyTMjbL/HRFD1HI
Nta8/WrGBT1Eoddi+5I1bBf0EIVNvOddozfvRw/O9epdtHZFO6OHKKy+sWBx
RvE+9BCFa33Bihbc+9BDFG7J7folssIJPUQBfBi7u07vRQ9RePC1TfZVnSN6
iMGaOD1NDz1H9BADN+v7y75HOKCHGFzhlWqtabRHDzGwqvvKa7/UHj3EIELD
9nDS+j3oIQaVFv1egtTd6CEG+VkZ0dWTO9FDDKqLWM7Vv3eghxgY8Yx+qCzb
jh5icED1xdUrBdvQQwx+SxYWzz61Qw8xcC87aPzp2Vb0EIP2TXJDP19tQQ9x
mNmTPD35ZTN6iMPFFPu1XB226CEO7bH6XwoFbNFDHOrmrPMQn7MJPcSh2OPK
QPFmG/QQB54nNXK5JzeihzjYa/R4FL+wRg9xuOd7cyB4eAN6iMMBLxNx0aD1
6CEOC+0nj7aKrkMPcRix5TF9c8sKPTjrkQx6Z79+DXpIwEy53Xq/WUv0kIA+
a6r3q/xV6CEBUbebdnGFrkQPCaDd2/BkYP0K9JCAtaU8Z7axl6OHBFy3/bN/
VGgZekjA/Q+vmPGDS9BDAmrNu/g7/gB6SIBZkumCsyUEekiASVBlTM8Hc/SQ
gKHrL7cE/DFDDwkwzvV3LpNYhB4SkCp8fuzwSlP0kARno7eP5E8vQA9JcLij
EruqaT56SEIT2+1T5goj9JAEaokCf+3TeeghCR1Zs3+OGhughyQwWhwfeofN
RQ9JsKWk3XV+rIMeknDFJ6hRe5qNHpIQHNwSKLOHiR6SsLOGfTGwmoYeklB4
PcT4pQsFPSRhuas6xGiooYcUWN+48eBXoiLuRwqenf02uXahLPpIQWiKjuxe
YQl8PycF/Tpee6r6+NFLCuxLvbfGrJqyIPcrBVyfNL0opzotSD/O48icquYz
2YXk+z/O5/+VWy4m21tIekoBJf9x/OM9U4XkPDjPt0Ur37/IV0T6ctbH199M
KxQpIucjBYvTv96OsZEqIr2lIMlx3llttmwROS8p2Ml7quvTL/ki0l8Knj6i
8Gz3Vyoi5ycF88uCiq8NqRSR50EKNJ7u/3loi3oROU8pEFq9pP7SVc0i8nxw
7i+wY453K6WInK8UOHj4D0b1UYvI979SMPVGbr5nD62InLcUZCo3hZ6opxeR
50cKxo7vplHeMorI+UuBnU8lLTmNWUS+X5aCygbpHVberCLSQxqsd/8OOWHK
LiI9pGEmwkA7aYhdRHpIg28lvf37Ta0i0kMaKvUeWcZu0C4iPaQhzJzRxNun
XUR6SMOz4r0O0RE6RaSHNNRJdJ3fKzuniPSQhor7Sd7VSXOKSA9pcHe20NVV
0C0iPaRB79qEflqsLnpIw6+5O0yOjOsWke/fpaExe411/5656CENxbvL/qws
mose0jCyyvtjrqIeekjDuvkfrY666qEHZ78/Dqt/ztFDD2kwODR9om1cDz2k
ofp10YZxU330kAaXDc71C7310UMaRpNsDH/e0EcPaQg+U9klXamPHtLQVGy8
U3RaHz2koT5n7ZsgKQP0kIbHA3bKPBQD9JCG+7tY/XpzDdBDBiZ/bf+raGqA
HjKwoWpS7ysYoIcMFEr1sL1XGaCHDMiIHXkvutYAPWSg/2NGcPZ6A/SQgWti
Z+QDNhighwyIu6Z2enGeJz1k4NhI6YcHVgboIQM8q05JL+Fcn/SQgQ5X1VML
lxighwyc0ll+OXOhAXpw1tO6h3bNwAA9ZMDJUveiNssAPWTgrOWFiW0qBugh
A4m3DzWYixughwy8yLZsesuZF+khA75tl6of/dZHDxmw8AzfYvvi/x4y0OBn
uOr9pf97yICoxfxveof/7yEDE1oW+y6u/b+HDKzsqH2gRv+/hwy47Jy+931U
Dz1koC414F51uR56cD6/zWm92RU99JCFnLCdp2QO6qGHLCQ/zSnwXqSHHrJw
4FVc4iFBPfSQBemUX8Zq3+aihyw0TyzXjL06Fz1kgVo2vOyj81z0kAXG1D7+
Ub256CEL796OmSqM6KKHLNj9ip+zuOD/fciCLE3ixpHj/+9DFp6p53bVrvh/
H7JgP3Km1EtYFz1kwS/xYoRVxRz0kIVru7gnfc/MQQ9ZqBa0jJrZMAc9ZOF1
qLnagNQc9JCF0ec8Jru+6KCHLFSG93VbndVBD1lYV+XSUWatgx6y8P7NTa8m
SR30kIVjDa77Uz9qo4csLM9NtZI4rY0esrDj/DQssNJGD8562oIlaMLa6CEL
xTk/qXVvtdBDDn7M5z/ndkILPeRgHWMvtWaJFnrIgX2vEejPstFDDkrE30j4
FrDRQw4su1L2ZAew0UMOFoXn5vUuYKOHHMir+G6fN8RCDznoXVlqcjyLhR5y
YJekwdPqwUIPOeBS2sPaq8tCD871+ko+cXcy0YNzf/fXHW9vMdFDDrZll1Gf
7WOihxzozJfqqKUz0YPz9W5r/eY3MdBDDvoq9pSWpTLQQw4qD05eT9nDQA85
CLNbeDlfg4EecvBHWFdE8zcdPeSgVcZJ/ctVOnrIQQNx8EPlLjp6yEGL0+KW
uRr///4hB4tF0qfrf9PQQw5K59yM6k2hoYccPFpc926nAw095OFs2tOquXQa
esjDjs9fbzi1UtFDHnpX6E/xZlLRQx5cju0/KnGAih7ycIvRdPOkHhU95GE6
buyLxwAFPeThaL2CcdlTCnrIQ2peZcvFIAp6yENLn8D3n0BBD3kIZpfXXBKg
oIc8iDiKb0y7pIke8hB4oC6Ln62JHvJg/7r+/d4nGughD89279hVuFwDPeTh
3HBxr+J3dfSQh+2zJyu9ndXRQx5sKz4ZfBlTQw956OTWG55/Sg095EHyBdGS
QlFDD3lQurbmvOxTVfSQh5yZ8gNn16qihzxonBu7p9Kigh7ysPI+uD8KVkEP
edjk+zR5k4IKesjDev0Abv4sZfRQgPXdUstK1iqjhwJ8K3/VmNChhB4KkCTw
Y/HhSCX0UIBssfpze1lK6KEAQ+U9PHvfKqKHAmh7FJ/23q+IHgrQ83pQ4Zyw
InoowAcvCedX9xTQQwFeGN1jc21UQA8FOLkxvHfdiDx6KIBdkMf8O1fk0UMB
Es3cd8gtl0cPBejTufogtlsOPRRgsazuXslEOfRQAMO5yy5dAzn0UACn6107
Tbtl0UMBJEK6b9YlyaKHAgzOv74rcqUseijAr65PmxcNy6CHAnhluG0azJBB
DwWI9t0tkrVZBj0UYM/wOk1vQRn0UIDXY1ZaxvnS6KEAjIq4+2Pu0uihAGVC
DJ3nNGn0UAR/rXixoGop9FCEuLHg3AVxUuihCK3itmHdK6XQQxEcs3J8jGcl
0UMRdvfHLjnmLYkeiiBSfa0hu00CPRQ5r8fBWRW7JdBDER7kNvGWVYmjhyL8
qS5RzLARRw9FuBllrbH9kxh6KMJLpbpFbevE0EMRLCXrwld9FEUPRbjdXc7r
by2KHorwe79IvlelCHoowiKb3GSj7SLooQgvNh1LeNYojB6KMPzALXLKTRg9
FCHJLHXD5LAQenDm8Yb26lGYEHooQuhI5G0laSH0UIQnwrc/66UJooci2Nms
G+81FEQPRdhc/7HR9q0AeijC+415y3fuEEAPRfCW3VvDNcCPHkqgL3vc1iKG
Hz2U4LPuExcpBj96KME8R8VS7yI+9FCCNsF8TYedfOihBFtEtGlVE7zooQQW
B1uOfr7Mix5KMEb50WS5mBc9lKDa8TX34noe9FCCLzfyTt0I50EPJVi+wt/k
uDYPeijBd9HPueWfudFDCUqyxd8eDeBGDyWo9V2rnkjnRg/Ofqq/BUl+4kIP
JWh5ciC9NYiriPz9lhL8LLi/TU6HCz2UIOrzzc96j2cLSQ8l6JnLbfZdbraQ
9FAC5gP5JNmAmULSQwneTQdebKyfLiQ9lEBns/HggtXThaSHErxwN/QUfTJV
SHooQeqVot9b6FOFpIcSTMCEinTCZCHpoQSNDxeJGwpOFpIeypDzLuBOVvBE
IemhDHHbs4Yih8YLSQ9lGAw3mbznMV5IeijDYUP5OqWusULSQxkkOrcWvXYd
KyQ9lGFydHfjjc7RQtJDGZYtYETnuo/i+0Fl6A0LFf87MILvB5VBV+Jg5ZrA
EXw/qAyQsmjTC96RQtJDGcQHv0ksiRsuJD2UocSmPfmj2nAh6aEMuWHUlN33
hgpJD2XwZFl/6DAfKiQ9lME470KXy5fBQtJDGVYtiP1U6TxYSHoog+gZpz2s
mQH0UAYzHulzWy4OoIcyNJywO7TbcAA9lMHaaETS5NNf9FCGRIFHV2vc/6KH
Mnz9cmATIfEXPZRhw80lRx0e9aOHMkzlxB5ZaNuPHpx5nWzbf3ywDz1U4GTi
1O7GJX3ooQIOD1njEed70UMFPL1Egh3be9BDBa6Z6Vi7QQ96qED+9i6us8nd
6KECUVsuLi4f70IPFVh1Ylul8I4u9FCBI9wLC5YVdaKHCoiZSYoeZHWihwpM
0oIm/OI70INz/wVf/thNt6OHCpT7CG0QcG9HDxX46JBR6VPfhh4q0L38ilmi
bRt6qMDPNMLNseIPeqjADW0l1w8r/6CHChjoljlWvG5FDxWIvdudbrusFT1U
IHRO7+UdJS3ooQKzW5qrfqxuQQ8VmJfgKFbwuRk9OOtJ2SrKvb0ZPVRAatWP
d8mtTeihAve2dm0L82lCD87jugNDd3ib0EMVLj8t7hVNbEQPVTicV1CUrNOI
HqpguGTTjPWrBvRQBYHDvg607Q3ooQq69qnHxDvr0UMVTIO1NTvp9eihCqU5
wRXvHH6jhyq8XH2//2L6L/RQhQFZb8OVHT/RQxUcne/4Fhv+RA9VeERtrJ08
VoceqtAp/7Gw8XMteqhC/5fveXuZtejB+fzJyBSvozXooQpL1quFTFZXowfn
67f2Xv1rUo0eqhAlMxa6/HIVeqiCpYdVU8vsD/TgXK895slrlx/ooQpyKx1Y
Xyu/o4cqeJ4Yu8i9/Dt6qMJPdc+MZU8r0UMVJh/YqMXMqUQPVShWEBUoTf+G
HqpgRtt2tVvjG3qowcrqEpueK1/RQw1C/BTfP1f/ih5q0D2v5PeatC/ooQa1
790unWZ/QQ81uC26eKH/o8/ooQb5ukf0Js0+o4caaKXlG6skfEIPNfDjN72+
5MlH9FADrucXMm3rPqCHGkzl5jwwE/iAHmpw4aN0QL1xBXqoQfvmB9rabu/R
Qw2MAsYteNLL0UMNxJfnn7NtKEMPNRAMn7AToZWhhxqUxw5oSLi8Qw816OIZ
KVuTXYoeavD7kUPiXa5S9FADy8AYBbVNb9FDDVaduj8v6nYJeqjB2w+NtJ+8
JejBWe9NkSN8jm/QQw38dSqkel+/Rg81cH8Wqn5S+zV6qIGzioFG/rli9FCH
kPlRjf6zr9BDHfasrwq/f+gVeqjDEz4hj9XNL9FDHdy7r9ku2v4SPdRhrM3H
/XdmEXqow7A8Pf9BeiF6qEOWyWjWm4wX6KEOni8aBLjuFaCHOqhr0sYg7zl6
qIOGmoO1S0U+eqiDXsPzvVtb89BDHTqVm8T7efPQQx0CpAwfyWk9Qw91SHlT
o5+5MRc91CGVPTV4OvQpeqiD0eHa5ts5T9BDHXSyuPc19OSghzrU7A/epqCb
gx7qcO2CkMa8Q4/RQx1eNmyMUsjNRg91KJc3aL3Hm40e6pAx1DFSa5uFHurQ
sDF4MPLOI/RQB/6zrWHJfI/QQx3OjXYGTpY8QA8NWDm41FYv9j56aACPbX5A
mt099NAA43e9t9l6d9FDAzoXjfoliN5BDw1Y76W/rKA/Ez00QOmImMXhX7fQ
QwN0Wsbtz325iR4aoNZMHOypuIEeGtCiOtC881MGemiA+442sbzqdPTQAFOx
/I7a9uvooQECPl9MrsymoYcGyN73OVilloYeGkBxbcjaD6nooQGZ99rfbay8
hh4aoBV+R7PP6Cp6aEDg43XVDinJ6MHZPyP+6T6Fy+jB2d8Cw4rcpCT00ADx
r+d9FFgX0UMDLvs6rllSeAE9NKDa1E533D4BPTQgI1NUj0viPHpowH3XzxeV
S86ihwYkncxsED4Zjx6aoJ95ymZu2hn00ISpK+Ye4qtPoYcmiDxRql/GG4Me
miCWxHvT8VMkemjCMf3k/ul7EeihCWo6tZL3ksPRQxOqHeo9+JOPo4cmrPl5
S3b15mPooQlrVzeWWSUEoYcmBCauELQe8EcPTWCGpBQlehxGD00wTvModhLy
Qg9NuLT76yb+kAPooQkRHT4JAfR96KEJdvs6wk/N7kIPTdDiS5Fl0m3QQxOO
mJnv2lewCD04610vYZQVPM+C9NCEcnpC8n659Rbk339pQptaf66/7TYL0kMT
uI4df2KY6mBBemjCCE31rp6LswXpoQkTwycubeM9YEF6aMLLrtuaVd6HLEgP
TagrTN7VVOdlQXpQoDvWaeBKh48F+ecYFMhZUinPaPYl/5xMhAJ9+ucyp9/5
W5C/rqHAcHNh1r3kAAvSiwILKCYHs3YEWfzbrzIF9NJLNkULH7Ug/SigbXhk
3sMbIRb/9k+ngEB4TMI6pVAL0pMC/ndPOjp8D7X4dzk9CvDu9Dm+NuY4/j6F
Ap8W3tZfZRJGzseUAh+9RLyifobh71co8OTOb7mVgeHkvJZSYOD4xec5Uics
SH8K5NUc/SmYeoKc31oK1JhbvvfSirAgzwMFxtMvv6DfiSDnuZUC1z8e+ryO
edKCPB8U+J1wUFzz8klyvg6c+21W9ywRirQgzwsFsmrVu9y9Isl5H6DA0Z45
7ssrIy3I80OBqy2MPz7zosj5+1Igya3XihUdZUGeJwqcKV6TcqIuivQIpUB2
RVL/U61o0iOCArvEQ51aPKNJjxgKvBuNMjXKiSY94iiwsSit9N1ANOmRQAGu
3rgzZboxpMclCrjwbTDY5hhDelyjQP/unYGXz8eQHukU6Ejvd3n4Mob0yKRA
+whrTl5HDOnxgALuhjLsaolY0uMxBeycXk7PMYjF80qB/RW6cd/WxZIeLygg
fYky070/Fs8vBZxSeXIuhMSSHqUUiLFOdOo8G4vnmQLFcnekBa/Hkh5fOPN0
eSIh+DAWzzfH44czH39eLOnxkwKnlGlDKi9j8bxTYNlVDzPHN7Gkxx8KGCdu
uThYEovnnwJN7U/ZbZzn/3n0c86Hcqi37atY7IECb4+2O9s8jyU9JihgUB9n
P5odi31Q4dm3BJ1tmbHYBxWMB5N5TifHYh9UOKJVlnzrVCz2QYXPG+5SXwTF
Yh9UeLlVxazRJRb7oEKjopA42zYW+6ACn/Ry8zTzWOyDCvKrDYcdmLHYBxV+
+vq2BIrGYh9UOHzz1LLpvhjsgwoT15x+jH+NwT6o4Cb3qzc0Jwb7oMLNiSWH
rifEYB9U2CKTV+HuE4N9UKG9LV16wDoG+6BCqsdIvfncGOyDCtauYT57hGKw
DypsKzfJcGqKxj6o0Ltoe/v259HYBxVGBu5u2XA+GvugwlLJM5nr3aIt/v39
6gEqyMQrLN4H0dgHZ146agop8tHYBxUYyqYtgp3/74MKMRKFM3de/L8PKliG
3HE7Hx+FfVChyC6y7r1jFPZBhXrXVU92z4/CPqhwKkRJYgt/FPbBuX+A7qPn
3yOxDyr4BQaoXroRiX1Q4f1Kr8jRw5HYBxV+Cz9qqV8WiX1QwTPt+u/tMpHY
BxW4zjJ+eTacxD445+G1vIDOg5PYB8ffvN3iTNBJ7IMKa/8w9W5YnsQ+qLAn
rHexn/xJ7IMzDzGPJKGmCOyDCh9PWhntfYCvV1+o8GevVOmpQHy9qqLCseyo
77ErI7APjhdF7Y6zTAT2QYVrE5o76L9PYB+c+a6hvS+9fYL06KLCJS29O9t8
T2AfVGjwEPb/DSewDyrcqTkQukPsBPZBhdJX+n++V4VjHzSIjQi+bJMejn3Q
YKio0/GHRzj2QYMM1+s1+xaFYx80ODPr7cEvEI590OB+eev+vC9h2AcNevau
aYm4GoZ90IAS96LWwzUM+6DB3JM6akeMw7APGtz7tNL2BncY9kEDvbwokYkP
///+QYMFcUrpAZePYx+cx3cK9rD3H8c+OOtze2kvMP849kGDRYt+3FDmPo59
0EDj7pCE08dQ7IMG8e/1drUnh2IfnOuVRBrddg3FPmhA+/1K8bZJKPZBg6q/
Wj6d/KHYBw3C+h+x6jOPYR80cNwzsdl35THsgwau04wbyS0h2AcNJFeZyGwJ
D8E+aCAQleWaSQvBPjjra+tblVh8FPugwcLwEyr0vUexDxocL4+m2vAdxT5o
ME+/x5N1Mxj7oMEDx+y/1y2DsQ8aRC7U31vehd/PL3HWswt2psQFYR80uPDX
by1jfhD2QYMEK+LojppA7IMGSi1csquOBWIfNGClmUh0MAOxDxpQk0+uXfYh
APuggVrIm+itvgHYBw0mbnI7sDUCsA8aXFOLWpdTegT7oMHLE9/vznodwT5o
8GpeXL6I+hHsgwbhrp7JPzg/r5B9cObLbWTr5OuPfdDAzd37Uw7NH/ugQfXu
6F/vPvthHzRIlXAzTjvmh33Q4O96L18LfT/sgwY/js1npNX7Yh80WBy6Jqss
3hf7oIFHrqTfs6W+2AcdzDbse+o+fBj7oIN43oG0jszD2AcdHBNNbXR3HcY+
6KCmHvXZWOYw9kEHlpSbtMA7H+yDDsp7O0evhPhgH3QwSHuyecLYB/ugQ6du
Xpd6rzf2QQdtzyI3wVve2AcdQqWFDj+198Y+6CC54uclHVVv7IMO3us07ff+
8MI+6CCwtG6x/Tkv7IMOrnrlSZQNXtgHHaZT6j6li3lhH3TIefx0Xke5J/ZB
B2qeKU9/tCf2QYc1wf0Buas9sQ86nFud+NZCxBP7oIN9ELeiyMVD2Acdlrfp
vpFRPYR90MFyeUDOhVQP7IOz/8MRw/FsD+yDDkK6ieE8j9yxDzqoXHJY077Q
Hfugw27X70woOYh90KFyW1WToM1B7IMOh124wLzhAPZBB3qZTe+vQwewDzqE
PO8828Z1APugw/Y9d4q3nnfDPujwJKNBTJfthn3QodG7669DgSv2QQdnxvf2
ERtX7IMOi7x6drd3umAfdJBo3vXM6IQL9kGHyJ486x8aLtgHHezexAR9yN+P
fdBhvVDVCQW7/dgHHV443cx6MOKMfdCh1Og4nE90xj7oEL6s2/WViTP2QQep
rw32C2r3YR90kK+CTX1H92EfnPVlr3LroO3DPjj33zRaTi1zwj7o8HPgeOIF
Tyfsgw7lHo86lyg7YR90+G6/oon+ei/2wTkfPLsumHrsxT4YEDNYpnxUZS/2
wYDlAx7hvaWO2AcDUlMutET7OWIfDOjevnT9WpYj9sEAqlXEZ8MqB+yDAV9v
vgtcFO2AfTBgxkptp/1iB+yDAe+ehYSn9dtjHwxw8qNzTd6wxz4YoCGQ2+i6
0x77YMAb+1TTLll77IMBhwxCdceS9mAfnOvZblcxEtuDfTDgkna94/Hju7EP
Bogc8pr3a2wX9sGAOXOMnoD3LuyDAYG8HtSbPTuxDwZURY3eFzywE/tgQM25
sxf3dO7APhhg+HolJfPADuyDAU1rX8fV9W7HPhjQrnDHaMhnO/bBAHvbP3u6
J7ZhH5z73R73KAzfhn0wAEZWFjtJbMM+GPDg57bimst22AcDlFXm1Ctq22Ef
DJgsc4hXztuKfTCg7+bZzTVrtmIfDFC193u68fcW7IMBjoq6y476bME+ONdX
25ewRWQL9sGA+PErVtXXN2MfDBBsspSdXrwZ+2BARTJ/SlG1LfbBgB99xXdV
/GyxDwaY5HbPCsnbYh8MmLhw9kDEk03YBwN8D0e+i9m6CftgwNF3pydkJ22w
DwYkFbr3qabaYB8MiN6klHJ1pQ32wYBm92LRhN6N2AcDJARnl0xc3Ih9MCDO
u8ru/dKN2AcDwr42evH0WWMfDFhYujnv8hVr7IMB1100neOsrLEPBmjpNvrk
jm7APjjnaXMaz8j2DdgHE+ZbbmZ/ebke+2CCf9Tjm4T2euyDCVfCXHeYJqzD
PpggKKu/IJt7HfbBBEvbKvMMr7XYBxN43u2O42+xwj6YkDswsuuDnRX2wYSL
IZKDA5/WYB9M+DC584H76jXYBxOITb/4jUtWYx9MWDNbEwHLVmMfTBjRaP8c
+doS+2CCnd+fFJ6VltgHEw4fGn+VWb4K+2CCvV6EmvfGVdgHExLfMe9uqV2J
fTCh4fGNY+v3rcQ+mNASOPBq48AK7IMJa8slH9kdX4F9MKG8RejaDpkV2AcT
3p5pGLa5sRz7YEJ+6DETk0XLsQ/O+g+ljXF9WYZ9MOHa05ctma7LsA8m3HnG
9YLNtwz7YIL+pIKdX+pS7IMJL2WMrp+2WIp9cNbj0nrF+fcS7IMJIa18eyaO
LcE+mBCfcF5uKX0J9sEECeL6zIJ3gH0wQVrJyOerB2AfTBALVv0lrgjYB+d+
GWX+JccJ7IMJSgu2rbpQbYF9MOGxk2BgiKEF9sGEvjuXog/HmWMfTPBumq90
oG8x9sG5foxi/2abxdgHx+OtDa/2MzPsgwkJc8MOVFPMsA8mDHqHudqdWoR9
MOEIF3vf1YmF2AfHO763O/nAQuyDCUPfnz6xrDfFPpigs/LQ5aTNptgHE06J
v08O/WiCfTBhatlA/fBqE+yDCVFuhtk9pQuwDybULH0QtstyAfbBAgUx8T+L
3htjHyzwM9K+EGRtjH2w4Gd44UH56vnYBwsWNSq6zzjMxz5YEJxckKfba4R9
sIDPSf1SYrAR9sECh79w2FDcCPtgwcntnj9GUgyxDxZcMW4+WDvfEPtgQWfY
AYHK9/OwDxaYeVDP1zrhf98zZcGbPglG66wB9sEC3811nZ1XDLAPzvVe+C1s
NjPAPljwRyGWNzZPH/tgwcdnF+/IzOphHyx4LpldttZSD/tgwdRuZy7tC3Ox
D85+P0XMudiqi32wwHLmqFPkQl3sgwUptY+4OuPnYB8sCKuqiH/YpYN9sEAk
ktnwbrUO9sGCggyxIdZdbeyDBfuuzhF9LqmNfbBANuXXFT9/LeyDBVvMYuys
mtjYBwu23+RizrFmYx8s8LnyTVPoFQv74Nxv7MmVyvks7IMFXFzVjPC7TOyD
BSZHVvgJMJnYBwuMg5aHb0xjYB8sYLGeeG2lMLAPFlxT974sep2OfXD2P5gV
5cCiYx8soHm7jq+9T8M+WGBd86D21QIa9sGCamENq5xiKvbBgpKH5peUNlKx
Dxb0uLQubW6kYB8c74GMISFfCvbBgnW7dKNDRCjYBwsW33OT9l6uiX2w4NRQ
rfWOIxrYB2deZ1+fT3+kjn2wIG7rjyHjHjXsgwU6q0xbp+eqYR8skKHtmdPm
rYp9sOCr9d/GX89VsA82OClm+n0UUsE+2LCJNv/2jW3K2Acbjh1ixFg/UMI+
2JB/6VNAgYAS9sGGl1EEu8pREftgw85TmnFnihWwDzY0tdyb+MxUwD7YYFFw
e+bUKXnsgw2mCTaBWSNy2Acb5upsSZzrJId9sKGx8tPr/kpZ7IMNiruWP++0
lMU+2HDKJi1I9KUM9sGG4AaL1csWyWAfbLhCabkXliuNfbDBt/eDd76JNPbB
BvfFz27X5UthH2zI7OhIqwIp7IMNhNHJauK8JPbBhsvKV7LX3pHAPtjweTij
P++tOPbBhraaH7oH28WwD8719IkgS0kx7IMN2S5j++ebiWIfbPC85zQsf1AE
++DML9j98rc0YeyDDSHr34HtTyHsgw0TSrDsmKoQ9sGGqAreg4v3CGIfbDiS
Oz7gc0sA++Ds95NisMQQP/bBBrm6l/LDy/mxD868/Vkm0pf5sA82JAw8LFw7
yIt9cM7H5L7+s9a82AcbzsnvPfw+iwf7YMOJasvNLQo82AcbgjryZkqPcWMf
nPs/rDZz7ObCPthQk1tunLKTC/tgw5LY4y0/UmfNyT7YYCAkmLE/bsac7IMN
u+8Ja74/MW1O9sGG995dgT9Dp8zJPtiw1uNVjH/4pDnZBxvqH5+tOHJqwpzs
gw1eSy87v0geNyf7YEPDt1QGPWvMnOyDDRKRVr5RFaPmZB9s+LglbH9Fz4g5
2YcWhKyoufVRbsSc7EML+o14Qw4tGSaPn4gWLFq7rjzOZ8ic7EMLKAM0Xum7
g+bk/3+vBUOsy4bf2wbMyT60QGmD0FCh9oA52YcWuKxI8cry/GtO9qEF8x/I
OMYX9JuTfWgBw2eFAIj3m5N9aHF+3plZt6ak15zsQwtmzDcz1wT0mJN9aIGO
mNECqwXd5uQCteDF+VsslalOc7IPLUjKrbp8orzDnOxDC3gLcg22pbWbk31o
Aet0ZdD+0DbSY6MWrDXQ5Q7d/4f02KoFjxfLGx3e0kp67NSC4HnG7grrWkgP
By14GhnRv9CqmfRw1oJVW/bXZ1s3mf8PI8dqOw==
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw923c81e0bwHFk73HsdfaRWamU4nu1NBQqaSkSEg0kaZCWEKIlJTspZG/O
qVCShFCplKZKhYyM+J2n79XPP8/rPM743tf7/hznvO7nobnsXeMmJCAgUCMs
IPDfPw9Tbi/tOnSSsHdo/VhmPRfI2xeIXbbntBSspkKpzqlvq0sTCP3Fk7Vv
W6j4+zQiPe7mwbXG6nAl7r+fm8SF2cK67ioUKPt7/9uEx8PPNSa35YF/g/9v
8gjBLYf8bQ9K4+MLCQbx6UVcvThIPkv1tpAsIVqEWg0OfxGBv08XV0ZkxYUH
21yeAlMdz94b1KskuuXWmL7KEcTr4RKSB8JWC6oIQBr/0c9S7xAzGybybXz+
ED1/X+8ukaT6gahTHiNmmv73U03YHxl2DBYdIcjXryFkxLXClswaJqoH9fiv
UEvQ986PsIwdJKT+Xs8DQmjT/h3jjAFizd8XrCPiPQ4HPGvtJ8j1PiQejQcF
Bqb1Ee8O/feE9UShkIZxUlQvQV5vA5GulqHsp/uT8Pnv8rwfE8wYG6hd/p0g
59NIHBqW9d8c+40Q+PvTRHzwCRpnCn8lyPU0EelLu3xzI7qJZV3/vUAzcc5b
UEzO+DOur5mgG7yWrfr4kYi+998CWojcW88On837QPxdrulTwt8/TOT62ffE
3+U8e0psUmTM2hT0DtffSiy5q5VLHOkidP+7HJ02IpcnuUwx9C3Oo43Q/bLl
g8eCN8QO9/9+2gnRiENVq8Nf43yeET4ycT81v7wk/ns2yu1nhMc79TkzHTtw
Xs8JxaG5H6e9e04M/fd0g8+JDMGPAQ0Hn+H8XhAvqakaXbR2wvLvBuggUjqN
i1xftOI8Owgr1ympbolPib+Xd+olkXA6vEVsXwvO9xVxNrjF5vjaZuJxw38/
r4gdTura2tCE835NTD3hXbPVu5FQ/nuBncRFimP4PP8GnH8n4Tp6Uyo/up74
+3SObwgPtzPBZdw69HhLxNeaZztO3sf1vCW+by8aLlldiz5vibHhW8XDhdW4
vreEd5pYvoPePfTqIuTmJDRqZd7B9XYRdUZt3HkHuejXRZwJ2GriU1qB639H
OHuXmGYqlqHnO6Kx3o94HFJMkE/3jrCprfB5pFSIvu+JpSPOc2+W5uF83hPf
S23Nertvo/d7YrpNjWl2xC2c1wfi+MQ2185N6ej/gXDwMO37sToF5/eBuG/6
QKXqbTzuh49E+vaV747uvIjz/Ejk+7nYdfpH4P74SDxvkxlosQ3E+X4iMtqW
yLOUrHC/fCImV6tdHan255Hz/kQoRlsOMdJP88jePxN3O8ei6kpieOT8PxOP
nT8nTt8WyyP302eCWxebZNUczyM9uomFnknsIeFkHunRTXhGHuo/GJLKIz26
Cfm0FSzZH9d5pAf/9zdqT4fNz+CRHl8I2gz9onLfWzzS4wvhwrCP9IjJ4pEe
X4i+P3sS1sTd5pEeX4nlM45VX16SyyM9vhIlb4IzXprm8cj9+ZW41Dbv/QPV
fB7p8Y2gXzJwzu3L55Ee34hXD4bNPt4t4JEe3whp+fLmgtBCHunRQ4gYTQrt
sCrikR49xPGeAqOlY0U80qOH+Oqo53jlRjGP9PhOTKmz3ZxmXcIjPb4Trpec
n6Z/LuGRHt+JNurA1q7DpTzS4wehllGdFCNexiM9fhAWHO0NvyLL0OMHcdZd
zw+ky9HjJzGersjOO1GOHj8Jw82z+g8PlKPHT4Kds+JO29YK9Ogl1lDufu27
V4Hr6SWWJFqsEqJVok8v8adi8xqzg5W4vl5C+WKJwJ1HlejVS+gF2IrVq1Xh
enuJ1vClD485V6FfL3F9gcZOxdQqXH8fMceceHr9bRV69hE9jqvrXNW5OI8+
QiWo8pP/Ki769hEyqqMFQoFcnE8f8VDH9bpRBhe9+4j8E2l6Wk+4OK9+QsP2
QWZfHxf9+4kc8cG0Jnkezq+f6A/viOsw4OF+6CfG1arZ0xbxeOTfo35ij8lO
kT4HHo/stZ/wn3tcaf4OHs73F9EjLrHRxI+H++UXkZC5QrY7kIfz/kWsHClN
Pn6Sh/vnF0EdO1WlEcrD+f8iclSlVj3i3yb30y+CWTVx7HYIDz0GiBDK4Rev
j/HQY4Do0HlO9T3EQ48BImj/5kMnvHnoMUBY3+Ntm+rKQ48BYsu7i7mH1vHQ
Y4AYCzmWErmYhx4DRLjk2hcHpvPQY5DQUBbYZqPFQ49BwvHckQKWCA89BonL
2/dXKvT88xgk+ug/XrGa/3kMEj/Mqn/4Ff7zGCR0diksU7j0z2OIWKJ5kivt
/89jiHgndeZWgD0XPYYI7Z6Ar27TuegxRIS6nPn4QZqLHkOE+fnXUSKfq9Bj
iPj4Y4nHM14VegwTjynUUztjq9BjmHgeMiWyfncVegwTN97v4IovqkKPYUJx
jVnfdNUq9Bgm3O/Yxq39Wokew4R4zK+6Q5WV6PGbUFmqb1oYWYkev4mLVQrG
0lv/9fGbOLubWhRl9K+P30QjbPRaOl6BHr+Jtx4+1xbUV6DHb2JfVvei0NgK
9PhNmFymiLBdK9BjhDAY1TFjTatAjxHik9TvrrNj5egxQojdnH937/1y9Bgh
Dn2Xt2qMLkePEeJHzM/LhZvK0WOE0Nu456oBsxw9Romvec1f5n0vQ49Rwui+
/evvRf/eX0YJYfOvEcuDytBjlNCY7v3Ewerf+80owdmtZaEtW4Yeo8TyeSLT
09pK0WOM0HROru+PL0WPMaLMkvgp51qKHmOEv98+ayGDUvQYI9qpR+2b+krQ
Y4x4LHd7eXBpCXqMEfdHsmapHS1Bj3EiVur5z2tLStBjnOj8dExbVboEPcYJ
9nJT07CWYvQYJyxOv98/crkYPcYJP3H98V1OxegxThR/88jpZhWjxzgxNNm7
0qenCD3+EIZmujukCorQ4w+RUL7PveJgEXr8IUprU8JPQRF6/CGueiV+2y1W
hB5/iNueSYcCGgvR4w/BnKY75ebFQvSYILoMmw2mbClEjwmi8erVA+HMQvSY
IJRfHLNa2FOAHhNEg0dUu1FhAXpMEAn1xYvtjhSgxwRxyaw8MmtxAXpMEpNu
Y1FLZArQY5L4sWedmE57PnpMEkq932LnJP77ezdJUE4O1cR65KPHJJF46/SQ
xYx89JgkZs61PWg0noceAlCza8NRj/t5vL/jpghAcUE1tS86D30EIHLpEceH
m/N4f8dlIQDhWV/UfrHz0EsAHIyuMb37c3l/l+suAIs9xmYv5Oby/i7nkACo
TXnX6xmey/t7uWcF4E7c8tffHHJ5fy8nVQBOjL/3uc/IxfcLAbBJ3q37uyuH
95e3QQD227iJaQXm4HwEQH1upOyYWg6PfPsSgC+srmOxRbdxXoLQPPNC2K81
t3l/n05HEAhjpr5CXzbOTxCa9rov6T+bzfs7nqWCMHgl6uplk2ycpyD/+Uwa
RJqyeH8vz1sQhHtN18/zycL5CoLN7/Zr5kpZPPL7kSDYOpx9L1ycifMWBOdz
ozZXN2by/i73niDYHbnzdeLPLZy/ILTE+6RPS73FIz+eCEL9Vuf105ffQg8h
mJDaXybYexM9hEC7bHxvSuxN9BCCzHn7RClwEz2EwG/xsj6HLxnoIQQ6pYlR
Xucz0EMIQp1kOGssM7AnIdgmvvKH5Ncb6CEE3ca9Uy5duoEe/McvU/H7tegG
egiBWY30HEZ/OnoIwZK3I7NZyenoIQRbtgRajdilo4cQRJnaGCQKpqPHFDBz
aI1TKbiOHlNALJE728ntOnpMgXUDF2ID1K6jxxSI4lktcmlIQ48pYPugKF/z
WBp6TIH1xyxWp81OQ48poPBzduBYTyp6TAF1tYOh1LRU9JgC92a2lyo6pqLH
FNhx9eKyZkoqekyBW8e+um9uTEGPKdCRumNObmgKegjDr3d7nzUuSkEPYYj7
mmpfPJmMHsJg9HNliVtlMnoIw4ELNX9eHvz3+VgYdkt3aKvNSUYPYRAPmimi
PpyEHsKgUp0f97o4CT34zxdRV+Z6IAk9hGH7yPP52XOS0EMY9u3S/uw1mIge
whCzarvd2KFE9BCG8R0DFqJCieghDPPDagzDwxPQQwT2vP0cdZKSgB4i4Ndv
0NCfeA09RODorKyFLYbX0EMEWna7LKVWxKOHCHi9z2d3rIhHDxFICRtg/nl5
FT1EIMRkMChkz1X0EIGOpoOe+4SuoocIdGlXqNyNvYIeIlBi15m1y/gKeojA
MTdPu33349BDBIIflem2OMWhhyi4pHrMDBm9jB6i0J3IS424dBk9ROFIvObR
d6aX0UMU2BOrW0+2xKKHKOzsU7jt7RuLHqLQcnkhJVUpFj1EQdhyq7R68SX0
EIUFl+vjnmy8hB6iEDXXmFs9cRE9RMFuZvXB/rSL6CEKFZI3Hm1YeRE9REH6
Nyf/18AF9BCF0TQ5gzsJF9BDDNIdvplWLL+AHmKwO2N1fdfgefQQg4g3rJ5p
qefRQwyo3c9jr68+jx5i8E0io2G+4Hn0EIOe7S/Cf+WdQw8xsJ4/9PT+9nPo
IQaLTKdkFqicQw8x+OFWTCmpj0EPMfgQlanaeDQGPcTAfvqlysFZMeghBrkv
fWQNvkejhzjIReVqeF2PRg9x6LDb0Ze/NRo9xOGK2MHrk2rR6CEOu1SPxsVn
nEUPcWic6S4wh3YWPcThy0Jq6aOrUeghDne/DvG/wkahhzhM+71cp/ZSJH4e
EIeCrGZnXdVI9BAHOqNTa3NcBHqIg/O78zm+2hHoIQ4fLrOCnFPPoIc4bDaT
GtIxOIMeEnDRZXZkRmE4ekhAwKbF94aJcPSQAIpbtpbY4zD0kICvTX2GzZvD
0EMCFibURNj1hKKHBFzrMn1zNCgUPSQg/0dj00bFUPSQAOEt9aovbpxGDwkY
GqD5/bY8jR4ScOViaU7+sxD0kIANNP8EId8Q9JAA82Pbdd7LhKCHJGg11Kja
Zp5CD0mIT5oeuGDFKfSQBFNepnXR15PoIQkP+wrCr0ecRA9JELbZslJm2kn0
kAT9N1uzP7eeQA9JuFvNaDM5fAI9JOHSoxeDb+kn0EMSTiUHrRx6dBw9JME1
8hvVy/84ekhCyPM3teb04+ghCTVvJeKcnxxDD0lY8UF2yvPAY+ghBeIxMQfi
jY6hhxT0bDPbf7MzGD2kQLE169RodDB6SEFOYIbFmcXB6CEFV6kdB2/3H0UP
KfBOvOBYuPUoekjBShnzs7qPg9BDClYLx5//bBGEHlJQPCdJUDgvED2kQI1r
fnoXOxA9pCA2wr1bLeEIekhBlIPWpIDaEfSQhvaqpRVaFw6jhzRU/i6nuyoe
Rg9piBmgrn5y7hB6SIONyI8DDsqH0EMaikxsO/viDqKHNGzWUuuKox5ED2lY
dSen3+pmAHpIw8qHY1f6TAPQQxqCX6w4cO7OAfSQhsJEC3O67QH0kIbHz25n
xr3xRw9p2EBcyejz8UcPaRgPE2IwRP3RQwaYzu00Tvx+9JCBO/ta7wyZ7kcP
GWgs3DPtzGM/9JCB5NysotcefughA8YsmVufRfzQQwZ6W9wPp6TtQw8ZeHex
LlNsyT70kIHaJxua5T/7oocMXDCYeakk3Bc9ZKCr2rp00MQXPWQgtGChRG27
D3rIQLu69R7doz7oIQu74oTeTuj5oIcsjG+08dzS6o0esjDzwmzDWce80UMW
7HPurg828UYPWTj949p2X+5e9JCF4x+6GIXUveghC6vKomrKT+1BD1kQSs2z
PPx9N3rIQqX185yv63ejhywkj97bOFGzCz1kYYe5SkrmzF3oIQtBEtKK3ele
6CEL6xOYDjc1vdBDDlrr2y0+nvNEDznwk4CKGGlP9JCDaovWd2mhO9FDDkJm
yHyjiO1EDzmw71Q3fH7aAz3k4HhApO5HSQ/0kINgd1nnGdE70EMO3kmK3CxW
3YEecnAzcEW7R7I7esiB4+xn7wkjd/SQA7scn+8zKtzQQw6eSmwxnmvthh7y
MF4mJrjitSuuRx4KFpR3Ovq4oo88yApaOe0Uc8Xvc/LAoxfO2ZG4Hb3kQTxz
wNJm7nZcrzysuR25XaXNBf3kIbx4RVGJrwt+/5OHfZt7nPQVXdBTHnwpzzPd
C7bhPOShd2ndH1eHbegrDzIJR9q1x5xxPvKgd9WzJSzZGb3l4UjInpvJy51x
XvKgvmTEsfKTE/rzX3/X9QRvCyecnzy4/lirtyZ2K+4HeXgV3WK5dmALzlMe
5lfmbHK334L7Qx6UQ5M4QSWOOF952Bz7+USktiN+/5WH5w8rj54O2Yzzlod7
dUWOTv2bcP/Iw3E/k0jxbZtw/vLgMbe0wL9lI35floe5dodTrlltRA8FmN2b
tcmnagN6KMA+/2GpT7M3oIcCSIV+UerNX48eCnB/htufE9PXo4cCnJeXD76U
74AeCrDSp+ao1mwH9FCAT1FTpKUq16GHAjxv9HBav3gdeijwPXTeDDXao4cC
uLFXa7zZbI8eCiBjcOuhyLe1+P1dARwtqhudj6xFDwXw1E42/SS3Fj0UQGjC
UD/i+hr0UADwzZFabrEGPRRg2pGVG5SerUYPBUjnBhd3+a5GDwWof5rYf0t+
NXrw1/Nw7YRbrh16KMCfau1eiTV26KEAHrE5IlrfbNFDAT4H79V/OssWPRQg
uD99jd5JG/RQgFHNlXWS7avQQwHyLxtqeBqsQg9FmMgd15h9ciV6KML01R5v
t761Rg9F2Ht86r1Wwho9FOF7t8bG0JQV6KEIRj/WBHmKr0APRahQs1yxy2c5
eiiC7tZKpaOvl6GHItx8BHsvrFyGHoow9dQvowTuUvRQhAdq7Y5RpkvRQxHS
2V8Xrc+0Qg9FWLh5k9s3lhV6KEJD+fUjFqlL0EMRFsx7HAiMJeihCLlZJy58
vr4YPRQhrceJwTZYjB6K8M1Fofpn/iL0UIS62ksL5lgsQg9FSKIfSP71cCF6
KMKMqX/UVDYuRA9FcC32U7jwdQF6KMLOeE+2S9AC9FAEr7QfzP2UBeihCNZ1
zyTvZQF6KMKUJElRy6WAHkpwXvDk58oHBHoogcH5At50EQI9lCC0yEz8vpUl
eiiBoKfOWbcIC/RQguUB5w6Pt81HDyU4MvP4ygOM+eihBC1HVzy75zcPPZSg
Z9TNquGhOXooQdt2qtoxujl6KIGEqo32k6C56KEEa7PEAtI656CHEgzc3Hnl
54I56KEEGrBhSWKGGXooQZn00tMpimbowV9Ph3BF99HZ6KEEj23PhGzrnYUe
ShAS3/JifPss9FCCnK8Z3291zEQPJZhXH7nQ0X4meijB4W0xiYLNpuihBLu9
zBQi7EzRQwnmjmzp7mmZgR5KsOo7p0x5wwz0UILnet82/n4zHT2UgO1Cfxfi
OR09KCAZ73KzYHgaelCga6a9lc/paehBgR2nciLz1aehBwVipA/R2xxN0IMC
ct15FupnjNGDAppNA0FqXCP0oEBn1eFd5YOG6EGBK0s+TXyabogeFAiib0kM
8TVADwp07KhgHS/RRw8K0JZy2+8J6KMHBT5umOcyw2YqelDAev2WrvJEPfSg
gO/cz61Wgxz0oEDhtUDGXRsOelBgue+QqnIWGz0ocLn+tpOxDBs9KHC76ZP4
iA8LPSjw8g7j2LYOJnpQIP5N7Hl7KyZ6UOD3ev4f9yIGelCA3t8ddFaPgR78
+UWfKsxPoKMHBXZvbzZXVaOjBwUsqxddybxAQw9l0E34mrOVQkMPZVDxGs3U
jaWihzLMitku36lFRQ9liHPt2KpkrYseyhBz7pY9y0UHPZRhVKXnTUuQNnoo
Q//oW/8/SVrooQz315WyTtdpoocytL8fPrNmUAM9lCEl9eeLhRwN9FCGI5vN
GudtVUcPZZj8NKuAdkUNPZRBwSTf8UWHKnoog1vmbtYyqip6KEPs6rqetZ4q
6KEMGc27Ke9LldFDGXYKSQe9klJGD2W45qwYxtlOQQ/+9Rw7JJ/FVUIPZRjY
EuexRkcJPZQhaN2I45TjiujBX3/TfOOMLwrooQx22yWi9dcpoIcyeNuOpfvV
yKOHMoStSxb1MZNHDxWo3yDopOwohx4qEExZqLHJThY9VEDQakH3aWsZ9FAB
o4lEOLBKGj1UwJCR6SboIIUeKuDwLs9ZwE0SPVRAcrbXhM0hCfRQgZxlno/q
LoqjhwpEH0+WX1Eihh4qcEJm4ElOpyh6qMDz+LY7z6RE0YN/f6vfK5MsRdBD
BcTmi0d2+wujhwo0mOxfEl04BT1U4PTc5e8PDAuhhwqkiMgcDCaE0IN/f1pZ
xZkIQfRQgTlmhZOHOwXQQwWeCXbOmjlLAD1UoCJvVbMJbZJLeqgAZdoOX5Wu
P1zSQwXKjmiWfbw5ziU9VOAMmzfd4/AYl/RQAXfbgFM7141ySQ8VqJH65Fds
NsIlPVRBsr6zRYv+m0t6qIKt55KjXpRhLumhCqsKBrb5yg5xSQ9VkH9yx01I
fpBLeqiCU2DUvu9qA1zSQxVSMo7uFp36i0t6qIKszCx9GvRzSQ9VOJTM9Fbc
2sclPVRBbp9wX87xXi7pwb+e5efDkzb/5JIeqjA/zP/JRe53LumhCue2THfp
Nerhkh6q0Lou/YbLza9c0kMVVASLcpKmfeGSHqpwxfO3oXP1Zy7poQoBG2/t
2rDtE5f0UAXf6ls2CyU/ckkPVYj6dMviedV7LumhCp0HD3PaD7/jkh6qoLE3
cP/Ioi70UIUZZTNFBFXeoocqzGGNLNj0/jV6qEJIQFlfUPZL9FCFvTsmZg+F
vUAPVbhTfqZzWcAz9FCDiCWTDkIBbeihxvc6mJob+hQ91EDAMdjmw81m9FCD
pJrl5c7FT9BDDSjhRSft5zSghxrsyaRdf/q8Dj3U4PibyT2KsbXooQZDRm51
y33voYcaONfIsfY85aKHGixrs2fNGSlFDzWY+eRdcaB9AXqoQW5OREf6g0z0
UIPo3/MssqyT0UMN3tqm1657GIEeagCKaTE6c/wsyfMtNZCX/B7fUxtrSXrw
17exJ0LiQ5ol6cFf3+NQk+KIbEvSQw3ueHjqFvzMtyQ91OCV34YK85/FlqSH
GpgHtNWp3S+3JD3UQFb5wPLd+7mWpIcaPPpYWK03eceS9FCDhyohWj259yxJ
DzV4IdjbHGJXY0l6qEOOquebw5215HGapDo8lx+car35gSXpoQ7SzfHRPg/q
LEkPdXjTeGvcg1FvSXqoA2V9uE/G3keWpIc6yE04aaVlNViSHupQFrZu++OO
x5akhzp0XLs6cG600ZL0UAcJsxjPaaJNlqSHOmzZeMrMLrTJkvRQB0uZbttX
U5otSQ91WGim+l70YLMl6aEOr6y7Pgt0N1uSHupQt3EmY9SuxZL0UIeTxlnG
tMIW9FAHAY7A0VSFp+ihDhfnrfbM3vkUPdQhoHWDsWflU/RQB/G+gKEpkq3o
oQ7eBre7Ute0ooc6SOm6ivteakUPdQgvMjx+sa0VPdShsXOT10z5NvRQh4YZ
x77us2pDD3U4NN46KyCgDT00wF/f/7Jreht6aIB3UvyBzU1t6KEBM7Zlrg8a
akMPDZCW0O/6rtaOHhqgLXP940OzdvTQgMcz9rtOX9uOHhrAzttzdqFXO3po
gIxXwBON4Hb00ICYXKmH7THt6KEB9f3xzueS2tFDAwzav3M9strRQwMIieXr
/Ira0UMDipdndDVWtKOHBvBGa3xjeO3ooQENeUq7Wu+0o4cG5GlkhuXwf096
aIDiRZUPcyvb0UMDdnRTBsKK29FDA/J3LbpUdLsdPTRguXCxbEtaO3pogBYc
kR643I4e/PmJUbJNzrSjhwZ4atYfvXy4HT00QPSReNgCz3b00AAXo4tLLNa3
o4cmnDOtyL62sB09NCHlk8ccP8N29NCESZ25nc2UdvTQhHbRPVoPxtrQQxPS
Cl4Ob+9qQw9NsGJWT5bUtqGHJgj+uGbXktGGHpow8K7j0t3wNvTQhJDRMwoX
vNrQQxMu3BO5uN66DT00oSzJO1Jdvw09NCGYs1Lws1gbemiCec2H8w0fWtFD
ExrEKk+332lFD0148uj9Hfn4VvTQhA9+Kx+E+LeihyYsihF9uMiuFT00wVsh
IH7N1Fb00ATljafuVQn+60MTTLff9jj74il68Nc7i+rVnPsUPTRB62W5Q+Tp
p+ihCZFMaa+GLU/Rgz+PLUR8rOlT9NCEbFOhi8PiT9FDC2ZKOZUOvG5BDy24
/yGCEZvfgh5aUKdZlPMppAU9tECHlfPr66YW9NCCTSfzl2Qat6CHFtRwJiuN
hVrQQwtWbjlieqStGT20gBNls/RKRjN6aEFT33bHs4eb0UMLzNx+X9tm04we
WlB9Xl5Alfbv/UoLxhJ6oOhXE3powfG9vl8X3G9CDy2Qfnl27b3LTejBv96H
F5LneTWhhxZcOXrqYb5FE3pogTC4xRjKN6EH//7l/fTNtU/QQwsC3kh4+Xk+
QQ8tcEobPZwt9wQ9tEBFeu9x2aJG9NCCPQ7aGxM3NaKHFgw5iJ3ZIdCIHvx5
B2at25P+GD204EOLcWb5ysfooQ0hs71mrv3VgB7aMK4kstbySgN6aENGpxvj
+IIG9NCGgojcIOaXR+ihDQ32N8f1Y/79/dAGoW8xg1fmPkIPbSg/PHri4Lt6
9NCGF4mnQx6dqUcPbWg/lZ18cVY9emjDsjDnBa/ePEQPbej0qbiSGv4QPbTh
eczV7J+zHqKHNhwanWFV01WHHvzrH4ueYEbVoYc2vGbRQHleHXpoA3eMuuRy
9wP00IZj0dIaeZceoIc2dMwVSnRZ8gA9tMElUjssZ+A+emjDrfaH26+k3UcP
bdCdJX2Ote4+emiDTnSt7VrR++ihDU2RPfms0lr00IbiMl5WgmctemjDE5Fe
yTvateihA1+bqgPONNeghw6Ixs8IFgqpQQ8dyIwdCWfPq0EPHVCbfvP9795q
9NABpQeZxYduVKOHDgxnLlHK3lqNHjqgGx/VE61SjR46cKbBVYPz5B566EBK
8cZN3qH30EMHLtVcttu98B566ABbsC5U589d9NCBRd/f+Z8svYseOnArXi4g
0e8uevCfz3zP073T76KHDjxXeV8++OMOeuiA5aaX1tOz76CHDhDHpaPpu+6g
B/967xoHPTS4gx468Oyu66D1cx566MDaiLe5ezfx0EMHYEtm/p/XXPTQAYkY
la2DLv8+X+mAxkGT4XVfqtBDB+ojx1J1fKrQQwesezN324xWoocu3PCpW/Dh
ZCV66EKS7ZpfnfKV6KELHh2d8ywSKtBDF4xn3Kr8Y1iBHrqQvjJlUqeqHD10
QdnbMyDRphw9dEFnzfpTgV1l6KELoqKu3iX7y9BDF/I+6XpbS5Whhy6kXr+Y
YZZSih66sOGWgeEh81L04L/el8Bx+dYS9NCFqC3TpUb3lKCHLmxafNfcVKoE
PXThwSorp/KMYvTQhQUvzYjIpcXooQv7AjgXbn4uQg9dYOX4S8mEFaEH//Gb
xJYWGRRZkv/9F//31z69TnxSiB664H2p37HerxA9dIEmeHjpDM1C9NCFnS2v
VNvuFaCHLpyc4H9m9ypAD12oO+quf1e5AD2oUMnlzRW5m0+uR4QKJwO86g/u
zkcfKsgtODZDSzOfXJ8c//6VO+99eZiHXlQIyt5U++ZgHrledSp8Gn90bEw/
D/2o8OX08Fzz17nk+hlUSL9sZhgXnYueVNhLOXpeeUkuOQ9jKuw+FmS7cTAH
fanQ1hQ3v8Qlh5zPHCrESZ20J1puozf/8fKlI98W3SbntZAKFy5nnykpyUZ/
KhwrD90Rb5RNzm8lFarZ1d0XrmfhfqCCpM2TnVd1s8h5rqfC6MWixbeuZuL+
4F/P/cynFeqZ5Hy3UWH+s3Sf+rhbuF+o4Lz486EmzVvkvL2o0CETvKou8Sbu
HypMDXu+PIt1k5z/fiqA3tSn/tkZuJ/4j1//y5ZulkF6BFOBE+unf/PeDdxf
/Hn2UZpF7G6QHuFUMPnRVDzjTTruNypk6iSu1fdOJz0u8Oe1u5n5WSgd9x8V
Fi3xzd4ee530SODfzr7mf8XoOu5HKvgdb5cLqU0jPTKo8OT1ejma07/vY1Sg
PnJRdB9NJT0K+N4eoVW2sam4X6nQEtZb+XxWKulRRYVfI/E1Y20puH/51+N7
M7rgQArp8YAK59xCP45qpOB+poLtzfnRDbxk0qOZCjP1o90Z7sm4v6nQl710
6ahMMunxigoDNWs1VpYk4X6nQsifiSYllyTS4xMVPu5Rd18pm4T7nwqmzosq
uw4kkh69/P2R2B71uy0Be6CC6N1Tfk9nJ5Aeo1QIWK+b73HlGvZBg63wKem2
wDXsgwb31RpuX90Zj33QoHfvja3stqvYBw1iXrgtW7LoKvZBgyAhc/WfBVew
Dxoodtee1+BcwT5oEL92QTQ3Pg77oMG1kvjxZkoc9kGDpLNJr6zPXsY+aDCx
VWIFQ/oy9kEDs11JfrZnYrEPGhxZtzrlgXQs9kGDK3HzTU5EX8I+aCAy7UHk
QZVL2AcNxFfesEpJuIh90GD2th+/B/QuYh80GDglv2ln0QXsgwZDy77MGl50
AfugwWsl7p5LreexDxq8MrH8Y7njPPZBg0Ung3u7x85Z/v3vV71o0MyY3B1x
7hz2QYMz3Og8msE57IMGbVLOMsm1MdgHDT4s6Poi5BKDfdCgILu2lhCIwT5o
UBr4fZZdUjT2QYPfLes/Gi6Mxj5o0LKGrn/t0Vnsgwa31sIcR5Wz2AcN1nzr
agx1jcI+aOA0FviLUhyJfdCA+3G0vV8yEvuggWrNkTbK9gjsgwZ2CtP9d3PP
YB80kHyv6vVT6wz2QQPhpvroyKBw7IMG6xIX/DB/H4Z90IDVcaHw64ow7IPv
6ci1jC4KxT5o8GNkvYIuIxT7oIHW+g0d4edPYx80mBRu9H4gehr7oMH7icut
dUdCsA8aaMfTjU8MnsI+aLBQhtL41fsU6fGNv/8OShkN/DiJffD3b7Ptt/N7
T2IfNMjfeaKJ238C+6DBuM+6RzsDTmAfdGjYPKMvTOAE9kEHxQW/AilnjmMf
dPDdEvF0QvU49sG/nVl+0PLGMeyDDkZFudoP5xzDPugwkHEv5kJDMPZBh1d3
FR5fcgnGPuiQTt/TfmbwKPZBh+d+L9dP0z+KfdDB0+HgR7HtQdgHHbRqicjJ
xEDsgw4f4l1ShbuOYB904CWn3BVmH8E+6PDx27X73/ccxj7ooNak25ZdcQj7
oIPVRu+1ptKHsA861Humft3lfBD7oMPcxM+nlpcGYB90uPC7dXWpUgD2QYey
/RUVGb4HsA86//N7n7dkmz/2QQegMbY+NvfHPuhw6WDi7a7U/dgHHYJeZTwy
k9+PfdBBzLZ6852jftgHHYLlhRfu6t+HffBvO227ZuixD/ugw5wMobr+t77Y
Bx2WGcQ45Dr6Yh908Joaprr+pQ/2QYeqpDOKLxx9sA/+693MPa3X5Y190CEz
oOOHmYc39kGHfYTij1/v92IfdOgU3ipVPb4H+6ADe570rmqNPdgHHWZYNuS+
tNiNfdChumT2+363XdgHHcYdAv16z3lhH3Q44K41v7LGE/ugw0ybKH/LsZ3Y
Bx3MKII1TrN3Yh900OyW4Uj4e2Af/PXX+U5hlu/APugwuqpR64rQDuyDDsLZ
Wy6us3XHPvj7ra+yB5LcsA86TITdnLAadMU+6BBFfyC41sYV++Dv13fuIXaZ
27EPBnTLr95vIL0d+2DAB1aMbJO3C/bBAM3Ni7v1X2zDPhiwtMTzu96SbdgH
Aw6lljuWFDpjHwywlDnwoJrjjH0w4Mq8aGrAfCfsgwFcBaNWrWlbsQ8G5A63
ZK/R34J9MGBgS9SqYX1H7IMB6yymfe+evhn74N/uVN8qSmzCPhggOikjZrJm
I/bBf75NYu8Wem3APhhw4irlED18PfbBgE9Fc7/cvu2AfTAgqsSh/eHzddgH
A7LFKPvWia/DPhjgqdN6cKaFPfbBAKGCWwYrDqzFPhjgt32jzaHiNdgHA6ht
q/Vvjq7GPhhgaFsVWrFoNfbBgJcNYXmXYuywDwbcURhpgTpb7IMBSaPn3wb6
22Af/N/nuf/JM1qFfTDg2sM1YZnfrbEPBvzO/9I4t3gF9sGAvHl1k4anl2Mf
DNB7NT7NwXkZ9sEA1/qA9acXLMU+GGBVd2bxeX0r7IP/etc9U1ZpLsE+GHBw
553ecKXF2AcDOpRXHKMqLcI+GND454jfB/WF2Aff55pZcTZnAfbBn8fnI6Nr
5wP2wYDC4X1+TjmW2AcDpvkaOs/8NR/7YEDW1Ku3OhbNwz4YkLJDv0oseS72
wQC2A8XXV3IO9sGA1HJ72adHZ2MfDKivuT3vvcAs7IMBRU33hbZGmmIfDDAf
ta2dZM7APhigtXHVnJAH07APBgxFP650/mKMfTBhj26KcOAGQ+yDCS3R51w+
vJyKfTDhW4mVl9Y+DvbBhJp37fRsbRb2wYS05TP7qS/p2AcTBnjF8cKZVOyD
CS/LErwa1bWxDyYUBPOMCgXUsQ8mzHb0utUloYx9MCFh1Trv4zMVsA8mlOfH
V0VMSmIfTHA9yWJVt03BPphQZ7nfenrriAXZBxNysycHVXu6Lcg+mCCQUW8p
cii+iuyDf7tCSdL08Zcqsg8mZOk+2fv56+8qsg8mrLCY8bwJhPA8hglBr1+c
r2kXI8+XtvGfP9xNIGOODJ7PMKHiqlTgJ1MFLtkHE8ro4XRevhKe1zDhSI7Y
s6PqKuT5034maAWaKz/wUMPzG/68P8uMmyRrkOdRwfz7r7XYuqZaC89zmNDv
nt9874kOeT4VzoRV19c6hW2n4vkOE9Trrcy67WnkedUFJnQt3hK5aD6dS/bB
hPziXYFv1Bnk+VUCf95zz92c+M7A8zgmfD89Y8G7UiZ5npXBBOepnWL1h1h4
PseE/T/UHQdM2eT5VgETPmhKWyZ8YON5HRP6omUdpkRyyPOuKiaIAHtsi5Ee
l+yDCSesned+rtUjz78eMMFUTfl5u8NUPM9jgnGWgvP2t1PJ87BmJvRev0G7
56KP53tMOEBLM+d06pMer5jwo8MovnaNAZ73MWH+m3D5J3cMSI9PTDiv0Qh+
eoakxzcmVFJ2l38IMyQ9epkAU7kDNh8N8TyQCTIRTg5vzY1Ij1EmCLudNq8N
N8LzQRb/86vFkF6bEekhwgJeUuDrWRrGeF7IAqnDVsuUNxmTHnIsyN1zNvbn
BWM8P2RBdpCBeU+9MemhzoIS9Ut508eN8TyRBWVzMy991DMhPRgsuDK8IsFw
tQmeL7Lg8ovua/r7TUgPYxakscWihS6a4HkjC1ROJVxuzzUhPeawYEjfV6Ku
zgTPH1mQ9cnOffiVCemxkAX0JYt2nvxugueRLKBp3hCNGjUhPVayYHhj/Bx1
oWl4PsmC5kHhs0tFppEe61ngX27q+lZ0GvbBgvSl7eV9/NtkHywoLT4+P4x/
f7IPFoRYRc8r5D8f2QcLKAue7JwcN8E+WKCbfTG1t88E+2CBoo/+U/sPJtgH
C/QXfRJd3GqCfbBgvJiR23bXBPtgwc1dZ9Op2SbYB39eHz0M5l0ywT5YcNG8
sMc80AT7YIH7d0fxWS4m2AcLAuRXyFkuMcE+WHBgYru4Jxs9Uvnz7jizr0EE
PTJY8Fvh1MqA98bYBwuclJtlgnnG2AcLtE4EFgzGGWMffM+hD1VffY2xDxZc
L3CZ6b3CGPtgwQeXkRuXqMbYBwvslL7P2jNohH2wYEehXbjoQyPsg//8Fqff
7blqhH2wwCCvVK54lxH2wYKe2fMOfp1vhH2wYM7eXh0NaSPsgwUdROzVNR3/
+mABgCIn+ca/PlgQ8TvlsqLfvz5Y8J2qsbOAMMQ+WBAt/6fwrKQh9sEGp9Ak
y4JWA+yDDXbic72nJhhgH2y49uLtlj/uBtgHGx6MnX8w18QA+2CDrA5d88uQ
PvbBhtImFX9lrj72wYY4tcs36k7qYx9sUI6cN0PaWh/7YMNCg5ZVX+T1sQ82
qIsYfPFon4p9sCFgsCHz/NWp2Acb6o/eGPZxnop9sGFCsOKrFGsq9sG/v1Op
884v+H61lA0rV1weiMnWwz7Y4G+rLxTpo4d9sIH76OqNbbP0sA82bO4Zuq8y
wsE+2KD3Jk6soJKDfbDhzrr0Z/ODOdgHG1oCd+4uX8TBPthwOLqybroYB/tg
Q6jG1sKMejb2wYZMncUPmFFs7IMNadM/u2WuZmMf/HnkhVQvUGZjH2ywn+X+
vuc5C/tgw8mNwlfy4lnYBxtUJldEXXBmYR9s6GCWmV9hsrAP/uv7hvy4383E
PthgcPFOo042E/tgQ1SYy7PrPv/+frDhfK/bK6fZTOyDDULhjeF2Ywzsg7/+
3pydh+8wsA82zCs0evn+FAP7YMPj7v3akdYM7IM/vxXF1ocUGNgHGzwlpJ1u
P6NjH2x467THxDCBjn2wgRC44DfkSsc++K8f9PS+nCEd+2DDkZqJxEO/aNgH
GwQK5zrOraBhH2y48ueRuc0JGvbBht32P7ZWWNOwDzbcljzfdJxCwz7YcGK6
fmD6ayr2wQbF1dvm6N2gYh8c+NHYWSnhQ8U+OHBedSRr5Twq9sGB40k7z/eL
4N9zOQ443R5+MJKsi31wgEn3/v1iji72wYFpNOVloU062AcHNrk/1hLbqYN9
cCC0qKFgg5AO9sGBjpWP6EfjtbEP/uPVZm88YqaNfXDA5vF62pqnWtgHB8YV
DtOEvLWwDw68aBZ5HSmjhX1w4NXHyKKhTE3sgwP6Jp+/WVhrYh8ccF9qkOz6
TQP74MDAp/JnXhEa2AcHrBlz/eyNNbAPDvQkB1vqNqtjHxyA9+feNfipYx8c
qLtzrG+Lujr2wYE5xNp3LVw17IMDl5reKBq6qWEfHDjIzKzbKf3v8xX/8Skl
0yMKVbEPDoRn27ud36KKfXBAqeaz61ExVeyD75WWq2WXr4J9cEDrdKiryFYV
7IMDtJB4gURJFeyDA3qbGClapcrYBwdi98t2B7orYx8cKEoqdrqnrIx9cMDC
8OSpL7UU7IMDx1rO1fb7U7APDoxuWX3ktR4F++BAvZH2cMZLJeyDA4ezX/jZ
n1XCPjiQ336C/WaREvbBAfGnd02WjShiH/z91LLnRlSOIvbBgYWGjMt57orY
BweOvCkVyNVRxD440HmyoTX0mQL2wYHpD83/mMcoYB/8/XjsyoZaa/y8+40/
H6+CCraYAvbBgTV5fX1bquWxD/5+smiv2hksj31wYP3g9hfLLOWxDz3Ie6j0
/deIHPahB8+HKEeHA+SwDz1wL+DdjhuRxT70oO6yeeGzw7Jc8v+/1wNDgfjy
25My2IcejE4mv9U8JYN98G9ruM3VkpbBPvRgfrXI46wL0tiHHvQ+to+r15HG
PvTAf9D/nO8tKexDD9acPpGabCaFfeiB1yadHPv7ktiHHrydKhMd6iCJfejB
6b116ubdEtgH//pfiKm7H5bAPvQgbd8Kewl5CexDDzxTNkVQ08WxDz2YPaXx
SIaFOPahB8Z2x15d+//3D/58Nstv/eMthn3ogRuxIrdaWoz7P062KuQ=
      
      "]]}}, {{}, {}}},
  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.2}, {-0.12318106299343755`, 104.92796183886206`}},
  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.887191887066931*^9, 3.887191920932027*^9, 
   3.887192048953875*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"fbf053eb-3faf-4aba-8058-1cc2bd814617"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["time domain", "Section",
 CellChangeTimes->{{3.887151094656426*^9, 
  3.887151096946519*^9}},ExpressionUUID->"b39bc33f-6fc4-44bb-a1c7-\
20b376aad21f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"wf1PP", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Part", "[", 
         RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFRe"}], ")"}], 
     "+", 
     RowBox[{"I", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Part", "[", 
          RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", " ", "wfFRe"}], 
       ")"}]}]}], ")"}]}], ";"}], "\[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}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"46ea9ffe-da66-457e-9dbc-a5706753b982"],

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->"f0b32b31-a3ee-46c7-9807-6b20ff369fc1"],

Cell[CellGroupData[{

Cell[BoxData["omegas"], "Input",
 CellLabel->
  "In[308]:=",ExpressionUUID->"e0cd1cfa-2e57-4ab9-b205-b628801502f2"],

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->"567b975f-e3e7-4f3a-b625-ce11611d387e"]
}, 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[154]:=",ExpressionUUID->"3fd85139-0089-4c6d-a8ee-6cfd61d7a756"],

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[155]:=",ExpressionUUID->"b6e8e624-2d7e-4f80-934e-45a78d918ab3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"0.1", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"exp1", "*", "wf1PP"}], "+", 
     RowBox[{"exp2", "*", 
      RowBox[{"Conjugate", "[", "wf1MM", "]"}]}]}], ")"}]}], "//", 
  "Total"}]], "Input",
 CellChangeTimes->{{3.8871903414584723`*^9, 3.887190351293391*^9}},
 CellLabel->
  "In[284]:=",ExpressionUUID->"b711980c-d607-439f-b9d2-c8bcf6da5fb2"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{
          RowBox[{"0.1`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "256.9693129580713`"}], "-", 
                RowBox[{"256.9693129580713`", " ", "\[ImaginaryI]"}]}], ")"}],
               " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"0.`", "\[VeryThinSpace]", "-", 
                  RowBox[{"0.1`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                "t"}]]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"203.0658969753209`", "\[VeryThinSpace]", "-", 
                RowBox[{"100.56088350581997`", " ", "\[ImaginaryI]"}]}], 
               ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"0.`", "\[VeryThinSpace]", "+", 
                  RowBox[{"0.1`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                "t"}]]}]}], ")"}]}], "+", 
          TemplateBox[{"600"},
           "OutputSizeLimit`Skeleton"], "+", 
          RowBox[{"0.1`", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4.0979126268850866`*^-17", "+", 
                RowBox[{"4.0979126268850866`*^-17", " ", "\[ImaginaryI]"}]}], 
               ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"0.`", "\[VeryThinSpace]", "-", 
                  RowBox[{"60.2`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                "t"}]]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1.6088870501175506`*^-16", "+", 
                RowBox[{"5.97905291709119`*^-16", " ", "\[ImaginaryI]"}]}], 
               ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]]}]}], ")"}]}]}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{70., {3., 10.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{61., {0., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 284, 33381881634644545320, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{68., {0., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{68., {0., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 284, 33381881634644545320, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{51., {0., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 284, 33381881634644545320, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{91., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{91., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[33381881634644545320 === $SessionID, 
   Out[284], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{
  3.887190046324679*^9, {3.8871903419925222`*^9, 3.8871903516712637`*^9}},
 CellLabel->
  "Out[284]=",ExpressionUUID->"124521f6-0b55-4664-959e-a0188d4b9bda"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Total", "[", " ", 
   RowBox[{"0.005", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"exp1", "*", "wf1PP"}], "+", 
      RowBox[{"exp2", "*", "wf1PP"}]}], ")"}]}], "]"}], "/.", 
  RowBox[{"t", "->", "0"}]}]], "Input",
 CellChangeTimes->{{3.8871921692234993`*^9, 3.8871921845975103`*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"0622fb8c-de84-4969-8152-3730c86d018c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "4.186714033924689`"}], "-", 
  RowBox[{"4.186714033924689`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.887192148605229*^9, 3.887192185103033*^9}},
 CellLabel->
  "Out[164]=",ExpressionUUID->"1c7900ed-0756-49be-af46-ec49aed1a554"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"wft", "=", 
   RowBox[{"Total", "[", " ", 
    RowBox[{"0.005", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"exp1", "*", "wf1PP"}], "+", 
       RowBox[{"exp2", "*", "wf1PP"}]}], ")"}]}], "]"}]}], ";"}]], "Input",
 CellLabel->
  "In[161]:=",ExpressionUUID->"eff090ce-c33f-4f26-8f96-3cd2af5d6f64"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"wft", "=", 
   RowBox[{"Total", "[", " ", 
    RowBox[{"0.005", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"exp1", "*", "wf1PP"}], "+", 
       RowBox[{"exp2", "*", "wf1PP"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "wft", "]"}], ",", 
     RowBox[{"-", 
      RowBox[{"Im", "[", "wft", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "100"}], ",", "100"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.8871920905118504`*^9, {3.887192217855178*^9, 3.887192224477005*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"b25454cf-f070-4f08-8f40-2fd9cfdb3a1a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1V3k0FPzXN2aYGWKmrGmxll0IWSbzpQVl35oHiVJEqJRKsuVJpey/UlHW
KGQp1I/6XktKKAlpsWZJZckyhrG83nPe94977vmce8+567nnc2UPB9of5eXh
4Vlclf/Vbp794ysrLHj61CbZQbUA90q5Ta1bZMGOzOoUt+ACfLi9c3YLhwWW
wtaxQTUF2MeseXH/JAveF33zbjpQiIPUKwVS+1iw4dWctfy/Rfj6/I2tmjUs
6HDf5H5uoBi/SNR394higcz2zFvDDmVYvDa+BUgs4EbI1Qltq8Rmxl/CDs04
w7ueGPk4Wg1ebz1HFmQ7wb2os48nAhuw0pnI6qeLjtCsFZ5aw23CT8of7jIc
dwDfKnMdHtWPuON6RlbLX3t4+qfnjpp1Ow66qNtu3GcH12k7FPh+fcbWUXpa
RZ9s4XzDRIx66TecYiDZbFtmA2o7k7yignrxhdz5r7zJViC65Xpf7M9+nKEf
fef97f0gmvLHp2z9IDblDD9JeWgBY/d523V9h3HbePhx8VgzuLfgyxBTGMU5
a2o/lSbvgZsEekDN79/4iKfhD8rpXVAe7ygjYTyB0weuW7i4mMBeBW1NsVN/
8XZxKr7eYgxneBTh9T/TmNLho9uVaAjTug5gVzmLjdOxvkCUIRx6IarXBbM4
6Kg4g3HaEHr/c8TO690s7pmtM82wNwSeKVryze5Z/FRc2tZHxBCia3mXFUhs
7M7q8OWkGIDKU/YZf3s2fvbNJEMyVR+iMzXTb0+zsceAlOA/9/VAtV+aLL6P
g63c7v3Wv6kH9/6E12g5c7Bh54ZmyVA9sHuVmOh8mINF3m282fWPHnTr9+RX
hXBwQ+lmGktMD95KO+nOFnCweqScyIEbusBX0L1Dmz6PF6RVNjiF6IBji+RF
4755PHLnMVfnuA6M3W2IuzM2j9tFVL+LsnQgsELi8crCPC4iq6W36+pAHUEK
jYktYI8JdWnHv9vBaVPNuI3lAn7zSkvewWc7PBC7LLW7agGnHDRQtXPWhvyT
Vdbns7h4MPVkT8QebWCaZSSLlXKxbnteYomONtgoDfID5uLOfeIcmog2PPZz
/Mzo5uL1+tP17z9oAVE15XWX5CK+v67I3dJCCxaqKYPFSYv40RuZJDOGJoS3
u7y9m7iEF3hZe86paoK8P5W8NmsJ7zOO5zyU0gSHNEPO7bIl/Pk49+WaqW1w
+tq5C12flrDb7vID1/22QdFp/xpFiWXsPa8U+6+7BiQrjkpLZy7j0CP0qYu7
1cAoV7E5pm4FJ524ML1xixoYEg7qSXWs4LyzAzMv+dSALa1wHw+v4LaYZ3Mr
DapAEjDnk+PjAcVC1tJlC1V4Lfmcs0GZB9pmMig3rFUgcN0um/nTPKB8RUs6
jaUE6BApjUQjgHH8XZmdBkpAGJhZUVlPAMdUolzPeiW4e2lUwF2eAGGPOxRk
vinC/leiKb92EKD9/QWVnIOKwLxMImR6EiBCola38PBWMA4Is8+sJEBnvr1l
9QkFOHJd+/VSAC+4iNEoL/YpgLFl6BgxlBd6IpvqypUUoDfPuH/zNV4Ycdlt
VDwoD91deTop2bzAWaOnkuUmD/lhgSLRX3hB6tR6ylVLOXBx/dfrhQUR7nd3
1EWryMFGu8uyGiwiyO1LCo+kyIHmxvrA6mNEUJUXnAupl4UE70wlxWgiMDoW
h/wZsjBab27LBCK4G/TVOajJgEFI055PO0kwkJsWbisgA8O95As0axK0KJQF
322Vhu1dZq1+7iTo6cw+etNcGlp97H5cCScBj1HMriD9zfD1QRfZqY4Ee4jW
K8aSG2E4Iprngx0fvE/+Ftz5WQJ8dMwbx+JWVyzRQsEhVQJOX/1Ryc7ih5L4
yo8fWBJwklFUvK2SHxJjk9Uav4hDtraQim4fPzhe3j9Q9U0MnIg9EXk6ZPh6
usoqs1cEnJVM3Ph/kqHppDJ3U4YItMmo5UStkKE64Hb+XQ8RsJp7d4ApQYF0
3yBiSv86CNS/vRhmRgGPw6ovrvxYC7WpB9KMCijQlK1n0fWeBmWMbQk/IqhQ
+GBdzkcbGpxYiicIpFMh7t748rtWYSi0EqmJeUEF2+SHz162CcG74U8J8dNU
6IwSl8nuFARN/66dS34CMODJZvv3kEF3XEQ5O1AQ6g+22XkfIsMHcTnSTKIg
5P7zpNBjta76CeEnpc8Ewcfu2GGHAT4YRGkfz3AFYRx1tugPEyHOsD9BJG4N
TDNPWJC/r2CNEVo5+7UQzFglqMwNLOOFSeKGuLFV7PpMcGR0CTtUP+9iiQnD
zLnFloY5Ln5k0zrjelQY2MU37K+IcHBv2kX5m3w0YL8s2R4sNYeZczaxDHUa
zDW1ix6TZWOTpcm6NEcacEY2ft6zbQZ3iG1eXpNFgwXpIle+/ZOYfew5v5UU
HWZdsy78yh7HmqQIsWOqdGCf+2X0rvQP5rv67VOfER3mkrWXH+FfeETto3Dh
fjpwikPgWstPTCkfjq5wocN8U23U8W/D+L2mjNiEDx0WRgT2WIwO4sg8yuTu
YDpwiQ5k5bkBPPfiUWNeFB0Wpe81Uvj6cdNOO0FK3Kr/uQaJj1t6MK/7GtKB
1FV7sXNagslXbC3QIR6TSYflkWEZ24Od2P/wzaHYR3RYkT6XS7vQhmUvUs+7
lNCBt0TY8b5yC1aOjnMfLacDn8y2g5s8X+PxEw4fNP9Lh7UyD5r1tarwQ2rJ
K5WXdNDkgZf+KA/3fqz92/aKDqQVTjDrSjyzZqOvoCKmwxfm/cXmyKfMy3Wh
yVtX7aPFGme9r9UwheP1OW1VdBhiCp/4adfIpJQMXtv2nA5/R4JLdW62Mo3q
i06aPKXDRPGw2tlT7cyLfY1ptCI6jJ1zzi936mJG5a2UZOXS4TezQZ5t8J2p
ZP5yhJS+2n/iPZsNtD5mG4M0bZJMh5kR+5tGhAEmueHG52NX6TDdJNDkOv2D
WXYiry4ylA5TxbWU0KEh5rL4tYHMwNX4ySF70z6PMIM829U+e9Jh8px2dHXj
KFND3WmHtgMdxplZK4tFY8wPqrtr0rev5iPvsnNTxgTTR3elslVudd7Eay83
N04y77R2rPivXcUjiGtcNcVs/m5yzvErDWaKS4LDH7CZ+68cTXyOaDDJTPDn
8Vlm1vycTlYnCMN58Y8vtINXmD+SP9ZJdwpBBJtyWduUB23aqCLpVCAE1BaL
D162BNTO4at96iwEUiFN3o0niKjR9JO1VNka2Nn+PjUpl4xSugW//g0ThCjm
xKsCNQo6Hq1NrXARhIbHtKH6pxTUnWwuMKMnCNaRtlpzNVRkpFAy3DUpAB4a
bY2uPYJI+pCZ3iZfATCp972UJEhHWzTEd5JOUWFwPoQubUNHUSm8nBwHKlzZ
FptdkERHxL0PIFuPCu/uFjTWr1+LJFLFhJ4tUcD+1B+xOcV1KEJ358axeAp4
bQ544rpbFMlZIDfzOjLwO4aZ/IwRRTufHHbkPiZD/rW49jNNomjPUr7tVBIZ
/sw8WbhpL4b2UjoIeUfIcLZpYi94iCMJKqmBTCHDlfOnehUuSaIp0e/D2a78
gK7dYGhUSyLNy4G2x8z5YeFO3p0dXEnkYkjxd9Tlh4Cqbod9F9aj6b5jnSU0
fnBetngbeFYKecaXzzo38MGWaLnS//pvRDlhSUcaDflg4M1xE6VtMoiHx+tH
CIMETNu5iUJrGZSYEqsdp06CtK7o+1oBMkji6y2L6s0kcB59wDUskkHDRssu
3gQSvBPoLLdSlUULTiEmE2+IUGZlqhKkKIdydrTvvfQPEaI+SYm8klZAYkXl
v27d4IWTHEfyiIkCEj2ePOkdzgvum+K5NC8FFPHclGB9mhcMvYmDnvkKqPqN
KoPF4oXphd/P+LS2IFn5P0ruW3jBS+6ls5XpVvSrCU1yawmw59Shu9+9lJCl
XIbBWkEC6Ny6E8cXo4TmFRkeEjwEkKv6FKXxSAk92rpDXW2WB5ZJ5n4RY0rI
fjZUJrKXBypSNRkKwcpI5iGV1f6MB7YCoccvRgVJ1/zQJBzmAQotR5b7SA0J
fb5K1ohdvcOlJ09GN6mhx0sFEy/Or2Anh51YaEwNNbkqpbscW8FZtzvdZDTV
UcvQ3/gvJivYSIaauqdCHVWwZP+8nV/GAVoBwgm1GmjfBFXY3H8Z/1JOu5Tk
r4k2J9f1V3guYTvLY76KV7RRqaghU/UCF6s42uxu+o82Mku/uq7Gj4tJbvqb
A3O1UZZJ87inOxdX+Am0VdRro33kopD6XVwsFfvEYC9xO3rpfntGgLbK9xrZ
lKMR21Fd8fD9uLwFHGwWk5cVooMGhHmkeFf55j3T/MFNgXpINK1iKsGPg6tT
vftFIvTQRGbDpsuHOLhnfGsPNVEP1VtpMsIcOFjuXu7n2TI9ZE7t3hxvxMH5
01nvWth6yLPOW1RqDQdX5KSXXArbgWqRX1/jkzncxp8c2n1TH038/WHIXGBj
atMl0fRCQ6Tc6BDAyJvFMyTC0M9MYzRW+eFXxMlpPDs1SswwMUHSj9Nc/8b8
xVFqmybj3Xah6VR24VnPCfzeOE/tmMMeNHHr/duj+/9gNSluXcQZMyQiG2pT
bDqKzd/nFkSeskB/XIsPaRYO41Gn84yrXvuRb9O1bzWOgzjtoajSp0grtJ2v
cuvPhX4s3Er2Il20QYWLOsUp/b3Y3PPwEuODLeJV7g59WvMNW9Y7pi98s0Mb
/mhHDnM+4+Lk00cLOu1RdvmyBSOvHd8zm3UJG3ZAwcv6L6dNP+Jh7+zzuwcd
0Y1XW317rzfjmVNDvkLdTqhyY+nDlYUGHOtx4zrnlzPS+0v+rmdSgyOr3Ns6
hw8gry0P6s+6PseSDa3BRr8PIFKJvhVj23Nc0mq6IWPiANIYyrFcQ3yOe4a2
eh3nHEBWbIPst48rMYM+MculstDSxzvOZQsVmOMVvl5WnYWM3bhiZmnlOEA4
w8MviIXAqcvaY7gM869fx9d6joUkBSPybKrKcLp89COdUBYy9T8kap5Qhpv1
faaWolnI52LfZkfDMqxyRDM64RYLbafz5XTFleKhSsgrf8FCe180f08wKMGh
tdqWUq9YSMzWT4JOK8GiLTmTYbUsRCM2B2g2FmPTgasG5k0stLa6Z8cV6WKc
scau6et3FiKd2mfN31KE9SXqApn9LCSQ/+V80vki/EFWVzRniIUq4wOQpkIR
XtZbf9B/nIWufacmZFwsxLdMYgltUyxEnH2zJkixEKtbLuXqzbHQDIVLO/Cp
ANc7B+67x2UhESZ/imV4Af6/fx39/7/+P3Mk29E=
       "]]},
     Annotation[#, "Charting`Private`Tag$937627#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1V3k0FP7XNmaYGcpMWdNiLbITskw+lxaUfWu+SJQiQqtKsuWbStl/paJs
RSFLoX7UfCwpWZKQFmuWVJYsYxjM6z3nff+4557nPPece8+959zzPHKHghyO
8PPx8S2uxP9md6/+cR6PiZ89s012VM1HvdLuU2sXmXh7ZlWKe3A+OtTeObuZ
w8RWIjaxp6vzka950+K+SSZuKfzm07i/AJ1WrxBK7WPi9a/nbBT+LUTX529s
0apm4g6PjR7nBorQy0QDD88oJpbdlnlr2LEUSdTEN2MSE3Mj5GtXa1Ygc5Mv
YQdnXPD7nhiFOFo1WmczRxZmO+N7UWefTATVI+UzkVXPFp1wk3Z4ajW3ET0t
e7TTaNwR+1Va6PKpfkQd1zOymv864Gd/eu6o2bSj0xf12k367PF12nZFgV+f
kU2UvnbhJzt8vn4iRr3kG0oxlGqyK7XFajuSvKNO96ILD+e/8idbY7HN1/ti
f/ajDIPoOy2392GxlD++pesGkRln+GnKI0s8dp+/Xc9vGLWNhx+TiDXH9xb8
GOKKoyhnVc2nkuTd+CaBHlj9+zc67GX0g3JqJy6Ld5KVNJlA6QPXLV1dTfEe
RR0t8ZN/0TYJKut6swk+w6eE3/wzjSgdvnpdiUZ4Ws8R21fMIpN0loFQlBE+
+FJMvwvPotNHJBiMU0a49z+H7b3fz6Ke2VqzDAcjzDdFS77ZPYueScjY+Yoa
4ega/mVFEht5MDv8OCmGWOUZ+0yAAxs9/2aaIZVqgKMztdJvT7OR54C08D/3
9bFqvwxZYi8HWbvf+21wUx/f+xNere3CQUad65ukQvWx/evERJdDHCT6fsPN
rn/0cbdBT15lCAfVl2yiMcX18TsZZ73ZfA5Sj5QX3X9DDwvkd2/Xoc+jBRmV
9c4hutipWeqiSd88GrnzhKt7TBeP3a2PuzM2j9pFVb+LMXVxULnkE97CPCok
q6W36+niWoI0jIkvIM8JdRmnv9uw88bqcVurBfT2tbaCo+82/ED8svSuygWU
csBQ1d5FB+edqLQ5n8VFg6kneiJ262BknpEsXsJFeu25icW6OthWeVAQs7io
c68Ehyaqg5/4O31mdHPROoPpupYP2piomvKmS2oR3V9b6GFlqY0XqiiDRUmL
6PFb2SRzhhYOb3d9dzdxCS3wM3efU9XCCgFU8pqsJbTXJJ7zSFoLO6YZcW6X
LqHPx7ivVk1p4lPXzl3o+rSE3HeV7b/ur4kLTwVUK0kuI5955dh/PTRwstKo
jEzmMgo9TJ+6uEsNGz9Uaoqp5aGk4xemN2xWw0aEA/rSHTyUe3Zg5pWAGmbL
KN5nDfNQW8zzOV69KiYJWQjIC/CBUgFz6bKlKn4j9YKzfisftM1kUG7YqOCg
tTtt50/xwdYr2jJpTGUMB0lpJBoBTOLvyu4wVMaEgRmeyjoCOKUS5XvWKeO7
l0aFPBQIEPakQ1H2mxLe91os5dd2ArS3XFDJOaCE0WUSIdOLABGSNXoFh7Zg
k8Awh8wKAnTmOVhVHVfEh6/rvFkK5AdXcRrl5V5FbGIVOkYM5YeeyMbaMmVF
3Jtr0r/pGj+MuO4yLhpUwN1dubop2fzAWaWvkuWugPPCgkSjv/CD9Ml1lKtW
8tjV7V/vl5ZEuN/dURutIo832F+W02ASQX5vUngkRR5rbagLqjpKBFUF4bmQ
Ojmc4JOprBRNBEbH4lAAQw6P1lnYIUwED8O+Wkc1WWwY0rj70w4SDDxMC7cT
ksXDveQLNBsSNCuWBt9tlcHbusxb/T1I0NOZfeSmhQxu9bX/cSWcBHzGMTtP
G2zCXx90kZ1rSbCbaMMzkdqAhyOi+T7YC0BL8rfgzs+S2FfXomEsThBYiZaK
jqmS+NTVHxXsLEEojq/4+IEpiU8wCos0KwQhMTZZreGLBM7WWa2i1ycITpf3
DVR+E8fOxJ6IXF0yfD1VaZ3ZK4pdlE3dBX+SofHEVu7GDFHcJquWE8UjQ1Xg
7by7nqLYeu79fiRJgXS/08SU/rU4yOD2Ypg5BTwPqb688mMNrkndn2acT4HG
bH3LrhYaLmVoJvyIoELBg7U5H21p+PhSPEEonQpx98aX37eK4AJr0eqYl1Sw
S370/FXbavx++FNC/DQVOqMkZLM7hbFWQNeOJX8hGPBiswN6yFhvXHRrdpAw
1B1os/c5SMYfJORJM4nC8PCfpwWefYK4bkLkaclzYfC1P3rIcUAAD0LaxzNc
YRiHzmaDYSKOM+pPEI1bBdPouCX5O4+lMUIrY79ZDTPWCSpzA8ushUni+rix
Fez2XHhkdInlWPWiiykuAjPnFpvr57isx7atM25HRIBddMPhiiiH1Zt2UeGm
AA3Yr4q3BUvPsdCcbSxDnQZzje1iR+XYLNOlydo0JxpwRjZ83q05w+oQ37S8
KosGCzKFbgL7Jlnsoy8EraXpMOuWdeFX9jhLixQhflSVDuxzv4zfl/xhCVz9
9qnPmA5zyTrLj1m/WCNqH0UK9tGBUxSCrzX/ZFHKhqPLXekw31gTdezbMKtF
S1Z8wpcOCyNCuy1HB1mRuZTJXcF04BIdyVvnBlhzLx835EbRYVHmXgNFoJ/V
uMNemBK3Un+uXvLj5h4Wv8cq0v7UFb7IJS3B9CvLRqhDIiaTDssjw7J2BzpZ
AYduDsU+pgNP5txD2oU2ltxF6nnXYjrwF4s43d/azNoaHecxWkYHAVnNAxu9
3rDGjzt+0PovHdbIPmgy0K5kPaIWv1Z5RQctPvwqAHJZvR9r/ra9pgOJxwlm
XolH1Rv8hJVYdPiC7i82RT5Dl2tDk7es8KNFGmd9rlUjkXgDTlslHYaQyPGf
9g2IUjx4TfMFHf6OBJfo3mxFxnWFJ0yf0WGiaFjt7Ml2dLGvIY1WSIexcy55
Zc5dKCqXV5z1kA6/Ub0C2/A7UrZ4NUJKX9k/8Z7telofamOQpk2T6TAz4nDT
mDCAyPU3Ph+9SofpRqFGt+kfqPR4bm1kKB2mimoooUNDaFni2kBm0Er/5JA9
aZ9H0GmvdrXPXnSYPKcTXdUwijTUnbfrONJhHGXxFgvH0AfVXdXp21bmUXDd
sTFjAvnq8Spa5VfuTbz2alPDJLrT2sELWLOCR4BrUjmFmr6bnnP6SoOZouLg
8AdstO/KkcQXQINJlBDA57uMqn9OJ6sTROC8xMeXOsE89CP5Y61M52qIYFMu
65jxwcYNKlLO+auB2mz5wdtu5a9yBGqeuawG6ZBGn4bjRGgw+2QjXboKdrS3
pCY9JENKt/DXv2HCEIUmXuerUeBYtA613FUY6p/QhuqeUaA72UJoRl8YbCLt
tOeqqWCsWDzcNSkEnhptDW49wiBz0Fx/o58QmNb5XUoSpsNmDYkdpJNUGJwP
ocvY0iEqhZ+T40iFK5qx2flJdCDueYCz9anw/m5+Q926NSCZKr76+RIFHE7+
EZ9TWgsRejs2jMVTwHtT4FO3XWIgbwnuFrVkEHQKM/0ZIwY7nh5y4j4hQ961
uPYzjWKweynPbiqJDH9mni7cdBCHPZQOQu5hMpxtnNiDPSVAkkqqJ1PIcOX8
yV7FS1IwJfZ9ONtNEODaDYZGlRRoXQ6yO2ohCAt3cu9s50qBqxElwElPEAIr
ux33XlgH031HO4tpguCybPku6Kw0eMWXzbrUC8DmaPmS/wZsgJywpMMNRgIw
8PaYqbKmLPDxef8IYZAA2c1NFNjIQmJKrE6cOgnSuqLvawfKguTXW5ZVm0jg
MvqAa1QoC8PGy64+BBK8F+oss1aVgwXnENOJt0QotTZTOa0kDznb2/dc+ocI
UZ+kRV/LKIJ4YdmvWzf44QTHiTxiqghix5InfcL5wWNjPJfmrQgRL8wINqf4
wciHOOiVpwhVb1UZTCY/TC/8fi6gvRnkFP4oe2zmB2/5Vy7WZlvgVyNMcmsI
sPvkwbvfvZXBSj7DcI0wAXRv3YkTiFGGeSWGpyQfAeQrP0VpPFaGx1u2q6vN
8sEyycI/YkwZHGZDZSN7+aA8VYuhGLwVZB9Rme3P+WALJvT4x6iATPUPLcIh
PqDQcuS4j9Vg9eerZI1YHtIoOXEiulENnizlT7w8z0POjjtYq8fUoNFNOd31
KA9l3e50l9VSh+ahv/FfTHnIWJaaurtcHcqZcn/ezS+jQO1AkYQaDdg7QRWx
CFhGv7amXUoK0IJNybX95V5LyN7qqJ/SFR0oETNCqhe4SMXJdlfjf3TAPP3q
2mp/LiK5G2wKeqgDWaZN414eXFTuL9RWXqcDe8mFIXU7uUg69qnhHuI2eOVx
e0aItqL3GtiUIxHboLZo+H5c7gIKNo/JzQrRhQERPmn+Fb15zyxvcGOQPoil
lU8l+HNQVapPv2iEPkxk1m+8fJCDesa39FAT9aHOWosR5shB8vcefp4t1QcL
avemeGMOypvOet/M1gevWh8x6VUcVJ6TXnwpbDvUgH9fw9M51CaYHNp90wAm
/v4wQgtsRG28JJZeYARbGxwDGbmzaIZEGPqZaQJjFR9+RZyYRrNTo8QMU1OQ
eZLm9jfmL4pS2zgZ774TplPZBWe9JlCLSa7aUcfdMHGr5d2RfX+QmjS3NuKM
OYjKhdoWmY0ii5aH+ZEnLeGPW9FBrYJhNOp8nnHVex/4NV77Vu00iNIeiSl/
irSGbQIVW34u9CORVrI36aItFCzqFqX09yILr0NLjA92wL+1O/RZ9TdkVeeU
vvDNHtb/0Ykc5nxGRcmnjuR3OkB22bIlI7cd3TOfdQ0bdoTgZYNX02Yf0bBP
9vldg05w4/UWv97rTWjm5JDf6m5nqNhQ8oi3UI9iPW9c5/xyAf2/5O/6ptUo
stKjrXN4P3hvflB31u0FkqpvDTb+vR9IxQbWDM0XqLjVbH3GxH7QGMqxWkV8
gXqGtngf4+wHa7Zh9rsnFYhBn5jlUpmw9PGOS+lCOeJ4h6+TU2eCiTtX3Dyt
DAWKZHj6n2YCdu6y8RwuRYLr1gq0nmOClHBErm1lKUpXiH6sG8oEs4CDYhYJ
pajJwHdqKZoJvhf7NjkZlSKVw1rRCbeYsI0ukNMVV4KGKnBu2Usm7HnZ9D3B
sBiF1uhYSb9mgridvySdVozEmnMmw2qYQCM2BWo1FCGzgauGFo1MWFPVs/2K
TBHKWGXf+PU7E0gn99oINhciA8naINTPBKG8L+eTzheiD3J6YjlDTKiIDwQt
xUK0rL/uQMA4E659pyZkXCxAt0xjCW1TTCDOvl11WqkAqVstPdSfY8IMhUvb
/ykf1bkE7b3HZYIoEkyxCs9H/+fX4f/9+v8AazFd0Q==
       "]]},
     Annotation[#, "Charting`Private`Tag$937627#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.887192092796224*^9, 3.887192225384652*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"abb08f4b-a1f1-4fce-8060-fedca382db22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"wft", "=", 
   RowBox[{"Total", "[", " ", 
    RowBox[{"0.005", "*", 
     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[{"-", "100"}], ",", "100"}], "}"}], ",", 
   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.887191948470606*^9, 
   3.887191950002933*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"ee534456-c24b-4ede-8cbb-722601c07f2a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2Xc0l98fAHBCVmXvvWcZmR/jXmSHRCgjm2wyoilUSqlIVqWklFXRTveS
SLZkfKzPx06yV5R+z/ec31/PeZ37+Zznue/3fb/fzzmPhHf4Qb9tNDQ0w7Q0
NP9d3byos//+ueCU/az/DFj7wLCg2yLnHxfcW860LLCzD3h3da/IrLtg+isp
Yyu7+kCgefMf63kXrBqy+rqMsw8c3/2aJZvigp3WY+VFBPvA5d9psqo1Lnh0
n9aeTfk+8PaGjofneRd8aTrpY6VZH+CtTW/B9C446/jqKd7zfcDcsO/M0WUn
/Pyh6PTNbWQgYLvGyLp6CC+9/yKhlEAG8tGJHyr/OOJ/y61x9HNkUP7ykQlp
1gFfqvyxZBzaD75fLnjQsnAQzyfg6Usj/eD4Sc0uQ4o9NhYP9Jr3HAC257XU
yr4dwIq/5SJIAwMgU5e/+cALOzx0el3L23YQxBf9Jm/LsMG+Md+UuRoHQYFO
ck7rbWvMcc2s0Yc0BIzXJ8ozH1niZEqzMn/xEOicPXuM94o5brkmJm4gMgwe
7qj99jzDFHPRKmu7XhoGPl6kUaYoE4zvQN+o38PgzshlyyNHjHD9ffVkY3UK
2MvLjC63GGK2iVzbAS8KYPoeqNl7g4Q3tVufsN6kAM8RQdbDd7VwC/1nuSvv
KMDGLe+nzlUtnO/a9nbPewogdQs185/SwszGPn0dhLm+Cl/tPayFaTLCPvJW
U0D9c1E2Fx4t3Gw7tSMPUcDuREku5zRNHGzyWfRqHQVsiCkKHUrQwKmufZsc
rRQwmfN0U+OYBm41PTxQRLiLS2mA20UDa7P1quu2UUAZo/KdLk0N3J5YaOjR
Tjzf3G4xx4W92NlW+v39Tgpo+Kgm5RC4F8OLD2/u7KGATHddJXsndWwTzP43
apgCxrIjhs6ZquMvL3ReLBDW7Hp845mGOnbsU2gMp1BAtxXvOhuXOv6484hA
EJUCBHSW6lrb1DDdSPtu51EKuMtZ5rHfUg0vv7JM5JykgCcN4jfN9VUxl8A6
G/MssZ9tLqZxSqo4VmjtQRRhK8P09UeCqtiw2Sipn3DPsc3qHYsqmPRXU7Fk
jgLc9r10vhysgosOBTIZL1BAwG/5Kykee7DjIdpum2UKOOXDvnhynzKO0Psc
PvSbAm6GxC8JyyhjgcoULuUNCngcM7JczaCMjU7bS8UT7rxYtfavXglXx5Rd
4dikALlSl79JlkrYYi32od4fYn25gCnNVhGrKC2Exm5RgMIFNbF8F3l8jufM
nextVGCYnituoCuPY/LvCPQSdsymkxwSkMesGea+fHRUcObpd2nxfjms4J56
5hbhrtZ4xYfuchjw0qZep6eCc3y1mqXesjjHYkYxdTsVZIkraduYyGL/1t2k
RsIlCpk6s1Ky2HPH6iNmRiro1vPXUx2XwX/6i5qvEFbyZDGqCpDBN/YPdmYx
EevFB/d/CJHGK6Gp7t0sVHCEh43prZU0XqiNMFVkpYKhxKZPL+WlsfEH+4Wz
hCeP7NOrGJPCrj/lBNV2UEFIA81aSa0UlrZrHUwjPL+3+kVxgRQuyd5YnCa8
vkNL8YGbFK75olxZvpMKTsUvjt8lSeEv4x2V3LuogGai/H4evxSeCop8fpow
M5ITuNUliQP0FQIOs1GBYKQA06X9kljxM32hAQcV3B38/ilZURLnSPD51BCW
tLp5NpFJEpcFSf6y5CT2J8W6llAngVcFQ88FcVHBs/SGF3EPJHBmcZ4UHTcV
aPxJCos+J4EvX2b8fJ+w/vc/46H6EtjI6LPPIg8VYKO394MEJbCCsYxIES8V
7CuPcQ9YF8dztH42R/mowObibJdnlTj+a/qz9ic/FXjoUj45KIvjn4f9xKOE
qWCkKP/sARZxvKk2mBYqQgUt0i9ic9vFsAXLpZhoUSKe3YV+Vy3EcHe5rtVj
cSqYqBAevEAvhu3ecWV2SVDB3KVbjuewKE7p6eZllyLio3fR5LiOKJZ/4b5Q
JUMFTNw070OWRfChwPQNMTkq4Ph1Qt3/mQhmKJkpyJcn4nEvSOKwvAjua5Wr
alUi4nFiNPvgmDBuK4zRv7Cb2L+9G/v+AmFc6JGd66BCBaZ0tv8M+YVxVrF/
jcZeKrAdqI/V6RLCb5mCla01qcDpJZhVuy6E1yIdq05pU0FggNqgNJMQHg5+
aqKtTwUR8KmjaJ0gdhw5lPvJkAriBaSa+c4J4qHbcRWRRlRwuYn7Pcu6ALb2
2ewlmVPBzYdX1emrBLDshJrQESsqyDu9/enfcAHs73b/ZKENFZSqrGfPT/Jj
m7FXYR8dqaCKKZJ9upAfB4k/sbvlQgXV1B8XR4/yYx3zrvkCNypozeiP7e7h
w+xcj7e8/agA3bCUdsjmww9c31S2HPsv/6872lz48FFzHtqoMCq4cSVDubGP
Fxs7Qa/oE1RwPpWWbJrLi6u9ZSP7TlNB1MXwi7VHePE62VzwQhJRn0nWI+/7
efDua5yl9elEvBLfpuvk82AP6YYonywq0DorZ/DSjQc3bb28ffgOFfCdpMsu
H+TGTkOGs/6lRL7iI02V7nJjrY1dYalVRD3EDi8+9uDGdHbqy0LVVECOem9z
f5gLKxR8Hyhpo4KmCIVNkQIuLMj5/O3rPir4EHa7ONeTC4+U/Co4MEYFd4KO
02VSOXFpXP6y9SYVXAukPmN/wIkZ5nm3MOMIOONv53HVmxNTaeeOTnGPAE9v
pbcXRjlwrqf6mQS1EWDvmeNP95ADqy8mkv7CEWDswch9zpcD6zhfC/S2HwFS
R0bD4sfZ8cu5GrudMSOA28VeeLWIHRs6jDJEXRoB9E6oMcqfHTf8LTBfyx8B
TYValr2tbNii46NpWeMIKL3H+bDDjg2nJeINhpERcC1vdutr+y6cpvHwYNvm
CDiQ8aiqunMnXniaOMWpMQrU08+zvXbYiT8macfhg6OA64pH0LOuHfhDrfVx
0+OjoPs8r3hhNysW9/40YPtuFLw5s5iQ78yK/5onn+CmjoKchNbvt3pZ8Bn6
EFoNljGQEPtUNf0wC0bZ15c6NceAW9SFK5fIzLgzd6ub33cMGIZ5TyS6MuOD
Cw5mKrfGgFiQodHJASZMT9syZ9Q4Bka8VldDhxhx049Pw9x646DOvdM+4Cgj
nukvTNSKHwdFh8tLPSnbcWXelS7e9+Mg0N7f22GEAS86CYRPWU0AKxvj6v0+
DHjz2NlJs5wJoGQpym82Ro+B+L4cg5kJMAu7W3Qm6HAO6njeVjAJ2vVfyKsH
0OFN98Wp79umwHOda0lKU9uww/wnBougKRCtaqYrOk2LVyhKOuJWP4CTsmQm
XzAt5uQ1KG2t/QG05bdm2WdosOFDed5Yo2mwBEIsGQf+oc3XL+62H/gJlm2u
K66NbKHt1cFMqUOEXatYJ3/8RYUJkXc6ImfActyflvq1TaQtF9bAW/wLrFak
HbzAtY4EX5rPOknNg9XqZ3tjBdcQk4xVlEPCPFhr6uL2l1hFDyZln2V3zIP1
SeEeU5VlJD58LzHizAJYX4FvNLWW0Hn3CKb0zgXwm84vR8ZgEQmZNn5jl14k
3kfKXBms59G11P7Xz98vghXXB/HThbPo2tIL2uV/i2A1blrv6/MZ1O9TITVl
sATWMtS3nqBpFC0Qci0/egmsVyTg1JYpdGrdP1mucAn8bqo9f6x/AlUPRyeV
flkCG5MsppY/xtAx5ul7XmNLYJPOgVFhbQSxWH/LzlxZAn/E8hqZGKhIPJo3
rGKT+H1cPV+HzBBKuJxopr9KrFc45V83IiNJGctTU8T/tyYnxA+4dyOBB1HP
LzQsgX9icUVs8Z2IS0WFzHZ3CWx7tsvxrkILSvyqqVMYuAQYxFXcRbw+o7b4
N7YpckuAQ/xes47aeyQS30EV6V8EqjS4OhQ+RvHq90RWkhYB/b/1WJcL6eAl
y1GmZ5KLoA/c/dOcWAkq+NIDdrxZAONgV8iUfSM4IiWzm/brPFiYjH2ucbUd
dAxQkgIs5sFcxYRyTGQXCPt+/zTd+TnwE9RLreoOADP14nZg+Qus0OXZCbFR
wDc6qXVaKSLfkwev6tGOgEsNGY9urk+DxYpaplPj4+CSH9uRyjtTYBY8+Pen
7BdoTmw4rLQ2Cn5JHTEQKZgDyuTS/AM9I2CVLrVatHEenOqsEuUn+tfqJNw0
JPL4NDPjw6L2MFjtExa0q1oC+d6vSraUBsFK07rO0bJl0FO3GM2s0g+WK57F
nr23Cu4ql+8p9+kBy/fTbqVnr4H35vU/Km59B0sZgVX3bqwDD8+p/tSeb2Ax
TnwRJW0AKa9LL+wut4N5cD2UJnALGOmP+iRZfgYneDveqsf+A5YlYTe4/WrB
uVWmJHVjGmh5/4gCA0SAucWyzfcALRyviNGIHaoCtjpBK6d7aGGjVoms8bZn
4GbhZaHbHtvgi3vhwSmvHgHBhKaAxhA6eP2SUEaAcArwGP95dWSJDlp037jI
KxSHCg/sqNpMoIeBO/0n+INvIWU5G5o9qQxQhlVhI8HrCTLoas2+WcQI9zWe
Tgy4/xadB3MfS5SZoH2V0GrQlQ+o/inbeF0lE5RKc/D+6IyQbeIBtbUaZqh4
Msn4km0tujkT4cxuyQIPLivaHk37hHqcb5xWaGeBt47Ih+/6WIc893Q2ug6x
Qi5pLSezf/XoYc7iXLTfDniY4avHGNsXNEXPxXttZgcMoHtQk8LbiCL7Hbzx
xk741K77dgVjEzKqCzp9k5Ud9roLFDqktKKx3wnsYnbs8MKstv6ifRu6oHKl
sOQmO5wxMzQYYG1HX3NLGusEOKBApvavtYZ2FNL+3s3enQOyLATGnZDoQLu2
N88NFnDAhK/jNCInOtDByBmeNTlOWD1ufchWpBMtP/pTnBTMCTezsqx4QjpR
1sAOffYKTrhxkloT/aYT9Zvv9lbQ4oJKXOPrXlbfkK9oWLnrPm74boWhL+pQ
F9rueMZo6iI3vOGmxJ2S0YWKU691RTdxQ2EblVf9bV1oZrl84+pBHmgcK3E5
x+Q7immaM8OevLDdY26aTqAb8dPSkPc/5IUe365wzFh1o3da7KF9k7yQbWok
Le1kN9q6r5qxGMYHZ7RD70j3daMLJyKHpU/zw68s8sq9F3oQTE3T3/OBH/4N
Oxi5WdqDNnIe52hv8sPCmZB8s84eFPZ+0MEqXgBGlGLmcMFe5LRl+SU8RhBO
8p1jrLzfi9jZ/GTiqwRhz4YSqK3pRV/Fzp0/vyQIWba+/pGj9iJDo1f6tyKF
YE/GNQ8W0T4kkyz5/F2oMITbLngVX+9DQ5kGu+pKhaHD12NN0yV9KLvIJbjl
pzB0ZBcUe1Tfh3Y0XJOhHBOBDaXWc7c2+tAy82YOg78oDKLJdHjjRkYjDceM
5FXEofr7hpJ7O/oROLA2V2orDg9/eo0nxPtRfm/yXbUwcVhixGXZpdGPnH7c
2ySViUNf80rJEtd+9JWl+6WNkgSkv7AefraoH8ll+Ph2WknAI70HedRf96Nk
oQVO5yAJmBD1JCb3Sz8yVN4R4flEAv7iYf53c7ofvbAxVjwuJwl319x8Zas0
gNi623rXzCThlSgTrn7SAArxcL94yl8S8uWy7FawGkCy4SfGUookYf7gYDtb
4ADKvV5+N1tKCgYrzwcr3B9A578Jcn0Uk4amSRafLjIPooh1R8ZJI2lYaqW3
9ZF3EHmIpG+y+UpDf96+iBqpQUQKoBvzKpaGxxRtrJUNBtHSxs8qBjUZ2Kno
5PEqdBD5SlY72RjLwnc1yk+D6gfRQfM1q1hfWcixszrpS/sggiFq4N4FWfhr
5N7gP/IgEn5VJLfwVRbKunaM/50dRF2W19YzHeRgLmlSyIpnCJlGHs0d8JWH
GwJf60tdh5BGVs41hovykOOVFOOczxCSfP/t/J4n8tC2/Lo9d8gQ2qK3CD73
Sx6SJ54vMp8aQq+yVfWlYxXgnxzZA+W5Q0gW0w4FX1SE0e5iD0nfhhD3uF5n
5hNFyCV2V26kbwhtY4mtr25ShE/95OyPU4bQkMN0ORu7EtTs2L3k8GsI3Z7s
PFuZrQSjrXbl8m0fRkxsDyU2nyjDsXEv15m9w2jP84iI5CZl+Ih9JYekO4wO
ORignb+UIU2cNTnOcBg9uN3tJq66G05/kT6ALYaRnjhztumr3fBMorB3utsw
ClML23W9dg9M1cg6dChxGGV+I7kLjO2B734eelSWMozexzCWPmBQgbryGSbr
qcT93xVYvrRQgflOa7x+N4fRfeNvyeRWFcjIXjx0/8EwmlbIP30zVBUy3xG5
2ISH0d+EbTLOZ1Sh+b0OWbe6YcTeHNgslK4Kb48LpFMbhpF2mKZQ0TNVKMfo
ZdzUOoySX7S+eb2kCkNXRLtEBoaRqB7t8kC8GqTv4vhDXh5GamkBefcvq8Fi
mnqxhrVhtG+wxdg/Tw1aiMStPNkYRsFnc2/MfVCD+g/usivSUNCbT3tVttGo
Q9ueW4/uMlCQ/X7/ILkL6lAu+JTiBzYKUnS029d0Sx02WtzX6mOnIHo3HdHw
InWo8jtzYJGDgl4Fs3S+qlOHp1ZZ+IW5KUjwSrmuGd1eGL81omnOT0FjjatM
fuf2QtNgs43t4hRU3TE8wnR9L6R8yAlaIJzV9+VD6b29kLFbeKFXgoIsfuRG
LH/cC3MMg9zuSVFQGRPoTfq7F1qWWx9jkaOgWPOLjx8kaECLORfao7spyM4u
ItHssgaUcbKcEtlDQfLOh12nczTgsi3VikyY7K/Epv5WA7Keb8yxVqUgcKEt
tmZNA25nnvnNvpeCmD7zmVGiNeFabtUxJR0KojbTiCcna8LubWYZdYTfdf34
LZepCbfmJNJcdSkodOx9WXilJnxLydo6T6KgTjpPnn8LmnCTFBXwRp+C8oyL
x0TCtWCA/jHZGkhBH7IDqFzntODD7zXhJkYUNDQrO8R8Qwsybf8Z94mwZF5R
z8oLLRhc8Ln3gzEFFS89+NqyqgVNz/b53dpHQV8tvRs+MWpD7B+gst2Ugmbu
SdS95deGG49Dh6IJq+wvqC4iacOvKnv+WZsR+Xh459npM9rwRMnFL1RzCurd
cCs7nq4Nf85Y6BlbUNDGAeGnxwq0oTjdx1cFhA3+5hYeqtWGV8tjep0tKaju
UHbW7u06cC1sn26FFQVNlDhnSPHpQMNiZV8aayJe2/iuC8jrQP7Ctdd2hK3L
b6UyWOnAk70JP6YId27PODV4VQce4C4ZYLChoGW3g/Hf7urAXZ+jX1sQ5q3k
iG2s0IHHVrJ6UwkfPno9/GWHDjwlM7q53ZaCEl7ahZSM6EDHlkV6E8L5rGzH
7i/pwO1tst6nCVNeX/W+yqML4+4dlf1FeNsum6NJsrpwzpQ2U9KOgqR9d7jF
a+vC5i4aHyfCAexXDvkd1oUak4tqbwnPBl6yMLijC3VI+T+DD1AQOzI33Vuu
C7fhsA+ZhNV5GI0VkC6sEIxm/EA4piZFj4eqCwNWpvi22xPnlc9Uh3VRFx4P
VB6VJ/wmlF6Tlo4EDb2tNawI/xFI2vNLmgQPzkcev0RYNMJYaVSTBPWfcQUU
EQb1tPJ9ZiQY2lX3ExP2FK6RbnMmwZ79kL6f8PmocxKfA0nQ2lW3conwwy9A
9H08CWaNum6yHKSgetF/gs8vk6Aqjc2wOGHmptPcd0pJ8HQ4e4oF4fkeZBL1
gQRHOkTkDxPuHaM9bt5MgumKRXcCCeMFkwfCAyTI3FI5GUu4eCulY+EnCX5+
a8+UTPg66xeahk0SPNeXSHudcBw/i2o+qx5U9DP+nkvYQ2b/0UghPehkdTXl
IWEz9WvXzJT0YLybC3cZ4T2gvVpITw/yG91KqiLMu5/z17yVHlyRU/v+jvCW
i6Nw/RE96HCGmxUTHvfLss4LItZbJOXqCDdH9SZEJOjBRQpJqYFw1VnBp6aX
9SAQ1hZoJJyf5tYnmKsHj079WvzPyTl3meaf6EGFZbV3/znkEUX781s9eEir
M+ILYYdKyYDcRj04+yyHv54wCftmhffpQRNJu8pawpItjz7v+6EHOdurjD8S
ZiFPLQv81oOFGZe+vCG8OKEoPcekD19IJZu9IExeCnGo49eH0SfdPz4lXENT
cT5HXh+WKjWoPfgvnjsXnofp6MPyiIgH2f/FU3Av1cRCHxZsZ+C8RviEXAy7
gIs+zO9XPn+esKfGazAboA9pWq4sxxC2MPod9ilOH7rn1wT9ly8VW7272Rf1
4T2ZoIn/8rkVgP4YP9aHjzIjl3UJT0TTKvO/1ocL7Wup8oRbE01cf9XrQ+MU
oMRL+E5ew9vbE/pwIMjw9ixxnpKLmX+ErOpDlR5avz7CIS+t+Y23G0AZ9Xv7
PhHWb2uLnZExgEeuHAaZhKUHOB7VaBpATdNA95OEWX84fM8yNYBBeRoZXoTJ
23r3GvkZQOOeRmslwvFalPlbDw3gnbgk/iqifjxNJMWDqwwgI6uW8H/1ZXHA
1w7WGcBZO7LxccL8QVNl06MG8Gu229Yewq/uzAcBKUO4T9bNIZ+o12V62vGp
+4awkuVbph1R7ycOpBmFPTeEl4UtLaUI/8nju7uEDWFfRqv+KtFP6Pfucd4a
NoSRzGfGcwhzebk2cokCmBKm4Na7n6jv6pdlhrkAnhRXalEn+tUrJiOWuicA
+kl0Lm0Q/Y7k2Oxv+RbAqjSfoFrCRj9HxBx7AaREa1nbES7ewdSowQqhikPr
qifRL9+QNPWsLCEUyx774kv02wRKwo8d9hDKM6Z7ShLWv4Bvt7lAqCPD4TxM
9GfcYb3sGAghp5GgrzPhhkDvsqMXISRp+fJCop93Z6WLxXyG8MzRM7eXiXmw
sviDrsDICDrmvcydM6Ag4o3xE6uVEbT9qeWZQbg2zTop7qARbH12O0WL8DXZ
sm12PkZQZDpxKYGYR7JHImi3ko3gsHhk9B9iXrnUrG65fjGC5UnmjSPaxHxK
p9vgszOGlpnyXsZqRP9RFplPdzOBXtS4zhhJCmpyZLMM9jWBj5/e5aEhzH2a
9oFZiAkMHpZYSSXm9eOWcYe/J01g1gLHlXxinjeHlb8OyjOBQNtGrFqUgnie
g7OmZBOY6e+4f0aQiJ+m965N531w5zGtcgYu4rwaPlb2dzCFUc4BJNI2ClIW
3Px0LtocFp8c8huvHEYWrUUliZGWML/EOmfTcxj9OHRC/5KvNVTzzdjHwjKM
8h9xy39LtIFPWkySnj4aQrvaGX3pT9rBfUxSCTvMhpCFl/df/bYD0IDnw97R
vkG0v87xzka/PayV7U9pDBlEFRlRfiXdB2GgbUZcF/0gyjNfOXJmwgGOHn9T
z3NzAE0EFJ7YN+YIw5t18xxkBtBy5HjQzsFD0Gf7TILX2350xTPt8vq0E1ww
+HBy3bgfJb736OyecIa5ZZMnj30jI/769li9n84wtUBVM6aDjJ61GwsVzDlD
Y7nQgXNtZDQ0Lut7bN0ZcgROLd9uIiN99rmVTWYXKJY2bfv5Exmt+54VkNjt
Ao/MB1QIV5FR2K4Cz+DjLvBAurjPx0wy2i7AydAeRxyw0qWZhptkdEcq+YnG
KRc4cJbq13GdjJp1Ahf/JrvAPY/3yIylkZGij2ry9SwX+Gn7OTJTChmNv8aP
X751gZtSxXJ2MWR0qlZ9v+BHF9i+Q+2x83Ey4m55OH+m1gVikgevZyQZGY9c
0rVocoEsZp8/RYSSUcEO+ybygAt8VlnlesOPjHT4PoUDqgt0umx5OMeHjNok
NLkfjhP3U/xsdt+LjLa0BNxDZ13g35DrC8/cySjL6Apt56ILHG+cL3/jSka7
9/8t0lpzgRJ7D7vhw2RU5xRulbfpAlcUO383OJPR/7/vwtXPPhfbDpHR/wB5
8+pp
       "]]},
     Annotation[#, "Charting`Private`Tag$937509#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2Hkw1e/3AHCyXbuUfd+FypJdnocsUZZcy62QXUJCiGQpUcheUZJCClmj
+kTvp5Kyr9myZ8t6Xdu1xPf+Zn5/nXnNmXnmzJk5c+Y8Yi5+Vu4HqKioNKip
qP4v2juPL+3vE1DuGdyVjIMkbJTfnsS5S0BcvgbfrA+TMJee3nUpMgElj1u4
cPGQsMvGLbtniARk8Vgy4LEgCQs8+p4pc4yAvMw2B3NkSFj8VqK04hcCoonc
n/jvJAn7mKrh6HSbgK4PX7CXvULCuL8mtyJaAvpDbZY+/I2EGesORFxas0WS
rxtFguNXMT7zTQbmDRt0wQkvYGayhslej66t2rVGQdoeTTOM61hp9atTWkt4
9L5Q0Ch1fB37FZ/7snXFCs0dCgj9XrGBBd5U7dEdO4fkb5jSfX+6iZnfVlN6
222J8N+dS+bjyViGJm+LZaUFOi49OuwTuIWFFmwNHkg3Q3IHA3Rkbm5juRox
WW2Pz6DOtyzWn2/tYPrk6dKMVyZIs3nHIuneLta1FOnFnWCM2mWWDPCf/mH5
LF+7K9INEQMQoMpc2MNcnbX+4AJOoUpqPhUFWSr0bCLe5MIFPcTQMsgqNU2F
VLgZsfhWXTQsrLrh9Zoa4X5dVu1P1ULXvIeiudMPIKcJfubzOWpIoYY3byuB
BpnZP53XeKCG2nNFqyNSaJBWr0ALb7gaqg89V0n/kAYdahJ80H9eDW010kWJ
5NCghgphdgKXGpIiL8xcL6dBR6PFD9klqqJD3u30Vb9o0LaInIBN2AkU3bnZ
9VycFmU4aMqfs1VGGe76b+/8oEWTmddGogyV0VDD0fO/WmiRak9havkJZWTj
Vmkh30WLek25yeyHlNGf59k6k0O0iE9jtb6tXQm13Lm/E0+iRTmcbx3Pmiih
Hi7sfpUwHXrzQzTNWEcRrXTo6lSG0aHtAwTDEHlFZHcp81VOFB0y1U0mv+JX
RLU+W0kpsXSoz2unjoV0HFlci8LdTaND9gbVdvHex9FCe9ViRREd8tySTbjr
eAx97ku/JT1Eh8JdOUg3DRSQ+1HWrt+n6FGaT+iqoJQCypDpOyVsSo8KgybW
6ugU0JEdZhZPS3rUFfduc79BHl1Q/TXA7ECPZEoI/+6YyCMLo1mW/GBKfi0X
l2guhz6dIKQLFtOjI7FKItkEWfRQJa7mNR8D0k1+InpSUxYtHoCuvaIMyDqT
RnyETxa5DbKUsMgyoIiiX5Kiv2XQy2yDq+lqDKinLVQu30EG/TobY8lizYCi
eL6qlrhIowyVk1VfUhhQ72urs7U+ksiZ++AyDScOXeBix300lUQKqaMTigI4
NBLd/K1aVhK9rFNw9ZHEoZkLBtplkxKoQYKuh10dh8gsanIv7SWQ4UdmHTYH
HOL358PdOyuOSp9/ohYowaGc4V/fYuTE0WNG2ibTGhwSN02LjMaJI/+JP22J
CIfkJZg3w+rF0ODd269P/8IhnV+7U746Yuj+mOGbwn0cctQc+4ZXEEVWkk3j
pwmMaKIgO9KSSRQN1RWtIVdG1CpZGfykQwRVe41ft/RjRCO9ee4PTougOsty
8/exjIhKO+5UoIYwKvG3+FNWw4gMacz3dXkF0WOjzcflAkyoLf13cG8fD4oI
aWh98Y8JYakmkvhMHmSo4eC/zsyMypPfd7YTeNAXifODPvzMKDUhXaFxgBtZ
KTTYNKozI+s7ZyY+/eZC423s90yuM6PBgE9mL0YPoWTode7vGjNqzlMz6W9j
Ry2K4d98eVhRyXPO/E4LdlT36aEWTp4VJT1d2mvqYENSJ5iofuqyIsv0V+/q
ulgRTfqL/rcerKj3NrdoXi8z4jS/lFD9nhV9iCCFZdsxI64AWg2RFlaUFdb2
62E/ExqTOML8YIwV2QfEJtwbZET33R+9sGVkQxPOGxu+IwzoZywrKeE8G6p3
6DrneYkBzSeIEuh92VDB+dISpzF6FHWzfEIqig1dPufhgp+gQ3d804ZpCtiQ
qZl+3VlXOhTEr7uVXsOG5E2EeY0maVESdy6Pzw82tAR7WzWmaVC44HBzyDQb
6tCplFX2pMw5Z1uc2xobqtBIuiM/ewCNKZAZmanZUdqJKyOSXgeQ4nsecV0W
dnRd0UhTeI4arX6cPdXCxY5sFcQzeLyp0QtqXotIIXakLru3xLFAhSqH+JwF
JdgRr+SgCZMvFeLebH/nKs2OVoGPCcPQPmZOSsjgkGFHa2YpcpsTe5i/FpRc
kKT44jvmmb//sKSWoLwaEYq9+hd6ibuY4I9pKXEeikN2Wxs2dzBtXwL9MBPF
d0XLava2sRsOf2+kbbOh9XSDlFd029jlR2Nn56fY0MaLy/6PWLawMc+jE0kt
FJclWsUeImOeT7xtJEspritXCebfxPw2z/3Bx7Ohzeaewx5iG5iB23L0Tyc2
RB4gr9vIrmMVkSzFSkoUzwj2GR5fw57oxlkY7rAi8jr8oKq2iuH5Ps58+cyK
tmjcs6Qoe2woRin12k1WtH3wfhiXwQqmb/REWkaJYpG3F+nOELFVnkHtplEW
tH7xZehc3hJmdHJk2jyOBW2EzGk3VSxgxmEqJ2tlWBC5LAzdb53F3vKyBrbi
mdFW89fbXr+nMU5ysOj4KBPanmEyNPk7iZHOR3bUujOhXZGnjTi6cezng9jG
cCdGtB3SwNMpNYLdncmjcenFod0y2+wUvUHMGW/UxnIah/ZFQgrYQ7uw/bsp
51XFGJAiFarzhYUY72rWR7M6WkS7Tw4mxCaDY1pKDtEStGgA5Oy2RFeBYqUH
KDOeBk0BNp/Zc43Auk3g+UOHA2geNEhsaA6BY7MDd/bFqdA6zVMLAfYxQH2a
b6lUcx9bm7F6oE09AUQiBzW5VPcwUtlXXPjUFOAWo0/kN9jFlsDL/d23i6C/
xvW5WgMZW5S4cFIodxmYf7EyjNjZxDZo7tcJNxKBnaaeXK8GxTNwR/cTCTDf
wzmtNK1jGwOC/BbvVoG+XmmRnsg6tt5M1rj0dg1U2wqsfg5bw9bKyoMjn2+A
uZwXjMeNVrG1F4kPkzM3AYn+zI+MahK2mn753fNUMvh1V5uXXZ6EkUJESdid
bSDhkeohJbOCEUGKL9XlPWBmrJj/4cMSdoO786Ny8D5Y2/5glNe/iEVt4O4o
61NBfb360D3qRYyx1aTdzZIaVsFj8oNX5zFzjSvrt/qoIS7GsdS2Yg5Ly4sX
eOx4APa4sBdr7/zF+MOaPRt9aKDGYV2+u3mzmOPU/IOJVRrY+mVPV4h6Fsuz
ZHm3E0YLd4sDa2PcZjAFGTOqY/fpoCNdcqyP9jR2sqctM62AAdayUeddF5vE
boPlz8UKODjmnSyvVPAHayhin6qvwkG52azWdIU/mHm0pdLmF0ZowHELH2s4
gTkd62q8OMIMT8ZcTfd+OoblZ5GWr7uzQOvk2a776mPYLO0h7qQFFugTKd0k
VDKK+f/Gu6BtVrjWXvKlWmUE06u/ciuNmQPuCPpFXQv8jU1uhXGIWHDA1eA+
sdCWQSz2eEJecRoH/A+qRfXJDmJNT4ob6/kOQsEOdQXm+X7Myn+Ba1OGE1YJ
kO1XUnsxN+GrpRcNDkOR23Vyw/gujN46Qm827jDk4xz8fu1XJ/b6flLP9ebD
8J2elOEooRNbWCvdfmDFBS/fMWY55N6BBTUvGyEnbsj0KY7cKN6Kxd7wH5W8
xQuHOAKb/lxqwOD9RJ1jtbyQXlpCpDn3O7adVZilvsML1U84zX//U49d/TSM
Nw3lgy+EY2sb/L5htnsmP/2C+KGOpdftLzkIk4oRr/jPVxBq4c9z6+fWYCMZ
J9nqSwShxCPFluUL1VhmAcG7dV4Qvjp/djeL9x3G8iNJasxLCE570JGLsyuw
NcadLDoPYdifTnQvTnyDTfzw0pM9LgoNmyLi/xUlYsByc7nEXBRqu3J+NO24
g2X3x+QoXRWF9NkfKiPYgzHbv893tN6Kwv9aFN/TW3qBJqbeajN5MTjb/oKj
XzgDVJrpywXKiMM/H+JOHjcoAre7+Q99FpGEKufSwg3oasE1sjXDjJ4k/KMZ
7zhKrgWOQsk77G6S8ObTtrL6uTqg5Ukz6fxaEtKw/w6624iB1e35d3RKUrBB
Ifxu7ccvwE28ztZMXxoOLlYHtel+B4b+l54MucnCcjt9MF/fDE48ykqii5OF
Qllt0nsyLUD8U/ftY29k4d7Fn0k341vAHu1p76hFWWiwnadRa9YKajIVdSSD
j8Bcy7C1yNY2II2oR7zj5OBqEjGzaKAD4NjzxXbeKED+K0wKuSnd4FjFtWsx
zQqwOQ59cf3YDWzwJzHWRUq+cKiJNN4NXj7utRdVPAqPyoVyBin3AG1RxkzD
mqOQpbJDiKezB1xVusqW8vUYZOh7FKpE1wvmjmTfSvNVhCJ5A503z/SDf2EH
pOwiFGFIc9yl0Kv9gKPlcotAsiLkVRF6bZ7aD9SvqgoUlCvC85dvFUb39oOY
yrYP71cV4apOyeDBSwNAWJt6bShUCd7pEjks6DUIzp31uCITqwzfPQ7TrXEZ
AnLWFgbND5Vh2ncS7ZHIIUBrryHsV6AMQ6xZ2aKeDoEab6aumnpl6OJg9+x3
9xDgTyjVNKJRgbtCdxLNTg2DycYNnHuUCtRcllDWFxoBwcZxhS/DTsCNCpgZ
+3kUPNV/PSnkpwYD7FbrOC+Ng9pMz/FDUWpwd+brCUfvcTCyJD3CmKoGk2J/
+OeEjAPxpwV965Vq0F7laNS/5HHwevVlU+uGGnTOL6xUR+OgJv9Z+a0IdVjU
KCpSJDwBuujTw4cfaMDNvvPkxe4JwNh86/CzEi3okn67vll8EhD7sFMBtVqw
npB1jE1hEvRPUgcat2hBnxcXnpmoToLXe3c7V+a14Nw2/Zti40lgpJyUZCSv
DTuPqNgJ+UyCmKwcHPGNNix/It9TVzUJ9jyxXf1CHfiHU+u3tO4UWKOlnpp9
oQuz06gwdr1psE76S5Orpwe7rxa01VHNgtsKQsRk+1MQd+tMX332X9CmW6jg
gTeE3sQHY45Tc0CBf+db1HVj6PGhO7CaZwGcbisojvY3gVuOG7tRbIvgr80N
nXtuZyCTcYqazPgiyH51WLY72gx6htD7eBcuAbYOBjfamxYwZ5LR9b3xMjjt
7PJPp90SHjN6Nf9teBmcrbd+tv37HIx4VXRz5SgRlKUHuBf3WsEYr6RxKyci
iMg5XTE3aAXzXWyKBZ2JwPyN8L8jo1Yw6I31/BTFS5+bMl7PWEFt3pm2YFci
UJgTry8gW8Gt1f/k0jyIoAh2i+fy46Hz5HPPMh8iKFhUGctwxMOJi3W3794g
gqfG6xcipvHQ5uCTIyVJRCBI5RMYNIeH6T4Z1KbJRJDzYSLBZwkPb1RB3xmK
c4901F7YwMPYaUsqsVQiyGcuFlant4Y6V2v4ktOJoLTdaWJZyhoe9k7Xscsk
AmTX4uXsbg2dhlJtMl8QwbRn3g2DSWtof2hIfLqSCNiu+WTLzFpDvEdRlGcV
EajdUEVMC5T3igIiZymOu/eDoXPVGm4HBDn9fUcEsm/mHznQ2MD4+KGq6Roi
uDKnUh0sbgMlnCpq2/8jgkWf+pXXTjbw3w9qdfuvRLDmP3WFddgGduoffOLe
QamP1Y3HcNwGPnnPqDlAsdebiW/hUzaQJKLvf7aTCEbGRgUXFm1gww26UqUu
IvhhMdjWtGcDQWC//WY3ETw52q58T9QWhvSElPn1EQH8+2H7gJstfFqZIM41
QgTbMeqFWpdt4W+Lk8fDKa4WrcEH+NhCmge5AxMUyxGqSsav20JcIS2ubJQI
Dv1464ju2sKzUlTt+uOU/uS//Hqr0BaWl12UIEwSQYJTYjx5zhZKZya0ac0R
wcabYprZJVt4U10bS6bYZbUpvI9kC/MF5h0mKdaKZfSr2baF9+KqChLniWCu
OBZ/nckOuq7WOg8sEMHpzShB4hE7GF4k+dJ1mQjok4JKZy7bwZ/nDde114gg
oI9y6frYwQwFu75YikdE3+U2XLODFleSr3RSXFNFSiu4YQc7QU+++zoRuA/4
hbjes4O0eDvv+A0iqJe8AkcL7WCi2AWb72QiiP7k2NU7bQdruMJOUf8jAt6G
jmDteTv4kEWa0ZTi8g59gdxlOxhVp38tjeKRKWk3L7IdTD1uJiG+RwQ6HMvr
O4wE6OAjKHpynwjIbpF8YkcJkPOHfIoz9Qq4ypbr5B1IgCvHs8Xd6VYAPR8n
XUcIARasIauXFD+TiHlzIpwAzbQVZUcpbtG4TPoXQ4D8dO7f7OhXgJyrYkzK
IwJU/+Dx2YBhBUy9R4XVHwnw4sFbY6yMKyD8q/JZ/s8Us/MHGlJ8uDWfGPGV
AN3pe0vCKdafuKd5upkAqzmEuecozmU51zw4RIBCNzm/IaYVoMHzzQ+ME6Df
g6bUdYrbxVQP508RoDdHLE6OeQXsqfE5+C4RYOHwjaVUih/pJVB3kQgwpWnW
4TvFR8/+K1DbJEA249YgMsX1tn6mT3cI8ICpvpo8ywr4//82eLjK9bkDxf8D
rKKuCQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$937509#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.887191950949767*^9, 3.88719204949675*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"ad644299-66e8-4d7b-8b3c-aa2205bedfaa"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.886919144521627*^9},
 CellLabel->
  "In[413]:=",ExpressionUUID->"8e25e265-4607-401d-a857-5a44f421b2e4"],

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->"3043867a-ab60-4031-b885-8563be173665"],

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->"4ad3e6c9-1dce-4eb2-9305-3cc233ce2b17"],

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->"8c0987e5-6339-4362-8d27-e7a48de13f9f"]
}, 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->"126a03fe-f239-4488-95dd-71519696cf75"],

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->"1f9f9f1f-809c-4a36-a1b8-2c803083beb8"],

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->"240b87fa-bff4-4737-954a-b2e3a7dfae74"]
}, 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->"1985a4d8-8651-4445-b36e-12f6332c9a98"],

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->"2e78e33e-25fd-48b1-8eb2-24da763a88f9"],

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->"b9faadbd-9236-4cd0-bf1d-51e1d865dd54"]
}, Open  ]]
}, Open  ]]
},
Evaluator->"M0",
WindowSize->{824, 870},
WindowMargins->{{253, Automatic}, {Automatic, 0}},
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, 201, 3, 37, "Input",ExpressionUUID->"16665d6c-a593-4d10-8212-9970407d0a6d"],
Cell[CellGroupData[{
Cell[626, 20, 295, 5, 37, "Input",ExpressionUUID->"327c79f2-29ce-4fc6-be07-ec77238e75f6"],
Cell[924, 27, 452, 11, 35, "Message",ExpressionUUID->"e747291d-ce30-43ca-976e-ac244a9dffb6"],
Cell[1379, 40, 487, 10, 35, "Message",ExpressionUUID->"e2cf42e7-099a-4163-a0ea-704093e69cfe"]
}, Open  ]],
Cell[1881, 53, 449, 7, 64, "Input",ExpressionUUID->"e773623c-7722-45da-b7d1-23e2590fd5e7"],
Cell[2333, 62, 425, 11, 44, "Text",ExpressionUUID->"47a43bcf-7052-4794-aed0-0c6c25698324"],
Cell[CellGroupData[{
Cell[2783, 77, 164, 3, 84, "Section",ExpressionUUID->"cba1d26f-3996-4786-99c4-16384b08e68e"],
Cell[2950, 82, 3485, 91, 354, "Input",ExpressionUUID->"1df71baa-21a3-46fb-b213-ea907b55bedf"],
Cell[6438, 175, 3073, 83, 242, "Input",ExpressionUUID->"1015fcf9-cb8b-42f1-9050-236ff6dae640"],
Cell[9514, 260, 393, 8, 37, "Input",ExpressionUUID->"a8441158-8bdb-4bf1-9463-f552de900124"],
Cell[9910, 270, 601, 13, 37, "Input",ExpressionUUID->"2b392ee2-66b1-4c9d-be0b-e367b91b0ce8"],
Cell[10514, 285, 1210, 27, 116, "Input",ExpressionUUID->"f42a57ec-7541-4496-820c-54b267944a34"],
Cell[11727, 314, 12209, 334, 1187, "Input",ExpressionUUID->"a1b1abed-ce94-4d67-a2d6-e40aa2d87771"],
Cell[CellGroupData[{
Cell[23961, 652, 202, 3, 37, "Input",ExpressionUUID->"97eae99d-cb42-4880-beca-5a9899e95ad2"],
Cell[24166, 657, 804, 11, 42, "Output",ExpressionUUID->"62a1913b-a910-441c-9f64-21068dedb037"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25007, 673, 156, 3, 67, "Subsection",ExpressionUUID->"44dbcdc2-78eb-4fec-89e5-381371b94503"],
Cell[25166, 678, 597, 17, 64, "Input",ExpressionUUID->"d4a57b35-7da2-4ff5-98ac-e7f5f3f7fed8"],
Cell[CellGroupData[{
Cell[25788, 699, 207, 3, 37, "Input",ExpressionUUID->"a26adcaa-ace4-4057-8bc7-1179a2bbaa44"],
Cell[25998, 704, 5132, 140, 394, "Output",ExpressionUUID->"7cd31b53-522a-4187-8835-d3dc35f504ff"]
}, Open  ]],
Cell[31145, 847, 486, 14, 37, "Input",ExpressionUUID->"9d7bfe09-a1ab-41d5-9410-84bb0603ff02"],
Cell[CellGroupData[{
Cell[31656, 865, 411, 10, 37, "Input",ExpressionUUID->"04ad779f-3902-438f-94d4-73881ada8c09"],
Cell[32070, 877, 1571, 44, 101, "Output",ExpressionUUID->"5890ea7b-bc3a-4451-8912-bdb359bb07d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33678, 926, 1224, 35, 99, "Input",ExpressionUUID->"5103817c-dd6d-4546-bc94-4e5d6c625bb7"],
Cell[34905, 963, 861, 27, 59, "Output",ExpressionUUID->"19fd40c6-e820-43e9-830a-7714919ac7fb"]
}, Open  ]],
Cell[35781, 993, 6032, 159, 753, "Input",ExpressionUUID->"9bc15df4-cf0c-4357-b617-32d650bc8599"],
Cell[CellGroupData[{
Cell[41838, 1156, 1086, 30, 81, "Input",ExpressionUUID->"aa10d88d-c07c-4d27-86e1-266e54f6f286"],
Cell[42927, 1188, 516, 13, 43, "Output",ExpressionUUID->"274ac527-78b7-407e-8f4c-d63a5468a6d4"]
}, Open  ]],
Cell[43458, 1204, 1208, 34, 168, "Input",ExpressionUUID->"c6bab9ac-1dd6-4186-bbbe-42225a3e208e"],
Cell[44669, 1240, 1329, 34, 212, "Input",ExpressionUUID->"20555039-7473-4c91-95e2-9bccd7b7e624"],
Cell[46001, 1276, 968, 28, 142, "Input",ExpressionUUID->"383bd1ff-283a-45c3-a488-bebb7ce56a18"],
Cell[CellGroupData[{
Cell[46994, 1308, 333, 7, 37, "Input",ExpressionUUID->"f60d3c2e-6830-4f2c-a17b-679081f34925"],
Cell[47330, 1317, 1062, 30, 85, "Output",ExpressionUUID->"be29427b-4bdf-4ea7-81bb-822a07d756fe"]
}, Open  ]],
Cell[48407, 1350, 261, 6, 37, "Input",ExpressionUUID->"9105c728-9d5f-40f1-8a12-e7fca2f08922"],
Cell[48671, 1358, 380, 8, 37, "Input",ExpressionUUID->"1a0339ba-23be-4213-8cb8-2dcf6e106237"],
Cell[49054, 1368, 262, 6, 37, "Input",ExpressionUUID->"1fa8e34a-033f-4746-98e9-dba82aeab315"],
Cell[CellGroupData[{
Cell[49341, 1378, 283, 6, 37, "Input",ExpressionUUID->"23afa2bc-7d2e-48ed-8150-add5b456ae89"],
Cell[49627, 1386, 4156, 135, 295, "Output",ExpressionUUID->"ac50b41b-62d7-4cc7-bc1a-b9c9af99ab6d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53820, 1526, 789, 16, 37, "Input",ExpressionUUID->"f2464365-1cb9-4a49-b502-5a47af192a3a"],
Cell[54612, 1544, 830, 14, 42, "Output",ExpressionUUID->"269deae7-ae78-4293-8bb1-d3f9e1313b3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55479, 1563, 378, 10, 37, "Input",ExpressionUUID->"a9e241dc-755b-4e72-a203-c59e2c19e6eb"],
Cell[55860, 1575, 294, 5, 42, "Output",ExpressionUUID->"76376292-d23d-4aeb-abaa-a1b7e7d667e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56191, 1585, 377, 10, 37, "Input",ExpressionUUID->"4f57d07c-0f01-41e3-8361-f26d3fc744be"],
Cell[56571, 1597, 345, 6, 42, "Output",ExpressionUUID->"3b2aff2e-ea9c-4635-9ac9-8c0d040caab7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56953, 1608, 1311, 32, 116, "Input",ExpressionUUID->"3ae1ba03-e859-4b65-a8ff-51b6a674d0c0"],
Cell[58267, 1642, 726, 13, 42, "Output",ExpressionUUID->"ab369af7-b8cc-4a66-a539-a7892246e29c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59030, 1660, 1065, 32, 64, "Input",ExpressionUUID->"fb7049a2-217f-4af0-8440-7fdd63d6c135"],
Cell[60098, 1694, 344, 11, 65, "Output",ExpressionUUID->"000a643a-11b9-4f07-8fd7-1e0a12193d99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60479, 1710, 1064, 32, 64, "Input",ExpressionUUID->"4086e78b-8eb4-49f2-bd33-5359f004af62"],
Cell[61546, 1744, 323, 10, 65, "Output",ExpressionUUID->"35210953-4408-4f68-b917-7f66ab7bf958"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61906, 1759, 111, 2, 37, "Input",ExpressionUUID->"a38dbb73-81c5-484e-9731-a3bed1fc93e9"],
Cell[62020, 1763, 175, 4, 60, "Output",ExpressionUUID->"a8ab0e6f-2552-4b8f-8e5b-70209c4d2508"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[62256, 1774, 216, 4, 84, "Section",ExpressionUUID->"7f95ec8a-5385-44d0-9044-d6290a6aab47"],
Cell[62475, 1780, 3530, 91, 354, "Input",ExpressionUUID->"2a70aeb6-d973-43a4-8055-187c3c3b0a74"],
Cell[66008, 1873, 3074, 83, 242, "Input",ExpressionUUID->"2fc64c08-dd85-499b-b909-06d6c8fc1758"],
Cell[69085, 1958, 600, 12, 37, "Input",ExpressionUUID->"13e7dd0d-ac57-43bb-b094-6f8e28398af7"],
Cell[69688, 1972, 1211, 27, 116, "Input",ExpressionUUID->"dd2a4914-c085-4e0f-9a77-df1e84760919"],
Cell[70902, 2001, 12133, 332, 1187, "Input",ExpressionUUID->"a6695ef6-54d9-42f3-a723-e6b0a095760e"],
Cell[CellGroupData[{
Cell[83060, 2337, 202, 3, 37, "Input",ExpressionUUID->"fed505b6-6ade-4db4-bd32-3c0554412c2b"],
Cell[83265, 2342, 761, 11, 42, "Output",ExpressionUUID->"67c3ed76-25e7-40fd-807a-412581391b6d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84063, 2358, 109, 1, 37, "Input",ExpressionUUID->"55616c20-56f6-461f-933b-a5d0d960f460"],
Cell[84175, 2361, 18651, 521, 1123, "Output",ExpressionUUID->"7847a233-20c2-490f-8e10-e54e16949e68"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102863, 2887, 156, 3, 67, "Subsection",ExpressionUUID->"5d75bbb3-62d6-4a4e-8dba-0f895b57e805"],
Cell[103022, 2892, 597, 17, 64, "Input",ExpressionUUID->"41036352-f324-4df3-a9c2-28f0d4920697"],
Cell[CellGroupData[{
Cell[103644, 2913, 211, 4, 37, "Input",ExpressionUUID->"4277d234-4637-4a57-b078-7db8b4ba671e"],
Cell[103858, 2919, 4874, 133, 365, "Output",ExpressionUUID->"c44439b4-c30c-4eaf-ac15-2e02b0ce759e"]
}, Open  ]],
Cell[108747, 3055, 486, 14, 37, "Input",ExpressionUUID->"65a5c004-38a4-4673-9a12-8d4f2c07f965"],
Cell[109236, 3071, 5686, 154, 753, "Input",ExpressionUUID->"0c597e1d-6389-4194-92ec-a8c9eecb927f"],
Cell[114925, 3227, 1131, 31, 212, "Input",ExpressionUUID->"727cd346-0f48-40c7-8bc3-893d6d114713"],
Cell[116059, 3260, 357, 8, 37, "Input",ExpressionUUID->"a88a1c77-1790-4505-bd20-97c7c0e3dfbe"],
Cell[CellGroupData[{
Cell[116441, 3272, 110, 1, 37, "Input",ExpressionUUID->"e204c9a8-bba3-4488-b378-969d01c34b71"],
Cell[116554, 3275, 8957, 248, 615, "Output",ExpressionUUID->"26fb0be8-2efb-47cc-a850-4078346a004c"]
}, Open  ]],
Cell[125526, 3526, 297, 4, 37, "Input",ExpressionUUID->"9b12c223-4027-4528-b460-b4f1e0a96209"],
Cell[125826, 3532, 495, 13, 37, "Input",ExpressionUUID->"c71a32bc-04b3-45dc-9d8d-0e5965bc9e02"],
Cell[CellGroupData[{
Cell[126346, 3549, 487, 10, 37, "Input",ExpressionUUID->"58bd6907-1ac4-4d49-b9a1-6fcd13cb7dae"],
Cell[126836, 3561, 455, 7, 42, "Output",ExpressionUUID->"ad6e51c4-18cb-49e3-9e10-b267dc6b7f21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127328, 3573, 707, 16, 90, "Input",ExpressionUUID->"752ae5b5-e6ed-4ee6-8b95-5979810b2890"],
Cell[128038, 3591, 430, 7, 42, "Output",ExpressionUUID->"9e1ed1fb-7d81-47f0-8260-ca71bb3f46c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128505, 3603, 332, 7, 37, "Input",ExpressionUUID->"9be64e9e-ba85-4fb2-aa89-10111073bfc6"],
Cell[128840, 3612, 1073, 24, 69, "Output",ExpressionUUID->"29f7e071-af9e-44b4-91ef-08918a5c5d59"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[129974, 3643, 200, 4, 84, "Section",ExpressionUUID->"ff12f576-e8c4-4163-802a-22dce25e0856"],
Cell[130177, 3649, 595, 12, 64, "Input",ExpressionUUID->"898a8eae-a7ae-41e2-b62f-262784523d94"],
Cell[130775, 3663, 992, 22, 64, "Input",ExpressionUUID->"ffa560ea-e986-4d40-9eb5-ab343c5d6b56"],
Cell[131770, 3687, 1029, 29, 90, "Input",ExpressionUUID->"ed289a16-9ba7-4f7d-a20c-3c27ec5a97f4"],
Cell[CellGroupData[{
Cell[132824, 3720, 1454, 42, 142, "Input",ExpressionUUID->"9aa9a407-5ed6-4d56-ad27-630a5a044133"],
Cell[134281, 3764, 37221, 627, 285, "Output",ExpressionUUID->"685603f5-966e-4f91-8357-f06412740c0f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[171551, 4397, 202, 4, 84, "Section",ExpressionUUID->"b0f49f4c-747b-468f-9234-1c780f4147e3"],
Cell[171756, 4403, 991, 22, 64, "Input",ExpressionUUID->"7b6844d9-e459-4fc4-922b-c755b9042526"],
Cell[172750, 4427, 1029, 29, 90, "Input",ExpressionUUID->"e54d6a03-9b74-4bd4-8eb2-ffa697a7a321"],
Cell[CellGroupData[{
Cell[173804, 4460, 1315, 37, 116, "Input",ExpressionUUID->"af1e839c-43de-4aef-8161-06696fc6aecd"],
Cell[175122, 4499, 37130, 626, 295, "Output",ExpressionUUID->"fbf053eb-3faf-4aba-8058-1cc2bd814617"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[212301, 5131, 156, 3, 84, "Section",ExpressionUUID->"b39bc33f-6fc4-44bb-a1c7-20b376aad21f"],
Cell[212460, 5136, 1098, 37, 64, "Input",ExpressionUUID->"46ea9ffe-da66-457e-9dbc-a5706753b982"],
Cell[213561, 5175, 667, 17, 64, "Input",ExpressionUUID->"f0b32b31-a3ee-46c7-9807-6b20ff369fc1"],
Cell[CellGroupData[{
Cell[214253, 5196, 115, 2, 37, "Input",ExpressionUUID->"e0cd1cfa-2e57-4ab9-b205-b628801502f2"],
Cell[214371, 5200, 20769, 290, 1759, "Output",ExpressionUUID->"567b975f-e3e7-4f3a-b625-ce11611d387e"]
}, Closed]],
Cell[235155, 5493, 377, 7, 31, "Input",ExpressionUUID->"3fd85139-0089-4c6d-a8ee-6cfd61d7a756"],
Cell[235535, 5502, 884, 26, 64, "Input",ExpressionUUID->"b6e8e624-2d7e-4f80-934e-45a78d918ab3"],
Cell[CellGroupData[{
Cell[236444, 5532, 388, 11, 37, "Input",ExpressionUUID->"b711980c-d607-439f-b9d2-c8bcf6da5fb2"],
Cell[236835, 5545, 10869, 279, 215, "Output",ExpressionUUID->"124521f6-0b55-4664-959e-a0188d4b9bda"]
}, Open  ]],
Cell[CellGroupData[{
Cell[247741, 5829, 411, 11, 37, "Input",ExpressionUUID->"0622fb8c-de84-4969-8152-3730c86d018c"],
Cell[248155, 5842, 286, 6, 42, "Output",ExpressionUUID->"1c7900ed-0756-49be-af46-ec49aed1a554"]
}, Open  ]],
Cell[248456, 5851, 342, 10, 37, "Input",ExpressionUUID->"eff090ce-c33f-4f26-8f96-3cd2af5d6f64"],
Cell[CellGroupData[{
Cell[248823, 5865, 794, 24, 64, "Input",ExpressionUUID->"b25454cf-f070-4f08-8f40-2fd9cfdb3a1a"],
Cell[249620, 5891, 12642, 229, 296, "Output",ExpressionUUID->"abb08f4b-a1f1-4fce-8060-fedca382db22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[262299, 6125, 1707, 36, 64, "Input",ExpressionUUID->"ee534456-c24b-4ede-8cbb-722601c07f2a"],
Cell[264009, 6163, 19312, 338, 296, "Output",ExpressionUUID->"ad644299-66e8-4d7b-8b3c-aa2205bedfaa"]
}, Open  ]],
Cell[283336, 6504, 151, 3, 37, "Input",ExpressionUUID->"8e25e265-4607-401d-a857-5a44f421b2e4"],
Cell[283490, 6509, 468, 14, 68, "Input",ExpressionUUID->"3043867a-ab60-4031-b885-8563be173665"],
Cell[CellGroupData[{
Cell[283983, 6527, 475, 7, 37, "Input",ExpressionUUID->"4ad3e6c9-1dce-4eb2-9305-3cc233ce2b17"],
Cell[284461, 6536, 52969, 1452, 2482, "Output",ExpressionUUID->"8c0987e5-6339-4362-8d27-e7a48de13f9f"]
}, Closed]],
Cell[CellGroupData[{
Cell[337467, 7993, 692, 19, 58, "Input",ExpressionUUID->"126a03fe-f239-4488-95dd-71519696cf75"],
Cell[338162, 8014, 10888, 304, 693, "Output",ExpressionUUID->"1f9f9f1f-809c-4a36-a1b8-2c803083beb8"],
Cell[349053, 8320, 3074, 66, 300, "Output",ExpressionUUID->"240b87fa-bff4-4737-954a-b2e3a7dfae74"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352164, 8391, 715, 19, 64, "Input",ExpressionUUID->"1985a4d8-8651-4445-b36e-12f6332c9a98"],
Cell[352882, 8412, 10683, 287, 693, "Output",ExpressionUUID->"2e78e33e-25fd-48b1-8eb2-24da763a88f9"],
Cell[363568, 8701, 3050, 66, 300, "Output",ExpressionUUID->"b9faadbd-9236-4cd0-bf1d-51e1d865dd54"]
}, Open  ]]
}, Open  ]]
}
]
*)