Matrices.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    295072,       6482]
NotebookOptionsPosition[    285999,       6340]
NotebookOutlinePosition[    286511,       6359]
CellTagsIndexPosition[    286468,       6356]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["General matrices", "Text",
 CellChangeTimes->{{3.8546877349143143`*^9, 
  3.85468774362689*^9}},ExpressionUUID->"4fbb7f2f-5e98-462e-b3bf-\
bc4c1ec14ba9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"P", " ", "=", " ", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Theta]", "/", "2"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "\[ImaginaryI]\[Phi]"}], "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]", "/", "2"}], "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", "\[ImaginaryI]\[Phi]", "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]", "/", "2"}], "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Theta]", "/", "2"}], "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MatrixForm", "[", "P", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Zz", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Yz", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[ImaginaryI]", ",", " ", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Xz", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"X", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", " ", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Phi]"}], "]"}]}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Theta]", "]"}], 
            RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", "+", " ", 
           RowBox[{"\[ImaginaryI]", "*", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], ")"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Exp", "[", 
           RowBox[{"\[ImaginaryI]", "*", "\[Phi]"}], "]"}]}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Theta]", "]"}], 
            RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", "-", " ", 
           RowBox[{"\[ImaginaryI]", "*", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{"-", " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Phi]"}], "]"}]}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "\[Theta]", "]"}], 
           RowBox[{"Sin", "[", "\[Phi]", "]"}]}], " ", "-", " ", 
          RowBox[{"\[ImaginaryI]", "*", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ")"}]}]}], "}"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", "*", "\[Phi]"}], "]"}]}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "\[Theta]", "]"}], 
           RowBox[{"Sin", "[", "\[Phi]", "]"}]}], " ", "+", " ", 
          RowBox[{"\[ImaginaryI]", "*", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ")"}]}], ",", " ", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Z", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Phi]"}], "]"}], 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"\[ImaginaryI]", "*", "\[Phi]"}], "]"}], 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Id", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "X", "]"}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "Y", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "Z", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8546058370426216`*^9, 3.8546059782320623`*^9}, {
   3.8546060241481113`*^9, 3.8546060306958923`*^9}, {3.854606176667881*^9, 
   3.8546062366461587`*^9}, {3.854606267028309*^9, 3.854606381342794*^9}, {
   3.8546064294574375`*^9, 3.8546064322309523`*^9}, {3.854606505017536*^9, 
   3.8546065491343923`*^9}, {3.8546066280760727`*^9, 3.854606681179021*^9}, {
   3.8546067595653896`*^9, 3.854606800901823*^9}, 3.8546068328628654`*^9, {
   3.8546073778412004`*^9, 3.854607391282259*^9}, {3.854607679332323*^9, 
   3.8546078049192348`*^9}, {3.8546078500393867`*^9, 
   3.8546081591347637`*^9}, {3.8546083022822638`*^9, 3.854608313261769*^9}, {
   3.8546083979097824`*^9, 3.8546084002595634`*^9}, {3.8546093972477226`*^9, 
   3.854609422219363*^9}, {3.854609980757801*^9, 3.854609999027039*^9}, 
   3.854610051197801*^9, {3.8546104007151766`*^9, 3.854610422169839*^9}, {
   3.854610540016487*^9, 3.8546105429680614`*^9}, 3.854614224250162*^9, 
   3.854614782938295*^9, {3.854615036914341*^9, 3.8546150392462053`*^9}, {
   3.8546150823631673`*^9, 3.8546151092133164`*^9}, {3.8546877665452504`*^9, 
   3.8546877705768805`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"7edb7f83-b25a-4c09-ba63-0745d8dd5271"],

Cell["", "Input",
 CellChangeTimes->{{3.8546155513945985`*^9, 3.8546155617948666`*^9}, {
  3.854615594246298*^9, 3.854615601275777*^9}, {3.8546158010046625`*^9, 
  3.8546158023844604`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"83d5225a-6d15-4265-b613-3f7746317b33"],

Cell["\<\
------------------------------------------------------------------------------\
----
Now, we consider each H_i of the Ising Hamiltonian and find its eigenvalues\
\>", "Text",
 CellChangeTimes->{{3.8546157742443185`*^9, 3.8546157960847826`*^9}, {
  3.854687784324236*^9, 3.8546877878233185`*^9}, {3.8550521913405976`*^9, 
  3.8550521916806507`*^9}},ExpressionUUID->"dabab98d-b34d-4d91-994f-\
fa4e4f077949"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Zi", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t1", "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "*", "p1"}], "]"}], 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
        RowBox[{"Sin", "[", "t1", "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", "t1", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Zj", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t2", "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "*", "p2"}], "]"}], 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
        RowBox[{"Sin", "[", "t2", "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", "t2", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Zk", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t3", "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "*", "p3"}], "]"}], 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"\[ImaginaryI]", "*", "p3"}], "]"}], 
        RowBox[{"Sin", "[", "t3", "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", "t3", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.854609607543082*^9, 3.854609618577357*^9}, {
   3.8546106639632215`*^9, 3.8546107985332813`*^9}, 3.8546109018625393`*^9, {
   3.8546151644483232`*^9, 3.85461517199081*^9}, 3.8546157464168725`*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"ab4e998d-7c42-4659-8f46-4060ae2e776f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Xi", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], "*", "p1"}], "]"}]}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "t1", "]"}], 
           RowBox[{"Cos", "[", "p1", "]"}]}], " ", "+", " ", 
          RowBox[{"\[ImaginaryI]", "*", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}]}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "t1", "]"}], 
           RowBox[{"Cos", "[", "p1", "]"}]}], " ", "-", " ", 
          RowBox[{"\[ImaginaryI]", "*", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"-", " ", 
         RowBox[{"Cos", "[", "p1", "]"}]}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Xj", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], "*", "p2"}], "]"}]}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "t2", "]"}], 
           RowBox[{"Cos", "[", "p2", "]"}]}], " ", "+", " ", 
          RowBox[{"\[ImaginaryI]", "*", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}]}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "t2", "]"}], 
           RowBox[{"Cos", "[", "p2", "]"}]}], " ", "-", " ", 
          RowBox[{"\[ImaginaryI]", "*", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"-", " ", 
         RowBox[{"Cos", "[", "p2", "]"}]}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Xk", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], "*", "p3"}], "]"}]}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "t3", "]"}], 
           RowBox[{"Cos", "[", "p3", "]"}]}], " ", "+", " ", 
          RowBox[{"\[ImaginaryI]", "*", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", "*", "p3"}], "]"}]}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "t3", "]"}], 
           RowBox[{"Cos", "[", "p3", "]"}]}], " ", "-", " ", 
          RowBox[{"\[ImaginaryI]", "*", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"-", " ", 
         RowBox[{"Cos", "[", "p3", "]"}]}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8546108093867226`*^9, 3.8546108469694715`*^9}, {
  3.854615176397002*^9, 3.8546151831826987`*^9}, {3.855644763583559*^9, 
  3.8556448276072454`*^9}, {3.8556449434816723`*^9, 3.8556449505682187`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"579d2e27-4e8a-468b-9ba2-d3772a50b0f3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Hi", " ", "=", " ", 
    RowBox[{
     RowBox[{"J", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Zi", ",", "Zj", ",", " ", "Id"}], "]"}]}], "+", 
     RowBox[{"J", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Id", ",", "Zj", ",", " ", "Zk"}], "]"}]}], "+", 
     RowBox[{"J", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Zi", ",", " ", "Id", ",", " ", "Zk"}], "]"}]}], "+", 
     RowBox[{"KroneckerProduct", "[", 
      RowBox[{"Xi", ",", "Id", ",", " ", "Id"}], "]"}], " ", "+", " ", 
     RowBox[{"h", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Id", ",", "Xj", ",", "Id"}], "]"}]}], " ", "+", " ", 
     RowBox[{"h", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Id", ",", "Id", ",", "Xk"}], "]"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "Hi", "]"}]}], "Input",
 CellChangeTimes->{{3.854610859341733*^9, 3.854610870779475*^9}, {
  3.854611104274686*^9, 3.8546111216371784`*^9}, {3.854611355017462*^9, 
  3.8546113989679813`*^9}, {3.854615191805936*^9, 3.854615197028514*^9}, {
  3.8550491614704666`*^9, 3.8550491864054937`*^9}, {3.8550493000015907`*^9, 
  3.855049300163172*^9}, {3.855644830563178*^9, 3.85564491051348*^9}, {
  3.855645190727619*^9, 3.855645196239029*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"a03e4d81-9ea7-471b-a93c-a9f317593064"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t2", "]"}]}], "+", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "+", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "+", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p3", "]"}], " ", 
           RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p2", "]"}], " ", 
           RowBox[{"Cos", "[", "t2", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t2", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p1", "]"}], " ", 
           RowBox[{"Cos", "[", "t1", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t2", "]"}]}], "0"},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p3"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p3", "]"}], " ", 
           RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t2", "]"}]}], "-", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "+", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "-", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t2", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p2", "]"}], " ", 
           RowBox[{"Cos", "[", "t2", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p1", "]"}], " ", 
           RowBox[{"Cos", "[", "t1", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t2", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p2"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p2", "]"}], " ", 
           RowBox[{"Cos", "[", "t2", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p2"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t2", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "J"}], " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t2", "]"}]}], "+", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "-", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "+", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p3", "]"}], " ", 
           RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t2", "]"}]}], "0", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p1", "]"}], " ", 
           RowBox[{"Cos", "[", "t1", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}]},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p2"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t2", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p2"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p2", "]"}], " ", 
           RowBox[{"Cos", "[", "t2", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p3"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p3", "]"}], " ", 
           RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "J"}], " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t2", "]"}]}], "-", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "-", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "-", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t2", "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p1", "]"}], " ", 
           RowBox[{"Cos", "[", "t1", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p1"}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p1", "]"}], " ", 
           RowBox[{"Cos", "[", "t1", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t2", "]"}]}], "0", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "J"}], " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t2", "]"}]}], "-", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "+", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "+", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p3", "]"}], " ", 
           RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p2", "]"}], " ", 
           RowBox[{"Cos", "[", "t2", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t2", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}]},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p1"}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p1", "]"}], " ", 
           RowBox[{"Cos", "[", "t1", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t2", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p3"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p3", "]"}], " ", 
           RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "J"}], " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t2", "]"}]}], "+", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "+", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "-", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t2", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p2", "]"}], " ", 
           RowBox[{"Cos", "[", "t2", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}]},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t2", "]"}]}], "0", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p1"}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p1", "]"}], " ", 
           RowBox[{"Cos", "[", "t1", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p2"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p2", "]"}], " ", 
           RowBox[{"Cos", "[", "t2", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p2"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t2", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t2", "]"}]}], "-", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "-", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "+", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p3", "]"}], " ", 
           RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}]},
     {"0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t2", "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t1", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p1"}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p1", "]"}], " ", 
           RowBox[{"Cos", "[", "t1", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p1", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p2"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", "J", " ", 
       RowBox[{"Sin", "[", "t2", "]"}], " ", 
       RowBox[{"Sin", "[", "t3", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p2"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p2", "]"}], " ", 
           RowBox[{"Cos", "[", "t2", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p2", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t3", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "p3"}]]}], " ", "h", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Cos", "[", "p3", "]"}], " ", 
           RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Sin", "[", "p3", "]"}]}]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", "J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}], 
      RowBox[{
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t2", "]"}]}], "+", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t1", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "+", 
       RowBox[{"J", " ", 
        RowBox[{"Cos", "[", "t2", "]"}], " ", 
        RowBox[{"Cos", "[", "t3", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", "p1", "]"}], " ", 
        RowBox[{"Sin", "[", "t1", "]"}]}], "-", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p2", "]"}], " ", 
        RowBox[{"Sin", "[", "t2", "]"}]}], "-", 
       RowBox[{"h", " ", 
        RowBox[{"Cos", "[", "p3", "]"}], " ", 
        RowBox[{"Sin", "[", "t3", "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.854610871484832*^9, 3.854610911136839*^9, {3.8546111013091936`*^9, 
   3.854611122542468*^9}, 3.8546151991853375`*^9, 3.8550491873581123`*^9, 
   3.855049301802837*^9, 3.85519993065038*^9, 3.8556449122145863`*^9, 
   3.8556449596046133`*^9, 3.857026784040537*^9},
 CellLabel->
  "Out[22]//MatrixForm=",ExpressionUUID->"717adc6a-48e2-426c-b9e1-\
0eb72dc01b15"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"Eigenvalues", "[", "Hi", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.854615227282999*^9, 3.8546152285586967`*^9}, {
  3.855644158023449*^9, 3.855644177948131*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"f1491daa-363b-4344-898c-abc00641c533"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8570268430261097`*^9, 
  3.8570268431071806`*^9}},ExpressionUUID->"0a002474-f37f-4af1-aab8-\
6de930d4b701"],

Cell["\<\
------------------------------------------------------------------------------\
---------------------------------------
Now, general Kronecker product\
\>", "Text",
 CellChangeTimes->{{3.854615879658228*^9, 3.854615893234707*^9}, {
  3.854687795252147*^9, 
  3.8546878017895155`*^9}},ExpressionUUID->"87328e1a-0157-42f3-9d38-\
f4b526df1b2c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"v1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"t1", "/", "2"}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"t1", "/", "2"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v2", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"t2", "/", "2"}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"t2", "/", "2"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v3", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"t3", "/", "2"}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"\[ImaginaryI]", "*", "p3"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"t3", "/", "2"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"KroneckerProduct", "[", 
   RowBox[{"v1", ",", " ", "v2", ",", " ", "v3"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.85461323436858*^9, 3.8546133216167912`*^9}, {
   3.8546133543490214`*^9, 3.854613384660453*^9}, {3.8546134723983135`*^9, 
   3.8546134731171713`*^9}, {3.8546159021174626`*^9, 3.854615904915683*^9}, 
   3.854687716440423*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"584b7ed9-8b7a-487a-9fdf-f95718a1d1b0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["t1", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t2", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t3", "2"], "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "p3"}]], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t1", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t2", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t3", "2"], "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t1", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t3", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t2", "2"], "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p2"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t1", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t2", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t3", "2"], "]"}]}]},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t2", "2"], "]"}], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t3", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t1", "2"], "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t2", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t1", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t3", "2"], "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", 
       RowBox[{"Cos", "[", 
        FractionBox["t3", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t1", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t2", "2"], "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", "p3"}]}]], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t1", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t2", "2"], "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox["t3", "2"], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.854613378768366*^9, 3.8546133851785336`*^9}, 
   3.854613473788246*^9, 3.854615905827296*^9, 3.854687717660616*^9, 
   3.857030606791263*^9, 3.8586773075598865`*^9},
 CellLabel->
  "Out[16]//MatrixForm=",ExpressionUUID->"19e8f944-d7b1-4e6f-8c4a-\
1046df593bfa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"v12", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"t1", "/", "2"}], "]"}], 
      RowBox[{"Cos", "[", 
       RowBox[{"t2", "/", "2"}], "]"}]}], ",", " ", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"t1", "/", "2"}], "]"}], 
      RowBox[{"Exp", "[", 
       RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"t2", "/", "2"}], "]"}]}], ",", " ", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"t1", "/", "2"}], "]"}], 
      RowBox[{"Cos", "[", 
       RowBox[{"t2", "/", "2"}], "]"}]}], ",", " ", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"t1", "/", "2"}], "]"}], 
      RowBox[{"Exp", "[", 
       RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"t2", "/", "2"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "v12", "]"}]}], "Input",
 CellChangeTimes->{{3.854613311025844*^9, 3.854613327150466*^9}, {
  3.8546160257702017`*^9, 3.8546161467749023`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"8ca71468-1600-43b9-9214-9c6187f4ec20"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"Cos", "[", 
         FractionBox["t1", "2"], "]"}], " ", 
        RowBox[{"Cos", "[", 
         FractionBox["t2", "2"], "]"}]}]},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p2"}]], " ", 
        RowBox[{"Cos", "[", 
         FractionBox["t1", "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["t2", "2"], "]"}]}]},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", 
        RowBox[{"Cos", "[", 
         FractionBox["t2", "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["t1", "2"], "]"}]}]},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
          RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["t1", "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["t2", "2"], "]"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.854616127701583*^9, 3.8546161473299413`*^9}, {
   3.856608111435025*^9, 3.8566081339953313`*^9}, 3.857030610220321*^9, 
   3.858677310256379*^9},
 CellLabel->
  "Out[18]//MatrixForm=",ExpressionUUID->"c4d3558f-a96d-4548-9edb-\
a58bedf0d8c1"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8546139083383737`*^9, 3.8546139133654346`*^9}, {
   3.854614000508139*^9, 3.8546140029009013`*^9}, {3.8546140883858147`*^9, 
   3.854614120281974*^9}, 3.8546142592616897`*^9, {3.854614323552067*^9, 
   3.8546143278431807`*^9}, {3.854614411332423*^9, 3.8546144162827783`*^9}, {
   3.8546144811386538`*^9, 3.8546145227462735`*^9}, {3.8546147495187635`*^9, 
   3.854614754708276*^9}, {3.8546150144934196`*^9, 3.8546150148061485`*^9}},
 CellLabel->
  "In[492]:=",ExpressionUUID->"e35da1a7-e320-4404-8bff-1cd8e76da1d0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"1", "/", 
       RowBox[{"Sqrt", "[", "2", "]"}]}], ",", 
      RowBox[{
       RowBox[{"-", "1"}], "/", 
       RowBox[{"Sqrt", "[", "2", "]"}]}], ",", "0"}], "}"}], " ", "==", " ", 
    "v12"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t1", ",", " ", "t2", ",", " ", "p1", ",", " ", "p2"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.854616195666932*^9, 3.8546162480356236`*^9}, {
   3.8546165402669067`*^9, 3.8546165453362064`*^9}, {3.854616575342104*^9, 
   3.8546165767327237`*^9}, {3.8546166247164955`*^9, 3.854616680661731*^9}, {
   3.8546168410851574`*^9, 3.854616868879101*^9}, 3.8566081040842314`*^9},
 CellLabel->
  "In[200]:=",ExpressionUUID->"437907ee-9bb5-4567-9ba4-edbb7c0df332"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.854616536759344*^9, 3.8546165463870296`*^9}, 
   3.8546165775986443`*^9, 3.854616627870536*^9, {3.8546166588784833`*^9, 
   3.8546166828692427`*^9}, {3.8546168437262597`*^9, 3.854616869697472*^9}, {
   3.856608106611062*^9, 3.8566081371213923`*^9}},
 CellLabel->
  "Out[200]=",ExpressionUUID->"8d0b3628-9326-49b6-8a8e-9b78c2b5a97c"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"t1", " ", "=", " ", "\[Pi]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t2", " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", "v12"}], "Input",
 CellChangeTimes->{{3.854616296112013*^9, 3.854616397049128*^9}, 
   3.854616533518256*^9, {3.8546177943500404`*^9, 3.8546178281064615`*^9}, {
   3.854617942768875*^9, 3.854617965417832*^9}, 3.8546180209708395`*^9, {
   3.8546182488166976`*^9, 3.8546182500579104`*^9}, {3.8546184205917487`*^9, 
   3.8546184752782707`*^9}, {3.8546185201865683`*^9, 
   3.8546186652849827`*^9}, {3.854618791584399*^9, 3.8546187917564416`*^9}, {
   3.854687703242171*^9, 
   3.8546877084657583`*^9}},ExpressionUUID->"f619e23f-5d61-450d-9abb-\
190f40aaca1a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"t1", ",", " ", "t2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"t1", "-", "t2"}], ")"}], "/", "2"}], "]"}], " ", "+", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"t1", "+", "t2"}], ")"}], "/", "2"}], "]"}]}], ",", " ", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"t1", "-", "t2"}], ")"}], "/", "2"}], "]"}], " ", "-", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"t1", "+", "t2"}], ")"}], "/", "2"}], "]"}]}]}], "}"}], "==",
     " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t1", ",", " ", "t2"}], "}"}], ",", " ", "Reals"}], "]"}]}], \
"Input",
 CellChangeTimes->{{3.854618806215016*^9, 3.8546188999055705`*^9}, {
  3.8546193214074955`*^9, 3.854619328538385*^9}, {3.854619360777013*^9, 
  3.8546193638751373`*^9}, {3.854619561408409*^9, 3.854619567627261*^9}, {
  3.8546196024588337`*^9, 3.854619604762849*^9}, {3.8546196901210833`*^9, 
  3.854619694159723*^9}, {3.8546229541950817`*^9, 3.8546229667571535`*^9}},
 CellLabel->
  "In[651]:=",ExpressionUUID->"28d8476c-2e79-474c-9643-e1dd4c6f91da"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t1", "\[Rule]", 
      TemplateBox[{
        RowBox[{
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"1"}, "C"]}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"2"}, "C"]}]}], 
        RowBox[{
          RowBox[{"(", 
            RowBox[{
              TemplateBox[{"1"}, "C"], "|", 
              TemplateBox[{"2"}, "C"]}], ")"}], "\[Element]", 
          TemplateBox[{}, "Integers"]}]},
       "ConditionalExpression"]}], ",", 
     RowBox[{"t2", "\[Rule]", 
      TemplateBox[{
        RowBox[{
          RowBox[{
            RowBox[{"-", "2"}], " ", "\[Pi]", " ", 
            TemplateBox[{"1"}, "C"]}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"2"}, "C"]}]}], 
        RowBox[{
          RowBox[{"(", 
            RowBox[{
              TemplateBox[{"1"}, "C"], "|", 
              TemplateBox[{"2"}, "C"]}], ")"}], "\[Element]", 
          TemplateBox[{}, "Integers"]}]},
       "ConditionalExpression"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t1", "\[Rule]", 
      TemplateBox[{
        RowBox[{"\[Pi]", "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"1"}, "C"]}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"2"}, "C"]}]}], 
        RowBox[{
          RowBox[{"(", 
            RowBox[{
              TemplateBox[{"1"}, "C"], "|", 
              TemplateBox[{"2"}, "C"]}], ")"}], "\[Element]", 
          TemplateBox[{}, "Integers"]}]},
       "ConditionalExpression"]}], ",", 
     RowBox[{"t2", "\[Rule]", 
      TemplateBox[{
        RowBox[{
          RowBox[{"-", "\[Pi]"}], "-", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"1"}, "C"]}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"2"}, "C"]}]}], 
        RowBox[{
          RowBox[{"(", 
            RowBox[{
              TemplateBox[{"1"}, "C"], "|", 
              TemplateBox[{"2"}, "C"]}], ")"}], "\[Element]", 
          TemplateBox[{}, "Integers"]}]},
       "ConditionalExpression"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t1", "\[Rule]", 
      TemplateBox[{
        RowBox[{"\[Pi]", "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"1"}, "C"]}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"2"}, "C"]}]}], 
        RowBox[{
          RowBox[{"(", 
            RowBox[{
              TemplateBox[{"1"}, "C"], "|", 
              TemplateBox[{"2"}, "C"]}], ")"}], "\[Element]", 
          TemplateBox[{}, "Integers"]}]},
       "ConditionalExpression"]}], ",", 
     RowBox[{"t2", "\[Rule]", 
      TemplateBox[{
        RowBox[{"\[Pi]", "-", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"1"}, "C"]}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"2"}, "C"]}]}], 
        RowBox[{
          RowBox[{"(", 
            RowBox[{
              TemplateBox[{"1"}, "C"], "|", 
              TemplateBox[{"2"}, "C"]}], ")"}], "\[Element]", 
          TemplateBox[{}, "Integers"]}]},
       "ConditionalExpression"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t1", "\[Rule]", 
      TemplateBox[{
        RowBox[{
          RowBox[{"2", " ", "\[Pi]"}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"1"}, "C"]}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"2"}, "C"]}]}], 
        RowBox[{
          RowBox[{"(", 
            RowBox[{
              TemplateBox[{"1"}, "C"], "|", 
              TemplateBox[{"2"}, "C"]}], ")"}], "\[Element]", 
          TemplateBox[{}, "Integers"]}]},
       "ConditionalExpression"]}], ",", 
     RowBox[{"t2", "\[Rule]", 
      TemplateBox[{
        RowBox[{
          RowBox[{
            RowBox[{"-", "2"}], " ", "\[Pi]", " ", 
            TemplateBox[{"1"}, "C"]}], "+", 
          RowBox[{"2", " ", "\[Pi]", " ", 
            TemplateBox[{"2"}, "C"]}]}], 
        RowBox[{
          RowBox[{"(", 
            RowBox[{
              TemplateBox[{"1"}, "C"], "|", 
              TemplateBox[{"2"}, "C"]}], ")"}], "\[Element]", 
          TemplateBox[{}, "Integers"]}]},
       "ConditionalExpression"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8546188828967195`*^9, 3.8546189004905357`*^9}, {
   3.8546193232666283`*^9, 3.854619328973651*^9}, 3.854619365981037*^9, 
   3.8546195681415405`*^9, 3.854619605291155*^9, 3.8546196949399776`*^9, 
   3.8546229676223445`*^9, 3.854681908721095*^9},
 CellLabel->
  "Out[652]=",ExpressionUUID->"786764a4-2147-4dd3-9768-8c6c9be6d035"]
}, Open  ]],

Cell["\<\
------------------------------------------------------------------------------\
----------------------------------
Now, equivalence between up and down kets\
\>", "Text",
 CellChangeTimes->{{3.854687671504712*^9, 3.8546876816937046`*^9}, {
  3.8546878062387047`*^9, 
  3.854687810198656*^9}},ExpressionUUID->"e99774b2-3a4b-4b5d-b023-\
7330711cf584"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{"t1", ",", " ", "t2", ",", " ", "p1", ",", " ", "p2"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"chip", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"t1", "/", "2"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
        RowBox[{"Sin", "[", 
         RowBox[{"t1", "/", "2"}], "]"}]}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"chim", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], "*", "p2"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t2", "/", "2"}], "]"}]}], ",", " ", 
      RowBox[{"-", 
       RowBox[{"Cos", "[", 
        RowBox[{"t2", "/", "2"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"chim", " ", "==", " ", 
      RowBox[{"c", "*", "chip"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t2", ",", " ", "p2"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8546195119168606`*^9, 3.8546195264413147`*^9}, {
   3.8546196524959574`*^9, 3.854619664269768*^9}, {3.8546232887503767`*^9, 
   3.854623311235708*^9}, {3.854684347584015*^9, 3.8546844200451927`*^9}, {
   3.854685096830989*^9, 3.8546851312672844`*^9}, {3.854685536560753*^9, 
   3.8546855809595876`*^9}, {3.8546857077122974`*^9, 3.854685711096423*^9}, {
   3.8546857993896875`*^9, 3.8546858156831703`*^9}, 
   3.854687663447259*^9},ExpressionUUID->"97262541-9ee4-4f0c-bbaa-\
6a54e519ebab"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "p2"}]], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["t2", "2"], "]"}]}], ",", 
   RowBox[{"-", 
    RowBox[{"Cos", "[", 
     FractionBox["t2", "2"], "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.854684420925*^9, 3.8546851324104085`*^9, {3.854685539314721*^9, 
   3.8546855864036655`*^9}, 3.854685712587908*^9, {3.8546858051040287`*^9, 
   3.854685816475669*^9}, 3.8546876521977806`*^9},
 CellLabel->
  "Out[882]=",ExpressionUUID->"ce8eef0b-558b-46a2-af60-29a1de160eea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t2", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"ArcCos", "[", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "p1"}]]}], " ", 
         RowBox[{"Sin", "[", 
          FractionBox["t1", "2"], "]"}]}], "]"}]}]}], ",", 
     RowBox[{"p2", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"Log", "[", 
        RowBox[{"-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sec", "[", 
             FractionBox["t1", "2"], "]"}], "2"], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", "p1"}]], " ", 
            SuperscriptBox[
             RowBox[{"Tan", "[", 
              FractionBox["t1", "2"], "]"}], "2"]}]}]]}], "]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t2", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"ArcCos", "[", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "p1"}]]}], " ", 
         RowBox[{"Sin", "[", 
          FractionBox["t1", "2"], "]"}]}], "]"}]}]}], ",", 
     RowBox[{"p2", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"Log", "[", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Sec", "[", 
            FractionBox["t1", "2"], "]"}], "2"], "-", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", "\[ImaginaryI]", " ", "p1"}]], " ", 
           SuperscriptBox[
            RowBox[{"Tan", "[", 
             FractionBox["t1", "2"], "]"}], "2"]}]}]], "]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t2", "\[Rule]", 
      RowBox[{"2", " ", 
       RowBox[{"ArcCos", "[", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "p1"}]]}], " ", 
         RowBox[{"Sin", "[", 
          FractionBox["t1", "2"], "]"}]}], "]"}]}]}], ",", 
     RowBox[{"p2", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"Log", "[", 
        RowBox[{"-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sec", "[", 
             FractionBox["t1", "2"], "]"}], "2"], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", "p1"}]], " ", 
            SuperscriptBox[
             RowBox[{"Tan", "[", 
              FractionBox["t1", "2"], "]"}], "2"]}]}]]}], "]"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t2", "\[Rule]", 
      RowBox[{"2", " ", 
       RowBox[{"ArcCos", "[", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "p1"}]]}], " ", 
         RowBox[{"Sin", "[", 
          FractionBox["t1", "2"], "]"}]}], "]"}]}]}], ",", 
     RowBox[{"p2", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"Log", "[", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Sec", "[", 
            FractionBox["t1", "2"], "]"}], "2"], "-", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", "\[ImaginaryI]", " ", "p1"}]], " ", 
           SuperscriptBox[
            RowBox[{"Tan", "[", 
             FractionBox["t1", "2"], "]"}], "2"]}]}]], "]"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.854684420925*^9, 3.8546851324104085`*^9, {3.854685539314721*^9, 
   3.8546855864036655`*^9}, 3.854685712587908*^9, {3.8546858051040287`*^9, 
   3.854685816475669*^9}, 3.854687652247811*^9},
 CellLabel->
  "Out[883]=",ExpressionUUID->"c58943f9-45b8-44f3-b748-6aaf1f611644"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.854684343066224*^9, 
  3.8546843430753736`*^9}},ExpressionUUID->"f806d6d9-630a-4b2f-938f-\
3e9c92c664d4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"t1", " ", "=", " ", 
   RowBox[{"\[Pi]", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p1", " ", "=", " ", "\[Pi]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"t2", "=", " ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   RowBox[{"ArcCos", "[", 
    RowBox[{
     RowBox[{"-", "c"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", 
     RowBox[{"Sin", "[", 
      FractionBox["t1", "2"], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"p2", " ", "=", " ", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"Log", "[", 
     RowBox[{"-", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sec", "[", 
           FractionBox["t1", "2"], "]"}], "2"], "-", 
         RowBox[{
          SuperscriptBox["c", "2"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "p1"}]], " ", 
          SuperscriptBox[
           RowBox[{"Tan", "[", 
            FractionBox["t1", "2"], "]"}], "2"]}]}]], "c"]}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "chip", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "c", "]"}], ";", " ", 
  RowBox[{"c", "=", "1"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "chim", "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8546851395886927`*^9, 3.854685165672807*^9}, {
   3.8546852641951184`*^9, 3.854685302071581*^9}, 3.854685394070943*^9, {
   3.854685430594341*^9, 3.854685454002059*^9}, {3.854685494598762*^9, 
   3.8546855092133913`*^9}, {3.854685744843068*^9, 3.85468576848938*^9}, {
   3.85468582779634*^9, 3.85468596290559*^9}, {3.854686037969212*^9, 
   3.854686129060603*^9}, {3.8546861860181704`*^9, 3.8546861907398415`*^9}, {
   3.8546862422629757`*^9, 3.8546862579735165`*^9}, {3.854686321085764*^9, 
   3.854686335702804*^9}},
 CellLabel->
  "In[873]:=",ExpressionUUID->"e074cd6d-e859-49fe-be2f-f35a43802edc"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["\[Pi]", "2"]}]], "Output",
 CellChangeTimes->{{3.854685284274082*^9, 3.8546853027833233`*^9}, 
   3.854685394791435*^9, {3.854685430997651*^9, 3.854685454450039*^9}, {
   3.85468550081952*^9, 3.8546855097650747`*^9}, 3.854685720611909*^9, 
   3.854685769599964*^9, 3.8546858812649727`*^9, {3.854685913465066*^9, 
   3.854685970405264*^9}, {3.854686050122972*^9, 3.854686129553353*^9}, {
   3.8546861910935936`*^9, 3.8546862583721747`*^9}, {3.854686326874522*^9, 
   3.854686336972725*^9}},
 CellLabel->
  "Out[875]=",ExpressionUUID->"c1513de4-c8e0-41eb-900e-d5526a338e61"],

Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{{3.854685284274082*^9, 3.8546853027833233`*^9}, 
   3.854685394791435*^9, {3.854685430997651*^9, 3.854685454450039*^9}, {
   3.85468550081952*^9, 3.8546855097650747`*^9}, 3.854685720611909*^9, 
   3.854685769599964*^9, 3.8546858812649727`*^9, {3.854685913465066*^9, 
   3.854685970405264*^9}, {3.854686050122972*^9, 3.854686129553353*^9}, {
   3.8546861910935936`*^9, 3.8546862583721747`*^9}, {3.854686326874522*^9, 
   3.8546863369827056`*^9}},
 CellLabel->
  "Out[876]=",ExpressionUUID->"48e5a7b6-e64d-4dde-bbd7-a4b85ef57d6b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       FractionBox["1", 
        SqrtBox["2"]]},
      {
       RowBox[{"-", 
        FractionBox["1", 
         SqrtBox["2"]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.854685284274082*^9, 3.8546853027833233`*^9}, 
   3.854685394791435*^9, {3.854685430997651*^9, 3.854685454450039*^9}, {
   3.85468550081952*^9, 3.8546855097650747`*^9}, 3.854685720611909*^9, 
   3.854685769599964*^9, 3.8546858812649727`*^9, {3.854685913465066*^9, 
   3.854685970405264*^9}, {3.854686050122972*^9, 3.854686129553353*^9}, {
   3.8546861910935936`*^9, 3.8546862583721747`*^9}, {3.854686326874522*^9, 
   3.854686336993893*^9}},
 CellLabel->
  "Out[877]//MatrixForm=",ExpressionUUID->"3e2a1563-5b9d-493d-aa67-\
a509e1052ba6"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.854685284274082*^9, 3.8546853027833233`*^9}, 
   3.854685394791435*^9, {3.854685430997651*^9, 3.854685454450039*^9}, {
   3.85468550081952*^9, 3.8546855097650747`*^9}, 3.854685720611909*^9, 
   3.854685769599964*^9, 3.8546858812649727`*^9, {3.854685913465066*^9, 
   3.854685970405264*^9}, {3.854686050122972*^9, 3.854686129553353*^9}, {
   3.8546861910935936`*^9, 3.8546862583721747`*^9}, {3.854686326874522*^9, 
   3.854686337002914*^9}},
 CellLabel->
  "Out[878]=",ExpressionUUID->"b19fba4f-d13e-48ce-af4f-a8171e14be3f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       FractionBox["1", 
        SqrtBox["2"]]},
      {
       RowBox[{"-", 
        FractionBox["1", 
         SqrtBox["2"]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.854685284274082*^9, 3.8546853027833233`*^9}, 
   3.854685394791435*^9, {3.854685430997651*^9, 3.854685454450039*^9}, {
   3.85468550081952*^9, 3.8546855097650747`*^9}, 3.854685720611909*^9, 
   3.854685769599964*^9, 3.8546858812649727`*^9, {3.854685913465066*^9, 
   3.854685970405264*^9}, {3.854686050122972*^9, 3.854686129553353*^9}, {
   3.8546861910935936`*^9, 3.8546862583721747`*^9}, {3.854686326874522*^9, 
   3.8546863370133715`*^9}},
 CellLabel->
  "Out[879]//MatrixForm=",ExpressionUUID->"c963b49f-74f4-4535-bec7-\
4467b7c54353"]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.8546852236095653`*^9, 3.8546852625943675`*^9}, {
  3.854686206823888*^9, 3.854686209388235*^9}},
 CellLabel->
  "In[842]:=",ExpressionUUID->"1def1b0f-1104-4445-8757-0afad52e5755"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8546851708652253`*^9, 
  3.8546852163565392`*^9}},ExpressionUUID->"3066575f-4071-4471-bcaf-\
61aad4a94dcf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"plus", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Theta]", "/", "2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", "\[ImaginaryI]\[Phi]", "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Theta]", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"moins", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"-", "\[ImaginaryI]\[Phi]"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Theta]", "/", "2"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"-", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Theta]", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ConjugateTranspose", "[", "moins", "]"}], ".", "Z", ".", 
  "moins"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8554846705362463`*^9, 3.8554848259291525`*^9}, {
  3.8554848856800385`*^9, 3.855484939075056*^9}, {3.855484975600407*^9, 
  3.8554849772557616`*^9}, {3.8554850392822948`*^9, 3.8554850768845325`*^9}, {
  3.855485115546008*^9, 3.855485155567642*^9}, {3.8554853320490417`*^9, 
  3.8554853455513663`*^9}, {3.855485520271834*^9, 3.855485521350012*^9}, {
  3.855485661945838*^9, 3.8554856739136105`*^9}, {3.855485721732714*^9, 
  3.855485738839476*^9}},
 CellLabel->
  "In[954]:=",ExpressionUUID->"ff86d414-9cc2-42a7-8a39-117747fb803a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "\[ImaginaryI]\[Phi]"}]], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["\[Theta]", "2"], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", "\[Phi]"}]]}], " ", 
         RowBox[{"Cos", "[", 
          FractionBox[
           RowBox[{"Conjugate", "[", "\[Theta]", "]"}], "2"], "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"Conjugate", "[", "\[ImaginaryI]\[Phi]", "]"}]}]], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", 
          FractionBox[
           RowBox[{"Conjugate", "[", "\[Theta]", "]"}], "2"], "]"}]}]}], 
       ")"}]}], "-", 
     RowBox[{
      RowBox[{"Cos", "[", 
       FractionBox["\[Theta]", "2"], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Cos", "[", 
          FractionBox[
           RowBox[{"Conjugate", "[", "\[Theta]", "]"}], "2"], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]"}], "-", 
           RowBox[{"Conjugate", "[", "\[ImaginaryI]\[Phi]", "]"}]}]], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", 
          FractionBox[
           RowBox[{"Conjugate", "[", "\[Theta]", "]"}], "2"], "]"}]}]}], 
       ")"}]}]}], "}"}], "}"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.856260305417137*^9, 
  3.856260305757591*^9}},ExpressionUUID->"74b02595-24b6-4990-9e01-\
27593e595aea"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"8d944ddf-450e-4652-a8ec-b57a9b213c15"],

Cell["\<\
test psi(theta)
\
\>", "Text",
 CellChangeTimes->{{3.8562603336540513`*^9, 
  3.856260340158712*^9}},ExpressionUUID->"1ccad78f-c9d0-4758-9a8a-\
0fa14bf3aeac"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"up", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", " ", 
     RowBox[{"{", "0", "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"down", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "0", "}"}], ",", " ", 
      RowBox[{"{", "1", "}"}]}], "}"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"P1", " ", "=", " ", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Theta]1", "/", "2"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "\[ImaginaryI]\[Phi]1"}], "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]1", "/", "2"}], "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", "\[ImaginaryI]\[Phi]1", "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]1", "/", "2"}], "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Theta]1", "/", "2"}], "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"P2", " ", "=", " ", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Theta]2", "/", "2"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "\[ImaginaryI]\[Phi]2"}], "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]2", "/", "2"}], "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", "\[ImaginaryI]\[Phi]2", "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]2", "/", "2"}], "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Theta]2", "/", "2"}], "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"P3", " ", "=", " ", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Theta]3", "/", "2"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "\[ImaginaryI]\[Phi]3"}], "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]3", "/", "2"}], "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", "\[ImaginaryI]\[Phi]3", "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]3", "/", "2"}], "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Theta]3", "/", "2"}], "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"P4", " ", "=", " ", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Theta]4", "/", "2"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "\[ImaginaryI]\[Phi]4"}], "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]4", "/", "2"}], "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", "\[ImaginaryI]\[Phi]4", "]"}], " ", "*", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Theta]4", "/", "2"}], "]"}]}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Theta]4", "/", "2"}], "]"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"P", " ", "=", " ", 
    RowBox[{"KroneckerProduct", "[", 
     RowBox[{"P1", ",", " ", "P2"}], "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"chip1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Cos", "[", 
       RowBox[{"t1", "/", "2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t1", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"chim1", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "*", "p1"}], "]"}], 
        RowBox[{"Sin", "[", 
         RowBox[{"t1", "/", "2"}], "]"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{"t1", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], ";"}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"chip2", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Cos", "[", 
       RowBox[{"t2", "/", "2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t2", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"chim2", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "*", "p2"}], "]"}], 
        RowBox[{"Sin", "[", 
         RowBox[{"t2", "/", "2"}], "]"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{"t2", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\n", 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"psi", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"up", ",", " ", "down"}], "]"}], " ", "+", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"up", ",", " ", "up"}], "]"}]}], ")"}], "/", 
    RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"P", ".", "psi"}], "]"}], ";"}], "\n", "\n"}], "\n", 
 RowBox[{"Simplify", "[", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{"chip1", " ", "+", " ", 
    RowBox[{"\[ImaginaryI]", "*", "chim1"}]}], "]"}], "]"}]}], "Code",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQ/fZZ6Hzr3W8cl9zzWg2ie9aYbwDRSa+sNoFoPbkP
J0H0n2r+MyC6cbLRFRCtYLboFojmu2n9CkQf2nr8Hdic+zcdwoH0k5mqsSB6
huLPBBAt+X5xJoj+JvGhEEQnXRYrAdEsXFMbQbTTQpEmEN0h09gBovcVXgLT
HWsPn40E0pbLzp4D0TMYDoVGAWmV5LwwEF3SMfssiJ42ZyeYnqe6+jKIFslR
eQ2ijWYky0QD6arwXWC6tzNsBYjWSXy4BkQX+DzPiQHSj3yM8kF0G8vGWhD9
rP5JI4hODplv2APyz5FPJiBaea20I4i+8UDHCURPuXJwL4j+vp7hCIiOzTxa
1QekOaTn14NoAHZOwRg=
  "],
 CellLabel->"In[1]:=",ExpressionUUID->"76b2ab97-50e7-42c7-b050-bbee82940df3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox["t1", "2"], "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}]], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["t1", "2"], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{"Cos", "[", 
       FractionBox["t1", "2"], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "p1"}]], " ", 
      RowBox[{"Sin", "[", 
       FractionBox["t1", "2"], "]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.856325991944071*^9, 3.8563275461327705`*^9, {3.856327681853574*^9, 
   3.8563276957817526`*^9}, 3.8563351952090907`*^9, {3.856425378916288*^9, 
   3.8564253844796247`*^9}, {3.8564254831067023`*^9, 3.8564254900111613`*^9}, 
   3.856426528895103*^9, 3.856430077412446*^9, 3.8566012960420094`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"a458b41e-2cd3-4175-b5eb-a70e4f8d9d14"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{
    RowBox[{"ConjugateTranspose", "[", " ", 
     RowBox[{"KroneckerProduct", "[", 
      RowBox[{"chip1", ",", " ", "chip1"}], "]"}], "]"}], " ", ".", 
    RowBox[{"KroneckerProduct", "[", 
     RowBox[{"chim1", ",", " ", "chim1"}], "]"}]}], "]"}], "//", " ", 
  "TrigExpand"}]], "Input",
 CellChangeTimes->{{3.8563275147032657`*^9, 3.856327515585533*^9}, {
  3.856328521687689*^9, 3.856328562186166*^9}},
 CellLabel->
  "In[1368]:=",ExpressionUUID->"9f6b5e42-850f-473a-a785-7babc9ee97df"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "p1"}]], " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", 
          FractionBox[
           RowBox[{"Conjugate", "[", "t1", "]"}], "2"], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          FractionBox["t1", "2"], "]"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "p1"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"Conjugate", "[", "p1", "]"}]}]}]], " ", 
        RowBox[{"Cos", "[", 
         FractionBox["t1", "2"], "]"}], " ", 
        RowBox[{"Cos", "[", 
         FractionBox[
          RowBox[{"Conjugate", "[", "t1", "]"}], "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["t1", "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox[
          RowBox[{"Conjugate", "[", "t1", "]"}], "2"], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
          RowBox[{"Conjugate", "[", "p1", "]"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", 
          FractionBox["t1", "2"], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          FractionBox[
           RowBox[{"Conjugate", "[", "t1", "]"}], "2"], "]"}], "2"]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8563285667442284`*^9},
 CellLabel->
  "Out[1368]//MatrixForm=",ExpressionUUID->"2422e9be-de81-4f9c-bd39-\
36b9140c149e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ket", "[", 
    RowBox[{"t1_", ",", " ", "p1_", ",", " ", "t2_", ",", " ", "p2_"}], "]"}],
    " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"t1", "/", "2"}], "]"}], 
       RowBox[{"Cos", "[", 
        RowBox[{"t2", "/", "2"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
       RowBox[{"Cos", "[", 
        RowBox[{"t1", "/", "2"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t2", "/", "2"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
       RowBox[{"Cos", "[", 
        RowBox[{"t2", "/", "2"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t1", "/", "2"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", "*", "p1"}], " ", "+", " ", 
         RowBox[{"\[ImaginaryI]", "*", "p2"}]}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t1", "/", "2"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t2", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"bra", "[", 
    RowBox[{"t1_", ",", " ", "p1_", ",", " ", "t2_", ",", " ", "p2_"}], "]"}],
    " ", "=", 
   RowBox[{"Refine", " ", "[", 
    RowBox[{
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Cos", "[", 
           RowBox[{"t1", "/", "2"}], "]"}], 
          RowBox[{"Cos", "[", 
           RowBox[{"t2", "/", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
          RowBox[{"Cos", "[", 
           RowBox[{"t1", "/", "2"}], "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"t2", "/", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
          RowBox[{"Cos", "[", 
           RowBox[{"t2", "/", "2"}], "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"t1", "/", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", "*", "p1"}], " ", "+", " ", 
            RowBox[{"\[ImaginaryI]", "*", "p2"}]}], "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"t1", "/", "2"}], "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"t2", "/", "2"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Element", "[", 
        RowBox[{"t1", ",", " ", "Reals"}], "]"}], ",", " ", 
       RowBox[{"Element", "[", 
        RowBox[{"t2", ",", " ", "Reals"}], "]"}], ",", " ", 
       RowBox[{"Element", "[", 
        RowBox[{"p1", ",", " ", "Reals"}], "]"}], ",", " ", 
       RowBox[{"Element", "[", 
        RowBox[{"p2", ",", " ", "Reals"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"TrigReduce", "[", 
    RowBox[{
     RowBox[{"bra", "[", 
      RowBox[{"t1", ",", " ", "p1", ",", " ", "t2", ",", " ", "p2"}], "]"}], 
     ".", 
     RowBox[{"ket", "[", 
      RowBox[{
       RowBox[{"\[Pi]", "-", "t1"}], ",", " ", 
       RowBox[{"\[Pi]", "+", "p1"}], ",", 
       RowBox[{"\[Pi]", "-", "t2"}], ",", 
       RowBox[{"\[Pi]", "+", "p2"}]}], "]"}]}], "]"}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"TrigReduce", "[", 
   RowBox[{"Refine", " ", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ConjugateTranspose", "[", 
       RowBox[{"Chi", "[", 
        RowBox[{"t1", ",", " ", "p1", ",", " ", "t2", ",", " ", "p2"}], "]"}],
        "]"}], ".", 
      RowBox[{"Chi", "[", 
       RowBox[{
        RowBox[{"\[Pi]", "-", "t1"}], ",", " ", 
        RowBox[{"\[Pi]", "+", "p1"}], ",", 
        RowBox[{"\[Pi]", "-", "t2"}], ",", 
        RowBox[{"\[Pi]", "+", "p2"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Element", "[", 
        RowBox[{"t1", ",", " ", "Reals"}], "]"}], ",", " ", 
       RowBox[{"Element", "[", 
        RowBox[{"t2", ",", " ", "Reals"}], "]"}], ",", " ", 
       RowBox[{"Element", "[", 
        RowBox[{"p1", ",", " ", "Reals"}], "]"}], ",", " ", 
       RowBox[{"Element", "[", 
        RowBox[{"p2", ",", " ", "Reals"}], "]"}]}], "}"}]}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8563276048914623`*^9, 3.856327647728436*^9}, {
  3.8563277042867017`*^9, 3.8563278942393923`*^9}, {3.8563279456564445`*^9, 
  3.856327958116664*^9}, {3.8563280122247753`*^9, 3.8563281377410946`*^9}, {
  3.8563285955181007`*^9, 3.856328604602193*^9}, {3.85632866833687*^9, 
  3.8563286739273415`*^9}, {3.8563287705944076`*^9, 3.856329086819071*^9}, {
  3.8563291670435824`*^9, 3.8563291702932224`*^9}, {3.856329213882944*^9, 
  3.8563293072124295`*^9}, {3.856329957787411*^9, 3.856330102342373*^9}},
 CellLabel->
  "In[1414]:=",ExpressionUUID->"861ec626-5d43-4b36-82de-e31420cb822a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "0", "}"}], "}"}]], "Output",
 CellChangeTimes->{3.8563300324221315`*^9, 3.856330071693776*^9, 
  3.856330103111462*^9},
 CellLabel->
  "Out[1416]=",ExpressionUUID->"1def1c1c-5d44-4258-b363-7f91be7d1e7d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
        RowBox[{"Conjugate", "[", "\[ImaginaryI]p1", "]"}]}]], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "p2"}], "+", 
        RowBox[{"Conjugate", "[", "\[ImaginaryI]p2", "]"}]}]], "-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"p1", "+", "p2"}], ")"}]}], "+", 
        RowBox[{"Conjugate", "[", 
         RowBox[{"\[ImaginaryI]p1", "+", "\[ImaginaryI]p2"}], "]"}]}]]}], 
     ")"}], " ", 
    RowBox[{"Sin", "[", "t1", "]"}], " ", 
    RowBox[{"Sin", "[", "t2", "]"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.8563300324221315`*^9, 3.856330071693776*^9, 
  3.856330103153921*^9},
 CellLabel->
  "Out[1417]=",ExpressionUUID->"fe3e9330-bdbe-40d7-8182-2a1fd7ac3367"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"x", "/", "2"}], "]"}], ",", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"x", "/", "2"}], "]"}]}], "}"}], " ", "==", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"y", "/", "2"}], " ", "+", " ", 
         RowBox[{"\[Pi]", "/", "6"}]}], "]"}], ",", " ", 
       RowBox[{"-", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"y", "/", "2"}], " ", "+", " ", 
          RowBox[{"\[Pi]", "/", "6"}]}], "]"}]}]}], "}"}]}], ",", " ", 
    RowBox[{"{", "x", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8564919565186863`*^9, 3.8564920355669246`*^9}, {
  3.8564921157257147`*^9, 3.856492121354186*^9}},
 CellLabel->
  "In[1518]:=",ExpressionUUID->"08b03795-c269-449a-915e-da3d7a9a2a90"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    TemplateBox[{
      RowBox[{"2", " ", 
        RowBox[{"(", 
          RowBox[{
            RowBox[{"ArcTan", "[", 
              RowBox[{
                RowBox[{"Sin", "[", 
                  RowBox[{
                    FractionBox["\[Pi]", "6"], "+", 
                    FractionBox["y", "2"]}], "]"}], ",", 
                RowBox[{"-", 
                  RowBox[{"Cos", "[", 
                    RowBox[{
                    FractionBox["\[Pi]", "6"], "+", 
                    FractionBox["y", "2"]}], "]"}]}]}], "]"}], "+", 
            RowBox[{"2", " ", "\[Pi]", " ", 
              TemplateBox[{"1"}, "C"]}]}], ")"}]}], 
      RowBox[{
        TemplateBox[{"1"}, "C"], "\[Element]", 
        TemplateBox[{}, "Integers"]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.856492036733564*^9, 3.856492123487254*^9},
 CellLabel->
  "Out[1518]=",ExpressionUUID->"e746db6d-0939-4d36-a698-caebdc9b234c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Hz", " ", "=", " ", 
   RowBox[{
    RowBox[{"J", " ", 
     RowBox[{"KroneckerProduct", "[", 
      RowBox[{"Zz", ",", "Zz"}], "]"}]}], " ", "+", " ", 
    RowBox[{"J", " ", 
     RowBox[{"KroneckerProduct", "[", 
      RowBox[{"Yz", ",", "Yz"}], "]"}]}], " ", "+", " ", 
    RowBox[{"J", " ", 
     RowBox[{"KroneckerProduct", "[", 
      RowBox[{"Xz", ",", "Xz"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "Hz", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Eigenvectors", "[", "Hz", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Eigenvalues", "[", "Hz", "]"}]}], "Input",
 CellChangeTimes->{{3.8564994520091977`*^9, 3.856499502368154*^9}, {
  3.856499549379393*^9, 3.8564995597524166`*^9}, {3.8564997248431296`*^9, 
  3.8564997531943264`*^9}, {3.8564999938585253`*^9, 3.856499994584906*^9}, {
  3.8565000463398857`*^9, 3.8565000488369684`*^9}, {3.8565001093965635`*^9, 
  3.856500114930539*^9}, {3.856500146857998*^9, 3.856500186558426*^9}, {
  3.8565002332744813`*^9, 3.856500239955779*^9}, {3.8565002821936526`*^9, 
  3.856500304207243*^9}, {3.8565005675688305`*^9, 3.8565005739725947`*^9}, {
  3.8566013106761703`*^9, 3.8566013848954115`*^9}, {3.856601425871548*^9, 
  3.8566014314711385`*^9}, {3.8566016548040376`*^9, 3.8566017290098076`*^9}, {
  3.856601759848813*^9, 3.856601815351924*^9}, {3.856601846126619*^9, 
  3.8566018463354945`*^9}, {3.856607357901688*^9, 3.8566074694761543`*^9}, {
  3.8566075368889475`*^9, 3.8566075698249035`*^9}, {3.856607651791868*^9, 
  3.856607654624954*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"51d199e6-55dc-42e9-a509-d8d7ad9379b2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8566074640720587`*^9, 3.856607469819558*^9}, {
   3.8566075592658978`*^9, 3.8566075703177896`*^9}, 3.8566076550616865`*^9},
 CellLabel->
  "Out[192]=",ExpressionUUID->"e9b5f6de-450b-41ea-9cfb-9b58fadf4203"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "3"}], " ", "J"}], ",", "J", ",", "J", ",", "J"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8566074640720587`*^9, 3.856607469819558*^9}, {
   3.8566075592658978`*^9, 3.8566075703177896`*^9}, 3.85660765508239*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"90ab576b-821c-4df3-912f-849299652316"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hz", ".", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"J", "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["h", "2"]}], "+", 
         SuperscriptBox["J", "2"]}]]}], 
      RowBox[{"2", " ", "h"}]]}], ",", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"J", "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["h", "2"]}], "+", 
         SuperscriptBox["J", "2"]}]]}], 
      RowBox[{"2", " ", "h"}]]}], ",", "1"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8565004264487476`*^9, 3.8565004279756403`*^9}, 
   3.856500586331111*^9, {3.8565007100125885`*^9, 3.856500729589038*^9}},
 CellLabel->
  "In[1575]:=",ExpressionUUID->"69bbe7ff-917b-4f1e-aff6-8e84bd45cf36"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    SqrtBox[
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["h", "2"]}], "+", 
      SuperscriptBox["J", "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"2", " ", "h"}], "+", 
    FractionBox[
     RowBox[{"J", " ", 
      RowBox[{"(", 
       RowBox[{"J", "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["h", "2"]}], "+", 
          SuperscriptBox["J", "2"]}]]}], ")"}]}], 
     RowBox[{"2", " ", "h"}]]}], ",", 
   RowBox[{
    RowBox[{"2", " ", "h"}], "+", 
    FractionBox[
     RowBox[{"J", " ", 
      RowBox[{"(", 
       RowBox[{"J", "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["h", "2"]}], "+", 
          SuperscriptBox["J", "2"]}]]}], ")"}]}], 
     RowBox[{"2", " ", "h"}]]}], ",", 
   RowBox[{"-", 
    SqrtBox[
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["h", "2"]}], "+", 
      SuperscriptBox["J", "2"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8565007151679134`*^9, 3.856500730120845*^9}},
 CellLabel->
  "Out[1575]=",ExpressionUUID->"e3fccb90-52b3-4bfc-9afb-36b7a98a4d2f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8570267136025963`*^9, 
  3.8570267137660494`*^9}},ExpressionUUID->"a18c341f-7b17-47a2-99ba-\
871b43f59e4e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Sz", " ", "=", " ", 
    RowBox[{
     RowBox[{"KroneckerProduct", "[", 
      RowBox[{"Zz", ",", " ", "Id"}], "]"}], "+", " ", 
     RowBox[{"KroneckerProduct", "[", 
      RowBox[{"Id", ",", " ", "Zz"}], "]"}]}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"psi", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "a", "}"}], ",", 
     RowBox[{"{", "b", "}"}], ",", 
     RowBox[{"{", "c", "}"}], ",", 
     RowBox[{"{", "d", "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"t1", ",", "t2", ",", "p1", ",", "p2"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Sz", ".", "v12"}], "]"}]}], "Input",
 CellChangeTimes->{{3.857026731835989*^9, 3.857026754521586*^9}, {
  3.8570267891781044`*^9, 3.857026811511993*^9}, {3.8570268638485775`*^9, 
  3.857027021401573*^9}, {3.8570271224858313`*^9, 3.857027193396125*^9}, {
  3.857027331745879*^9, 3.8570273587754602`*^9}, {3.8570279698008776`*^9, 
  3.8570280291522074`*^9}, {3.857028203016079*^9, 3.8570283603124046`*^9}, {
  3.857028522386204*^9, 3.8570285395633335`*^9}, {3.857028729031538*^9, 
  3.857028743005509*^9}, {3.8570288281144266`*^9, 3.8570288301436863`*^9}, {
  3.8570290155902367`*^9, 3.8570290432266626`*^9}, {3.857029216742155*^9, 
  3.857029219108184*^9}, {3.8570293742870874`*^9, 3.857029484306058*^9}, {
  3.857029623227705*^9, 3.8570296261974916`*^9}, {3.8577021984396105`*^9, 
  3.8577022198834825`*^9}},
 CellLabel->
  "In[876]:=",ExpressionUUID->"effcfaca-47e9-4118-af8f-cd826c19951e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"2", " ", 
        RowBox[{"Cos", "[", 
         FractionBox["t1", "2"], "]"}], " ", 
        RowBox[{"Cos", "[", 
         FractionBox["t2", "2"], "]"}]}]},
      {"0"},
      {"0"},
      {
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
          RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["t1", "2"], "]"}], " ", 
        RowBox[{"Sin", "[", 
         FractionBox["t2", "2"], "]"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8570283223513107`*^9, 3.857028360744462*^9}, {
   3.8570285266558604`*^9, 3.8570285399215946`*^9}, 3.857028743402459*^9, 
   3.8570288306264725`*^9, {3.8570290231584477`*^9, 3.857029043589955*^9}, 
   3.8570292194622087`*^9, {3.857029374674632*^9, 3.857029421544754*^9}, {
   3.8570294520243025`*^9, 3.8570294847185106`*^9}, 3.857029626688846*^9, {
   3.857702216075797*^9, 3.8577022210028396`*^9}},
 CellLabel->
  "Out[879]//MatrixForm=",ExpressionUUID->"377c216f-6375-42b9-9c5c-\
d0cee88d18c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"t1", "=", " ", 
   RowBox[{"\[Pi]", "+", "t2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TrigReduce", "[", 
  RowBox[{
   RowBox[{"ConjugateTranspose", "[", "v12", "]"}], ".", "Sz", ".", "v12"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"TrigReduce", "[", "v12", "]"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8570283171979*^9, 3.8570283189607525`*^9}, {
   3.857030594560373*^9, 3.8570306414124804`*^9}, {3.8570308277321773`*^9, 
   3.8570308486790056`*^9}, {3.857030912788329*^9, 3.8570309874975214`*^9}, {
   3.857031158070756*^9, 3.8570313330104756`*^9}, {3.857101175215116*^9, 
   3.8571012704712*^9}, {3.857101396314986*^9, 3.857101409024454*^9}, {
   3.857112783382197*^9, 3.8571128014534225`*^9}, 3.8571132388906*^9, {
   3.857113535362306*^9, 3.857113557569629*^9}, {3.857113651712241*^9, 
   3.8571136568287077`*^9}, {3.857113867905258*^9, 3.8571138700345926`*^9}, {
   3.8571141019169884`*^9, 3.8571141505830445`*^9}},
 CellLabel->
  "In[433]:=",ExpressionUUID->"441f93cb-89c3-4cae-bd04-9fde4ce51b5c"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "p1"}], "+", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "p2"}]}]]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", " ", "t2"}], "]"}]}], ")"}]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.8571135578553095`*^9, 3.857113657238907*^9, 3.8571138705748177`*^9, {
   3.857113949130834*^9, 3.857113954457667*^9}, {3.8571141219576235`*^9, 
   3.857114151132534*^9}},
 CellLabel->
  "Out[434]=",ExpressionUUID->"2316b389-9225-4649-a446-1f65e83ba3bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     FractionBox["t2", "2"], "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     FractionBox[
      RowBox[{"\[Pi]", "+", "t2"}], "2"], "]"}], "2"]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "p1"}], "+", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "p2"}]}]], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     FractionBox["t2", "2"], "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{"\[Pi]", "+", "t2"}], "2"], "]"}], "2"]}]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.8571135578553095`*^9, 3.857113657238907*^9, 3.8571138705748177`*^9, {
   3.857113949130834*^9, 3.857113954457667*^9}, {3.8571141219576235`*^9, 
   3.857114139284363*^9}},
 CellLabel->
  "Out[431]=",ExpressionUUID->"aabd6b23-d78c-43a3-a53f-bf1d40920aa6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"Cos", "[", 
     FractionBox["t2", "2"], "]"}], " ", 
    RowBox[{"Cos", "[", 
     FractionBox[
      RowBox[{"\[Pi]", "+", "t2"}], "2"], "]"}]}], ",", "0", ",", "0", ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["t2", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{"\[Pi]", "+", "t2"}], "2"], "]"}]}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.8571135578553095`*^9, 3.857113657238907*^9, 3.8571138705748177`*^9, {
   3.857113949130834*^9, 3.857113954457667*^9}, 3.8571141219576235`*^9},
 CellLabel->
  "Out[428]=",ExpressionUUID->"72097645-2c96-4682-b1cc-8758df5c34e5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"Cos", "[", 
     FractionBox["t1", "2"], "]"}], " ", 
    RowBox[{"Cos", "[", 
     FractionBox["t2", "2"], "]"}]}], ",", "0", ",", "0", ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "p1"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "p2"}]}]], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["t1", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["t2", "2"], "]"}]}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.8571135578553095`*^9, 3.857113657238907*^9, 3.8571138705748177`*^9, {
   3.857113949130834*^9, 3.857113954457667*^9}},
 CellLabel->
  "Out[425]=",ExpressionUUID->"e688f49d-b24a-4db0-9de2-fbc5379702d6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "a", "}"}], ",", 
   RowBox[{"{", "b", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "a"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8570272814595823`*^9, 3.8570272889616537`*^9}, 
   3.857027322486989*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"c6bc2bda-c8ef-4826-88ff-72e66b1365a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Sz", " ", "=", " ", 
   RowBox[{
    RowBox[{"KroneckerProduct", "[", 
     RowBox[{"Zz", ",", "Id", ",", "Id", ",", "Id"}], "]"}], "+", " ", 
    RowBox[{"KroneckerProduct", "[", 
     RowBox[{"Id", ",", "Zz", ",", "Id", ",", "Id"}], "]"}], "+", " ", 
    RowBox[{"KroneckerProduct", "[", 
     RowBox[{"Id", ",", "Id", ",", "Zz", ",", "Id"}], "]"}], "+", " ", 
    RowBox[{"KroneckerProduct", "[", 
     RowBox[{"Id", ",", "Id", ",", "Id", ",", "Zz"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "t1", ",", " ", "t2", ",", " ", "t3", ",", " ", "t4", ",", " ", "p1", ",", 
   " ", "p2", ",", " ", "p3", ",", " ", "p4"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Cos", "[", 
       RowBox[{"t1", "/", "2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t1", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v2", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Cos", "[", 
       RowBox[{"t2", "/", "2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t2", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v3", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Cos", "[", 
       RowBox[{"t3", "/", "2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"\[ImaginaryI]", "*", "p3"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t3", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v4", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Cos", "[", 
       RowBox[{"t4", "/", "2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"\[ImaginaryI]", "*", "p4"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"t4", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v1234", " ", "=", " ", 
   RowBox[{"KroneckerProduct", "[", 
    RowBox[{"v1", ",", " ", "v2", ",", " ", "v3", ",", " ", "v4"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t1", " ", "=", " ", 
   RowBox[{"\[Pi]", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p1", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t2", " ", "=", " ", 
   RowBox[{"\[Pi]", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", " ", "=", " ", "\[Pi]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t3", " ", "=", " ", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p3", " ", "=", " ", 
   RowBox[{"\[Pi]", "/", "4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t4", " ", "=", " ", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p4", " ", "=", " ", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "4"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Sz", ".", "v1234"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"*", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sz", ".", "v1234"}], " ", "==", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"{", "0", "}"}]}], "}"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "t1", ",", "t2", ",", "t3", ",", "t4", ",", "p1", ",", "p2", ",", "p3", 
      ",", "p4"}], "}"}]}], "]"}], " ", "*"}]}], "Input",
 CellChangeTimes->{{3.857027276744714*^9, 3.8570272845846024`*^9}, {
   3.8576265125191154`*^9, 3.8576265934651327`*^9}, {3.8576977994189444`*^9, 
   3.857697831045662*^9}, {3.8576980155765095`*^9, 3.857698140898784*^9}, {
   3.8576981873939667`*^9, 3.857698191628944*^9}, 3.857698284485392*^9, {
   3.8576985493409095`*^9, 3.8576986805894375`*^9}, {3.8576995609035263`*^9, 
   3.857699609977181*^9}, {3.8576998997918863`*^9, 3.8576999288558826`*^9}, {
   3.85770011191302*^9, 3.857700150287966*^9}, {3.8577001863826656`*^9, 
   3.8577003746743207`*^9}, {3.857700405212014*^9, 3.8577004080455275`*^9}, {
   3.8577004561615252`*^9, 3.857700456346759*^9}, {3.8577005375895486`*^9, 
   3.857700580854536*^9}, {3.8577006185136933`*^9, 3.8577006569118223`*^9}, {
   3.8577006999773617`*^9, 3.8577007040118504`*^9}, {3.857701096015313*^9, 
   3.857701130970485*^9}, {3.8577012889248724`*^9, 3.8577013009948115`*^9}, {
   3.857701438258438*^9, 3.8577015264056635`*^9}, {3.8577056965634003`*^9, 
   3.857705826783449*^9}, {3.857716773633212*^9, 3.8577168072879257`*^9}},
 EmphasizeSyntaxErrors->True,
 CellLabel->"In[19]:=",ExpressionUUID->"1e85e834-3770-420e-9e6f-5a889146f980"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1"},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "4"]]}]},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "4"]]}]},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox["1", "2"]}]},
     {"0"},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox["1", "2"]}]},
     {
      FractionBox["1", "2"]},
     {"0"},
     {"0"},
     {
      FractionBox["1", "2"]},
     {"0"},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "4"]}]]}]},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "4"]}]]}]},
     {
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8576265329657564`*^9, {3.857626567407802*^9, 3.857626594071867*^9}, {
   3.857697802843831*^9, 3.857697831574703*^9}, {3.8576980302607913`*^9, 
   3.8576980458997803`*^9}, {3.857698128631513*^9, 3.857698141687063*^9}, 
   3.8576981924311857`*^9, 3.85769828547943*^9, {3.857698655911069*^9, 
   3.8576986812769074`*^9}, {3.857700025279419*^9, 3.857700031827297*^9}, {
   3.8577001151994495`*^9, 3.8577001509766293`*^9}, {3.8577001881232853`*^9, 
   3.8577002443106627`*^9}, {3.857700299515654*^9, 3.8577003752072763`*^9}, 
   3.857700408562691*^9, 3.857700456824604*^9, {3.8577005384532995`*^9, 
   3.8577005813165445`*^9}, 3.8577006659619055`*^9, {3.85770109104176*^9, 
   3.857701133197483*^9}, {3.8577012918764677`*^9, 3.8577013029261565`*^9}, 
   3.857701527105466*^9, 3.8577058280108585`*^9, {3.8577167842881327`*^9, 
   3.8577167867612953`*^9}, 3.858677356776453*^9},
 CellLabel->
  "Out[34]//MatrixForm=",ExpressionUUID->"75d1a3a6-f565-4154-8399-\
eaff291b94ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Magnetization", "[", 
    RowBox[{
    "t1_", ",", "t2_", ",", "t3_", ",", "t4_", ",", "p1_", ",", "p2_", ",", 
     "p3_", ",", "p4_"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Zz", ",", "Id", ",", "Id", ",", "Id"}], "]"}], "+", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Id", ",", "Zz", ",", "Id", ",", "Id"}], "]"}], "+", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Id", ",", "Id", ",", "Zz", ",", "Id"}], "]"}], "+", " ", 
      RowBox[{"KroneckerProduct", "[", 
       RowBox[{"Id", ",", "Id", ",", "Id", ",", "Zz"}], "]"}]}], ")"}], ".", 
    RowBox[{"KroneckerProduct", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Cos", "[", 
          RowBox[{"t1", "/", "2"}], "]"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"\[ImaginaryI]", "*", "p1"}], "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"t1", "/", "2"}], "]"}]}], "}"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Cos", "[", 
          RowBox[{"t2", "/", "2"}], "]"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"\[ImaginaryI]", "*", "p2"}], "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"t2", "/", "2"}], "]"}]}], "}"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Cos", "[", 
          RowBox[{"t3", "/", "2"}], "]"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"\[ImaginaryI]", "*", "p3"}], "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"t3", "/", "2"}], "]"}]}], "}"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Cos", "[", 
          RowBox[{"t4", "/", "2"}], "]"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"\[ImaginaryI]", "*", "p4"}], "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"t4", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m1", " ", "=", " ", 
   RowBox[{"Magnetization", "[", 
    RowBox[{"0", ",", "0", ",", "\[Pi]", ",", 
     RowBox[{"\[Pi]", "/", "2"}], ",", " ", "p1", ",", "p2", ",", "p3", ",", 
     "p4"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m2", " ", "=", " ", 
   RowBox[{"Magnetization", "[", 
    RowBox[{"0", ",", "0", ",", "\[Pi]", ",", 
     RowBox[{"\[Pi]", "/", "2"}], ",", " ", "p1", ",", "p2", ",", "p3", ",", 
     RowBox[{"p4", "+", "\[Pi]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"Simplify", "[", 
    RowBox[{"TrigReduce", "[", 
     RowBox[{"m1", " ", "+", " ", "m2"}], "]"}], "]"}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8577058324286394`*^9, 3.8577058676415195`*^9}, {
   3.8577058992472105`*^9, 3.8577059792838564`*^9}, {3.857706079261606*^9, 
   3.857706097128378*^9}, {3.8577061517705417`*^9, 3.857706162157854*^9}, {
   3.8577062483705907`*^9, 3.857706256375904*^9}, {3.857706834489377*^9, 
   3.8577068346512365`*^9}, {3.8577155682585382`*^9, 
   3.8577155793487825`*^9}, {3.857715654155208*^9, 3.8577156862940617`*^9}, {
   3.8577165905123634`*^9, 3.857716617629178*^9}, {3.857716686039647*^9, 
   3.8577166901271706`*^9}, {3.857716816845662*^9, 3.8577168444531183`*^9}, {
   3.8577910990791073`*^9, 3.857791112418475*^9}, {3.857791674260358*^9, 
   3.857791674380046*^9}, {3.857791812689951*^9, 3.8577918860741563`*^9}, {
   3.8577923257385287`*^9, 3.857792343031608*^9}, 3.8577923949199934`*^9, {
   3.8577925812560472`*^9, 3.8577926121551895`*^9}, {3.857792653844441*^9, 
   3.8577926756482315`*^9}, {3.857792731734901*^9, 3.8577927572391167`*^9}, {
   3.857792812832017*^9, 3.8577928259958057`*^9}, {3.8577929058515825`*^9, 
   3.85779294903153*^9}, {3.857793014023179*^9, 3.8577930899015265`*^9}, {
   3.8577944664967985`*^9, 3.857794469902135*^9}, {3.8577945530029664`*^9, 
   3.8577945798699317`*^9}, {3.8578040778793163`*^9, 
   3.8578041405272865`*^9}, {3.857804197931224*^9, 3.8578042068786006`*^9}, {
   3.8578043198098526`*^9, 3.8578045033702164`*^9}, {3.857804762251835*^9, 
   3.857804794374052*^9}, {3.857805033237251*^9, 3.857805037126972*^9}, {
   3.857805362032772*^9, 3.857805507130024*^9}, {3.857805917013147*^9, 
   3.8578059419096255`*^9}, {3.8578066227390995`*^9, 
   3.8578067175003204`*^9}, {3.857806815031006*^9, 3.857806851379876*^9}, {
   3.8578069586327696`*^9, 3.857806977282663*^9}, {3.8578071532559032`*^9, 
   3.8578072570678334`*^9}, {3.857807575723573*^9, 3.857807615186385*^9}, {
   3.8578076940034637`*^9, 3.8578077280926833`*^9}, {3.857807797725732*^9, 
   3.8578078525940733`*^9}, {3.8578080019006047`*^9, 
   3.8578080074801235`*^9}, {3.8578080383321843`*^9, 3.857808086560664*^9}, {
   3.8578082659574084`*^9, 3.8578083823420386`*^9}, {3.857808799933301*^9, 
   3.8578088317024884`*^9}, 3.8578089647737317`*^9, 3.857809413565051*^9, {
   3.8578094780196095`*^9, 3.857809483859914*^9}, {3.8578096406300707`*^9, 
   3.857809642769438*^9}, {3.8578097230170956`*^9, 3.85780974077855*^9}, {
   3.8578097726220245`*^9, 3.8578098022564883`*^9}, {3.857810013614379*^9, 
   3.857810037260932*^9}, {3.8578102715473733`*^9, 3.857810279037314*^9}, {
   3.857810334202773*^9, 3.8578104042693815`*^9}, {3.8578104566791677`*^9, 
   3.8578104855792093`*^9}, {3.857810645239588*^9, 3.8578107105514956`*^9}, {
   3.8578111180848417`*^9, 3.8578111651878166`*^9}, {3.8580432211991878`*^9, 
   3.858043242411997*^9}, {3.8580433030846224`*^9, 3.85804331275727*^9}, {
   3.8580433731907625`*^9, 3.8580433777569427`*^9}, {3.858043438154172*^9, 
   3.8580436296625967`*^9}, {3.8580444795858207`*^9, 3.858044512000292*^9}, {
   3.858044551922512*^9, 3.8580445850661793`*^9}, {3.8580446273336697`*^9, 
   3.8580446359793653`*^9}, {3.8580447867406693`*^9, 
   3.8580448564331303`*^9}, {3.8586773795893173`*^9, 3.8586774182456665`*^9}, 
   3.8587433493368635`*^9},ExpressionUUID->"9afa03ff-a05d-4c6b-9c60-\
053ec4703697"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2"},
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"3", "/", "4"}]]}]},
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "/", "4"}]]}]},
     {"0"},
     {
      RowBox[{"-", "1"}]},
     {"0"},
     {"0"},
     {
      RowBox[{"-", "1"}]},
     {"1"},
     {"0"},
     {"0"},
     {"1"},
     {"0"},
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"3", "/", "4"}]]}]},
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "/", "4"}]]}]},
     {
      RowBox[{"-", "2"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8578102793609285`*^9, {3.8578103352081995`*^9, 3.857810404873489*^9}, {
   3.857810460636876*^9, 3.857810486193731*^9}, 3.8578106460300937`*^9, {
   3.857810683678568*^9, 3.8578107114673233`*^9}, {3.857811119488447*^9, 
   3.8578111658098216`*^9}, {3.858043236983997*^9, 3.8580432431645727`*^9}, 
   3.8580433154028687`*^9, {3.858043374916716*^9, 3.8580433794708323`*^9}, {
   3.8580434390116005`*^9, 3.858043632208496*^9}, {3.8580444880604553`*^9, 
   3.8580445128292394`*^9}, {3.858044574781304*^9, 3.858044585805381*^9}, 
   3.8580446366387515`*^9, {3.8580447949136844`*^9, 3.8580448108536096`*^9}, 
   3.8580448569938245`*^9, {3.858677393553777*^9, 3.8586774186477804`*^9}},
 CellLabel->
  "Out[50]//MatrixForm=",ExpressionUUID->"ffd45fc7-9642-4a4b-a17e-\
86ea9d0edb15"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Input",
 CellChangeTimes->{3.857810276390148*^9},
 CellLabel->
  "In[1781]:=",ExpressionUUID->"f1573804-76b2-433c-83fc-09fc3e17ee2f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8578102764542985`*^9},
 CellLabel->
  "Out[1781]=",ExpressionUUID->"5c81a4d9-80c4-4363-a054-a99dafecd1f3"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8578094107284207`*^9, 
  3.857809416090371*^9}},ExpressionUUID->"06716d40-c6d6-4508-b119-\
b6b55b2ab149"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8578090611812925`*^9, 
  3.8578090661874275`*^9}},ExpressionUUID->"54e06469-c27c-4f10-89e2-\
d380c104279e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"p1", ",", "p2", ",", "t1", ",", "t2"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "v12", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
        RowBox[{
         SubsuperscriptBox["\[Integral]", "0", 
          RowBox[{"2", "\[Pi]"}]], 
         RowBox[{
          SubsuperscriptBox["\[Integral]", "0", 
           RowBox[{"2", "\[Pi]"}]], " ", 
          RowBox[{
           RowBox[{"Psi", "[", 
            RowBox[{"t1", ",", " ", "t2", ",", " ", "p1", ",", " ", "p2"}], 
            "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox["t1", "2"], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox["t2", "2"], "]"}], " ", 
           RowBox[{"\[DifferentialD]", "p1"}], " ", 
           RowBox[{"\[DifferentialD]", "p2"}], 
           RowBox[{"\[DifferentialD]", "t1"}], 
           RowBox[{"\[DifferentialD]", "t2"}]}]}]}]}]}], ",", " ", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
        RowBox[{
         SubsuperscriptBox["\[Integral]", "0", 
          RowBox[{"2", "\[Pi]"}]], 
         RowBox[{
          SubsuperscriptBox["\[Integral]", "0", 
           RowBox[{"2", "\[Pi]"}]], " ", 
          RowBox[{
           RowBox[{"Psi", "[", 
            RowBox[{"t1", ",", " ", "t2", ",", " ", "p1", ",", " ", "p2"}], 
            "]"}], 
           RowBox[{"Sin", "[", 
            FractionBox["t1", "2"], "]"}], 
           RowBox[{"Sin", "[", 
            FractionBox["t2", "2"], "]"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"(", 
              RowBox[{"p1", "+", "p2"}], ")"}]}]], 
           RowBox[{"\[DifferentialD]", "p1"}], " ", 
           RowBox[{"\[DifferentialD]", "p2"}], 
           RowBox[{"\[DifferentialD]", "t1"}], 
           RowBox[{"\[DifferentialD]", "t2"}]}]}]}]}]}]}], "}"}], " ", "==", 
    " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", " ", 
   RowBox[{"Psi", "[", 
    RowBox[{"t1_", ",", " ", "t2_", ",", " ", "p1_", ",", " ", "p2_"}], 
    "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8578076738941216`*^9, 3.8578076790252323`*^9}, {
   3.858743355822775*^9, 3.858743375127263*^9}, {3.8587434913723373`*^9, 
   3.8587435755493803`*^9}, {3.8587436059864197`*^9, 3.858743607229975*^9}, {
   3.858752199914771*^9, 3.858752437574489*^9}, 3.8587561707507544`*^9, {
   3.858756239831239*^9, 3.858756249053401*^9}, {3.858856802070578*^9, 
   3.858856920087545*^9}},ExpressionUUID->"bea21f9f-2c6d-47a5-9bb1-\
3a5c8058ce10"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "ivar", 
   "\"\\!\\(\\*RowBox[{RowBox[{\\\"Sin\\\", \\\"[\\\", \
FractionBox[\\\"t1_\\\", \\\"2\\\"], \\\"]\\\"}], \\\" \\\", \
RowBox[{\\\"Sin\\\", \\\"[\\\", FractionBox[\\\"t2_\\\", \\\"2\\\"], \
\\\"]\\\"}]}]\\) is not a valid variable.\"", 2, 102, 6, 26616333560332611024,
    "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.858856880147543*^9},
 CellLabel->
  "During evaluation of \
In[100]:=",ExpressionUUID->"d89a9da3-bb9d-47c1-81d8-69f5f11c6cfb"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"False", ",", 
   RowBox[{
    RowBox[{"Sin", "[", 
     FractionBox["t1_", "2"], "]"}], " ", 
    RowBox[{"Sin", "[", 
     FractionBox["t2_", "2"], "]"}]}]}], "]"}]], "Output",
 CellChangeTimes->{{3.858743559489153*^9, 3.8587435776671104`*^9}, 
   3.8587436094526067`*^9, {3.85875236928253*^9, 3.858752373057268*^9}, 
   3.858752442474519*^9, 3.8587561722721806`*^9, {3.8587562422223773`*^9, 
   3.858756253294582*^9}, 3.858856834528878*^9, {3.858856870820349*^9, 
   3.8588568802240458`*^9}},
 CellLabel->
  "Out[102]=",ExpressionUUID->"77272ad0-28cf-40dc-a1a4-a7895f01cba1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "[", "t1", "]"}], " ", 
  RowBox[{"Sin", "[", "t2", "]"}]}]], "Output",
 CellChangeTimes->{{3.858743559489153*^9, 3.8587435776671104`*^9}, 
   3.8587436094526067`*^9, {3.85875236928253*^9, 3.858752373057268*^9}, 
   3.858752442474519*^9, 3.8587561722721806`*^9, {3.8587562422223773`*^9, 
   3.858756253294582*^9}, 3.858856834528878*^9, {3.858856870820349*^9, 
   3.8588568802385883`*^9}},
 CellLabel->
  "Out[103]=",ExpressionUUID->"e640c5c1-661c-47a0-9fc9-24347779f893"],

Cell[BoxData[
 FractionBox[
  RowBox[{"64", " ", 
   SuperscriptBox["\[Pi]", "2"]}], "9"]], "Output",
 CellChangeTimes->{{3.858743559489153*^9, 3.8587435776671104`*^9}, 
   3.8587436094526067`*^9, {3.85875236928253*^9, 3.858752373057268*^9}, 
   3.858752442474519*^9, 3.8587561722721806`*^9, {3.8587562422223773`*^9, 
   3.858756253294582*^9}, 3.858856834528878*^9, {3.858856870820349*^9, 
   3.8588568807101727`*^9}},
 CellLabel->
  "Out[104]=",ExpressionUUID->"c6757759-4124-4ea4-96c6-8fc3391babe9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Psi", "[", 
    RowBox[{"t1_", ",", " ", "t2_", ",", " ", "p1_", ",", " ", "p2_"}], "]"}],
    " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"t1", "-", "t2"}], ")"}], "^", "3"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"2", "\[Pi]"}]], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      RowBox[{"2", "\[Pi]"}]], " ", 
     RowBox[{
      RowBox[{"Psi", "[", 
       RowBox[{"t1", ",", " ", "t2", ",", " ", "p1", ",", " ", "p2"}], "]"}], 
      RowBox[{"Sin", "[", 
       FractionBox["t1", "2"], "]"}], 
      RowBox[{"Sin", "[", 
       FractionBox["t2", "2"], "]"}], "  ", 
      RowBox[{"\[DifferentialD]", "p1"}], " ", 
      RowBox[{"\[DifferentialD]", "p2"}], 
      RowBox[{"\[DifferentialD]", "t1"}], 
      RowBox[{"\[DifferentialD]", "t2"}]}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TrigReduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"t1", "/", "2"}], "]"}], 
     RowBox[{"Cos", "[", 
      RowBox[{"t2", "/", "2"}], "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"t1", "/", "2"}], "]"}], 
     RowBox[{"Sin", "[", 
      RowBox[{"t2", "/", "2"}], "]"}]}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8588569166353583`*^9, 3.8588570150781565`*^9}, {
   3.858857058318695*^9, 3.858857120077346*^9}, {3.8588572222876015`*^9, 
   3.8588573263345547`*^9}, {3.858857368724248*^9, 3.8588574111968765`*^9}, {
   3.858909396333215*^9, 3.8589094411016226`*^9}, 3.8589152746483335`*^9, {
   3.8589155151487803`*^9, 3.8589155233446765`*^9}, {3.858915805922142*^9, 
   3.858915905610962*^9}, {3.8589160209621196`*^9, 3.858916042596285*^9}, {
   3.858916584572175*^9, 3.8589165894210835`*^9}, {3.858916649179349*^9, 
   3.8589167007907305`*^9}, {3.858916910593299*^9, 3.858916970510762*^9}, {
   3.8589171954361963`*^9, 3.858917196425426*^9}, {3.858917297672481*^9, 
   3.8589173038563557`*^9}, {3.858917334290047*^9, 3.858917386910165*^9}, {
   3.858917485005831*^9, 3.8589175564446297`*^9}, {3.8589176191430097`*^9, 
   3.8589176346275883`*^9}, {3.8589177845263705`*^9, 
   3.8589177882415767`*^9}, {3.8589182812751803`*^9, 3.858918286104989*^9}, {
   3.85891833581828*^9, 3.858918338680892*^9}},
 CellLabel->
  "In[330]:=",ExpressionUUID->"b1c75bcf-c7a6-427b-980e-fd4f191d2cb1"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8588569136827316`*^9, 3.8588570159959726`*^9}, {
   3.858857059733323*^9, 3.858857122172325*^9}, {3.8588572236947045`*^9, 
   3.8588572369210987`*^9}, {3.8588572699254427`*^9, 
   3.8588572760321584`*^9}, {3.8588573073661346`*^9, 
   3.8588573289660726`*^9}, {3.858857374365402*^9, 3.8588574134841533`*^9}, 
   3.858909399878476*^9, {3.8589094332498994`*^9, 3.858909442285513*^9}, 
   3.8589152760329456`*^9, 3.8589155321553984`*^9, {3.8589158109733076`*^9, 
   3.8589158764233327`*^9}, 3.8589159067036405`*^9, {3.858916035166565*^9, 
   3.858916043723117*^9}, 3.8589165907602882`*^9, {3.858916671251338*^9, 
   3.858916704370719*^9}, {3.858916920613432*^9, 3.858916971149939*^9}, 
   3.8589171974436502`*^9, {3.858917299713328*^9, 3.8589173048822308`*^9}, {
   3.8589173379610434`*^9, 3.858917384097027*^9}, 3.858917485691779*^9, {
   3.8589175167919817`*^9, 3.8589175569460077`*^9}, {3.858917622040634*^9, 
   3.858917635483049*^9}, 3.8589177897175727`*^9, 3.8589183421893454`*^9},
 CellLabel->
  "Out[331]=",ExpressionUUID->"56e12f77-15b4-4ba3-9d22-13365770a12b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"x", "/", "2"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8589095060898*^9, 3.8589095978104205`*^9}, {
  3.8589096464360943`*^9, 3.8589096488640537`*^9}, {3.8589096888718834`*^9, 
  3.8589096930739994`*^9}, {3.8589159235516434`*^9, 3.8589159599618397`*^9}, {
  3.858916556855915*^9, 3.8589165679964633`*^9}, {3.858916878165442*^9, 
  3.8589168881562223`*^9}, {3.8589172124003067`*^9, 3.858917226849635*^9}, {
  3.8589174929407997`*^9, 3.858917497694191*^9}},
 CellLabel->
  "In[301]:=",ExpressionUUID->"0c586eb8-e4f3-4c6f-a433-7f913b4ff28c"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwd0gk01tkbB3Bb7+++mWZUQoRCOCEtTDWp50mWoimUlEiRZRRKqGRppc3E
q0wrqSxFIlmKZCqlyLG8ZN+ylHAj9Ib43/nfc+55zud77n3OPec+85x9bFwl
xMTEbrL9X5V8PrXso+GB1RL/r7tXz/9csFIlehOk+6OWSjTAaLr+njqBE5wa
WzajTrAJOmU9RNkCH7DzjUjPYnm92akXCYJQkP5T7c4tllc7CbRuCi5C9DKV
+2dYbrNvdv0VQRwY6l7rMGN51KBDZozgIbS03GrdGBUHK4ssphofLIS05GJj
h/3psD9w4+7M/cVQb7/OYal7Lnjluv4toV4O8WrxITMVCkH4aT0/yVkIZbNG
/ond8ArO6Y+IZW+vhSv6j4r1DIrhgE7x5cKERrC1PmaU5lEKoy5705q8W0HW
Z2r5OywH52dbrSLd2iFTS1ORzq8ElwFhYeGZDmh5fCaEpy+EC4tyfBLDusBY
JmC7jUwNSBTmLDsV+Ak8b/cVfmj/ANMXWJa1XOmBoNl+hVE1dbAuzvjOV0Ev
TKrovdxyuwHkaalZaE4/9K5PcvstogmuvXkqLvnXV/iYSGUEbi1gpLxmcu6e
AfhFQclb70Ir6LTKdAT7DcJE6o1Pn33b4EHyDI8s32+wVvd1XZVpOwQ1O1bp
hA2BPZ35xWz+RzhgtNwy9tIwWLjvfm0y9hFG40ycv0SOgJ1FwOG2Zx1Qvv/a
rkO3v4P47ePm+uc7YYW52kRTvAh6xj3f2ph2wVvTFcl44wcoiyu89RrpgoSM
qyvaU0ahZDy7dlt6N8xS1/XceW8MTqyz/1ht9wkqxcmJ2fnjoBAUFhvL+wxZ
5GBi+dufsE+vOsIg5TPozpLxdC6agJhCc/0/V/cA/XtEdmnNJOTamLQl1fSA
eni4vo+nGA4fV/8qtvMLtNs31Bt3i6G7n3KIcuMXWNdZ9SPLWxwLLKftCXDs
hcO+rh5yfeJ4xq5PNF7WCxuzr1vIBUigtCK5qGrcB/3jnkGSIxKoWbl41YzE
Poj/cPyx90FJ1NDJSG0R64dRj1W7joxJorqCSGHFjn5Q/hm140CgFM7pzXxY
ntQPXebn3xGpKThWzrVvGOyHl5qloHJ+CpImg7N5Syh4kkSpeXweNvqk/iLh
TqFE4kzEWmkehi1JJ0Jm3Z9/yblN4+Eu8Uj/BA8KdEBPO2U6D1UahfFmnhT8
GrIsDRV5WPFc2uSEF4XgtCLBeh0ervEWpTQfpBC5pXOu75883FJy96vOMQo5
tzRWvYzi4ToHtwvy/1DQmDQ5+m80DzPSshSeMkc6uj55fpmHC96d1HK4QsFD
MdEw/yoPZ28SlMZepaB4SWthVjwPT8cvMVC5QSEofIFqUgYPtWzsDk2Jp2Ds
vUj8fAUPj53emO9/n0JaqRWcreLh3T3PokkKBSWdA8Hh1Tx0t9/Zd415qDvj
x8k6Hi4M0NMqSKWQsHvpYFAbDztt/n08kUaB2P7+0XuAh9sXvDf0yKRQttKo
yGY6h3/orytszKNwLtd/zGwmhy9dtMwd8ymYGz5cvHIWh3Z2jVuamAsXqsWq
z+ZQWPdcqvEZhcx55NDQXA7LTZZnVz2ncIUTascs4jDSbcPO1JcUXKr2Xqjb
xOFet43ZEiUU5lolvHhvzeFRU1tZP+bG0mbRv5s5fGAuEnUwb31t7XrfjsNl
Y9Jbi0oprHuybPVRJw4P7FvpdKyMwsI4ya9zfDjUqLZIbamgIPK8vnnX3xzS
19M019ZSuBh4hwuN5HBq23DCA2bNcyl5NwUcPqwtiJGvo2B7L0+9IYbDpMEv
7z4zP+pu+GYbx2G4Q2hweAOFfXvmXLJMZ/1ufecnN1Nodbwp/L2Sw/w0ucfB
HRQOeSWcsRVymJCdvqGG+dfgB0Z+NRz6fx+yXdhJYdWNZ3cz6jnM/u7/tJH5
Wn2Tn+5HDg0t9UuWdFPYYqcyS22IQymTJVNffaZQbBVnO02OYF/15aHAfja/
rzoLOAWCuuNbe/KZpy3X1ZZQJOiuoe4ywWyj+mR0RJlg/9HaplBKoaGvMq51
PsGeJ9e/B32l0H+O15NpSFBkmZbnNMjmb2LD5rRlBC8npbRdZV7qG52fvIKg
Yffdc1XMh7fPvXhzFcGmiHBX028UJLT/MAg3JXhi7fBq9SEKs4q8QuxtCXJf
skPfDFPIXf64e4sdQe2BX6p/MNunjlpt2k4wLNH6gc4IhdjocHUTR4Lpsne7
Ipi1neOL9VwJvp63LWjDdwpGk8IZ4v4Etzo6LH0kotDsqxQ0FkDwm7xZTiPz
8a7dncOHCe7/fWYB7weF1+/7c3qCCKr9ZrtlO/OmG8RReIqgbIrrHRGz8wqj
pKRLBEMzDEpUxyj81fd+uDGGoPyltmAz5v3xTiYzrhLslbx+aR9zKP9kW9BN
go5Ji/qzmW/UvVWySST4073K2mScwp2IHZ7hyQT3TK3QcGO+v6YvN/8+O/+8
ekc485N7Mlu1HhKc1zgw/Ia55ohd5HgOe0+nS/2anxSa9D43L37K7kuffb+T
uaMtUM89n+Cz8HSNo8zf1se+qygkWOAgNZnBLKPYKZX0lmDqrAwXhQkK8mUB
mxtLCBr41wcsYlY5QW5PL2P/ryvRb86s16MDQZUEFRosiD+zxVPfI9YNBEf2
Z/W+Ybb2lioOayLoml6k2sC8TS1GLr+FoDVXkd3H7H7uSaZmB8Hx6A8y0ycp
eK+2lHDoIrhdubJqHnPAYKNV1CeCXq6vRxczn7IX6x/rJZj845qfFfP5XwVG
iynBpRmBb3YyC16on3cbILhqwiZkH3P8AnPtimGC66165cOYk5trA3giggG1
qaNRzOkCz6KVowSPjO9Zc5O5YDTCOXGCoBTkjWYwF6WpZjSI8TFEtM0rj7nU
OWNSRpKPj072rX3FLJRbu9FsCh9PZR0OKWVueCe8cZTj4wfX0TlC5vYQty/p
fD4e9/FVbWDuWSJa0SXNx63prafbmAe6zp5R+pWPqnxTq25m0TWlD1YyfLzl
GBfSyzy58cH8sBl8jLlEZQaYeZLglyfLx6x/DLlh5mk55S++yvExZfOB3SJm
2b3O0zVn83Fu7m3VMWYl1SGnHUp8fJzzds1PZrWq02mRynycNO96M8G8IFz+
Z5EqH6N3izImmRevvGc5No+PY5P/LQr/AyMj2lw=
       "]]},
     Annotation[#, "Charting`Private`Tag$119753#1"]& ]}, {}},
  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->
   NCache[{{0, Pi}, {0., 0.9999999999999994}}, {{0, 3.141592653589793}, {0., 
     0.9999999999999994}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8589174981486626`*^9},
 CellLabel->
  "Out[301]=",ExpressionUUID->"e91e8dc8-5115-4594-b30b-a4272d65df16"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"x", "-", "y"}], "]"}], ",", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[Pi]", "-", "x", "+", "y"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.858917246133839*^9, 3.8589172470358963`*^9}, {
  3.858917279357131*^9, 3.8589172797207365`*^9}, {3.858917914043247*^9, 
  3.85891793597808*^9}, {3.858918057096264*^9, 3.8589181009676323`*^9}, {
  3.8589181843364987`*^9, 3.8589182209069743`*^9}},
 CellLabel->
  "In[329]:=",ExpressionUUID->"bdcfb197-1eb1-4520-9422-9358c5811aca"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx1nXm81tP2xzuPjsolQ8aLUrl+GXNl5vZ9UAnluheJmyFDlDljhK4hyUW4
xjJklq6ETMVTKRxCaTwUzXXqVKeTo9Th/M73+a735/vs9cg/z+t87NZ3789e
e+21p7VaXnj1Py/JNGjQYHzTBg22qP/t9M0jr53a/MH2/Daw/4bUfjFnrw+n
ROAnPbL4uSG3Tom63DtrWYsP5wrvc/Hl246f9EPUpvNLo2cPXiL8qKoDP3p+
3aJoRJdzr27xYaXwLSbudvKnDSuix9vc//g769YKn9D6hrvHzaiMZo+49IbZ
g2uEH3z7eauHHrIm2vXADmdsavmr8D3r4v/WRGeP2qtdiw9rhW/fsrb1sPry
Xz/5+6CWbRpkwWfs02BVLH9V+RU3v7OuRHij1mfMj+uzze4/XNoxt4XwZ498
6Mbh9fU/sMdJZ80eXCr84DOfmDChvr1dn3m/U+9ujdLyPe4+5b/1/Fz9418O
39SySVr+lNavn9r8WfELr8Znjr/5hX94Bj/Z+Idn8MuNf3gGh394Bod/eAaH
f3gGh394Bod/eAaHf3gGh394Bod/eAaHf3hWfYx/eAa/w/iHZ/gz/RTP4MZn
jr/5hX94duXFMzj8wzM4/MMzOPzDMzj8wzM4/MMzOPzDM/gOxj88g8M/PIPD
PzyDwz88g7c0/uEZnqy94hnc+BHP4PDP3/zCPzy78uLZyRfPrj7iGRz+4Rkc
/uEZHP7hGRz+4Rkc/uEZfJbxD8/gWxn/8Aw+1PiHZ/iw+otncPiHZ3D4Ry44
/PM3v/APz668eHbyxbOrj3h29RfP4PAPz+BtjX94Bod/eAZvZvzDM/hs4x+e
wdF/eKbdVh/xDA7/8AwO//AMDv98Dxz++Ztf+IdnV148O/ni2dVHPLv6i2fw
8cY/PIPDPzyDwz88g8M/PINjf+CZ9tn4Es/g8A/P4PAPz+Dwr/42HP6pBzj8
8ze/8A/Prrx4dvLFs6uPeAbPGP/wDJ4z/uEZ/CDjH57B4R+ewbE/8Ew7rLx4
Bod/eAaHf3gGh394Bod/eAaHf+oHDv/8zS/8w7MrL56dfPEMfoTxD8+Sb/zD
Mzj8wzM4/MOz41M8U1/zf8QzOPzDMzj8wzM4/MMzOPzDMzj8wzM4/FNvcPjn
b37hH55defEMfpnxD8/ghxv/8AxeNyHhH57BPzH+4Rkc+wPP1MvsiXgGh394
Bod/eAaHf3gGh394Bod/eAaHf3gGh3/aAw7//M0v/MMz+PHGPzyDX2z8wzP4
ocY/PIP/bvzDMzj2H575vs2P4hkc/uEZ3OyPeAaHf3gGt/4Vz+BWH/EMbvZT
PIPbeBfP4Kaf4hnc+MzxN7/wD8+uvHgGh394Bod/eAZn/oVnvmP+tngGh394
Bod/eAaHf3gGh394Bod/eAY3eyiewc1+imdwG+/iGdz4Ec/g8M/fkm//wbMr
L56dfPEMfozxD8/Is/WjeAaHf3gGh394Bjd/XjyDm/8jnsHhH57BbX4Rz+Dw
D8/gZj/FM7jpm3gGh394AYd//uYX/uHZlRfP4H2Nf3jm39l+iHgGh394Vnnj
H57BbX0knuUHGf/wDA7/8AwO//AMDv/wDG7zkXgGN/spnsHhH57B4R++wOGf
v/mFf3gG72n8wzP/3/aXPoFncNsPEc/gtn4Xz+C23hTP4Og/PINjf+AZHPsD
z+DwD8/g2B94Bsf+wzM48y88g9t4F8/gpp/iGdz4zPE3v/C/YeXMi3t3Wx/t
tux/H7X6cJz2AY686u0THli1UTh+4C1VD7YafffvwtkHo/yXd+6535zBMyWH
8uDIOffDMQNWbFOSBUcO5ZdN/vy7d9YtkBzKgyPnto2tr+lfnhHOuoDyvb8c
MGRTywrJoTw4cp455pHzm77cUDhyKH/jsj1ebdmmSn4a5cGR83H/Bn9//pot
hbNOpPx7vX+9p2NuneRQHhw5P358VftDjm0snPrAO/2GX4cccPx55IAjHzn0
G3pLf4AjHzng1B859Bt+KXLAkU8/gSOf8vQbcigPjhz6CRw5lKffGKeUB0cO
/QTOOKU8/YYcyoMjh34CRw7l6R/sNuXBkUM/gWO3KU8/UB/KgyOHfgKnPvQX
v9gB7C1497cmrX7n9XHqd/CH3P4/+BmPHNVn7OupXP6dlc8hH/z6pLzk80t9
+JvvXGP1QT7yrJ76Hvj1rj7IsXrKHvLvTH60/7ibbt/nw5H6pT77nHryRzuP
apwFRz5/8/9pF3/z6/dbqNf+T8+747Yp6bkDeO85s5+OcfqReY/yjB/wy6w8
chhPlGfeAac8cpg/Kc+4Aqc+yGGcUZ75C5zyyGEepjzjDZzyyGH8UZ55EJzy
yGE+pzzjEJzyyGFcUp75FJzyyMEvoDzjE5zyyGG8Up55GZzyyMG/oDz6qXnh
iDcbnHLoauk55ZGD3qBfJkf+AHZiPycfHDnId3KkZ+gj8vkuemdyZM/BKc93
nRzJRx9NP+XXgSMH+egj5dE/cMojR36BlUf/wCmPHOmjlUf/wCmPHPkXVh79
A6c8cqTXVh79A6c8cuSnWHn0D5zyyEEfKY8+gVMeOegj5dEzcMojB/2iPPoE
bvomOeiXr4/850TP5VdTnu8in/LIQZ/AfXnmBfSN8uDo/2tdN50yqdFG2XXv
91J+DxuPK76dvd/yZ39TefxY8PsaHHfKu+umSc5O+37fcMuhDbKf3X32opZt
5gs/rE/nn5/olcl2vm+H4b27LRN+5hvvLdr3kIbZrx746rzRd68WfkPl3tPH
/laa3eek4x/sX15dtE9Lu9W/Bz46sWtZo+xlXzW/8vlrfikqDx/wCU67rb05
2kP78DdoD+0Dpz20D5z20D5w2kP7wKk37QBXvxr/r6579OMTxozU/Mv/bzZi
xGf/HJPO6+jJ9NfzuOwS/25BIkflkWPyUz2z/29yVA459l3Vh39n8qWf2LOJ
tj8Jjl1s+9Vuo0+u17cvHux9TLfpm6KmG7bdvXzw5KL1FPaYcyjsoNZxprdb
bd/pz7f0qZMcv47D/rFfCo4dPcjqg5w/lW5sXNuyvGhdRrv8vRStB60+L5/0
cO03A0qyyNnBrQexl/ADjt2FH+Q0bnT4xI65RUXrO9o1y93TAG9u9Zk8uG7l
BV22kBy/rsS+wg84dhp+kDP4T2vueGDViqJ1Iu2a5e4tgFOfJV9d+UP1LqWS
08ytT7Gj1Accu059kLNl4xnPrthmbdF6k3b5c3zwFlaf0m3mfnn3oi0lx69z
0V/Om8C1L2j1QU6nwW/d1vTln1UfjV/D4R+9Qf5Ed34NbvqQQ78Hbf1Aj0OO
3VC0XkavqSc4888BVk/qgxzqiXzGpV/nIn+8O+cFt37JoffIaevW3eg79QTX
vqnVk3GOPrJ/Ba5zIrPnfJdx7NfXfHeiOycFh2fGCXL8uh59pD7gOjex+iCH
cezX6bRrvDs3BIdPxgly2rr9AfSR/W1w7IGNO8lhHPv1Pu0a787RwKkP4wQ5
fp8BvaM+4NgD6oMcxrHfN6BdOXeuBG56kmNcIcfvV6Bf1Acce2B2QHIYx37/
gXb5cxZwG185xhVy2PdAPuOPfQ/Kg/Nd9JL6+/MFcHhgvCGnrdtvYdxgV+ET
HLuKf4I/4O9zou/MU/iZ+FN+n1P3D83e4ldRnvmadqG/yMc/wy/z+5+6X2fy
8c8oj73FXqCPyKc++HcHu31R7ATzF34e5ZHP+Ee/4JP64Cf6/VLGPfMR/iLl
mY8Yz/Qn8qkP/mZbt1/KOKb++J2U9/uxbv6VvdX9FtM39AN9wU4yzhnHzDu0
i/Ls6yIHPfL7t+gd9hm9oTzfZTwzXvku7aV8W/dd9Mvv0+o+g30XfaK8vwel
fV23vkC/tnf7t+gj8tEnyvt7PtrvNfnUB/3y+7roI/2FPlEe+4B+o+/YZ+qD
fu3g9nvRR+SjT5RHPvqNvmNvqQ960cztA6NH2FX0hvLYVfQbfaf+1If+p/7o
B/qCfPSD8tQf+4x/hH0Ap5/bunUE+sX6GvuMn4IegtOfBzn/X+tut97Bv6A+
4PRbW+e3a53u1in4BdQHnP7x/jby/fqC+Rw54PTDQc5PRn4Lty5gnkQOOP3P
uKY/wBlHyKd/sDPg9DNy6A9w6bPNo86P1Xfhm3ENrn0D5wdiN6gn34Vv9BNc
+wzOf0P+Qc5fhW/kgDMevd+FfO9nwjfjEZxx5/0l5Hv/EL6RA874oj70E/IP
cP4M5ZGPnWV/4qWmW7117q4rxQvjboa7P4w/hR7Sv/QL+oCdZd7jvjE49p7v
wiPjlO9iT5nHkAOOXUcOPDJOkYPdZF7i/jk49vsVkwOPjFPWv9qvtPmH+oBj
p6kPvDNOkUN7mAe43wWOnzBvi/K29XI0DzJOWX/RHux9Q5MDzryPHHhhnHLf
j/Zg16kPOPM4cuCFfqc+zJvoCfcWwJmvkQMv6B3+Erygp8gBZ15GDvYRPUIO
vKB33OMCZ/79weTAL3rEegFe0DvkgDPPIgd+0SPkwAt6x70acObTcpMDv+gR
chq4/xr12LHdPq8MPzY7fOwxLQreUw3smFkU359J8PSdz6dvXNs1vr9U9cGU
Kwrfn3y36v6F8f2xpHz6LqLLj6U3xHr+RYcz7ym8r39tj69ej/U5kZPeI+9d
0b10WMF6J6xtlcmvLSr/7uCnHi68D4r85LvpPcVTrD5zf9+uX+H9uWlW/6Q+
6b2uCdbehtcNuqDwvtGdxk9Sz/QejP8PXm9Pyuf4m9+Q/7nC4R+eweEfnsHh
H57B4R+eweEHnsHhE55DvagSz748PHv58Ax+SlCfUuHwD8/g8A/P4PAf8jw3
yiXlHc9zHf9zhcN/yPPcKNT/SuHwH/I8V/yHPM8V/yHPc8VPyPPcyOtzOP6q
HM9p+ZDnVH7I81zxH/I8V/yHPM8V/xqBxtPUpLx4Bg/5nysc/vmb31D/K4XD
PzyDh/anRvh3Qf1/FQ7/8AwOP/AM7vU5tHNV4tmXh2cvH57BTwn0oYlw+A/1
uTI6OSnv9LnS8T9XOPyH+lzp9L9SOPyH+lzp7E+N8E+D8fir8ND+1wqH/1Cf
KyNvn8H/WJ8rxX+oz2n5UJ8rnX1rIhz+4Zl2X5OUF8/gIf9zhcM/PIOH+l8p
HP75m9/Q/tQIHxjML78KD+1/rXD4h2fwcP4tEe7tM7jX53DerhLPvjw8e/mh
3aihvLMbNY7/ucLhP7QbNU7/Uz8C/kO7UePsT41w+A/tRo2z/7XC4T+0GzVu
/i0R3sX5G+DePjt+nN2oEf+h3UjLw3PoN1WJZ/CQ//T9GvzDs96RBfqf+gvw
D896FxbYn/T9Gvz792uh/U/fr8E/PIOH82/6fg3+4VnvxZ2/Ae7ts+NHPDs+
nX2uLdLn0D+tcvY5LR/a51qn/6lfAP+hfa519qdGOPyH9rnW2f9a4fAf2uda
N/+WCIf/0D7XOv+nVHiXP/Q3ajdjn2uL9Jl69XX2Gdzrc7gOqBLPf1w+nf/h
H57BQ/tTIxz+4Rk8tP+1wuGfv/kN598S4fAPz+Ch/1Mq/DvnP4N3cf4GuLfP
fL+L8zfA+zr7DO71OVxvVbl5MC0fzoMl2dD+1AiH/3AeLMmG9r9WOPyH82BJ
Npx/S4TDfzgPlmRD/6dU+KduPQj+nfOfHZ/ime9Md/4zeBfnb4D3dfYZ3Otz
uK6tEs++PDyDwz88g4f2v1Y4/MMzeDj/lgiHf/7mN/R/SoXDPzyDf+rWg+Df
Of8ZeZPdehB8uvOfwbv8ob9R6vQ/nbe9Pof7B1XO30jLh/5GaTa0/7XC4T/0
N0qz4fxbIhz+Q3+jNBv6P6XC4T/0N0qzA93+Bvinbj3Iv7vf7W+AT3brQfDp
zn8G7+L8DfC+zj6De30O92mqxLMvD8/g8A/P4OH8WyIc/uEZPPR/SoXDP3/z
G/qfTYQPdPsb/P+k/OhxoV/XxPE/V/hktx4En+78Z/Auzt8A7+vsM7jX53A/
rEo8+/KhX9fEzb8lwuE/9OuaZEP/p1Q4/Id+XZNs6H82yYZ8ov/rzS8aJz/k
gGV1J8b7tOD4gWf866a28b7r5son9ZopnPLgyPnk0pvuj/epN1c+4WOBcMqD
I+e7lu3uiPepN1c+aW+FcMqDI2fpD6v7xvvUmyuf9FuVcMqDI2fjYyN6xfvU
myuf9Oc64ZQHR07T03qdE5+P+PLwTr+hV8hxuOSAIx859Ftot2cKRz5yHC45
9Ftol2YKD+flBZstT7+F88sC4aF9q9hsefotHKcVwpFDP22uPP0Wjt9UX5BD
P22uPP0DTnlw5NBPmytPP4BTHhw59JMvT3/xix3A3oJ3v/rAdu++Pk79Du73
/8F7JuUll3+HfUY+eF8nn1/qw998h/qE9qhBgz723bD9DRr4+siemxz+5t/1
CcqP1C/1ebT9mbPjc1vwnq48/x/5/M2v32+hXuc3u/g/8buJcH2a4qEdniI8
tMNTiuQwnsBDP2rmZuTMFc648ni4vlggPFxfLCiSwzwMznjzeDgPVggP58GK
IjnM5+CMQ4+H68oq4eG6sqpIDn4BOOPT46E/v0546M+vK5KDfwEe+vnrooHR
uVPz909MX335UM9/BXd+1/oi+R4Px92vTv4U6SPyQ3tSKxw98zjfdXIkH30M
5c8twpGPPoKjfx5HDvoYyllShCMHfQzrX1GE6zzG9DH8bmURjhz0ERz98zhy
0MewnmuLcOSgj+Dok8eRgz6G7aopwpGDfoX6tr4IRw765eWgF6bn8qt9eeRT
Hhx98njo9zRo4O2qx1tt1erU+B4Cdt37vZRnPJ58+1OHxfcNKI9fBJ7wOk1y
juo3qGl8byPpn/nCu7brkHmyV8bG4zLhPVfV1cT3KpLvrxZ+w6tjK+J7Eole
VRft07pxnbuv503z4vsQST/+UlTej2tw2k2/0B7aF/pR89W+0J9ZpvaB0x7a
B057aB849aYd4KHfMjI6qOzvmQ5jRmr+1f9PcPUTetLayvM3/+4frjxywEP/
p76c4ZRDTmtXH/4d9aSfsGfh/vx62UX07fBJ846L76cl5ScXraewx/6cFxw5
5x155r7xPULk+HUc9g85oR8yt0hO0q7yonWZb1e4bzNTck7o1qvxtwOY98uL
1oPYS+SE68olRXISu7KoaH3n2xXufy6QnLO2a1Ub32tEjl9XYl+RE/JfWSQn
4W9F0TrRtytc11dIzuVfzlsT349Ejl+fYkeRE66L1xbJSeq7tmi96dsV7qtX
Sc4ddz+1KL5niRy/zkV/kQOuc0YnJ/n/P6s+jBfw8Hx2psaHP78Gv8fsFfqd
tG9D0XoZvaaeYb/8qnpSH+RQT+QzLrFL6BPy/Tkv+D3BfFcuOX7djb5Tz3Bd
Vqt6Ms7Rx3D/dpzswUD3XcYx9Uf/+K4/JwWn/owT5Ph1PfoY7qfNlD0Y6OQw
jsP5JbVz/twQnPowTpDj9wfQx3B/dYHswUAnh3FMfRhvtMufo4FTH8YJcvw+
A3rXNziPSM9vBzo5jONwnl2vdvlzJXDqw7hCjt+v0Do92B9O70EMdHIYx9QH
/aZd/pwFnPowrpBDfZDP+AvHxYYonOfxK35X/f35AjjfZbx5+fSvn0/Dc+d0
PsU/8X5geN6Rznf4mfhTfn7x8z5+lS8fngOm8xf+GX6Zny/8PI5/5suH+9UV
RfXBv/P238/L+Hm+fHj+W1VUH/xEv1/q51n8RV8+PHdbV1Qf/E2/X+rnTfxO
Xx49QP41zt6iL+gb+oG+hHayVPOmb5crLz1Dj9B/9Ay947voDeXD/cNGmgd9
e115fRf98nYVfeS76JMvj36j7359gX55O4k+Ih998uXRb/R9oKsP+uXtHvqI
fPTJl0e/0feBrj7ol7cn6CPy0SdfHv1G3we6+qAXfh8YPUI+euPLo9/o+0BX
H/qf8ugH+oJ89MOXxz779QU4/ezXEeiXX+/4dQE4/en9/83J9/48OP3m/fbN
yfd+ODj94/3tzcn3/jM4/eD95M3J934yOP1PefoDnH5EvvOT9V36GTn0Bzhy
mEedH6vv/rF/OFnj1/uB2A3vJ3u/Dpxx6v035Ht/1ftj4IxH73ch3/uZ3o8C
Z9x5fwn53j/0/g844ws59BPyvT9D+VB++h6kwznbnB2/t4IXxp2/n+b2f+Qn
0S/goV8xTveNQ3xKxHfhkXH6x+vEmZIT7ufPlRx4ZJz6dRzzEnLC/fYlkgOP
jFO/zmL+QU64/qqUHHhnnIZ+40z5CeH9upnyE0yO5kHG6TVunYK9D+9ppO/X
kAMvjNNr3PoCux7eN0vfDSAHXuj3a9y6AD0J7+2k72aQAy/oHXLgBT0N7z+s
07yMHOwjeoQceEHvkAPO/Isc+EWPkAMv6B1ywnsOpZIDv+gRcuAFvUMOOPMp
cuAXPQr7q0zxrLJTK9565tZhsnu8S228uNsNJRfNkX2m/KunDNz+jR6TjZeF
Kn/Wt8OPaPO/BcIp/0CLz55q9fYs7btRfsBbL8z+a/+lwim/ou3WBzVYOd/s
exoXreHYulfH910hnPJXDeg4ZJvvOS+pVvlLT8iceegVq4RT/s0d3hk0YUOF
8ZvmfXtozpGn7Xj2mmjs21M+ObpTmndsx77fXtBiXTq/g/fY+/zv/3PHmqjB
T6vLepyYxglpsOetfS6du0p6g/y+A6sGHFLfXnDK79Op3QPxeH/p4psOHXZ5
Q5Vf9P1nv8d8glN+SfmgT7s1XxbdaPpB+UenX37wFvX9BU75wYsnN/zH1Quj
zivqnv3hoTR/3Jt7Xb3lkrVfCKf8Z7sNarSw2fcResI73922qtzjtHnfSk/A
//Pnfkc9fuvIHP0OvlXU8aijvp6g/lW+sH8d9skJJTPVj4oPMeTGvefU2xf6
C7zHacs7VxyxRP2lfCZ9evWeeHuF+kvvkRsc+WKjdamfpvoseXZC+6Vpfyk/
2itDDit9JV3Pgn+w20sV8XwEn+DdD2y55a3jl4k35U1bPWmrfn9dJN5419yv
zYGrtztpnngDH1S25YqBz00Tb+ADXmn/9Zs9xsh+gv94ceOJD946TryBP/H4
SwsvPm26eAPfa+GEwy74+kfxBn7KXveXTH5ssXhTXrNb21zy8TmV4k15eO7a
vvt176wWb+Al3a9qdV55yhv4a/83cUh8/gU/4N8M+LDzcxcuFz+817732ge6
1ddH/ICfcWn3kp5f/yh+lM/rwScmX3LadPED/l5u/G2P3DouBz/gib0aI37A
9/iuWaN6/sUPeMcXH29V31/iB3ztw+Mycf3hB3zn6T90/GT+SvEDfn/pyq1/
ui71Z8A3fPm3u9Jz8zLlz+p9X4/X6/VZPIA/NXzFM/X6Lx7Ad5l+3OD68SIe
wG//Z5vhHUpmigfwG69oucsxX0/QfKe4I3m9GikewLO7b3nWqfO+FQ/gU057
8q2b/5ruz4LP73n+2FvqxwU8gOf2e2ifXK+V4kF5xwZNmpD6/2V6d798i6oj
nj9glXgAn/nwMdcOabpCPCgv3LQTl9Tbf/EAfnff2Y/WzyPiAfzXnT/s3/rt
WeJBeaz6XbhmZI/JOXhQnNQ8P8PEA3jVc9+3W1BvJ+EB/LzRmVdPq7e38KC8
PX/NXB/bbXgA73Pn8Y3GV64QD/hdD/3t4ovr5yPxAJ55pdvHd929SjzoPdGo
mgU3PrpCPICPK3n5gPp5RzyAr93+ymfq5xfxAH79Dyd1z1w0RzyAv3nPi583
r/wiBw/goxLcnd9JjngAX5N8192fVD0134Hv9H3Nsnjehx/iIbR68et4XhY/
ysPzRPvP6udl8QO+R+ePj6+fl8UD+DdJv4gH8POTfhQP4Nbv4gF8TqInOXgA
N70SD+C/JHooHsBNb8UD+MhEzzUfgY//6+tfxP4M/BDnocVPv31cPw+KH/Aj
Xv7XF/XzoPhRns/qXdvUz4PiAdzGtXgANzsgHsDNbogHyUnsTA4elH8jsUvi
AdzsmHhQHrbE7okH8KGJndS8o3xYiV0VP8Sv+KrrdY/Wz3fiB7xPszP71c93
4kf5Tl+taFs/34kH8KpkXhAPyt+UzCPiQfniknlHPIC/ksxTOXgAn5zMa+IB
fKtkHhQP4Ocl86Z4AP9PMs+KB+JvzEzmZfGgfE9D5varn9fEA/iYE0ceWj+v
qb3gnRO/Qu0F3y3xQ9Re8EcTv0XtVR6oxM/J0V7wNxO/SO0FfyLxo9Re8MGJ
36X2Eifk2MRPU3vBL0j8OrUXfN70jhfUz19qL/jGn6Z/9Pp9FWovePfEX1V7
wW9J/Fu1V/meEn9Y7QVf2T7vP+dor/Im7Z73t9Ve8I6Jf672Es9kfuLPp/ta
hj+SrAvUXvDKZH2heQR8+c6jOtXPU+IBfM7kH5rE8zU8gNf89sD+8XwND+B9
kvWaeABfnKz7xAP4rcn6UTyA35SsQ3PwAL5pWn49Kx6In/R5st4RD+BPJusm
8QC+OFl/iQfw65J1nOYR5Vs7e9cDJ/RN+QF/MFlXih/wXsn6VPyA2zpX/Ci/
UrJeFj/Ko5Gsu8UP+G+L8uv3XOhXlLn3MKxHJivfIjwceVHDbd9dN8Hl262I
Hs6vE8cp3yg8jD7kvkfLB49Rvld4eHGXfQ//rf67xOmFhzfz5dN41/DwcdeK
qjH13yV+FDx8OO2RYXsXxLOCh/WNTj9rXv13yR8ND1f032fvA+L4n5Y/Wvse
Lf77lwdWfe/ygeJflYsfeHj+6J/v7N1ttsuHy7pspviBh7fOPGN+x9x08cN8
mvA5rYifmf8duPOD9fUhDh78/OuFwzsWxvHWvYePH3+hMI437X14zi91sXx4
YFw0X/rKQa3bTI0OcjycvONdpzV9ebHL11keNc3bz0XiBx74DfWHdccC8QMP
57Rd9L8V2ywQP/DQ/PBjJufv9xk/zKeT+u3z4ei7fyzip/LU2i/iepKvGX4S
ntP4gbS31ZpdR7xdLwceaO+UXY9t2m36yijMm1lu+rBCPNDOM/apPHZSoxVO
TyrU//BAe+e2G3b5Iccud+Oo2vRnmXigvRcf1+Xp569ZKh5o71WnjxkY1xMe
aO8h52zzbFxPeKBdrz64cck3A9I80bSrySOvXBvv99Ne2nX5Y//8rXRolet3
4nlWqb20i99wXFRHraL/ZeP9V9pLu5Z2LO2+/NlVai/t2rD/Ea2+HbDW2Y06
05M0TzR2YNwhDx215dA0rjvtXb7d7EnVu6T5mmlvos8/K34a7R25S9u5+x7y
s+v3CtPzdeKBdl7T/N51F3RZ5/S/Wv0JD7T30L/8tNWTvarFA+096s1mJet2
qXH2oS4aOjr3n7ie8EB7f3v38l33O0T113i/4INdXiqMJw8P+z76zos7j0rj
qMPD/Y+f3zY+zyEunPzYp/40tmtZGqcOHv6enzfXix/Z8+cv+u7uRb+4cVEd
NXtp2/PifW74gQd+4Qcebjm46qe4nqF9qLPxskH8wEP7Izqvj+t5ZGA/M9nh
+XG0PioxfuChz05D7oy/Q9xd2nvQHsufuvaCTYoDTLuqW2VHv3bLRjcuqm28
b1R7ac97+z75xU//TfNH0y5+QztQF+353s0nx+dmtJd23fHh3rPi+vQO7GEm
u3Dc1J7xOQD5i7UPPL7/qrieDVx733jiip7nzUvjdlL/x177Yvd4v592Uf/1
b1z/6hYH/KZ2Ue/aQ19/JpYTjvc6d3+v/j+r//hjSsY8tv73qGNg3zLZ1nk7
8HvUy9pF/e89/uwpU7b/PTrM2sU8tTJvH35TXmba9ct/9t7ruI/SOPnUf48n
2nz6aM803zH1f/aH49vH5S8Lxm9d9Pd5uzaMz3M7WLuov34DO5bJvj1/0kPx
ORH5Rqn/xQufPvPmGWm+Y+q/8+Jrdo/Pm8i3y7zzxZJOC+J6+nbt/M0j206/
J82ryzj9/NvLZsbnxbSXdn2yx+gD4/KHB+Ox3m/M26UtspdYe2nPXnud++Hq
HdL8trQrfJ/YoAHturt1k45bPZ9Re2nX4Xk7llF7adfyfcZM/cuBmSz9SLsO
37ak7uJ/pHlsadeyvH1O89gyHp/c4X+DB/yYxvmnvT+e22LPS/6R5pmlvQ+d
X7MwlkOeU9qb7fnVa7GciwO7lMlWXzj8qvh8DR5oL7/wQHu79eq6MT6ngwfa
2/iy1uPf37BFtlfg95ZF3U67evUve6T5ZGlvo392fDc+Z4cH2vvB6bvfssOI
LbNNjAfa+/uzD2y9fo803yvtHZW3t2lcStp7wQtHPRnLOTSwV5nsDnk7vKV4
oJ2TXl7S+qAjthQPtJdfeND+/OsPjzppUmm2U+DflkU3PTxv3qDljbN3Wd5A
rRfy807j7F+MB9pb/t/7er90Q+PssEAfKqLB+fmocREPe83ftCmWT5xqeJi2
YNqEWD52Gx7+vejVe2P5JcH8nsm2W3Jb13w+TOMHHpYsPb3Z+EzjrNlb8fD4
8n3L4/NQP38Nt3WKrctk38ffGq8jhkUvPP/cLjWXpOeD469592+t6v3qMbvU
/P7KlNRvP8r8/HZ7nfCnU59K1zVv27rA9pdUHn+468ErfutaUP5f5j9Pem5p
Xj7tfdT87RkjXskUrpvmmf+5uPNPtT9fkpbfyfrh9BaDq+N1hOzAVTstjssT
P1/rbvN754zfd6uaAjlTzD/s33PGpqEF5Rtf983weF5lnQJ+mfmZW2zqs/Wr
9fWH/2/zfn6aFwC8ofmrl2W/zvMgfR77adueXdI8reCvmV/X6+iBHfcemp7T
tcldPbYwDxd4B/MPhza7IN8v6P8C8yc35K5Z+0pBPfvk/fM0zj/4QPyrP/96
/cgtVqfrDvPHDjngzDxvjKNGn89oOL/ef/hrgmscvfxpm36xv/FiyZ8X5ePn
m5yLzJ9pvunyl2I9RE7nk0YviufxjUk9JWepzadPJe3SeLzH5t9xtb3y+5mU
b2bzV5+EZ5W/0Oa7kqS/NH6TdUSa1xV8tM2bpg+Sc6fNL98n+qPy+07fsWdh
vlfwaaZfZyT6KT/t+xkr9onlhPZhTcR8Z3ouOSfl+7ehywddEa21eWFI5xNr
C+Vs3OnsnWM9oj7gzC827uRfMR91Scapyv/5rM9LY3tLnHBw7HarATccWa+f
koOdPzSxD7I/zAvvJvZE5aeaPXz7/RdjfVN57KfZJe3zNJ7atd0x9fbqqOYj
2r3eY7L0861pCf605Y0FX3RA8u/O/fHmrhnd9yiLOtr/fyjBpZ/8+nnkepsv
Fu6Z/67Ksx81ckTnbgu0/1amexdTElx2VXlsZ53ULj5fBic+95Roi+bxeT32
EzyaMfar+HwfnDjcVy5pM67wngb4ft8deHF8rwOceNvb3n/qOfE9EMVxMHyn
qc/VFto38Jq1u9wQlwfnnNfOCySHONyjDr5+Q6EdA1/wQtt8fTRfGz70upOm
xvWnvPLPJ+c1Kg9+eHK+I5y43bN3qpsU4/QLeFRzy/6FcjiXXJ2co6k8eMvk
3E048by/GfTNX+L2grtzTOkVcbutvPSBONzHJfWRvQK3+gsnPvmwhB/ZH/D5
CZ+yA+BvJfwL53zEzuUlh7jl65P+VXlw0weNd/Cmif6oPOcRdi9C5cHtHoVw
4pybfsoOgJs+qzz7/3aPReXB7d6LcOKf23iRPQG38ZXei7N99fOS+04qD94s
uR8lnHj8Nn4lBztw4l7/XBmfX1Me/P0XDrwj5o3xjn0wXOMavFMiR+Piwfz6
d1V00I2bJhXq/975eac6atj3p5p4/KKfUzps+Mu4+u/jJ4Bvkffnf4muvSmX
tyf043El/e+N9WTSpmcGFvbjW9kdR8frBfST9n7V/ZmvCvNmgrcYMPL7GEd/
4GHY0AUD4u9THvyhXIeGsR/r+wv/k/1A8Bm2n+zvuXG/64fkvEZ2tV9+33iC
7Cf28H3bz7dzQPGPfR70Td19hX7sVfl96cnRukv+0azwPvzYSz+eEo9X7Cf2
sJXtn+e22up/+TiK9l3sefunX/smvscFvnDU0uv6dJstfxX80Py+6PeR2QHh
1/cYuT4ex/Qv+LD8/tti2UP0J9Onxz4r6/3tmbavDv6V2YNPdt7zvvQ+YUbz
CO2lPHibLVucGfNM+WPy64IFqj/4jLxdXRItvXFkrFeq5wWmXyXJfQ+V/zjP
Z0XRuUC3/H2Aymhyop/pvbUbrtxUmEdDfqzte+/30+ousR8Lzrw2P9N5RuF3
t7b90qk973s7lsN4ed72n594dfx2sR8Ozvz1VN01p8f3IeFny/bPN72nfnyR
PxF8he1P7lc97Z5Y38CZd/ZM7m/onOZi889vHX7kifG5JPMI89F5Ex/bMz6n
Bl92T6+dTq2X/8CH2w+O/WHaO8L8cOoD/ln+vGBTdGciXzjzWkPrF+T/X+MT
fo73965J7IbmkRNsH+8vSbs0fzEPVkTjLiv0z7+y77Z1+7qTGz5xWYyPeuy5
rWM/E57/busC208Q/y/ZPmH5ac81nlhvB8C5N7IyuWclPrcZuuuqfgV5J7W/
ce91J8bjuDSxn5rXvht+TcPCfJTgrWw/8Om6fUcW7j8zj9/48cJ30nspaV7L
suPvGFpY/upnJ90c7zey7gB/+a7Px8btuvLkM/LzPvVsZ/tXa398aGz6/mhh
1H3I1Dfi8eT3h6sz/+wa7x+2TeYL2fOPHu1/RLwO8vvGjMuoxfv943NbcPyK
BYuX7BWfgyP/BdPfAUv+VnBfq1r7eIvad+ga+/Pg+A8bB3Z5JS4PP73PXBsV
5qME3972fyYl9lM48/5Hyf3VdF62fbb7zpu2Z7weAcevaLbvO/sX3o86+snD
anKZNO8k+J22D8P9EHD8gUxy/1nzeP9zrns43l96I5mPtM+zMj/eG2XPuqjL
57mCewX4Dx92ztb+WHDP5MBxT94cf7fjZ71OTO/nVEcj8+fCIzUPgnO+fE4i
X/Mg89dHiXzho2yfh/NE8GjPq274oX4e7JR8V/Mmdn6nhLf0PZLZz9qkH2XH
uAf7bnJ/RvjW+X5cGp3UfcRlhfdssZ/zE72S/WF90dv2kcA/z4/H1dE7azat
HVowv+Dnf5GML30X/KZkPAofNGt85RO96vU0GV+yG8rDmNwrE37/xN1PjM+/
mNfAJ+T3t9dFO+/QPL/+wk7eY+W/TeyS7DB2e0ViD9WuXnn9/yUandg9ycd+
np/Y+fT+j+23tHXnwifMaPlobIcfSey/6qN1RDJPufPQBtmS5J6q8Jbjt3ky
Hy+6w9XfFb4jY/wuTOZNjQvdv0ruAwsfUvfyhHhfHfuP3WA87p/4D/ou+M+J
vyG85/ErbsznzU78B40L1he7JPe3hb+R3zdL8xuC17VvvzLGbX2qemq9kPhj
wqf++87n43HN+ovxgv15IbmHLxw7QN5D8Ktun7VjvH/Cuob6YAfuS/xM4ZVm
N3Zw51/ZCX/+Msbhh/H4htkH7vMLf6XHBW0K8hsyro/L+0uztW8APtHuJ3Af
HvyNKS1WxPu05CuU//bGge/F/jn5Cvlucp67KLJ1qHDuCXAvWnF1Zh+cK8yH
yLj+ecLfL9irIG8s3/3lgkvGxPu36D948/y55Er8DeGHLzruv/l1k5O/V35f
ukpywCvz+rw2mp7of/ou76bX3y3Mb874+szWWdst7rMyndfKoia2ziKfIOPo
jdlfNy/MY0j53oNbTI/9gd0SeyJ8kp27HfRM3VmpH1UW9briyjbxPE7+QcbX
38/tdl/sL/nvJvcoStz+YXn0YsM2zeLzxA8Suyr8iFGj5xXmN0T+zdPaD433
J0P9XBjt0GH8sfG5XtfEzgtvXF3zSLx+JJ8gesV6sPrS4x+KeQNnPUjeZPqR
dfEFt21qedOjK9Qv/ey+1okz/nF/4b2pzFedpnXKTS+6T/WI3XeaN+D+6fH6
EZx3LodcMf+cG+5N/fMd8/7ej9GEsvdKH/hlpez2l/n16fzIzn3SfX67X/Tl
xg+2LPSrmR/P3nNWq0I5HfJ+xbJomwNeeKzQv23Wf/IOw+vnTeSD5+yez3vX
Lz0qXkeAM2/e8c1XK166JJXz3wG3T431n/UReCbvD6+Jmn3R7pXUzy+PWtv5
woZ/vvrv+B4g/Zixdc2e7/TcLr5Hin1O7helef3A59u5/w4Lth1ciOOf13Xf
0CV+xwee+b39P2K85Zu79Ilx7HC7l/cYEu/zc/8HfIKd1+eS++HCmdfeun/2
n+v7Mb338skR38Xj6M5ms+J+lF1N7gs1UB5AcM7ZeyfvF4Qz353/yXvL/1Mg
5/68X5HmBwT/6bdvN+XzXZv/z7xw7JzH347nR3gD53x8x+TdjXDmu23XPvZe
ff8K77Fb6Qvx+CJ/H/ipf7vsL7H+4m8zvih/tt3jxQ6zn9Pf7mFiZ3iPfEE+
Pm36jpL98bvuu6FbpuAdJeX3efe4ESML3lFSfs6kPYYVvqOk/EU3rz+ndcE7
Sspvu/SL/Q8peEdJ+e97vnB34TtKyj+96tvlhe8oKd/gtX7lhe8oKT8q9+aA
wneUlJ/5tyMmFu4vUX7pO7tfWviOkvJzGu52UeE7SvCLb//xi8J9G/CJn33Q
qfAdJfKbWnv9uf5M4w0cOXvsvevthe8lKd/P+gWc8tP+74l3Tit4L0n5X3q+
evCigveSlH/86XX/WFDwXjKND/p7+akF7yXBr8nrSfpeEvyGyxc8cHTBe0nw
Ey7td36HgveSaV6L/7uy8L2k8jD03u/ewveS4Ns/+OzQwveSKv/7bh8UvpcE
f6vJIZ8V7geCL+w8fL/C8wLw/S68dOotBe8iwb8ZvP1XNxe8i+S9/Nhre/Uv
fBcJXtfhtssK30WC/zk/XtJ3keBJXOj0XSR4626bLrqk4F2kvnvEv94ofBcJ
vmD/Hw4tfBcJPnLkIXcVvosEv3nHH/oU+lHg9zY9Zd/CcxDwI59/r1Xh+0fe
+/+UfNfpSWX0flJPpyeVUYukXblQTyqjWxIecqGeVEb7J7w5PamMtuiY59np
SWWUS/rF6Ull9Derf6gnldHy2qd6FL5/BP9932H5dRntJU7Mtokeqr3gqxO9
VXvBv0/0XO0Fj5JxofaCX5mMI80v4P9Nxp3aC/5ZMk7VXvAZpre0F/wg03Pa
C96qa8nh8TvHUM9rosNmXt2u8D0j+InDmlxa+J4R/PdX83bY6XlNNCex57lQ
z2ui85N5IRfqeU3UPJlfcqGe10QvJ/OU0/Oa6EWzY6Ge10SzzB6Gel4T7Wl2
FfsMft4zl237R+8ZbV5w9+1/jTZ23fEP3zN2uvVP8//oPeM2if0ves84K7H/
Re8Z70jsfNF7xm9qh3/2R+8ZZyV40XtG5nH/nnFWMF+n7xm3dfMU+FCbf0M7
UMv86OxALfOjswO10fhkfnTjvZb5LheO99poRtKPuXC810bPJf2eC8d7rfyZ
cLzXym8Jx3stepiuBw3HDwnn5dqoxPyNcB6pjWabXwE/ijefzFPiB9zmKfED
bvOUeAA/IBm/4kH5v5LxLh7AmcfhQfnObB6HB3CzP+IBnHkcHsDn2TwOD+Dr
bB5nHgHf0ebx0K6WZP+XzFPOrpZkbZ5ydrUka/NULrSHJdljEjufC+1hSZb5
OrSHJVnm69AelmT3s/kaHsCZr+EB/P9svoYH8Ik2X+uereFLbb6GB+Kx2Dwl
HsBtnhIP4HXJPKX2gjMvh/G+tsgyL9NecPM31F5w5mXaC36Mzcu0F/xPNi/T
XvAym5fD+aU0O9P0NpxfSrM2T7n5pTS7dzJP5UL7X5rt/HGj1YXvGcGZl0P7
X5r9webl0P6XZpmXaS/4JTYv017wGTYvh/5SaXaezcu0l/g2L5u9or3gs82+
0V7wFmYPmUcUTz6Zp8QDOPN1GM+tUZb5Gh7A62y+hgdw5mt4AP+XzdfaDzG8
qc3X8AB+Uadkvg7n0ybZnS/Mr0fcfNoke4/Nd+F82iRbbvNjOJ82yW73h/Np
k6ytE9382CTLPB7Oj02ybybrxFw4PzbJPmVywvmxSZZ5PJwfm2RnWD3D89Ym
2ZusXSEPZS7/bLniw5H/K7R7E1z+Zfznccq/GfpXY5R/M+ShLI17z/sIk0+c
Lq1PP0zkkJ+adv3b4qSF+dnLLI7W9y7fa/o+kfaGej7b5TuuUJww2qt3anl7
Ml3tDf3kaUXtpT7E36P+U6087UJvx+fnqalF7UriXy12+VXLFUeR9tIufsP+
rUjj01p7aVcS72uB2hvO+/PVXua7JG7Wj0XtpZ70I+26wMqHed7LLH7kyijM
Z1oeEbeP9tKeJL7XCte/6btC2ku7kvhwy50+VyvOJO2lXUl8sKVqL+2inrSX
8Us9w3h9ZRYXca2L51YeEUeQ9tKuJA5bletf4qxWqb3+XWGoz9WR4lJae2lX
Es9sldpLu6hnOH7rVE/lD7VxeqTV07c3ibtY4+LalUfEWYQH2pvEefvZ9XuF
4vLBA+1M4kOuc3qeviuEB92vy8ejqxYPtJd6huO6TvVUHk/OoayeYR7bMou/
mMaxp73Eg4QH2pvEkVtfFN+PeHjwQHuT+JO/OP2vVhxCePDvB+GB9lLPcLzX
qZ7Kp2ntHWT1DO1bRvGQPQ/hO74qtXf0zNWT8vd5jAfa9eqG7b6Kz5FD/a9W
XETaq/sVu7ebFr8fpL3+/WA43usUj1b5K61db1l9QvuWUbxl2qv3EVZP395F
+3R4Jb4/Q79Tf+IF0i7qP/mhER/E52W0i3ojJxzX6ftB5YOz+s85qdfI+Dwi
tGMZxQWlXdR/6hWD3o7PNb5z82YXq6dv18Cv53WK7/MQZ576/1Ky/dT4XIN2
UX/Kh+O0TvFgaZd/Pxjaq0xWcaetXdS/f1Vdl/j8kXZR/6MtXuV3bt7cYPX0
7Xr63qeOjs87ujg7TLxZ2ku7KB+OxzqVp720Z8enRnwcn1eGdil9P0h7FYdw
xNhs/C6D9tKuUy1+Ju2lXVuPm/JpfI7znZs33zzuzIPi+0jT3bxJ/Nsuzt62
Ob3X6Phdhm8vcrBLtBc58KD4dSYntEuZLPE54cG/H4QH2nshcX2NB9q7142D
3o/Pjz51/s/ETdu1it93THb+D3F6p7v59NhtWr0cvx+BB91DMDmhXaqTHHig
vcgJ7VUmSxxReKCdHzRv1ya+jwEP/v0gPNDeQw/u8EZ8ryP0P8uiWWOm7HTf
8jRvI+0l7u9k5xed9vm8J+P7XdPdfEp8XM8D8rFj8IB8+IEH5IfzeEZ5G+EH
HqbMWb17fM4OP7R/sMVT9fMX7ea8LNxPGxZtOyrTsPD94LvmJ59zdLeSVwve
D+KHv3v9yEzh+8H55rf3s3OHcD9qflH58eYP/8vkg29n/mRTqw/tBcfPB9/L
/FVfnvvJrIPA8a/4Lrx1d/kUwMeZn0b9kdPd/CVfH/yZAwbecFDhu78Zwbll
lfDF5heNMfno7WXmR53t6lnr8iOAb00c+laPnFX47m+I+SfbGT/oAfO+9bvW
9R9Y/79jekJ55lnTB40X5d9I6q/x8q3NjzfZ/h7llRfOlWc+Qj449px66n6a
4eH4WhMxX/jy4XlslXDsbfjdatln6kl57I//LnZs/6TfJQe7hxzGI3bSfxf7
sDrpR5XHntCucH9+mPa9dS78QoLf6ex/A/t3fYJz/7Kok/1/9mf8ezpvV2dY
fVa/E+4LsR9S3bNw/yeN67RDsi/k7M84nUuG+34zdZ4b7vvN1PlvaJcWFJ3X
g3O+H+7/VHDu485BinHODalnuE9eJfnhPnlVdJHVJ9xPXlt0Tg0+ytoV7ruu
U3vDfdd10Xwnh3OuS+y74b5lTTTb6hnu462PBrlzYc6DlhsP4f7PRnhQ/+In
c67BeAfnHCRcp5dk/fkROOdN4X5Lxu3vrdkszr409QTHjwrlVwunPuE+W2nR
eQ14eL5Trfjn4OG+x5ZFcthH5buU1z6t1RMcf4B2heeJTbK1dl4ZzvvpvqiP
C4Oe+7gqJkd629n2N7x+TnXzGvpzc3DvJsX727o7HL9roubml3reOgX3XKqE
4//48vgt7J+As0/o7wVxT+bwZF/dnbNPKLpnwn7pCrtXEJ4/jtvMvYuZ0Vq7
xyI5ti/KPA5+sNXzEmfHpgb3sNJ93eW2H0i/0F/4V36/Fzm2H+7s0gLx4N95
2Tm4+r2xyx+he5K2X7fC/JBwn7xCcnQPx/bH/s/8pfA8sSr6xO5ZUc8Bpj++
Xeyr0C/h+U6N7mthf9jnOdfOWcJznPXcDxHO/hL+jN5v2r6K5+FQ2ye5yO4b
+PdZvxkPyGc/x58Xs5+z1M4Hw/3bjaqPzh/NT/P7w/NtP2Su6X94D6o2Osr6
ne8q76ida4OX2z5JuD+zUPst3p6HcY3S/Sv2N2gvdgA/0O9rIYdznHBfvUTn
Ysin/2uD+xvV2meoNP8q3OesX3c6+8n6Hb9OceRsvvD3HLBLfV39Wd9xzguO
nZ9gcrA/h9i6dUbSX1o/ki/jXHc+yLzwuzsv5rs3Befs3LsY6fKoVut8insy
oZ0cF9l5tMOHyY6F93nGyB6GdnVBZO1191gqIj/vcD+N+1rgG+wc4UZnb7Eb
pg/u/kalyoOfZuu+S906Dv8Ku6175rbv7f0r/Lc1Vh78NCsPP+Bn2PrxQpOD
HWBfnX4Pz2HXa32td0lmx/o4+cr7vd+w4P3R87bu8/V5yezMrSaf+jC+0E/s
D+OF8RXecyuRHoJvZftsN7n7HoyjI4LxWy3/jfKKi0JeI7NL4IwX70fhp1Ee
nPLYMXDWd6Edq9b44r5KeC4/W+sOcM7vvP5zDkg+Ke2fm9/icfY3vJ9wpJ2X
ef3HTwvzl5Wl52/WX+Ccg4R5x8pk5+EBnP3qm4N1fZnsdphfb6H2De5xOOt0
P4+wP+zvBeEfIl9xGEx/aRc4dpjv+vh6Jyb39zSu2b8i75X2C6x/v7N5M1wP
zo2++f7YAwvfm5xm/X72v64oKXwn8oHtgyEffI6dL5/j/ATsnpfTwPyuK938
3uDxxB4iH/xg05MF5heF835ltOiHoTML35ucZvrj/YfuNs7WB35LueYN7kvQ
X+gV99kYp+wLhfvha6Rv4XyX5mX9NuFZOHp4TsKPxin7S+E+arXOTZg3w3sF
JZLDOMFeIQcc/cQfA8deLUn4FI7eXuPOfdAXr7eU514T8yP5tuCZeBnaB0ry
ZCn+CLjFL8rxPgrc8iWleXQMt3xAyh8DbnlwlE8F3PLCpPkDDLf8BXr3Am7x
/PUOE9zi3uudNrjFh4/C9paT5ysXtrc8srxgrr3l5IFy7S0nz5Frbzn5fVx7
y8l3o3wq4PaOybW3XPFJwvaWRxbP37W3PLK494o7A25x4MUD48zyl4kHcMt3
Jh7ALe9VDh7ALa+TeAC3fEbiAdzy+4gHcMt3o3vJsveWJwUewC1/gXgAtzj/
4gHc4t47faggL5vTh4rI8rg5faggz1cu1IcK8ljlQn2oIH+T04cK8hk5fahQ
nhR4ACePDO/owMmzozwihtv7bje+KpSnKdS3CuW3CvWtIrJ4C07fKiLLm+D0
rSKyPALiGbtr+ezEs9YxlhcAnhV3yvJKwDO45QUTz7q/YHlG4Bnc8kOleYwM
t3xJ4hnc8geJZ3DLpyOewcdbHijlKTHc3sWLZ3Dyi8EzOPnaFJfKcIs7IZ71
/j7Jy+DGdTXxkdy4ro4sb6Ab19XkoXPjupo8a7lwXFeTXywXjutq8m3lwnFd
rTxB4biuVh4leAa3/ETiGZw8XPAMvpPlKYNncIsP4OxGtfLlhXajOrI4YM5u
VEcW10s8Mw9bvCnxqXxKSf4+8Qlu+enEJ7jlZROfWh9bviH4VLwTy8cEn9pv
sHxV8Kl1jOXzgk/tg1q+M/hUecsHB5/gvS2PHnyCWzwE8Qlu8dPEJzhxz9BP
/BfipMGb7oUl3xVv4Ja3TrzJf7f8TfCmcyHLbwVv4JbnKwdv4Jb3Srzp3Mny
x8EbuOVFEm/glj9IvIGfaXkeQ3tYF1n8N2ff6sjH5+xbHeMiF9q3OvK15UL7
Vqc8aKF9q1OeuNC+1cu3PHqhfauLLN+Ts291keVFcvatLrL8Qc6+1UUjLJ4b
PLDeWm15Z5RXz3DLu6f2Ku+W5TujveCWl03tVTwJy5dHe5WvxvIJ0l5wy2Ol
9oJbvie1F9zyIqm94JYnSONC9+4tD2xozzPZRZafKLTnmazlXXX2NpM1fyAX
2ttMlnx5ob3NZMknGNrbDHnKcqG9zZC3Kxfa2wz5rZy9zZAHytnbDHmRnL3N
kA9IPCjuteVvggdwyycrOww+x/JbYU907mp5vhhf2p+zPGjom+JGW/44eAa3
uG3iGdzy+olncMtzJ551bmz5LuEZ3PKgiWdwyxeWg2dwy6slnsEtz5R4Brf8
SuJZ94AsfxY8g1seXvGs+y+WXwyedb5ncbTgWXH4LA+d8ncabvFdxTO4xWsV
z9rXtHyR8AxueQPFM7jl0RPP4JZXTjyDW/418ax8ZUmeshw8g1veLvEMbvmq
xDP7IpaPWHxq38XyuMEnuOWZFZ+SY/n+4FP5kSxPInyCtwzyS/4qnLyc8Alu
8fTEJ7jlHxSf4JaPT3yCW9468Qlu+d3EJ7jlO8vBJ7jFW1a+K9b75CUh/5Pu
v1u+A/IkgZOnhjxD4OTrIR8POHHYyE8DTlw18peAk/+L/B/g5Lcif4be+1i8
F/JPgJPviTwN+q7lvSKfAbjlNVC+K923Mn7IC6V7qcYPeZV038r4If8QOPyQ
jwfc4iUq/4f2May95M8Ap73kmQCnveRjALe8DMpfxbqedpH/CZx2kSdJ7zms
XeQN0n6FtYt8HuDEzyHvhfZDrP7khwC3PBHKO8W6mHqSnwmcepKvCJx6kreJ
dR9yyGMEjhzyGOn+u5V/3vJA4H8SN5I8beDEpSQ/GTh5qcjjBU78HPJgKU+U
5a0gX5T8ectbQf4kcPJWkL/H4cqLA275cRQ3R++BjDfiQoKTv4Z49DpXMb0l
7jw48cHIV4e/Cm/kaQOHN/KZgcMb+cDA4Y28WeDwRh4p3fs23ohPBG75gBR/
E9zy6Si+Pzj5fYjXD275WZSnBJz8XOQt0z1ca1et5fcCp13ku9K5k7WLPAfg
5KkhPwE4+XrIN6C4yFZ/8qaAkz+LvGL4k9TzBcuzBW75p3Lk1wGnPuShAac+
5GUBJ58X+Wnwr5BDvhbF1zc55GvBT0DPiSuHPd/F8mWQbwPc8m4ofwa45dFQ
Hg7s58eW14O8GtqXtrwh5M8Atzwa0d2WbwP7dpHlJSGvBrjl11CeDHDLl6F8
G9g35k3ybYCTh4W8GuDEhSavBrjl11CeDO3T2vxLngzwWZZfhjwc2E/GO3oI
Tp4a8mGAk+cF/QS/wuKXMu6ww5ZfQ+MO3PJlKB8GuOXFkL3SPTXLy4O90j6M
5fEhrw92jDwaxFUHt/w+uREWR5LxTj4O8v2AW96fHHl9wC2/T448QIzHlpYf
hHw/4OQfId8P4+hBy2NCPh5w8rCQv0frO8vDsqXl6dG6zOwzeXrALV9Pjrw7
4MQLJe8O+CeWX4b8PYxTy+OTIx8PON8lH4/WHZa/hrw74MQLJe8O+KuWN4f8
PXpHZflxyMcDbnl5cuRHkX+b5EnJhfvzZZHlC47Im4Icy5+SW255U8AvtDwp
rAfB37S8w+RHAbc8Ke78okz5MsLzizLy3StuODh5N4ijDW55NJyc8miV5fUI
z0HKI8sL7+SUK04+cXLBibcf7ocsjCyPvNt/Xqh8KMgBtzwdTn6F4qMSV5fy
lo9DOOXJLwCu99OWz4X4ueDkfwHHnhD3lbi34ORHANf+sOWjIV6t3pdb/hrW
s9iTHS1fBnGodZ/F8mWQ/0D7tJaPA/0Et7zS7vyoLupheTrCc6I69vMlH5y8
EsSzBiceL3Lkt1ieEdbd8issjwlywMljQlxscMuz485TMsqTEp6nZJSfBTng
5NEAxy5ZXp4ccbQpT3xjcMpb/h3hsksW35h42cqTY/k+wBnXlk8nRzxr7UtY
vhvyiKC3lk9EeUTQT8YdcSfRQ+Z38ojofMf0H/uj/CGWf5y4sYprbvpM3hR4
sPwpua/Nv6L+2G3yo4BbnpQc+RiwD7dY3gR4wC5ZXgblSwC3vAmK56t1veWV
CO1VWdTC4pATF1j3LizeOHkXsBuWf8HZz3LFQyb/ATg8k1cA/GDLlxGeF5cr
rx9xhMHxr4gjDP4BcdotjwL6wP4AeRTAybuBfaZdlk/B2e0K8ikozwHlLd+B
OwdcGI2xuPTELwan/sQvBrc4xsqXoHNeqz/2HNzyIyifgfxM2zcgn4HGheWF
IW4seo78cF6ojiyOa3SM5S3gu8gnbwE490aw/zqPs3j+5MXB3mInyVMOPtjy
KWAnwV+y+OfkOcCudrN8BMwXlLd8BxF5d7CT5FlgvkCO5d/JkV8HHHsY3geo
I255jvjj4OTDIh+PziksrwTzhfIzWxz4vpZfBxz7QH4dcOwk9hz8fouHT7xy
cPxM4pWDEyd/C8vTg70iP8WX7l76LZZ3g/mIdlm+HuHKz2Dx9smvQ3naRX4d
ne9YHijy4oCT9yQ8969fR1seAeKqg9Ne4qqDW3z1HHl6lD/Z8psw34Fbvp4c
+XVoF3GPya8Dbnl2NN9hzy1fT468OMhHzueWnwbc8uPkwvs5ZdHyIL/Mr7Kr
GcubE/p7ZZHlX3D3HBZGe1jen9DfK48sz4LyMWA3LC+D8+sWRpZPQTjlLV+A
8iiAWz4F5WnAbjBf4AeCW34E5UUAx08m7wL2inU0eRfAyQ+IfQC3PAjKf6B7
I2afyX8ATrvIjwLOPtsoy48CbnlSZGewh5YnJUd+FHD28ciPovdklp+FfA/g
5FHl/EL3BywfGeMR3PKq6B6m7hdbfhn0Hztm+VbcvZ1M1vI+SM/1nt7y9ZB/
hXFheVjk1yHH8qcIp7zlT8mRf4VxYXlY5AeCW36THHlNwC2/SY68KYxHy5+S
w28Bt7wnOfKdgGNPyHcCbnlPcuTBYtxZPizlnWJ8oZ/knQK3/FPKz8T4Yp/q
5HfbtY39DfSffBDlhx7dufC+nOU70H4selh3b3Ifb/f1Ny0uxJEz4qbbf4vP
d5DfwuSwj42+7Wz3miqPGvdUvE+l/CQmh/ld+mn5FMgzhB5aviHlt0PfmEfI
P6f8crZeIK8b+mP53XIdKo8s3bZ+fkR/yPvw4PqTvi+089au3OLav7aIzwUo
T96H4XYeR//ua/kvLv/3/86K9591vmlyBt/50X2F+ycHmBzyDetdsuXpOND8
c3C+G96vq4t+TvJTRIstTzx6NdHyL4R2uyxa9O7edfG7gNAOl0e7V1Y+OqTp
imii7Q/r/YrloQjX4wujM1uPaTPivhRHr46bPv/b2N/7913dexXqW7fap/Lz
AvnIwTlfO8T2q8FPsXwZ2GH0bbdWKxu9fEml8nyjn+zn4y+hVw8e/sFv19+7
MveJ7SuCY4fPGPJ19zgPB3j73k98FedNwM8ERz52D/1cuKR5Lo6TjH2jX5Z9
fvGpcbxKzsXQz0/s3B87Bl75+oh5cfzPU+18Db1tZvkpsGPgVfdXXVGIo5+H
dhozPb6f38nWX3rnYfXfb4/lT8V6Bd7K8mVg39DPeywPxSuWD0bv9Qc8Whbz
Vmn78+B2LpNrbOs48C1OT/J0sD5SfIX5vxwRv3c41c4FlD/E+uWebr9fG+/n
a/3+8Y7ZuD68Z0afn7d42rx7Ad/K4nPyjgWceOO8PwEn7jrvRsCJS8/7N52b
Wxxg3leAE6+e9xLgx1r8dt5rgU+3OOe8kwQfbvHAw/aWK6542N5yxdkO21se
DbH4rmF7yxV/PmxvueLzh+0tV14D3huD8948bG+54tKH7S3nvYxrb70ci3Oe
/J2+C/i3xfGAB+wPcdfhQefgFr8UHsCJSw8P4BYnWTyAk78AHsDJ+wAP4OTv
CO+zLYzI9wEPkm/x6uEBnLju8AA+2+Kch/pQobj0oT5U6L1SqA8Vitsf6kNF
1M/iJIf6UBENtnjRoT5UKC9GqA8VijcerjsqFI+d99jgvMMN9aHCxbFP7+03
DeSk9/aJ2w8P4E9a/Ft4ACevATzIn7E40vCgecfiacMDOHlDFH/f8DBfTHpv
f07Qj+m9/ebW77wHA0dPsDPgvFNm3IETvwV9AyceCzyDTwjiBqT39i1usBt3
6bvdcNxVE2/Bjbtq5ZUIx1218muE465a+UfCcVetvC3huKtWXKBw3FUrXwA8
g5NPQXHn8W/NLsEzOHYMnsF59xqO62rF0wjHdbXez4bjulrvweEZf4P3/spP
Yzj5O+ATnHjp8AlO3Hj4VB4ni6sPn+DnB3mU0nv75GWAT3DyVsCn8mDbvAaf
4OQxgU9w5k341D1/e28On+DEI4JPxS2weC/op+IKW3wY5aEhf6DF7Yc3cOLw
wxs4eQrgDfy5IC56em+fPBfwBo7fAm/g+CeK+284/gm8geOfwBs4/kloD+vQ
N2ff6hR/I7RvdXrfGtq3OuWzCO1bnfND0nv7+C2hfauTfxLatzr5J6F9q5N/
Etq3OvknoX2rk38CD/jblgdE7dV9AIvPT3vBdw/i2Kf39mcE/kZ6b58487QX
nDj8tBf8aPNDaC84eRloLzh5K2ivzgEDPyS9tz/0D+15RnH4Q3ueUVz60N5m
smE8mfTefuhvpPf28U9Ce5tRnoLQ3may+CGhvc1k8UNCe5tRXo/Q3mayoR+S
3tvf1vkPuo9h/QsPyn/u/Enw1oGepPf2iQvB+AInnhX6Bk68LHhWfKMgHkV6
b/+pwJ9J7+2TBwGewckTAc+qv/k58Ay+r/k58AxOXhV4Bj8/8HPSe/uznL/K
enC62Q14Br/drV/A9w/sT3pvH3uluCeGW7wI8Qxu8aPEM/glQfyH9N5+aCfT
e/uzzP+BZ/C15ufAM/gn5ufAs+K4JvZNPIO/ZX4OPIPvHPg56b39W936SPdk
bD6CT/CpwfyV3ts/yuY7+FTeTpsf4RPc4sCIT/DZQR6ldF/U4uyJT+WRNj8H
PsF3MD8HPsEXm58Dn+CTzc9RPhXDZ5qfA586T+9U6Oek9/Y3Wp5B4qmxHie+
LvkJwIkzTHx/cOItEx8fnPjSxJEHJx4F8dbBiYtC/CmPE2fKyyGOAzhxM4j3
BE4+BeJ1gpM/gric4MTbJG8E63T4IZ8BOPyQDwAcfoibDw4/xJcHp13Et/I4
8UzBaS/xScFpL3FIwWkv+SFYd9Mu8iuA0y7yEIDTLuKp6f6V1Yd4rODUn/iq
4NSf+Fbg1J84UKyLBwb9kt7bp57EV9I5nckhLwLrPuQQ3wQcOcSVY/0S9nt6
P5+4N4wXcOKEMF50f97ikDBewIkLzXiRP2xxoRkv4MSFZrwo3rzVk/ECTrsY
L/LzjR/GCzj9yHgBpx8ZL44HjQv8UnhgXIDDA+MCHB4YF+DwQPwXcNrLeAGn
vYwXcNrLeAGnvYwXcNpLvGn8TNpFnGhw2kUcQ8V9tHYRLwmc+jNewKk/4wWc
+jNewKk/cbjwA5FPvC1w5BMPCxz5xM/Cz0EO8ZjAkUO8cuZryhOfGrtKfHLi
SYETn5z8FrpHavEniU8NThxv4gR5nPhEOpe3uJTEtwLnu8ShBqee4NgH9Jx+
BKc8/QiOfPj0cuhfcPZb0FvsD+1Cbz2O3oLDG+OXfQPqw/jVfovVnziAjGvi
VBOPFZx418QfZLwQ75r48uDEzSaOvMeJ24U+H2hxGol/qvWmfZc48uAWN164
3neYfSb+GjjlGdfgyCcuvJfDeAcnvhnx5RU32tpFvPgwL3RVjnjx4BY3Pkdc
eL3Pte8SFx78XouHRnx5/DqLM58jXjy4xY3P0b+MO/Yrwv3nsqipxfcm/jhy
yLOwwd1Lv9TWNax3wOssfjhxxsF/eSfcz+S77GuF++dl2gcjHiI4+8DEOQVn
HziUU679SfxwcPYzQzkpTvzEzcnBbvDdcL2/UPVEDjjtkv3lPNp4AMc+gGPn
td9uckL7n+7HhvY/3b8Fxw5Qf+YFcOrP+kv3amwdRFxRcPYBiJusc+Qgrnh6
zzzs9/SeOXELw3ONOsXXRb7HiU+6OTnYjXBfIr1nHu5jpPYnzJ+b3jMP8w6n
98PB8WP1XsbkgDOuLc58Dv9W62VrF7jiAVv98XvBLQ58jjh06IniYNt/bj85
x/wOrnj1Fk+Q+rPPMHUz9q2f/fswv31Vjrjh4LQLf5vxFZ6XpfeIOA8izjI4
9SSeIDjzfjjey7TfTrxCcMYL8ZoZj5yPhPanXPN1V8tL5P2W8Nw8LY+dQX6V
iyuu81aLE44/D057w/3DheIH/wQcfwP/H5z64BehJ/i92Ctw4orTXuxJGH84
U3Tug155+fix4PCMHdM9Fju/I547dgP9IU4rOHGeGe+KO2T7OcR7Bcc+EJcZ
u2H7xrKHer9sPBNHnn5bGezXpfeo8RPIpwhO/OrwfLZO8cCxb8i3OMY54sWD
Mx7Z1wL/zfZp8X/A8SuIPwvOviJ+F+OdONjYQ3DThxxx5LEDlCeOPPhdQXza
9F4x8TOJC4981lmsp8ArjGfsp+7V2H4y8dyRj5x2Fs9d9tb2+cPz/TLpub9X
jD6H/kCZ9DM8F1gonHHh5YTz9UJ9l7ilfl3AfA2O3SAOMjh2LFzfpee5+O06
dzZ+iBsOzjkI+sx4DPf/0/u66BVxw8HRZ+rpymu/XXEDjAf0DZzzAvwE9HZi
cI6Q3tdFr9ATvVs3vSX+OHqF/jPPgjPuiBsOzr468cfRK4tDrnkZHDuwwfn5
Fvc7R5xx9Bk+iTOud6D2XeYjzbNJnPAc8cG9HOKDg99i9WEfD31GT5gf/TzC
vhM4+sY8pX02i1/NOtTj7DuhD3yXdTQ45bH/4MSFZh5BT5S/w+y8t3vk59B5
pfGJXdW+h8k/2Nkx8Cts/UV56kM+DHi+3ng+1tab4MjZzq3vkPM+cevo31NN
n83/AQ/jfqf3ZrEz2BP6l3k2tEtlUSeLp41dwl51TvKSR+/bPgb9zrlzuL5Y
GJ2U5HmX/dH6xeJUsz+AnWHfjPmO/iVeNPsP4Ngr8kxrf8PiP+MPKK+vySdv
sdYdQT6O9L6r8SC7AZ/kZ2d/AP2ZZudl2A3wEy3fPXZA6wKLL03+VHDqSR5W
vYu380HGO3rSw9q7l5vvrjN+yGOquBYmv4e1B7yZnWvjl6JX3xn/5CMBh/8p
ts+W5q9O6tPH7nujV7xzTN6LTdZ8SpyZI/P3nCf4eEG55/NxQmb7+EK5g+x+
Lzjv9ZJ3HON83B57pzbTx/mx91MLfFygXBKXaaNw4hGNtndz6DP3pd+yeAvg
fPcci7fg4gJZPJnlPo5QrrpVdnSsD05O1O7lPYbEPLvvRsR/YBzx3YS3ZcL5
bvLec7WPR5RL4jht9OWjx/Lvdn/z8i2+U3qvjPok73OXatxRnyTOySrh1OfQ
/LvX6nScWn3e2/fJL+L5y+HR+jeufzXWQycn2uOJNp/G6z733ejYOY+/Hds9
8IzV8017l8S4tvhguT3z7wE3pecUVp+xXSuqxtTrp+7D2HvAOz7ce1ash5pf
rF3jjykZE8+b4B1Nzuj8O6lxsrv2LiDXN//uI30XifxF46b2zOddNtziKeX2
tne74L3su29b/BZwi3uTW9vo9LPm1est9sTieuUafNVpWvwuQPlnrT6DLM4M
+GH23Ystzgy4xeHJ3W1xZly8ndzF/eP3XCNlZyxOWm5I/l3MNOHU58v8+4X5
aX4qq8/OFg9HeZmsPofbu2lw6tOtV9eN8Xs3cOrTYukrB7Wun0ewVwdZfVqt
2XXE2/XzBTj1adZ/8g7D6/UZ3OKM5b6w9+Pa57R3AcvtfQo4vDW+rPX4eB8G
nP5q8/rDo2J/GLyT1ZO4TIz3xZ1/qv35kjXRxp3O3jnmFxy7OmzoggHxv9d6
NokvHWFn0EOTk9uR81HTk9OTuD25u6/aaXHh/rm9+8t9m38nkvq3Fm8n1zHI
M1gWPZTEJ1F9GHfUc+98HKF0v6hh359q4u82uve6E9P8QeVRaYJH3YdMfaNw
PwQ5L1j9dE698573xe2lnbKT9g60x26lL8T8Ux97fxHNsHhr4KMsXjfvCuGT
uLjH3XDlpsJ9A+JXYG+xG0vad+gar+u75Mun62LeET8+4PapsT3UfRLDX7K4
heDfn/Zc44n19bln4u4nxnYSnr9N8Oiq22ftGPtj1J+4IoPy79nTdcrVJ5+R
fy92v8nR/RPrx5fv+nxsoT9/ZVI+6nftmn6F717b2rs24tfx3ZrkfVZuwail
1/Up8LeRf0x+fk/fR4OfbuOUfp++8YMt4/2WtROrHorrJ/23d7g9LP4b8w55
AYiPR33OtTjqzEf0F3GbW9s8SH/1tji9Zfk4GKk/v83kC/LvnVkXU0/O31mP
wBvn1OwvgVOefUt/L4L1NTxzXow/DI581sXgyA/3Jyt0rs16XP6G+YH4z+B8
l/xG4Hy3qZ2vgfNd9kvBOUfmHBac+nAOSD/yXfbHwPnuGba+Bue7nBeDcx7N
eTE49eG8GJz6sC5Af6jPybbvLbth9SG/Fzj14bxb61Y7B+e8G5x6sl8NTj1Z
r4FTz8Nt/wq95bsfmx4y7th/G2X6pnjdVv85tq4HR87hpoeMU/Kh7296BQ4/
4T52RvLDc66M5P9qesj4Ig8757+K/2zfnWr6o7yXVp79asUfsO9yXg/Od2+y
/S7sMHnhp9o6VPc2Tf6Hpp/g1Odo0x/FVbbyp9p+uOIYmPwL8+fFqR9Cfcbb
elb3+qx8T1u3glMf8kKBU58Npj/gjOutTX90H9Lk7GXnQdovte8eavty4NQT
Hhm/nEeQr0tx+y0PaXe3D8Z+SyfnJ/DeDRw9R/5Lbn5Hvp/f2d/gnAs52FXu
a+m9hq3T2Yek/uxj/N3GOzwwjsi7qXnZ5GAHaBdy2Cfhu+yP9TR98Odc8ODb
xb0y5Kyx+7fYQ+xAeF+9XPWxfAqab8DJ98E8AU6+FeoBTr4b7CY4+YDCvNtl
0TtHrM7fPw/zpZZFbZ7e9GQsv7PThxvNbwzrWa48GmE9y1X/sJ7lqn9Yz3LV
P6xnefT6SZ+2f+02n9e1PBpt9Q/rWR7tbfXfNfCfF6qemv8Mv8HqqXnIcOop
u2+4r6fOEcy/1b4M54BWz5CHCtUn5KFC9QnzSlcU8YY85FAe/HonR+/jXH8p
v+Ix7efG+2n8e3DyIPDvwastT4Tedxlu9Vc+NXC+i30A7xvwnxFOe+FZ8YeN
f/RBfqPpeWdn92769853xf3izx2+OWH9e4X5NME//PtFR9XrWy7kuU48hDzX
iYfQ7tVFrwX9mxFOv4R2W3LULt2rtPb6+ww/jH3z3Pg+gOwyvAb9ldH9w/es
PnqHb3h/q4/uB5Dvw+qjfW3OcVx9+I7Flc2F4yKj7yIfnO+G4yWTXe94QB5y
lEcV/8HJ4d99FOh5mbdXOd2Pt3FKnhfdCw/tRi6Uo/Ho7HmF5IR2UuM9h16C
Y5+Rjz6ib5qHDEffkO/GuztfW1P0XSc/zX9juOXjKJrHidfk7zuZHkYhb9XO
biwUHvJWIfz6wG6s8fZK9QevDubBOv9dd0+jOmpm7fL3H2gX9de6YNKfo9QO
LBQe9kua35526T224aE+pOsR3y7wG4J5s87LV7tkd4N5P12PoFdhv9cVfVfr
EWe3wV/7w/GSyf7wt1ar4vdfYb9kstUBD3XCbzT5Yb/IPki+8s4k86b0H7zc
vot88HXODoP3D/jPeHui72I3zP/RdxWXyeqDPiivrNVH9zMMXx+M03TdQX10
nm14WJ9y2TPzZ/Rd3csK+Enz0M5x/ICv/f6NdrE+K3+x4RPdfAFO/aknOPWn
3uBmb/Vd2rHN8OjXeD8w1IeF0YMW39jfp6J86AdWRIcel7k8Lh/Oj2uiwwzn
e8g7PMGd/ckI599rHyn5rsYpOHlewPn+1lYe/YGHmy3+c8hDmepJ/WjXXLOf
4TlvGqed7ymOq/HW2a3LrD76HuNym6Ce5cKNf2dvM/IraC/fMf6L1pv0Vzi/
VwunfsiBt9C/LS+yV7QDOaGdWSi7HfJZHln/Ft3XPczpDzz3T+JDqn6061bD
aa/iL9l3w/L1/ezmcep1h8WfDOfxuijUt4XC6ZdwPs1kbzM5undo8r3eUn6K
+bf+Hpe1tyg/MvmhaD/tMx5k5/UO1PJ2jXX3H0pNTti/9etZ88PD/iqLjJ+i
+1e3Of5pn9d/8EMDO1Amf4D8YvBGfU1/iu4DH+bsg86zDKdd4NiHUG/LZd9C
O1Ah/aGeOvcM6lOmf3eYs2PUM9SH9H7IJZVd43WcG48LI5sX3Hq5IpptOHzR
P+Yv5cL1Y0b52hTf1urzsc0j1Fv7bIG/lPrhX1s8Cu+HE7fB++HfuPLUnzhL
3g9HjvfDkeP9cOIjeT+ceALeD+e73g8P65/64f67epdkcQC8H+7rQ//w7t77
1SEPqV9Nfbxf7esDTlwg71dTT+9XPxXUM/WHqY/3h8N+Sf1hXx9w4ud4f5h6
en+YuEzeH4ZP7w9/7b6LvJsD3lJ/+LM/1NuM4nh4f3hmwEPqD8OD94dnOfmM
r22dHvo4DH48Ut77ycZbkZ88MOiX1E/29dE5qRt34IwX7yc/6eoJPsxwbzeI
++H96h+CcZf61fda/b1f7euvfQJnZxQP0I1r8D8F/Kf+9hNWf+9X7xDwkPrV
1N/71fDv/eqw/um+MXGQ/L4x48XvG4fjOp0nGdd+f9j6sWh/eLrJ8fvA1Mfv
A4fjN/XT5wRy0n1g6uP9Q8av3we2finaB/7O5Pt9YOrp94Gpp98Hpp5+H3hb
xw+46UPRPvBWgZ1P94HDfkz3gamP3wemPn4ef9y+6/eHke/3h718zSOOH60j
An1O94GxA34f+A5nP1Xe5Pt94DsC/tN9YNrr94G3C+x8uk9LPf0+7Sxn97QP
HPCf7tPCj9+nLbf6+H3aHZwegj/j+oXvYzf8/u3Wzm6A/2j19Pu391s9/f7t
PKcn4Du58cV3sM9+/5bv+v1bvuv3b+c5fpCHHL9/6+Xw7350esK4XkZctc28
w9rceahfRyDHr1sp79dlvL/z6wJwf152g7XLrwt4R+nXL+De/0e+X3csc7h/
x+f3B8J2Fb8H9Ouy3+x80+9jUE+/Lqa8P5cZFuh/uv7aZO8+/L6E5xN8tJ0v
+/Up70dC+1lW5O/xfc5tN3d+7feXljo9ob3LXH/pPZerD9+hv/y+ypJAr9L9
saVOz6mP8Va034V8vx6nPv5cddoeRx0Tn6v6fY9fnXzZiaR80X74NoGfWbDP
Z+X9PuRMw/8frGRvoQ==
    "], {{
      {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[{Polygon3DBox[CompressedData["
1:eJw1mwX4FcX3xnevd1dmYb+kgoSUhCiIgYLdYgd2d7f+7E5ExQALRQxCBVTE
BguRMlDEAAxCQFpBVFT0/3545/88d55z9uzs7OzuzIn3nNv61IsOu7CSJEnt
LEnWE60VkqS+6A467pcmyTZqq3T8XpEks8S/I/qwaDe13yR/W8ffin9T9HjR
tmqLJH9QdCu1leJL3eBR8avFNy01tvgD1X+eaHe1NZI/Fvnfxbcqfe2+6jNH
dLban5J/LNpG7Wfxr4u+oZapva65fiLZpqKV2kkyRrLndO3Bom+rTdG5G/Mk
mSS6Wn1ukWw9zamTjj8Q/77aLPGd1KdgPurzvto3km0t+nLwtS00r5HqE5iP
5AfEOYzRuYPivdZX6617by96gOiZhd/hfqLP6pqX1HcD0cGMK35D0SFqo8Q3
Fn1G7UXxjUTfyj3Pz8Q/qOuHSX6b5rKx5KnGXCr582qvS95MdJD6XKFzdWuS
ZBPxyyX7R3NuK/459flI9Mf47f7QcUOday1+R8n3oj8y0fsk20LtFx0Xuv8D
4n8Vf3Xhdz9ddHe1JXxb0VFqy8TXF/1UfT9RW6zjPXW8VLSu6D2SdVFboeNX
C4+9gehdkm2W+vrdCq+dRppXL8lqq83U8Yd6ju9FtxM9VrJj1H7S8ZPVJNlI
dIrkx0nWSq0J44pupFajNrBq2WT1OVrHzdVqJR6nhZpeZ3JR7F9X/Faaw8ai
E3RiG/H1JN9a9ELGVtMvOT31Gv5b/N8aV687Gar7XCxZU7Uv+ZaizdQaMN/C
32ug6JFq/+n8I6Kfq62R/DPRx9UYvIOefcM4DvdeqrZH6nPcv5FaHbVL4vhz
eC+6trHo+8H7lv37gOYzTuePiO/x3Hh9yR5Wn+nq0zXzcZM45ngd/yB59/iu
jlKbx7rR8Y+iPUTP5/1I3kN0go5nS7696EU6bin59qI7qS2Q/FLRian7z9fx
JYXptMLfi/70myw6SW2h+Lf0DF+I/qsxP5LsSLW5Ov5C11wm/jzRC+Kz//87
bhjfczedG5/4e50f3yHv8rz4fVkXqfYH+u4vjZ/knv9/rC9dM0jn7xF9Qcdv
SN5c9KfUe/mvOCfmtgXvSf2elryv6APB++sx9jh7lr2jPqN5BsnbiXaQvBb7
LvO86sfvOyaO2QX9K921V8W6620dfy55Z9GN1d4Rf5PGeEnX7Kw+A3W8LDcN
7HPeu+S/ay6LJX9C8kWiSyKPbM+Kxx/Le9Y1U0U3Fx0aPH61tvVhz4p14s+6
5l7J12otXSr+ecku5zlqu8/6om/q+s/UZzPmqbV7s87PF31Dx5+iU0XfVftK
/Jaima7Zu+J7vafjr9lzmWX7VKzH/9Wz7Cp+rea1R8XzZs4j4nvgfSzi21a8
l/hum4h/UrS9aAe1ppK3rVh+p/in9QzN0DGa3xXYEcn/x5pDZ0nWSJt4EbZN
fX7TfVtX3IdtOVXnNd1kJ9Euhb/jx6I/qU2WfJT6v4U+qfj4ZdZbxe99ha4Z
Ibpc9JfII0tr+9kYeHO9r+vQKxrnWY35iq4fLHpgHDMX3bSwrZss+omub8L8
RS/SuzhB136r51sW71sRHc36F/+Wzu0bedblGWq7qv3L95BsK7XjxX+nsfYT
nSX6gMa8n32hMVuio8UfLNpZ87wHfYkN0nFv8ReKP1/XPIuOEd1IfW6X/ALJ
H8tt2+dqvMewT9gTbJnaA+IT0edyPx92+S61m3n/uu8A8U8l9kta6V59xB8i
OpL1JL6l6NO6x5vsU93zNR1PFN9B9FW1CeLbM0Zmu1kf24tdF98a26v2gfg2
om00h6rmsFL8wxpzZOLvcp3kr0l+rWjb3O9/FfZZ7T11aSX6OPMQXyfz3mCP
XCbaRnN9TPJeotfq3AXif9JznRPfFe/sJ7XrJf9V8oewM/oW/dE1+A/il2ku
fxSW/y76jfpvr/5f5/5OfK+Z8Z47VLxXtxDtora/+Bk6twN2oepvNx9dUPr+
3Su+N2tvDt9ctFnu/bRI822t+z2K7RW9V+0R7L/m0z63j/O7+oxN7Wt9rHNP
iG6rMR8XnZ37eefrvmt07XaSz9a1TXSPY3RuYul3QZ+Tddyt4mvP1/E2FR/D
vxD3OGtuATZE7R/x/TTmWr6vxulQ+NsdLzq08Pf6T7RZYV8Sv6td4bV/rOid
hf2ZWaJNC/uk+Jl8L/bEEYwnXbCH5vU/rhN/NPqrjt/J2nj/ttFeY7cz9dmf
bym+UWEfZ2/RW7if+qwQXVjavuaiP5e2qeuLLiptR2uJLijt62Sid/DeWW/4
yaV15XqiTQr71D0L++L45N+JblTYT8cPb1zYX9sHHVXal62Kzi2tiyuitXSu
g/rswHNo/ttp/meL74T/oraPxKML8/iEfXV+X8kOzS2fJvlu+qZB32d66rW4
gcbtqfN3iR6qc0dJ9rr69pPsGPGHi36beW4PiH+DNZ26T65xPk+9vv/V9dPV
rxDdsrBvgl/TqbCuOEG01JyflmyVvkuN+Is1Xn98bd23t/p8LX5P8X3FzxC/
eeF1e6Joof6P6NoVdex74YP9LDqssB6fL7pFYT//JNGuheOCk0UfCo495omf
U9pOp6KzSuuXvzXmzNI64i/x00rrsl/Ff1laH60UP720r/+b+I/EXyl+vviv
SscJq8V/XloXLxc/XvwV+CPi3xB/uviZ4seJv1T8XPEfiv+f+Hnivyitc38R
/7r4U8XPEP916djjd55d/C3il4hvpndyO36enm9D8buLHye+sfiDxH8ifg3f
Q++5vuhUtVslX6prPxZ/g/ifxX8i/ibss/hP8QfELxY/gTXM98dmYu8kXyD5
FPHXi18o/jXxJ4j/Vvyr4o8X/4340eKPw1cQv1T8XrljhOVqX2eOI5aJ/yJz
DLJa/G7od815hfiJuXXFX2q34etJ/kO0Gf9qzNml/aFE9LvSfts/kn9f2pas
Ff9jaV/nP/G/iJ+S21f/lSZ5e913Rmn7tEZ9XhF/GH62+FHsB/Ffin9T/Bni
Z4n/pnT89of4t8SfKf478WPEn4ePKf4D8ZeInyP+29K+6Z/i79ca/F7tCk17
rOTn8+0kf1/8xeJni39b/Fk8r/iT9cxnYQs0z+8z671HcseCxITn6ngh+yC1
jpuQW9/+Ij29S5TjB+AL4xNfnVi2MMp7pI7VidMH6Nor0QeizUr7BY+Ljssd
y8/TmKfFcfCrP9Cc7mA8zXEi+lPyB8XvnFrvo/ObSz/8mtp/OiCz7npJ41yN
vle7KrXftCp1rD6B61LHRfPjONcmjiGQX5o6jlybOpYcqrkNFx0i+mruMUeL
foldSB2zjMrd/2XRFZltCv7+kHgtsfeyzP5XS/HviR6eWnd8HP3GzoVxArAJ
9NE5Oj4k6pYTo47aTPRd0cNS66B3Uvfh+uMKj/90YZ8OP2+9aP+wg6zDTwuP
j+6aHP3GjqKviu6fuh+4BfgF537ObPex/0/xrRL7MNhe/GzsL3HoktQ+DfHo
0sgviTy2EN8THxS/F78VXYq+vo7z0SfnWcZGn2FsfDaei9iH4yHB62qXuA6v
0rxvEH+N6DGa53aMoe9+aOp3xPsZx76RfFt8v+AYgtjksNhnho7vxG/BT6ka
W3gvfhdiGeKOXHRKaowJjIO4dUJcP6fGPQJmcni8FlwCfAas4xWN+YLmt6Fk
7+n+H2TGk7plxs2+Yx6iL6lNTY2ZnJxaDoY2M7UdP078bfm6sDQZoDH7R7uJ
/bwws5/+TdXjfKb+W+KPpR6T99IOW6++raWzxxYed0zhOYLLbEqfyC9OjKXx
vOyl3zJ/K/zxKYX30TMaf3hufOuF3A0ef/gT/Ku4nlvq/a1OHaPxbv9KjTm8
lvu7f5w5fv87NUYBBgNPXA8GQv+pom/yjtW+TexXronrBFyPb0qcBl4FXgBW
wNynxPkP1/XtkQXjDRPjt5sQ+fmJ5wPOMKhqyjjgR8RvxG1t0PHgA5rzG1FX
odPOS7z/3onzwUefHeWtanzNJrp2sugGuvYi9k5hjAusqzXvLjEeV5YRtxPd
JHd8RtzB3txP7W0dz9Y1e4k/SvSswvFbP82xTmnf/FnRmZn9wHq51yZrFB0+
OniOU6N+4FrucUbh9cU6BIvaM/U+Xy66d+Tb5b4/MQ77l/iT99KgNP+sxu6Y
W4b/f2bqeQ7gG+XGWcE32HOHxn33ZOHxj+Y9lH7G/sF7qFfcR5vl/uZgquhG
sFTGOl3XnCT+NNGdUuNuYG6bpMaawQrB8MDy0OEdRE9Q654YCwRjAl9qGXlw
wLbx2o7iF4vurnY3+kLPu3lqnxWssjNzZu8Xlu+uOdfK/KyLM9subBh28Jg4
B7BE1jSYFRgjcTbxdp/EeCHzvwadmfkbgOPuFvsQe3TOPcYknd889/sDiz6l
8HOBo4LJHR3H75Ibn8AeNY9y8Dp8Z2KQOpLfKf4ibLvW/KPi++JfV43ZE18c
mzg+IU65WXSsrrmd9181vgu/t+iBmd/Zy5IflBvXrZUbawFzuVb9dibOkPzh
quXo/aZRX6Of2FM7Zc4z9Jdsx8xY3IP4A5nvM1n8TZrHbbr2RtGX1W4WPz14
Lb2YGkd9Qm1Easxtn9Ry9hjYyEjxDYm51Y6U7CuNeW0wVgY+dnxuv+lE0RsK
5wOuKxzDoRf3Fe1UsbxT7Ef/HzTeFYWf6/LCNgnbdGXheBGdtHtuPBtcm3ip
d+TBt29Tvz7iby2Mr4Ozo9/B3e9OPVd8ZPivNedNS8cvxDGrYjx4e+Hr+sZr
WaesV753l8izbq9if4rOqbov16CPmEvvODdyLORpzhb/S2E58RPxHOuBmG7r
1HkgYsstY3/0ztG5x5+ROb9Bn3N0fESwnQKvKNSnp/hpmXEMsKbVvLfM8T1+
4NWZ9ehc8UHP+yX6A9+88LPtofEOC34m9MAonX9F/EaZY8N64gP4q44How8z
43ZgfOyNYehL0bqiFxbW98QFxPTbih9btR+JDcHfw5/El8SWXKz+3dA3wWO2
jpgh/iN+JPZlQGEcrm2NcQbWILp6kMZ/SHwmOkjnh6a2C3cE+7D/BGNH4GCp
6FC1Z8TXiD6h9iCmU3SgWj/x62XGN8CmwKjAPfA50aXkj54WX4o+qdZffFX0
3MJ+LjYRjJ8cQJoYCwcTJ99RVZ+JxFCaf15YR3bHZyz8fOQWWup7bMD4GueC
+A55l8Q0W2BX9f46lt4rG6nPZYV9DfZIKKw3yDH14puhB6qOjbqKf138PuJb
i39efD2N00J8fY2zt+StxD9XNWYOpk9uZYfcvhbz3i7aHewPz0iehhxJj9iH
vuQIyBnMScyTOyFnsLiwfqrRve6MuB+Y866Z3wO5I94V+aG6qedAjgfsfnhm
7LFFZr8XzBe/HFuHbseeglei+xdj7zRWD/GfoyPVv2NqjIW4hDiH2AQ9j3yr
YFuxU7QXK6o+/1NmW7FbtCl/V00XsNYK27LDRQ8qjHkv0jj/VG3fFrKvqraN
U9lDfCP131p96ubeX99kzvd1TR0r1uS2h19l3vdbRl2B/4gfyTfGDnSKz4Jd
xTbzvUdVff5TXdu2tHwX3fPawtfuSsyXeg7oiB8LPxd4aYPc95+V2T8mRsW3
Ib9ATuG14LzJB+LbinaLfgv+y1hwC/ZsZrwIOX7LZ7lzG7fkxnPwkfCVwIHJ
vTZBH0g+Tfzb+JAV+6L4pGBBrLFXJH9F/UaLb5oZU8IfHhzs75Jrw59pmPs9
fZdZL24ddSM6Dl03W/LlVX/beZnz49umjpnJg2+HDkrsexJXcw04evcob4Ff
ndoP2SDG2j/iJwTfF3xm/8Ljg3UQo+GXEq/h9w2P63NCYex4dTDecLhkX2pe
Z4s/lLUqvmuwnsTGgTEcIX561fgfdgubBcZwCOuqagzjYPGfVb2WWR+sDeIV
/AlsPNjVgaKfVI1L7SV+Evo/t53EXuyX2+6DJxaF5zBSdNfgMfAN8G9WxPX5
du7x18+NFe2MnteYtQv7Hqw98KRdxI+T/ETxu4kfj/6J9/r/e26qd7WZztUp
vF9Yq+BSu4r/sGrM7HLxS9BjuW0luCjxBPEJ+nGlrtlRdFvN9xz13533rf7t
gjFO/Jmz4xw+kvze3D7Pgbn9D/wQ8v5Z7nj0E/H7qjUU/0jUmeR5+4nvKb6B
+IfE57n9YvYdONNB8LyH3N8L+wouTV6gm+ZwCvZb/JiqfbuO8V5f5X4HoyU7
Wcdbsy/Enyt+D3Sv+JPEbyX+LfHtg8f8SrReYT33h9bhsewTyV9Vn5rCuuf3
0u8fW/Bm1Xjhpegr8TeKv0T8z1Vjihcn9l3Jz9arWKf1zYw5/VX1vmH/gGfN
FV9T8X74SPNvIH587toT5I+kxqDqip+jMZaib8V/Ss45d37wWfzS1Pdiz5HX
qBvzEdi4aep3S2l8rKHk8zPngbnXU+z/wroLvI08A/qU466RB/v+QNfWqThW
H5x6HPJ/G5b+/u+IvhO/V+04/zI+F75nh+hvf1NYP4O1Nyi8d6jFACc+HZ1Q
Na58BjpH/CHB+xX/s0XUD+iJ5oXjmNN0vlHuvAn65K7CdqdPYayQd4wPfFKw
79c4YsD/ww5UjeMSayyoGt+9MHEOCAz4MvGLY56rf9RpRwbnLv8sjIeg69Hz
ZW5fFXsEnn0a96061l0Z7QL5A94l/mf93P4p+hYs/GT6qP8RuX1m8g776F4H
JMZDLkNX0l999s/s2zxeNc56kviZ4vcO1lG/FcZTT+Reku8nvhF6umo/EHwB
H2uvbB18nAyuOrdA7izPvEZZq6zDs3LHr01ExxfOwy3Vfe4T/0xqP6FHxWuC
9XB/Ydu9hLUkfkhq/oLcmOh5osNS+5bcj3wIdQgN4ppkPZKj3SVbl2pNHq06
TiRGrRXXId/j2Ny5Z+4J/n+5Oh+GHlb/zUo/+1GSj1ffD1PjaLUrxp/BoTfM
jY1h126M7/b7qvN9J8TvTD4OG3hqcN4NO4W9ql06PzygdA6wW8whYgOxhaxF
8nnk9YYUxi3Jv2B3wRLATcAzwZ/oAwbVpXQfcjXkhYitm4ruUnHtBDUUjxbO
Lz5cmMcmUpOzY8VyMM9nCvt1TxXGTbkX/kSziLuCq/QUHZXaF2f+6At0BXUH
1CXgh3WPz4LtvrtwnQI1Bn3i/voBfy83Bn6m6Km5cfRTcs+B8cF7O5XW5z3V
/5rc/id1JjWxvg79MDmuifUln1T4WYk1Los2/Yuq84P4e8RVTYP1PDoQ3x0f
nlxPr+iTv4DeyOyTDxNfzY2pUHN1sFpz8UOizkRfXhXXJesT3dg4N8Y/L84T
HY0eJr9Jjnqv4P3AvsC/PUqtnfgXNeaR4jcRP7JqHx1fnZzUulqt1PVdYPLE
ejuL7qn+dfhuVWP4YIN3oe+DdfuHouvlxgKpBztcrY344egK/FTxI6qO4dfh
i5nzucTKxKHUPazDwkXvjXpvGf511G/4A9Q23Cx+tfiHM9dCrEHvib8NXQeu
K/5W8X9UvU7axtqVfthmyX+X/Izg/Py6vHnhWL+X+PtzYwi9cq8P1gm2rJIb
+wE7uk/tBvErq8bwWc/g+9cEY/P4e72jbcXO3hP9GXT4ct1rs4rteJ9ol9Hb
d0W7jI2+I+p29PzFwXUH1Co0jXuNWIN8NNjS4cG2mDzRE6L3oyMkX0VslRvj
J37ZhJx75m9UqXEM9oU+5vqFY3HwXfBocOm5hWNz4nTy8gdKfir6XHRZnD/P
cVVpTOodya8sjT2NFX9t6bUyXvwVpXGoMeKvLq0r3w2uw2Gfcy904I+a6yTR
TXWuS+Jc5AHBuo69hS+LvXg49z79QfQ98pbB7w29yLOw9qiDu660zfhI57cI
xhnIzxI7Y9tfjLEz63Bn/JTgWJt8aKfg2Jk8KXl89iM1d9TcsN4WBtfMsAcP
K1yrwx6kVo34HQxjROH4t52ecQn2PbjulNzlIPGvJc6BPhpcs0ouG3+jVsU5
3AHBcRPx02PBtazkvvFbwFLfBVsr7ZtOBLsLrlMll9oxc63O1erzQnAcRzyH
T8J6pjYY3wM7MK5wDRL64dDoq2BrqK19KrhOjxzusOC6IPKzN5e261Mkez64
5occ/Y2lfehJkt1U2pZPBjsKrufBgI8MrtmjRuL84D27AB0Z7K/it5LvPUtz
2yZ3XRa5SeoByI2fIvlWoq2DfePPg+PTsyXfVrRVHAf9+nfMrZ6dOxeAjXk+
dw4RXP5p8W2Cfe8vRNsG++rT0GfBfvVnwTjP9uqbat80DtaZPFeTYF3KeyDP
eE7qGo8Ng3Ud76G5WmfxU/H9gnU+sQUYNfj+1hp3x2DbQbyyQbDO5JtSI8Ba
oi4OrL6r6H/ke4P12E/B9d6nod/Zf8F+xUz2RDAWvTwYg8InobbzvGDdOD84
diOWoS6YGJA4iBpk4jLioz1YG3HOvM8WwXgROfeNxbdMnHNvnjvu5VnA8Mlf
XiL+nGBdjW4D47pdsmvImQfrqLmiDYMxxmka51LWTeJ6jDODdeycYIwFrP/C
3DkacgTgMK1yY9ODc+d9nk+c0zk7jjMvGO/6R/e/vnSeqGdcV5tEnfAl+zK4
no36n9rBMSB67PbSNow1Rs0VdVbUcs3NXd81T/S+0jHbrOA6NOqr0GXUDVL/
h576u3DtKDWkj5a2begQcsDgA+AE1K31iGNSK9gV/0+0d2mbzTwX5K5DW5i7
Vm1zdEXuOjfq2ag/o450x9gHXU0tW7sa41fPpa7hIR4Hf5+eOy4jRiPuurO0
T8D6x1aguz6X/BC1zvFeX+aO37m2b+nYm/VGPTz4HPnzh0vbbNZYn2DsFAz1
ruCaQ2pj7hc/NHFtxkY1zsW+pWtvCMZswW6pUaBWYQ4xRVxL2P/rg+snqflp
XuNagRrd877gWkTqN64Tf1/i+pzewbWR1PyAQz6ZuC6of2k7zToZFH05fLqH
Sttm9hf/C8D/pw7qkdK2HH11f2k/Hpt4e3D9HnVH7WtcF/irrltbuM6Wett+
pXNFrPkHS9t41jZ1Lo3J4eJ3xHj+a/yg0rjAt7y/0v7NyuC88Aj13Vj3eaa0
D7QKPR1cb0zNG/gdOB51bk+V9od+lWxgad8FnUA9xko91zDRJ0v7DSskv6O0
r4Y+fBH/R31eEr2ttJ+KHtsm8383bpD81tJ+KnrypWC7Qy1cEYyZYPfrBMd0
+AmDSvthvwTj3cSG+APE5hl+UWGsCQx3DD54cJ029XvUw4GL0Yeao0bqM0n0
7tJYyTfYwOB6aeoAB5fOyf0RvAep1+5Q45ptYpWlueulV7EfJB9WGt//Kxir
J+dJvT1YPb4fNfn3lsZ0ZgTnHshBnJG7hpN4kJo3vjv1yB015tDSOYY1wfXJ
u4NR5K5PXsleUp8RpfMrJFSowUjV53WdG1I6V/Gnrh1eOtfyX3DNzCs631LX
vlA6t/EvdrZ0XuTv4LrrVhXX3VEzfIL6P1a6/oM6kAWSP1+4DoD/9IApgSXy
n5Kd1adXYp0GpgTux/9R9gvGIamFG1k6V5Ti7wTnU/imxE7EUNRHoYcvifr/
qtz1Q/gk4NU835LS+cFbU9d2EueCx56UO79P7SO1hQ30nNfn/n/QTcF5HN7J
/tFu4h+2qHGNRd3SNeTUTPCM5FnJsbKWiJXA/D/MHVcQXxyVu46auOnx3LEt
36d+vCf4NOucemj8H9YK9Xr4kNS67xuMx1I/xv8Q8G3WZs6PkidlX9cLjuPw
h8Ei8Edqa/wjc8f3zIH6Gf6P0Vv0hGB8ibpBvhH/S2hY47q8m9Rn79z5EfKz
z4i/IjiHxR6nRpQ8CPlWcsrXqM+u6nNlcN4KHXJiMGZFbeFVwWsYHXJl7nic
fQEeAS5BDSG5Y/KwfXLjb2AT1PcSQ+L/4Bs9VXVsiL2gZvAr9b9P/Eulcwbr
Fc71n5i67pTa1Ad1vome68XSuH8FPKB0Xgp/gDq6H8AScufEyWccjA0MxnXx
l/h/3IzUtqNHMP5MjV+t+H7B0LCz4PFgEbcE5zHZ4+SvwYTBhm+Mdgq7Q20P
cUZTjVGvxmuXGvjtgzFq6v1uFT8k8V4DHyN381Du+q5l0bfMa2w7yfuDH1KD
S93swcE4P/Wo1PLNi2uPfDQ2f/0ax1zswXW1puhjMBOdW1taL1NLQ30SuD+1
MXfnru+lz9HBOBs1n+A/dySuAaTGeHr8LgNz1549mTuXTcxL7Eut2uIoB6vc
NvrbBwXnL6iPJXdODp0YBF2xZ+JaSnAu8K7j0K/BeQdqJqkf4/8u/HeF3DT4
JHXqw4P/m0Ns0l38TolrbrsEY+DYPv4DQq6ImuE2Ncaml9Xx/32oY8EWUj+D
77+qdKzHfNDP5L4fjvMh900ejDqTDsG5A+zsE8H5LPTY5nFdEYMcH4yLUlvb
OTi/gH0hl0dtAb44dVy/pdY55FPBcIg3yetRK8D6piYHG7uy9H8b/4j2tEFw
foFYgP898f8q/idF/ow82q3YteAYEN9p3f/gUvuy4FcDU/v91BQTx1HnP1D9
P0y8j/hvHXrot9J1AtRMbJEbH8NehRrnUPgvA74KdaG/pPaj+H8oe+5P0ceD
40fiUP6/Sd1R99z14tSN8z8van4HRL1N7Qf4E/aG/7JdnhpnuDT6Y/gY2wXn
j6jRvTm4fgD7SC0reCy4LDgSNUbYOf6rSeyMvQSHAo/aRfTYYHyA2J//WqLn
FpfGaqhb2jF3Xpi6pQPEf1x1LhUdAn4Hjof/QI0BupSaF/53Vr/iNUaN85Xx
XuDD6+KPGteoXJ/6/wvHBOPh1GaT/20f9TP5WWqh9hR/T3BNBTaaHCjfmm9+
b3CuE5t+R278F/3fV8evJvYHLo/+MH4v9YfUflADAu4BJrMo+rr4tPg51DeC
IRNrjQjOt6J7qZkcF9fV/wEf9vh2
            "]], Polygon3DBox[CompressedData["
1:eJwtm3ngDeUXxud+u+9kxvd+E1kqKmvW9j2lfdG+7/uvfS+V9pW0KNIeRVQo
CRGRndCGrIlkTVkKIcLv+fS8f8z3+z5z3pl7Z+adc57znHPrXnvnuXeUJUmy
aIckKer/k3mSPFtIknPTJEkrkmR2liTHaf8EGV8oJUlV4b2ETwpJ8plwO83v
qPkXaP6Omj9H/1vohEdozmyNL5T9BNlra9xT8xfr/+GyP8JnarxJ9is0nqvz
T5J9s/CRsi+Travww/q8l2R/U5/XS7iz8BfCfYXnCK/X/DOEv9Pxo4RPl/1c
4TaydxJ+S3iU8KfCPwk/INxO+HXh94XfFh4t3F94nvCbwiOF+wnPFZ6h79FU
36ep9v2o8cuyD9G4j+yzZZ8rfILw1/r8jsKztf9P4X11zTtpfhvZnxLuov3v
yd5QuJnwTNka6n7NEz5PeLqOf1n2F3U97+nYG2R/W3iW7C1lHy3788Lnp77f
c7R10fineL3TZH9J9vE6foVs3WR7R3iO7MfLPlH2F4XXyN5c13Ok9j2l8X2y
P63xq/p+3WWvE3x/P9E5Ptb4ftmfEX5N4x6y/6NjDivzs+ssvE54X+HTNKe9
xvO0VRbupOOf1XgvHV9PtvN1fDvNby58gPBVwetpkfDjwmv1/boIVxHWv+RE
2R/h/uocmc7XWvtOkO1XbY9p/JfmvyL7TsLl2DT/YeEWwgcKXx18vXN0fCUd
f56+70ThkaxT4Ys0Z5bOMV3zVmncTN83l+1nzS+Xfb32faVxfZ2vocYXaV4H
Hf8b1yR7Zc3/XuPJOseJsj8mfJ3m7KP5BwlfE7weZmlOGt+Hg2T7QHiw5j6i
z9pZz3+mcJD9ZNmPlb2utvoaX6Dj2+v4cmENk1b686Bw5czv6dHCbYV/1fG1
dHwf7XtFtqmsK76fcHdNrKl91TU+TfOf1Pxlmr+n7CO07wPZlgrvITxU3+kj
jb/R8TXj+arpmJXa16TMa/8pHb+bjqkt21myPS08Tnh34R76rAa6nr15eDpX
Hc3/U+PqslfTrlM1/3Hef52vts73CWtKtkXCuwsPE35f+JzU/meGtpc0zrVP
rik5Ssc/oON3Ea4qfIrwY8J/6PhGOn437fudc8leR+OzZX9G9hrCuwi3Fn5C
+Cedc58yr9l5fEft30GfNUjbQ8KNNGer5u+q8RqNt+ucx2puP+37UOOjtP8+
za2rfT9oPEnHL2Z9aF8L3lndhx2Fxwk/I7yDjpmOP9C8/jrfx/o+Y4VHRLxZ
/8s1dxdtBd5Z2QfKPkD7+8neVXiQ8EDhT/k++l9Vc6tpSzT/qPh+3xLsP/7R
/1y287U1l32m8BrZ9xGuEF6uraW++4uJfew62YNsp2trKDxX+C/ZOgtfLPyr
rud64eeF28rWMsaDm4P9zUzZLxB+RvbbtW+Ttoz4oa2Zjj8Ev4r/Eh6r8STt
20Wf/5b27cg7m/p9+FtbX41/0b4Nsh0mXF34Vn1eG+EXtf8Nfd48/V8rfIDs
VWW/RfZ7hV/Q/tdl/0z3e6psL8j2nHAj2ZvLfmmw/1yg/38TTzTnSs2pJ3sD
4Qu1/1nZf9b/dbyr3GPZb5P9PuGO2v+m7Bv0f0fZztLWWPZxvMe6ns2aU1Pj
GzT/To2fDfZn1wvfgW8M9ldr9b+oY0/T1gB/I/u1ss8vOl5tlL2SbGdrayL7
Sm2tdP7+wg9ofKPm36X5HTTvVc3/W/9T2YZpe1z2m2W/h+el/a/Jflf0ly8L
dxMepDnbNfdBbf31mQdnjgVzWfsVjl8XC7eQvZT6ft8ovJ9wFeGj8Ylcu/Zl
ue/XTRrvr307y3689u2t8WHaV67xBdqOL/h51+Nd4n0VPlS4ssbn6fMvIf7o
2F31+Z/pO9XjXdR2hs49RduustcVLmrOSbl99anat4vGN7IJ/8W6LXm949ub
a1+55p+ce+1zTTU1vlPbA8LHsg40f7L+15JtL+3bQfNPyR27+U618JV8pvBq
bas099Tca49r3k3j77SvicYNtS/V3Na5187N2re7xn21jRduL1t1Xd/pwkdw
/2WvrfEnuf3JcTpPDdk/FX5Y+EzhmsKf6/6MIdbw3lT4+e2tY6do3+ep49cp
wk2EM+Ez4E/cP+2ro/Fn+FCN79e+ARp/G/zsGggH4bNkfE74Je2vRzxSMG0r
23P4LuFzZG9V8Jw9NT4w82dVkn2j7t8Bwo2FdxTeIHyu5hwj/Dz3lHuR+vn0
5RlGf5nx3bSvTHg/rpu1pe2r4Heed3+xtrc17qBzvI0vlW2zzn9F7nfnS52j
qcaLg6/1qILfP94vYsmpwvWEL9Wck+PnN9R4CT6H+Kl9tWS/XPtOgeto394a
L5T9Vo0P174asl+d+138hndA41768sM1/li2PXR/rsztO9nXPLc/5bu11r76
mnNx7vXDOvpX3/+q3L5jCjFB44GZx4fKnuh8y4Lv3bEFx6CbNOdm3qdo/1PP
52UNt+s9mcb91/5rCvaZu8CZtf9C4Qnwr+hPH5DtkILtBwtfgC/WNkbjRfgA
jV9nTQrvqzlXFrym4EMfyl6d2KFti+w35P68/WX7J8abuZp7jvY11b7vZN+k
8acab5U9L/l8nHebxjuX/O5Ui8cfqf/3yn6PtsM1nqbra6NxS43LKhyTuL83
aTs4tX/kfp0pvLdwd9Z49I07Vdg/T5b9DO1rpH0H4pNZS4lzkEa5/S9rA3/R
LLc/Z+464Q/1PL7V3CE6TzWd70fhg4WHF83/7tP8RzX/BM0vyt5G//sWHFPv
Sf2ceF55vB9f6bjHie2yX6JztoZHFZxTnKzx8Mhnumje/SVzZrjzhbJV0vnv
zu2rGxEv+WxtTxOvZQ+yj4j86rWi+VGr1P5tCWtc43s0f1li3/m77GMzc6X3
ivY3YzL713eL9ofkF/i+lwrO6XgOPA84Du/rbdp6FZzD3Yz/iXz3y6Lj59TI
74cWzfcnx/j6SdH86wfhFsKfF83Pvor87I2i+ez3MV4PKppfTon8u1/R/LWW
cI3Ea6Wg7z8p8uWPi+aXX8d8o2/R/JAYT6x/Q9vlqfMq8qt3tf1P4/GRz/Ys
On+YEPnjB0XnH+u0Hj/U3Pc0t6TPe1X3s7fw3cIVwtNivjGsaL4OfyU2dSg4
hx4Z+fdbRfP3NTpfd9m64pd1/O/Ba/PEgjnzRj5PeOeYXxKjef7beObat7Xc
+WdtjeeXzJ/wPUMKzim2lTt/I49bIHs/ff6MxL51vXDKPcZXCS/XuBLPDH4o
vELjoO074WbCyzTekWcGHxD+TeN/df7BxDbhn0vm7+v02QO19cydX4womMPs
o/FHmc/3heY31fX2yj23rb5rFWGSPfLzurIv1LhQcj5eT/jXknMScpNHNb+q
5m8vd36+l+y/yF7GMxNuhC/TeAdtE/Hl8HKNi6wJ4cbCS2L+wb2C8zbReJi2
uRq/FvnHbN3vecI/abtDx/yjz/tUx1ePesAGnh/cRniW8Cbhj4SrBusRb+h6
v2K9wwt0vr9lfw+uIzxT9i3Cn8FFgvUG+PYNwrP0eZ31Hcbq+7yjcTvt313H
b9b8/rLXCNYvxqeOxcvx8Rov1vddqPGrxHyesea/i+/WeIbm/5lbjzk7tZ6z
VvY3ZE9l/zHy4fvhn7wjmnN3zMc7af+7sv+l+Z2ESUKnC++Req3iU//Qvi/w
02X2cfg6fA6+Z2vkG21z24dqvFeF89U1sr0vXF94abnzB/KICTr/EuHzhWcI
j4/8dlLiNdZbxzThmRBvC/bRqzX/CdnXa/5Uzf+GZBl9CU6l+WtS52/HafuT
mC37CRofX+ZnhB/EH3LMYHxz6tyeHB/OBQ+CD22PfAs+xbVdwvpOnSOTK5OD
f4uPhSOXmbP/QUzSd1qvuX00rqPrXVxuvedHfe442e6EFzI3+pg/ZP+f7Atl
/57nV7RWVk1zJsq+otz5wgLt/1b234WvE/5F+Dvh5cJXCc8TnkK+L3yl8E/C
k0vOsci1NhTMYVaWO78jz/tB9qXBn4WPvzV1PjdH9o3C/YS/J18ucww7NfV6
rCrcQ3gza1HnO1Pzv9d4NPqE8FnCPwiPER5YtJbGOYbp2EWyny08VfvHyt5U
5z9ZtpPK7DOIicTGnTWnktbmQ8LvFO1T94z6Cr4WDaeqxgvKrcdN0pzh2IX3
ER4sPEj4l3LrNeg2I4Sf0jlfIx7qs3oLz5f9GOHxsn8p/KTsrxIfZf9I+JLI
J/fSd+8jPFvz98X/av7nwnOE98PfCQ8WflzHvyLcVcd/wPtebj4xQvYhwh1l
7yXcW/ZPhBvgn+HP8X15Qfb3Zf9Q9r6yvSjcU/gj4Y+FnxDuItxN+EP0DZ3/
KOExOv8X5LPCrYTHCQ8jfxY+Wnis8NCSYy6xFw6BtgSHgEvASdBeZpRb7+2j
fQPha/qczhpX0b79c8c0YhsxHK3qJG2XJ/adu1VYv4NLoInW0LiCNS3cS9dX
G36l8+/J9escA0rWc9Cvjg/Wk3bXvOM0/3dtvxEjcutTU1LrS3N03AHC+2u7
M1jTQdvZT9vP+CL4rcYHaXs4WHMgF+WdmwwHzK0HoQuR/04v97Vxjejbvwlf
Lfyz8Dclx23iN2se/7uq3Pk/OgD504O5feEh3L/cHAgutH9iLXQX4RWJc8WV
Gj9KjCuac1TR+OTge809R2uHw8Bl6ibWvr7N/P7wHpEfwnngPnAetLbzgtce
a3BP4bP0Oe0jn/8mchq4DZwHrRV9G33vyYL5KJwMbgYHQ0uDg8HF0KzR/uCd
8M/DhUcVrQlO177GZdYKT9L4iYLz/5GR88H94GhocfBm+DM58wDt/0372mv8
j8ZvaW7NkuPhxZH/Xhn8LvJONtPcy7T/tYJzNPIVNJ5TUn9/tJ8PeKYar9X2
YWp9b2jimNMztQaElo7m0Siej9wHvffS1JotWj6aGlruRan5ODFyVeSgcFE4
LdoqnA/uB+dFu4UDw4XhhGhL5AzkDnBktGQ0abR4NDS06puCfR8+8MjM+jna
G5rLT7k1cmovxybWzpdr/guJ34ndUmt+1A6oAaAFovn8zfdMrAXNz5wfry46
f74qdT69MXF+2wWOJvwm35+1C88rWmO6NLPGR23hnMTa34LM+fMa7duCP80c
n4hT8BV4ce+Yb1UK5tRwazRitHruMfcajX1M5C+3YRMem7o+RH2hZ8H5BXo8
fAxeVrfCOj56Pnypk8ZTitbO0dBHCP8afK6usl8j/FLu2NRBc/bAX6Xmn5Mi
J6xd8vp4KPJR9Dbyya6J4zca27qiORHaGxoetYdHE2t7aIKbiq6RoBWi+VHL
QHNDC3wumJvAUW7KrGFuLLrmgrb5jr5TP7gN6yP3O8C70E5415JrQIvgPIlr
Q3CybUXXxOBq9wb7JnzUaZk1RLTEaxLXwqjR/KrrOLTMtRtqQrekvr/Uiqix
LRU+osy1NzTUDUXXrNBW0Yupx/UpOL9FQ9wqe8fE2mKPzPx6cMw30IXQh/A5
Z2r8bmZ+PijmC4PwUTE/Rk/ZSdsVBWuGJ0Q9BC0BDRl9BA0BnRXNBG3huMy+
DE3h2tz6E76Gc1wj3Dj3u48PmJw7RyRXRF+4RfiR3L4LH/YY49y5LTnubWhX
uc+HD3tY4xmZfQv+j9rdaG01E2sW03Lrp60T1yyopz2eWwuH0x4j23Zisq79
KvJN2b7J/F0mwr/I5XNr63CwszN/HrWiqdGfvc4zE/6Yd1TjvzM/C+7/Q5nt
6A/oEPdGjk/eCSeC+9+hOdcVrE+z/q9Db47vP/rjv5lrMdyvSbn1Lp4NGsbN
ufURtBc0GLSuLpm1NDQ9tNfrcl8b+vC5mfVPtCg0ohvi/ThJuJ3wExo/kDs2
EiMfipjaGZxsv8wcoHeMf3Uyc44+Mf4Rz+BwcDk4V+PM8WFo9L/4RzgV3OqQ
eD7iYd8YH4m/cLCS9vVIzM3eCc7lugs/lrkmXAzmfNSKqTlnwt0S16LhiFWC
ORvcEU64UzAngyvCwSqCORvcDE44JMbjppk54ReRDxDPyCnJLcnxqD1TE6JW
NC1xrahBZu2HHOQu3asjcudXaDxo2Xfk1nbRkG/X+KLc+QgcCa5EjnVf6vyE
3KtN7thLDL5f4/0za/E/CPfPrRehvaPBH4W2hj4eXJOiNjU8WCtAM+ibma90
iXwRfgJn6hz5OvyFnJXclZyXWjw5L7nvgMS1d74PuRqa9725a8w7BHNaas/n
544lxJTXeLcyxyo0mVei/1iZWIPm/V9Vsg6ODxqYu6ZKfPhReJDw8Zn1mZnC
g4VL2v5IzLm5/mraVgtPj/NXl1wHaRHnw9ngbg2jf0ATaRHvx9DMmgnaCRrL
EOGl5BCp619pZWsuaC9oKl/I/kfJOjx6fP2Svw/PghrJcbk1O7Q76h/VSuZ8
cL9vC64VoKdQu6SGiv7C86kfXGNk/aCJoI2giXyaWWNBaxkt3Id4pGO2J/Yh
+Bc0F7SXMfH5oqGgpeDj+2fWUBrHnPyzzBoMWgwaTu/MMaBO5FzEBjQqtCo0
qe6ZYwDaERoWsYEaKzo3evcv+Mfc+Sk1avQjatqsZ3KGr3NrVPvE92OYbNuC
3xdqrIdE/4T2T00Xvb+btk8LztnI3d7KHWuJuV2j/6O2xvvdnueBjyg4/+2U
W+9Ha0YjRt9HY74/db0A7ZmN8QDZ32f95h5TU7hM43LNvz31OTvHz6e3gvtB
Lwv1Afwp3/Fd/H3m2jw1UerNcBK4Cc+YZ70yc+yGf9yZmT+jbS7SNiY3Z4Y7
wyHRkqnXEO+mxfcB/tatYH70vHBWYR0UPfQF7i8cNrFGOj++D7w7TfHRGvfM
rK1Tc6T+8mBmbkVO1DH3M2atfR71yd/xqQXXW86WfX3mz6qv57sid88QOjM5
YpOS62PEJjhqhxgfLxR+QfgZjU+EQybugaHfhGvgWtDMntO4ss53Y+rPfFn4
vNz5HjVn1hd8kFhIzrYgd0/SiuB3gF6lteRjqTkEXIKawCGpYyCxcHpuLRZN
Fm0ePrBF49raDhXes8I6LXN+FP6qZF4KP62h8ciS8zA4TFZyz9KC1PkrvUz0
hPyVWq/6IK6fO1LX1M6N13dT6poctTk0ZHJS9MBx8Xlen1rTaAufyF17IN4+
GNcvtRLW/Hu5NQa0BmIwWh0a8dZgzoZ2jP85JnVMIDbQ84I+tlnbVI1b5NaS
eGd5dwdk1oroKVmSu0aGzsScb3P3eFCfQxObgq/LfS44IdzwVuFFie8p/GqT
Pv9NHb9AeHTumiMcE59fJXfNkdojPrwitz+gR2Jh9A/41yGp7wH3Av2Cngt6
3tCT0PT/0910/gm5NX1yGGrWF8T1OT+1nkCvWy3hV1LXlKktk/OT+1N/pJYK
3zwidc2CWgWaMtoy9XFq3dRU0RSp3/bT/L2FV6TON+BzjYVXp+Zk+CM05LWp
NWi0ZWrA6JLok8tz95DNSs0Z4adoGGgZrRNzU+I/Wis+5+3cGvy61Bo62jw1
aWrT3PNi7hyLXAsNp2HJGs7rqXvs0HZY3wNT18uPzN2z90tqfYVePmqc1DrL
ZG+Qu+ZH7Y+aPbV7+PB+qWvs1NqpYaEpwP/pHfg6ajr0BNYquV5KLkBNEf5P
DZQaGzkCuQI1ODQFehKOjuvtk9Q+G9+N5or2Ss2Y2jGaE9oT8YDaMDU+dGT0
5D65c9rrUvtIfCU1SGpg1KsPi+uVWvA/cf0T39Esv4Nfl3z/RqfOb8ld0djR
2uEscBc0ebR5agIdMucocG96oqhHUPOh9kNNgV5D/HEV2VpqzpmyfxDMX+GX
aIPUFCpH/vpc5ppEeeS3z2fWQNFC4detMvujM1LnKPBx/NGPwZwH/z4gd+5B
zxp66szMWgk9g6tz1ziodfSO8Qv+XAjWOOHT1AioFXSOfJr8d0XRPSnoEfQw
NYj8hN4mepzqR74Bv4Rv1ov8BH6IxrqSz4jxe6K2VRp3j/kOmuluwT1SaKm8
D/RWNtP3XZVbI9018le0UzTUWpF/cv/IqcmtucfEO2oI66N+cm/mGju1dmog
jwq/EqyvkB/T20kOg2+lxtE2Pp+ake9y/9EoqetRM4GPf567t42eRvRQ/D+9
q2jmTRln1tLQ59DbqIlQGyEGkh/yflySut7zd+4aAbUC8scrM7+P9NKi+Tcr
ucZArYGaypmZayrUVshPz8rcE4mm8nyMr/hEfGPLqL1Tc6OviP6ij2J8os5I
DW2fkjVaev/owUO7rcjce4iGSz8eNQlqE9Q0rshcs6B2Qc3i8sx6E3oFNY3L
MmusP0f9Av0JDRstG8360Mz3h1y8SdQbqVlQu0AzvCqzpo+2T85J/k0NgloE
NYhTM2veaN9o4odnXt+sFfRO9EA08nFRbzwisz43Iep16F/UUKilUGO5OHON
ZV7UXy7JrMdMi3oc+gs1jalRP0OfoQbyQ9T7WmeuMYyP+h76Hz0R9EbQQ0T+
DD8n96eH+sIYD+l7owdpL417pO5NQiPgnShWdu2EHgZ6GbZnfjd2jfWCbZnf
hVqxnkBz0OeJ3yHeJXpi4GrwJ3gUvhLuDQen5oFe/W9wP8hEuFxqbR5Nkp5j
Yg1aK/yf/mE4F9zr69Rcn5gG116VOtZRY4Jrw4/hyejJ9Jo21ZzGGg/nmmJ/
LFrfhMjfewTHbupB7VL3W47KHGPod5wRHHvouS5Ef9Qmvr/4p07x/WbNwy1H
pX4XyNGoP+HT8e30C2PHP36VOn5Sl+IeB809X+c4sOCewV1zxxi48frg2ENN
ldoq/GV+sCYJXyW+XKvxjjrHKWXu8aLXC8yz4ztUquzvQ+54SsT0aJdFf0vv
NtyH3Jd79GVqjg/XnxacCxPfnkhdk2Y9bCAnKLOGfoHw5sxaBhoGWsYW8p/E
GgdaB/0J9PPCh9BzqU8vLVgDhm/Tn7dM4z0L7iGBA8AF0HQvZD1n1kbQRNBG
iAnEqreDYwWcldj4RjCXhQPDhS+PfGNVZm0SPRW9cU3m/ic0ULTQ1Zm1UDRJ
tEm0Gurfx5R5jVH/IHeBL6JHUm9FO0Dzpv5DzkquPjQ4l+1NjlHmGnGZ7neZ
8LjEMYvYVTl1byE95KyHd1L3qhFD3krdU03+xjl2qGzNAK1hVrCWAAcgtncP
5gYcT+5Gjxb9bvQAoG3P1jYnOEdHKxgWYn9E7thJzCR2kqOjPXwZnLvTo4kW
hyaH7rgws/ZLDyp6NZjc8bCoBxMD8M33B8cGOC39v3w2XJcYQ30NTkbsgQPR
L3lMMDdCP92jYE005NbGeVY8syWpOSL9iuREcEf0K9YK50hz15v/TbymqG8T
w+j3fSo4ttGvtyVxTyM1B95Z3t3OwbEan06suyvY1+OP+P0D+Rz1Qnwsvvru
YN9LDKJf+Mng2ERMgdv+LzjW0E9IfkiPJjUTYgSx+frg2EF/IPkpPXP0zhFz
6A9+OjgWoVGi9Z0brF0em1rbIj4SJ+lPWC77pIL7Deg/XZr4HnYrup90RWI+
S32sZ6zVwQmmpe7XJxZPTpxfoZGihZ4TrJ0uLfpZ88wXpq7X/55YL6LeTn1k
U+KeEeotcGa+z/GpuTQ+fY/ENUl8/dWpc2tqqNRS4ZBwiVuDuSX+hHeVNbIx
d8wk1t4QHEuJacS6G4NjHZrYfOFxwVoZGhpa+4mptTU4CtzgvmDuAkeAOz4R
zB3QzBYIjw/W0ogPaMvkf/g/cmTWE7GE3Jmcgus/LXWuAedHG1oTnAsQw7lf
jwTHdmI4/duPBsd2OAi1sMeCuQma12zh0cFaGJrYLOFRwVoZGttM4ZHB2hv9
h8Ru+Cv9MuSkC2WfGKxloRn+IjwhWEtE04brXBasdcPJ8V9oBiNjvIf/kl/R
j/xY6v4oejQOCta84frXBmvhg2ItF44DLybnon8e30AuRo67jfcnde6LRg03
ujxYuyZH4P6iYZA7oFnDja4I1rLrlKwFwhGrxn5h3le4A1oFHAyueVswN4MD
wZXuCeZG+PeOiWtM1J/wN3DbA+N6gnOTK70VzMU7Rf8I3+P3CNVz9xag0eJf
4QBwAXqu6b0mv/06uGcQTM2F2gvvHP2UmzLnUuRU1AboiaQniPeT3uyXU/vv
UxP/HoWcndz9t8T1fTQftJ/F0f8RP8gl6YHD/8PZ4eYPBHP5h+L1/pY690dj
R2vHR1bKnd9/l5oDwAe+1Faz4N98oG+ek/n6qYHOho/n7n1B8ybec07OfZTs
W3JrJv9xD21XZ84RqTX0DM4dh+b+Ldmlkb+Qk6I1vB+cq1JvQptgzZF7vZia
X6Ap8hsL+BjaCRyB+iX6JL8twQdTX+yYWksnf7k9xhRiC/HtC9mH5B5zTVwb
fAAti9/gUI+mpkxtmfgwNl4PtXE4MFwYvYreRvrHD8odn8jVl8T4Qk8rvISY
c2fUJ1YHa65or+sya2XUfKj9rM1c+6EGQS0C/RBtmneE3y+gYcKP8TH0t1NT
J04QL9ArT8vdO46Ppf/+WuJvwTUxfg9A/YFaAhyV3y8szlwbpsZMrRmNCK2I
d5TfH1BTI54Tk/n9wjWZe7n5DQu/P0Dja59Yw0X7Qx+bGvx80H7RM4ibxM/d
Stao0Kp4R+nnfzVzrzo90fS/U/+ktoHP5PcbxAO4/k7aDoA75r7XOxMTNG6Z
uzZBDOH3IMR7tKFlcT2jh+OrqKmjj/+ZmbvCyeHm6PP4Rnrk0b8z2UsF/yaK
/iL0vR+Ca7LUelvlrpUQI/n9CGuatc1vDumXQK+llxuNumrJPd70elMToF5J
Tk5u3itYK0HvpU+fe1C3ZK1ubuTz/J6F30vwrvOO8tsUai7E0iaJ61WHZP7t
Iz1Ea4WfTs3l+c0T/fVojhxPjQctEju992io9BouzdwLQM2d2nuH1L6L35DR
v89vBtH26OGknku9nt9t8Y61iP4O30ZP3H+5UG6tkh4ofpu5JLNWgWZBbwh6
N33w1NTK4+fxWwH0P3RA+gX4bSc9Hc1L7hcgryO/2517WTL3oCZPbb5/am0O
jY7+QPoV6LFmTVYuWb/5r1cOH1uy/6Q2e3GwFkq/wxWpaxjUMjZm5u/weGqv
WzNzefY9m7nfB7/D+q5esraHloymzO+p8Nn4bnraqYcuy9ybQc8FvRf8ppP+
k581Z5TGI7VdlrjHBIzeSl8o/aGFyvaPrAXWxJe5+2/wBejx/+qcG2I+S8/n
v3nyn/jBseQA1HKoIdBrzBpjraGn0htHf/EI+HLmWic5Hbnd1tjbgf/Gjw/P
PZfveHLm34fgG9H/txSt3VO7RO/g96fLM/eO0JPy3+/VMp+Lc1K/pqZAbYGe
2O3x+rkXV2u7Pvf97pfYvi13jk4exTPYKvx/bsM0aA==
            "]], Polygon3DBox[CompressedData["
1:eJwt13m8jnUexvEH55zpHCJZSrZkr2ikRowlUS/LWKYpNEihEiZLUTODsVYz
KWVXIRGZLFMhJCLbyGTfdyV7iiZkqff3dT9/XPyuz3P9lvu+f9sp07HHg8/k
TqVS8ymTBuWkUi2zUqmddLsfzvAFr02lqvF30u9ypVKPZ6dSFbF1/Jc0G3tL
rjH9Xxv7NDQev1nmC9kG/EY+n98K8MupPlYP66vuM+qNxj7w+3RsBpVRtwKt
UV4bTG6U3Em5V+QuZ6iHv4FNxRZjd8f46Hr11mPN9VGfL+63YtmJorwJ20yV
5ArT/coPUAV91NdeQ7kmcnuxfVRZpjX2F+zv2jyA3YYVlN3ED+c3qvshfwPe
im9NfeQ7qNc5Xfcgdijea9TF8mOX1L9M12Hb1N+snVdlmlFRbCe2THm7520t
vyMydEQ5D/4RbeFrUyWsmbbuxQqpWwW7RnsV+Vm0nu9EbeI78L+lznwR2q7e
CH6r/Dx+QU7SX35sJH3CrzDm++Tq8HnjN/4E/Suew/i64CPkrsUUU0P9M4xK
G0s9vAb2iPoLsLJYNDLbf4Wxs1guPoM+w0pj57BM/hbZOcpz6Xy8Z+1/ZzK9
IfOLfkfI98bG0Czl7+V+oKrqlaAXlP9Ka/w2RaYk1p8fQDuw/8T3ob7K7bD2
VEymujGvxMrr5wrdxbeS6479jX9E7ka5ZvgFrCPfiW7CGsm1x3rI7cduxQ5g
w/jHspL5EPPiU3X/oLzec4zFl/D78KFyHfianrcpVoF+iDFgjbB2fA+5/up+
gx2hKvpom5P8Xob/Tr4cv1vuaeXV+mggX4ff5/09hW3AWmC1sK3Yg/F9sDuw
kthm7AHsfaw0VghbQnWw0VhGfEb+M6qLjc1I9pF8/DXGs5qpFWsGW4ht0d4f
+flyVbFS2I80NvYf/AnjfsWYD8r15HdlJO8x3mc/fLBnaxLvgIpo/5BcL7nd
co/KNZbrEnMt1i21lH+aPyzXW26PXAe5JnJLqV7sVRnJfI15u5IaYu9iMUWv
41fR/di0jGTNxtrdpb2O2FqsIXYHlqHC51h12o7NxXbLdc5Mvm9853uwNdQI
G4MVworwmbFXYjVob+zH2DZ12/BL5O7GenqOPHLLsDtpGzZHLje2lK9GW7HZ
Ma+oNj9S3TxYDv8buVVYzZiT2CfYWmrMj5MrjBXlc8ktxqrE/MBmxnrGVvL3
0D5sAfa18fWJttTtGHsPtgd7Avsf1gyrge3HumFbsD9hdbFvsL4xL7BOWHPs
Ic93n+9V3Mc47rd8+syFfahcjD6WezvmPNZUpnFWMh8G8DmyW6NO7K9YR6wA
9mPMXewctg7Lj53BpmJnsDVYbvoIu4nm6WOiPvJgS2L90BfYLKwb9qw6v4+9
BM+IPZLux0php7BrtT8a6xn7QFbyPGPiubKTceWN/VouWy63va2hM7YUPxCf
KdeHGkQ96iffN84Y7+pemYneVSmsO3Yaew37GZuC7cdOYIOwE1jv2Mv0eRwb
iB3HemFtsZPYYOwk9izWHvsW64cdyUj2pjjvTmFDsFPYc9ijWDnjXhjnQVay
n1fDjsg9L3dQrjPWAjuK9ce+jXMaa4O9bozTYvzqdo1zWVsPx76NLec/p/LY
orgPKI+Ke4jfFvPLYw0rT8AOazev3DF9DFA+qo8ecbZo6wDWPdYB9hBWD9uL
PYl9hTXHamL/jTMem4AVwW7gd8q1j++N1cNuxc7F3oRdxF7EXuDPxpixC9gw
7Hn+PI3HrqbPo378YXopPb6e2FNxbtGIOO+wf2C9+EP0YvpdxXM8yf9Ao7Hz
2FCsL/89jcJ+woZgfWLvNOZ3M5MzNM7Sl7Az8a7j/JQbmD4bf5KbhhWludg/
Y5/zTit6p8vkNsYdJOZpTnIPWoptwPLzR2VfVT6dkZyRcVZ+TS9jx9Lzqkus
6bgLpOdfzKuu/CWanJns7bHHD+F/pkmxfmIPxAbzx/RzUb+VY+/wjY/GeUe7
Yl5or7bcWX6PbFeZNel9N/aSqzQ9xhrrGhvO/0Iz+AKxb2OvZscmaC+I56T3
2Ndi7sZ9Mr0WYo53i7VAw9PzPu5w3fkL9DaWm0ZhA/mLNJHPE2dh3J0jk5Pc
h9fH/Y/e5K9S/bhLx5lMV+Ke7HtMVa8IzVH35ZhD2Ey+eGZyH389+sX+zZeI
cxkbgW2glvyM2A+wEvw6aoq9hRXFbuS/ohbxrFhJrDi/MfZZ7AOsLFYmznhq
FfMHK4+VjXOaWsfYsApYuTjz6HHs0/R5FGfeTnoMW4zdhVXldxhzO2wFVher
hG2nP8f+ilXBKgaTa4stx+pglWN95CR/d+yIOy+d5nfgHeQWyVWXq8Jvooex
WVg57JZY5/Qctjl9zsR5FIf4Iuz2WP/s+zFf9Dufr0irsXfiW2KzM5N7Z9w/
x8U8xebwN9NSbHyclzEvfd/34m8Xmsxflvs4M7knxn1xcsx7bC5fhpZhE2Jd
YuP4rDhvY05GXarreU/EmUeX+Cty82Qq0Cq5SbH2sQl8Dk1K7y9fZiffJr5R
rdhT1T0r945MQZrut2Gxh2FT+OtjzmAj4xmwN2MfpclY/1gz2EL+tliD2Izs
5B4S95EV2CB9lPI+fwWTA+TG
            "]]},
          Annotation[#, "Charting`Private`Tag$127620#1"]& ]],
        Lighting->{{"Ambient", 
           RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
          "Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{0, 2, 2}]}, {"Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{2, 2, 2}]}, {"Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{2, 0, 2}]}}]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[{Polygon3DBox[CompressedData["
1:eJxFm3XcF0XXxm/v/ckM7txrd+drEBaiIKWiIkgjJSGCIiCNoshjgCgodmOi
2GKCoNjd3a2P3d36Xl+v8fP8MZ9zdnZ2dnbixHXObjxsXM+x9XV1dVsvX1dX
iPap1dW9K6aNym6hrm6Rbl4Y6+qmq/4/Krfp+r+F+Q9EX8htaPuWrqep/k3R
o2p+hvb3JtffIzqmoa7ubPV3V1VX95foS7o/UM8+rHvHq803pQbRWO9Q/d+6
f5LqTlapqc/GoqepRJVnk/lnRI+ueQy7q59TxJ+qsprar6jnVxc9UfVPJd97
UvQJlbnij03ue27u/4Hc15saw7e6nlHz+Bapn1L8YtFCtIPKqrrfXrSH6Cuq
76Syn/h9RBfq+ZXFX6z+6tSmncpGur5I123FbyD6En2p7kXRg1XXJo/hxVx/
veg4zdUtovdqrjYUHayxzNCzJ+j+tmr/nK4f1PVx4j/WO6eo/e9qd4/aXxn9
DVeLfqwyVG2uEf1N5SE9101zcgxzoPKgrj8vfM29X8QfUPMafFG4Dfd307Nd
RZ8XPUrPLy/+ZvE/i85Smw/VfriuZ+n6M5UlGtuhqr9XY/tY12PEfyS6QNdB
dKDGu47a7Cv+fNFnRCerzQz1s5zoiJrn8ezCPO/+Pvr+Rnr/3OhnThU9XPcP
UzlT977W9STR1dRmrOrGqQzT9QOFrw8Uf5Te95uup4t+q/bHqe4b0f7B88v4
f9T1Gar/QfROtZukZ5/X2H/K9dz/Xe2GqX450RY1z9s+4k/P9Z1FH0vex4+K
Lq+9PYezJL4m/gf1U4geobojVa7I19TXi85W3YkqPzInjT3HBzPGmuf9umie
teLc1KLXhfV5VGWB6ncSvU3v+0T37tDeuFv3R+mZu1i/5Dlmz7JWvXi/2v8S
Paa7dH+xytuq/0ptDqn52Z66Hl3zmj4jfkO16a5+LhT9LLqf40Q/j57v5Rlz
8LlkHJeJdtSzTUSfVela8xqsVTPfQnVTVXqK30X0tczfqDZXJ9NBGs8o7aGT
1d8Sfddquu6n+uaqi2qzs56ZI9pJzx2t+g30/kc4o7p+WHSNmnnuba52ndXP
QPXzXyjvFd1BdJDKe2rTnfXXcwep7bu611vX74i+STvV9xFdjTVX2V7Xjxfm
J+rZdaLlFud5suq7id8J+Zn5S3L/0K76jibMB2dOZRvxx4h2YF/p3Zsi40Qn
6DuPVN3OyfKAfdtR5QZknsqenKfkuuuT9zRt2ou/LvlMjhPdP3/fCM3P25wJ
lV1V7tf1HNVvITpB10+r7KhyiN57rOqH6tlVNdb+4i9Xm666Pkr3dxH9v5r7
aaeylfgtVdqz75K/q7Xoe4W/q63KobqewXtF5/Hd7EXRrwvP/1eiH2ru9hY9
WPRplQ/03qtEt2O+VV7Q9ZzC/F6ig2u+96Lq56nf1sxv6TXdsea+2kSf15HR
Z7dFPksnFW7DvEB3yDwyg35WKnyOOuazMD95zJeJXq25GKe6lUWHs49qPs+V
6B4qQ5CTenZ38VuL3lm4/g7R1zWOvcS/Jnp5cpu7NOZWot/ruedUf42u11Hb
30tfU3+t6NZqsx96tt46vE/m0dd9sy6mnjbvoMNzG3Q9cn5g1gUfqK8B4t/P
czs4z+d3eU6Zz08Lt/mk8Nr2zevLvuqHLtDYrlZZW3Wrqp/zOI+qX0P01ML8
t+rno2A91i+4TUv2tp57UG32znL7vsJzcq/ozML9cxbeiG6zqWgz0abMb+Fn
kfnI+9m695joSaJnqv+nmQ/1P0T8o3xP3o+ct/t077rMc+4ej56/A7JOa5b7
5wxuJv605P4nsj+j30+bB+otQ7juqu/aED3EmYw+E5yNW+o9b5yNW+s9f1x3
UNsWwXoA2bJ99Po8Ei3vkHtn6L2vqm5ztb9b18fmM8b8X114bJzfTWqWFZer
zURdr8vcip+dzNdEz2B8unej+t9QdRvULH8eQEar7WmiD2aeuqbR8vg+0Sl6
/hvxV4g/KPjMLIjWcX+JP0P9nCX6d2Gb5s28V/jeR/I38q3Dor9hXvTY1lGb
tnq2h+h6Nevae3TvdNFTRE9J/ra5yJloXbFftN5YK+uRdur3hnrLawrftbDe
NsMU8d+JPhc8lvai1+Z1aZf1wpo1y/RDVVbP8vwQlZXFN89yfbUs21cRXVVl
W9pLNp6vvq+tfJ9nJ6jNqMJtkAvQVTK/Us19HpBtO2y8Zfr2JeqjGzZwI8uN
Fdnf6J7CPDLkkmQbdHHl8a6Rddk50bb4udFtq9ye88L76vW9M/Ushv+jpefh
7dx+bZVNxZ+puseT7V3s5Cpad6PD0WWbiT+LMyu6fM32MPqV96NTby7dHvv8
QtGguk1EL1BpJH7jwjY8tvrTyedjzTz+ebl9z6xr5uh9N1fWHe+zj/SeWs3v
xeY4V6WeOS1s23Nvfun7tTy2ebr+Czmj/jrr+bvEnxlty01Vm59Fz8n9dCts
83dVmz81/zdFy/vdRZeq//Fq87j6Oy/6/F0QbW/PVP2f0TqC9rOC7T9sRJyr
k1W+L6y3pibzhyc/h2xFrp4h+odKl8J2NzY5tje6+/l626cH1twnNueZuX29
ymkqvxbWB0eq3x/EH5Gs535U+QbbLnos09TPOcl9f1Ta5udZdOEjqv+zsI06
PdvJ05LP8V/5LOOv0Aaf5cusPyZlG2P3wn7ARdG658PC5xhbnbP8V5YJ2P0H
4jeyl9X21+Axjg+2Z5rXrBsmas2+wAavXMc9bJrxyfqnc4Nl/ISa7f5TxP+k
0qmw/YDt8G695RQ20UGiXwfXDQ/WZfTzbNZDvBPdh93B89hFrAXfiH7EVuGb
rtd45kfrhMui15R1PEz03GT/6+vS+4N9skP2xViLCdmGZ96xN9jT94t2Eb04
Wk9dKjpN999Qac1aqryu0irLtIVZztWyT4HcxYbEpsSO/Ne+vLje/jr+OD77
mGQd9brGdnRhOwwb7PlgGwEdhM+OP3K3aM/Sshr/fQr7VKVlYVuPsd1cbzuO
fu6tt32BnYHuZJ7QS+wFxsB+4B3Y0HzDiGT7/7nCcnxS5pH1Y5P9RfyOSVrj
l8V3EP9KYR6ddHjha/gRarOT3nND5bnFJ8VHwkfB1sVPYY//ks/ILvk+ttmp
ec98V+++6RP/YRm+uujBybY2839TvXUI40bXMN5n85gHBNvel2sch+W5urTe
smDFwmdpo5r7nJ9tbuxK9tpZ0WvaDD+05n05Qe+9vrBtzLnaI3kPs5e7JPsS
7Uq/Z0p+V1/dOw37ItpeR/ej97HfseO5h88xOe+TBZwllWPEr11zG+x7fG58
b/xD5CLyERm7ZbI+wS7FNsMuG5vtXXQatut5utdY9VH8SXnftFfdPYV9vhmq
75us9+7mjKiUzI/o+SorII9K+5rY2djYxyXjDftpfQdH20LbYqtGf8fW0boU
PU2/fPu4/C3z2WsqPcRvpX6Gil6s8a6iMl78Ztgeet9v4n8qrbfR/ejuE3X9
K7og23LM0xZqf4v4/4hfX7QuuM+Nsdv13MjC11cV9mO7lfZf4Rn36/k8s5fu
LzzmphrXwOg1bML61rwurB3nbFo+a8sFf98m0dhCI537bpVtWsa8XfK84avj
44N9BbXpqzbLwMiYA9FJGtMb4j8vrbPxjdHhJ2D3i+8dXYevzHcO4+yqrMue
0jOvq+4z0eOjbaKZ+FCit6r01b2horeodEK+szdVutd7bpijZpyrzDNXrM/8
vD8eKmzH75/sB15U2H4YnvvZpjCGMD+v6ZRoulG0T8a9w6L9APrBjzgh2Sd4
TGM+MVlnPFfa98IHY08fE22Dgbf1SvbJsJH+k+u5f6DqlqoMLDwnS1T6F/72
2/n2wt++mPEXbr9IZavCe45vZb/cn+egZx7n2OyzvK3rp0S3DrZB4Vmzh4Nl
+Y75WfYt+3e4xvkk70ne70/kPT8smT8g2UcBj5iY6+Hx3/E/L87rsgB8Vvy2
onP0zb+r7ufSchj9PEf7p4uuL1L9bpK1+4ifh/2M3BV/AjJVfEvmV3wr8ePE
P4pNKH5H8bPE7yx+Z/Gzxd/H+RP/GHtJ/AjxS8W/J/6MaD8HO6236q9U/e56
dj98S/EdxQ8Qf734vRuM/4HVHaFx9lH9VarfQ/UDS/sCncQfJ/4d8V0bjB1g
i6GvH0oZb9azLdjTqm+JrSj+QnRig3E4MLnT1eZC1f+JrAV/Ev+1+F7i54r/
SnzPBmOtYLNgsmeBG6q+t+pnif9EfA/xF4n/G7tO/PHgpOK7iz9B/KdZ5vQX
f534vRqs47AN8GXPwW5D36pub+Sm+CfVfi9sU2wD1e8qfq74XRtsr+L345/M
VP1H6AHV7yn+XPFtxbcWf7L41uI7ij9HfBvx52YZiDy/ovA+Yf/1U/21onuq
TfdkfXGp6k5S+UP1v4ArRtunHUQPidaxbUXHRNuw7aNtWGxf2oHfgOOA54Ch
gqXS7oLkNqeX9jff57ui7Txsa9ZyCH5hYWwBvBvceyH6KlrWbie6arBc3xwf
K7n/00r7zPjn+ObYAtiRjHVh4T55H+86Nfe/U81teC++MGPePRl/m13YXr8h
md8t2Tbgm1rrvUfqfa+K37fBNj1tW6l+32DbbGf2MbaO+C4NtqvBINolYwzw
tMM2OL6w7dgm2cYBe+mrco34V9TfNPGvif8+GO8B98E2AzPA78YHbpXcB3Yo
2Ar2HLZcl2yXttR4tlU/0/lujWdw6fkc2WB8hP52jPal6a9FtD14dO5ncrTP
t1f03mEPoWMmq583df+L0j4fviJ+H74tft0+yX4cfua/+DKUGAr2CXEC4gI9
k9t0TrZVeBY/rlMyXS/Z78T/JGaD/wE28W/sAbp28n7Dt8Jv2zOZglmB7xH3
uTTZf8efx9/fK9lXaxdtW+KD4UOxn/HNuLcw70/2zk95/8APybphQGF5Tp/N
kv0V5Mmxpc8/524KtoeuD8bm0ZxvIH4k+1l8fbQMOVJtflf5Wfwk9Hxpfwof
8I9gWTEZfyd47w0S/S5YFh0iukLNehZ9u1y0v3yE6n8Lll0Tg3FSvo/zOzd/
B2cBfBQ/k/dtRJyAvc87g79lXLA+PVrPHVo5LoAfjV9HDAM7HAyTPYrcGxWs
D9i3g4P1Kbq0d2EbBL07WGXHZD8HLAv7ijgB+FQTjeEIPXt7sH2OX4F/gV2P
z4Btv7XaHMbYGxwnoC4k29LY7vg4G9dsr5+cvGdH5307KHn9r0jGLcAv0NXY
dfgJ+GjYbPhI+G7dsl/GWLG30dPYpzskY0voaOzzibl+9Ywvce+O5NjUZM3b
NhrzVM5Xg+Uk+CzYbMdkCp6wJM8PdtqgwnYJsclbM09dV/W3Jfs/eh5p36+w
/UIb7LdurDW6VbRP4TVg/hdnHrtuUd7D7OXzg2MBPzSy3UcbnttCY0qim4mu
rr7WE39KMK4OZsi++Sd+in5RfZdo3HhucFymX36W9wzM52VTXR+k9g9oPrZS
ORz50+AYKDjKGNWtkixXkZkTk2UvGAVzzFzjBy3N48c2w67EvsQWAgsEE0QX
gAeDC4MP41+slDHAp6LPKr7bvsk4K5jwuGgZ1VF0bLT82SM6boqsAkdaWWVN
8XOw6cqMyejZhmg/8XjVN4/eR/uLrqKylviTVL+S+DXEzw7G1pmrkzMmVmS8
6/LScUDi3WPFv6yxfcJcRe/rftG+xYK835C94G7Y2JOi49V7ik7IuoOzyN7n
DKD3byr9HuIdE6L9Qr4XGXt+YVk/Ptp35NunlMZ5vhRNuq5UPzP4HDAGfCpk
JLISPXtTYVsA2wF/Gp3KWuIHo/PQSeOyfvxU9Kg8BsaCLEbujorWjbTHd56d
+8F/npvfhfw6s3R8lfjsDdG4FvH3RtFx6v8E5x4QvwMbHR2tL7BnRuV3YcMQ
u0BfsJbr6npz0bP17Pri/0/8ueLXE7+F+HOC8wZ65Hlm7nvl+Z8YrQPRldM1
ts80tu9K413YroeJ/zbYVhwpunIyZtVWdKVkHGs065OMcZ2dbEtg731bOicA
bAr7d/Xk+cZuWS0Zi8BWOSrbn8jjx6JjS0+wB6PjBaerfk3xG3COgu1C/P1j
8I/17Jd69sfScqV/li1rqM36oqeCE+veF8gK/H7VN6h+Bv60rj/nvexf1kD1
01UfxEfxR4Prl8ZXxzb4zOJb4g/iC+L34T+Ce4OVg5k31Ozj4OtskOXeecHx
Nfy+3mAqNWMZA8QvznGrLtmXx0fFT+uT3OfWyKTk+m2S40Tb5Plh73MGWNcO
GU8jtrNx1kfoxC3FzxT/gugmKkeKf0p0DfAO8Q+KrqUyRvzD+EOVY7TEcI8V
/wGYkerXVBmtNg8xXuxs8Y+I3oKeiNZlm+p6muqfxq5X/TfBe2AVlRGqvx+s
I+trYri3V46Xo9eIKxBfII9l82z7PSu6qHI8EntpM86e6p/hXNecJ0Pc4srK
Zxi7a33dm4Jvgh+j+rf0njfEHyP+fXBY8UeLf1f8O/ja4t8hJiG+c2WbBp9o
cbBfualop8q2BX7cPpVtFHyZBeKPiLZLFwX7pJsEY5LsYfyfq9TmEtXdo/7X
U5msNk+I/ld1y8TvI3p1ZawKbOqayr7o6AZjvmCaYKcf5jgC8YSFql8YvSf3
rmxXYdvPFv9VsNw7RfyPwXv7XOJD0THcc8SvEI19NS6tQ9GlK4sfLv6+0uMF
yyGnokHX+6v+jtLt0MnoaDA19j74xwXBuvtH4kdqN0j8nayRykD0XuncLfK0
fo3Oqegl/ppkn25p9h2alc4BeFG0aWmfHZuqFD9A/BLR7TX+u4L95W0rrxP2
yVzxPwTLrhVLYzDM+Uqlc0LIC5pReR4/ED9PtLPqf9aYT1T9l8F+wYXYBKr/
VfUXMa/ifxd/XOU1e19tThX/U7A8OU38z8Hy52zxjaOxxBPEfxGMd3XMuCJz
1j1afoAdnaU2ddF+65ni/w7GQM4gXy0YG5yF/RqMfQ3PcgWbYabqPw7Ws8eL
/yRYN+1VWV7jx3WpbIvj+zOPzOdmooMqy9PB+FOVdcawBsc1sVvBcvevLEMH
qX40OV7B8mFwZbk8RPXDK88j6zussrw7UPWHiL8iWLYMqayfhqp+lPgFwTJk
mvgH8A2QSZXzP17BRha/JHgPTBV/h/iXS+ddEdMhJju0sm47QH2OEX9VsCzq
X9nWIdfrKPFPYdOr/s5gXGJL0YNVf2nwPv+7NIbcBPnaYBmFrJof7O+sECyn
kFel6F+lsWfimf2TZRSy6vpgO3lN0bpkmwV8daTedVmw3FsuGdeclZyHRq7G
Tcl4J2Pbjn1a+Syxz0dU3oucu4Mq70XOFHFXbH8wuvHZngKz5VvQG/h0jAGb
sbno3cG4ShPR6ernbdG3sGHFLxX/kvg9xL8ejGvtJv7VYIylPjlGCkZXJNtN
4L0t1eahYJynR2XbpY/4FuLvDcbidhL/YDC2s4v4x4Kxne6VdS3YVM/KuhZM
ac/KviLYXUfxbwRjaPtW9g/BuG4LxvQ2Fu1T2X4Fy+pa2S8FE+tVWceDlfWu
bP8Rh92h8lyAB+6IvA3GD3cX/1ow3jVJ/M3BemciOiVY14xH3gbrzXHirw3W
L2PFXxMszwdUtpv3xy8Qf2uwzkVWna0xbyPar7I9PUBttqu8L8E32op/Nhjn
7CD+5WC8cVfxTwdjnq3EPx6MmxE7I7+B3Nb2qn8pGHsk7wScmRh2O9W/GIxh
thH/TDCu2Fr8E8F4Hfu5abZDDiqNi4KFgoODWYGLMwfYBisGzw16f6Xg+cB+
aBC9Mdg2qIJtDs5LCs4vIvfgjugcC3ItrkyeM3RNCJ5Lzl1j0XVLx1SJdyMn
0B2/SfZObrDeuDvLIfTRH6pfpzTGDMZOPu7ieufUcmbRaz81cpyAs0DeDrYl
eBNxO+QTOuWXRsbkyVsAfz8k2a9HNxH/Iz53VfbpiF8Tx76tckyXWPDo5Djn
WaJlsv+N/56SMSuwK3JciBmR80L+CXkfYFYNyTGWIaWxaeTz5sH5duTSXJus
F8HWWgfLy5PwF4P7JM+EGCzxTfx9ePxBYmcvR+tY8nbAtfdL1unHM67K8aTt
wauT4wDEK/6IzkMmrwCZih7/q5FjBsgWYkDsa2yY1YNlM/bYeuiY6FjLq9H5
nyPVz6LkWA8y6078ktL5tOS1Hpj9pffi/3IlsQWJC0CxDbcoc8yztKzCtlw3
OI5JrBw7Fb2Grbt2cJybePdH0XgsOQnkJpBj2rveOadfRsfuyaECL6WPpVnn
YBuvE5wLRQyaWDRxEWIib0VjI+Tlkp9LfBD/l7wVcnrJJSbPhzgWmA14b69o
3IZ4HzFl8j6WVc7nISYC3sK8cQaJ5TXJspp8WPwQ/BFiafiJ5DEQc0cHMofb
l8ayiC8TfyYfFL1ArJDYBDb/DqVt3jvAVYLjDuS9k/8+IesOYjfk8hK/ph9w
N/A34nxdc9wZm+CGPM9rBefMtcxYN3b0EtXvGawj+CZwplZqc0G9dTrxSOKM
xCc5F+SYkUeKL4mvTI4ouoZ52x78s3KuHnHpdhlXAZPepXTcgbOyQjJe0RKs
NRlnaJGch0wuMXO4UbJvBK57RWW/vQf7q/SZIn4BbkNORQfR5TO+B85HbIJ4
E/ZJ42Scb6fkfLCH1c/O6m/F5HwD8kg5y+Q1kI9K/gH1+GLD9fwj9fYvDlR5
uN76l9gTsSp8kJEqT9Tbz8JfQZ7wH8RyGfcD/ztY9x6vt/9yWeU8OfBCcqoP
Er0l++PkEhLHr5LlDLmvzSv7J2BW4OrEXLCpmpeWJ9gA+O/kuZDDS6yNOMs/
tlO0jcI5npRxLXJwyIXeN8vzjZMxBPDwS/NZq4k20XuvC8aQt6lsV5EvzX8Z
5Ir3Kp3bTP4YeWSsGfufWFDTynYVmPPI5BwG8iPgybvfDZ8uGZPn25tVtg/A
V9/OumCPYH2Gf7FXsJ93O/1jkyXrin/+w0jGYchFYs3IG2EN0TvEAYkHDiv9
vwL/axxQOjcHv5K9Ry4G+QbkIHJOsevICQMju1X8uslY3N4p452FMdK1kvEc
cH3sxD6cu2Cc5F+cdf30v9gCmAl4EnkZa6b/xQ2wczlr2wXvac7ItsH6AB1B
7gt7GwyS/A3ykskrvhH7MDqeS147vv6datMpOPbQIctw9j/nl3OMjiOXpIf4
25NlKv9ecB7Ji+lees3BSNdAJle2D8AEzi4dL8BW/LN0bJr8CPJLyO0kn5O8
a+JqyPA/SsfJyQEBZ7tRbaahR5Jzkm8vnVNNbOyZaBuef2Iu0TvHN1h/4Y+C
9YD5dM4yAezuxtLnhv9l+G/m9mjfilj8Jsm5/SuU3uvk11xUGf8Edzo2GMNB
111aeX3BD4lFEnNfRpvotSN/7bLSZwQMEywTX5yck+OC/UXyQA4P/o+APFTs
Db5xQMaF2J9ghmCHYF/EaA4L9uOJm08N/n+H/49uKT1+/HT8dXQ3+R7EfA4v
nf9Fntit0TjjbaJTS//rwf9Q5Gxw3jn35K6x34ghkotNvhn7krzNFfKz+LjI
rj7BeXjIc+KJYD/gwPsH56shY/nHARySOQfrAefF5uwVnHu8heoeFR0RLYuI
UYJnPKU2fYNzEtir7Nll0fm3d0XHWMGLZ4n/NH8X33dFaR2KvY1//6T62S/4
3JGTRWx3UWmsG7+V3B5iMfdH5wCTR3hvdE4X/5+QH8a5I05LDJfcdXIEn4y2
7XhunvbDIaXfBVaAX4ffx5ySQ3Wl6PAG/8dBzg12BT5bs7xGF1f+9+mgBufn
ED+ais8bHUs9MhqzBfubjj1WGp/HFwZfAGcAS1op2+rEwLDvsTHYs2CJ3Adz
woclnwo7ELyRfcv+Pa9yng32PzH00/K5I37NGWyXzyY4BvgkeuihaL3UPut0
9DX5yazdqNJ9sT70fX7lvB/y4Tk/V+fzRFz15sI6GvkAvgTmSawffA+cD78a
/5q5Aq8nrso97El0H7HjDfNZBmslP4143OHRti5+Df7NtaVlAvjGlaXxXny3
q/J8XwiuUPq8c+45V5wvcAz+rcO+vrxyTsyovHbXl46ngI1cVzruAMbC9zMP
4E7gdsgbcuDJHfk+22vgQiOy3MB/wI9gXm8rHbsBn7mgckyF/UNeCP9okSdC
HJ1cZXLayUMifw3MCZlFzigyjH3ZNO9T7Crs7vkZv7wm7yvy29fOZ4rvJybE
fIDvrp/PAnFicP6vsp3BnNMf8pZ/Fm+sLLOQXcT78DXJn9kl2JdZmm3F3Uv7
xfzz9Wq2UdHR+Ljk0uwc/B/NrjWfBWwt4jDkDoArkCezfbCvvCTrdDCMZVl/
PZn9plbB/v2d2QYmh4I4DHkU/IOD/UyMeQ+N56x65/njc5MDs2vw/z/EDMn9
aFMadyH3CX+KvDjyCtGD4I3gjvwzgo9JHgKxOmLVxO7w78kLahv8PwP2JLmX
4CLYGC2D/68hTxS8+70sG3sG/+92cLYl+DcD+5n8XnKYWQf65x+lFlkP8l8G
+SXEE8FRwI3BmV/K9g92Efkw5Ay8IDqjdF4qcXFyddA17Kt9S+eAkTcLfkDu
Uxv879K5o2DU2HDYcvcl58wwdjB74ojY5+RMvpjtMXx0MABsbPolLojdTi4l
2C05fkODfRtyt/F18MV6Z18Yfwbbj/PCPwvEWpZG27rES4eWjiERQxwSLDOx
yckVIbeBGNPoYGyVONeYYOyWWCG54YOizx15O+Cp2O09gnPC//mvrrSdkPJ7
wWWxyXsHx7eIc5GLTTyYuDC57oeW/q+Xf2bBa7H/uwfbvGA45K+AIZBfQ640
dim2JTYmGBW5Uk2DfR7suuaip0fbw/wvw5qhu1lD1oy4G2sIPk2uy7Dgf/fQ
q7fmmAB5mAcE5+fjIz8bjduRx9UsGNsj726H4H9XD8y2IhgWZxb/h7kipxS5
D4ZNfG1sMIZNTO3Q4H7pH1+8f3TOA7mm/w/WpPqE
            "]], Polygon3DBox[CompressedData["
1:eJwtm3W8VcUXxZ/3XjkHztxnK2IHiIkYSLdBqTRIIwKCdHeJUiqtCIJFq4iK
iYoKKip2oP7s7kbs3/qy5o/5vFl35vTM3muvvd8xPQe1GpgrKSnplC8pKejv
8qykZB/1i2lJSdvSkpJqxZKSCZpwRFJSUlX4Jo2XajxovI3wwlBS8onwexpf
L3yW/t6k+S/ot6fV76XjV6k/SvNv1HgN4as1fpzGzhK+Q7//o/E6uvjr6uf0
e0+NXyD8rnAjXe924Wf0e3XNH6K/Pwl31/gXGl8ofJyOT4UrCF+v+alwon4r
zW+kv/sK19L4q+pfrfkN1M+rlQr3UJus8ZOFn1O/q57nWeEZ6i/R8c10v18K
vyB8n3A94Rt0/So6Ty3hC/V3q3AnHf+p5tTR+GLhU/V7DY3foPv5U7isxhbF
+7lQ59tL8+9Wv7bmX6PxEzX/HI0v1fyixjONtRZerft5U7g6z6j+2Tyvjj22
4HdymubV0NjbagvVP1PnG6nzHcyYjl+i8/0lXE5ji4Xravx64dM0XlN4nP7+
J/yrjs9zj5pfRv291b9Y4w00XlnX+p9+e5VvpuNHaf4h6lfR+NnCo4XLC58u
vFjHJ5pbRse3FL6AdSLcWe0i9adrfJfm/6n5Tfmews8JfyN8lXCqv100t51a
E82/Um2r+tvUpqt/rdpL6h+ue3pc/XZqQ4QPFT5B/b7MEa4mXEf93rq/2uq/
pv5ynX+4rrdD1/te15kpXFPjM4SPFz671N+B7/G0zrFZ/cv1zneqP1/Hr9X4
OZo/XePHaOwM4erCVwkfK3ym8JmsAc3/UO1G9U/XeB/ev8ZP0fgAXf9p4S+E
rxR+QnOO1P0dpXaq+qM1/qbGf9T4HI3/V0b3zX7U+IPsFeGLNJ4JbxKepPnv
Cf+u+XM1fwH7T/PLafxQjddV+znnd8K7maj5/xPepXnXaf4E4XeFfxO+Vnig
8DPCXwpPF56h5y+vc23WsRuFn9Lfo4WPUduq/njNf4f1w3vT+Bl63i261sMa
u1t4rv6+kfcxHHsS19X8FsLvC1fV/L48j34/VfMb67f9NH+R2kD16+v3Ceq/
r/aK+kN1vec1/1v1r2Y/YV+EqwvXE16nY37X3Bo6/yvqV1Y7W3iYWnv1G2v+
as2vofn1Nf9c4TXCNbELwufxfJpbT8e/pf4aXa+c8IHYlnj+XzR/t35bjz3R
+G7hv3V8c41fJfy78F/CzYTP15xjNHeJ2tDUa4K18YHaDaxVzeuqfge1g4TP
0/2s0/G19XtDHX+MfjtVY73VSvTb8awp9fup7S9ckXeofn+1A3iHuv5YHf+g
+iN1fAuNX5K3fb9Q/SoaH6/xhzU+WuOVsBm8a7WjWHMa/1fje+n3Fhq/NrN9
yGG3eB7d33rhOprbSHiYxl8Q/k54hnATjd8pXE/4XPa/8B3CdYUbC9cSniNc
Wbia8LE672m6dh9son6brfV2hN79yfr9Hr4Pdoh3pTZE/YZF+xf8TF2NH5fa
V2AjsBVB99Nc48s0fpnGDxbuJLxSuJ/wacLjhB8SHiVcXriL8GrhK+L99BC+
XOdrxd7MbO/Wx/37hHAv4b2F+whnws2El+Lr+F7C/YTvEh4s3Er3+73woMTv
82LhLzh/XB8t8S/C/eL6aSG8U7ir8AXCzYXfEu4ifH5cD92F++r+Wqp/nK53
hfDd7A2NN9X8Z4VbCZ+HfdKcp4Sv0vxe6h+i+Z2FV2m8v8YPi8+zVnigcHcd
f5DmzhTuJtxD+GDhWcLdhT9mPel9f8Wa1W8nZ/bnm6I/uFTzy2tsDn5ceGXm
4/fVcR2EuxXNL65i3QuPzfw+forP95rwlcJHC48QXiV8iObvp+M7Ct+t9fGv
cAu1Cuofndn/3BHtB/thiPAAjbdJvX72V3+x2iD1T8xsr++L/vFw4cuE1wkP
wt9mvv/9ec5S2zHs2fl65ndS77/Bmn+Ffmutfs+i72+2ju+h+a2Ff9D44MT7
pZLON0z4B80dLvxyZj51uMaHCd8rXFHHH5b6fd8hfKTwIcJdGIcHYLt55+rf
qfGjhMunfn+bhE8QPiL19e8TroR/TP29nhEeoOvtE9f3ocJdhSdqfIDwNuH+
wsW4P16M+6OC8BDhHdGeHBrX80vRfhwW19vzwsOFD4zr5wXhEcIHxfd5v3Bl
3c+RqdfD03G9lsb1tzXul4CvFf4g8/ptKTxJ+CDhS4Rvj+P7CrcRvjnuv9eF
ZwlXjPbu2Pg8G+L9v53ZntYSHi/8ZPzeiXBf4aJwC+GbhHsLnxCf5964/i7U
9/xAuJdwE+GyGm8qfKPwpcIXafxz9mPkM8/oOSvqW1VSO0P9NzPbuxOivX0v
+v+L8GvC70d/e7HwRPyn8DThX3TsGOH9hNsK3xLv9y3hG4VPFx4r/IbwbOFK
0Z7tFF4qXFV4nPDx8ftvjOttXGZ783O0L12K5ptXCneGD+m6r2p8pn67TP3q
mfnulsiP8BeTWd8ab6v+OZn55OORz1fNzJ8eSRwvVNWcWpo7Xq0bvkutpvpj
1bqmvt656l+t1pE1ltn+fRXtV7XMfPqxyK/OEl4k/GjkX/jrlnAtfDx92YSN
6k9Q/3aN18Y/sD/xodjYzP7oJfXraLxGau7+rcZvgSuo1cubc8A9auGTiQfU
LsFmZ/Z/L6pfm/uBY+UdQxBLYG8bqT8NGwWnx2epP1WtOTZB97dW/TH6fWW8
v491vmvwgbxbjROI3aX+XRqvou/TAX4l3neycP2iv+8Z8fp1MvvDbYnjhwYa
XyZ8Znw+7BD26Hud/4/EfKSV+svUhqs/JfP47ri+O8NBNbZarQpcSO1k9Veo
jYC/6/4eBWv+as2frN8ege/lbVPeTm0rn8Bmc73MfOu5xPFG7cz3tzX6//My
87ftieOlCzLzsecTx1fwwYt0ruvVBqvfWeOPavzdyC/gt001NlftcvUXanxv
9Qscp/FBut8vhG/Gdgq3KTr+GJY4vmlbNF8bnjhe6VA0/xmbOL7tWDT/IU4i
HuY8nO9zteXx/bTU+GXCF6u/ITjW/JM1r/4BmfntrYm/X3ud7x/hMYnjO9Yc
a+87tVt5l5GP/F3G9ujBaP92lbG9eSjymd1lzDcejv78zzLmO+2K5qMjEse/
6zR+eOSWnYS7Fh2/T0/sX05iDwuPZH3zfouOnycn9n+dio7nJiX2v510vs06
/zuRz7Ff7hWeojk9U6/3J4WnC1+qfoPUvnqh2oDU++k1jc9iPzKWmS++HPlc
ff3WXGML1K5IHXcTf8M5PsEnFx2fTkzMJxbrt9r4eo1/qH47ne8Bne+NyO9v
z8xn9tFYe+FTMsd79yeOV9sLPyj8ZuT/9+qbFQrmnEep31HjD2t8Z+TjbYXv
F349xhuXCD8i/Hbkw7cJH5i3ttBOeL3wEcIHp7avs/X3OWIBXWOm+jM1/o2O
/0/HL2B9ZY590AgO0/Vvycxd2ANHBPs8uOelOfvCfdRaw3d0vgc03l7tsbz3
aLvgPY3v+jDnvY6PwlfBuYjF4aBwUXwCsQscFC76Vc6xzT/4abWvhWdk9hlw
07dz9iUnBq/9U9T+yczh4KrYcLjdD2o/aewN4VHq/wKvTBwzEjv+qDa94JiX
2DfVOxmZWDNBO6ms8/fK2wb9nXlPsDdY8/huOMQeLpEzt2VPsDfYM3DzcvjP
vDWIY9mP2LzEMR2xHWuctV42b+4HB9rDhXKOHW5LHJuyh9nLcKg9XCrn2AEO
hd3D/rXW+aepBb6Ffjsq9Z5kb7JniU3w4XAPODe+HU6zh/vkzHVOCeb2xET/
wYWFSwuOAf8VPjU4NqmiVhK8x9nrf+SsfWFTsC3YMLQkbBi2DBuGdner8Eep
92fd4Bgdjru/rnGV8HzN+VVzC2W1zsraZmLzXsTGEZsKL0kdv36quf/TuZem
3v81dfxtGn8z9Zpl7eKD8cXEvxuEN8AJU+sXm4UfE/5DeDw+A9+Cz9c5V8Kx
i7bhZcraZmPbHy41D4YP38f8YD5wio7ZnVqjQKuYot8u1/GbhX/Hp2l+n+A9
uTG1j2CvYhOSsrYp2IpzM1/72Xg+YrZB0YcSG9+lc5yjc72ssbUxJsbH/phz
rMz94ntma872YJ+Cb8Emo43hQ/AlJXlrrfggfBE+CO0NG4utxQYT+8xVm6d+
M2ICnW+e8Py8bWT5YE306dTvAK2UGONH4ak5xx4L1Ap5a6yTgtfrpNSckFgA
n9AsNQfEV5yuOZM01kT3vzKYg/6q8fk5c1NsLrYXn7AyHo9vQb+oGN8vtg99
dWqwDUZrwadjm/HxaKNwRnw/94+OiZ55reY3ZI3mrBn15Xjiibx9VBnhtxJz
eTh9h8wcAi0Bzgm3QE/O5x0j3qn+R3CQxDa8d2bOgDZxV85cApuNlgEnxJbD
UdBG4bxwF3wc2gU+Ct/3hdrUgjk8Wt7n2G9daxvrNbOPQLuBI+I76vFNNF5N
be9gH4PWtDZn3wPHQUtekjP3GRfMHfaJ6wPNdmq0V2i5xFTEVsQoxK4vaP61
Bfsc1jMa85Roz7Cf2Dti8fLRvmFfJ8f1hb3oqjYxb80yBMdwxHLErGgDcEy4
JpwN7ovPQ2uD0+ELW3LPeXP8LJhzwj3hpHDti9XG5M35ywX7eLSb5Tn7/hcS
xzLENE3YP5n5J5p2Wc1/HHuve34dTqP93E3jk/Lm3MVgzotme23OXBgbg60h
Jjga+ya8NG/Oe4zw1/CuxJoz2jMxBlrJ9pxjjwcSx7rEvGhpcCS4Et+D2JwY
HW0ETYPYnRgbbQQNgNibGHx2fN+bon2Be/CNdgRzOLhcx5xjSTgI2vmYnLkJ
HIFYDI4Gd3iAa+at4Z0QHEPzPQ/NO7ZGA0BLIceBNoAGgzaPJoI2g8ZBLgAN
C+3jFbXteX9f7MOdif0P/g7tCg0li/4IbWVLZm7RJvINNLBy0R+ijT2nNrhg
f8Z66RysxT2l1kn97Zn78JUK+Au+X8EcqmdmTvxrfB/4V2I6tHU0GmK9V9WG
Fbzeic2JKclFTcw51sQ/74r+Hv/5RGItAE2gRuaYlFwTnI9YlRgSrR7NitiS
mBbtf2bOsS4a7zXx/cIPJgbbTmwJ/vBejT+bOr6fH6xRdkxto9Aun83MBfDZ
+O51wfka8jYfpPaZ+M6T9NuC4PMRBxMPDynaf81K/Y3Q3utm1ssPgy/CTYNt
SYWIrycnpP6LOmY1sZ3mv5c3F+Z6XTLrEa3V1mjuXHx0zvc0T/1ZwbmUlgXn
lw4O9jX4uBvUvy5zvq16xJt0f/1T+6AbhR9kPabO9/UKfie8G67JtR8qtY6A
nnBnsM/H98ORpkV/vyh1fukx4bsya++91TYKLwnW8nsVrPdNUPuL9VRwfLUk
cY6padxPLwXbwuvw0epPCfZFcPrn1d+i692TOl/4YjD//Azui02P9uav1DZ+
q/BnnDPnmG99sP2Hy06L46xnbP9k8hscH5yvHCu8JZjfnJM4xh2u7/tAqXVD
9EP863J8XMHPzLOvUNsr75zV0mBbzNpnD6Ahor++IlwlxkPo33DBfWO+lG+w
I+/cCt+GZ+RdzEj87MTng3Lme+iZxOjE6uexPhJrumi7HYU/T6zxoPU0JweY
WqNAq+gm/BnvKXWscbnw1+pfp/ay8Ajha+Bjep6yUbuEuz2k+xki/B2xbqn1
l8aaf2rMn+4duTE25Ruul1hfmyG8l/Zfrqz7M8nhqt8pcexADPFv6jXEu4dD
srYa6u+Egvnla4l1N3w33/dPzV+WOn/NHOY+ir3NWdO4Tee6v9S6A/rDCuIx
Yoi8c8i3ci213/LORcMHuS7XH1Mwh0THRs8eWbCmxz1z77MK5th8F74P/gE/
Addi7ii13+DFGp9TMJ+EV7LmWHv4RNYqc5gLv92l/hq1n3U/VwqvSs1/56XO
IQ9DGwrOtfcpOL7FvqI3Dhd+JDjHSR6ZfDK5Tzjz6Hg/m9XvHsytn9d4T/xZ
sO/dEff/ZcG+/TXh3sHfg709Lu4H9gd9bBS2qofwGXnHxJwP/wR3JeeI/aOm
gBw764NaA+KP9olzuAP0PFWD9Uhy9t2ivxkqfKDmXy28ptR5JfJLHYLjFXQ4
9Lh+3J/mP553zEzsTM6f3D/5sDOEb8C/ps6vVQmuYaCWgXzi2fDxUq9JYqZp
Otds4f+w8zHenSW8InWOdoTwzcI7U8d4xHrUFKBxsJ8XRXvK3iU/2k/Pd4vw
ttQcCi61PHEekHxg22A8JXUMTix+u/orU+udjYWbp84BVo58YanO92Rqvaea
xm8Svi21vtlAeJnwaNYUPiA4Z07uHD3mAuF66o9LrbedL7xC401T5+ufyryn
2dt8g6FF81liHWw2tnuk2ica+0V4dLDekVP/bp4vxo9v6Pi6ev6bhFeVOg+8
KI5z/X6pY6KLgjVUdGX0ZbRV4iXy3RviOPES+dqaBfsr7CG2f270D/gL+tio
jfH+v01tf7BV8Bu40pCI8Z/HYyt1/hbBNu3L1D5nY+RLcJ2BmvNgcLz7bxlr
eoPJBWbWDvvDgaI9aVgwR4WrNgrWg3/EhgbHP/NyzonCL9BTWFv4fHz/KLXz
897zvM938Gfqf6p2hfCtMf67Jvo/NGXqTqg/QWuG38yK9vSZ6C+Zi815Tv0x
wbEtNg5bhx5QTcc3yFtbZb2h482K90u8Mzfnmp/mPJvaR8RaBfv/O0qti6OP
D4j+tQNciRgkWFOmBgh/htZMfAX3ryq8WLhNsG2eHPWVZ0O0jXnHuvg4bCqa
3yC974dScw1qJqifIOeCD9gW+Sc5l4ujT7gUPq+2Lu8cQKnO/XNm7QsNjPqG
XzLrdVckrpcgR0WuihxOr8zxJvEEOazLhCeXOt7YHuNPNA580X3CrTPbDPgH
vg1bMlWtbeIah74a2632t/qj9dvCUmssaC31iRGDvzHfGh/WX/3fM9f7jEqs
J/4m/B3rMXF9yK/C32I7E9d/YCOxleRM4euP6B0dXLBNp/7lpdRrDY2dehr4
G/lD1jRrmz3fG+6V2BagIcHN70msLX2eeu2Qg4Ev8D2oZTkpb43slNS1Tdib
TqltLHyGWh9sLzVh+CvsAXYBG4Q22jC1bWKNsFbI2aN39tD9bMo5xnhSeFdm
LRFNcb7m/5SZT8ArqK/5MjN/gEdQj8P+Yy2zpw6K9oq9tSbya9YzXJac0IH4
/9T5HOLR7qltOLacnNYBwTURPRLX2FArQY0T+ufbMf7E1pJruTnn538vNdeC
81MrUy84dw9H2j84fkV/3Rnj1f5q6/POMe0brOmh7ZGD2k/9vtoDd+dsI7GV
IzX/5Zw19cHBNTTdE+ux1NZQE9UzcY0QtVKjIt+FW+Hbvs08xjPxbF9nPpZn
4tnQZ85LrKmjb3yVuX6hc+J6om8yvwuuybXvCbZF1PzA96fotzYxPu/D2s3s
O7kn7u1P4oe8NRG0kT8yayNoHmgffwlXyDuGI5bD56JdkqvBF9PoY4MHwqWE
2yWuYbkc/SB1/o0aoPn6/b7UvoEaQ+qpwNRWkZMnN0++oE+0P9ha8j/EJnB4
uDzPRyxTEu0tNhZb+1vOetymYC2T890cXN9ArAOfQIuFf6GFzYtc7ufU3BqO
9JP636fOJeBv8bufZOZGPBPPhl5JrSQxHLEcPgnfRI0l+QI4HdxuQc56G/YJ
/ZOYhdiFmIbYhhpH9tM/qbklNhkOyv7uFs9PbSa6KLEjPp96QrRmYgnWJ/mg
O4L3BjEhsSHxMbkbcjjXqb82OFbdGfkn9odaPjgDMe5wfGDe+Qz216HB+SVi
UmLTHfp7ZsE+i3wn8RVrCw5/f+RexDro6dTPwG1qx+9Fvol6S2Jh9M4Gel+3
B9dbEbMRu+GD8EXksIYGc0F8HT6P+jK+D1yaGkXiH94XfJ0cCHwcLkftHHpZ
F/WTYPuHhoCWMCe4Vg4NFD0NDoZ2Ri52WeRu1AquyDlftyU1N4AjUA/5aOpa
SDg6OvhjqbUCODn1uMTnG3LWHNAenk+tRTyec/0rnBat9cTUXBfODfemhgj/
wnxqZfH/2+HJRWtPcAq4BfaPb/NDYm4Lx0TLo7YR7vlp3I9weLg89o7YgRo0
4sv+RWuzxCDEInBSbB+5UbjqkOD4FBuGvYO7kjvle5CfZ/0Qu/CM6B1wYbgU
nIr8/4LUa+sx4WbY5cxrmxiDWOP61LWGrMfF8X0Si1BDSH0pMQH1dlenjhWY
TyxDDpT6RPgX7wqOA9chN/Jx5BPkR/Ex+BpsKvrxsOD8Lxoy6+nw4FwfnHdV
9K9w6/Zqx/FuM9tGOAXcgni1UcE5MnJl+GB8MTUuffQuP8rMJbCp2Fb0EvQ2
agqOjfwRLj5H7dy4n+DKaC5oL02DtVQ0CuLfI4N9MT55WbxfuDv53SbBNgxb
1jDGx+hJaEfX4TPhzsG5go5qleC6mW0vnAfug/9C30B7IFdVP7g2hN/wZ7WC
Y7cncuZncFDWIhwSfaZ2MDf6LPJL5vPu+QbEezWCffXaGC+cHJy7JAYkPqQ+
hbWDBk0tBHob2ttQ4bOC41Vi30Gs2eD1SexEzQz+mXgL34MPOiHyVbgO3wg9
AfsHF8aGDY/3CxcmZw6fw96Qe3kG+6B+s2DtmpqWVpwrOBe6Oe/4j/oa/PuY
aE/Q0NHSdySud6qZuT7oqcT1QNRPYyvQaNBq4LBwWTgutcDkZ8n/kg8mv0v9
7i056wf4IDgwXJj8MPlb6gewReQ4OqTO32NLic+I02ZE/vxv5F9wULgoHJTa
ZTgoXBROTW3yrMhPS1LzXeoHiA/nRxsPX4QrjYg2E07ROWpA1C5T74stpiac
2nB8OvUin0V/CAcnF/Rx3D/kt8mfkp8j3809whXJp3Lv1HNjK9Azqe2i3h77
RM02tdtwbLg2HJNcPpoz2vOTieuzeAa4O5ycZ4PTUz/xaVzvxCBo4e8njk2o
J8IWT4x8kpgCLvVh4liDGIX6hg8Sxy7EZ9Tuk98l/whnoh7hk7jf2ZPsTXJi
1A+sCtYW4Jd7tOVgW0dMix5MPhXtCg2TfCJaCNoKGgv1wWgh1OITL1BvfE1w
7g5NuXFmPkKsjH5NfQPaBGuVNUt9zCXBeiP/dEI++/HMXISYj9iPGrZKUb+n
Vpf8EPky8ofkx9B7qO1EM8oH6zdwfzQetB5yzjwrsQJaArnnPXsn7/prauCo
vaSGkdo47BvaHjWi5IuoIawY8wHkf8gHkR8gf0B+hvwo2i0+IBdc00dtH3uM
2mryKeRzyL+QP2EPs5eJifYKrpmkdpIaS2p3K2Z+F9SYdgyuWaT2kvwTtYzE
U2i1cBCOpwaT/BT5IvI12Adqo9EkyW+R/0UnRi9+OFifQ5snH0d+DPuHVrIx
5/wZNn9O9I/EO9Q8olmiCZJvIR5D+6LmlXoDYgBiAfTWbcKnBdeioylTr4Dm
hPZEzE98RIxFrEWMS30H8RtaEnua+hZ8Ar4BzYb8NpoS2hKaDflttKYNcZz6
LvTFV/POx5I/xMaRDyafiu1jz5FPJJ/KXsRfo+WR0+Z7oaFhz/jfBbQ1bCK1
kthMbCV8BW0MG0P+ET6E1ofNJP+MDxga+R75XPJN5G/JF5M/qh6cy8Emk0/F
RwyK+ycf7TfaHRoz9SzwO2Jf7qlc9EdoldR4U0+DRsi7RZtHOyS/yVodn7q2
4v/tx8KK
            "]], Polygon3DBox[CompressedData["
1:eJwt1ne0znUcwPFfiot7r3WEZByhoi0ZobLHpeyRS1mhcCtUyujIOEbLKuuo
TjhGKrkKpWll1CmjUmlLKFRmqdfnPM8f73Oe9/v5/sb9Pd/v93er9M3rOKxA
kiSTUBDvZibJoowkGV84STr5ojjfkeW7C5NkjJ5RJEl28g0YcVGSHDfuGNbz
Dhjt8wN43viOfJPjFzvubKEkyXW+svye7CRpYsxnaOAc843rr9Xg3THCsW21
HO0Px/bHAcfer32M6Y4Zrb1u7Hi+GZO0xL39p23i+WisTTbuV20NX+fa8/kp
99LW+bJ4F9co5PuxeiHXna31Nnay1hlDtbv4Lv1VY4phiGOr8g1YyM853+1a
Mb4eC7QzWjstm2/BUu281lu7hLd13ePaIPyijdLewjz+t3E5WmY8eyzXiuAe
rSL/Bt/yZnhT68c/wsv8tGN7amX4F/hQuwLTtQZ8O5bF74gBWgW+GUv4P47t
pZWL8+OA1hxvaf35+3iBX4QuWkm+E6t4Nu7TLuN7sI5fitHadfxTvM5LICZc
db47/mZeHo9p1/IGnstHvBbmp++5rvYOvwqztJu0etpGfjVma7W1+tq7/BrM
0epon+A1XhxDtWr8A7wYvze6aqX4vuj8ckzTbuY3O997/Fo8p9XV9sZvzCtg
jHZ9PCd8x1tgnTYgHD/wVtigDeSH8CvvgK1aHr/TNUqYZ1O0i821l7WuWoY2
Ln4nbY7WWStYOLUGYy3O0nK1Uto0ray2ROujVdDmaNW1N7S7tUu12Vo1bbV2
l1ZOe1arpK3U+moVtefiOWhrtG5apvaElqUt0HpqJbWpWhltcawZraz2jFZR
W6H10spoT8fz0pZr3bUsbULMGW2+1kPL1ibG+tIWandoZ/mDsR48qwkxR63D
8tb0RmOn415j+qFS7Dcxzx2bH88dP/E2eMexg+O54yBvjy3aMP4jfuY52Kjd
yz/HG/FbYKR2Jf8y5jm/IT0n2/D2rnuOD8dJbaJ2vbYingke0ipr7bQTfDAO
ao9qHbR/+IjYi7RJWkftAn/HKO1f7Umtk1ZAezT2Dm26VktbHc84Pf96eCa3
att5fSzVWhrXSNvG62Kx1lwrj34+H3bOI3jQmE7aGu2zWEfaEK2zlq99HvtY
7MfafZjh88zCqWeam5maRzGfymurkZedWkuxplrzNhiYndoXY3/M52txv9YM
e9J72FrfdYkx2mmeh9+18Vor7SveOr2O7tRaa/vTv+/bWk+tqbabN81I3Xv8
DWdR1PUeib1Nm8f3x/7JFxROjevDf4/9LvZRfZE+zDOtlpWa7zHvc7TqPANX
+fweKpiHU/kw113FX0Vl41+JvUlv5HMtbWu8D40Zom9yjbP8HEZmp+ZbzLvn
+dx412iDMCp+83gnOUdvY7ZmpvbM2DvHxXs53m3aDO0kP4XhjtualVorsWYK
eRdu45XQ3nnyjNmLhfzJrNQ+GvvpZu0pfsb5ivj8cLzPfDeXn0YSz0M7qk3j
zV1nb/q9EO+erlptLZ9fhklaDe1GbQ2vgolaTe0wjsS7Azu04fwcSsd7XMt0
n8v4TY5dy6tictxn7GHx7vf9tNh3MNiYG7Ay9j48bFwl4xpqm/iN8RtrDbXG
2ie8EVZoOdpvcT+8M7bHM+N1jNvAr0y/L2Nvv03bxRtieXrtt9EO8V7Yl97H
r9Ne4kUxUCutzXTPNc2Tbe63DgYY0xJfpt8L62P9Gnccx3hu+nzxv0AL477g
LdPvlO7aKfwX7zEc0abykzjPh+CwNoXf4tiPeT0s0VpoTbRP+S1YqbXVjsbc
592wSxvJ/47rZKTWQqyJx+M3i7HxrsRObQT/M8byPvhaG8tP4C9+N/ZrY8Lj
HnlffKON49/H3pte07F+B/H/Af55Y7Y=
            "]]},
          Annotation[#, "Charting`Private`Tag$127620#2"]& ]],
        Lighting->{{"Ambient", 
           RGBColor[
           0.19699838300000003`, 0.252204821, 0.33320940200000004`]}, {
          "Directional", 
           RGBColor[
           0.15473514000000002`, 0.21284718000000002`, 0.29811516000000005`], 
           ImageScaled[{0, 2, 2}]}, {"Directional", 
           RGBColor[
           0.15473514000000002`, 0.21284718000000002`, 0.29811516000000005`], 
           ImageScaled[{2, 2, 2}]}, {"Directional", 
           RGBColor[
           0.15473514000000002`, 0.21284718000000002`, 0.29811516000000005`], 
           ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}, {}}, {
      {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0r1Pk1EUB+BTKUrVWkkFFoJpHIxRGj+oCimjYcAwkIpRF9OGAYRWNzsT
oxMQY6ohGI3RTo6ysMJOoqh8+Dn6X/i8mvS8z+80597e27ZQbUzWUxGxpJKQ
5FmPrMpkIo7r8zzJARZ5hqO8yusc4x1OH464a92sXGXN+025JtflJ3KTz/mI
bS5zja+4yZI9us3fV5/0c+xV5zsjtvUX+JkX+YWX+JVD3OHZgxGT5nflc3JF
3pNvsGRmX77Mb7zC78k9+IPD/MkR/mJYn7fugfqtnWefWnfWj/r33OBLfuAi
33GBLf5xl1MHIh7LE3LZ2ofJ57JqZiY5v1yRb8vXOJ6cj2We5iD7OZDc2R45
8w2V099jj2qnI47p3zLLNzzK1zzCLfcoOIflUZRvJb+tPCjflLvkKa6aPySv
pP9dPV7QVxEtesUzjw4+pe0iZehE6v//5i99zDlw
        "]]}, 
      {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0rsvn1EcB+Bv/UQFo6nq3qJW6WgRi/ulVIVWYyAiqcFlMbQRJnEr1UbQ
YOllqltr07+g/QvYJWwigvD8Yvjk+Zw355z3nDdvYe9Q67sHETEn+4mImpSI
bbZLRmbEK+Ns9jOfYyznFJ9zidXcYkNWxDfrtvUffOv5X/2nPqj/18d4zAme
cYY3XGWWeSX26OQfyZFdeSOzDyMec465nGceF5jPjyzgcHrECgtlRF9lkazJ
ojnFXOITfuJTLrOEn1nKLyxjo/VdPJBnsic98ttZH/E7M7nCa3eY5ik/8Ij7
7jKYGvFPr9QnzT3U3yf3MeeXPq636Jt6FRdZwUmWcZS57GOxPTqS75cO4x2+
lnTnfWmcxnamso0JvuCJeww4R2vy++sbyXfqo/pXvVlf521aRJN+w0ZesYGX
rOcF63jOWjZZ3524/2/uAD1CRjE=
        "]]}, 
      {GrayLevel[0.2], 
       Line3DBox[{2313, 2609, 1339, 2312, 3446, 2491, 2314, 3447, 2492, 2315, 
        3448, 2493, 2316, 3449, 2494, 2317, 3359, 3450, 2495, 2730, 3605, 
        2564, 2667, 2769, 2496, 2615, 2565, 2617, 2668, 3281, 3586, 2616, 
        2566, 2618, 2671, 3573, 2497, 2670, 2669, 2732, 3606, 2498, 2318, 
        2794, 2795, 3620, 2499, 2319, 3451, 2500, 2320, 3452, 2501, 2321, 
        3344, 3453, 2502, 2610}], 
       Line3DBox[{2323, 3282, 3504, 2322, 1351, 2324, 3454, 2503, 2325, 3455, 
        2504, 2326, 3456, 2505, 2327, 3457, 2506, 2328, 3585, 2666, 2507, 
        2731, 2567, 2673, 2770, 2771, 3615, 2619, 2568, 2621, 2674, 3562, 
        3347, 2620, 2569, 2622, 3588, 2677, 2678, 2676, 2675, 2734, 3607, 
        2508, 2329, 3368, 3458, 2796, 2509, 2330, 3459, 2510, 2331, 3460, 
        2511, 2332}], 
       Line3DBox[{2334, 3283, 3505, 2333, 3284, 3506, 2335, 1363, 2336, 3461, 
        2512, 2337, 3462, 2513, 2338, 3463, 2514, 2339, 3464, 2515, 2340, 
        2672, 3285, 3587, 2733, 2570, 2681, 2772, 3563, 3363, 2623, 2571, 
        2625, 3348, 3564, 2683, 2624, 2572, 2627, 3589, 2685, 2686, 2684, 
        3349, 3465, 2736, 2516, 2341, 3621, 2797, 2798, 2517, 2342, 3466, 
        2518, 2343}], 
       Line3DBox[{2345, 3286, 3507, 2344, 3287, 3508, 2346, 3288, 3509, 2347, 
        1374, 2348, 3467, 2519, 2349, 3468, 2520, 2350, 3469, 2521, 2351, 
        3289, 3510, 2352, 2679, 2682, 2680, 3616, 3364, 2353, 2735, 2573, 
        2626, 2574, 3574, 2354, 2657, 2575, 2628, 2576, 3575, 2355, 2738, 
        3565, 2577, 2737, 2578, 2774, 2356, 2800, 3590, 2689, 2799, 2690, 
        2357, 3622, 2801, 2802, 2358}], 
       Line3DBox[{2360, 3290, 3511, 2359, 3291, 3512, 2361, 3292, 3513, 2362, 
        3293, 3514, 2363, 1384, 2364, 3470, 2522, 2365, 3471, 2523, 2366, 
        3294, 3515, 2367, 3295, 3516, 2368, 2687, 2688, 3517, 3350, 2773, 
        2369, 2739, 2579, 2629, 3518, 3337, 2370, 2658, 3338, 3582, 2630, 
        2580, 2371, 2741, 3566, 2581, 2740, 2582, 2777, 2372, 3369, 3591, 
        2693, 2803, 2694, 2373}], 
       Line3DBox[{2375, 2747, 2748, 3610, 2374, 2804, 3519, 3370, 2376, 3296, 
        3520, 2377, 3297, 3521, 2378, 3298, 3522, 2379, 1395, 2380, 3472, 
        2524, 2381, 3299, 3523, 2382, 3300, 3524, 2383, 3301, 3525, 2384, 
        2691, 2692, 3526, 2776, 2775, 2385, 2742, 2743, 3608, 2631, 2583, 
        2386, 2659, 2660, 3583, 2632, 2584, 2387, 3609, 2745, 2746, 2744, 
        2585, 2388}], 
       Line3DBox[{106, 309, 1250, 107, 480, 1251, 108, 565, 1252, 109, 1253, 
        110, 1254, 111, 1255, 112, 1256, 113, 1257, 114, 1258, 115, 1259, 116,
         1260, 117, 1261, 118, 1630, 408, 119, 1557, 312, 120}], 
       Line3DBox[{2402, 2587, 2634, 2662, 3577, 3345, 2401, 2586, 2633, 3360, 
        3576, 2752, 2400, 2778, 2779, 2695, 3592, 3351, 2399, 3535, 3308, 
        2398, 3534, 3307, 2397, 3533, 3306, 2396, 3532, 3305, 2395, 1407, 
        2394, 3531, 3304, 2393, 3530, 3303, 2392, 3529, 3302, 2391, 3371, 
        3528, 2808, 2390, 3352, 3527, 2805, 2807, 2806, 2389, 3365, 3617, 
        2780, 2749, 2751, 2750, 2661}], 
       Line3DBox[{2403, 2588, 2636, 2696, 3578, 2525, 2635, 2589, 2637, 3354, 
        3579, 2526, 2698, 2697, 2754, 3611, 2527, 2404, 3372, 3473, 2809, 
        2528, 2405, 3474, 2529, 2406, 3475, 2530, 2407, 3476, 2531, 2408, 
        1417, 2409, 3477, 2532, 2410, 3478, 2533, 2411, 3479, 2534, 2412, 
        3480, 2535, 2413, 3353, 3481, 2536, 2753, 3339, 3482, 2700, 2781, 
        2537, 2638}], 
       Line3DBox[{2414, 2590, 2702, 2782, 3309, 3618, 2639, 2591, 2641, 3595, 
        2703, 2538, 2640, 2592, 2642, 3596, 2705, 2539, 2704, 3355, 3483, 
        2756, 2540, 2415, 3373, 3484, 2810, 2541, 2416, 3485, 2542, 2417, 
        3486, 2543, 2418, 3310, 3536, 2419, 1426, 2420, 3487, 2544, 2421, 
        3488, 2545, 2422, 3489, 2546, 2423, 3490, 2547, 2424, 3593, 2699, 
        2548, 2793}], 
       Line3DBox[{2425, 2701, 3311, 3594, 2755, 2593, 2707, 3366, 3567, 2783, 
        2643, 2594, 2645, 3598, 2708, 2709, 2644, 3340, 3491, 2646, 2711, 
        2712, 2710, 1651, 2758, 2549, 2426, 3623, 2811, 2812, 2550, 2427, 
        3492, 2551, 2428, 3312, 3537, 2429, 3313, 3538, 2430, 1435, 2431, 
        3493, 2552, 2432, 3494, 2553, 2433, 3495, 2554, 2434, 3496, 2555, 
        2435}], Line3DBox[{2437, 3314, 3539, 2436, 2706, 3315, 3597, 2757, 
        2595, 2715, 3367, 3568, 2784, 2647, 3341, 3497, 2649, 2717, 2718, 
        2648, 3580, 2596, 2651, 2721, 2722, 2720, 3599, 2719, 2760, 2556, 
        2438, 3624, 2813, 2814, 2557, 2439, 3316, 3540, 2440, 3317, 3541, 
        2441, 3318, 3542, 2442, 1445, 2443, 3498, 2558, 2444, 3499, 2559, 
        2445, 3500, 2560, 2446}], 
       Line3DBox[{2448, 3319, 3543, 2447, 3320, 3544, 2449, 2713, 2716, 2714, 
        3619, 2785, 2450, 2759, 3342, 3612, 2650, 2597, 2451, 2663, 3569, 
        2598, 2652, 2599, 2452, 3361, 3570, 2600, 2761, 2601, 2787, 2453, 
        3374, 3601, 2725, 2815, 2726, 2454, 2816, 2817, 3625, 2455, 3321, 
        3545, 2456, 3322, 3546, 2457, 3323, 3547, 2458, 1456, 2459, 3501, 
        2561, 2460, 3502, 2562, 2461}], 
       Line3DBox[{2463, 3324, 3548, 2462, 3325, 3549, 2464, 3326, 3550, 2465, 
        3356, 3600, 2724, 2723, 2786, 2466, 2762, 3343, 3613, 2653, 2602, 
        2467, 3346, 3571, 2603, 2654, 2604, 2468, 3614, 2764, 2605, 2763, 
        2606, 2790, 2469, 2819, 2728, 2818, 2729, 3603, 2470, 2820, 2821, 
        3626, 2471, 3327, 3551, 2472, 3328, 3552, 2473, 3329, 3553, 2474, 
        1467, 2475, 3503, 2563, 2476}], 
       Line3DBox[{2490, 2614, 1534, 2489, 3561, 3336, 2488, 3560, 3335, 2487, 
        3559, 3334, 2486, 3558, 3333, 2485, 3358, 3557, 2822, 2824, 2823, 
        2484, 3604, 2791, 2792, 2766, 2768, 2767, 2483, 2608, 2656, 2665, 
        2664, 3584, 2482, 2607, 2655, 2765, 3581, 3362, 2481, 2788, 2789, 
        2727, 3602, 3357, 2480, 3556, 3332, 2479, 3555, 3331, 2478, 3554, 
        3330, 2477, 3572, 2612, 2611, 2613}], 
       Line3DBox[{2826, 3106, 1945, 2825, 3683, 3000, 2827, 3684, 3001, 2828, 
        3685, 3002, 2829, 3686, 3003, 2830, 3440, 3759, 3004, 3203, 2079, 
        3156, 3235, 3005, 3112, 3068, 3114, 3157, 1950, 3113, 3069, 3115, 
        3160, 3752, 3006, 3159, 3158, 3205, 3751, 3007, 2831, 3255, 3256, 
        3008, 2832, 3687, 3009, 2833, 3688, 3010, 2834, 3431, 3743, 3011, 
        3107}], 
       Line3DBox[{2836, 3375, 3627, 2835, 1955, 2837, 3689, 3012, 2838, 3690, 
        3013, 2839, 3691, 3014, 2840, 3692, 3015, 2841, 3693, 3155, 3016, 
        3204, 3070, 3162, 1094, 3744, 3116, 3071, 3118, 962, 3117, 3072, 3119,
         3736, 965, 3164, 3163, 3207, 3017, 2842, 3442, 3771, 3257, 3018, 
        2843, 3694, 3019, 2844, 3695, 3020, 2845}], 
       Line3DBox[{2847, 3376, 3628, 2846, 3377, 3629, 2848, 1965, 2849, 3696, 
        3021, 2850, 3697, 3022, 2851, 3698, 3023, 2852, 3699, 3024, 2853, 
        3161, 3378, 3760, 3206, 3073, 3165, 3236, 3767, 3237, 3120, 3074, 
        3122, 3737, 3166, 3167, 3121, 3075, 3123, 3169, 3170, 3168, 3433, 
        3761, 3208, 3025, 2854, 3700, 3258, 3259, 3026, 2855, 3701, 3027, 
        2856}], Line3DBox[{2858, 3379, 3630, 2857, 3380, 3631, 2859, 3381, 
        3632, 2860, 1975, 2861, 3702, 3028, 2862, 3703, 3029, 2863, 3704, 
        3030, 2864, 3382, 3633, 2865, 966, 2235, 1046, 819, 2133, 880, 820, 
        881, 2134, 821, 976, 2191, 975, 2866, 3705, 1142, 2867}], 
       Line3DBox[{2869, 3383, 3634, 2868, 3384, 3635, 2870, 3385, 3636, 2871, 
        3386, 3637, 2872, 1985, 2873, 3706, 3031, 2874, 3707, 3032, 2875, 
        3387, 3638, 2876, 3388, 3639, 2877, 3171, 3172, 3768, 3434, 3238, 
        2878, 3209, 3076, 3124, 3077, 2879, 3148, 3428, 3738, 3125, 3078, 
        2880, 3211, 3762, 3079, 3210, 3080, 3239, 2881, 3443, 3772, 3175, 
        3260, 3176, 2882}], 
       Line3DBox[{2884, 3213, 3214, 3640, 2883, 3261, 2296, 2885, 3389, 3641, 
        2886, 3390, 3642, 2887, 3391, 3643, 2888, 1996, 2889, 3708, 3033, 
        2890, 3392, 3644, 2891, 3393, 3645, 2892, 3394, 3646, 2893, 3173, 
        3174, 1104, 2894, 1055, 3739, 3126, 3081, 2895, 935, 3740, 3127, 3082,
         2896, 3745, 1057, 3212, 3083, 2897}], 
       Line3DBox[{690, 893, 1856, 691, 1064, 1857, 692, 1149, 1858, 693, 1859,
         694, 1860, 695, 1861, 696, 1862, 697, 1863, 698, 1864, 699, 1865, 
        700, 1866, 701, 1867, 702, 2202, 992, 703, 2145, 896, 704}], 
       Line3DBox[{2911, 3085, 3129, 3150, 3749, 3432, 2910, 3084, 3128, 3441, 
        3763, 3218, 2909, 3240, 3241, 3177, 3753, 3435, 2908, 3653, 3401, 
        2907, 3652, 3400, 2906, 3651, 3399, 2905, 3650, 3398, 2904, 2007, 
        2903, 3649, 3397, 2902, 3648, 3396, 2901, 3647, 3395, 2900, 3444, 
        3774, 3265, 2899, 3436, 3773, 3262, 3264, 3263, 2898, 2271, 3242, 
        3215, 3217, 3216, 3149}], 
       Line3DBox[{2912, 3086, 3131, 3178, 2012, 3130, 3087, 3132, 3181, 3756, 
        3034, 3180, 3179, 3220, 3755, 3035, 2913, 3266, 3267, 3036, 2914, 
        3709, 3037, 2915, 3710, 3038, 2916, 3711, 3039, 2917, 2017, 2918, 
        3712, 3040, 2919, 3713, 3041, 2920, 3714, 3042, 2921, 3715, 3043, 
        2922, 3437, 3754, 3044, 3219, 3429, 3757, 3183, 3243, 3045, 3133}], 
       Line3DBox[{2923, 3088, 3185, 1113, 3746, 3134, 3089, 3136, 1002, 3135, 
        3090, 3137, 3741, 1005, 3187, 3186, 3222, 3046, 2924, 3445, 3775, 
        3268, 3047, 2925, 3716, 3048, 2926, 3717, 3049, 2927, 3402, 3654, 
        2928, 2026, 2929, 3718, 3050, 2930, 3719, 3051, 2931, 3720, 3052, 
        2932, 3721, 3053, 2933, 3722, 3182, 3054, 3254}], 
       Line3DBox[{2934, 3184, 3403, 3764, 3221, 3091, 3188, 3244, 3769, 3245, 
        3138, 3092, 3140, 2212, 3189, 3139, 3093, 3141, 3191, 3192, 3190, 
        2215, 3223, 3055, 2935, 3723, 3269, 3270, 3056, 2936, 3724, 3057, 
        2937, 3404, 3655, 2938, 3405, 3656, 2939, 2035, 2940, 3725, 3058, 
        2941, 3726, 3059, 2942, 3727, 3060, 2943, 3728, 3061, 2944}], 
       Line3DBox[{2946, 3406, 3657, 2945, 1006, 2253, 1075, 840, 2151, 909, 
        841, 910, 2152, 842, 1016, 2219, 1015, 2947, 3729, 1160, 2948, 3407, 
        3658, 2949, 3408, 3659, 2950, 3409, 3660, 2951, 2045, 2952, 3730, 
        3062, 2953, 3731, 3063, 2954, 3732, 3064, 2955}], 
       Line3DBox[{2957, 3410, 3661, 2956, 3411, 3662, 2958, 3193, 3194, 2217, 
        3246, 2959, 3224, 3094, 3142, 3095, 2960, 3151, 2111, 3143, 3096, 
        2961, 3226, 3765, 3097, 3225, 3098, 3248, 2962, 2309, 3198, 3271, 
        3199, 2963, 3272, 3273, 3663, 2964, 3412, 3664, 2965, 3413, 3665, 
        2966, 3414, 3666, 2967, 2056, 2968, 3733, 3065, 2969, 3734, 3066, 
        2970}], 
       Line3DBox[{2972, 3415, 3667, 2971, 3416, 3668, 2973, 3417, 3669, 2974, 
        3195, 3197, 3196, 3247, 2975, 3227, 3430, 3742, 3144, 3099, 2976, 
        3152, 3750, 3100, 3145, 3101, 2977, 3747, 3229, 3102, 3228, 3103, 
        3251, 2978, 3275, 3201, 3274, 3202, 3670, 2979, 3276, 3277, 3671, 
        2980, 3418, 3672, 2981, 3419, 3673, 2982, 3420, 3674, 2983, 2067, 
        2984, 3735, 3067, 2985}], 
       Line3DBox[{2999, 3111, 2124, 2998, 3682, 3427, 2997, 3681, 3426, 2996, 
        3680, 3425, 2995, 3679, 3424, 2994, 3439, 3776, 3278, 3280, 3279, 
        2993, 3770, 3252, 3253, 3232, 3234, 3233, 2992, 3105, 3147, 3154, 
        3153, 3748, 2991, 3104, 3146, 3231, 3766, 3230, 2990, 3249, 3250, 
        3200, 3758, 3438, 2989, 3678, 3423, 2988, 3677, 3422, 2987, 3676, 
        3421, 2986, 3675, 3109, 3108, 3110}]}, 
      {GrayLevel[0.2], 
       Line3DBox[{1170, 1340, 3446, 1171, 1351, 1193, 3506, 1362, 1206, 3508, 
        1372, 1218, 3512, 1381, 1229, 3519, 1758, 1391, 1240, 3527, 1625, 
        1402, 1251, 1730, 1505, 1633, 1634, 1635, 3579, 1263, 1508, 1560, 
        1639, 3595, 1640, 1275, 1510, 1561, 3567, 1735, 1736, 1287, 1737, 
        1647, 1695, 3597, 1441, 1298, 3544, 1450, 1308, 3549, 1460, 1318, 
        3554, 1470, 1329}], 
       Line3DBox[{1172, 1341, 3447, 1173, 1352, 3454, 1194, 1363, 1207, 3509, 
        1373, 1219, 3513, 1382, 1230, 3520, 1392, 1241, 3528, 1759, 1403, 
        1252, 1632, 1413, 3611, 1264, 1734, 1509, 1643, 1645, 3596, 1646, 
        1276, 1511, 1562, 1648, 3598, 1649, 1288, 1514, 1565, 3568, 1738, 
        1739, 1299, 1740, 1653, 3619, 1698, 1451, 1309, 3550, 1461, 1319, 
        3555, 1471, 1330}], 
       Line3DBox[{1174, 1342, 3448, 1175, 1353, 3455, 1195, 1364, 3461, 1208, 
        1374, 1220, 3514, 1383, 1231, 3521, 1393, 1242, 3529, 1404, 1253, 
        1760, 1761, 3473, 1762, 1763, 1641, 1644, 1642, 3483, 1693, 1694, 
        1512, 1563, 1513, 3491, 1564, 1587, 1515, 1566, 1516, 3497, 1568, 
        1700, 3612, 1519, 1699, 1520, 1658, 3600, 1656, 1657, 1320, 3556, 
        1472, 1331}], 
       Line3DBox[{1176, 1343, 3449, 1177, 1354, 3456, 1196, 1365, 3462, 1209, 
        1375, 3467, 1221, 1384, 1232, 3522, 1394, 1243, 3530, 1405, 1254, 
        1414, 3474, 1265, 1764, 1765, 3484, 1766, 1767, 1650, 1652, 1651, 
        1696, 1697, 1517, 1567, 3580, 1518, 1569, 1588, 1521, 3569, 1570, 
        1522, 1572, 1705, 3613, 1524, 1704, 1525, 1663, 3602, 1661, 1662, 
        1332}], Line3DBox[{1178, 1668, 1669, 3450, 1179, 1355, 3457, 1197, 
        1366, 3463, 1210, 1376, 3468, 1222, 1385, 3470, 1233, 1395, 1244, 
        3531, 1406, 1255, 1415, 3475, 1266, 1423, 3485, 1277, 1768, 3623, 
        1769, 1770, 1771, 1772, 1655, 3599, 1654, 1701, 1702, 1703, 3570, 
        1571, 1523, 1573, 1589, 1590, 3571, 1574, 1526, 1576, 3581, 1710, 
        1711, 1709, 1528, 1579}], 
       Line3DBox[{1180, 1671, 1672, 1670, 3605, 1479, 1595, 1593, 3585, 1594, 
        1198, 1367, 3464, 1211, 1377, 3469, 1223, 1386, 3471, 1234, 1396, 
        3472, 1245, 1407, 1256, 1416, 3476, 1267, 1424, 3486, 1278, 1432, 
        3492, 1289, 1773, 3624, 1774, 1775, 1776, 1777, 3601, 1660, 1659, 
        1706, 1707, 3614, 1708, 1575, 1527, 1577, 1591, 3584, 1592, 1578, 
        1529, 1580}], 
       Line3DBox[{8, 284, 2615, 23, 454, 2731, 38, 2340, 53, 2351, 68, 2366, 
        83, 2381, 98, 2395, 113, 2408, 128, 2418, 143, 2428, 158, 2439, 173, 
        2454, 188, 2469, 444, 203, 2483, 339, 218}], 
       Line3DBox[{1184, 1744, 1347, 3620, 1185, 1601, 1358, 3607, 1202, 1721, 
        1486, 1609, 1611, 3589, 1612, 1215, 1488, 3575, 1544, 1614, 1615, 
        1227, 3518, 1491, 1547, 1725, 1726, 1238, 1727, 3526, 1619, 1680, 
        1400, 1249, 3535, 1411, 1260, 1420, 3479, 1271, 1428, 3488, 1282, 
        1436, 3493, 1293, 1445, 1303, 3547, 1455, 1313, 3552, 1465, 1324, 
        3559, 1476, 1336}], 
       Line3DBox[{1186, 1348, 3451, 1187, 1745, 1746, 3458, 1747, 1748, 1607, 
        1610, 1608, 3465, 1675, 1676, 1489, 3565, 1545, 1490, 1546, 1583, 
        3582, 1492, 1548, 1493, 1550, 1682, 3608, 1496, 1681, 1497, 1624, 
        3592, 1622, 1623, 1261, 1421, 3480, 1272, 1429, 3489, 1283, 1437, 
        3494, 1294, 1446, 3498, 1304, 1456, 1314, 3553, 1466, 1325, 3560, 
        1477, 1337}], 
       Line3DBox[{1188, 1349, 3452, 1189, 1359, 3459, 1203, 1749, 3621, 1750, 
        1751, 1752, 1616, 3590, 1618, 1617, 1678, 1679, 1494, 3566, 1549, 
        1495, 1551, 1584, 3583, 1498, 1552, 1499, 1554, 3576, 1688, 1501, 
        1687, 1502, 1630, 1628, 1629, 3481, 1273, 1430, 3490, 1284, 1438, 
        3495, 1295, 1447, 3499, 1305, 1457, 3501, 1315, 1467, 1326, 3561, 
        1478, 1338}], 
       Line3DBox[{1190, 1531, 1532, 3453, 1191, 1360, 3460, 1204, 1370, 3466, 
        1216, 1753, 3622, 1754, 1755, 1756, 1757, 3591, 1621, 1620, 1683, 
        1684, 3609, 1685, 1553, 1500, 1555, 3577, 1585, 1586, 1556, 1503, 
        1557, 1690, 1691, 1689, 1506, 3482, 1638, 1636, 3593, 1637, 1285, 
        1439, 3496, 1296, 1448, 3500, 1306, 1458, 3502, 1316, 1468, 3503, 
        1327, 1534, 1535, 1536}], 
       Line3DBox[{1328, 1469, 3572, 1533, 1317, 1459, 3548, 1307, 1449, 3543, 
        1297, 1440, 3539, 1286, 1431, 3594, 1692, 1733, 1732, 1274, 1422, 
        3618, 1731, 1559, 1507, 1262, 3578, 1412, 1631, 1558, 1504, 1250, 
        1401, 1627, 1626, 1729, 1728, 3617, 1239, 1390, 3610, 1686, 1228, 
        1380, 3511, 1217, 1371, 3507, 1205, 1361, 3505, 1192, 1350, 3504, 
        1169, 1339, 1530, 1537}], 
       Line3DBox[{1333, 1473, 1667, 1666, 1742, 3604, 1741, 1321, 1462, 3603, 
        1664, 1310, 1452, 3625, 1778, 1300, 1442, 3540, 1290, 1433, 3537, 
        1279, 1425, 3536, 1268, 1417, 1257, 1408, 3532, 1246, 1397, 3523, 
        1235, 1387, 3515, 1224, 1378, 3510, 1212, 1368, 3587, 1673, 1716, 
        1715, 1199, 1356, 3615, 1714, 1539, 1481, 1181, 1344, 3586, 1596, 
        1538, 1480, 1581}], 
       Line3DBox[{1334, 1474, 1665, 3557, 1322, 1463, 3626, 1779, 1311, 1453, 
        3545, 1301, 1443, 3541, 1291, 1434, 3538, 1280, 1426, 1269, 3477, 
        1418, 1258, 1409, 3533, 1247, 1398, 3524, 1236, 1388, 3516, 1225, 
        1379, 1674, 3616, 1720, 1719, 1213, 1369, 1718, 3563, 1541, 1484, 
        1200, 1357, 1600, 3562, 1540, 1482, 1182, 3573, 1345, 1599, 1598, 
        1713, 1712, 1582}], 
       Line3DBox[{1335, 1475, 3558, 1323, 1464, 3551, 1312, 1454, 3546, 1302, 
        1444, 3542, 1292, 1435, 1281, 3487, 1427, 1270, 3478, 1419, 1259, 
        1410, 3534, 1248, 1399, 3525, 1237, 1389, 1677, 1613, 3517, 1724, 
        1226, 1723, 1722, 1543, 3574, 1487, 1214, 1606, 1605, 3564, 1542, 
        1485, 1201, 1604, 3588, 1603, 1602, 1483, 1717, 1183, 3606, 1346, 
        1597, 1743}], 
       Line3DBox[{1781, 1946, 3683, 1782, 1955, 1803, 3629, 1964, 1815, 3631, 
        1973, 1826, 3635, 1982, 1836, 2296, 1992, 1846, 3773, 2197, 2002, 
        1857, 1111, 2205, 997, 3756, 1869, 2104, 2148, 1002, 1881, 2106, 2149,
         3769, 1116, 1893, 1117, 2253, 2041, 1904, 3662, 2050, 1914, 3668, 
        2060, 1924, 3676, 2070, 1935}], 
       Line3DBox[{1783, 1947, 3684, 1784, 1956, 3689, 1804, 1965, 1816, 3632, 
        1974, 1827, 3636, 1983, 1837, 3641, 1993, 1847, 3774, 2297, 2003, 
        1858, 2204, 2013, 3755, 1870, 2276, 2105, 2209, 2210, 3741, 2211, 
        1882, 2107, 2150, 2212, 2213, 1894, 2108, 2151, 2277, 2278, 1905, 
        2279, 2217, 2256, 2051, 1915, 3669, 2061, 1925, 3677, 2071, 1936}], 
       Line3DBox[{1785, 1948, 3685, 1786, 1957, 3690, 1805, 1966, 3696, 1817, 
        1975, 1828, 3637, 1984, 1838, 3642, 1994, 1848, 3647, 2004, 1859, 
        1151, 3267, 1152, 1003, 3222, 1073, 839, 3141, 908, 841, 911, 3142, 
        843, 1019, 3197, 1018, 1926, 3678, 2072, 1937}], 
       Line3DBox[{1787, 1949, 3686, 1788, 1958, 3691, 1806, 1967, 3697, 1818, 
        1976, 3702, 1829, 1985, 1839, 3643, 1995, 1849, 3648, 2005, 1860, 
        2014, 3709, 1871, 2298, 2299, 3775, 2300, 2301, 2214, 2216, 2215, 
        2254, 2255, 2109, 2152, 2110, 2153, 2171, 2111, 2154, 2112, 2156, 
        2259, 3742, 2114, 2258, 2115, 2224, 3758, 2222, 2223, 1938}], 
       Line3DBox[{1789, 2229, 2230, 3759, 1790, 1959, 3692, 1807, 1968, 3698, 
        1819, 1977, 3703, 1830, 1986, 3706, 1840, 1996, 1850, 3649, 2006, 
        1861, 2015, 3710, 1872, 2023, 3716, 1883, 2302, 3723, 2303, 2304, 
        1159, 2219, 2218, 2257, 1082, 3765, 2155, 2113, 2157, 944, 3750, 2158,
         2116, 2160, 3766, 1088, 2263, 2118, 2163}], 
       Line3DBox[{1791, 2232, 2233, 2231, 2079, 2176, 2174, 3693, 2175, 1808, 
        1969, 3699, 1820, 1978, 3704, 1831, 1987, 3707, 1841, 1997, 3708, 
        1851, 2007, 1862, 2016, 3711, 1873, 2024, 3717, 1884, 2032, 3724, 
        1895, 2305, 3729, 2306, 2307, 2308, 2309, 2221, 2220, 2260, 2261, 
        3747, 2262, 2159, 2117, 2161, 2172, 3748, 2173, 2162, 2119, 2164}], 
       Line3DBox[{592, 868, 3112, 607, 1038, 3204, 622, 2853, 637, 2864, 652, 
        2875, 667, 2890, 682, 2904, 697, 2917, 712, 2927, 727, 2937, 742, 
        2948, 757, 2963, 772, 2978, 1028, 787, 2992, 923, 802}], 
       Line3DBox[{1795, 1133, 3256, 1134, 963, 3207, 1044, 818, 3123, 879, 
        820, 882, 3124, 822, 979, 3174, 978, 1855, 3653, 2011, 1866, 2020, 
        3714, 1877, 2028, 3719, 1888, 2036, 3725, 1899, 2045, 1909, 3666, 
        2055, 1919, 3673, 2065, 1930, 3680, 2076, 1942}], 
       Line3DBox[{1796, 1952, 3687, 1797, 2283, 2284, 3771, 2285, 2286, 2185, 
        2187, 2186, 3761, 2236, 2237, 2087, 2134, 2088, 2135, 2167, 3738, 
        2089, 2136, 2090, 2138, 2242, 3739, 2093, 2241, 2094, 2196, 3753, 
        2194, 2195, 1867, 2021, 3715, 1878, 2029, 3720, 1889, 2037, 3726, 
        1900, 2046, 3730, 1910, 2056, 1920, 3674, 2066, 1931, 3681, 2077, 
        1943}], Line3DBox[{1798, 1953, 3688, 1799, 1961, 3694, 1812, 2287, 
        3700, 2288, 2289, 2290, 2189, 2191, 2190, 2239, 2240, 2091, 3762, 
        2137, 2092, 2139, 2168, 3740, 2095, 2140, 2096, 2142, 3763, 2248, 
        2098, 2247, 2099, 2202, 2200, 2201, 3754, 1879, 2030, 3721, 1890, 
        2038, 3727, 1901, 2047, 3731, 1911, 2057, 3733, 1921, 2067, 1932, 
        3682, 2078, 1944}], 
       Line3DBox[{1800, 2121, 2122, 3743, 1801, 1962, 3695, 1813, 1971, 3701, 
        1824, 2291, 3705, 2292, 2293, 2294, 2295, 3772, 2193, 2192, 2243, 
        2244, 3745, 2245, 2141, 2097, 2143, 3749, 2169, 2170, 2144, 2100, 
        2145, 2250, 2251, 2249, 2102, 3757, 2208, 2206, 3722, 2207, 1891, 
        2039, 3728, 1902, 2048, 3732, 1912, 2058, 3734, 1922, 2068, 3735, 
        1933, 2124, 2125, 2126}], 
       Line3DBox[{1934, 2069, 3675, 2123, 1923, 2059, 3667, 1913, 2049, 3661, 
        1903, 2040, 3657, 1892, 2031, 3764, 2252, 2275, 2274, 1880, 2022, 
        3746, 2273, 2147, 2103, 1868, 2012, 2203, 2146, 2101, 1856, 2001, 
        2199, 2198, 2272, 2271, 1845, 1991, 3640, 2246, 1835, 1981, 3634, 
        1825, 1972, 3630, 1814, 1963, 3628, 1802, 1954, 3627, 1780, 1945, 
        2120, 2127}], 
       Line3DBox[{1939, 2073, 2228, 2227, 2281, 3770, 2280, 1927, 2062, 3670, 
        2225, 1916, 2052, 3663, 2310, 1906, 2042, 3658, 1896, 2033, 3655, 
        1885, 2025, 3654, 1874, 2017, 1863, 2008, 3650, 1852, 1998, 3644, 
        1842, 1988, 3638, 1832, 1979, 3633, 1821, 1970, 3760, 2234, 2266, 
        2265, 1809, 1960, 3744, 2264, 2129, 2081, 1792, 1950, 2177, 2128, 
        2080, 2165}], 
       Line3DBox[{1940, 2074, 2226, 3776, 1928, 2063, 3671, 2311, 1917, 2053, 
        3664, 1907, 2043, 3659, 1897, 2034, 3656, 1886, 2026, 1875, 3712, 
        2018, 1864, 2009, 3651, 1853, 1999, 3645, 1843, 1989, 3639, 1833, 
        1980, 2235, 1098, 1822, 1097, 3767, 2131, 2084, 1810, 962, 2130, 2082,
         1793, 3752, 959, 2179, 1093, 2166}], 
       Line3DBox[{1941, 2075, 3679, 1929, 2064, 3672, 1918, 2054, 3665, 1908, 
        2044, 3660, 1898, 2035, 1887, 3718, 2027, 1876, 3713, 2019, 1865, 
        2010, 3652, 1854, 2000, 3646, 1844, 1990, 2238, 2188, 3768, 2270, 
        1834, 2269, 2268, 2133, 2086, 1823, 2184, 3737, 2183, 2132, 2085, 
        1811, 2182, 3736, 2181, 2180, 2083, 2267, 1794, 3751, 1951, 2178, 
        2282}]}, {}, {}, {}, {}, {}}},
    VertexNormals->CompressedData["
1:eJztnXV8Vcfz99GE4FK0uDvBaQkMLsGluEPQ4BDcHYK7pbi7W7O4Uzy4JIGE
EELQoEmeO+d+Tn4PB4Zw2kuh/dJ/3q/cHvbMzs7urJ2ZDK261naJFiVKlP3x
o0SJbmGaglPKr+zno0DSmanQttFpavkokKp0KNV62wkfGjzycJQzp70VSF6L
j5xcc8CXhhdt55z9+F0F0t7w4ntC3e5T1NsNqyV7fEuB1GpfQJyRUR6Qq9eB
8w5rryiQhv7utbtOhUAKn+30pFquUwqk0W4B4YVGP6ZGzktXVU87yRMs+WtY
uOW/YOpdevt+Z8tzoNrrt7xRYcvzU2IFHo5lKRdUL3YMyFvXUn6/EU03JLXI
Aaqw9w5dWZ402RKmYblBNWxshqhhFvnL18754LSlnqDaPCvVK66vj/P1AawX
UD0Nbt+X9dOlgFV/oOpX6PP6NKv/QdD/oB/6/0D/T6B/yT7/q/rvCv2D6g8b
678C9A+qTdC/VF9JP/9+/WdabdW/xgj9t4f+2xv0PwH6B1UI9O8G/YMqSqhV
/+mgf1ANhf4l+f+r+o85x6p/kEb+n/1D/0s/0H8r6B9UCvofC/2D6k0k9i/J
81/VfxfUF6TBqG886D/eR/rPtAb2v+b/138j6L+RQf/S+CP1r/+q/qNDfpBa
Qv7uqG93g/6TQP8gDf8/+4f+l675kvFf8hf/K/rfA3liQn6QWkD+nqgvSINQ
35TQf8qP9P/p8V+a//xX9S/Nr0ZAnhEG/dtBfjuD/nujviANjGT8l8aT/3X9
XxbsfxfkiQX5QWoeyfgv+UdJ//L48+n+IrWvJI80fkr9/WvP/83qX7Ifab5t
Vv/S/FOaL0n+XfJH0vgp9XdJP19b/8MgzzBDf5TWj2b1L83npfmnNF+S/Lvk
j6TxU7K3r61/4/h2BeVL+yFm9S+tj6T5vDT/lOZLkn+X/JE0fn5t/WfE8xkN
z0v7S9J+iLR+l9ab39v4L42fUn+X7FPSp6R/s/sA0jzkM+VgfpLpi/bTbLUv
YatybLVONFuO2Xp9Zj7/aTkFPUjlS/LL89JPt7tU/mfKMSWnPE/4dDlSvT5T
zif1KbavOG5/uhypHW0ljzQONC33aOj6rj4KpGZVB+4cP1Eeb71qrRnAz4Gq
brngA3/lebPySL9L5Uu/S+VI8pgtXyrHb9mYJ6419imQso5OkKvA/GCyW/pw
j4vlb1Ct2bCrGf8uPZ8Uzyf9m89fwfNX/qY8IUusz4P/2PMheD7E8Lwfnvcz
PG+33Po8GPH8VTwPqnX/0PM/4XmQMuP5Est2Rbuc9aJO9cuaN05lwx6J9ZL0
lhnlZzaUL+lTkt9Wdmsr+zRr/9/KniX7NK3/b2TPkn1Kz0v2Jskv2bkkp9l2
MTu+SftppSAnqIpCzoHwywO/cP4jlS/NTz4zf/vk71J9peclPUj1/Vb1kn7P
e+dwvVx9fBRI2Vf6Z/QY7EMeuXLU5b9B1fdF6uyf+10q52uX3wnrQZCGYT04
xcvuNy+L3kGa36vEmTJW/X9Sn9K6Vepf0nxbWp9OhzwgzY2Q59PtblYeaX1t
K/1I+1pFIQ+oikMeab79F/Tzyf1Js/JI+2+SPLMhz+yP5Pl0P5LkKQB5QOWk
jwPCukba35sLeeZ+oTyS/s3ag7ROlORcgHJAmhOJnJK9mbUTab/IrD7N9jup
/9pKz+bl+br6NNvvpP5rtt9J63Hz8nzaDs3aiVl5xHHApDxS/7LVvoet9GDW
3l7B/l8Z7d9kfzHrr6XyJXmKo/ziBrsS79eZlN+sPzXbXwqh/EJf6I/Mlv+1
5wNSu5jtF+K8y2R7Se+V9COtd8zaoa3sXKqXWTv/2nbyte3crP2Yld+snYjz
AaEdpfWm5Mel/iXZlVl5JPuR5JHaV9KzpDepHMn/SuVI7SXVV7ITqRxJ/2bP
iaT2kuSU+q/UXpKckp1L7SW1i7Quk/qvuC4T+rUkj9QuUvnBMc7MaVP4hk5V
wXv7SftpAeL8XCpHeq90nm72vbYqR7pfEYhyQFUJ5UjzXrPySOUY73fp5/tz
2oa2d7H8e5AODXnWmMuR1l/SPQGpHOm+37eSx+z9B7PlSPe4FqIckA6iHGm9
YKtypHs1v6MckFQk5UjniSmPB43ic1aQSlY/1IbPW2cfLRXK92BAcgxIdZ7v
h3QO3ViK75OAFD1f5xPa/dWCQem0+1dW0pLkTtlZTs/ynt1ZHpDaVx3iy/LE
7bN7WlXLOAVS9BGns/J4Zd/kp4JZV0x1AvdF0f57QgnxHKj05/ejXFDp5ety
6HIthjxdIDeodPn1eur11uur60XXk64fgx5VZPr8oX/b6l/Szw/921b/xvpG
+/D5H/q3kf7t8RxI+vM/9G9b/R/EcwcN8vzQv231nxTPJTWU/0P/ttV/7PEe
VX/pt2Yf6KQ//0P/ttV/LDwX64f+v6r+/8BzfxjGkx/6t63+Y+A5UOnP/9C/
bfWvP9fZMN/7oX/b6j+S9csP/dtI/ynwXIpPr8d/6N9G+pf2l37o37b6t9U8
/Ec5/0w5kl2ZLd+s3Url26pf/CjnnylHGgdmFtinfc8FUu7LN7TvuaT9Z/05
/d/pz0vjs/S8WXki+f2j8iP5/aNyIpHni8uXyvGpt3R2hxr7FEhFjscpy98L
PMTfoNJ///H8/+bzfu/SnuN7C6DKfzHjG74nIJXzHH8/N5RjK3mk8q/h72t/
Ux6z5fx4/r/xvC/sHFQFYedf294k+5fmS1J/lOZpUjlf+3dJD9LzZttFmm98
q9+vPtulfRcG0i9u4dp3Yfrf+v//wt+lcr5a+dL+pK53vR10e5PaUTqHMmu3
P+T5Ic/3II9UvrR/4o/yQcqH8qV1kK3klMalbyWntH9ldjy3lfw/5Pkhz9+R
x+y+x7fqd9L+mNnnzY63P8r/tuXbyt7MyinZ/9d+r9Qf/+J7PxpPfpT/3yjf
7Hgo9bsf5di2HKkdv3Y5kl1JdiiV/6Ocz5cj/d6wc+Ks/J0MqMrucR/C38tI
6z6p3aXfpfvGZt/7Xy1HOt9vjH8Pkl6O2XsCP8r5b5dT848lc3/v5aNAyj3h
0YgtI3xo24r9s4c89lYgna8ybWbDkb60oPCosjUb+yiQJr6ruPXAdh9qe6RV
/g65vRVIYYHnz8T2uke/7G30Pn+4twKp+8Ai00e6+NKxCTuz5Dp9R4HkX3G4
v8MRP+pz0eNInmreCqRT+7zeTvj9HtV5Vu3p1PU3FEg/XzxUo1itAEqcetQg
/3R3FUin787OkqWnH62OujRqq3KXFUgdS1VOkIAe0bstjWpO6X5TgbTHx3Ps
et8H1PndjbBXIccUSAUn9Hy+6MZj6pn+5+ASLRYokMakyRi27U0weQafavJu
52Gdqtifp1/0zxpMIfPDB2epfkmnmjE7+6iUcx9Rs/GF1+S01BNUMWurErEt
9W3ldPkYf68KKt+UmzZze62tkiUu6xFUj4oXjhPHos+AF8UD/erd0any9WtQ
+EhSf8ry+7bh3E6gCopB+7i9Rs2dH1wjjrdOleOU08p0ce/TJt9EO0828NGp
5ra54rp1jw9V3e2ebOstb51q3OvQaomW+lIM1wzDn5byUSCV9d+97acAHyq5
+4XjzK4+CqSDg4/F2jvRh66+dJvu0sJHgRSnX2iuw2t9aH5sh4QnE/gokGp0
ybBsWgVfOvo21Hd+Z28F0q37fVKsaH+Pds4N3Xu3wV0FUkW77DUypfejS/vH
xj+f/5YCads5h/6tej6gnLsmuPeM8qcC6eUvu69cd3xM2Q65el9yWadACi/o
OP2gXzBVfbmtlGf3AzrVpXS5h7RvG0yVPCfVZD8Eqs2Dy2Xi77sXrVg4LOnd
2zrV5vCZeZ1d/Gl07WJV7wXc1akKnizx9Gjp+xR/Y8FfO6/3ViDFaDmr4pY3
vrSnd61kaxx9FEiJ5i8s0CiWL+VrkSrO2I4+CqTrtwMv7Z/tQ5lThOTu6+Kj
QFpMy24fWuxDaYpEH1cxvY8CqbjdtJojs/lSr6N91m6e6K1Ayrd7fusm+e9R
L6c9r19PuatA+n1VzwWJTt+nOEPPx5sx6KoC6dIBr6aHHjykIDW0TNt25xRI
dof/zOV9IYguOA4JyFppuwLperk/fnU8FkxtTh3t1a7GPp1qardGtfnc59n8
23VPtLutU3kfTDVh4lZ/Gr5j4g2WB6R+GU8fZ3nUzX3zWH6Q3J5uHsryp3jV
ZijXF6SpS71bcH2rvKqWk/UDUu0avr6sn5xJDsRjfYLUotnas6zPCuO807L+
QRo6hjKy/gNvejpze4EUu2v1nNxeN1PUX8tygzT03NI6LP+58u6vz1S7pkA6
u/tl8/1jHlJ4touv3504r0C6Fb3KqsmuQTS9R/ufO1n0AtLS9PmLsX6S2x1a
c85izyAd6TlvO9tzofAGHmz/IM0Y8bI/239IuZ8ucn8ByX1Zo8LcX3YcaWLP
/Qskr6qttnH/qtn+zBTujyB5JC2en/tjgdC5Bbn/gnR58qjo3H+L51s6nvs7
SCdXVFvG/X1R6aIubN8g+V1yO8F23qL//bPcH0DasfHx28qWfrGmeuZt7X++
rkAqWeF3l3aZHtJNT9e33K9AyvcuRyDP90qmS1Xp2RQvBZKHx9D7t/YF0qJq
N4/Q7JsKJP8ivtXj/fmA9mx0bc7jP0j761ysyeP/2spjtrEfAWmn88jk7hY/
cmzWoufsj0BqWLf9UvZHM52ul2K/BtKWjCN3sV9LNLXCAvaPIGVyXD2Y/eMv
UcZm5vERpA7RJxbicXLCo0R2NS3jLEghE24M5/G29Yah+f0t4zVI42KtiMnj
9p9Ou/cn97uuQCpPz89e3RtAAc02VQux+COQzk4YmmaxxR+1Ohr3yIHulxVI
t5t4HPbJ84jaJHs7Za7/DQWS62/lhjjnD6Dy0Vc9YH8D0iyfzInZ71xvlzY9
+xWQfp1f6SH7a88Tryex/wApvte25exHYs/Z7VSsno8C6c/UdXrvUz7i71I5
0nsrQE6QZkLOLj0XjGO/D9L4Qj3Gst9vPv7Eq7wWfwwqSnc0xnaLX46R53S8
UIs/Bqm3z+lz7JdXjL+WJavFH4PUf9WjyuyXW6JdQBqPdpHaUWp3yU4kuzoO
OwSpAexwHewWpB2w292wc5AOwM6nVpz0cLJlPgOS/8WAgzyfibLm9ZvuFv8H
qqmP9jjcsPjBqAfXjT9j8X+gOh6z9CL2g1te1nHYb/F/IEUd4Nac/aDUr6Vx
QBo3pHFGGpekcUwa9wpinARpNsbJRBhXQTqOcXXylGyDplv8HKj2NFr7O/s7
1yfDx7pY/ByochR/2Yz93dNlYdUzWfwcqPati1Od/d1t+AWQhsAvPIIfAckB
fkTyO5Kfkvya5AeNfrMP/OYQ+FmQBsLPBsEvg+oe/HINB+9e7M9AVavyfg/2
azOKzq3G/gxUsV3j3WS/5oZ5BUgemFf0xjwEpLyYh0jzFmmeY5wX3cC8SJpH
Gedd9ph3jcQ8DVRFME+bj3kdqLZhXhd/Q+4S7LdAFfterMXsv1YuG7Usc7lb
CqQXNfqt6dT+Ae3GfBWkcpivSvPbBZgPg1Qd82Hj/Dk25s/G+fYhzLejYX4O
UjnMz6tgPg+qCZjPj8C6AFS5sC7wxfoCVAWxvohVO2099k+gquS2xv6axU+5
rWtzi/01SGtyHl3F/jrZ+5IZSln8NUiho4ulYn/9E9ZrIJ3Aeq0v1n0gncC6
71esH0HqivXjQqxDQXLHOlRaz27EemejYb0jrZvWYf0FqkCsv6R13P1K73Oy
fwJVq0259rGf6ol1JUgFsK5ch/UpSB2wPq2LdW5dwzrXuF72w3q5HdbdIIVi
3W1cv5/D+v3v5ju78hfzvdZ39tXiIoIliyMuohvia4FqH+JrTUW8JlC9jCTu
U1rkkwLVcCF/9Bbkn/pa+eD+qn6iIT4bSKMQn60x4kmCEXqT9GNWD5L835t+
zObLlvQgvfffrgezeUL/LfXtivqCNAT1NcYZ0/UQDeVE+5fqQYr/JulBsn+z
ceG+d/1I+ZT1fKx94V/6GvyLpLfvpb6R5S+W4t1JfvN7qddloV67IY896mVv
qJfk1760Xv9Uvt0vrZceV1Cat0j1/d7y20r1lfysVF931BdUr1BfKc+s9N5v
pQdpHiXpoQ/0AKpw6MFsvtdvpQdf5A30NeTV/dK8rsMi0YMD5r0OhrjE3aCf
boY4ojGgnxiR5OP+q+ODdG4YdqhLzVyTDutUe094OD7NEUy5m6y+V6r9WgXS
9pW9Ug9+EEyUpF6B+wP36lTN3seuG2VxMHXC/lInw/5SnNIrFj6wPAdSw0rl
nfj5W9OLj/rFUi6oatiny8HlD35YqiTf6wBV3L4FHHn8H+/Y2D+3RT6QCvkl
SsByPnKfZV8/sbMnWDI83OofO8CPgMoTfmRcsuw/5bH8e1BVq9YiDpeTaXDX
Evw+kN4frqy9tzHyPoAR/nfk0/lrWG6Q4l+4nZ3ll+IqZ2u9/jTXH1Rva4b9
ynqQ4lfv2F3NtVmBcwokz+1FFjf2DhLlaRZePbrWHlZS3ue1fuPyh2WrrLj9
QLX/5jatHaX4266jlk8dePiCAin5peN1G6YNooveizOxfYD0rmXNQqy3ND7W
30F6id9jTSpWns9BQDphFz0bnzOOGeO4q4XFDkF6nbnGBLbDhlmtcoLqIOQ8
gXqBlAv1mvfWeQzbGUjl7Ko0Z3vb08qqZ1C9h55/emZtL5Dior2keWYO2ANI
72APDWE/oKoF+2mMPDJgRLvciJ87LdsnGGGfUru7w87dDXYu2fOmRbvSs3yg
Kr94QMHP2e1Z9Luzhn5XEP0UpAbop5I9t6s3vA7bJaha2gWvZPuMhvEBVC0w
PqzGeALSNownAXknz2A7A9WjMVfrsL2FYFwC1T6MS0vzOlbg/TGQ2l+Ks4H3
x6Q86VEGDZzA+0Sgytov9TreLwobaP0dVDnwu+RHjO9th/cWGjF8P++7gbT7
SoNGvP9m/H0Pfn++JWPvDJW261TvO4XU5/32qhd23udzCpBiuGWvyecUnZr8
ef6EyzqdqnVP7xV8rpE66b4HfB4E0vn4cz35PKj16Bkjs7VYoFNta/ZTLD4/
mpinQlberwPpdpz+sfjcrXWZ8ZuzThzsCZZ0h306dHw+4aXlOVD1LV3DkZ9P
ttx6XgCqvTgvyLjjdiq2Z5Ci7F6RnO3kgqPfgCIWOUDa0qxbVJbn2a29Rd9b
5AbV0ndzfFj+VTivASkazmuK4XwHVMdwvjO87aTs5y1/g1Rm6bm5/HvtqynS
KMu/B1XM1Le7cjkvclvP0UBywzlamgnWczdQlcS526EySxNksdQTpD0xV5Xj
+l7AOSZI53GO+QLPg7Qbz5eAPKCyhzx7If9eg/z+0A+olkE/OfJb9QlG6DMd
9J/OoP/5OJcHaQnO5Z90sLYvqPqjfRcuC9vC9gBG2MMM2A9It2A/1XAvoprh
XoQ37lF4G+5RZIZ9ZjbYZy7YM0jnYM8lcI8FVF64xzIW915ACsO9l8eNrf0F
VG3QX1zQv0CKhv61GPedQFUc9516ZbDejwJpNO5HXUL/BVUo+m+TB5Py8Lk1
qF5eKhPG59fjZjbd+sKiL1C57f+tPOttMn4HVW/83hzlNDeUUy3bhLJsH6Cq
MXuRZifDJi7cdfT8wJKg5xy0V0nn1tr4D0aM/0fXnN/BegEp35BEK7mckyUr
V+DvmUFy3lO7PLdjknZW+wSpNOxT8i8eywZvZ/sBI+ynOeRpbpAnDca3NIbx
TdoPlO65ueK8BqQNOK9pjPIbG8qvhnNAUNXGOeB7hwc5eT4BqnpNtvbleUWq
ZAOGVLH0K1BtyedaXvtu3W+41l/AiPrGHHu9IMsNqvVLG4ax/DVCVjvx+TWo
kp4vmYHPr3vCz/Y05Ae5jXEAVMsxDkjzjahor6iG9pqE9ekkQ56IDlGH9GnJ
5zRWqri1nMvyfEyq75DaqWKzfkGVPWBXGOtZmp8ceb4kL9sTqDbnf6/ZVQfc
9wDpJu57uKJeroZ6rYN9glQF9imtuye9i06DLPMKULVO9TA1zyvKvuvZj98H
qpjJWnnze/1O1iBuJ5DePW3xhtvrybuDUZtb5jmgenpzW1+e5/Sc9vIU34cE
1Z1cXh343oWUT6H1Pgd3tjOQzoRsm872thz3N5Yb7m+861GhPp9HgnR2cwLt
XLK/0/QFfD4NUvKTeQ7zOfWA5JtysL2CNDqrQz+2W0mexygfpMsovznaBaS7
aJegtdZxA6Q8GDc6oV4gHUe9uty6f4/lAanrfffyLI8d5r12hvOgccEZu7Gd
gXS3eIaKbD+9IH8vw35CihsHRvL9EJAaHP4plMeBorhnBdIS3LMqg/OmMobz
prK1G27m8ROMGD+lfeb5fgML8e8gLXRMovVrj7glzvaw9GeQrqUtEcz3M2+d
GzuWnwcp8Pj8a5/b33Ytd7MA93OQGm6P4sv93fPpr494HQWqRlmvB/O9Mmkc
2JzV6i9AVRP+Qto3HnkkoAn3f5DcC1atxuNAjLZqGusTJK82mY6xPo/Ea6jZ
B6h21Bum2UnVKqmcuL+BdLz99TTc72pcfprwoOU5kDp6/LGSn5f677sx1vET
VJsxfpbB/VVQbcP91d71J6Xi/glS8knvu3M/jTPobA/uXyClKzEvL/ev8Xjv
eMN7q8IvVDX4hce4/wyq2bj/HA5/BNIO+KODMXPnTGHpXyDdPeU1h++/pUuS
5Lf3lv4LUrIS7d25/2Ze8vMivo8KksOShIm5v0jnQX+gfJB8UX5KlA9SCpT/
Dvb2zmBvqfFekOLgvTGgN5AyQG+V0I4guaIdf8f9GVDZ4/7MQq80ftz/QdU6
ZVHrOAC7Auky7Ko39pFAlRX7SBs87UJ5nQuq4+p1Kh4fpP41G/0RpOvoj1XQ
v0BqjP6VGPfKQDUZ98qkfFtRd88P4nkqqIrUza/NV7NjXAKpOsal9hgPQeqG
8bAuxj2Q/DHudcM4D1IqjPNJMH6CNALt2AzjP0iTMf53gp8ClTf81DXcUwXJ
EfdU16648Dv/DhINS+bA/esX+E1QOcBvRsluvQ8MRtwH7o76gtQF9e2D+QOo
cmH+kAjzDVBtxXxjLuYPoNqC+cML3N8GKQbub0v7Ko5YH4EUtsu6PvoV8zFQ
Jcd87ALmXRcM8y7CPXyQnuMefjK8N5lhPy0v1jV5Deual5hngqo+5pnSPCoe
9AOqbdBPZYyHlQ33+UsjjxuoiiGPWwrIk8KwbxAIfYJkD31OQ/61aYa8eFIe
PWkf4Drs7brhXvRUlA/SgkjyIUr3SXrA3noY7G0WygdpXiR5A1fD/kEqBfuX
8tOtXVlGW6eBNPVqc229JtVrBn6fYZBH7bKOJ6BywnjSfN+ustweoEryqq/W
LpL+pfdKeQyHYVwF1RmMq5L+xX11jPOgao9xXsonGOjr1YT9CEhT7twcz3qb
A/nnGPTsWid/Tu3+t5WqQdL8u/ge+LMFox/z+Quonv3sUPFz55IPs1cO5XEZ
VHvsi+zi8Xl4lu5t+ja4rlNdKFipwNYYDymd9y9vR/a5plP9XrXgoUM9H4rn
Pt0yTFU8nwbVlSiTzrFf/nXFQU8uB1TNW128w+UUb9BzIPstUN0LvXab/ZdU
/uk5rb15fgKqbQ5RO/H8pNDD9AkDpl3VqbI9LFkt1p2H4jwnU/qSiVjvoHo2
a5Hmx2v1n7OW7/+B9HzgMSe+B5g3ZuGpfH8UpAWVq2bme6TSvY6c8fcEstwg
Zbx7rBL/Xm/uknz8HR9I+4q59efvwo6dqhjC34mB1P/pmzn8u3SvYwbuh4Pk
h/vh9luG/MntB1Lm/LPeb7G045XjHbT2Ayl3idRaO0rlG79fKIfvFwZE8S48
ylIOSPOzD1zB5Ujzah/MT0AKwPzEeN6nv/cyvrsB6Qy+u2ly+48Z3K4glV4z
PyG3bw+8t4fhPLE65mnVDfNt4z3e8rjHewL3MEG6j3uYZ5dfm8/3TkGq+tvw
IXzvtM7EJtp3ECClCrq4gvfP+x97on0XANJ1v/radwFRo9VIx/c5QXo70COQ
73Pu7tn9Bd+DBameureY78FOGf+bP9shSB2KJUrCdth3zrQd2n1aK+loqWQ/
8XcEeWYnm8D3S0FqNWzpGL5fmvJUYGu+lwtS+wNNnflebucHi1x4vQPSlvIx
nHm9Y79yjzYugOSY9+VOtqs3jQrV5/1ekGYkmpGa9+uCd3dMl7/FAgXS2Mbn
o/N+5ki/Ped4/gCqnUvuXtb8bNYJsXk+DarNdTzq8HxMr6de7/aor64vXX+v
obd+VyZn4e86QHU5ZH88vs+st4fePinRLpWuN4jG33uAKmEW37F8L3q7T9N9
fD4Bqh3H3FrxOUXtQv0z8v1qUP1+uHIxvl89ZW7fsXwfG6TSVQeu4vvYvhtV
Ab6/DVJ0l6Ix+f52OVVrKt/3BinHjCKOfN/7cIFZDnw/HKSpuYtu4vvhr889
vML3yUHaVSt5Hr5PvrrelZVstyC1KvPYle12wPmbf/J3ECDljxlvEX8HEfyo
QU+e/4MUq9jKtzxPU/WyLDhrWQ+DVLHVtAW8LrYL+H0E78+DKncH1Z73hwe0
jbebxztQ+bhHjc3jnn3C0c34vj2o2qdPc4nv23t16laO7+eDNOROn8J8Pz92
muo/831+kLzrJM3B9/lnBPWNy/f/QarRufAFvv8/bxnl4u8FQHqY0M6Hvxeo
1yDaSP6+AKRoTrEb8fcFFbdVX8LfI4B05vLYnvw9wpqEdwP4+wWQqqaz38rf
L3SLXuIgfx8CUoUexYfydyK1hky/wv4bJPdTRSqzHx8XZ8qVzJW2K5Aa9bxU
nve9m7+tM46/swBV59O9OvB3Fsb3VsF7K0HOSgY5pXpJepD0JulZapdGkBuk
rpA/3tQYB3gcBskuZvf+PA5POXhoA693QOqUb4Mnr3cGwg5BcoQdGu22BexW
snOpX0j9SOp3Uj+1g72C1Al22xf2DdI92PnBrPmn8PchIC1vNL0PfydyYPGe
lrx+A2ni8yQ3eB03slvfC/w9I0h0yqMifx9hHIfbYRw2judHMJ5LfkHyL5Kf
qoXxC6RFGMcqYhwEKRHGw74YT0Hywrg6sv6ZjTwfAGlYqVNXeT4QrbHVL4A0
HX6h/IZth3ldAJJlKNb2x/ItnT2R568g7S+QeRjPYyV/Z/SbbzD+S/7X07ul
9t0iSJk2hFm/WxR+l8qR3ivJmRv+F6Q28L+n4BdBpfvHcfCLIO2AfwyGXwRp
I/yjsV10fye1o9Tukp1IdiXZoTQPkeYbMTCvAKkA5hWP4J9Apfup9fBPoNL9
VGL4J5BywU/1Q/8FyRf919jfO6K//10/ni0SP/4K49srw/i2CuMhSK0xHrph
/ASpIMbPrvBPoDL4qQh/pfup7vBPoNL9VGOM8yB1wTj/d/11TRv56z/hB1fB
b4JUHX6zIeQGle6n4sI/gUr3U+7wT6DqDD/1T/vlmoJf9oE+L0P/IA2D/nV7
1e1X91N9YN+g0v2Ugn8C1Qr4qdi917fl7xlBepto4ln+nvFr+eVsJv1yGfQ7
fZzSxy2Dn4oY5/TxrQ/GQVDpfmo4/BOodD/1b/HXxvXILqxHjOuanz/0UxH+
Sl9XToZ/ApXBT0X4q9bwU5If7451IkibsU6U1pt/14/r6zWz+b/mIL8VSPn/
Yv5Bs/GupfzUuhy6XPltnO/MVvWV4u+ZrZckz/dWXylOr1Rf/e8uhvL/7fWV
4oz9V+t7AL+D1PY/rgcpzur/mh6kuMeSHv7t9XVAe4Mqxofj+b+2Xnp/1vt3
h/9Ie8XE36Ba+h+pr5RH1Wx9/y3jkjQvMquHf8v4bMzzSB/q52/r4XvzX9J5
mYvD5t38nRKoEv9xOTF/p3OpZeklxduvVSC18hiUhb/3CWraKLP/wL061b5+
Iyvw90HVsZ8DqonYz7mP50DSn1+JckHVGuV3hxwgJYI8Uj6C3ngOVPrz0jpo
Bt4Hkv5eqfxczaxyg2oP5JfWHZOq/baWv6cCqeiYDFP4HqMkzyroByRPlL+w
lVU+ULWEnNJ7nVx3x+Z7myBlSHQ4D9/bLAy9gJQc+umI30HS270p7ASknbCT
A9DXAUN7hUD+EEP71oMdgDQe9nATz9002M8LlPvCYG/NIB+okkBOqX9J9RLn
USbrJc1PpqG9QVUE7W62vhXQfqBKh3aU9CDtz0h5bOtin6Ku4XxZ2p+RxlXj
e6/hvfq+j74PpJ9HS78Pw37vMMN+b2zsk8c27JOfw776OcO++lCcR4Ckn9ef
w/nFOcP5RVTsF4ER9wFi4G9Q6ftIUyHnVIOcG1HuRsP9gRmQA1T6+Ug01Ask
/Zw6YX1rvcD/qxfqCVIl/J4Z/x5UOVFOD7wPpF147+k9VvlANQZyOqM+IDVG
ve7hvgRIs6CH8Xh+vOEcWTp/94b83obz+kGQD1S6nAUgHxihzxDIAaqZkEfa
95PkNHueZbZeZs99zOpBOh8pjXNKUD3BeaWkt1D8DqoZH557Rpx/BqMcyT7D
3i56MOTOOScw0nyd0aAXkCqjHEmf0rgt6VncLxLuBXliXx2kydhXl8aZ2Div
AVUsnNfUhZ8D1QT4uyCcDwYZzgel+YYb7MHNYA+SPsMgX5hBb9J+b2/4dVBt
gn8/hPqDSj9fqAQ7qGQ4B5fK/w3+C1Sp4L8q49+DKgjlrITfBFV++M2XOD8G
1XqcI0vt64D2AElvlwf49yBtQTmjcb4C0lCcs0zDeds0w/0QaT4jyTMI5YM0
CuWXRP1BegY9SPafAPVKYLjHYlaesBVW+wepCOx/J9obpKlo91ewV5DsYbfS
vEsaP832X2l9JJ3jSOdi0nhYBXYJUhrYp3TfYw7sEqTCsE/pnoO0DyCd80r3
CR0wXoGUD+31te1WuiczEeWD5IrypfWIdA9Nr6deb72+ZaF/kPT2mo73gUqv
VyOUC6pxKF+yB+n5HJAbVFEgfwDsHyQH2L80v7ILsj4HqpiRjPOb8O9BtRXl
SO1eBXKDpK+vn7hZywXJDuWPhL5A6hpJexHKB2nqh+31kX1K/cusHf6BdgKV
7n+l56X7NtI8ylbjmHRfRVp3SPZ/D/mkQCrwF/OdNUD5DQz6kcqXxrcHeP6B
Ib+VpE9JD1LeLql8aR1ttnyz9cqNe3ugOoD7e1Leqzjoh6DKg/6462mrTfx9
AqjaxLkch783aT2zWzT+rgBUCVOT4u8LpPLdMc666/MFjLdSOccxXoOqTSR5
u1LA74AqKvzOrQVVq/B3CKBKM9uxAH+PIM3r6kC/oAqAnqX7EtJ9NmmfUxr3
dkK/IOl6bgG9gJQI+pHKl/ym2XKk+dhV6BGkdNCnNJ+R7Fa61yTpWYorLsUv
kvIlSfmApDw4Ul4YKX+BFM9finsvxYeX8nxJecGkPFBSfH4pv4+U72YmvmOa
afiOScpTIMXzl+LeS3HgpfxlUr4zKe+VlNdJyuMg5bmQ8t10RZ4UkMYhT4qU
v0CK8y/FvZfyskl53KQ8X1J+BynPhZQHRMrvI+W7OY3v1E4b8uxI33dL8aCk
OE5SvAUpb4KUR0DKZyflv5PySkj5NaQ8I1IeFilfkpTHR8qnswp5oEAi5IGS
vouX4mJJca6kuBNSXgYpPpIU/1PKQyflWZPyvEh5cKQ8QVIeJSk/kZSv5xK+
l7xkyFMmxQeQ4oZJccCkuF5SvCkpf5+Un07KyyblG5LyMUn5qqS8TlKeIynv
T0Lk0QPpPPLoSfEQpPhpZuOhSfn7pLx1Ur0kPUh6k/QstYuUF0nKH3QVdgLS
ZtiJFP9Nyscn9QupH0n9TuqnUr+WxgEpL5KUPyjqVut4BUbEz5HGNynvnpSH
ThrPpTxlkr+Q/IvkjyT/JeUJkvLjJIKfBVW5SPyslHdPykMn5WWT5ifSfEaa
/0h5oKS8SFI+ICk/rJRPNjnmh6CKifmhFKdIimsqxSOV4rZJef2kPHfSfFia
P0v5wqS8WlKeKSm/kpRXV1pHSHlj62D9AqrqWL9I8Z2k+K5SvFYpTp2UN1DK
oyfllZPWd1KeMilvl5SvSspHLOXblfLMTsd6GVS7sF6W4llJcW6leLZSPD0p
/6CUj0/KWyfld/vSfQk93vLXztcjxWGT4vh9q/xfUl6Dr60fKV7i16rv5kjy
ndmqXlJ8QjfID6oooVb5pTwRtpLTbDnS8/WQV6ieIa+QFF+rM9q38z+cn8tW
+YakPCxSvhIpf4eUt06M5/mN8pqZzXcj5WeR8pVI8Y6+NE/ZHpP2HJn8Uv4U
SU4p/5RZef5uvSLL21L/eZw9nC8DpLS5FoznfRsp74aUR2Mo8nqAlBB5PaT8
GlIejcPISwLSXuQlkfJrSPkypP5Stv6iX/g8D6TAsjv0PCyfjHObJ4uzll8D
jDT/SyfklwFVfOSXkeIBSvkypLwYbTC/BVUuzG+l/BpSvgwpL4aUR0PKl2E2
v88jvBdUgXivlPdHyu/TFflBQNUc+UGkvD8HkccEVGWRx8QJ9gDSI9iDlMfH
bL4eqd0nIr8MSJWQX0bK42M2L4+Uf+fJRGveHJDOIW+OlMdHyssj5UmR8gWb
zZ+yCeVsMpQj5UkJwPoCpLNYX0j57s3m0YiRx7pOBKk31olSXnizeTekPPJS
/nSzeTpslY/DbH4Ns/kypPwXPdNb93tBGoP9XrP5bqS80p7YnwdVMezPZ8N+
Pkjh2M83mzenKs5fQHUJ5y8XcF5zwXBeYzbPThucr7UxnK9Nx3kcSEtxHmc2
L4+t8u+Yzacj5cexVT6Rm1lLr2Y9gBF66Aw7Aakg7ETKJyLlTymBvCQlvjBP
SvfwSbW9/K4rkBbEmlmo92fyMkh5Ey4jrwSoXiOvRBTs24BqKvZtpPjAZvMv
SHkQeiNfBqg6IV+GK+Yzroa8fmbjCUv7Aw+RdwOkN8i7YTafgpTvYAb2e0EV
G/u9ZuMYS/s/Un4Es3kNpHWK2bwJUv4CKQ+ClB+nM/IpgJQK+RRy4rwPpJc4
77tVg7JcsfQLkAZQz6O9PpPvwGz+naM52qzgcQCMGAeCcM4Lkh3OeetlrKyN
hyA1bbpTGw/N5uUxm2cnPJv13B+MOPc3G7fc2L56vp7ryLsBqo3Iu2E2X4/Z
PDs7dlTR9AWS/fzZmt5u4p7JTUNcd7Px1S8gvwmo6iC/iZSvx2yeHbP5elww
zoO0FON8SeyHg+SB/fBWOI8A6TbOI6T8CytwfrTCcH4k5VmQ8jLYKp+ClK/B
bH4Eqd1d0B9BaoL+aKs8CNL4fAXjEkiDMS7ZKk+KlPfBDfdDQFqD+yFSXpUQ
3PMB1Qzc85HyrVTCvaxKhrwPUl4VKQ+L2fwpUh4WKb9Jy0KtunA7gRScvU7F
z+VPsVXeEykflpR/ag7kBCkAckr7VFI+CCnfgTfGSZDyYJyUyimIckBVAuW8
hL97abjXNA/lzDOUMx2/Tzfk75DyDUl+RMpDJ+V3k/RQCL+Dygm/S3kfBiD/
BajiIP9FEZRTxFDOApQD0hyUc2200u7TgPTTb47avZq5eH6u4b1+yE8B0jTk
p9iL/Aug2of8C77RZjbg7wJANS1siAd/F9AxwdnZHFcRVC1Hde7A8RXPZBrf
8Eq3mzpVwgQXiiS/94B8G4zPynEqQVV5a5QQjle5oG+KaNw/QTW135MkPB9I
cbWNB+sBVKr2ZM0vSOdrwciXAaoXyJehihy4+GDaVZ1qaeLr7fn+ubSfH8/r
Rax+Da4rkO4ND73NeRak844bRRt053vyIB1LcnPc5/IvBB5sqliPIG2g6S6s
zyfLJj5nPYLkcGdiIdZnWMy9FViPIMV+PaU063Pktel9WI8gTava6Qjrs1zb
Xlp+CpAyV3+u5afwyVUoA8sD0rBfu2XTzi/yNmvA9/NBeni+SG7Wj3SOcDVt
k8YV7t5WIN1M3edZDhd/uog8FCDlQx6KYYeThfA8D6TtqbKm5Pa1R/n2hnMZ
14ontTwdIIXuWKbl6dg5MfYM7XsHKynrnbyp+HsHYx49fZ5zsMGAESwPSO4u
Td6zPJHE5/woDoMUT1iKryvFpZfi+XdHHGBQlUccYD2erx7fV4/ra4wfq8c9
luKsSnEwpPjYUnxXKW6wFJ9fymsgfW8eH9+NxDd8B6rHbdfjuOvfy0jxY43x
OvR6SXFcpfilUlx6KT6/FE9YirsrxdOW4q/qcer1uPV6vHo9bnhfQ7xcKX6s
FOdW+o5Gig8sxUmWfpfKkeKNS/JI3+GO0r8nx//Xv2OS8o9IcYDzQv8gtYT+
pXaU2l2yE8muvtQ+I9pRiOe/H/YBkh4vWvpOuR/iZfQzxAOJj3gcoNLjcgTh
u1dQbcJ3r7q+dP3pdit9vyZ9ty595yXF8ZbGJWkcMzseivkUhLwSUn4N6btX
T3zn72mIbyDl2ZHikEjfd0v5O6R46ZJfk/yg5E+lvAxS/gIpf4eUx0TK8yLl
xwlEXJtAQzwiKd6LFB+mB94LksFffxSHX8pTIOlB0puk5689P5G+Z5e+95S+
b5X6kdl8W99qfpIL4xuo9DwghzHegrQU462ev6qfIa+HNN+Qxn8pDr+Uj0Dy
R1LeCmkeIuU9keLwS3Hppe+LvzQPmj4/+d7mIVKeAuO8S2/fA7CPA4b522T4
Y1Dpfnko/PHQL4z/9gj+GCTdLxvnk62F/HH6/OfvznNqCvOcbCbnObrevnSe
r8fr08edfob1gj5O6eNWTIxX9eGPQaXHiwiCPw4yxOHpD3/c3xDnRB8fSxvi
tMTEeAJSfown0vgjjVdSnpG/O8/R9SblxTPmg+sA/9UEfq6JIT9aL/hFUJWD
fwyHPwaVHfzyKMRxG2WIv/cIfhck3f/uwTwHpCmY5/SB/+pjyLOzGv5utSHv
jJSfRcpjYnbf4FvFw5fiokjxdqS4FlLcjL+YF+OjeJtfqh9HG+vnH6rvV2t3
W8lvKznNliM9L8UdOoh6gtTuH4oL/b31328VH/tr90db1etrt9f31l9aId4x
SHrc43uImwwqPX5yJcT3Aykt4vtJccileOYzEPcPJD2e83m877whbrMUR12y
c7P1kvyaFHfUbH2doS9Q6XozW18pTvVrlPP6C+Nd34KctwxyvsLfrwz1moh2
AlUxtNdIvG+kIb53P8jXzxBnXsw/gue6GOq7C+XuMsSTl8b5GminGob9sdSI
Mw+qvaiXFD9zD/QA0h94XnrvTcRDA6kQ4qH1R5z5/oY48yVQT5CSRRJvXMpD
LeVZkOKQG8vZiXKkeONSXu8EmG+DEXGeze4DS/H9zmLddNYYf9jkPqe0zpXi
opvd3zOrH7P1NSt/QbyvoCGudTc8383wvBQ3W6qXFLfQbLxuKQ5k2AOrHGBE
PPB5kHuewa7GoZ3GGeKNOyBuuYMhbrnUjs/x758b2t0d8rkb4swvQX2WGOLG
/ww9/myIG98Y8jc2xIGX7FmKuy7ZibTP8ObYzp2PAo87gRFxraVxLxP+fSZD
vSoFhq7h+34gpcrU2K73Z+LWSvWaBT8CKj3e73Os60GlxxGV+rXZ8xHJ/0r+
Xdr/l+KES+0i7cuZnW9I814pvrr0vBQHWFoPSufpUpxhqb9LcZ6l+LHS+FAZ
dlj5C+0wlh6v3BBPXoqDKsWvluLl3ofcoNLjGKdHHH8wwv5nQk6QOkJOaV7R
BO8FadyH9vBRHOz9sANQTfrQHj56PgjzFVDlw7ylAuwDVHr8TGmdFQf6Bcke
en4G+wDVBtiJVE5ptC9IadG+kp1L9iydL0t2G8l5aMS5qK5PaZwxO45J/V3S
TxXoB6SU0I8UF1qyK8mepfWUpH8pTrueD0DPD7DlQz1/FJf1MMoHyR3lS/vq
T6Hfp4bxWdpXz4j6gCpqJOuF14j7/doQ91tav6zG+0C1De8dh3YBqUsk7VIW
8oA0BfJI9ia1lzTPNBsf22ycbSkutFSOuB6E3KDaDfmlONVm42O3hhygGvMX
42wXgD2DFBJJfGxpvJL8bF7E085riKet5yPX85OXQl7yHF3ua/dmQdXef6F2
b9YB+d1Bped590I8ZVDpcZWlfTMpXrQ0Xtkq/nM+1B+k/R/q4aP87HlQf5Da
Qg9xUX+Q3nyoB6XrI30kevDpWnoE318FKe64TFf5/mpT1BekJKjvLugHJNdI
9ifdcV4MkivOizdD/yC1i0T/v0EekJJBnn6Ib9PPEN/GVvFzpO9NbBW/RboX
/bXjxpiNj/Sl740szonZOEhfGmfma8cdikxOY1waXU4pPpj0XimOllk9S98F
SOVL8ZSkeDjSe6W4XpI8Upwfs++V4qRJ8vSFPH2/E3mkOGPSdwFGO/yrci7P
WDaQ929B6tlLxf9cfBX7WcfC+Z4qSKV+fa/Fl16IckDqhXKul/UPr5fY2ROM
NG6PFG8nbKA1PgmociI+SQt819/C8F3/3gQt1h09P7Ak6DkH771QxG45/w5G
/C59/1sv6pA+XE9Q/VTLuSzXtw2+A21j+A60B/xFD0McraOvu61jPw7SoGq9
7dmPn8bvIPXD72uXjX7I38uBdOdxD+27uXsNWpbgdT1IVaN3T8Preuk78XH4
HVSv8XuTxDG9vSzvBS3r7HUD+L1d8DtI2/H7fsgD0i3I8zpt74I8rwUpVpQX
2vdirdCOrQztmzKd9XmQ7PD8VHyfBdICfJ+1IEYj7fsskFK3jjtB+y4Y5fc0
xCWQ7GrA5DV7eJ0JqsFLcoTx96HPOm7RvsMFVYm6ztp3uCs9R2nxaUG6F2+5
Fp/2XuYLq080uKtAKpO5Sdvy6f1oWPNrWtxmkLK9PKfFbS6S3X8vvw+kdplH
hvJ7L2dtq70PpCwN22nvtdV5qLRvZqtzcOlc+EvPqaP91fzUJs+pv7S+jv/Q
fZV/y32MSOzqo/03s/JL+dBtlsfcZB52G98P+dt54b83eb72vRrpPKILvovp
YshHL+23SPmppfK7olxQ6eVL+xvSuJoT63SQ9P2K7PgdpA74XepH6fE8SF0i
KWcY9pWGGfbHnLGvCir9fEHaH+46YflM9msgebrkGsl+TdqnPRj4viR/lwFS
ysf3u/F3GV4pq8QeatE7SI6JUx5qYNH/4tqBb11zeyuQrl6YOzmG1z1ycTw/
rrrFz4LU6Uyp/E8P+1GxsRND+q2/oUC6Vbxmp/K1AmhepqDy9pbnQBXa8uHz
jBa/3L9cAX8XS7mgGpg69a8JLeWHY94IquyYN6bJPKQUyw/SlL7POmv5IBJW
qcvyg7RqV9riLP+pAS4PuljKBans5vStolrKdx46okMjixwgVXPe7ffAIn/m
pgNrFjlwQ6cqcSjb7N4VAqjAiaRt3526o1NVf9qiZC7+jq9WBU1+UCVI8O4X
ln9aqVKlWU6QSv/R15XlzDfrpSvLCVKDYafisZy9a9TQ5ASpR8nympwzXmQY
zXoGqUSXiwVZzy0xvwVVQsxvnz2fXJn1DKoxfVs8ZT0XgjwgvYI8ky9W1vQG
Uqmw9Jrewgd4au0O0pF9vlq7p8pk1T9IE/pb9X+zf2XNfkDaGze1Zj8NH1rt
DaTrT6z2lvP429G8nwaSjzozkvfTaj5yqchyg5S4uu8zlj/16IAA1i9IB2It
Kcx6Lt7pfTm2D5Buj1qVp5HlvUfwXpAc8N7Ufs6anCCV6G61c/c/A7T6gjSt
9gKtvvf2HtbsHKQrQyprdp5683TNzkEKvFVVs/P0+ZK15/YAqUaL5JW5XcIv
eezmfgvSzA2vjnP/dSuTqCLbGUhNZtRZwPZWdtLEdmxnIHWb3qgE21uK6aGa
HkByfTdU08MotAtIu/tZ26VQiLPWviDlfWDtF93fttHsDaTBozNo9jZpmLVf
gNSpsrVf+FaeUZ7vA4B0K6lzWu3ewp5YVbi9QPrTpeETbq/msDeQlgr2Xx/2
73POav8gJetQTpNna4e8mv2D1HLvSc3+iz9tG5/jyoIR69N2eC9IM/HezkFW
Owdp159WO08UZb/W7iDFK+GttfsW6BOkVtDnzA1WOwdpw/qfNfuph3EVpECM
q9Lvs1AOSBtRjvTexJAzsUFOY712ol5GPcyAHsY/dT8Yw2K3IOUNijJglMVu
d0LPIDWHnn3RLr6GdpHGMandn8FOQDoLOwmteCuL57obCqTc/eclXmeRpy3W
6SDdwjpdssPjRxdr+VNAqlMih5Y/RbJzqV9I/Ujqd1I/PTfwdWKuF0iFfYNS
c71K5aii1QukV7+P1uoVt+OF4qv331AgTep9LM4hyzgw8nS1G46WeoH0YkPI
w5iW8idgvAJpBsYr4/hWEuObNB5K46c03tbG+AxSIozPF8ZdXsB2BVLTTB6T
2a6k8V/yF5J/ce/W9BSXC6oei/K5cfmSn5oCvwYSwa9JfjAYfhNUY+E3O3fe
m5fbD1RVTx2Ix+0o+Wtjv2iIfiHNB6T5Q0HMNwoa5huVlnj9zPKA6rdCSVOw
PCcwzwGpAuY50rxImkcZ52P9MR+bj/kbqN5j/rYpyorl3C6gSnvj9Hhul0qP
Z2ZjewapXE/fZGzPrTBvBKkz5o2LMM8E6RrmmcZ5aQHMS6V57PDNk6t2O5rd
EyyprxeyB2RNefnlMQXShEwxHP+wjBv3aviPDKmRzROMeL7pzuRteHwBlf2x
Oj/zONPI42g+/vegmhbtQh4upzx+B9VM/F4D5YDKAeV4Dwh04feCEe9NBznT
GeQc0O6IHdcLjHjeGP9ZnyffWrVIkwdUezZf1uSZVGVzGZYDpEQXp2rj59vq
bonZn4IR/rToXV9NHpBann6aj8tpV9O/1kuL/GCEPI6HK23k38GI3yujHJBa
oJzxkAekxJDnJeQH1S7IPyFsxNXbXlk8wYjym4/7JXb49lyeYMTvceauGcfP
gxG/H7o56KbdhhsKpI5jrri8rmmxz9AR7/h5MOL5AcuXFhltGbdBcnPZ3vmN
ZdyuiHavaGj3sa4rWnN9QDX2aDOt3Z9e/kUb90E1r+hEbfxvdaeF9juoUjUd
rP2edKX1vSBdb2N9r1vLUpr8IB3O9EaT//mR49pzoCpafqX2vOqwvibrB4yo
194xHVKw3CDZj0qm2dtDyAmqBZAzbfHDRe5Y9ANGlFN7+eZd/BxILR7XOsHP
N75pLQdU2Qtby3kx+yftb5AqtJ6v/T73mFV+UM0qZ5X/ANoLJFe0V/wiVn8K
Uor5Vn+6eP2ADjwPB6nrqSmVeB4+GeWDah7Krwc5QZUTcm6GfkCKBf0MGpfY
kf8GFS07qbX7ALQLSAfRLsnRjiBdQztOh52AagzspDHsqrFhnPHssV2TB6Sd
WRNo8pzF7yDtwO8UlkurD0hvBkzT6lUlU6i2jwBS7JrLtN/boV6gKo16nUNc
U1BtRVzTo2FPtfUbqFYvvKCt4/L2vaX5BVDVGr9B8wvn767S/Cmohj8+pfnT
i5g/XDTMH6T5obR+9wrYr80DQZozJIk2D+xSaLnmL0DqOWxqd/YXWWqtd2D/
AtKgqMUPs39p2jmb5h9BOh7bows/32V28Bv2UyD9fLLYVPZT/hvX1+FyQAry
Jycux238A60ckIpWz6z52SbR3xzi+oJU4ukv/bm+fa5dGMn+EaQBrn8UYv94
v+NQf/bvIKWvOq81+/dHnRpq8w2QcvV5GF/bt8F7QbpXzfreo79t1uY3IK3N
UVmb57wtWyYb6xmkrS2uJGI9O2y6fovtGaR6l1No9nwj6SxNHpCKzHDT5Jlw
YYOmB5Buni+h6eEE9AnSKwerPl+uzaPNM0HauvlKEZ5v+I8opM17QNo4sIo2
/9nr1vQnlhOk2ydzavPqqA9TafMHkO42fzqF26Xtvg1a+4IU7lJMa99rsAeQ
lgy12oNzxhbafBikO1uP5eX5cIhHSk1OkBKo15qc/UbHr8D6BKld4ovavGjs
7NIe3L4grc9xZRK3r2SHWWGHIA0U7PAY7LAR7AZUJWE/trJP3T50e1nzoZ1E
2ItuJy+a5m/P/RGkcW2X+z8wYbe5I7HbENgHqDbDTgJgH6DS7WQf7ANUt2An
MWDPIDWEPU/CfSeQOuK+k9HOi8LOx8POQboViZ0bv4fS48O8gj2BKh7saiDs
CVQusCt32BOo1sKuzi7qPZbHDZASDi5YgMeN8ABrvwDJx2S/WIp+IfUXqZwo
6I8geeO95yEnSPEhZ3/UF1RtUV+9v4UY9CPpWRp/pPHKaLdjYbf2sBOQ6sNO
HsLeQLUe9ibZp2TP0rht7C8Z0F/c4BdAGgi/MBH2MNFgDyfRf0G1Cv1X6u/S
+CCNJ+EYB0C1CeOA5DclPyuNh7od6HZhsIePxmFp3P7advsAdvDA4Kd0Owgx
+DVb2e1z2C1I42G30WC3IDWC3erjhT5+6HZyDPYB0mrYyZfarT5u34PdgpQJ
dtsDdgvSYNitNN+Q7NMP9ulnsM/OsE+Q0sI+bWWHOdyLZ+T5MKiCR2TU1q1X
085Nl/rcin1gxPdrGoZucwIjziuz4N+DpJfjWepCFZ83B5zAiOeL4HmQHuP5
ovgbVEH4XfIvufFcbkM5FfA3qB7hd6m+2fB3NoP8ide8u383xgkncN8Heohy
Eno5GfG7l/2ladPabnECI35fVKC4ti4ClV2mW9r6yBHvA5UuvweeA0l/vkNT
+9d8LgPS/m3DOvK5zHI8D1J0PC/puR3OlUHajvPllfj3oNLL6YL3guSJ9y7G
cyDFxPM9UC6o9LiRBDnI0L7p8DdIT/D7QpQLKnuUnxfP5zXUSypfshPj9zL6
uXNGPAcqXR4nPA/SczzfZmE1Zz7fApXLEfd5fM5VFc+BKgjPnzr/uBDvH4IU
tnRyAt4/nJfx5TXeDwfpXX3/QN4Pb41yQdLLP4JyQIq6zFrO/wOox/ku
     "]], {}},
  Axes->True,
  AxesLabel->{None, None, None},
  AxesOrigin->{Automatic, Automatic, Automatic},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  ImageSize->{398.62040415000797`, 261.6844003016031},
  ImageSizeRaw->Automatic,
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" -> 
    "Globe"},
  PlotRange->
   NCache[{{0, Pi}, {0, Pi}, {-1., 1.}}, {{0, 3.141592653589793}, {
     0, 3.141592653589793}, {-1., 1.}}],
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{2.3264159639915287`, 2.0674954980039186`, 1.3278746658547669`},
  ViewVertical->{-0.2933274392002438, -0.2606813095225711, 
   0.9197849032669676}]], "Output",
 CellChangeTimes->{
  3.8589172477567687`*^9, 3.858917280391568*^9, 3.8589179364280434`*^9, {
   3.858918059576999*^9, 3.858918101423647*^9}, {3.858918195285547*^9, 
   3.85891822145639*^9}},
 CellLabel->
  "Out[329]=",ExpressionUUID->"439ffc84-5ab0-49b9-84cb-39b42eb3d819"]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellFrameColor->GrayLevel[0.75],
 CellChangeTimes->{{3.8605570423173327`*^9, 3.8605573195981054`*^9}, {
   3.8605574795095663`*^9, 3.8605575069838037`*^9}, {3.8605575588943396`*^9, 
   3.8605577083286185`*^9}, 3.8611551171726065`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"bb55ee0d-a9b3-4536-ac04-913bfb789e83"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.86055773085968*^9, 3.8605577883456783`*^9}, 
   3.861155119571563*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"f73dd7c8-b6e3-4ecc-9dbb-65b9976f8bd6"]
},
WindowSize->{949., 472.5},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules->Association[
 "SlideshowSettings" -> Association["Toolbar" -> True]],
Magnification:>1.1 Inherited,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d8ff7482-849c-445a-85e2-7570260c9d8f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 159, 3, 38, "Text",ExpressionUUID->"4fbb7f2f-5e98-462e-b3bf-bc4c1ec14ba9"],
Cell[720, 25, 6901, 189, 408, "Input",ExpressionUUID->"7edb7f83-b25a-4c09-ba63-0745d8dd5271"],
Cell[7624, 216, 268, 4, 32, "Input",ExpressionUUID->"83d5225a-6d15-4265-b613-3f7746317b33"],
Cell[7895, 222, 415, 8, 63, "Text",ExpressionUUID->"dabab98d-b34d-4d91-994f-fa4e4f077949"],
Cell[8313, 232, 2255, 67, 73, "Input",ExpressionUUID->"ab4e998d-7c42-4659-8f46-4060ae2e776f"],
Cell[10571, 301, 4127, 121, 136, "Input",ExpressionUUID->"579d2e27-4e8a-468b-9ba2-d3772a50b0f3"],
Cell[CellGroupData[{
Cell[14723, 426, 1442, 30, 94, "Input",ExpressionUUID->"a03e4d81-9ea7-471b-a93c-a9f317593064"],
Cell[16168, 458, 35580, 929, 202, "Output",ExpressionUUID->"717adc6a-48e2-426c-b9e1-0eb72dc01b15"]
}, Open  ]],
Cell[51763, 1390, 296, 5, 31, "Input",ExpressionUUID->"f1491daa-363b-4344-898c-abc00641c533"],
Cell[52062, 1397, 156, 3, 31, "Input",ExpressionUUID->"0a002474-f37f-4af1-aab8-6de930d4b701"],
Cell[52221, 1402, 351, 8, 63, "Text",ExpressionUUID->"87328e1a-0157-42f3-9d38-f4b526df1b2c"],
Cell[CellGroupData[{
Cell[52597, 1414, 1544, 44, 94, "Input",ExpressionUUID->"584b7ed9-8b7a-487a-9fdf-f95718a1d1b0"],
Cell[54144, 1460, 3604, 100, 83, "Output",ExpressionUUID->"19e8f944-d7b1-4e6f-8c4a-1046df593bfa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57785, 1565, 1340, 37, 73, "Input",ExpressionUUID->"8ca71468-1600-43b9-9214-9c6187f4ec20"],
Cell[59128, 1604, 1810, 53, 139, "Output",ExpressionUUID->"c4d3558f-a96d-4548-9edb-a58bedf0d8c1"]
}, Open  ]],
Cell[60953, 1660, 563, 8, 31, "Input",ExpressionUUID->"e35da1a7-e320-4404-8bff-1cd8e76da1d0"],
Cell[CellGroupData[{
Cell[61541, 1672, 820, 20, 31, "Input",ExpressionUUID->"437907ee-9bb5-4567-9ba4-edbb7c0df332"],
Cell[62364, 1694, 400, 7, 35, "Output",ExpressionUUID->"8d0b3628-9326-49b6-8a8e-9b78c2b5a97c"]
}, Open  ]],
Cell[62779, 1704, 735, 14, 73, "Input",ExpressionUUID->"f619e23f-5d61-450d-9abb-190f40aaca1a"],
Cell[CellGroupData[{
Cell[63539, 1722, 1429, 38, 73, "Input",ExpressionUUID->"28d8476c-2e79-474c-9643-e1dd4c6f91da"],
Cell[64971, 1762, 4695, 132, 157, "Output",ExpressionUUID->"786764a4-2147-4dd3-9768-8c6c9be6d035"]
}, Open  ]],
Cell[69681, 1897, 359, 8, 63, "Text",ExpressionUUID->"e99774b2-3a4b-4b5d-b023-7330711cf584"],
Cell[CellGroupData[{
Cell[70065, 1909, 1686, 43, 115, "Input",ExpressionUUID->"97262541-9ee4-4f0c-bbaa-6a54e519ebab"],
Cell[71754, 1954, 630, 17, 52, "Output",ExpressionUUID->"ce8eef0b-558b-46a2-af60-29a1de160eea"],
Cell[72387, 1973, 4041, 120, 193, "Output",ExpressionUUID->"c58943f9-45b8-44f3-b748-6aaf1f611644"]
}, Open  ]],
Cell[76443, 2096, 154, 3, 31, "Input",ExpressionUUID->"f806d6d9-630a-4b2f-938f-3e9c92c664d4"],
Cell[CellGroupData[{
Cell[76622, 2103, 2068, 50, 240, "Input",ExpressionUUID->"e074cd6d-e859-49fe-be2f-f35a43802edc"],
Cell[78693, 2155, 616, 11, 49, "Output",ExpressionUUID->"c1513de4-c8e0-41eb-900e-d5526a338e61"],
Cell[79312, 2168, 580, 9, 35, "Output",ExpressionUUID->"48e5a7b6-e64d-4dde-bbd7-a4b85ef57d6b"],
Cell[79895, 2179, 1195, 32, 87, "Output",ExpressionUUID->"3e2a1563-5b9d-493d-aa67-a509e1052ba6"],
Cell[81093, 2213, 574, 9, 35, "Output",ExpressionUUID->"b19fba4f-d13e-48ce-af4f-a8171e14be3f"],
Cell[81670, 2224, 1197, 32, 87, "Output",ExpressionUUID->"c963b49f-74f4-4535-bec7-4467b7c54353"]
}, Open  ]],
Cell[82882, 2259, 247, 4, 52, "Input",ExpressionUUID->"1def1b0f-1104-4445-8757-0afad52e5755"],
Cell[83132, 2265, 156, 3, 31, "Input",ExpressionUUID->"3066575f-4071-4471-bcaf-61aad4a94dcf"],
Cell[83291, 2270, 1547, 40, 94, "Input",ExpressionUUID->"ff86d414-9cc2-42a7-8a39-117747fb803a"],
Cell[84841, 2312, 1978, 53, 159, "Input",ExpressionUUID->"74b02595-24b6-4990-9e01-27593e595aea"],
Cell[86822, 2367, 329, 10, 8, "Text",ExpressionUUID->"8d944ddf-450e-4652-a8ec-b57a9b213c15"],
Cell[87154, 2379, 168, 6, 63, "Text",ExpressionUUID->"1ccad78f-c9d0-4758-9a8a-0fa14bf3aeac"],
Cell[CellGroupData[{
Cell[87347, 2389, 6512, 198, 442, "Code",ExpressionUUID->"76b2ab97-50e7-42c7-b050-bbee82940df3"],
Cell[93862, 2589, 1135, 29, 52, "Output",ExpressionUUID->"a458b41e-2cd3-4175-b5eb-a70e4f8d9d14"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95034, 2623, 556, 13, 52, "Input",ExpressionUUID->"9f6b5e42-850f-473a-a785-7babc9ee97df"],
Cell[95593, 2638, 2133, 59, 56, "Output",ExpressionUUID->"2422e9be-de81-4f9c-bd39-36b9140c149e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97763, 2702, 5305, 142, 263, "Input",ExpressionUUID->"861ec626-5d43-4b36-82de-e31420cb822a"],
Cell[103071, 2846, 248, 6, 35, "Output",ExpressionUUID->"1def1c1c-5d44-4258-b363-7f91be7d1e7d"],
Cell[103322, 2854, 1111, 30, 52, "Output",ExpressionUUID->"fe3e9330-bdbe-40d7-8182-2a1fd7ac3367"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104470, 2889, 936, 26, 52, "Input",ExpressionUUID->"08b03795-c269-449a-915e-da3d7a9a2a90"],
Cell[105409, 2917, 1017, 27, 60, "Output",ExpressionUUID->"e746db6d-0939-4d36-a698-caebdc9b234c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106463, 2949, 1659, 31, 94, "Input",ExpressionUUID->"51d199e6-55dc-42e9-a509-d8d7ad9379b2"],
Cell[108125, 2982, 619, 15, 35, "Output",ExpressionUUID->"e9b5f6de-450b-41ea-9cfb-9b58fadf4203"],
Cell[108747, 2999, 366, 9, 35, "Output",ExpressionUUID->"90ab576b-821c-4df3-912f-849299652316"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109150, 3013, 819, 25, 57, "Input",ExpressionUUID->"69bbe7ff-917b-4f1e-aff6-8e84bd45cf36"],
Cell[109972, 3040, 1177, 41, 63, "Output",ExpressionUUID->"e3fccb90-52b3-4bfc-9afb-36b7a98a4d2f"]
}, Open  ]],
Cell[111164, 3084, 210, 4, 73, "Input",ExpressionUUID->"a18c341f-7b17-47a2-99ba-871b43f59e4e"],
Cell[CellGroupData[{
Cell[111399, 3092, 1599, 35, 94, "Input",ExpressionUUID->"effcfaca-47e9-4118-af8f-cd826c19951e"],
Cell[113001, 3129, 1599, 43, 121, "Output",ExpressionUUID->"377c216f-6375-42b9-9c5c-d0cee88d18c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114637, 3177, 1102, 21, 73, "Input",ExpressionUUID->"441f93cb-89c3-4cae-bd04-9fde4ce51b5c"],
Cell[115742, 3200, 768, 22, 52, "Output",ExpressionUUID->"2316b389-9225-4649-a446-1f65e83ba3bc"],
Cell[116513, 3224, 1006, 29, 52, "Output",ExpressionUUID->"aabd6b23-d78c-43a3-a53f-bf1d40920aa6"],
Cell[117522, 3255, 927, 26, 52, "Output",ExpressionUUID->"72097645-2c96-4682-b1cc-8758df5c34e5"],
Cell[118452, 3283, 841, 24, 52, "Output",ExpressionUUID->"e688f49d-b24a-4db0-9de2-fbc5379702d6"],
Cell[119296, 3309, 404, 11, 35, "Output",ExpressionUUID->"c6bc2bda-c8ef-4826-88ff-72e66b1365a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119737, 3325, 5651, 147, 408, "Input",ExpressionUUID->"1e85e834-3770-420e-9e6f-5a889146f980"],
Cell[125391, 3474, 2597, 76, 427, "Output",ExpressionUUID->"75d1a3a6-f565-4154-8399-eaff291b94ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128025, 3555, 6283, 127, 179, "Input",ExpressionUUID->"9afa03ff-a05d-4c6b-9c60-053ec4703697"],
Cell[134311, 3684, 2041, 65, 339, "Output",ExpressionUUID->"ffd45fc7-9642-4a4b-a17e-86ea9d0edb15"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136389, 3754, 765, 32, 310, "Input",ExpressionUUID->"f1573804-76b2-433c-83fc-09fc3e17ee2f"],
Cell[137157, 3788, 725, 21, 35, "Output",ExpressionUUID->"5c81a4d9-80c4-4363-a054-a99dafecd1f3"]
}, Open  ]],
Cell[137897, 3812, 154, 3, 31, "Input",ExpressionUUID->"06716d40-c6d6-4508-b119-b6b55b2ab149"],
Cell[138054, 3817, 156, 3, 31, "Input",ExpressionUUID->"54e06469-c27c-4f10-89e2-d380c104279e"],
Cell[CellGroupData[{
Cell[138235, 3824, 2875, 71, 168, "Input",ExpressionUUID->"bea21f9f-2c6d-47a5-9bb1-3a5c8058ce10"],
Cell[141113, 3897, 521, 12, 41, "Message",ExpressionUUID->"d89a9da3-bb9d-47c1-81d8-69f5f11c6cfb"],
Cell[141637, 3911, 626, 14, 52, "Output",ExpressionUUID->"77272ad0-28cf-40dc-a1a4-a7895f01cba1"],
Cell[142266, 3927, 512, 10, 35, "Output",ExpressionUUID->"e640c5c1-661c-47a0-9fc9-24347779f893"],
Cell[142781, 3939, 501, 10, 55, "Output",ExpressionUUID->"c6757759-4124-4ea4-96c6-8fc3391babe9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[143319, 3954, 2524, 59, 96, "Input",ExpressionUUID->"b1c75bcf-c7a6-427b-980e-fd4f191d2cb1"],
Cell[145846, 4015, 1117, 16, 35, "Output",ExpressionUUID->"56e12f77-15b4-4ba3-9d22-13365770a12b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147000, 4036, 702, 14, 31, "Input",ExpressionUUID->"0c586eb8-e4f3-4c6f-a433-7f913b4ff28c"],
Cell[147705, 4052, 5031, 103, 260, "Output",ExpressionUUID->"e91e8dc8-5115-4594-b30b-a4272d65df16"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152773, 4160, 757, 18, 31, "Input",ExpressionUUID->"bdcfb197-1eb1-4520-9422-9358c5811aca"],
Cell[153533, 4180, 131858, 2144, 306, "Output",ExpressionUUID->"439ffc84-5ab0-49b9-84cb-39b42eb3d819"]
}, Open  ]],
Cell[285406, 6327, 389, 6, 65, "Input",ExpressionUUID->"bb55ee0d-a9b3-4536-ac04-913bfb789e83"],
Cell[285798, 6335, 197, 3, 31, "Input",ExpressionUUID->"f73dd7c8-b6e3-4ecc-9dbb-65b9976f8bd6"]
}
]
*)