From 046b292abd7ce75e8491f33fd5ab8d949c202885 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Mon, 14 Oct 2019 20:27:43 -0400 Subject: initialized repo --- orthogonal.nb | 3029 +++++++++++++++++++++++++++++++++++++++++++++++++ tempering_analysis.nb | 706 ++++++++++++ weird_system.nb | 1129 ++++++++++++++++++ 3 files changed, 4864 insertions(+) create mode 100644 orthogonal.nb create mode 100644 tempering_analysis.nb create mode 100644 weird_system.nb diff --git a/orthogonal.nb b/orthogonal.nb new file mode 100644 index 0000000..ca7f675 --- /dev/null +++ b/orthogonal.nb @@ -0,0 +1,3029 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 11.3' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 135006, 3021] +NotebookOptionsPosition[ 127469, 2893] +NotebookOutlinePosition[ 127804, 2908] +CellTagsIndexPosition[ 127761, 2905] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"1", "-", + RowBox[{"Exp", "[", + RowBox[{"\[Beta]", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Z", "[", + RowBox[{"si", ",", "sj"}], "]"}], "-", + RowBox[{"Z", "[", + RowBox[{ + RowBox[{"r", "[", "si", "]"}], ",", "sj"}], "]"}]}], ")"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.73409578958169*^9, + 3.734095877606771*^9}},ExpressionUUID->"d5a382e7-4383-492c-bea6-\ +cfaf2b22c9c3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Sum]", + RowBox[{"r", "=", + RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "\[Beta]"}], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"si", "-", "sj"}], ")"}], "2"], "-", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "si", "-", "sj"}], ")"}], "2"]}], ")"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.734095917107708*^9, 3.7340960035730867`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"fc4bd527-4630-4b4b-8294-64045ce8369e"], + +Cell[BoxData[ + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"si", "-", "sj"}], ")"}], "2"]}], " ", "\[Beta]"}]], " ", + SqrtBox["\[Pi]"], " ", + RowBox[{"EllipticTheta", "[", + RowBox[{"3", ",", + RowBox[{ + RowBox[{"-", "\[Pi]"}], " ", + RowBox[{"(", + RowBox[{"si", "+", "sj"}], ")"}]}], ",", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + SuperscriptBox["\[Pi]", "2"], "\[Beta]"]]}], "]"}]}], + SqrtBox[ + RowBox[{"-", "\[Beta]"}]]]], "Output", + CellChangeTimes->{3.734095937120956*^9, 3.7340960042554207`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"69feaccc-ee6e-41dc-a156-61a7acec4119"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "\[Beta]"}], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "s1", "-", "s2"}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"s1", "-", "s2"}], ")"}], "2"]}], ")"}]}], "]"}], "-", + "1"}], ")"}], + RowBox[{"(", + RowBox[{ + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "\[Beta]"}], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "s3", "-", "s4"}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"s3", "-", "s4"}], ")"}], "2"]}], ")"}]}], "]"}], "-", + "1"}], ")"}]}], "//", "Expand"}]], "Input", + CellChangeTimes->{{3.734118592695376*^9, 3.734118594975409*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"f9ca7c98-275b-495d-b8cf-300968ef81d2"], + +Cell[BoxData[ + RowBox[{"1", "-", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "s1", "-", "s2"}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"s1", "-", "s2"}], ")"}], "2"]}], ")"}]}], " ", "\[Beta]"}]], + "-", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "s3", "-", "s4"}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"s3", "-", "s4"}], ")"}], "2"]}], ")"}]}], " ", "\[Beta]"}]], + "+", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "s1", "-", "s2"}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"s1", "-", "s2"}], ")"}], "2"]}], ")"}]}], " ", "\[Beta]"}], + "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "s3", "-", "s4"}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"s3", "-", "s4"}], ")"}], "2"]}], ")"}], " ", + "\[Beta]"}]}]]}]], "Output", + CellChangeTimes->{{3.734118590317026*^9, 3.7341185951950827`*^9}}, + CellLabel->"Out[7]=",ExpressionUUID->"a979fe05-e1a3-459b-b8ff-242ed53d7a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "\[Beta]"}], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "s1", "-", "s2"}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"s1", "-", "s2"}], ")"}], "2"]}], ")"}]}], "]"}], "-", + "1"}], ")"}], "/", "n"}], ",", + RowBox[{"{", + RowBox[{"r", ",", + RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", + RowBox[{"Assumptions", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"s1", "\[Element]", "Reals"}], ",", + RowBox[{"s2", "\[Element]", "Reals"}], ",", + RowBox[{"s3", "\[Element]", "Reals"}], ",", + RowBox[{"s4", "\[Element]", "Reals"}], ",", + RowBox[{"\[Beta]", ">", "0"}]}], "}"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.7341180172973423`*^9, 3.734118140929793*^9}, { + 3.7341182082312613`*^9, 3.734118248940027*^9}, {3.734118618165935*^9, + 3.734118621701569*^9}, {3.734118725971922*^9, 3.734118730456127*^9}, { + 3.734132231225616*^9, 3.734132281883586*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"c04dc9c1-4ad5-4ea0-b8a6-f79e010285c4"], + +Cell[BoxData[ + RowBox[{"Sum", "[", + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{"-", "1"}], "+", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"r", "-", "s1", "-", "s2"}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"s1", "-", "s2"}], ")"}], "2"]}], ")"}]}], " ", + "\[Beta]"}]]}], "n"], ",", + RowBox[{"{", + RowBox[{"r", ",", + RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", + RowBox[{"Assumptions", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"s1", "\[Element]", + TemplateBox[{}, + "Reals"]}], ",", + RowBox[{"s2", "\[Element]", + TemplateBox[{}, + "Reals"]}], ",", + RowBox[{"s3", "\[Element]", + TemplateBox[{}, + "Reals"]}], ",", + RowBox[{"s4", "\[Element]", + TemplateBox[{}, + "Reals"]}], ",", + RowBox[{"\[Beta]", ">", "0"}]}], "}"}]}]}], "]"}]], "Output", + CellChangeTimes->{ + 3.73411812838361*^9, 3.734118200325493*^9, 3.734118326430814*^9, + 3.734118688225526*^9, 3.734131450767784*^9, {3.73413224413542*^9, + 3.734132273909436*^9}, 3.73413230772922*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"0467c94a-dc8d-46b5-b3bd-048819302822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"m", "[", + RowBox[{"{", + RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_", ",", "e_"}], "}"}], "]"}], + ":=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b", ",", "d", ",", "e"}], "}"}], ",", + RowBox[{"{", + RowBox[{"c", ",", "e", ",", + RowBox[{ + RowBox[{"-", "d"}], "-", "a"}]}], "}"}]}], "}"}]}]], "Input", + CellChangeTimes->{ + 3.734202299770143*^9, {3.734213992596615*^9, 3.734214092171253*^9}, { + 3.7342141266113253`*^9, 3.7342141300832787`*^9}, {3.734214162326742*^9, + 3.734214165241444*^9}, {3.734217534713975*^9, 3.734217537784528*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"cc17300f-6b33-4c64-876f-bc9dbc35ee7a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"Total", "[", + SuperscriptBox[ + RowBox[{"Flatten", "[", + RowBox[{"m", "[", + RowBox[{"{", + RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], "]"}], + "]"}], "2"], "]"}], "/.", + RowBox[{"{", + RowBox[{ + RowBox[{"a", "\[Rule]", + RowBox[{"(", + RowBox[{ + RowBox[{"f", " ", + RowBox[{"Sqrt", "[", + RowBox[{"1", "/", "3"}], "]"}]}], "+", "g"}], ")"}]}], ",", + RowBox[{"d", "\[Rule]", + RowBox[{"(", + RowBox[{ + RowBox[{"f", " ", + RowBox[{"Sqrt", "[", " ", + RowBox[{"1", "/", "3"}], "]"}]}], "-", "g"}], ")"}]}]}], "}"}]}], "//", + "FullSimplify"}]], "Input", + CellChangeTimes->{{3.734215149268038*^9, 3.734215192965322*^9}, { + 3.734215757856928*^9, 3.734215881508437*^9}}, + CellLabel->"In[79]:=",ExpressionUUID->"ab43b56b-32bb-40d8-a152-fc31f9268d37"], + +Cell[BoxData[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + SuperscriptBox["b", "2"], "+", + SuperscriptBox["c", "2"], "+", + SuperscriptBox["e", "2"], "+", + SuperscriptBox["f", "2"], "+", + SuperscriptBox["g", "2"]}], ")"}]}]], "Output", + CellChangeTimes->{{3.734215865541996*^9, 3.734215882086557*^9}}, + CellLabel->"Out[79]=",ExpressionUUID->"ecda54ee-d4cc-47c1-ab49-18e2fcdd7bf3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"MatrixForm", "[", + RowBox[{"test", "=", + RowBox[{ + RowBox[{ + RowBox[{"#", "/", + RowBox[{"Total", "[", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"Flatten", "@", "#"}], ")"}], "2"], "]"}]}], " ", "&"}], "@", + RowBox[{"m", "[", + RowBox[{"RandomReal", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "5"}], "]"}], "]"}]}]}], + "]"}]], "Input", + CellChangeTimes->{{3.734214120801552*^9, 3.7342141476454*^9}, { + 3.7342141953579063`*^9, 3.7342142116842318`*^9}, {3.73421436371597*^9, + 3.734214429117947*^9}, {3.734214469254676*^9, 3.7342144734020853`*^9}, { + 3.7342145221911697`*^9, 3.734214537737403*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"642d4fda-c92c-4f5e-8df5-412c73634b76"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + { + RowBox[{"-", "0.2121879030644091`"}], + RowBox[{"-", "0.39238168735792145`"}], "0.05945224929903345`"}, + { + RowBox[{"-", "0.39238168735792145`"}], + RowBox[{"-", "0.03164707316428249`"}], + RowBox[{"-", "0.010369736196555526`"}]}, + {"0.05945224929903345`", + RowBox[{"-", "0.010369736196555526`"}], "0.24383497622869157`"} + }, + GridBoxAlignment->{ + "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.734214143293004*^9, 3.734214211968211*^9}, { + 3.734214375962687*^9, 3.7342144296211357`*^9}, {3.734214516724793*^9, + 3.734214544499289*^9}}, + CellLabel-> + "Out[49]//MatrixForm=",ExpressionUUID->"55501bc2-6a0a-4392-b2f0-\ +241683335d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"RotationMatrix", "[", + RowBox[{"\[Pi]", ",", "#"}], "]"}], ".", "test", ".", + RowBox[{"Inverse", "[", + RowBox[{"RotationMatrix", "[", + RowBox[{"\[Pi]", ",", "#"}], "]"}], "]"}]}], "&"}], "@", + RowBox[{"RandomReal", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "3"}], "]"}]}], "//", + "MatrixForm"}]], "Input", + CellChangeTimes->{{3.734214861147612*^9, 3.734214873303179*^9}, { + 3.734214906179936*^9, 3.734214983095716*^9}}, + CellLabel->"In[57]:=",ExpressionUUID->"771b659d-cc63-4ceb-ba97-d2825564331a"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"0.16400071192627297`", + RowBox[{"-", "0.23141782216574336`"}], + RowBox[{"-", "0.08878171707873715`"}]}, + { + RowBox[{"-", "0.2314178221657433`"}], + RowBox[{"-", "0.23460569426396366`"}], + RowBox[{"-", "0.32472895370355265`"}]}, + { + RowBox[{"-", "0.08878171707873717`"}], + RowBox[{"-", "0.3247289537035527`"}], "0.0706049823376906`"} + }, + GridBoxAlignment->{ + "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.734214861813512*^9, 3.734214873687706*^9}, { + 3.734214913929411*^9, 3.7342149190928593`*^9}, {3.734214950230049*^9, + 3.734214983387472*^9}}, + CellLabel-> + "Out[57]//MatrixForm=",ExpressionUUID->"d924e63b-0dc4-4833-83db-\ +2b864132564a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Det", "[", "test", "]"}]], "Input", + CellChangeTimes->{{3.734214402875448*^9, 3.73421440413581*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"0b0e8934-aa92-4fe3-a02b-08310bbd3183"], + +Cell[BoxData[ + RowBox[{"-", "0.0352857910490461`"}]], "Output", + CellChangeTimes->{{3.734214404360485*^9, 3.734214430606154*^9}, { + 3.734214525547155*^9, 3.734214546562787*^9}}, + CellLabel->"Out[50]=",ExpressionUUID->"41138d64-0bbb-46a3-b541-a5ac5dfa73f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Total", "[", + RowBox[{"Flatten", "[", + SuperscriptBox[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b", ",", + RowBox[{"-", "a"}]}], "}"}]}], "}"}], "2"], "]"}], "]"}]], "Input", + CellChangeTimes->{{3.73421521995964*^9, 3.734215244093848*^9}}, + CellLabel->"In[62]:=",ExpressionUUID->"3a2b8edb-85d7-4fbd-88f6-9846f750f29e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"2", " ", + SuperscriptBox["a", "2"]}], "+", + RowBox[{"2", " ", + SuperscriptBox["b", "2"]}]}]], "Output", + CellChangeTimes->{3.7342152442801437`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"e9d6adb9-b457-4d36-8c0a-6bc9913646bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Total", "[", + SuperscriptBox[ + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{"Identity", "[", "2", "]"}], "-", + RowBox[{ + RowBox[{"RotationMatrix", "[", + RowBox[{"RandomReal", "[", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"2", "\[Pi]"}]}], "}"}], "]"}], "]"}], ".", + RowBox[{"Inverse", "[", + RowBox[{"RotationMatrix", "[", + RowBox[{"RandomReal", "[", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"2", "\[Pi]"}]}], "}"}], "]"}], "]"}], "]"}]}]}], "]"}], + "2"], "]"}]], "Input", + CellChangeTimes->{{3.734219630880183*^9, 3.7342197177293463`*^9}, { + 3.7342197779813137`*^9, 3.734219819852071*^9}}, + CellLabel->"In[91]:=",ExpressionUUID->"debfdd9c-0082-4632-872d-ed2a4b4c0f38"], + +Cell[BoxData["10.345797838550446`"], "Output", + CellChangeTimes->{{3.7342196638748903`*^9, 3.7342197097266197`*^9}, { + 3.7342198203836184`*^9, 3.7342198247068157`*^9}}, + CellLabel->"Out[91]=",ExpressionUUID->"7813d4f5-6c53-4c3a-a0be-943b0dad909b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Total", "[", + SuperscriptBox[ + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{"Identity", "[", "2", "]"}], "-", + RowBox[{ + RowBox[{"RotationMatrix", "[", "0", "]"}], ".", + RowBox[{"Inverse", "[", + RowBox[{"RotationMatrix", "[", "\[Theta]", "]"}], "]"}]}]}], "]"}], + "2"], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.734219630880183*^9, 3.7342197177293463`*^9}, { + 3.7342197779813137`*^9, 3.734219977972704*^9}, {3.734220074797818*^9, + 3.734220075182467*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"9897ef18-b864-40be-b817-432256680ce9"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw12Xk4Fd//AHDbvXcsyZZK9uYqS0LCCPMmbaKEyqdFiPYiomwhe6SFRJIs +CZWUtSwzyRplSUiSZEtCtmT9np7n97v/3Of1zHPnvs/7vM+Zc+bI2TtZOHJx +cHCEcHJw/Ps22SG4eVaOlx5e/PchYFOe9ygmzUtfuVbG/GcVuZ8J4hLo+tlV +q+aQpa79txMX56XX7ufX/4Ms+LdqWl2Elz53KerMKPKig1YaKchLm3nmZfQj +jzakWprx8dLxl10nOpC79EQ5DzJ56UuyDaYNyI3p/lknuHhp8wvvX7xGLhMb +Pei+gNFtLBeF58gv/Gx4A2cwmq+79NF95JShuvybUxitEvBS6ypytPUmh8Qx +jK7uOfbBFTmoPEP46TBGZ3nU+RxEdldbQb0axOjf60Y3GiJbY5MrW7oxWpI7 +op6JvOPC0arvnRh9/oDI874FAnS7Gi/8bsfoKX3XB+XIkoVZ9QIfMHp6Z1+6 +J/ISXMpHoh6jS9z5yiyQF66HK62txWht1XU/1iJ3HT8RtPkNRgt73LGrn0ft ++9CisYfCaJOWiReJyGXkli6bIozusfQWOYeculx+k2cORtOXdOd4kI9XfR7N +TsHo4aPfvVbNoXg3mNwvTcTogXMLZMcsAdsTC3fWxWO01aXnIvHIShdvp/VH +YbSAi0yPCPKwwu5D0oEYbfpzQufnXwK+3irhVfHD6ODANNd7yA0LygWEN0Yf +0/cu2Yn8ogUT2XsBxbPi++XUaZSv4LKqcAeMjtnQ/crgD4pnTM0tzhajCZ1J +564pFI9NovyjQxhtU9ii5Yesq+XtU2aF0QfNj469nCRgvnfjhr/GGC2/01xZ +fIKAwC0Z94+xMfpGknPR+VEC6HBPcxk5jG6xKW3/MULAXONOrjZJjI7a25F7 +BNnVZthxhxhG70pdc9d4mAD7ixvWqXBjtKXwxXXjPwkgM0qKfnexaC3liXvf ++wjwHIk8m9nBop87afloI+dvtJU52saiBSYFV4X1EqBaxhXQXM+iU3+a3GD3 +oP78vM2koJRFe3wIP7b5GwEzAk1t3vdY9PYq4rfIZwK0LFOuboxl0WuHMt8Y +tRPgEndBbziKRTdXSu13/kTAD/byB0fCWXQf58zr8lYC2gwOHTfyZNF3SJMs +i2b0/859kyxrFs1u3bOS+x0B55tnRKJEWbTJnzqJwmICYix2H4heyqJVW50V +cooIKG5ISbrNz6JF1jsYP3lFAPOdqVosN4semCULYwsJuFdx3yxhnEl39iwL +OZBLQHW+UeijD0xaNl1y3v8xAdJxV+eLopj0cpUiI/tYAoyXfzUuuc6k33fG +ysreIeDk7Q0RpeFMWm+8Z2XHbQJyb3ZIvA5g0nd/89vuikL1f1VVp9KVSV/2 +CdssGUnABa8mlwZLJt1e6pR9OICAt4clBnpEmXRlUn+AxxkCdifqkTNLmXTq +7IFprtMENHfZxCwVYNJtV5MfXj1JwJejKca6PEzaImD5k+hjaPyfVEm6PsGg +/bbddImyJWC5u8EB3Y8M+vLfn1p6VgQ4RNrXXY9h0O9T0vX0dVH9lGZm665k +0KGF12NEOQmoa18vMCvGoO0fqi5jLOrAvanc40VCDFrBLePuxJwO6KlS0noY +g471Dyl+N60DngkfIvT/8NA33+w9c2JUB6a85k7ARx5awuA6J3zVgVGdXXJb +b/LQdz/+3OFdpAPfX/y+uYeXhy4c47YyO6cDWknM5mv83PSQX9NqmVpt0JNv +Ug2f5qRbSs8GZHNog6SXoE/EIAcdOXQj9PJqLWi4p2597Msida5Jb8TfeCPU +n8jp31g0T605LGQWbqwJaYqNOuYls5S7k+hSddMNoHa3wdml5i9lOXjndp6l +Bsip6beLP/5DyR9WLWowVofBV1sYzOeTVJfwyrwBEzVYdbrI7mLEOLVd3Zpp +FaIKC29FHo6e/03tMq3ga7irAq6kgNXJP8OUuVUks3JICQo3vKMn8wapym/E +jllDRXgmXJm9vKSPirmWZLzr6xqwsBE26XrcR01llN198WkNTGUe+p5+t48S +blZzk2heA3rG48t0L/VR7l5nSyaq10C1u6zXoQ19VD7Tt/rDizXQ9dlzS1JG +L2UQcFBVP2QNCKetb1eK6aH8RrXXVWusAVfdOG4Dp24Ku/dLWvS2AkRHr+rY +Z9NNRYwMHPe8oQC5wwm5Tmbd1MyWG8694QowlZzsmKTcTQmxFisqryjAJf4n +VTwD36gup77UfGcFuNxRGl5r+42y/pG709RMAUIv94j+Z9FFJUnvq9vPqwDp +bceGzht2Uc0nzjoTDAWo0fhRflWti+Iw4J+V5lQAvv5fbsWCXZRVw9nqyWk2 +SCQOPyNjvlJDzrFHmwbYwDYU03kX0kkpjOnGbK9hg27Qke0DpzooX+5boWrX +2FAz7fPQZmcHdacgkKgPY4P1mXtcH5U7qIgl7mfPB7PBzfJT8euhzxS0xtrR +vmzIlrNUjz/3mdKKjrgZ6sKGNaVbJXa5tFNjD96WlVmzQezPuqEcjzaqu2x/ +0/c1bEg5ZbpD6UAbVbRh5PgEzgaNzlNpD3TbKKl3XHGYPBvMKx7ZXpttpZrG +XRs2SbIhPEru4zGfVoq9fXX6OyE2cKktK13p30LFCs5HJ87gMHJi7rpvaDOV +J3QB42zEoTlLXWjXsWZKUePxsj3vcXg1ceyGpHEztc1qncfDWhwC/RpvvFz8 +QNn1SW09WImDRGzazXH3D5Tij5cCs0U4GFeZRx13bKL4li7/zZ+Og+KSYFGt +zU2UA4MqSnqIg6BlURSPXBMVwbF7YFMKDp862dFJHY1UZ2L3SZ/7OJybmon+ +bNlIXYzLkdt4G4dY9sOY3UYN1HqpgqmLATj4nG4Xl5ZtoIgio/VW/jhU2Muo +fpqtp64qizZr+uJwwHNCVdS1nkpN/eXA7YVDUMZ9tRC791SYlFruRxcc2lnj +G5wM6qiIobmw3UdxCCiP1yWnq6i2xLi2+G04DLwnohwLq6iyk49PyW3FYden +1p/hl6qorZJ+fZnGqL3Doglt05VUDKPvXo0hDtnLIxbP/62gmr7dEdTSw+HL +Ke/y1Jk3FPdKDotadRyM3CSkal+9ocS3v8u4roZDum+h22/PN1TMwaLR/etx +uBA9oWAwW0YpeKw3m1DBga/0TFjr7GuKkZe3/dBalA/5V/fEZijqwafx0B8y +OBDaU2Z2nhTl7cicHJLGgcdUY/HpTCk1uinBakIKh3i3TLttsyVUweZdI4KS +OFRX31XwnCuiDjGN41xX4BD1paW10ruI0hRipscsx8FmTCRMdP4V1VAh86RE +HIfJVeE/n8y/pCzV1G8vX4aDvJNX9teFAopZ6DY6I4zDr4ACOxXfAsr01cNn ++siFseMiHov5lBL92jFQCIfdZafdRDjyKY2tbgVSS3HwXnZIdwtnLpXOc2fS +VwCHbUqxP2/651Cnmmecu/lxECGb73Vy5lDiXxJ7tiNnnDBdvMj1gmpz3pIn +x4dDS5FeeSZ3NmWvMbzIheEg6WHfOSbwjBLgfPIshIVDhOdOzRsiWZS3nJq6 +EPJpH6mut1JPKOWSuQwVJurvy0ytE6sfU57JXkk0AwcTv5FwhmIm9eDputPW +yEoBr7VBM51ymLvmFsWDw93AzGtfiEdU5IHT+VrIfMFR3z3JNCpWtL3mCzcO +g6GO1/NMUimDEuqENvKBq7t6LcxTKOVLNhM/uHB4G669aXRvMhUl32nxADkj +krdfye4B5VpbEboCWUO21+PGu/uU0+Zdtu2cqP2rC9i1bfeojoRpvgfIY+yw +RkbPXWrV+6bQk8iNaw/6wEgsdeTLj09ayNnK6xS9ZmKoR4M7FljIN1QXm/MY +t6nXSguTHRw4OKs3+o0KRVFbB4Re5yGba6aoKEvepKIDwo/cQj5ybjC7dlck +1eTi3uiCLH0hEjN0vEr1GH4S34/c6aFhm+8VTHneerWeRE7wbSlQvnWFml4l +K6mMXMg3KW20x4cKeyzYIYGsLa7/XuWyGyWCX3USRD69mW9Wdd9pSuvy7RYG +ckOuZg5mu5+yqtYQ5kRuvvDEQOM5SQYqHJXh+Hf/i1t+mN87SsY1KXBy/4s3 ++0CFftJ5co2kTz4vcmOqiLjlBQ/S7YQDKYacYeq4ITfFj7yq0R4vjzy49fVn +g2uBpCL/51pNZCVDqcAa91CyKda+3uRfPJs8VKxsI0j6zuk0B+SWu6dOjeA3 +yPFPI+ZXkKfuxJbmrrxFrt428D4FWfx2pYinYDTZ3GEqW/OvfbcmjpHcMWi1 +JrZlDNn6unwRz/QdMrJno74Myv+lCPOlb4fiyAulDzFz5MLgJwVWLQmka4Xh +yhLktoB2fonaRFLri6XNX2Rv4Mke+fqA/HPWz51A9ZCgr8GT15xMLlCDMhXI +qno7spbXp5DZEqznQqi+SnVtrT1rUkmQmxWzRe7UjnxClqaRWXul9vKh+jyn +9XBfcuEjkqiTV3dEXtAs5mDkpJM8fllf3yBLawxavX2USR6Rn8+JQPV+RGXr +vNXNLDKm8I2WKRoverFpkVMPnpEyZ2ekG5AFrnALmVpnk6mjn4Os0Xj78eto +0q/jz8mb13nq3XlxSK7Ay9VCckjroJMmP9B4vTHbHMG5NJfM6fVefRON78vq +QXubYnLJ3rAeD/0lOBxM6O1zTcsjGyx/JaQI4iDmlsZbUFFAhiltK3mI5g+u +x/uaQswKyY3Uca/zIjiMdjHjrT8WklfXbcwzFMXhnelxlZmel6R43+DdETEc +gvG1u/V5islZU961/mg+m/th9dZOjiY7bJSXesniMM7zVNXEkSZDMzpPRsqh ++pBhRGlk0KTFp/lNafKoP/bmHeRWf02GJmze8h3HIe/1sl+paJdVYM7x/ZYi +ymdcy9KBI+Wk99PixaoNODjmql5oSCkny0QCM+Q34nCoPritsL+c/BqvWeGv +hcNOhnZSmFMFuTWy3NyMwGHt+Tsayr6V5IzslacrSRy+bbfee+5+Ndl5/Ixs +yE4cDHq97d59qSZ14vuyBMzQfOOfdFZFqoa8Vn1JPGYXDhavBoMG42tI8qS9 +U+4eHMqUffKPxb0lLR0C9GWsUf4Fk5cfia4jrZIyfz9xRPPJ4OTQmi0NpMG6 +gpKH6Ploq4O5tjo0kE8i2MkPg3CIDJb4GxzYQIp61e3JCEH5kCcZfW8aSFPv +GqHicHS/g6FSqUaNpOZul0XBaBxE30nskoUm0ngNU+UUel5PPCOfrdjUTNqW +9E/+fotDnfImEefDzeSuVAWHxHc4pDzScqvybSYPBQVp7GlA8Seu2+Re3kzG +XwkZev0Rh+eRq6o+mH0k05ZGU61dKL9n/3RG2raQBtvPrWv+g0O/0jNBRnAb +2fk7cDOfIhtK0zLPH0pvI7GGbEkjFTbEyKc157xtI4egRPfyejZslUi4a7/0 +EznZU2zIrcWGVN5wBTr2E3mpYtIWNrPBduCYgdfjdvJxmMGSYBs2tD+UPve7 +oYOcanyP68SyIZ/5xCJ9rIM0/iWp3BvPhqjjhPYRsS+k82Dl+phENpgqWnG8 +2/+FtDsvpsbzCMXzJOxWeucX8rVI0sjSfDYk5UzkHxnqJN+k6fv2NrMh17Z3 +sS+gixzt/Gnqv0wBvM4Vbd+b2E3KzLR6bEpWACNy0kHwWTf5NAc3vZ6G1pdC +6/2rSrtJIzvv/X2ZChD7PPkl0dlNmvdJLLufowD5E2FK0lLfyTGja4KaFQow +5mkt0H/3O/nJIYD/74ACnAqZrL8U00NuXb//+le0frZ+sH7/vWt9pPepWIuv +9WvgWEgN19eGQXJQ6U3/n52K8CZQWTmidpgMK3S/XNquBDbCvWVi//0m1Q4n +P30XqALjulUG39zHSZvdK/mEXFXhmdOSv/bOkyT7zTJRB2U14PHt87eP/kNq +rjDxCCDUwT9u9Y7l0X9Je5tacQFCA3by+CqWh82S6/a4tRZpbICsHWfbhjPm +yfdVW5UN9TRB5y5V8f7hIplVMGW0VHkjZNk3gXgfB/zy7bF7IqMFx2StlA0n +OOG76IGJffNa8OI7K2/rKBcsPk6fXleoDSZiDIVwTh4oc77zX+ZJHVjduCU5 +hMEDeULmj/nP6MDctWDpQF4ekG5rcTiN9mNPWdhyH2EecM8ZF1Bw1QGhWT7M +SY4H9HO45EK9deDjN6FBC0MesLkT1LIQqQO2zySzJPx54MffIu8XL3TA3URT +K5ODATPvT+iKTerAyOZHybd4kHOzDTj/6MAJfYmlXhgDzJyuxA2h/eNBNY6B +nUIM0KsZNi9F+0sQr4v7JcMAc1X1V2Y8BPB3H51XIxmQH9MhLClKwAOPqPIC +Hwb4FndWuq4nYKUrU/2BPwO4U6doJXUCbp3xSAgNYoD3uQLuLg0Cgo4ccf/v +GgOyXt6y26JFwKktymtn7zHA3s/WdVaPAE3hN+EGxQw4oLIxRsyEgJr0MYuK +GQaUxdqwp+0JmK7iKuJaZMD5S4xfdxwIUOgXWQ3cTNiaKpq0Ee23r7A3jL/i +Z8Jw2u26U2g/rpfsGpUtyYQ+n0S82ImA7PiJD/EGTEgsWO8+40VAbOSUlcsV +JgzE7M3ovkVA5VNmybNgJhhFyK8lowmYrBNn/7rKhDSYCIq7TYAFv/bk8Sgm +BFjLfdkWS4BA6MXbh1OZcG5w9cjVBAL8/Kc/bq9kQkxb/e7MRwScuDCzT4aP +BV09kVE7XxHw9GCIopggC2zPuCeaFxEwZiQ2h4mwIJfYXmVZTICXsGrS2EoW +TEQ/PWlVSkBklt3PCkUWnCh/OmZQRkDeQLXvmR0seEr4dBXWEDBTv9fCzowF +fbX7IhPfEmBQ0I3v28OCn+sOWQXWElAdNFdD/scCcz7+tdvfEdAhryYmehLd +r/tPf2EDAVyH76S/DGWB4JGIeINWArYZ415ZESzQ0h5+wWwjIEL5uVnKDRZ0 +52l+rUNeNvN2LCKWBZqQ5WbZTsDaOwt6tuks+MzAb+/4QsCuRsdGZjULMmUV +3T91ExBVOJYyW8uCH0545ZXvBLQl+rqP1rPAZt/GtUo9BNidi1vV3soCgeQJ +OddeAi7wv3N82s+C4LyI/l/9BMRv0ZyxZGEAn2rjgocIyHy6/04pPwYzXz1H +ZX8RULjMS1NRCAPPQ3RHIXJL7+tzCyswGDTY5/ZtmACh4N3f05UwEEmpTVr2 +mwCZYRc/0fUY+Clte3APWXVfjNTlDRik285qyI0RsFPhy35LPQxcps+IrR4n +ILjyVN28Gfo9pvOGd5KA26qRJ09YYBC6RPuID3JqzHPmh30Y6G2AyGHk18em +If0IBuLJ/ak1UwTMMYPzLM5jMPZ2PNt+Go0fpwyLEjcMNh999K0MWaK1bmSN +JwbjHY6psn8J0H4kqjR/BQOe3ptfm5FdtiXdfxSNQUxLrqLsLAH+z8o3icRh +0POpuv8M8o3lA23eCRjQ3cu1C5Cf9quKWqRhoKOyJMx4joDi3RbZxZkYTB8I +DQ9BflvgZrbmGQZ3Tw9IVyMPhBSHzBVgcE2bd9pwnoA/I1/x48UYbGxI1fdC +ZlpzlzXSGFxmfBZ9gbx6rclcWg0Gp5U+nl+xQIDGjbNxwu8xsOj3+LsNGaZv +aHk3YeD82VPYDdmmutV5z2dk1YNjVchn1WaXFH/FQHqnXNEvZO9Y6ccKPRjc +kxAWE14k4CqH0fabAxisbJWZV0eOO+HYOzuEQd+lze7myOkNoVeO/cbAO9/F +9wxyvs4TmcZJ1P88D1cEI1c8qC/eNINB1u0mwwTkZmz8v7QF1H8HJ2b+vU// +7iz+R4ibFxq5eYzLkcfaiGgvFi9sn5+VbEbmMDys3sfPC3yurUHfkJdm+L03 +F+KFjl23Lg8hSwunni4S44VSHUXW5L/zAY8qTGElL/TExMnM/js/+Db48IYU +un7tW9UC8v+dL8D/ny/8DwifN3s= + "]]}, + Annotation[#, "Charting`Private`Tag$68036#1"]& ]}, {}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 10.000000935414626`}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange-> + NCache[{{-Pi, Pi}, {10.000000935414626`, + 25.999999999999936`}}, {{-3.141592653589793, 3.141592653589793}, { + 10.000000935414626`, 25.999999999999936`}}], + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.7342196638748903`*^9, 3.7342197097266197`*^9}, { + 3.7342198203836184`*^9, 3.7342198247068157`*^9}, {3.734219875151*^9, + 3.734219942917346*^9}, 3.7342199787253923`*^9, 3.734220076075754*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4f7ee14d-12a7-454f-b3a6-5baf84da3966"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Total", "[", + SuperscriptBox[ + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{"Identity", "[", "2", "]"}], "-", + RowBox[{ + RowBox[{"RotationMatrix", "[", "0", "]"}], ".", + RowBox[{"Inverse", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}], ".", + RowBox[{"RotationMatrix", "[", "\[Theta]", "]"}]}], "]"}]}]}], + "]"}], "2"], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.734219630880183*^9, 3.7342197177293463`*^9}, { + 3.7342197779813137`*^9, 3.734219977972704*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"b9abf49d-46fd-4dd7-83c5-30661af69ba6"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw12Xk0Vd/bAHDk3ntE5iEqonMNGTLFPch5kuobaZBKk6EiaaJBJVLKLBHJ +ECUyhzKW4ZwkImVIyJRUSGUWGX+7td73/nPXZ911z372s/d59t5ryx8+Y+nA +w8XF5cfNxfXv22yL4IYZeT6azfXvg4NhvscwJstHz39zH+VGVpP/GScpw0fj +eHU1C3nFrX3muCQf/XTnDx8RZMG/VVNaouh3oU+KcsgLR/WSSUE+2pH/bqYm +8nB90i6LxXx0DY+01CbkbiMx7gNMPlqYsnW0RW5IvZ7lxMNH20kdifFALhcf +PuA2j9Hbh5flxiE/u2bDd3Mao38aeueUIyf+qi0I+4PRyX+D7/xEjrA2PPpg +FKNP6WnvW8qNg09FmsiTQYxOFDjGuwXZTXMp9WIAoxWS5CI8ka2xCenmHoyu +/ttnN4q85fyRqq9dGC1r3h6nzYODQXfD+ZE2jJa8KU25IS8vyqoT+IDRgk46 +WYsX4bAEX+EpU4fRN0R/XtmPPH87aLXyW4wOTXysnoXcfczJZ8MrjO5a0mBk +z4v696FZeyeF4tslGUMjl5Mbu22KMXqtNat9FQOHJCkFQ/dcjL4mGMT6g3ys +qn04JxGjcQ6BVbNQvDpm8WUPMFpdYdG1zRgO/z0oMq+NxWhrobi2auTVF+8m +94VjdO+yl/ptfDgMKm4/KHsTo4+rSIaoCODw+U4pn9o1jJ7882xpFXL9vGoh +4YHa92H5OC1B+W3GRHefx2iD9wRPoSDKl295VdBRjG6MMgz0FkHxjGpeiLbD +6Fu3JWRJURSPzQOFlIMYveG25Z0FZAM9D89yK4zeakssCxbHYe77Wp2/phj9 +/Lht2gcpHG5uTIt3ZGN0T4lswHI5HOgg9x1y8hhtZXLDTG0lDrMN5jytyzG6 +3WpzJMjjcM5m0GGLOEYfKcx567YKh8MXddTVFqH+doo8llbGgUwrLR7pZtF3 +0qQqOdo4uA+FnErvYNEPV4YzwnRwKFhrJ3eklUUPSPRU/9bFQaOc50ZTHYsu +Unb+nKePxrN9s1lhGYsW3NevfXkdDtMCja0e91m0q2vwirYtOOjtSgxcG8Wi +nymlX3I3x+Fs9HmjwXAWve9sxU45Cxx+sKUe2gax6LWz/B5uO3BoNT54zMSd +RX+8diJx/17UvkvvBMsatbfz4Lu/Dji4Nk2Lhouh54s41tz2xSHScvv+CCEW +nbhTNjfaH4eS+sSEu/wsuiNB/2JKIA7Md1s1oxaxaC3s2u33ITjcfx1vETfG +pDfpNY2Y3cPhTYGJf8oHJl2aXcmYTcVBNjpwrjicSTemBLgb1uFgKvXZtPQ2 +k7Y3eV9GNeBw/K5OcFkQk/aX1qvd3IRDXliHzMsbTPrt8n7yyCc0/wM1OJXn +mDQv4/elqq84nL/SeLZ+F5O28F75wPQvDjWHZPq/iTHpsyWaUwJKbNj+wIic +FmLShZiZ0LQKG5q6bSKFBJi05cCLvAE1NnQeSTQ14GXS+//WpzRrs2H4uFrC +7XEGzeXaKfPJmA1Sbsb7DT4yaN4lynf89rLhaMjh2tuRDPpoUZavTxAb5srS +cwykGfRISHdj6xwbatvWCMyIM2jD/EcfJ7gV4f6fvGPFwgw6X+JJjSRTEYw0 +KFkjjEE3zA77HhVUBPe4D8HrJnnp7ktWSmvkFOHPlVkn+MhL1974Muu1XhGG +OdvkN4Xx0u+slE+yAhTh67ORsJ18vPRtmam9DquUQC+B2XSLfxGtNL+/6OVx +ZTBSaNQImuKmd3rjf+PnVWD5FUHP4AEu+rti1yDPc1Wov69l7di5QK064Cs/ +66YOdU65fWuL56inGz87/HBbA8kqDZwdpTNUUOiv4fe5mqAZU+9ytvovlSXh +5GyWqQXymuvaJDMmqc+PGkzXFGvDwIuNDObTCWrlYK+ZVL4OLDtRbH8xeIw6 +2PdhdneJLszXiD4edh2hWvfFTd97thbOkQJWxycHqdaPRbP3A/SgSOcdPZE/ +QMkKHTnAY6sP2SKVOVKlvdRaIrvTWpgDljYiZt0ZvRQzI/6ZohgH/qQf/Joa +00tN3T32elSCA0amYxIGl3qpjSZbEnyWceCN28orB3V6qWQPelmkIge62903 +JqR9pw4bNzrZG3FAJHlN2+rIbxTFOvoj1pED5wyiFxmf6aHmtAJc3PI5EBGx +rGOPTQ9l4M9fW17IgbzBuLwzFj3Uos7CzUteoPYfPXJIUO2hLnlwxd0v48Al +/swq3v4vlPCb4CdJVRy42lEW9NbuC2UVxG7b94kD/le/ie2z7KZyhpukrWY4 +kNrq+Mt1fTcVaV69+cgcB6q1f1QEanZTXPbu3i4LHFjc9/tCiWA31SJVvcxn +EQEyDwazycjPVGCVzvtIfgLY68U57/y6qEHfnrwDywgw8LH9r9+5g1o/X1B8 +jCCgesrzsY15B6WXtO7IUkMCrE/e5/mo2kEZ/DXdUmVEwIVdn0pe/mqn7CJ0 +6uSAgBz5XVqxp9upb/lEYfEmApTKNslsO9tG+WXHxMfvIkB8Uv1X7uVW6rZs +k6TgSQISnbduWb2/lVJwxGp9ThGg3eWc/NCglXKNvpo7c5qAHa9T7G7NtFBL +mZVSPa4EBIXLf3T0bKEGDwyqRl8kgEdTokz6ejOVd+n62hxvAoacZm97+TdR +yZOvr3jdI6ApS0t4m2MT9dNx9YWWKAJejDuGLjdtojp2H9+gHkPAzWsNoc8X +PlDvBUYONt5H+YlKDhtz+0Cd4E+8zPOIANOqHeHHHBop90vnWdMZBKgs8RXT +29BIbfNcqbDmCQGCu4rDeeUbqRderfyHswj41MWOSOhooERyBM1f5hBw+s90 +RPuuBspUR/GMQz4BUezHkdtN6ikn1yRe0zICPE+0ScqurKeOPrLp300R8Pqw +nManmTqKcP5z14EmYL/7uIbYuToqSz3A4mo5AT5p8Zp+9u8po5E+9t1KAtpY +YzpnjGupFwHchtbvCbhREWtATlVR4pq5YtodBPS/J8IdiqooWfN0syHkbZ9a +fgZdqqI6R6jg9E7U30GxuNapSmrtXLDWss9o/KSCF1z/vqakhPKmvn0hoNPZ +oyJp+hV1dWxhj0wfASYXZFa8ffGKGj8grVqEnOpVdGHE/RWla/mIZdVPwPmI +cUXjmXLq5AanTz4/CFhcdjKgZeYldZX9uL3hJ8qHwov74tMUpSnma8g/TACh +/8fC3p2iTN55+AQg827VXngyXUZhh59+ZIwQEHsh3X7zTCm1qsvafwr5zZsY +RffZYqpx9pBO5RgB4Z3NLZUexVTf5GyG7jgBNqOiAWJzL6ilK4ZVEpAnlgX9 +zJx7Tn08dmzt+QkCFM5cyfk8X0jNrXrtxzNJwO8bhfZqXoVUm4K6sj1yUdSY +6OWFAmpATu5dKfL28hMXRLkKqN6DG3HXKQI8JA4abOTOozI9dRn0XwI2r476 +GXY9l6q5610lOE2AKNl0v4s7l7ogknPrAHKa09aFizzPqIjNh9hDyM3FRhXp +i3Koul7s2vwMAcsvH+4aFcim3BdUlI1mCQh2N9cNFc2iTIaO9V1EPuG5ortm +RSZ1MoE74wdy21WmntOqDOqVhkm23BwBZteGghgq6ZSmyvGaXcirb7zUB91U +6j03sbEAOeZm+q1OIoV6blmT9A15sW/4V3cymdL9I7pMZJ6AAX+H2/lmSZSd +/EPzo8j7A7d9t9yRSA28qmcEIdcE6RsO735EFQ2GNmcjp4Xw9a22f0htkokr +HkPWXvn9cui7eMqsq7VOdAH1f1Uh+23rfUr06Y3pNcij7IAGxrcYaiQq0tAc +uUH5gCcMRVE7RPjDjyLnqKqrXJmOpDIXt3N5IIdqLDTlM+5S8QNcPmHILloN +14aFw6muoItyj5F36CaqqS4Po/SMDeoLkG1PD+S83RZCRVaa3qtElj0fgq13 +CKQEbcPPNyF3Xda2K7jiS1UUKDh1I8d5NReq3vGmGKNDrgPIRYsnZE12elJG +6VNho8j6kuveq129QE3+NngzhXxiw+IZjT0nqF7IF59Drs/TzcXs9lLNsY4X +F5Cbzmcaaz8lybKT24b/Oe7ixh877h8hn0We9Jr/F2/O/tfrElzJX64v8Zl/ +/U8Sldx1/jJZ+daiewI5bauDTl7iNbK4V/TZIPLAppftxrdukifdRWO+I69e +v+JmtZs/GZW7LartXzyGl9Ws7ILJlbo1me+Qm2OcnYfwUBIT828pQ/5zL6os +T/oOebojaGkWsuTdSlF3wQgyKuzTmdh//bsz7kguiiTbUy90+iJb31Yo5p26 +Rz5f4mDvgnwpeIdQza9osnLlk5m9//Ljm1lo1RxHblphe04eufVGG7/M2wek +o0jzjkXIHsCbM/T5IclbTZl+RfMhbp02b37TI5L74WKXOGQNoy1ZUnWJZOpZ +j5SLyGUGdtbu1Umk3Rnvie3IXfohmWRZMqmy2/XjNJqfp/Ue73lUlEJ+iz59 +7B3yvG4JFyM3lZynlIXjkWW1B6xqUtLJxtPcyQSyrdqmOauwLLJgVfy3fej9 +MIpKDvnzMJt0qfYelkIW8F4kvNU6h8xiiZZ+QO/bj99HEn4fe0pyijyjTJEf +vcYrNP1ySat1b/fzo/czdKYpmFsoj1S8tf50IXq/r2r57G6MzCMFipdssEc+ +EPe991xyPrl0D59WFqoH4heS+QpfF5IvnA/Kq6N6wZOxp9HPoog8unKrSdUf +Aoa7mbHWH4tIo+MObFvkd1uPqU1/e05OBgdq+6N65Isrb1/HW0J675s5QaF6 +NvvDqsZenibv7HC+VD5EwBjvEw0zB5o0yhB+y0EekGOEa6fR5F4x7p7MQTQe +u/MPLNJ6SRpp2RwK+U1A/kuJ30nolJXU4hWi96/eRjcL9dtWkCZp8lzLewlw +yNM4X59YQT78sy7j9HcCDtb5thb1VZDCzxxWUN8IMGfoJwSceU12FcXt3feV +AGXXe9qqXpXkjSFjlXPdBHz5z3r36fg3pEht9RmjNgKMv3vYv+t8Qx59Fpx6 ++ROqN9cTTqmtqCZfxL4az2slwPLFgM9AbDVp93bbG3YLAeWqngWO0TVkq4Wx +/fAHlH/BR1K2EbXk7uzVfirvUD0ZmPiltLGePHwcl1dH66MdBzvXcrSeTCd+ +a6iXEhDiK/PX92Y96VYuvVe1BOVDgWT0vqon29bHTsq/QM874L8iyaSBdGzd +dG0Krbdi72S2rYRG0vbX7A8ztF6PZ5PZSw2byB3yAgw/tP7XqhqKuhxqIj89 ++WWhGY32Iyl6F6q8mkjLdaWOLWj/YPlA3dCtool8ZlzCJ3eXgKchy6o+WHwk +1afWroy4jfJ7arIrxK6Z/NL+3w+JmwT0rc4WZPi2kiJ+67rcT6D5npzuejC1 +lZy9lzLSdZyASIXkptyaVjLQNqEHnAhAdTTmsNAn0veWvO38UQKS+IIU6ahP +pOkKnzpbG9T/fkfjKxltpGqx3d+SHaj+P5Y9PVLfQTLvRf3+qkNAATPTMnW0 +g7QJcHVeoo3Ww2OEvq14J/kmcHm/riYBW1WsuN7t7SR3VE30eaqheDID7qR2 +dZLxbmuwKZyAhNzxAttfXeQDNXu4JUFAnt33hd4b3aS/cOA+coIDV04X/7f7 +QQ85zCO+oSeLAybkxFHB7B5SNfn3vqJMtL8UXnO9qqyHtKtb3xSczoGop4+e +E109ZGvw2QnNZA4UjAesll3xlfSzeT7lEMeBUXdrgb6Yr2SEhbH7jSAOOPtN +1F2K/EYecrLihKL9s/XDNXvv3+oly2ty9wgv5YCjXzXP5/oBMshZVoB3vz68 +uqmqGvx2kCxJrKAf3tEDG5Hv5eL7RkinBg2V6NK1MGZQZfzFbYzcaT02fbFS +F7LPLPl72GWCbDca+BXbpAO8Xr3XD0dMkrV9+b4eldpwPXrVFqmIv2R8gu6P +sUotMOf1UqkImCGbsgKVTd9pQtaWU62DaXPkUZezaZ5+a4ATQ71+/3iBTAoV +df+Spg5ZhxtBspcLFLn0jVJoVXBcaaW6fpwbOK3mUpaM1fDsKyt/0zAPcKVm +CSbdVgYzcYZiEDcveMg2bM1QU4JVDRsf+TF4IaLLNq1fSQlmb/nK3uTjhYrt +lnoq6Dz2hIVJeYrwgnj00t5caSUQnlmMnZHnBd/o6dIhphJ8/CI8YLmeF0wa +xi15ehTBLnt5lsx1XtAQ8GfGxiiCm5muXjoXAwQOawS1SCjC0IaUR3d4GcAf +Ge89J6IITutkhK5gDHCSn6lVROfHA5pc/ebCDAg8pWBzA50vQbI2+rccA+wT +44KOTrKBv+fInCbJgPDGTR1Vn9jw8HJ4RaEnAxh+JmeXJrBB+hxT6+F1BkwX +il5Nj2PDnZOX4/x9GICtCpsiY9jgY2vrtu8WA5KC24wuhLPBeaOq8sx9Bhgu +GEvz+bJBV+RVkHEJA7am3P3QfIIN1amjlq+nGXD1vUm+kAEbpqp4inkWGCAr +NMGu12ODYp/oKljEhLOFraUROmzwZuuMveBnAv6syXG1OhuMHp0Lz1nOBF3e +lwV+K9mQEzv+IdaYCeWhD8X4MTZEhfyxOuvNBI1GqycGbThUPmGWZvsywbPv +Rfb1FhwmaiXZvwOZUHBVary2CQdLfv2JY+FMmNtWutGlDgcB/4t3DyWh9lSL +5AcqcLh2ferjf5VMaNpmZ5eRg4PT+ek9cotZAHo9rU5BODw54KciLsgCUkns +pU0ADqMm4rOYKAuigs+4WvvhcEVEI2FUmgUSzUlqe2/gEJJl//O1Cgu0LybJ +eF/BIb//jdfJLSx4HMwgQ07iMF2329LeggX6TpZfaWccjAt78D07WaCetHnv +pBMOb3xmq8l9LLD/+SP7jAMOHQqa4mLHWbDGUFgzxAYHnkP3Up/7s6Bnfd8b +7504bDbFr2QFs+Bu2KqY0e04BKs+tUgMZYFRROR6x204SEzXjAZHoXi9EsX3 +meOgfG/eyC6VBRbjhR9PbsRhW4NDA/MNCzLLnohZGOAQXjSaOPOWBRorC89N +c3BofeDlNlzHgk277mZn6ONgfzp6WVsLC34US5ZIr8XhPP87hyd9LBiP6NXE +NXGI3ag7vYuFwXULp9pRRRzSn+y9V8aPwWJYLFfGxqFI4oquijAGApu9NoXg +ODR/f3l6fikGat67JNYp4CDsu/1r6moM2p87lTStwEFu8Ow1sTUYcGW4UpXL +cdDYE7niqg4G2cZ8MaXLcDBX7Ny7ywgDGSHFlufSOPhWOtfOWaD/D92+/EsC +h7saIcedLDEY/ha2noGcFPmU+WEPBv7RXl8VxHF46TgFqbYYNBVrFpwUxWGW +6Ztv6YrBcuel8QZCOPCfSbMsvYCBO/HUyF0QB5mW2iEld9TeJt3CsiU46KeI +rZ7zxmBibQfsEcDh7OaE+JQI9DzLyEyKD4fr2RWGotEYcLae1lREDpXqb/WI +Q/kxqA8Lw9D86tMQs0zGIDTl+283Fg4l2y1zStIxEDIb6h9m4lBTeMFCKRuD +t8prys8g9/uV+M0WYtAf+lvIg4HD5NBn/FgJBpG2BTf5kJnWi8obaAx4Jra0 +xvLisErZbDa5GoPVGbuX1y3CQTv0VLTIewwOagkscUGGqVA9j0YMVm5Z3CmB +bPOmxWVnOwayiVuWufDgcEpzZknJZwxeHy8NwJE9omQzFL9hUFXT2dLJjUMg +l8l/Yf0YvN9JM+4jRzs5fJ/5hYGW4GUxW+TUen9vxxEMsHAZbiXkAk6mXMME +Gv/J/PdjXDi8flhXYjiNweOm/R6vkZuwsX3J8xh0bJFafB/5q4vkpPAiPrCb +mrx4EXm0lYi4wuIDFwZWuReZa/0hrV5+PvglvXPcCFko7dr7HcJ8sPlwO48S +sqxI0olicT64EfJkROLf/cDlKkxRmg/0G2tpvn/3B18GHoeu4AO/b0YuPMj/ +d78A/3+/8D94cxK9 + "]]}, + Annotation[#, "Charting`Private`Tag$67199#1"]& ]}, {}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 10.000000000000066`}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange-> + NCache[{{-Pi, Pi}, {10.000000000000066`, + 25.999999064585374`}}, {{-3.141592653589793, 3.141592653589793}, { + 10.000000000000066`, 25.999999064585374`}}], + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.7342196638748903`*^9, 3.7342197097266197`*^9}, { + 3.7342198203836184`*^9, 3.7342198247068157`*^9}, {3.734219875151*^9, + 3.734219942917346*^9}, 3.7342199787253923`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"20a8654a-797d-4e6c-b763-99591d7f6cbf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Det", "[", + SuperscriptBox[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"c", ",", "d"}], "}"}]}], "}"}], "2"], "]"}]], "Input", + CellChangeTimes->{{3.734220246134494*^9, 3.7342202808213263`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"c59d655e-6965-4c7a-9300-deac08b8d5f6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"-", + SuperscriptBox["b", "2"]}], " ", + SuperscriptBox["c", "2"]}], "+", + RowBox[{ + SuperscriptBox["a", "2"], " ", + SuperscriptBox["d", "2"]}]}]], "Output", + CellChangeTimes->{{3.7342202541940527`*^9, 3.734220281205372*^9}}, + CellLabel-> + "Out[102]=",ExpressionUUID->"98d63f74-fe5a-4ae9-8ed0-5362fb6cba51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Det", "[", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"RotationMatrix", "[", "0", "]"}], ".", + RowBox[{"Inverse", "[", + RowBox[{"RotationMatrix", "[", "\[Theta]", "]"}], "]"}]}], ")"}], + RowBox[{"3", ";"}]], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.734219630880183*^9, 3.7342197177293463`*^9}, { + 3.7342197779813137`*^9, 3.734219977972704*^9}, {3.734220074797818*^9, + 3.734220075182467*^9}, {3.734220217886148*^9, 3.7342202334016027`*^9}, { + 3.7342202875034*^9, 3.734220293588852*^9}, {3.734220341598076*^9, + 3.734220341739382*^9}, + 3.734262761841463*^9},ExpressionUUID->"4fc9b904-b65e-406c-9d16-\ +1ebafc7f92fc"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw13Hc8Vf//AHDuNa7RMKKMNJCskCLU66Q0REbaKimjXUJFKDOjsrKzs5KR +nXEORSrlXjuRkXm599juNb/n83j8fv7xeD2u+z6v9+s9zvt5PO7dan3P3IbE +wcEhycXB8d9vw+NrDy1u5cMOr6wSPzjoFj2doGzmwyhWh5NHiFh569hbMQk+ +bC8fV2AyEUu/PH9CVowPGx00KVch4rXsryx1YT7s0i+mZsAKDqvX96bBWj5s +2uPSQskyDhPU1FPG/HyYU9ivtSVLOPTqiXBe5OHDGu4rOvst4kDLeJ5jT+LD +0mDdnp0LONSITlx0XqFgvq1U0zgWDh+fXebzXqBgzMTHjb1zOKSMNxSHzFGw +baG1JXMzOISf072eMEXBPDmUhf5O4eDzJVPoA5OC/X3Z+i9iAgdntY3oJzoF +s+dJ0t7KxOEcZXZTWz8F8x5Pep01gsNxx2tf//2lYI6e0umZgzjo9NIcJzuJ +mPPoLZd+HKRKcxoFmynYlMukUsgfHNbISrtJNFKwjISLh9rbcVh5Haio8IOC +LUUZ7Mebif7Z2fsc+kzB5DbJir35QfSvuU3DDKVgfhC/YftXon9g0Hu5nIKx +F5K1vWpwSBXfputSQMEkIrg1PpXiYPf1z0ReCgW72qguxp1C5LvbML4qgYI9 +yt5sJv8Wh2MJpScaYimYj7joKYlIHBQfvUkbDqNgQ51z/K4BODDlTSw3e1Ow +6CkBvm33cOgJreRTfkbBOPx/7+myw4G6olSy7ykFs+vYxb5hRdS3jSJ82pGC +nXeQLuUwI+rlW/M18DpxPX3VO5vViHym1JyirShY2eGihMc7iHwuJ2xLt6Rg +e++5XUvfTNRr71O3GgsKJiTaqOAliMPy4J7d7MMUbKZb6Y3WEBO8DTLjbeUo +2I1NpNtFIUzAAl1MZbZSsO/KKjucfJiwRDtB6pCiYPECA+VcT5jw8DLT5rgo +BUvGfM6EX2GC9aPdKspkCqZLM8ZcFZkAmZXlk728WML1uNSkEga44K/uZHXx +YqsnZj1cMxhQvMdK5loHL+ZYs1VhZzQDVGtIXi2NvFjkoBaLw4UBUn+OGpZU +8WL8X7seZu1jwIJgU8fTOF6sYPe/A/L547D3VErAniheLFNG3fFKwjg4RDvq +McN4MS1q+O4HL8dhVE488UogL7a2LCha5sY4dBywtNN34cWGBlN35G8eh+L7 +Q7O853ixV7/ScqY8x+BBy4JwmAgvhj4oH7mlQYcIc5ML4et4MV6xT7QOaTpU +UFOS3gjwYhcvrJqr8NGB56eRWhSZF+MTSLZ/1TMKcbXxxm+nebDOtP6lfYGj +UF+s/yK9mQcr/+Da/uzvCGyODlguD+PBlCKtMlUfDcP3SxIjAyI8WOz+8dNj +3gNgkqAHC+t4sDduciL37wxAS+/liHWCPNiYygfl6dMD0H0t5bAOFw9Wm7jQ +NSs/ABM3lJNez3Bjb7lj1szX/wNx5wMXdFq5sdMTg95aa/7B9VfWDa8juLGS +c7vj5aL7YLTRe/u7UG5s+ePmNbKefXBXKN3l0ytujKKiw698qw8ehY8pDPpy +YzFtGusu7O+DgBhHH51H3Fh68niXVn8v5KX5Hhg8y41NlgxXHVHtheWqrDyd +TdzYZc2Q10Kp3dDQuUtwUZQbu6rXX6Pk3A1xc4V25eu5sT8xnt5Ox7pBTxXd +rEfhxmZ/zNFjGF3g8rY5aP88F2Z+RSD+kE4XzLku2SOtXBhtp8nNiu5OqIt8 +/oWDxoVtjbi9X7WgE94U8GypbuDCxp31NnS96ATNsfXtB79wYZnJP34yNTvh +4QU5g0MFXFjTw9+c3MG/YUL75NYjIVzYtdqZyjfmHYBZND/lecmFvWu9OrVZ +uQNe3z/XUfeCC6tOcQjDuTtANcP69dFnXFhE+dMfNz61wx3xR8vH7nFhNX0n +Ylvk24E+m/D7hDEX1uuqniaytg0+CcntETzOhUngoy+vjreCv0pWcMNhoj/7 +rCicP1pBwabwqLEeF7Y/L2itln8r2LbUF51U4sIunb3u9pqvFf59nAwx4+PC +XtUtj9+RaIE4ngXPC9xc2NuDjxLZq81w5gLJ8RonF7bbvQ1vHmyGek6RM05s +Mua5un3J6WMz5JhqSkSPkrFhlbpyF5NmsEvVE0geJGO4ftJRX61m2MI6vJTV +R8aCnfZ7/ZNphrCE038rfpOxQKV1T8Mnm+Ax0zm59xsZ+8mKNO6MagJ1fY+w +0Voylnvl0z43ryagv/HznqomY4PZutGOd5vg0v4oW65PZCzjcuXiVYMm0A8q +U1TIImOPHQ14kXkaCCoufbwXQMbqrqBphrdoUOvGlfrYl4zlKC2ln7tIA3ea +4JvnnmSi/q8z0BM0mHws/SjMhYzVN76JjVahQdvXA7olN8mYy3n5dK9ZKgRL +HlXGbMlYxUwOv9UIFY7fM5H+Zk3GOuCBeuQfKlSIWa12XiBj8ep6wWKfqZBk +8/zziiEZU6utKrscQYULZf6FvEfJWGF9qp1YEBVE14S+W3+IjOle8zik6EkF +38Jkv226ZOxsR5qM3T0qIJT3j5W0yNh5iY83gm2pwL5YcENzNxnTTFRxErtM +hdvkLyeOKJGxu40nLPadpILc2QY9kx1kzPfhMdu2I1T4m9Wicm47GVu6aF9M +BSpErXRtvipDxu5rGVgp7KOCmfngupuSZEyxgc+9W4MK/GkMjofiZEwv5IHC +hDIVvrBnJ11FyNgJ43pnqx1U2JvE0/JSgIzRNQ6eviBNBZ3GB98O8pKxJ8d0 +P7zYSIUDy11VsyQydlLS6JKcKBX0lY4VZq6QsKKVwidq66lw5HxB5qUFEuYU +VCaaJUgFQ7/NCUJzJOySacKBUD4qnCzyD6+dJGFH3D5wj/JQwfzfjP8TBgnj +fa/snMNFhbNCVh4qoyRs+K1tTD+JCpbww7FvgISRxdNcfDipYHVn7803vSRs +bc5e6UgOKlyPTbpyvIuEnSy87itOxPbfBE8vt5Owsi1upTxEfHv+kWF+Mwm7 +4vOz4DoR35f7BzaNJIy+JtVZnWjP8dTJPZt+kLBYP5Pl28T1Hj8vU/xZR8I0 +HWT0xYl8nubKbnleQ7QvcX2/GpHvs+7XG/ZUkbBPFXcHSyhU8BZY5B8tI2Hn +C0JUcwSo8GKfLcfbIhI2krVFQGQdFYLsaLOm+SRMtv/+rSFhYn690Rvj+kDC +lB1+71cQp0L45/Te0gwSNplQcLdDkhi/SeG226kkbGzvxZG5LVSIk3H/sSWR +hEkwVMO85KmQaDyKtcSSsNnG4NPuxPiluloUv4gkYb8+DYkME+ObkYm+1wsj +2m+Lyaskxj+7XTFp4hUJO7FFSpB0kAp53BERqQEkbHrlL1fhMSqUXb39XNCT +RNxPNx2wOk+FqtftzpgbCesXiVW/YE2Fmkr9245PSNh1cFCovkWF75s2ne26 +T8IuPw++3+pBhV9HvY2CbxP18dlh4xlAhSYn/OBhexJ2YaQoJfYNFTpptcrZ +V0gY4O27hD8Q83VVbZvVRRKGf5ISuldGhX6VOHHRsyTs2s7Ka1p1VKD7O5Ce +niRhb59L3ePro8LCQZmOE/tJ2G7RZLVsSRqs3Av4uapNjF9kZsUlJRqQ4mdr +CjRJmL7VluzHujTgX/jxQVKZhO3kEg8YtaSB5MfHXmMSJGyXnVNmTioN9LY1 +qQayOLFOgftBrkebIFFEQPPUDCcWdCFZXvNSE5C5D++TnODEsmvvcBk/bILv +w0WH3g9zYi/T+lbfJjbBuQ/R5360cWK9R7435K82gaP2VU+BIk5sl4CgqH5j +M3TsjPFrzuPEOKUD9/2kN4OuZHNQbDYndmNtfFk+TwuQVg5HKqVyYm7SQe3e +0ALBnxWyT4RxYgbG3REGRS2QfXKiNfABJ5bDdTesIq8V1iM7/5y6w4n9UiEN +JtBa4aG6da/kDU7M+pWCZMtUK+iIttDfW3Fi7jntA8p726D+d8nqDxNObGdf ++53XWBsMXPfYKajKiek+5R5+/a8dpFzXugXRObCfvaHP5y91wo3U7+Jvhzgw +kqZ9J9O7E4p/+n780M+Bke9fvyaR3QlmW1aHf3VyYKuirmkCi53gW4ubC/3g +wGSXQxWPxP4BfB1NIeI9B1YklusbOtAFNalhLQm3ObA6qwZfmYgeoMapn7Pt +XkW/NizFzaT3A0fqvYjullW0XRNJtq/uB7X3H1osGlZRPSXUrL+zH4LLdpod +Kl9Foz4/7RkgzhOmbVsNt0Svombp4ZwSjv+Auk5Yr9NiFZ3MqA/8iwwA1XNK +5mTDCrqrtikxqWMQOALULtd+XkFfntgdMTo5CGohd+P0ylfQN3bC+QoCQxCc +QN+olLWComJ1gQH7h8C0ol+I8mIFrfgueJKaNATU2SZyzaEVVFToohOH/TA0 +2hcM7ylfRllXN3z9NzwCTT3zpgcKltG1riXCWcsj0HZG79OR98uol2NciKXI +KHQdrg06G7uMXmfuonkfGAX6lnb1J67L6C/KUc7fYaPA9XvBtUJ3GY3gaQw8 +okMHneP66w9VLKHvEz3Slh6OwQHM98mJwiW00NHnTKbvGBzU+tF/KnsJLVsn +paQdPQbH5CyKrsctoVesZyUXK8fgNKftBd+nS2g/8kZ5Lc843C/zT/2mt4QG +b4btSsHjkLaTpm1auYgaeFPW3g5ggP2O/OpnRYuowmKGYHAUAxTlQgzzPyyi +zJdGTq/TGJCzxcxSOH4RVbTIy5WpYUCJOM2jxX0R3a5pvOHZPAPquWl155BF +tCDkd7foRSYEkPNN/LUX0Zx31Lx2WyYYcYZ0lKktotZnzP84ODCBtmRKl9i6 +iH5+8tJX3Z8JndPUNd2ci2hjtK33j0ImjPVRLa5+XkB/r6BBJ7lwyOnJ6w4p +X0B9+Nbc8lqDw/3uYNuaggU0hve+3CsxHGY6TB9vT11Af8prvpNVwGGpkRo7 +6L2A/mBq7zY/jkPVzzxZMbcFNFnynKkG4ZVnP4I/HHFaQOV4nx0dPocD91dT +NN1mAb25j8ekkfDO2ipq/40jC+hAbHdhuBfhn/K8WzEHFlAlu5LXGwkvhZYF +z3zfu4C6iWfduh+Mg1iRKY/yjgXU0b22LjYOh46Paq8tZRbQEJcX4veScYjJ +W7/xpfgC6hIZLSiWgYNMNnUnk3cB7auQevX3Iw79mXkfN3MsoDKzDyZXSwjf +pQfrmrDY6G7DrrSZChwUUkyN80bYaIsdT+XZOhzoiWptvb1sdKPYErv2Ow7Z +8euvCP1moxJ7Hh7kbcRBLYZ63+EbG9Uw+ZBLIrz5wsiZxMbYKIJXlAsQHu1d +kQz3KGWjphGXQ3r+4qCdXy3Hk8dG/Wyvy7gTfn19za4kKJ2Nlr57fXqY8O3Q +hjXHRRLY6GOeEFnJURwO1H/sjI5go/7jFPdN44QflVeW03yI+OfLWKdJHI70 +pLxWcWOjN/YGHW2exiE+5PjWQkc2ant7wHhxFoe5Q/hHndts9HXlSCpjHgfj +ufDD1dfY6JY7XYey2ET/M3Tajl5ko1Wd09vUCe8vXei1+2XORmPeWeh6LuFg +scaXbWHIRjl+bPB7u0z0H1UK/HOQjXJXA6fXCg5cDjQp631s9FNQwzuNVRws +ZR/ljKix0cMt6Q+yibiwTQq5p8BGs8ZzrCeIWMC/hjYrw0aD/uU9WiFia137 +a0/F2ai69928NiL+xFgzS1rHRvFzMWueELFwYoGvPw8b7U3vCB4krnfT/PzG +9SssNPoWqidFxDVcq5kRsyz0ydE2UWkiP4mSVF1pBgvtehQhPUL0x+GG4c+U +ARa6oeqmpdsCDt8kJy4rdrFQrmO57V0sHLb8ejOR18xCI8LyI3iI+jx+puup +9YOFrhrnJS3MEPNRo0+kqoaF1qv+4SybIubHoO+7w59YqM0v8+qDE8T8jlTW ++pHPQlmPFcbCGcR8PN5Ub5bJQp8uXQr8SCfmx9KjCx2JLJThMJgTM4yDX470 ++OUoFnqSknTNeACHv1af3QZfE/lVWJd+78Vhr8iNdbf9WOjfzeMVwt3EfHhU +qPHEmYXGWlI2kVuJ+aB44cvqHRaaF/ct/D0Vh4iu1dO+Niw0piCHItOAg8HB +E0/CLFioUq2bkt1/zy/4+9EPGixUs/VYs3s2Mb4Vfmaaiiz0XFOFx/M0Ynzv +qfz7tJWFSr4O7zNJxIHc8pinfj0LvT4YtMc0jBift+uM+5nzaCn1tXW/MzE+ +JkV/7Yfm0fNhSfMG94jxIV28j3fPo++TVvY5E+u5xjYtbKlhHkXLq07tP4vD +VrX9nWLv51E75wejNzRxMDIfjVBNmUd5+eTF25SIeju+OXUkdh4N5tj9Vmw7 +Dr9KGQ1OgfPogc5K3Q1COLgcjEdbbs2jh896ZQqOMaHFfDU1VHkevWUY8447 +kgmrju+vZsnOoy0vtzfWBzJBMfLs5hqpeXTV7nGN9TMmPPuTGzkpOI/+/mlW +JnmDCSrXrQJMGXOoXcAJZpo2E3ydqu+tzZlDGWKUHCMqA/Ij7yjLp82hkgtI +biix/3aVbRrdHz+Hnn8SHPSxkAEaKw+s77yaQzUixgqfEft3j++20w1351B5 +y02NlpcZoB3lpROwaw7dZrwx6si/caB/MuDmyZ9FD5F4nYKbx+B9SMn3hxmz +aJ7J11AObAxu2+8M7kuYRQtc2iWMs8eAsWGNZOWrWdR77nLLU+8xmLjfouZ4 +exY9G3iGjewegzn5a5b9O2bRWxv238gJoAMp7FlBVfwMWpOic+3X9lGQvFV+ +9VHQNJqmh7bvERuCmPr6I2u8p9EvohIPTi8PgoR8m1KK6zTK/fC13u0BIu6b +mP11cxrVFu3d9vzjIGw8Kx8gf3wa9bewOWxxchBED4V8bOWeRl0t385w+AyA +oKQdWdNjCpUqjj33bLIfVr4Lv5t4MIn+VQ6prqvqAbMo+SLxm5PolYP5AYmh +PZBqo1N7wHoSdb2r9TnGtgcMOawHg8wn0T7zoh3Ta3sgYk++3M7dk2jZ3Tr5 +I1f/gkqiSdrVmQnU12zOhWdNN1g6BaU3OU+gJbZSLEufTsjVTyxh351AM4KX +p59f7gTS+sKvW+wmUPOP123/aHVCRtaf4btnJ9CXu8mcqmO/YaZHUUFAm3j/ +nfVbrC1+g9ibUDO/KRzd962o20u9Ax6CoMWNeSbaseCYckeiDQ4fQn2uDTFR +ikJd2mtWK4gddSi51MpEDQX3nCC3t0LpyQ4J8wLidfWg1r7wVli6lNqnc4+J +vv+4rBYk2greT/XuCQ4z0Kjn97aIyLbA6Wd4Ik8bAw23VFMI420Bee/kJo5a +BsrxcX/snTHC94GUvbPJDFRkxzV0d2EzrIltWeq+zEANuM8GCBs2Q0TZ7YDc +tnFUVvikxHO/JrCrlKnIrB1HudwzV3vuN4F2dRMjpXAcbcGLnydeaILOem2z +qNBxNHHtJsbRXU2wuYNr4/OT4+jGxZ55nW4a4H9KjrvuH0eTO8pt8r/RAOu5 +6eqkPI5KCuraBBXTwHqY+vcG/zj6tFbY4UEIDdLn4t6Z142hIa/u/uQwosHj +BZN2o6IxdEFWrCeVOO8brpD4jqaOoQwJP+48wgPj3Ddu63qOoXNm47lLgjSo +5JOK3/NgDL3A7K06sEKFV2saG3dZjaExSm9ZIzgV1Dbs2S17YAydeKfOdG6h +AuemkeubVcZQTytj+YtfCc9IxUZslBpDT3oXPc/4RHhRlnNBcIGOZsn5+Hok +U6F0909stoiOak8fjZN9RLQn/vKYcBodvebrm7p4h/DYghFVNYKO6menv9tl +Q/iuuqHHzpmOJrEZkrkWVFj/LsjO25aODscpNhF/Ci9eGOGJZ4j2vz0ipxpQ +4ZFJw8rvvXTUhjf++DptKjA1gnzn5Olo/19KOE2dCrZiRmtFxOloETvty6QS +4Su2QMQuXjp6TzB16h7hxTPdP6SN5kfRT2vLdhttJbyGBb6zHx5FswaV4nyl +CK+nnlDxaR9F60UaD8gQvq/yEyhK+jqK/rzLqSJG+H7vrR96VSWj6K4/H5xv +Eb7PORn4pTN9FNVdc0JRZg0V5DVOGM1HjqKbTf9YqPNTIX6DQIvIi1E01nyc +M5mXCmLs7xfVHo+iluwI3QfcRP27Av4Z2Y+ie7U8+BPIVODBDG/dODeK8ow1 +OykR/nZP4Z/2OTaK3vl80kuM8Pms73eXZO1RdLuCppbVf56/GUBCFUbRAztP +hVOIeMDYMODPxlGUw5E7bh0RW6rzC7MoxPWNd510IuIW0e/RouwR4v4KmfuI +9oxY/lvVR0fQyepdWZbE9b78OZ5p/HsElVv1MvpL5KOH8qnf/DaC0lROBFQR ++RYmfyv1LRtBN3PJWC4T/VH29UdSMkdQloJsWQzR39Qbx+vR6BF0+Qx/ZARR +DyljPtMu/xFUwUeQPkHUK1ztWzvryQh6eMNkaiZRT0FR/ysbbo6gAhT+Moyo +t/f8sWH1CyOotNYesb3SVHhYVT93U2cEfXx/7pruDsLDSS/c/RRH0PTP3Co/ +CO9b+xzjSZUYQcefSUyUEt43N6rf0L0wjF6aOsOdA4TPd714y6YPozrh1rJF +R6igL3JMTuzPMLrDQK9900kqaHR+1TQpH0Y/++t7Ll6iQlalX8Wt98Po/uPf +dR/bUmFb0tHDL2KHUTfbdgHze1QQsv96qtp1GF3vf8daypOYnyf8/nTfGkb9 +bnTECwZRgWPX0WsLF4fRh54vL52PoMLEbJ3Dbr1h1EdwpJI3mwr2v30XTJSH +0UfGFP4bJVTorTjieVtqGO0quaEi/5kKVK+6kHdLQyg3pykU/KFCrlBdnnjl +ENqOXJIXEaKB+WUhw973QyjfJj8zzy00mMuy/JcRM4SKZ+69dVGN8Pzh6Q06 +j4dQN8l0fUMzGtQ7b3G13D2E2tiEk4SjaHDr8y1RuW1DKFlQQa0+iwZr15d8 +YKwfQkXO9vwYrKSBRaZxrztzEB2zrxg9PUiD3j8uBkmZg6hFzt7YVe0m8FKo ++3sjahC9byeyffhkE8g7CT3W8BtE7XmXtuy2aYLbazOyPl8fRM9OifTOhTYB +C2ldNyQziFqbWOVsnW4CobRdnYoRA6hYoNSvxNpmKJxyeTjtPYDWLT+zi+1r +hnNQJ1jxcACNPD+kMr3cDPEdlmBsNoDivCyNUq0WUBQISL0nOIDGLpSf989t +Af37A3cLPf+h+tU/IxtyW+GhTjT5wL1+NHXjR8hgtkN4uGTXmcv9qIyRGd1Z +tAMKmW8L7xn3o6/uDKQF6XTAXHKyTZJSP6oZHp0d4NcBjwWyv3KN9KF1XQLc +VbK/wb2rKvCHVR/6Qmi03/ZWJ7xwHxA5b96L8kbaHsyV7QYdnyvHRm52oW0T +kVs/vewD3H7ptceLFtQ3t7Bt1XYYWnLU15+0bUH3VHoXv/YYhk8ztsFSh1vQ +KZs9ceuihsH7GS24bLUZ/f17sqy7fhgkotJCpp2bUbWRStH0nSNw+KtpmJ1N +E+rDFqe8IrwdJfcuwkSfihqJczpXmdHB7Van2OYtVFTlazWPmx0daq1lVH8v +NqKRV36c3exGhwsuM6oiDxtRs7cSebwZdPDJjFfzu/oL5f9l8vLmEh06ead3 +3zvQgCb6HbwlnTAGXl9idYD1FdUhPY3/9G0cRn7tC7Mp/YpK689yz/8eh5O/ +28cCH39F9b6u7FpPHwcJpsjbDlYdmjY++aOdjwF54kGrD9i16IE7nw8VHWVA +982nX1IXPqNbZ21FHCsYoO8kIf3j02fUdqGt5cp3BmR4lDpNunxGY48Uxsp2 +MMAxfEb+wGINevTI2iva0wzgr7rt375Yjb6Ymf3nuYMJd7d9ihNdQNHuH9G7 +Hr1gwj6tOeOrLii6qYFzsjOMCVxGGqsfFqrQNUZ5b0QTmBDrlHX16GIl6r+2 +ro1SxIT6+hh5l6Vy9NkdEfeJv0wI625rr3tajp7nvxS7MsKEy1PC/iLLn1C9 +oLljfVNMmJUMHMteLkPnHM+XbufBYds917yelRK0WLX0S5QiDgyvkqvKHiVo +V1SK3tHdOJRGTQs/WS1Gd9/cIv1NFweTmltOwhzFqKY1d8gRIxyebrDUMeAs +RGUt11bI3sLhqGLUWMjzAjRDC8ZuOhDnd2iJ+8tZgPpdSvLzeoJDpr3R6iPS +R/RizodIJT8c2sr1vmSR89Ag60JFC8IHUk+s/04J5qKbNvuPryH8EORyQjNY +OAe1zsuVjH2Pwy036d7v0tmodHfqnV3FOHS68+y13/4efaHFsttbjoPhMzyQ +e2cWGuaV7r4ew0HRq1oL0cxAjzd7luz/RvjdO+tl9750lCczpDj4Jw78vmH/ +XCANrYmpCSymER5/YfO6yDAV1fhQ/sTlNw4XAk4OmpumoNniPx03El76Hqil +O3E6GT2YEsbvT3gq8xXfsOLVRJQ9e7SpbwgHjS2DT4J/xqP+0eNj3whfC28v +kfvREYeucyy85034ekrOn8Y9EIMW56meEsJxoClcdEPwKLRyfXTQfcLbeUoq +O10XItD69b3CyYS3g1VXW4q436D5Agnd7whv31enPZtYH4ZGXNgy6Ep40lQz +RVlJKgS94HBpmyzh7St36Xk/Tr5CPVdWXsUTHt3s+Ipy0CYAjWFbyo0RXv37 +RMOq2NUXfV3j3stHePatR1uJUqgnKq0mWbFAxKX8s5v1zdzQr4lRhZWEf7XE +9v9SdndCyXxrvpoTXr51iH9R9cwtVHpl/2QZEVMLNQsoVmfRsqpE9WkibnHM +PqCRD7Bu3wW///z99pHBqGncNahYA1N/iNg070Lt/qQHUBnc7BBIxLRUYbFT +jk/A9OsJ/jVEnGlks7sw5RnYXwv8ZEVcn36k+s+Bl95wrULO15fIT/GgtPc3 +5xewr/bSffclIh/dJ8oWVkEgzCHvdozoX1vMzZu4bDCs3N2SP0DUYy4yqqpw +Uyjc9IwXOkV4XOxNnbDL2nDI4UpKDZsj+hc6YwvkCJAid9xPIzx+7vW2ci5W +JJwpTHYLJDz+OMh03ffxaDCwXNesT3i81De7xKLtLbTIObgqjBEe9+oUkPiR +AN5MZt+ZEWI9IFx5eE8i6OdLlJ4dJPq/X4OrqCUZNC8L9FP/4qCqdzxHvDEF +ZNK/nTz+B4cqHatzLt9Sgf/Yzkvh7cT4aL3Khqo02GS8Nyq5EYe7e9+dSS5N +h8Zfx//Z/MBhRbOCg7sgA8zufRdcqiPGV4Nu8T09C46+NoKkSmL8lY8sW4Tk +QKpHsBwtAwe9qLRXc4m5YPJluTkvGQdBT/J6o3N5cO6asZRlHA6jjGtJDLt8 ++Nzpz9jwGofkWtkvan4F4JkfSd9ErN/gxZYgznWFUPALLTt/Ewd3dZ/TTRGF +cCrfc4utNQ4X3w4OPUwrAqNvi4cHzXAQdUrjK6ktgbZewTXPVXEgvT/T5Gdc +CvLy5OKdcjhM9PLEnmsthZDPO1QTJXH4aWSnvDBQBmaZmdrzvDj4yiqY7Oeq +gGT5W4nmxH62NGrx/epWDK5dbukbec6Eaa4PqoY2GFypyfb1dmICXYY7TCMT +A73BfKFJeyZ0nC66SFavhhVSQuV+EyYUVW9gpCI1oHDBs+n9JmK/jW5bN3Ll +C6TPlNWsT2OATaGqIzXlC4w0d0u1RzDAstG3o3T4C8SdWjjq4MeAE9xaSf73 +aiHKWnGHgj0DFB5Eaih51MGVis8/o3cwoO/YudN34+th6Zf70db4cTgw+PTq +z+560BDKPqT3ahxinifdUZb+Bs6Geh+fu42D+Se6Dz32G5ibOjEyLo5DjZJb +sW30dzi/bdfO+2LjkLw2WfxKeAMUtGmVS/uOgQZ9dnwH4YS7Pj+WGCZ0mMmF +3I26LbDngrG7Z/wwdL7bfHeS2gVS/0pukw71QTFPtnnGVBdUbzXddVOxD8Ls +9mldEe0GcbWXfn+F+sBopwXHz7Pd4Kj/PpvZ2wtV2f6hGX+7Yfnp1bRSj15I +KpgpvjL+F0hPdBuTn/VAodXg6pBXL6SKdScwErtgm5CyQ014L+yPnxR1d+yC +4GqHgbfvesExOLPh4LEuuLON45vF1154971K1HbiD8gPSITW8PfB2L0zx7UO +/YEoO1PZ+JA+sPpdoZoy/Rtc75YfO53QDwaerLYk73bQh9nra3P74Wz7Wd3H +1u3Av37X869V/XDLfvznK6QdovKTy/b97Qdl2YIX7sttUDzjr7hZ+h/QpUNu +Oru0wZTLOcHhmH/wr70N9jxvhU8nQhUSs/7BFe+DVcevtcJzqYbD5z/9g03j +d7emGbTC+ipw+/H7H9R1My5rC7SCKucOZu7GAbAy5Jj/Fd0CN/1mGx9HDMDU +7fjpbcT5TuPcrnH1tAE48y+CPfK+GdgKNyhjRQPgLO7tsxzaDC++dyGXWgfg +kLporoh1M6St+ZJ/UHQQvlXOeK+Qm+Hu3+WfC9sHYcGtakWf0QR7crXoBbsH +wXVq5G9HWxN8MX2/Tf7UIORcfqS0kNUEfWGhYfyhg1DrXisjdbYJMq435H5O +GgTjT/dXZ/Sb4P4enoan+YNQknyqfSvh8ZW2J1w4dRD0Mr8nPqY0gZTEVafm +dUNw8bJZ1jaUBgP0mJAgmSFQ5bC5nvKBBu/LWz4Y7BqC+9qPzrrE0UDn0rGh +kpNDsHn0zoSSKw3OJe46G/dyCM6aaf9J1aPBDO/fq5nxQ5Dll0JPVqZB8L2g +28W5QxBbXpZFkabBtwOjz6m0Ieh6E3JGcJXwa1pkUHf/EMj5BHzPmqACae2R +SPr0EGyKjlnN76eCTndyNpfYMITf5spcJDzedtisRGjHMJBKiiMOlFPBIXu1 +erP2MKSJ7tIey6HCe1fLdu0Lw6Dv8cLRM5LwmIQY6Q6xDr4KcT/NITxe+vyL +oEsucS5NVKw6fJ0KFqMO4n7YMJyxUYcjF6nwsrRROal/GG732icEGlJBcYu7 +Vs70MPQdjfreqE+FOj9l/XKuEehkpDZ46FJh5Yz/2Vb5EfggcaJjuyoVYqq0 +rPu1RuDM4/DNGxUIP8sP3caPjcCFnE1Fj7dRoell+KOl8yOg+dqmyIDw3t1Z +fU++WyOw+b6YlgfhQf5Lk0FiT0fgb2W3yX//X0/7khC5/eUI7IvxENEmPKmv +fDJZLX4ENDybwkoEqdATtpS9P3cE+peqelP4qPB0MavEEBsBi1NAWeahwsZr +52vO0kZgxfSK2GcuwrPfeX9e7x8BlqDehjnCv6Yaxe0PpkdAoYK8JoLw8Xj0 +9X53rlFgBM6SUwg/v+AUYQRuGIU5n6srUkQse6N6Pkp+FDyeZqyQiRij3iOl +aY2Cz6ou97n//K29eU3BsVFgXohfv4loj5XQII6dHwXJt9bSR4nrhfO6bvt5 +cxR805Tl+wlvq9/bqdLpOgqa+vnb6YS3f7W1aw0HjUL5kWLBKxQq3Dzgqz/z +dhQMMOE2RIAKPGmaxpy5o8S5Kdfh9VoqJK/5d3YtNgp7/XyaDYWpcMApxFqS +NgqJ40nDDmJU6CS2HIX+UTjwYlscryQVnA8zH+2ZHoUPm7S7KFuoIJId56nP +RYf24/IhznJUyBM58dJkAx3khQ8nmypRwciVHWkpT4cY5aWZCHXC64ZnPjgf +owOr58SYHeHtLR+5Sr3O02G7xBbTKcLbFZsKaoJv0oGfh+/JCOHt2ZF1HVlB +dOI+4eMtbkWFUNOq/pK3dNgdQNlkeoMKqqW3GV9y6MS+7NU67UCsB79vpB4q +HQJlTm546kfUc92tkm+9dHCghDxJCaGCWaTg7cIJOixln4rfEUcFvXSTVv/1 +xH3AwPa5wUcqCH9tTdc0HQNqkFRdE7F+KCaPLGWsxsC+tN70D06F5baNQvz3 +x0DmxIo8LFNhZOiiS8/rMTheFdUrvokGlTz9RgGNY7BHt/ca72kafHzlxenU +MwbK1zaoDVynQYaYXPEVfAxgJPCxhBMNQuXtZfasGweWvsLT0Aga2B9hTvac +HIfwhWdTGd00EPVdiNjzaxzWVp06ova0CfjXxp3Y8nccznA5fPEKaYLVN/s5 +BJjjcPj8z43K6U1Af/fsRu8aBgg2r449aW4CrJZHL9CYAWXWLf4cas1wm1uk +r7eBAWK8vzrsWM1g/bLwzY8uBgwkK5V1C7fA2Q1nDIvHGZCbb+mSrEJ4WS66 +IFCQCXaSCnNi11tgo4GM714jJow/PDeR0NICn72VlIJ+MOGSy9LUr8+toLP6 +JlH+DxNsrpz8YNXfCh+fcIhV05nAy51rpsXZBsl3Wznm+IhzUuRZz3xoA89z +Hm1XjuEwkPTrbgPaRqzP5ue7a3EYDv0eqtbQDr039t++c2UCRJS6PbYKd4JU ++lSajt0E7OdJc7ug3QnnBtL7eO9NwLIxefjr5U6gXhY+m+w+Af/2L37cn90J +2Knhg+1vJ2DSrZjkc/wPJOwPET/YNQH6nIdzV4K64LLQYI3o+Ukw3XafZLm7 +B7hiWmYCr05Cyc+p/fnWPZC17Ys8+eYk7Dhotk4ltAfmd6cETLpMAuqss+XN +ZA8En7lq/ituEo6IW33lPd8Ln2O7+/x6JyEptnb7Y6k+UJBv41i0m4J/lIQx +lex+mNb5eqDPeRrsFEs7zNsGoe5UnsFX92kgWz2qLWMMQtTtaKMPvtPQqrhR +ZRP3EByIv3XhScQ02FPCObDdQxDAud5ZqHgaiieC61OCh2Bb/bkPB2enIeeC +SavjsWEwO02XTH44A4te8X0/P4yA7N3mbS9cZ6A2dk12xOcRmPOt2HnXawbM +QyT/Gf0egbjSV1o6YTPgo1Rx+Bmxb41I7j7V9HEGHGnr09jEvvOs3zWANDUD +wzHe15kcdMi9t4ZtfX8WTocXlH3QG4PxZrX5qcezIKdgHCFhNgaK2hazns9n +wXsfc8zGZgxSOWInk0NnIdhj9FXEyzGICVGg9xfOwkeOoJzTXWPgXXDojzV7 +Fvbsxg4sOxDnNXG731Occ2DMM/Nwh884rLoGtHvyz8GllKR4xchxcDlMa06W +nAMLaXbAp0/jcK/1ckP//jnIqj46OL86Dhfmn1Rae87B5UUP9VRPBkRefFs+ +FTAHCtkfkrVDGdCCYmWeYXNQ5W+vnZTEAJMXvMXJqXPwZt9ACQNlwOFNb3L6 +6+aguZL/2e0FBni6lWY7NBJxur5/DIUJaN+fLFLHHHC6h0XFiDFBJ2tb+rbR +OWhil3xbp8GEXbp5CdYC8zDstzPtqy0Tbic0v50SmQfVngB+j4dMyCLPx3pK +zcPK6t5AnmdMkG3YH5WsMg9HVNKWvKOYIHHpR3C/yTwIhVBf7fvKBC6PoefW +4fPgzVNVf4o4z999SD59NW4echkzp8xlCR/ZbVGwSp0Hg2bKRVkVHLJNL/y6 +VDgPonu8TPUP4GCx7ZfE+ZZ5kLemKFpfJjwkNsY42zUPgtlhvSwbHBQEKNVn +BuZhQS9X0PoODkvTB+0sZuahoKPb5L0rDim1RQUmoiwYz+J1EIsg1u2nJt+T +UixIZwli+wnfOOfg541lWTAg2Zi1l/CPYeROjhOaLBDZTJuP+4BDYeCR5uN6 +LJDb76PMX0B46tm1tGOHWbBs15N8rJTwuv1boyMWLKgyd+DcV4OD5aVPMgaW +LNhzaraaTvirzqx96tB1Fhz0KHC8Q/gsRkco+qAjC0owvxuDzThw7VK9jTxl +wUPOev9Ownd3t58A8GbBsxNR5xIJ/+kL+gzqhbNARuFi3dt+oj4cyaW6cSx4 +dcjqeCvhR7HZqkCdVBZ4j0oc6iZ8+Wz0z+V92SxYrLubXkT4k97NUtcuZMGJ +tOWbl5lEPZs2cGtVsCAsbodXO+HVqjqNjj1fWHBHU2BoyzRRz3KT95oNLJB8 +4xOgM4tDaO5t990tLDiZrmEvO0/UN8XfTKOLBdf33nn0l/CybVSarPoAC3au +M8m3XyC8H/R5ftc4C25K5q/7THhb53nvd9UZFpxxUXrJIDye6rT8VmWJBRci +NsiNEF5fe1PigTIXGx5r+TZ/JDz/+LLWYSVBNuiFnXpjTHi/39xCXFGUDeTz +IvalRGx09AFdQYoNY+UShv89TyjWfVW5Q5YNJ5646/z3PGGL2vtgeWU2POsS +3vebiANk66/JabIhHL11xJuIZzYO7pXVY0P7i65rq8T1Lq8h8W8/zIZPco/D +DIm4nlOme6sRG6xJQh02RH4ac7p5WyzY4LGivceMyD+Ofs5LxpINM5cP5goS +/ePpcTqz+TobYip0TkSxcbjfHLpT+jYbeCdm1s4Q9er8mrsk6ciG+wsrHFvm +cDhc0dAo8ZQN2mNpClIzOOTkjSZv8mbDXA375cgkDs+jtx8XD2fDKclXe6bG +cVDmfbfEiGWD0Wb+P/vpxHpxlM/7ksIG41efqi4O46BqulPcoYAN3S4f76zt +w+F3Zdb3Y+VsCHytYpbSjYO3krK7zGc2hAwcSuHvJPLh2TXY0MQG96+7fpg2 +4eDjmBeV0skGLVpe1a5fOKj1qxu59BPtJW637PuGg1+lZsGOKTbomn5sr8Bw +0HTUee4ptAA7jLV+nMnGoaevXPP8pgVY4TAg/0wj6m2yf2TX1gWo5vN5KpaE +Q68iYtKttgBCH/gCt7/B4WWfgbS26QL0Gr7JUCDWp7bJV+racwuQLjvhpOtI +3EcrjnkPXlkAhJF7ZBuxnnWiToyF3luArub1VreJ9T900qyM8WoB1uatRMwS ++0NIRdPtLxELkL3qk/B+Lw56ihZbYuMXQOZZV+ReVWL+cp/1O5azAJeO+3T+ +kMIBKixPp/wk8hNLuDQ/z4SonfaT5wQXYeVVqoxDGhMORY6m7hJdBMk8p89+ +sUxgct06xyO1CEO7/2Y5BjPBoPcOWqC0CFJuu/CWJ0yYinj4cu2JRegS6ZQo +NGTCCS6PnV/8FyH03mvLDYMMsKrUaTkcuggqiT5pwW0McHaec6+NWYSUGzlP +e74yIHnkTkvd+0W4Wz7SzspkAKvB0uPbz0XovJxcufU2A1Lf6LT+EloCY428 +qwEj47AkP/fsd/QSrIuwUPr1eQyEe/OVLiQvwRnnCW7DvDHYEX2nrTNrCZbV +N25PiRsDc4FBpa7yJSjd3fKC6TgGGXhz29/uJRBnbfs7vX0MTpfmKw9sXQZt +PsknfE/pkHP8TgczcxlKt2hKkMVHYSJ027m/+cvwPmAX303OUdDoam//WbYM +Qf0NhyvHRqD4rn579rdlCAl0nN9JuAMNE2+7OboM8f+C8uXsR4DaXd08pLAC +RrzXo6cKh2H6gVjj3/QV4FBVJJkeHgLtGLT217tVMHuvlSF58h8MqObq2ees +gsWOx7yWmv8g5HN8AWfJKiS8ZYgkShCOH3dL0qxfBefOHev3DPdDHOi5xdBX +IUifKyzhWT88c7CUKBDnQFYOXjb5W9gHg+K/ae6WHMjvhBfBe+V7Qa/f9OUP +Kw4kw/7FTeqaXgjNrj+20YYDcb7MS2bTe+DAwVI0/w4HMqlZYCIR0ANRNyM/ +DLhzIA9DTm3a9/0vGFae9jdM4kC49HVvZph3Q451EyI2xIHUrT3HoxjQCe9u +PB0/SedAUg0ex5+16oS4+/JRfkwOhN64NFy9txMC3F1w1hwHUnZR8aHJwG+w +idkW/4eXE2nJOnnDWv83SDU5LCbu5ESOOolu5RLoAJHfUum/VTgR1qbgfWaD +7cDfW2curMGJFMQ+XD+EtgOLIZHlpcOJuCwuhI46tUMz3+dztic4EVdybNuN +wTYIOChSrHSHEzmXef5WZ1MrPD9WefX6A04k8N2rUmZ+Kzw2sVvz1okTufuY +N9QipBVsL5VfX+vOiYxQTqqIm7XCwSfXRCZfcSJ1elde+hHnZVZewf3iPE7k ++a0V66CxZsBLLknhhZzIwV+0swuNzTBUxVu/o4wT0UA49GoKm6Gl4aJMdDUn +InNoqOiqRzPkjpB/uTZxItL+r03GNzaD7RYLpYMznEhJY1pTyKUmeIi7HFRn +cSLJ8LvvyPEmeFaVdHbrEify5dnmzaZ7miDWEvfi5CIhVhzK5lZrm4AaFdBV +LUJCynSf/PL4QoNuu/ypfHESkmVh7PT3Iw3oezsoyZIkhG51NDgsiQZcrXJ7 +PLeTkINfPFVIz2iwT6j6pf5uEhL3SJmXhdDgSO9wioYWCXmSf+OCkAYNLHLX +ftqmS0J2KUpv8NpOg7vGlkOkQyTEP+tw0n1eGrhKeS1NHSEhLV2BPeNswstj +mcL/DEnIg2XG5Zpxwqf+8wc+m5OQAwwq4Rkq5J7bfLrgDAlJWbS4aPmV8OIO +g1spF4j8F1iNUeVUaK8NjfSyJiGtbz+4bXlHBUGS6sQhBxIiIvE85N5TKmyi +WfBoOpMQG8VDnfIPqSCf6Col60JChJ5G3t13kwoHD3w7xuVJQjyNyeQH56lw +cs3E5RkfErLPTvFwhBnhyS4xpwF/EtLB5jwlbkh42OV60pcQEiJtEGOkokcF +r+OBJYVvSIhb/Ik7NXuoELzx48/UaBKi1Pfya8EuKrwd7vgX/paEZJzqcuBU +pEJW8SrbO4mEcFka+byXpUKJj/x6p3ck5JziS5GPMlT4YmEsb5NJQpzth9U2 +EP5u2u6od/oDCQFcD28hfN4zFWNukE9CjJ9TrkwSfh+vrrbfU0RCeAMvvb65 +jgoLwSPucmUk5OjI8EtEkAq8VuvebKgkIeq5Y7YP+aggumvve+5qol4cBnJk +XipsXbGsnv1CQvC/dk04F+Hrn17tg/UkxILXynkfmQq6cVmM1gYS8r2FKt7L +SYVjt2jkOipRH7nZ8n8cVDitw9pU3ELU1yDB9jARW/PJqKV1kBCdfm0J0n+f +H+gwOBLRRcyf1Zr2/56HuKXftvTtJSHsqdb4cCIOcA5zcB4gIXL2SXduEO1H +GXx6YTtCjI/NOBJLosI70b74M+MkZOTsBlFFIr+P/3iLjkyQkHwF4b4NPFRw +7PhRFzhDQvpuKyiFU6ig9fN1B5VFQn5+ksn3ECDqUX2KvmGZhOzgzbTpWEvM +n2LxpQucZEQuzWtfPFE/9/d/1iRykxHxEDdJGlFfJDFBZpCPjBQXPmTdJ+pP +enNNXXEtGbE+Zl7utoUKtf47Dt0TJiMGqhuM5+WI+es+ZlEoRkYELevDu5Wo +YPgw15YtQUZ+G714pKZBhV+WWgFe28lI49BslCRCzA+zxdj6HWRkMXZ3VMFR +Kpw6gn5Yo0xGThknFJSYUKFj11FapCYZcbk8kUW+SoUYWYF/XdpkRHY9h/YJ +Yr5e2tQ4s3U/EX8LO7RCzOd+0tmN2QZkhMvTf3vaCyqkzksoTh4nXn9VFx0T +RgXb8b+6e0+Skd12BFniqTDWansFO0NGioSyS+eLqZDzXfEB90UyEu1yhP3m +MzFeKNPT8AoZKafd2hpPpcJMhnNaix0ZaWvp0R4bo8KKqy9j5DHRfqLA6wc7 +aIDdN1xVcSPq9bJ9+zktGnjZrBV6+JyMzD4LD047SgOKSYTmsj8Z+SFdXffk +Bg2EtqW5CsWSkWPSQkKT+TRoEbv58kwCGRnrCOpeU0uDCAHVhNgUMtLfKr70 +uoMGErNFNXLZZMRYYPhbDUcTyNbX8ulUkpG3/HS3jtNNMFThL+lRTUaknQUr +N9xugsx8Y5UvtWTkgdqMRZFnE6jGtpqe/EVGvnH2T2zKbwKtu4OR1j1k5Ov3 +eNk7ws1gKMotH8jJhYwolmp3DDXDdppBsh83F7LZeitJjrMFll76bvbm40Lm +VYJ0qiVb4AMvRdxNiAuJ87cwHTJrgfWL/JR7W7mQKx8HNNqrW6C1bz3d/CAX +ckSUf3UitxWscqVyJJ5zIZTsjXfzq9th3+1LiuI+XMhp+qunFOL+JLwzPk3E +nwsJNf7uk0DpgM/JMgmCIVyISZaAeaBpB8hHbAteSeRChnMcpQ3/dcDYUwWH +fowLUWzoqv4n0gnOhpp7szi4kQH1937mb7sAP5SeHMrFjXhbql/Lq+sC+/0S +61wp3Mgf/88b9010wUU1jpET67kRoxKZyPpD3YCINUQzZLgRj9LnV3+Nd4NA +/7VlNeBGpO8qHRo26IHEJ2FfSty4ETOTNV59vH3wLWPKvHaBaP/oDzdt5j9g +fSWVk1a5keloueEM3gGQHxbejpB5EO97Iqqbtg6Ap9zu6U8CPIgl39XA+VMD +oJf8MCxPigfROvOdnFA2AHmxM82xB3gQr7z96/d4D0LUqzkLB08epMiay/+a +yDDUfeCpzPXlQaYzZO5PKw3DbIOYHCOAB9F+ekDM6fAwcV7TmrUL40Fe68Hw +CadhEHzx6M2lVB7kS/7uJN22YXj2nNV6rI4H8RAXe/0lfATsHRfOyPDzIrSA +ybIITjp8uOi3U3QtL1K3bbZfXIwOU/qiSxRhXoQkO6XzXJEOrkKqSVObeBGH +6VJtgVN0eJVzdax2Jy/yW8C/bjqZDkUj9R63j/MiCc3rDJv3j8FC42nzq8a8 +iFDnSv1H0zE4UNIve8aMF/k82JjudG0M6n2WvsF5XoQu1Xsl9cUYdG1TExW5 +wYuoOOz69ZY2BqRLkRllL3iRIqWUbzWXxuHoYVnXnCBehJ+8q6v47jgEKeUb +pwTzIkEkG9zfYxw2LHyfCoriRf4sstY3JI6DQuSKnlUGL4KeDVUp6xuHkzQb +Gk89L/LJLWZs1ZIBYaVTKYs/eBH5R9ymdbcY0JHg4TzRyItIX+xos3NhwNW7 +0ZKd7bzIvOBhO91IBjgK/LT5MMyL1G/kcdzcyIBYA82FU7wUxC6sUOmdFhOy +PpyNrBKgIAUOWOcDAyaUbnDV3Lmegrxom38oeIoJbYPVd1c2UpD4cF/LrDtM +WO9r8i9DkYJ4vbjJ6ZnIBBmmwzORXRTE8N3DueJsJqieiZB2301BIk+J/S0p +JXwg3332lB4FaTPjiZOiMsG37mbDsjEFYfikZN1aYsIb1Vc37M0pSP+2ZO4F +HsLLEfk8zWcoyJi3WKy5EA7Vtiwk4wrx/q2x2VflCI/z+BaZP6Ag2qMO8lOG +OAjcyzSvdKIgKubn+X+ewkGivQHf4UJB3uze+PG+JQ5a6SKKy54UxEL1/Tsh +wlcOR5Pi08MpiFqn7peiQMKfuV90haMpSK1+im1TKA7B4iMdT99SEIX28Oji +aBw+DKuKmKdREP53qFIr4b0KE/O8iiwKsjtl1XDdBxy+lzgZ78ilII6vOlzW +F+Aw4lfht1RCQfL8jKLsqnCYx3tk7SooyBqD2JOVnwk/nyPX0DAKsnBxLO13 +PQ7bFQyX0r5RkE9+rE4bwqcawXeihX5RkNT1O160tuGAsIL3Pm2iIMZVOi7/ +fb7hcn37fbM/FASR4O/61o/DHbXFNRU9FMRSnSxvPoTD06jN7+UHKMjknOWN +xFHCpxz6x0JGKAi1mfWmkPB1tL3N4OI4Bbns0Bz3Cschg/rC03aSgrjxct9X +ncKhWDtbhjZL5B9RTQonvF6b2Fihu0BBNNTOH0cJz7dQps+nrRD5KGrvy2Ph +8O++2Px6Mh/y3GK43nYBh6mOfeGuvHyIoLzgRP8iDhwHL6kPCfAh94bs02WX +cViX+eyX6Xo+pIPaNaK0gsNmodRb5aJ8CK5+PZdFxMpPvlLkN/Eh559tnA/4 +7/sX+ujvgqX5EOyeWmU/Ef/f9zMg///9DP8DjJRbMw== + "]]}, + Annotation[#, "Charting`Private`Tag$70645#1"]& ]}, {}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.25000050125848683`}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange-> + NCache[{{-Pi, Pi}, {0.25000050125848683`, + 0.9999999999999507}}, {{-3.141592653589793, 3.141592653589793}, { + 0.25000050125848683`, 0.9999999999999507}}], + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.7342196638748903`*^9, 3.7342197097266197`*^9}, { + 3.7342198203836184`*^9, 3.7342198247068157`*^9}, {3.734219875151*^9, + 3.734219942917346*^9}, 3.7342199787253923`*^9, 3.734220076075754*^9, { + 3.7342202295513687`*^9, 3.7342202338172417`*^9}, 3.734220294690735*^9, + 3.734220343155871*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"409a9fc0-315c-4211-95bf-d93c8e697053"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"Total", "[", + SuperscriptBox[ + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{"Identity", "[", "2", "]"}], "-", + RowBox[{ + RowBox[{"RotationMatrix", "[", "0", "]"}], ".", + RowBox[{"Inverse", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}], ".", + RowBox[{"RotationMatrix", "[", "\[Theta]", "]"}]}], "]"}]}]}], + "]"}], "2"], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", + RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.734219630880183*^9, 3.7342197177293463`*^9}, { + 3.7342197779813137`*^9, 3.734219977972704*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"b6ff0a95-3e62-4896-8924-31ba8f285cae"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJw12Xk0Vd/bAHDk3ntE5iEqonMNGTLFPch5kuobaZBKk6EiaaJBJVLKLBHJ +ECUyhzKW4ZwkImVIyJRUSGUWGX+7td73/nPXZ911z372s/d59t5ryx8+Y+nA +w8XF5cfNxfXv22yL4IYZeT6azfXvg4NhvscwJstHz39zH+VGVpP/GScpw0fj +eHU1C3nFrX3muCQf/XTnDx8RZMG/VVNaouh3oU+KcsgLR/WSSUE+2pH/bqYm +8nB90i6LxXx0DY+01CbkbiMx7gNMPlqYsnW0RW5IvZ7lxMNH20kdifFALhcf +PuA2j9Hbh5flxiE/u2bDd3Mao38aeueUIyf+qi0I+4PRyX+D7/xEjrA2PPpg +FKNP6WnvW8qNg09FmsiTQYxOFDjGuwXZTXMp9WIAoxWS5CI8ka2xCenmHoyu +/ttnN4q85fyRqq9dGC1r3h6nzYODQXfD+ZE2jJa8KU25IS8vyqoT+IDRgk46 +WYsX4bAEX+EpU4fRN0R/XtmPPH87aLXyW4wOTXysnoXcfczJZ8MrjO5a0mBk +z4v696FZeyeF4tslGUMjl5Mbu22KMXqtNat9FQOHJCkFQ/dcjL4mGMT6g3ys +qn04JxGjcQ6BVbNQvDpm8WUPMFpdYdG1zRgO/z0oMq+NxWhrobi2auTVF+8m +94VjdO+yl/ptfDgMKm4/KHsTo4+rSIaoCODw+U4pn9o1jJ7882xpFXL9vGoh +4YHa92H5OC1B+W3GRHefx2iD9wRPoSDKl295VdBRjG6MMgz0FkHxjGpeiLbD +6Fu3JWRJURSPzQOFlIMYveG25Z0FZAM9D89yK4zeakssCxbHYe77Wp2/phj9 +/Lht2gcpHG5uTIt3ZGN0T4lswHI5HOgg9x1y8hhtZXLDTG0lDrMN5jytyzG6 +3WpzJMjjcM5m0GGLOEYfKcx567YKh8MXddTVFqH+doo8llbGgUwrLR7pZtF3 +0qQqOdo4uA+FnErvYNEPV4YzwnRwKFhrJ3eklUUPSPRU/9bFQaOc50ZTHYsu +Unb+nKePxrN9s1lhGYsW3NevfXkdDtMCja0e91m0q2vwirYtOOjtSgxcG8Wi +nymlX3I3x+Fs9HmjwXAWve9sxU45Cxx+sKUe2gax6LWz/B5uO3BoNT54zMSd +RX+8diJx/17UvkvvBMsatbfz4Lu/Dji4Nk2Lhouh54s41tz2xSHScvv+CCEW +nbhTNjfaH4eS+sSEu/wsuiNB/2JKIA7Md1s1oxaxaC3s2u33ITjcfx1vETfG +pDfpNY2Y3cPhTYGJf8oHJl2aXcmYTcVBNjpwrjicSTemBLgb1uFgKvXZtPQ2 +k7Y3eV9GNeBw/K5OcFkQk/aX1qvd3IRDXliHzMsbTPrt8n7yyCc0/wM1OJXn +mDQv4/elqq84nL/SeLZ+F5O28F75wPQvDjWHZPq/iTHpsyWaUwJKbNj+wIic +FmLShZiZ0LQKG5q6bSKFBJi05cCLvAE1NnQeSTQ14GXS+//WpzRrs2H4uFrC +7XEGzeXaKfPJmA1Sbsb7DT4yaN4lynf89rLhaMjh2tuRDPpoUZavTxAb5srS +cwykGfRISHdj6xwbatvWCMyIM2jD/EcfJ7gV4f6fvGPFwgw6X+JJjSRTEYw0 +KFkjjEE3zA77HhVUBPe4D8HrJnnp7ktWSmvkFOHPlVkn+MhL1974Muu1XhGG +OdvkN4Xx0u+slE+yAhTh67ORsJ18vPRtmam9DquUQC+B2XSLfxGtNL+/6OVx +ZTBSaNQImuKmd3rjf+PnVWD5FUHP4AEu+rti1yDPc1Wov69l7di5QK064Cs/ +66YOdU65fWuL56inGz87/HBbA8kqDZwdpTNUUOiv4fe5mqAZU+9ytvovlSXh +5GyWqQXymuvaJDMmqc+PGkzXFGvDwIuNDObTCWrlYK+ZVL4OLDtRbH8xeIw6 +2PdhdneJLszXiD4edh2hWvfFTd97thbOkQJWxycHqdaPRbP3A/SgSOcdPZE/ +QMkKHTnAY6sP2SKVOVKlvdRaIrvTWpgDljYiZt0ZvRQzI/6ZohgH/qQf/Joa +00tN3T32elSCA0amYxIGl3qpjSZbEnyWceCN28orB3V6qWQPelmkIge62903 +JqR9pw4bNzrZG3FAJHlN2+rIbxTFOvoj1pED5wyiFxmf6aHmtAJc3PI5EBGx +rGOPTQ9l4M9fW17IgbzBuLwzFj3Uos7CzUteoPYfPXJIUO2hLnlwxd0v48Al +/swq3v4vlPCb4CdJVRy42lEW9NbuC2UVxG7b94kD/le/ie2z7KZyhpukrWY4 +kNrq+Mt1fTcVaV69+cgcB6q1f1QEanZTXPbu3i4LHFjc9/tCiWA31SJVvcxn +EQEyDwazycjPVGCVzvtIfgLY68U57/y6qEHfnrwDywgw8LH9r9+5g1o/X1B8 +jCCgesrzsY15B6WXtO7IUkMCrE/e5/mo2kEZ/DXdUmVEwIVdn0pe/mqn7CJ0 +6uSAgBz5XVqxp9upb/lEYfEmApTKNslsO9tG+WXHxMfvIkB8Uv1X7uVW6rZs +k6TgSQISnbduWb2/lVJwxGp9ThGg3eWc/NCglXKNvpo7c5qAHa9T7G7NtFBL +mZVSPa4EBIXLf3T0bKEGDwyqRl8kgEdTokz6ejOVd+n62hxvAoacZm97+TdR +yZOvr3jdI6ApS0t4m2MT9dNx9YWWKAJejDuGLjdtojp2H9+gHkPAzWsNoc8X +PlDvBUYONt5H+YlKDhtz+0Cd4E+8zPOIANOqHeHHHBop90vnWdMZBKgs8RXT +29BIbfNcqbDmCQGCu4rDeeUbqRderfyHswj41MWOSOhooERyBM1f5hBw+s90 +RPuuBspUR/GMQz4BUezHkdtN6ikn1yRe0zICPE+0ScqurKeOPrLp300R8Pqw +nManmTqKcP5z14EmYL/7uIbYuToqSz3A4mo5AT5p8Zp+9u8po5E+9t1KAtpY +YzpnjGupFwHchtbvCbhREWtATlVR4pq5YtodBPS/J8IdiqooWfN0syHkbZ9a +fgZdqqI6R6jg9E7U30GxuNapSmrtXLDWss9o/KSCF1z/vqakhPKmvn0hoNPZ +oyJp+hV1dWxhj0wfASYXZFa8ffGKGj8grVqEnOpVdGHE/RWla/mIZdVPwPmI +cUXjmXLq5AanTz4/CFhcdjKgZeYldZX9uL3hJ8qHwov74tMUpSnma8g/TACh +/8fC3p2iTN55+AQg827VXngyXUZhh59+ZIwQEHsh3X7zTCm1qsvafwr5zZsY +RffZYqpx9pBO5RgB4Z3NLZUexVTf5GyG7jgBNqOiAWJzL6ilK4ZVEpAnlgX9 +zJx7Tn08dmzt+QkCFM5cyfk8X0jNrXrtxzNJwO8bhfZqXoVUm4K6sj1yUdSY +6OWFAmpATu5dKfL28hMXRLkKqN6DG3HXKQI8JA4abOTOozI9dRn0XwI2r476 +GXY9l6q5610lOE2AKNl0v4s7l7ogknPrAHKa09aFizzPqIjNh9hDyM3FRhXp +i3Koul7s2vwMAcsvH+4aFcim3BdUlI1mCQh2N9cNFc2iTIaO9V1EPuG5ortm +RSZ1MoE74wdy21WmntOqDOqVhkm23BwBZteGghgq6ZSmyvGaXcirb7zUB91U +6j03sbEAOeZm+q1OIoV6blmT9A15sW/4V3cymdL9I7pMZJ6AAX+H2/lmSZSd +/EPzo8j7A7d9t9yRSA28qmcEIdcE6RsO735EFQ2GNmcjp4Xw9a22f0htkokr +HkPWXvn9cui7eMqsq7VOdAH1f1Uh+23rfUr06Y3pNcij7IAGxrcYaiQq0tAc +uUH5gCcMRVE7RPjDjyLnqKqrXJmOpDIXt3N5IIdqLDTlM+5S8QNcPmHILloN +14aFw6muoItyj5F36CaqqS4Po/SMDeoLkG1PD+S83RZCRVaa3qtElj0fgq13 +CKQEbcPPNyF3Xda2K7jiS1UUKDh1I8d5NReq3vGmGKNDrgPIRYsnZE12elJG +6VNho8j6kuveq129QE3+NngzhXxiw+IZjT0nqF7IF59Drs/TzcXs9lLNsY4X +F5Cbzmcaaz8lybKT24b/Oe7ixh877h8hn0We9Jr/F2/O/tfrElzJX64v8Zl/ +/U8Sldx1/jJZ+daiewI5bauDTl7iNbK4V/TZIPLAppftxrdukifdRWO+I69e +v+JmtZs/GZW7LartXzyGl9Ws7ILJlbo1me+Qm2OcnYfwUBIT828pQ/5zL6os +T/oOebojaGkWsuTdSlF3wQgyKuzTmdh//bsz7kguiiTbUy90+iJb31Yo5p26 +Rz5f4mDvgnwpeIdQza9osnLlk5m9//Ljm1lo1RxHblphe04eufVGG7/M2wek +o0jzjkXIHsCbM/T5IclbTZl+RfMhbp02b37TI5L74WKXOGQNoy1ZUnWJZOpZ +j5SLyGUGdtbu1Umk3Rnvie3IXfohmWRZMqmy2/XjNJqfp/Ue73lUlEJ+iz59 +7B3yvG4JFyM3lZynlIXjkWW1B6xqUtLJxtPcyQSyrdqmOauwLLJgVfy3fej9 +MIpKDvnzMJt0qfYelkIW8F4kvNU6h8xiiZZ+QO/bj99HEn4fe0pyijyjTJEf +vcYrNP1ySat1b/fzo/czdKYpmFsoj1S8tf50IXq/r2r57G6MzCMFipdssEc+ +EPe991xyPrl0D59WFqoH4heS+QpfF5IvnA/Kq6N6wZOxp9HPoog8unKrSdUf +Aoa7mbHWH4tIo+MObFvkd1uPqU1/e05OBgdq+6N65Isrb1/HW0J675s5QaF6 +NvvDqsZenibv7HC+VD5EwBjvEw0zB5o0yhB+y0EekGOEa6fR5F4x7p7MQTQe +u/MPLNJ6SRpp2RwK+U1A/kuJ30nolJXU4hWi96/eRjcL9dtWkCZp8lzLewlw +yNM4X59YQT78sy7j9HcCDtb5thb1VZDCzxxWUN8IMGfoJwSceU12FcXt3feV +AGXXe9qqXpXkjSFjlXPdBHz5z3r36fg3pEht9RmjNgKMv3vYv+t8Qx59Fpx6 ++ROqN9cTTqmtqCZfxL4az2slwPLFgM9AbDVp93bbG3YLAeWqngWO0TVkq4Wx +/fAHlH/BR1K2EbXk7uzVfirvUD0ZmPiltLGePHwcl1dH66MdBzvXcrSeTCd+ +a6iXEhDiK/PX92Y96VYuvVe1BOVDgWT0vqon29bHTsq/QM874L8iyaSBdGzd +dG0Krbdi72S2rYRG0vbX7A8ztF6PZ5PZSw2byB3yAgw/tP7XqhqKuhxqIj89 ++WWhGY32Iyl6F6q8mkjLdaWOLWj/YPlA3dCtool8ZlzCJ3eXgKchy6o+WHwk +1afWroy4jfJ7arIrxK6Z/NL+3w+JmwT0rc4WZPi2kiJ+67rcT6D5npzuejC1 +lZy9lzLSdZyASIXkptyaVjLQNqEHnAhAdTTmsNAn0veWvO38UQKS+IIU6ahP +pOkKnzpbG9T/fkfjKxltpGqx3d+SHaj+P5Y9PVLfQTLvRf3+qkNAATPTMnW0 +g7QJcHVeoo3Ww2OEvq14J/kmcHm/riYBW1WsuN7t7SR3VE30eaqheDID7qR2 +dZLxbmuwKZyAhNzxAttfXeQDNXu4JUFAnt33hd4b3aS/cOA+coIDV04X/7f7 +QQ85zCO+oSeLAybkxFHB7B5SNfn3vqJMtL8UXnO9qqyHtKtb3xSczoGop4+e +E109ZGvw2QnNZA4UjAesll3xlfSzeT7lEMeBUXdrgb6Yr2SEhbH7jSAOOPtN +1F2K/EYecrLihKL9s/XDNXvv3+oly2ty9wgv5YCjXzXP5/oBMshZVoB3vz68 +uqmqGvx2kCxJrKAf3tEDG5Hv5eL7RkinBg2V6NK1MGZQZfzFbYzcaT02fbFS +F7LPLPl72GWCbDca+BXbpAO8Xr3XD0dMkrV9+b4eldpwPXrVFqmIv2R8gu6P +sUotMOf1UqkImCGbsgKVTd9pQtaWU62DaXPkUZezaZ5+a4ATQ71+/3iBTAoV +df+Spg5ZhxtBspcLFLn0jVJoVXBcaaW6fpwbOK3mUpaM1fDsKyt/0zAPcKVm +CSbdVgYzcYZiEDcveMg2bM1QU4JVDRsf+TF4IaLLNq1fSQlmb/nK3uTjhYrt +lnoq6Dz2hIVJeYrwgnj00t5caSUQnlmMnZHnBd/o6dIhphJ8/CI8YLmeF0wa +xi15ehTBLnt5lsx1XtAQ8GfGxiiCm5muXjoXAwQOawS1SCjC0IaUR3d4GcAf +Ge89J6IITutkhK5gDHCSn6lVROfHA5pc/ebCDAg8pWBzA50vQbI2+rccA+wT +44KOTrKBv+fInCbJgPDGTR1Vn9jw8HJ4RaEnAxh+JmeXJrBB+hxT6+F1BkwX +il5Nj2PDnZOX4/x9GICtCpsiY9jgY2vrtu8WA5KC24wuhLPBeaOq8sx9Bhgu +GEvz+bJBV+RVkHEJA7am3P3QfIIN1amjlq+nGXD1vUm+kAEbpqp4inkWGCAr +NMGu12ODYp/oKljEhLOFraUROmzwZuuMveBnAv6syXG1OhuMHp0Lz1nOBF3e +lwV+K9mQEzv+IdaYCeWhD8X4MTZEhfyxOuvNBI1GqycGbThUPmGWZvsywbPv +Rfb1FhwmaiXZvwOZUHBVary2CQdLfv2JY+FMmNtWutGlDgcB/4t3DyWh9lSL +5AcqcLh2ferjf5VMaNpmZ5eRg4PT+ek9cotZAHo9rU5BODw54KciLsgCUkns +pU0ADqMm4rOYKAuigs+4WvvhcEVEI2FUmgUSzUlqe2/gEJJl//O1Cgu0LybJ +eF/BIb//jdfJLSx4HMwgQ07iMF2329LeggX6TpZfaWccjAt78D07WaCetHnv +pBMOb3xmq8l9LLD/+SP7jAMOHQqa4mLHWbDGUFgzxAYHnkP3Up/7s6Bnfd8b +7504bDbFr2QFs+Bu2KqY0e04BKs+tUgMZYFRROR6x204SEzXjAZHoXi9EsX3 +meOgfG/eyC6VBRbjhR9PbsRhW4NDA/MNCzLLnohZGOAQXjSaOPOWBRorC89N +c3BofeDlNlzHgk277mZn6ONgfzp6WVsLC34US5ZIr8XhPP87hyd9LBiP6NXE +NXGI3ag7vYuFwXULp9pRRRzSn+y9V8aPwWJYLFfGxqFI4oquijAGApu9NoXg +ODR/f3l6fikGat67JNYp4CDsu/1r6moM2p87lTStwEFu8Ow1sTUYcGW4UpXL +cdDYE7niqg4G2cZ8MaXLcDBX7Ny7ywgDGSHFlufSOPhWOtfOWaD/D92+/EsC +h7saIcedLDEY/ha2noGcFPmU+WEPBv7RXl8VxHF46TgFqbYYNBVrFpwUxWGW +6Ztv6YrBcuel8QZCOPCfSbMsvYCBO/HUyF0QB5mW2iEld9TeJt3CsiU46KeI +rZ7zxmBibQfsEcDh7OaE+JQI9DzLyEyKD4fr2RWGotEYcLae1lREDpXqb/WI +Q/kxqA8Lw9D86tMQs0zGIDTl+283Fg4l2y1zStIxEDIb6h9m4lBTeMFCKRuD +t8prys8g9/uV+M0WYtAf+lvIg4HD5NBn/FgJBpG2BTf5kJnWi8obaAx4Jra0 +xvLisErZbDa5GoPVGbuX1y3CQTv0VLTIewwOagkscUGGqVA9j0YMVm5Z3CmB +bPOmxWVnOwayiVuWufDgcEpzZknJZwxeHy8NwJE9omQzFL9hUFXT2dLJjUMg +l8l/Yf0YvN9JM+4jRzs5fJ/5hYGW4GUxW+TUen9vxxEMsHAZbiXkAk6mXMME +Gv/J/PdjXDi8flhXYjiNweOm/R6vkZuwsX3J8xh0bJFafB/5q4vkpPAiPrCb +mrx4EXm0lYi4wuIDFwZWuReZa/0hrV5+PvglvXPcCFko7dr7HcJ8sPlwO48S +sqxI0olicT64EfJkROLf/cDlKkxRmg/0G2tpvn/3B18GHoeu4AO/b0YuPMj/ +d78A/3+/8D94cxK9 + "]]}, + Annotation[#, "Charting`Private`Tag$67199#1"]& ]}, {}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 10.000000000000066`}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange-> + NCache[{{-Pi, Pi}, {10.000000000000066`, + 25.999999064585374`}}, {{-3.141592653589793, 3.141592653589793}, { + 10.000000000000066`, 25.999999064585374`}}], + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.7342196638748903`*^9, 3.7342197097266197`*^9}, { + 3.7342198203836184`*^9, 3.7342198247068157`*^9}, {3.734219875151*^9, + 3.734219942917346*^9}, 3.7342199787253923`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"bef3a898-f5dc-46b2-a070-f2c3997001ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", + RowBox[{"Array", "[", + RowBox[{"a", ",", + RowBox[{"{", + RowBox[{"3", ",", "3"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.734306923031836*^9, 3.734306938102682*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"b7d9da66-d9fa-4096-85ab-b614aee68d27"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"a", "[", + RowBox[{"1", ",", "1"}], "]"}], ",", + RowBox[{"a", "[", + RowBox[{"1", ",", "2"}], "]"}], ",", + RowBox[{"a", "[", + RowBox[{"1", ",", "3"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"a", "[", + RowBox[{"2", ",", "1"}], "]"}], ",", + RowBox[{"a", "[", + RowBox[{"2", ",", "2"}], "]"}], ",", + RowBox[{"a", "[", + RowBox[{"2", ",", "3"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"a", "[", + RowBox[{"3", ",", "1"}], "]"}], ",", + RowBox[{"a", "[", + RowBox[{"3", ",", "2"}], "]"}], ",", + RowBox[{"a", "[", + RowBox[{"3", ",", "3"}], "]"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.734306926860515*^9, 3.734306938390451*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"d233d87d-f829-465f-906e-5727acfbfe18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{"Sqrt", "[", "x", "]"}], + RowBox[{"Conjugate", "[", + RowBox[{"Sqrt", "[", "x", "]"}], "]"}]}], "]"}]], "Input", + CellChangeTimes->{{3.7343075777303963`*^9, 3.734307594996893*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"d6ad40dc-f675-4087-b332-4080336ac54d"], + +Cell[BoxData[ + RowBox[{"Abs", "[", "x", "]"}]], "Output", + CellChangeTimes->{{3.734307580411415*^9, 3.734307595272644*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"42627eb9-00a6-46af-8897-51614e38f323"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"Tr", "[", + RowBox[{ + RowBox[{"ConjugateTranspose", "[", "#", "]"}], ".", "#"}], "]"}], + ")"}], "&"}], "@", + SuperscriptBox["A", + RowBox[{"1", "-", + RowBox[{"\[Epsilon]", "/", "2"}]}]]}], ",", + RowBox[{"Assumptions", "\[Rule]", + RowBox[{"{", + RowBox[{"\[Epsilon]", "\[Element]", "Reals"}], "}"}]}]}], "]"}]], "Input",\ + + CellChangeTimes->{{3.7343069400585814`*^9, 3.734306958555189*^9}, { + 3.734306997496871*^9, 3.734307024205228*^9}, {3.7343071066369457`*^9, + 3.7343071140133038`*^9}, {3.734307454277466*^9, 3.734307531654573*^9}, { + 3.7343076023009253`*^9, 3.734307640374107*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"d394aa4c-8613-4d1a-83a7-6a9e460d602d"], + +Cell[BoxData[ + RowBox[{ + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"1", ",", "1"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"1", ",", "2"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"1", ",", "3"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"2", ",", "1"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"2", ",", "2"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"2", ",", "3"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"3", ",", "1"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"3", ",", "2"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"a", "[", + RowBox[{"3", ",", "3"}], "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]]}]], "Output", + CellChangeTimes->{{3.734306944047996*^9, 3.734306958826148*^9}, { + 3.734307006195896*^9, 3.734307024689034*^9}, {3.734307107132586*^9, + 3.7343071142360163`*^9}, 3.7343074559591084`*^9, {3.73430751409499*^9, + 3.734307531965774*^9}, {3.7343076063412523`*^9, 3.7343076476230516`*^9}}, + CellLabel-> + "Out[125]=",ExpressionUUID->"c93e04f0-31dc-4f42-b7ce-ff758415db0e"] +}, Open ]], + +Cell[BoxData["Full"], "Input", + CellChangeTimes->{{3.734307609610599*^9, + 3.734307610100314*^9}},ExpressionUUID->"86ecb7f0-8a5a-49a9-8632-\ +b35287cb05ce"], + +Cell[BoxData["2"], "Input", + CellChangeTimes->{ + 3.734307563632634*^9},ExpressionUUID->"142781de-b484-41d6-854e-\ +a5066056ccec"], + +Cell[BoxData[ + RowBox[{"MatrixExp", "[", "A", "]"}]], "Input", + CellChangeTimes->{{3.73430740282703*^9, 3.734307408737081*^9}}, + CellLabel-> + "In[114]:=",ExpressionUUID->"d8a4f652-0088-44dd-bea5-3b91a54f005b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"M", "=", + RowBox[{"RandomVariate", "[", + RowBox[{"CircularRealMatrixDistribution", "[", "12", "]"}], "]"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.734307856369668*^9, 3.7343078741980963`*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"bef00eeb-7dc0-4119-b2dc-9e8e77c1c0f9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Chop", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"ConjugateTranspose", "[", "#", "]"}], ".", "#"}], "&"}], "@", + RowBox[{"(", + SuperscriptBox["M", + RowBox[{"1", "-", "0.01"}]], ")"}]}], "]"}], "//", + "MatrixForm"}]], "Input", + CellChangeTimes->{{3.734307879331596*^9, 3.7343080043205223`*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"29ab42c0-ee58-486e-b7e3-16c049180c04"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1.0178942207489374`", + RowBox[{ + RowBox[{"-", "0.0014605245884353624`"}], "-", + RowBox[{"0.005489125542235465`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0011485660281160548`"}], "-", + RowBox[{"0.009530023739355617`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0004490956528353622`"}], "-", + RowBox[{"0.004471844694188308`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0001052788975050567`"}], "-", + RowBox[{"0.0012228811036105363`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.005402958545063098`", "\[VeryThinSpace]", "+", + RowBox[{"0.008639872919234005`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0011560111705664483`"}], "+", + RowBox[{"0.0007154475992549826`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0034939243958303536`"}], "+", + RowBox[{"0.002780251591637914`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0010533825564266602`", "\[VeryThinSpace]", "+", + RowBox[{"0.002296476473886544`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0019050731699246995`"}], "-", + RowBox[{"0.0015428590523832177`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0019562829193655994`", "\[VeryThinSpace]", "+", + RowBox[{"0.008034552202559466`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.002083469616588585`", "\[VeryThinSpace]", "-", + RowBox[{"0.0008335241782473957`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{ + RowBox[{"-", "0.0014605245884353624`"}], "+", + RowBox[{"0.005489125542235465`", " ", "\[ImaginaryI]"}]}], + "1.016202141664014`", + RowBox[{"0.0012919551167620003`", "\[VeryThinSpace]", "+", + RowBox[{"0.0014514542006177772`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0017731518409710573`", "\[VeryThinSpace]", "+", + RowBox[{"0.008132983237484579`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0019292454293095285`", "\[VeryThinSpace]", "+", + RowBox[{"0.008233160328117809`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.00045937619166044885`", "\[VeryThinSpace]", "+", + RowBox[{"0.0014588157070691042`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0023424252770576637`", "\[VeryThinSpace]", "+", + RowBox[{"0.003916203040165039`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.004414380040080806`", "\[VeryThinSpace]", "+", + RowBox[{"0.008722092012849847`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.002041066772335287`"}], "+", + RowBox[{"0.0009924407502729924`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0029962369417896664`", "\[VeryThinSpace]", "+", + RowBox[{"0.007337420167066016`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0023174393268258937`", "\[VeryThinSpace]", "+", + RowBox[{"0.008348958588683881`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0017725540793092145`"}], "+", + RowBox[{"0.0006331357420744613`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{ + RowBox[{"-", "0.0011485660281160548`"}], "+", + RowBox[{"0.009530023739355617`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0012919551167620003`", "\[VeryThinSpace]", "-", + RowBox[{"0.0014514542006177772`", " ", "\[ImaginaryI]"}]}], + "1.0189458991197806`", + RowBox[{"0.0035847159834015985`", "\[VeryThinSpace]", "+", + RowBox[{"0.010374465447038394`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.00042594032959505923`"}], "+", + RowBox[{"0.005233091227458822`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.00015348348860136363`", "\[VeryThinSpace]", "+", + RowBox[{"0.012205681637731718`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0008816846156947389`", "\[VeryThinSpace]", "+", + RowBox[{"0.005502910926425598`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.001421919448185885`", "\[VeryThinSpace]", "+", + RowBox[{"0.008543101818619872`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.001292594707601319`"}], "-", + RowBox[{"0.000022067633514431632`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0026423288091259878`", "\[VeryThinSpace]", "+", + RowBox[{"0.005822117935560199`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.00014339930813655338`", "\[VeryThinSpace]", "+", + RowBox[{"0.0062832416496589535`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.00130369697165017`"}], "-", + RowBox[{"0.0002972534522092639`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{ + RowBox[{"-", "0.0004490956528353622`"}], "+", + RowBox[{"0.004471844694188308`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0017731518409710573`", "\[VeryThinSpace]", "-", + RowBox[{"0.008132983237484579`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0035847159834015985`", "\[VeryThinSpace]", "-", + RowBox[{"0.010374465447038394`", " ", "\[ImaginaryI]"}]}], + "1.0168941601927706`", + RowBox[{ + RowBox[{"-", "0.0006427370102967261`"}], "-", + RowBox[{"0.003952826542629469`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0010618593782213553`", "\[VeryThinSpace]", "-", + RowBox[{"0.00016506325087215596`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0033328674797913`", "\[VeryThinSpace]", "-", + RowBox[{"0.006940074841363796`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.000159867964575032`", "\[VeryThinSpace]", "+", + RowBox[{"0.0001951493640441938`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.002658707267083782`"}], "-", + RowBox[{"0.0050344231359760626`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0013458999334763425`"}], "-", + RowBox[{"0.0012747922742852354`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.00023109289634338712`"}], "-", + RowBox[{"0.001854395251012734`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0011472440369253087`"}], "-", + RowBox[{"0.009396632625016632`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{ + RowBox[{"-", "0.0001052788975050567`"}], "+", + RowBox[{"0.0012228811036105363`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0019292454293095285`", "\[VeryThinSpace]", "-", + RowBox[{"0.008233160328117809`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.00042594032959505923`"}], "-", + RowBox[{"0.005233091227458822`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0006427370102967261`"}], "+", + RowBox[{"0.003952826542629469`", " ", "\[ImaginaryI]"}]}], + "1.021492777262698`", + RowBox[{"0.001088019677381341`", "\[VeryThinSpace]", "-", + RowBox[{"0.0009941886175069974`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0022250402598862247`", "\[VeryThinSpace]", "-", + RowBox[{"0.005820429942008254`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0004008709445118275`"}], "-", + RowBox[{"0.003472555403263821`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0025066169498924457`"}], "-", + RowBox[{"0.0012791681053216965`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.001047942347463679`", "\[VeryThinSpace]", "+", + RowBox[{"0.006071173964217423`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.00045866599513494713`", "\[VeryThinSpace]", "+", + RowBox[{"0.00546819776204014`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0006363697542311475`"}], "-", + RowBox[{"0.00043078640037083187`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{"0.005402958545063098`", "\[VeryThinSpace]", "-", + RowBox[{"0.008639872919234005`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.00045937619166044885`", "\[VeryThinSpace]", "-", + RowBox[{"0.0014588157070691042`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.00015348348860136363`", "\[VeryThinSpace]", "-", + RowBox[{"0.012205681637731718`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0010618593782213553`", "\[VeryThinSpace]", "+", + RowBox[{"0.00016506325087215596`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.001088019677381341`", "\[VeryThinSpace]", "+", + RowBox[{"0.0009941886175069974`", " ", "\[ImaginaryI]"}]}], + "1.0204766664131664`", + RowBox[{ + RowBox[{"-", "0.0017908611726500448`"}], "-", + RowBox[{"0.006818558120899694`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0033559135325380157`"}], "-", + RowBox[{"0.00235761167833513`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.000036852517857899336`"}], "-", + RowBox[{"0.004223646218113547`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.000312091391420119`"}], "-", + RowBox[{"0.0001642809318045536`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.003280717760438121`", "\[VeryThinSpace]", "+", + RowBox[{"0.008109816001388036`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0030338947048902942`", "\[VeryThinSpace]", "-", + RowBox[{"0.009250912691910548`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{ + RowBox[{"-", "0.0011560111705664483`"}], "-", + RowBox[{"0.0007154475992549826`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0023424252770576637`", "\[VeryThinSpace]", "-", + RowBox[{"0.003916203040165039`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0008816846156947389`", "\[VeryThinSpace]", "-", + RowBox[{"0.005502910926425598`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0033328674797913`", "\[VeryThinSpace]", "+", + RowBox[{"0.006940074841363796`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0022250402598862247`", "\[VeryThinSpace]", "+", + RowBox[{"0.005820429942008254`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0017908611726500448`"}], "+", + RowBox[{"0.006818558120899694`", " ", "\[ImaginaryI]"}]}], + "1.0190526728829032`", + RowBox[{"0.0025873260352948426`", "\[VeryThinSpace]", "+", + RowBox[{"0.007601636851073229`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0000443120887992296`"}], "+", + RowBox[{"0.002806171180005249`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.000608793431125125`"}], "+", + RowBox[{"0.0006642263823452294`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0005639156152209288`", "\[VeryThinSpace]", "+", + RowBox[{"0.008940864612190102`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0009864107646054103`"}], "-", + RowBox[{"0.0006676665863204577`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{ + RowBox[{"-", "0.0034939243958303536`"}], "-", + RowBox[{"0.002780251591637914`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.004414380040080806`", "\[VeryThinSpace]", "-", + RowBox[{"0.008722092012849847`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.001421919448185885`", "\[VeryThinSpace]", "-", + RowBox[{"0.008543101818619872`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.000159867964575032`", "\[VeryThinSpace]", "-", + RowBox[{"0.0001951493640441938`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0004008709445118275`"}], "+", + RowBox[{"0.003472555403263821`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0033559135325380157`"}], "+", + RowBox[{"0.00235761167833513`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0025873260352948426`", "\[VeryThinSpace]", "-", + RowBox[{"0.007601636851073229`", " ", "\[ImaginaryI]"}]}], + "1.0166648773241265`", + RowBox[{ + RowBox[{"-", "0.0007906639615174044`"}], "-", + RowBox[{"0.0017032630974100856`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0011460423825025295`", "\[VeryThinSpace]", "+", + RowBox[{"0.003546175847430059`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0029165500956132937`"}], "+", + RowBox[{"0.0024238383784450234`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0004123254016693764`"}], "-", + RowBox[{"0.004384500660220932`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{"0.0010533825564266602`", "\[VeryThinSpace]", "-", + RowBox[{"0.002296476473886544`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.002041066772335287`"}], "-", + RowBox[{"0.0009924407502729924`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.001292594707601319`"}], "+", + RowBox[{"0.000022067633514431632`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.002658707267083782`"}], "+", + RowBox[{"0.0050344231359760626`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0025066169498924457`"}], "+", + RowBox[{"0.0012791681053216965`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.000036852517857899336`"}], "+", + RowBox[{"0.004223646218113547`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0000443120887992296`"}], "-", + RowBox[{"0.002806171180005249`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0007906639615174044`"}], "+", + RowBox[{"0.0017032630974100856`", " ", "\[ImaginaryI]"}]}], + "1.019019272503022`", + RowBox[{"0.0036915559426283773`", "\[VeryThinSpace]", "+", + RowBox[{"0.0068288467860780746`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0009862096893671138`"}], "+", + RowBox[{"0.004023430014400343`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.002548900238739618`"}], "-", + RowBox[{"0.007900826615883415`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{ + RowBox[{"-", "0.0019050731699246995`"}], "+", + RowBox[{"0.0015428590523832177`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0029962369417896664`", "\[VeryThinSpace]", "-", + RowBox[{"0.007337420167066016`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0026423288091259878`", "\[VeryThinSpace]", "-", + RowBox[{"0.005822117935560199`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0013458999334763425`"}], "+", + RowBox[{"0.0012747922742852354`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.001047942347463679`", "\[VeryThinSpace]", "-", + RowBox[{"0.006071173964217423`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.000312091391420119`"}], "+", + RowBox[{"0.0001642809318045536`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.000608793431125125`"}], "-", + RowBox[{"0.0006642263823452294`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0011460423825025295`", "\[VeryThinSpace]", "-", + RowBox[{"0.003546175847430059`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0036915559426283773`", "\[VeryThinSpace]", "-", + RowBox[{"0.0068288467860780746`", " ", "\[ImaginaryI]"}]}], + "1.0156236805009151`", + RowBox[{ + RowBox[{"-", "1.9634689705765734`*^-6"}], "+", + RowBox[{"0.0034493161512668485`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0004622348840551613`", "\[VeryThinSpace]", "-", + RowBox[{"0.009859332527700104`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{"0.0019562829193655994`", "\[VeryThinSpace]", "-", + RowBox[{"0.008034552202559466`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0023174393268258937`", "\[VeryThinSpace]", "-", + RowBox[{"0.008348958588683881`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.00014339930813655338`", "\[VeryThinSpace]", "-", + RowBox[{"0.0062832416496589535`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.00023109289634338712`"}], "+", + RowBox[{"0.001854395251012734`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.00045866599513494713`", "\[VeryThinSpace]", "-", + RowBox[{"0.00546819776204014`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.003280717760438121`", "\[VeryThinSpace]", "-", + RowBox[{"0.008109816001388036`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0005639156152209288`", "\[VeryThinSpace]", "-", + RowBox[{"0.008940864612190102`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0029165500956132937`"}], "-", + RowBox[{"0.0024238383784450234`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0009862096893671138`"}], "-", + RowBox[{"0.004023430014400343`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "1.9634689705765734`*^-6"}], "-", + RowBox[{"0.0034493161512668485`", " ", "\[ImaginaryI]"}]}], + "1.017101512881194`", + RowBox[{"0.0020303497834208793`", "\[VeryThinSpace]", "-", + RowBox[{"0.007612853854616712`", " ", "\[ImaginaryI]"}]}]}, + { + RowBox[{"0.002083469616588585`", "\[VeryThinSpace]", "+", + RowBox[{"0.0008335241782473957`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0017725540793092145`"}], "-", + RowBox[{"0.0006331357420744613`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.00130369697165017`"}], "+", + RowBox[{"0.0002972534522092639`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0011472440369253087`"}], "+", + RowBox[{"0.009396632625016632`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0006363697542311475`"}], "+", + RowBox[{"0.00043078640037083187`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0030338947048902942`", "\[VeryThinSpace]", "+", + RowBox[{"0.009250912691910548`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0009864107646054103`"}], "+", + RowBox[{"0.0006676665863204577`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.0004123254016693764`"}], "+", + RowBox[{"0.004384500660220932`", " ", "\[ImaginaryI]"}]}], + RowBox[{ + RowBox[{"-", "0.002548900238739618`"}], "+", + RowBox[{"0.007900826615883415`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0004622348840551613`", "\[VeryThinSpace]", "+", + RowBox[{"0.009859332527700104`", " ", "\[ImaginaryI]"}]}], + RowBox[{"0.0020303497834208793`", "\[VeryThinSpace]", "+", + RowBox[{"0.007612853854616712`", " ", "\[ImaginaryI]"}]}], + "1.0173613953920433`"} + }, + GridBoxAlignment->{ + "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.734307962886264*^9, 3.734308004887388*^9}}, + CellLabel-> + "Out[135]//MatrixForm=",ExpressionUUID->"37cb2771-8d82-4a60-8b09-\ +ffb835974a85"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"T", "[", "n_", "]"}], "[", "\[Theta]s_", "]"}], ":=", + RowBox[{"Total", "[", + RowBox[{"Map", "[", + RowBox[{ + RowBox[{ + RowBox[{"ArrayPad", "[", + RowBox[{ + RowBox[{"RotationMatrix", "[", + RowBox[{"\[Theta]s", "[", + RowBox[{"[", + RowBox[{"#", "+", "1"}], "]"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"2", "#"}], ",", + RowBox[{"n", "-", "2", "-", + RowBox[{"2", "#"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"2", "#"}], ",", + RowBox[{"n", "-", "2", "-", + RowBox[{"2", "#"}]}]}], "}"}]}], "}"}]}], "]"}], "&"}], ",", + RowBox[{ + RowBox[{"Range", "[", + RowBox[{"n", "/", "2"}], "]"}], "-", "1"}]}], "]"}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.7344303584746513`*^9, 3.734430549714932*^9}, { + 3.734446418026773*^9, 3.734446499871093*^9}}, + CellLabel-> + "In[313]:=",ExpressionUUID->"9a0a6487-cd13-4e31-ba94-320d7940a893"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[Theta]s", "=", + RowBox[{"Map", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"\[Theta]", "[", "#", "]"}], "\[Rule]", + RowBox[{"RandomReal", "[", + RowBox[{"WorkingPrecision", "\[Rule]", "30"}], "]"}]}], "&"}], ",", + RowBox[{ + RowBox[{"Range", "[", "6", "]"}], "-", "1"}]}], "]"}]}], ";"}]], "Input",\ + + CellChangeTimes->{{3.734436594522162*^9, 3.734436595767201*^9}, { + 3.7344367341248426`*^9, 3.7344367383590927`*^9}}, + CellLabel->"In[80]:=",ExpressionUUID->"136204c3-5db9-4e55-9153-7dfd4b00ee7f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"P3", "=", + RowBox[{"RandomVariate", "[", + RowBox[{ + RowBox[{"CircularRealMatrixDistribution", "[", "12", "]"}], ",", + RowBox[{"WorkingPrecision", "\[Rule]", "30"}]}], "]"}]}], ";"}]], "Input",\ + + CellChangeTimes->{{3.7344362129909897`*^9, 3.734436271332966*^9}, { + 3.73443637678279*^9, 3.7344363913982553`*^9}, {3.734436718681147*^9, + 3.7344367277738113`*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"e4ea03c5-a998-4717-b39d-4498499c374c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"M", "=", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Transpose", "[", "#", "]"}], ".", + RowBox[{"T", "[", "12", "]"}], ".", "#"}], "&"}], "@", "P3"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.7344305795900507`*^9, 3.7344305894545517`*^9}, { + 3.7344309040624*^9, 3.734430942999845*^9}, {3.734435354734314*^9, + 3.734435357806473*^9}, {3.7344360205859632`*^9, 3.734436037250965*^9}, { + 3.7344361096608543`*^9, 3.734436177838737*^9}, {3.7344362774533377`*^9, + 3.7344362886645613`*^9}, {3.7344363997163963`*^9, 3.734436407963112*^9}, { + 3.7344366175922947`*^9, 3.734436618292441*^9}}, + CellLabel->"In[76]:=",ExpressionUUID->"e44d0944-b7b8-4d56-ba4d-ad9caffcd6ec"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"Total", "[", + RowBox[{"Flatten", "[", + SuperscriptBox[ + RowBox[{"Abs", "[", "M", "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "]"}], "]"}], "/.", "\[Theta]s"}], "/.", + RowBox[{"\[Epsilon]", "\[Rule]", "0.1"}]}]], "Input", + CellChangeTimes->{{3.734436495551292*^9, 3.7344366000466013`*^9}}, + CellLabel->"In[81]:=",ExpressionUUID->"38f93129-3da4-4d03-9c2c-70bbe0590095"], + +Cell[BoxData["12.845623706344556`"], "Output", + CellChangeTimes->{{3.73443649606188*^9, 3.734436652758144*^9}, { + 3.7344367477550573`*^9, 3.734436787532053*^9}}, + CellLabel->"Out[81]=",ExpressionUUID->"b285ca7f-8cd9-46e5-a9ac-ff45fbfbdf20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{"Total", "[", + RowBox[{"Flatten", "[", + SuperscriptBox["M", + RowBox[{"2", "-", "\[Epsilon]"}]], "]"}], "]"}], ",", + RowBox[{"Assumptions", "\[Rule]", + RowBox[{"{", + RowBox[{"\[Epsilon]", ">", "0"}], "}"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.734430954036313*^9, 3.7344310139324713`*^9}, { + 3.734431075987632*^9, 3.7344311158525343`*^9}, {3.7344311882002087`*^9, + 3.7344311944663057`*^9}, {3.734431233546858*^9, 3.7344312443795652`*^9}, { + 3.7344353506993933`*^9, 3.73443535088142*^9}, {3.734435423451275*^9, + 3.734435423634005*^9}, {3.734435459336075*^9, 3.7344354598222303`*^9}, { + 3.734435569346534*^9, 3.73443571412999*^9}, {3.734435857111292*^9, + 3.734435882037012*^9}, {3.734435913112486*^9, 3.734435923671789*^9}, { + 3.734436011804735*^9, 3.73443601244615*^9}, {3.734436052770152*^9, + 3.73443606820138*^9}, {3.734436415626543*^9, 3.734436437314316*^9}, + 3.734436486447556*^9},ExpressionUUID->"eb3339cb-6e55-44e0-8fc1-\ +0354909b03fb"], + +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{{3.734430957072818*^9, 3.734430991101211*^9}, + 3.734431136736092*^9, 3.734431216904612*^9, {3.7344353454687643`*^9, + 3.734435367143673*^9}, 3.734435424971869*^9, 3.7344354605364656`*^9, { + 3.734435637398678*^9, 3.7344357145146503`*^9}, {3.73443587228749*^9, + 3.7344358834866447`*^9}, 3.734435924653911*^9, {3.734436014052247*^9, + 3.734436070250386*^9}, 3.734436368676011*^9, 3.734436418427985*^9, + 3.734436483238648*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"53849444-06ae-414a-b0b8-a41886e86282"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SuperscriptBox[ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{"p", "[", "i", "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "2"], "//", + "Expand"}]], "Input", + CellChangeTimes->{{3.734437319580488*^9, 3.734437355498891*^9}, { + 3.7344375151940002`*^9, 3.7344375176561747`*^9}}, + CellLabel->"In[86]:=",ExpressionUUID->"6fe0e92e-f0e9-4356-98f0-e4bbefe7836a"], + +Cell[BoxData[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"i", "=", "1"}], "n"], + RowBox[{"p", "[", "i", "]"}]}], ")"}], "2"]], "Output", + CellChangeTimes->{{3.734437332134939*^9, 3.734437340214789*^9}, + 3.734437517861434*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"987c4967-c9e6-41b9-841a-fa8f4e84ae73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{"Series", "[", + RowBox[{ + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"x", "[", "i", "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], ",", + RowBox[{"{", + RowBox[{"\[Epsilon]", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "1", ",", "n"}], "}"}]}], "]"}], "//", + "Expand"}]], "Input", + CellChangeTimes->{{3.734438108460535*^9, 3.734438181723693*^9}, { + 3.734438227013962*^9, 3.734438255934042*^9}, {3.734438324362691*^9, + 3.734438351589591*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"4eec5607-fc41-4732-b949-331a87466e72"], + +Cell[BoxData[ + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"x", "=", "1"}], "n"], + RowBox[{"(", + InterpretationBox[ + RowBox[{ + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"x", "[", "i", "]"}], "]"}], "2"], "-", + RowBox[{ + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"x", "[", "i", "]"}], "]"}], "2"], " ", + RowBox[{"Log", "[", + RowBox[{"Abs", "[", + RowBox[{"x", "[", "i", "]"}], "]"}], "]"}], " ", "\[Epsilon]"}], "+", + + RowBox[{ + FractionBox["1", "2"], " ", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"x", "[", "i", "]"}], "]"}], "2"], " ", + SuperscriptBox[ + RowBox[{"Log", "[", + RowBox[{"Abs", "[", + RowBox[{"x", "[", "i", "]"}], "]"}], "]"}], "2"], " ", + SuperscriptBox["\[Epsilon]", "2"]}], "+", + InterpretationBox[ + SuperscriptBox[ + RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"], + SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1], + Editable->False]}], + SeriesData[$CellContext`\[Epsilon], 0, {Abs[ + $CellContext`x[$CellContext`i]]^2, -Abs[ + $CellContext`x[$CellContext`i]]^2 Log[ + Abs[ + $CellContext`x[$CellContext`i]]], Rational[1, 2] Abs[ + $CellContext`x[$CellContext`i]]^2 Log[ + Abs[ + $CellContext`x[$CellContext`i]]]^2}, 0, 3, 1], + Editable->False], ")"}]}]], "Output", + CellChangeTimes->{{3.734438121017508*^9, 3.7344381410420523`*^9}, { + 3.734438175338325*^9, 3.734438182269245*^9}, {3.7344382282488613`*^9, + 3.73443825618834*^9}, {3.73443832606809*^9, 3.734438351778803*^9}}, + CellLabel->"Out[99]=",ExpressionUUID->"88ded28c-c9fc-45d1-b8e3-cb8875818cb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Limit", "[", + RowBox[{ + RowBox[{ + SuperscriptBox["x", "2"], + SuperscriptBox[ + RowBox[{"Log", "[", + RowBox[{"Abs", "[", "x", "]"}], "]"}], "n"]}], ",", + RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input", + CellChangeTimes->{{3.734438653098727*^9, 3.734438663743045*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"29edd88d-acaf-449a-9e26-e4da337d9645"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.734438665038623*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"9e267547-bb7b-4f2d-aa91-62d06e7bc212"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"While", "[", + RowBox[{ + RowBox[{"Det", "[", + RowBox[{"M", "=", + RowBox[{"RandomVariate", "[", + RowBox[{"CircularRealMatrixDistribution", "[", "32", "]"}], "]"}]}], + "]"}], "<", "0"}], "]"}], ";"}]], "Input", + CellChangeTimes->{{3.7344391340048027`*^9, 3.734439157346796*^9}, { + 3.734446196999722*^9, 3.73444622566385*^9}}, + CellLabel-> + "In[297]:=",ExpressionUUID->"0c99d37d-271a-4ed6-a3de-b24035a507ba"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"permutationMatrix", "[", + RowBox[{"n_", ",", "pairs_"}], "]"}], ":=", + RowBox[{ + RowBox[{"IdentityMatrix", "[", "n", "]"}], "[", + RowBox[{"[", + RowBox[{"ReplacePart", "[", + RowBox[{ + RowBox[{"Range", "[", "n", "]"}], ",", + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{"#2", "\[Rule]", "#1"}], "}"}], "&"}], "@@@", "pairs"}], + "]"}]}], "]"}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.7344441377189703`*^9, 3.73444422545747*^9}, { + 3.734445411088903*^9, 3.734445411858485*^9}, {3.7344458228938913`*^9, + 3.734445825381316*^9}}, + CellLabel-> + "In[282]:=",ExpressionUUID->"087181e7-293a-40ff-adfe-07360a5e4cf2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"permuteMatrix", "[", + RowBox[{"M_", ",", "pairs_"}], "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"#", ".", "M", ".", + RowBox[{"Transpose", "[", "#", "]"}]}], "&"}], "@", + RowBox[{"permutationMatrix", "[", + RowBox[{ + RowBox[{"Length", "[", "M", "]"}], ",", "pairs"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.734444266177408*^9, 3.734444301979157*^9}}, + CellLabel-> + "In[231]:=",ExpressionUUID->"8ae00e1c-ab1b-4ee2-b490-86f3a85903b9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"moveEntry", "[", + RowBox[{"M_", ",", "pair_"}], "]"}], ":=", + RowBox[{"permuteMatrix", "[", + RowBox[{"M", ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"{", + RowBox[{ + RowBox[{"pair", "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"pair", "[", + RowBox[{"[", "1", "]"}], "]"}], "+", "1"}]}], "}"}], "}"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"pair", "[", + RowBox[{"[", "1", "]"}], "]"}], "+", "#"}], ",", + RowBox[{ + RowBox[{"pair", "[", + RowBox[{"[", "1", "]"}], "]"}], "+", "#", "+", "1"}]}], "}"}], + "&"}], "/@", + RowBox[{"Range", "[", + RowBox[{ + RowBox[{"pair", "[", + RowBox[{"[", "2", "]"}], "]"}], "-", + RowBox[{"pair", "[", + RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], "]"}]}]}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.734444996378807*^9, 3.734445077717638*^9}, { + 3.734445111710424*^9, 3.734445190329878*^9}, {3.734445318750935*^9, + 3.7344453192761087`*^9}, {3.734445384773395*^9, 3.734445386360465*^9}, { + 3.7344454167963867`*^9, 3.734445432154488*^9}}, + CellLabel-> + "In[280]:=",ExpressionUUID->"d32c840e-9383-40ab-bfec-68e9cad9efe2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"permuteSchurDecomposition", "[", + RowBox[{"P_", ",", "Q_"}], "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Fold", "[", + RowBox[{"moveEntry", ",", "P", ",", + RowBox[{"Partition", "[", + RowBox[{"#", ",", "2"}], "]"}]}], "]"}], ",", + RowBox[{"Fold", "[", + RowBox[{"moveEntry", ",", "Q", ",", + RowBox[{"Partition", "[", + RowBox[{"#", ",", "2"}], "]"}]}], "]"}]}], "}"}], "&"}], "@", + RowBox[{"(", + RowBox[{"First", "/@", + RowBox[{"Position", "[", + RowBox[{ + RowBox[{"Round", "[", + RowBox[{ + RowBox[{"Abs", "[", + RowBox[{"Diagonal", "[", "Q", "]"}], "]"}], ",", + RowBox[{"1", " ", + SuperscriptBox["10", + RowBox[{"-", "6"}]]}]}], "]"}], ",", "1"}], "]"}]}], + ")"}]}]}]], "Input", + CellChangeTimes->{{3.734444349007833*^9, 3.734444467676013*^9}, { + 3.7344445347401333`*^9, 3.734444577808527*^9}, {3.7344447083569117`*^9, + 3.7344447819351892`*^9}, {3.734444938716387*^9, 3.734444946453759*^9}, { + 3.734445942362815*^9, 3.734445952514806*^9}}, + CellLabel-> + "In[288]:=",ExpressionUUID->"8adf49d5-1518-421b-a2a3-f8fdec6da16f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"get\[Theta]s", "[", "Q_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"ArcTan", "[", + RowBox[{ + RowBox[{"Q", "[", + RowBox[{"[", + RowBox[{ + RowBox[{"1", "+", + RowBox[{"2", " ", "#"}]}], ",", + RowBox[{"1", "+", + RowBox[{"2", "#"}]}]}], "]"}], "]"}], ",", + RowBox[{"Q", "[", + RowBox[{"[", + RowBox[{ + RowBox[{ + RowBox[{"2", "#"}], "+", "2"}], ",", + RowBox[{"1", "+", + RowBox[{"2", "#"}]}]}], "]"}], "]"}]}], "]"}], "&"}], "/@", + RowBox[{"(", + RowBox[{ + RowBox[{"Range", "[", + RowBox[{ + RowBox[{"Length", "[", "Q", "]"}], "/", "2"}], "]"}], "-", "1"}], + ")"}]}]}]], "Input", + CellChangeTimes->{{3.73444652301226*^9, 3.734446540636747*^9}, { + 3.7344465793981133`*^9, 3.7344466664298964`*^9}, {3.7344467253539953`*^9, + 3.734446754862545*^9}}, + CellLabel-> + "In[322]:=",ExpressionUUID->"386b25eb-c542-4740-abce-ea3a1151ea4e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"root", "[", "M_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"#1", ".", + RowBox[{ + RowBox[{"T", "[", + RowBox[{"Length", "[", "M", "]"}], "]"}], "[", + RowBox[{ + RowBox[{"get\[Theta]s", "[", "#2", "]"}], "/", "2"}], "]"}], ".", + RowBox[{"Transpose", "[", "#1", "]"}]}], "&"}], "@@", + RowBox[{"(", + RowBox[{"permuteSchurDecomposition", "@@", + RowBox[{"SchurDecomposition", "[", "M", "]"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.734441751007285*^9, 3.734441889682276*^9}, { + 3.7344419250690804`*^9, 3.734441964717955*^9}, {3.734442018135976*^9, + 3.734442030209919*^9}, {3.734442066603153*^9, 3.734442068748541*^9}, { + 3.734442954785481*^9, 3.7344430042911253`*^9}, {3.734443036128446*^9, + 3.73444306778021*^9}, {3.73444632743225*^9, 3.734446335839416*^9}, { + 3.7344467973127337`*^9, 3.734446862067038*^9}}, + CellLabel-> + "In[325]:=",ExpressionUUID->"90e67cbe-ca43-467e-9ff8-9727c558d8fb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"coursen", "[", "M_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"#", "[", + RowBox[{"[", + RowBox[{ + RowBox[{";;", + RowBox[{ + RowBox[{"Length", "[", "M", "]"}], "/", "2"}]}], ",", + RowBox[{";;", + RowBox[{ + RowBox[{"Length", "[", "M", "]"}], "/", "2"}]}]}], "]"}], "]"}], + ".", + RowBox[{"#", "[", + RowBox[{"[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "M", "]"}], "/", "2"}], "+", "1"}], ";;"}], + ",", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "M", "]"}], "/", "2"}], "+", "1"}], + ";;"}]}], "]"}], "]"}]}], "&"}], "@", + RowBox[{"root", "[", "M", "]"}]}]}]], "Input", + CellChangeTimes->{{3.734446949986018*^9, 3.7344470296613894`*^9}}, + CellLabel-> + "In[332]:=",ExpressionUUID->"09c9c859-67c4-424c-9bdc-57a171c376f8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"test", "=", + RowBox[{"coursen", "[", "M", "]"}]}], ";"}]], "Input", + CellChangeTimes->{{3.734447031726432*^9, 3.734447040576002*^9}}, + CellLabel-> + "In[334]:=",ExpressionUUID->"c8a49ed5-0d55-4e26-8fcd-bef88bf4c12d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"test", "=", + RowBox[{ + RowBox[{"M", "[", + RowBox[{"[", + RowBox[{ + RowBox[{";;", ";;", "2"}], ",", + RowBox[{";;", ";;", "2"}]}], "]"}], "]"}], ".", + RowBox[{"M", "[", + RowBox[{"[", + RowBox[{ + RowBox[{"2", ";;", ";;", "2"}], ",", + RowBox[{"2", ";;", ";;", "2"}]}], "]"}], "]"}]}]}], ";"}]], "Input", + CellChangeTimes->{{3.734447062881668*^9, 3.734447102961961*^9}, { + 3.734447377862091*^9, 3.734447394204185*^9}, {3.734447500577207*^9, + 3.734447551753469*^9}}, + CellLabel-> + "In[346]:=",ExpressionUUID->"3f436140-1785-4ab3-9631-c0e22702f5fd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"test", ".", + RowBox[{"Transpose", "[", "test", "]"}]}], "//", "Chop"}]], "Input", + CellChangeTimes->{{3.7344470473777227`*^9, 3.7344470522544117`*^9}}, + CellLabel-> + "In[347]:=",ExpressionUUID->"1decfe19-4d2f-4ac1-9555-8f8fd9cb17b6"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0.3167101033997214`", ",", + RowBox[{"-", "0.06479646485112149`"}], ",", "0.03191457886623266`", ",", + + RowBox[{"-", "0.12976974337565034`"}], ",", "0.1334020736627092`", ",", + "0.08755690254718833`", ",", "0.021952053689913834`", ",", + RowBox[{"-", "0.09201950793251656`"}], ",", "0.03039645633058153`", ",", + "0.05272606391918427`", ",", "0.09813378083569575`", ",", + "0.06100628291551563`", ",", "0.017509158732084855`", ",", + "0.038777995083748455`", ",", + RowBox[{"-", "0.09547902532010263`"}], ",", "0.04702923375295084`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.06479646485112149`"}], ",", "0.16599660768437632`", ",", + "0.052513142506905655`", ",", + RowBox[{"-", "0.034161541503658424`"}], ",", + RowBox[{"-", "0.11550970620078782`"}], ",", "0.03105344697406797`", ",", + "0.03212436807475873`", ",", + RowBox[{"-", "0.09185338605727628`"}], ",", "0.03207824494049382`", ",", + "0.05634726992182131`", ",", + RowBox[{"-", "0.1479532189280818`"}], ",", "0.05813571508328424`", ",", + "0.00994164406436068`", ",", "0.02011126790617698`", ",", + "0.018731335725778248`", ",", + RowBox[{"-", "0.01984551726410124`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.03191457886623266`", ",", "0.052513142506905655`", ",", + "0.3496004076527619`", ",", + RowBox[{"-", "0.03850479997447098`"}], ",", + RowBox[{"-", "0.007594579661413713`"}], ",", "0.21301190107989854`", ",", + "0.027191117339582842`", ",", "0.02621204528295224`", ",", + "0.12856113219325627`", ",", "0.06882740412953085`", ",", + "0.05369312666423786`", ",", + RowBox[{"-", "0.009160628562154986`"}], ",", "0.046650833718259635`", + ",", "0.03171282786552979`", ",", + RowBox[{"-", "0.004236240131066993`"}], ",", + RowBox[{"-", "0.04335199254884713`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.12976974337565034`"}], ",", + RowBox[{"-", "0.034161541503658424`"}], ",", + RowBox[{"-", "0.03850479997447098`"}], ",", "0.27808153199916447`", ",", + + RowBox[{"-", "0.018826057419421782`"}], ",", + RowBox[{"-", "0.05773895828549687`"}], ",", + RowBox[{"-", "0.025847771477204753`"}], ",", "0.08215247465994363`", ",", + RowBox[{"-", "0.04462564425197128`"}], ",", + RowBox[{"-", "0.08036510571919066`"}], ",", + RowBox[{"-", "0.02231269158619022`"}], ",", + RowBox[{"-", "0.0645703237289191`"}], ",", "0.04351996468973494`", ",", + RowBox[{"-", "0.02119577092676374`"}], ",", "0.04434172578337779`", ",", + + RowBox[{"-", "0.009228998078081968`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.1334020736627092`", ",", + RowBox[{"-", "0.11550970620078782`"}], ",", + RowBox[{"-", "0.007594579661413713`"}], ",", + RowBox[{"-", "0.018826057419421782`"}], ",", "0.37626612898799056`", ",", + RowBox[{"-", "0.022344218694091863`"}], ",", + RowBox[{"-", "0.000728779341728136`"}], ",", "0.10059389848318062`", ",", + RowBox[{"-", "0.07832754048514622`"}], ",", "0.10323157226905809`", ",", + "0.1528690895556612`", ",", "0.03053681590137384`", ",", + "0.05290320746090933`", ",", + RowBox[{"-", "0.11584480325631162`"}], ",", + RowBox[{"-", "0.13323043482101096`"}], ",", + RowBox[{"-", "0.0078067952587123745`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.08755690254718833`", ",", "0.03105344697406797`", ",", + "0.21301190107989854`", ",", + RowBox[{"-", "0.05773895828549687`"}], ",", + RowBox[{"-", "0.022344218694091863`"}], ",", "0.35454604287230856`", ",", + "0.03835090296736614`", ",", + RowBox[{"-", "0.03150490040537117`"}], ",", "0.042048614409970056`", ",", + "0.002939836793781684`", ",", + RowBox[{"-", "0.08141136425976422`"}], ",", "0.013564712994512626`", ",", + RowBox[{"-", "0.013392701264616166`"}], ",", + RowBox[{"-", "0.0852008282456183`"}], ",", "0.025914691011554546`", ",", + + RowBox[{"-", "0.010662442778406275`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.021952053689913834`", ",", "0.03212436807475873`", ",", + "0.027191117339582842`", ",", + RowBox[{"-", "0.025847771477204753`"}], ",", + RowBox[{"-", "0.000728779341728136`"}], ",", "0.03835090296736614`", ",", + "0.08700685371544455`", ",", "0.0019964691374175364`", ",", + "0.05512231169449684`", ",", + RowBox[{"-", "0.05389906981851193`"}], ",", "0.03368977972438634`", ",", + "0.11187957947675337`", ",", "0.012335953759836394`", ",", + RowBox[{"-", "0.019692620635095283`"}], ",", + RowBox[{"-", "0.015561771238143325`"}], ",", "0.01206918949756452`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.09201950793251656`"}], ",", + RowBox[{"-", "0.09185338605727628`"}], ",", "0.02621204528295224`", ",", + "0.08215247465994363`", ",", "0.10059389848318062`", ",", + RowBox[{"-", "0.03150490040537117`"}], ",", "0.0019964691374175364`", + ",", "0.2915999076376135`", ",", "0.01356827016107125`", ",", + RowBox[{"-", "0.009047541101649077`"}], ",", "0.03739660295424243`", ",", + RowBox[{"-", "0.002589207756249064`"}], ",", + RowBox[{"-", "0.0526913934241328`"}], ",", "0.060305579776825664`", ",", + + RowBox[{"-", "0.05965461318105857`"}], ",", + RowBox[{"-", "0.045350788983290515`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.03039645633058153`", ",", "0.03207824494049382`", ",", + "0.12856113219325627`", ",", + RowBox[{"-", "0.04462564425197128`"}], ",", + RowBox[{"-", "0.07832754048514622`"}], ",", "0.042048614409970056`", ",", + "0.05512231169449684`", ",", "0.01356827016107125`", ",", + "0.2514372086181147`", ",", + RowBox[{"-", "0.08479142557027378`"}], ",", "0.10828205172294139`", ",", + "0.07556421810361105`", ",", + RowBox[{"-", "0.017191133008902973`"}], ",", "0.13900718519157884`", ",", + "0.10344209181122069`", ",", + RowBox[{"-", "0.022517333726499892`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.05272606391918427`", ",", "0.05634726992182131`", ",", + "0.06882740412953085`", ",", + RowBox[{"-", "0.08036510571919066`"}], ",", "0.10323157226905809`", ",", + "0.002939836793781684`", ",", + RowBox[{"-", "0.05389906981851193`"}], ",", + RowBox[{"-", "0.009047541101649077`"}], ",", + RowBox[{"-", "0.08479142557027378`"}], ",", "0.24740652176370956`", ",", + + RowBox[{"-", "0.10237665401619422`"}], ",", + RowBox[{"-", "0.04125285742784809`"}], ",", "0.010248230271184482`", ",", + "0.042519020636048614`", ",", + RowBox[{"-", "0.11777739758535846`"}], ",", + RowBox[{"-", "0.038989315733200074`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.09813378083569575`", ",", + RowBox[{"-", "0.1479532189280818`"}], ",", "0.05369312666423786`", ",", + RowBox[{"-", "0.02231269158619022`"}], ",", "0.1528690895556612`", ",", + RowBox[{"-", "0.08141136425976422`"}], ",", "0.03368977972438634`", ",", + "0.03739660295424243`", ",", "0.10828205172294139`", ",", + RowBox[{"-", "0.10237665401619422`"}], ",", "0.3922918379020482`", ",", + "0.04307362204061704`", ",", "0.06373257288730613`", ",", + "0.0224204002929064`", ",", "0.0429870797287381`", ",", + "0.034427682170838234`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.06100628291551563`", ",", "0.05813571508328424`", ",", + RowBox[{"-", "0.009160628562154986`"}], ",", + RowBox[{"-", "0.0645703237289191`"}], ",", "0.03053681590137384`", ",", + "0.013564712994512626`", ",", "0.11187957947675337`", ",", + RowBox[{"-", "0.002589207756249064`"}], ",", "0.07556421810361105`", ",", + RowBox[{"-", "0.04125285742784809`"}], ",", "0.04307362204061704`", ",", + "0.33071125252175476`", ",", + RowBox[{"-", "0.02161510471016153`"}], ",", "0.10698379079413546`", ",", + "0.04935359797819296`", ",", + RowBox[{"-", "0.0474221761366256`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.017509158732084855`", ",", "0.00994164406436068`", ",", + "0.046650833718259635`", ",", "0.04351996468973494`", ",", + "0.05290320746090933`", ",", + RowBox[{"-", "0.013392701264616166`"}], ",", "0.012335953759836394`", + ",", + RowBox[{"-", "0.0526913934241328`"}], ",", + RowBox[{"-", "0.017191133008902973`"}], ",", "0.010248230271184482`", + ",", "0.06373257288730613`", ",", + RowBox[{"-", "0.02161510471016153`"}], ",", "0.08962101742751791`", ",", + + RowBox[{"-", "0.06146273024307271`"}], ",", + RowBox[{"-", "0.04537411849730513`"}], ",", "0.046354874324210496`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.038777995083748455`", ",", "0.02011126790617698`", ",", + "0.03171282786552979`", ",", + RowBox[{"-", "0.02119577092676374`"}], ",", + RowBox[{"-", "0.11584480325631162`"}], ",", + RowBox[{"-", "0.0852008282456183`"}], ",", + RowBox[{"-", "0.019692620635095283`"}], ",", "0.060305579776825664`", + ",", "0.13900718519157884`", ",", "0.042519020636048614`", ",", + "0.0224204002929064`", ",", "0.10698379079413546`", ",", + RowBox[{"-", "0.06146273024307271`"}], ",", "0.42595757322370775`", ",", + "0.04910944991502509`", ",", "0.008231967311515933`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.09547902532010263`"}], ",", "0.018731335725778248`", ",", + RowBox[{"-", "0.004236240131066993`"}], ",", "0.04434172578337779`", ",", + RowBox[{"-", "0.13323043482101096`"}], ",", "0.025914691011554546`", ",", + RowBox[{"-", "0.015561771238143325`"}], ",", + RowBox[{"-", "0.05965461318105857`"}], ",", "0.10344209181122069`", ",", + + RowBox[{"-", "0.11777739758535846`"}], ",", "0.0429870797287381`", ",", + "0.04935359797819296`", ",", + RowBox[{"-", "0.04537411849730513`"}], ",", "0.04910944991502509`", ",", + "0.27907083005196964`", ",", + RowBox[{"-", "0.08128774667077497`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.04702923375295084`", ",", + RowBox[{"-", "0.01984551726410124`"}], ",", + RowBox[{"-", "0.04335199254884713`"}], ",", + RowBox[{"-", "0.009228998078081968`"}], ",", + RowBox[{"-", "0.0078067952587123745`"}], ",", + RowBox[{"-", "0.010662442778406275`"}], ",", "0.01206918949756452`", ",", + RowBox[{"-", "0.045350788983290515`"}], ",", + RowBox[{"-", "0.022517333726499892`"}], ",", + RowBox[{"-", "0.038989315733200074`"}], ",", "0.034427682170838234`", + ",", + RowBox[{"-", "0.0474221761366256`"}], ",", "0.046354874324210496`", ",", + "0.008231967311515933`", ",", + RowBox[{"-", "0.08128774667077497`"}], ",", "0.1568848536812223`"}], + "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.734447052547162*^9, 3.734447104081974*^9, {3.734447386642874*^9, + 3.734447395330525*^9}, 3.734447512978507*^9, 3.7344475528851423`*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"e5dc1483-1f4a-486e-a685-6d75b00ff5e2"] +}, Open ]] +}, +WindowSize->{1330, 732}, +WindowMargins->{{18, Automatic}, {Automatic, 18}}, +FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", +StyleDefinitions->"Default.nb" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 447, 14, 31, "Input",ExpressionUUID->"d5a382e7-4383-492c-bea6-cfaf2b22c9c3"], +Cell[CellGroupData[{ +Cell[1030, 38, 605, 18, 39, "Input",ExpressionUUID->"fc4bd527-4630-4b4b-8294-64045ce8369e"], +Cell[1638, 58, 747, 22, 79, "Output",ExpressionUUID->"69feaccc-ee6e-41dc-a156-61a7acec4119"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2422, 85, 1013, 32, 39, "Input",ExpressionUUID->"f9ca7c98-275b-495d-b8cf-300968ef81d2"], +Cell[3438, 119, 1534, 50, 43, "Output",ExpressionUUID->"a979fe05-e1a3-459b-b8ff-242ed53d7a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5009, 174, 1265, 33, 39, "Input",ExpressionUUID->"c04dc9c1-4ad5-4ea0-b8a6-f79e010285c4"], +Cell[6277, 209, 1345, 41, 65, "Output",ExpressionUUID->"0467c94a-dc8d-46b5-b3bd-048819302822"] +}, Open ]], +Cell[7637, 253, 775, 20, 31, "Input",ExpressionUUID->"cc17300f-6b33-4c64-876f-bc9dbc35ee7a"], +Cell[CellGroupData[{ +Cell[8437, 277, 928, 27, 39, "Input",ExpressionUUID->"ab43b56b-32bb-40d8-a152-fc31f9268d37"], +Cell[9368, 306, 402, 10, 40, "Output",ExpressionUUID->"ecda54ee-d4cc-47c1-ab49-18e2fcdd7bf3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9807, 321, 819, 21, 39, "Input",ExpressionUUID->"642d4fda-c92c-4f5e-8df5-412c73634b76"], +Cell[10629, 344, 1183, 30, 83, "Output",ExpressionUUID->"55501bc2-6a0a-4392-b2f0-241683335d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11849, 379, 664, 18, 31, "Input",ExpressionUUID->"771b659d-cc63-4ceb-ba97-d2825564331a"], +Cell[12516, 399, 1201, 31, 83, "Output",ExpressionUUID->"d924e63b-0dc4-4833-83db-2b864132564a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13754, 435, 203, 3, 31, "Input",ExpressionUUID->"0b0e8934-aa92-4fe3-a02b-08310bbd3183"], +Cell[13960, 440, 257, 4, 35, "Output",ExpressionUUID->"41138d64-0bbb-46a3-b541-a5ac5dfa73f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14254, 449, 446, 12, 39, "Input",ExpressionUUID->"3a2b8edb-85d7-4fbd-88f6-9846f750f29e"], +Cell[14703, 463, 269, 7, 37, "Output",ExpressionUUID->"e9d6adb9-b457-4d36-8c0a-6bc9913646bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15009, 475, 803, 21, 39, "Input",ExpressionUUID->"debfdd9c-0082-4632-872d-ed2a4b4c0f38"], +Cell[15815, 498, 248, 3, 35, "Output",ExpressionUUID->"7813d4f5-6c53-4c3a-a0be-943b0dad909b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16100, 506, 761, 19, 39, "Input",ExpressionUUID->"9897ef18-b864-40be-b817-432256680ce9"], +Cell[16864, 527, 9854, 179, 246, "Output",ExpressionUUID->"4f7ee14d-12a7-454f-b3a6-5baf84da3966"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26755, 711, 1001, 27, 39, "Input",ExpressionUUID->"b9abf49d-46fd-4dd7-83c5-30661af69ba6"], +Cell[27759, 740, 9820, 179, 246, "Output",ExpressionUUID->"20a8654a-797d-4e6c-b763-99591d7f6cbf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[37616, 924, 386, 11, 39, "Input",ExpressionUUID->"c59d655e-6965-4c7a-9300-deac08b8d5f6"], +Cell[38005, 937, 367, 11, 37, "Output",ExpressionUUID->"98d63f74-fe5a-4ae9-8ed0-5362fb6cba51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[38409, 953, 844, 20, 39, "Input",ExpressionUUID->"4fc9b904-b65e-406c-9d16-1ebafc7f92fc"], +Cell[39256, 975, 23763, 408, 246, "Output",ExpressionUUID->"409a9fc0-315c-4211-95bf-d93c8e697053"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63056, 1388, 1001, 27, 39, "Input",ExpressionUUID->"b6ff0a95-3e62-4896-8924-31ba8f285cae"], +Cell[64060, 1417, 9820, 179, 246, "Output",ExpressionUUID->"bef3a898-f5dc-46b2-a070-f2c3997001ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73917, 1601, 305, 8, 31, "Input",ExpressionUUID->"b7d9da66-d9fa-4096-85ab-b614aee68d27"], +Cell[74225, 1611, 931, 29, 35, "Output",ExpressionUUID->"d233d87d-f829-465f-906e-5727acfbfe18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[75193, 1645, 336, 8, 31, "Input",ExpressionUUID->"d6ad40dc-f675-4087-b332-4080336ac54d"], +Cell[75532, 1655, 206, 4, 35, "Output",ExpressionUUID->"42627eb9-00a6-46af-8897-51614e38f323"] +}, Open ]], +Cell[CellGroupData[{ +Cell[75775, 1664, 830, 22, 39, "Input",ExpressionUUID->"d394aa4c-8613-4d1a-83a7-6a9e460d602d"], +Cell[76608, 1688, 1790, 52, 37, "Output",ExpressionUUID->"c93e04f0-31dc-4f42-b7ce-ff758415db0e"] +}, Open ]], +Cell[78413, 1743, 156, 3, 31, "Input",ExpressionUUID->"86ecb7f0-8a5a-49a9-8632-b35287cb05ce"], +Cell[78572, 1748, 129, 3, 31, "Input",ExpressionUUID->"142781de-b484-41d6-854e-a5066056ccec"], +Cell[78704, 1753, 210, 4, 31, "Input",ExpressionUUID->"d8a4f652-0088-44dd-bea5-3b91a54f005b"], +Cell[78917, 1759, 322, 8, 31, "Input",ExpressionUUID->"bef00eeb-7dc0-4119-b2dc-9e8e77c1c0f9"], +Cell[CellGroupData[{ +Cell[79264, 1771, 445, 13, 39, "Input",ExpressionUUID->"29ab42c0-ee58-486e-b7e3-16c049180c04"], +Cell[79712, 1786, 18935, 372, 253, "Output",ExpressionUUID->"37cb2771-8d82-4a60-8b09-ffb835974a85"] +}, Open ]], +Cell[98662, 2161, 1123, 33, 31, "Input",ExpressionUUID->"9a0a6487-cd13-4e31-ba94-320d7940a893"], +Cell[99788, 2196, 580, 15, 31, "Input",ExpressionUUID->"136204c3-5db9-4e55-9153-7dfd4b00ee7f"], +Cell[100371, 2213, 493, 11, 31, "Input",ExpressionUUID->"e4ea03c5-a998-4717-b39d-4498499c374c"], +Cell[100867, 2226, 720, 15, 31, "Input",ExpressionUUID->"e44d0944-b7b8-4d56-ba4d-ad9caffcd6ec"], +Cell[CellGroupData[{ +Cell[101612, 2245, 435, 10, 39, "Input",ExpressionUUID->"38f93129-3da4-4d03-9c2c-70bbe0590095"], +Cell[102050, 2257, 241, 3, 35, "Output",ExpressionUUID->"b285ca7f-8cd9-46e5-a9ac-ff45fbfbdf20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[102328, 2265, 1063, 20, 39, "Input",ExpressionUUID->"eb3339cb-6e55-44e0-8fc1-0354909b03fb"], +Cell[103394, 2287, 571, 8, 35, "Output",ExpressionUUID->"53849444-06ae-414a-b0b8-a41886e86282"] +}, Open ]], +Cell[CellGroupData[{ +Cell[104002, 2300, 430, 11, 33, "Input",ExpressionUUID->"6fe0e92e-f0e9-4356-98f0-e4bbefe7836a"], +Cell[104435, 2313, 360, 9, 66, "Output",ExpressionUUID->"987c4967-c9e6-41b9-841a-fa8f4e84ae73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[104832, 2327, 685, 18, 39, "Input",ExpressionUUID->"4eec5607-fc41-4732-b949-331a87466e72"], +Cell[105520, 2347, 1712, 45, 64, "Output",ExpressionUUID->"88ded28c-c9fc-45d1-b8e3-cb8875818cb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[107269, 2397, 398, 11, 39, "Input",ExpressionUUID->"29edd88d-acaf-449a-9e26-e4da337d9645"], +Cell[107670, 2410, 153, 3, 35, "Output",ExpressionUUID->"9e267547-bb7b-4f2d-aa91-62d06e7bc212"] +}, Open ]], +Cell[107838, 2416, 470, 12, 31, "Input",ExpressionUUID->"0c99d37d-271a-4ed6-a3de-b24035a507ba"], +Cell[108311, 2430, 743, 20, 31, "Input",ExpressionUUID->"087181e7-293a-40ff-adfe-07360a5e4cf2"], +Cell[109057, 2452, 495, 13, 31, "Input",ExpressionUUID->"8ae00e1c-ab1b-4ee2-b490-86f3a85903b9"], +Cell[109555, 2467, 1393, 39, 31, "Input",ExpressionUUID->"d32c840e-9383-40ab-bfec-68e9cad9efe2"], +Cell[110951, 2508, 1235, 33, 62, "Input",ExpressionUUID->"8adf49d5-1518-421b-a2a3-f8fdec6da16f"], +Cell[112189, 2543, 1007, 31, 31, "Input",ExpressionUUID->"386b25eb-c542-4740-abce-ea3a1151ea4e"], +Cell[113199, 2576, 986, 22, 31, "Input",ExpressionUUID->"90e67cbe-ca43-467e-9ff8-9727c558d8fb"], +Cell[114188, 2600, 980, 32, 31, "Input",ExpressionUUID->"09c9c859-67c4-424c-9bdc-57a171c376f8"], +Cell[115171, 2634, 254, 6, 31, "Input",ExpressionUUID->"c8a49ed5-0d55-4e26-8fcd-bef88bf4c12d"], +Cell[115428, 2642, 637, 18, 31, "Input",ExpressionUUID->"3f436140-1785-4ab3-9631-c0e22702f5fd"], +Cell[CellGroupData[{ +Cell[116090, 2664, 272, 6, 31, "Input",ExpressionUUID->"1decfe19-4d2f-4ac1-9555-8f8fd9cb17b6"], +Cell[116365, 2672, 11088, 218, 565, "Output",ExpressionUUID->"e5dc1483-1f4a-486e-a685-6d75b00ff5e2"] +}, Open ]] +} +] +*) + diff --git a/tempering_analysis.nb b/tempering_analysis.nb new file mode 100644 index 0000000..1b6c9aa --- /dev/null +++ b/tempering_analysis.nb @@ -0,0 +1,706 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 12.0' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 29108, 698] +NotebookOptionsPosition[ 27171, 661] +NotebookOutlinePosition[ 27505, 676] +CellTagsIndexPosition[ 27462, 673] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"getData", "[", "dir_", "]"}], ":=", + RowBox[{"Dataset", "[", + RowBox[{ + RowBox[{ + RowBox[{"With", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"data", "=", + RowBox[{"Import", "[", "#", "]"}]}], ",", + RowBox[{"metadata", "=", + RowBox[{"ToExpression", "/@", + RowBox[{"Rest", "[", + RowBox[{"StringSplit", "[", + RowBox[{ + RowBox[{"FileBaseName", "[", "#", "]"}], ",", "\"\<_\>\""}], + "]"}], "]"}]}]}]}], "}"}], ",", + RowBox[{"<|", + RowBox[{ + RowBox[{"\"\\"", "\[Rule]", + RowBox[{"metadata", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ",", + RowBox[{"\"\<\[Beta]0\>\"", "\[Rule]", + RowBox[{"metadata", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ",", + RowBox[{"\"\<\[Beta]f\>\"", "\[Rule]", + RowBox[{"metadata", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ",", + RowBox[{"\"\\"", "\[Rule]", + RowBox[{"metadata", "[", + RowBox[{"[", "4", "]"}], "]"}]}], ",", + RowBox[{"\"\\"", "\[Rule]", + RowBox[{ + RowBox[{"Rest", "[", "data", "]"}], "/", + RowBox[{"First", "[", + RowBox[{"First", "[", "data", "]"}], "]"}]}]}]}], "|>"}]}], "]"}], + "&"}], "/@", + RowBox[{"FileNames", "[", + RowBox[{"FileNameJoin", "[", + RowBox[{"{", + RowBox[{"dir", ",", "\"\\""}], "}"}], "]"}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.778948155736003*^9, 3.778948220094614*^9}, { + 3.778948251774682*^9, 3.778948445776267*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"d", "=", + RowBox[{"getData", "[", "\"\<~/doc/research/hadamard/code/\>\"", "]"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.778948447393362*^9, 3.778948476191824*^9}, { + 3.7795618755287123`*^9, 3.779561880399358*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"c", "[", + RowBox[{"\[Beta]i_", ",", "\[Beta]j_"}], "]"}], "[", "A_", "]"}], ":=", + RowBox[{"2", + FractionBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox["\[Beta]i", "2"], "+", + SuperscriptBox["\[Beta]j", "2"]}], ")"}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"\[Beta]i", "-", "\[Beta]j"}], ")"}], "2"]], + SuperscriptBox[ + RowBox[{"InverseErfc", "[", "A", "]"}], "2"]}]}]], "Input", + CellChangeTimes->{{3.7789451133983593`*^9, 3.778945185413146*^9}, { + 3.778945446992125*^9, 3.778945447478743*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Ts", "[", "dat_", "]"}], ":=", + RowBox[{"Range", "[", + RowBox[{ + RowBox[{"dat", "[", "\"\<\[Beta]0\>\"", "]"}], ",", + RowBox[{"dat", "[", "\"\<\[Beta]f\>\"", "]"}], ",", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"dat", "[", "\"\<\[Beta]f\>\"", "]"}], "-", + RowBox[{"dat", "[", "\"\<\[Beta]0\>\"", "]"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"dat", "[", "\"\\"", "]"}], "-", "1"}], ")"}]}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.778948523412203*^9, 3.778948610089134*^9}, { + 3.7789486512266293`*^9, 3.778948654153482*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Cstmp", "[", "dat_", "]"}], ":=", + RowBox[{"With", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"ts", "=", + RowBox[{"Ts", "[", "dat", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{"#", ",", + RowBox[{"#", "+", + RowBox[{"ts", "[", + RowBox[{"[", "2", "]"}], "]"}], "-", + RowBox[{"ts", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "&"}], "/@", "ts"}], + ",", + RowBox[{"Last", "/@", + RowBox[{"dat", "[", "\"\\"", "]"}]}]}], "}"}]}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.7789537137281647`*^9, 3.7789537203664207`*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Cs", "[", "dat_", "]"}], ":=", + RowBox[{"With", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"ts", "=", + RowBox[{"Ts", "[", "dat", "]"}]}], "}"}], ",", + RowBox[{"MapThread", "[", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mean", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"#1", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", + RowBox[{"#1", "[", + RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", + RowBox[{ + RowBox[{"c", "[", + RowBox[{ + RowBox[{"#1", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", + RowBox[{"#1", "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", "#2", "]"}]}], + "}"}], "&"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{"#", ",", + RowBox[{"#", "+", + RowBox[{"ts", "[", + RowBox[{"[", "2", "]"}], "]"}], "-", + RowBox[{"ts", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "&"}], "/@", + RowBox[{"Most", "[", "ts", "]"}]}], ",", + RowBox[{"Last", "/@", + RowBox[{"dat", "[", "\"\\"", "]"}]}]}], "}"}]}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.7789479000625353`*^9, 3.7789480157738333`*^9}, { + 3.778948503834503*^9, 3.778948518745183*^9}, {3.778948666921554*^9, + 3.778948688346896*^9}, {3.7789536224795513`*^9, 3.778953623110043*^9}, { + 3.778953673879937*^9, 3.778953685238799*^9}, {3.778953742582839*^9, + 3.778953745606895*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"\[CapitalDelta]Ss", "[", "dat_", "]"}], ":=", + RowBox[{"With", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"ts", "=", + RowBox[{"1", "/", + RowBox[{"Ts", "[", "dat", "]"}]}]}], ",", + RowBox[{"cs", "=", + RowBox[{"Cs", "[", "dat", "]"}]}]}], "}"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mean", "[", + RowBox[{"1", "/", "#1"}], "]"}], ",", + FractionBox[ + RowBox[{"#2", + RowBox[{"(", + RowBox[{ + RowBox[{"#1", "[", + RowBox[{"[", "1", "]"}], "]"}], "-", + RowBox[{"#1", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], + RowBox[{"Mean", "[", "#1", "]"}]]}], "}"}], "&"}], "@@@", + RowBox[{"Thread", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Rest", "@", + RowBox[{"Rest", "[", + RowBox[{"FoldList", "[", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"#1", "[", + RowBox[{"[", "2", "]"}], "]"}], ",", "#2"}], "}"}], "&"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0"}], "}"}], ",", "ts"}], "]"}], "]"}]}], ",", + RowBox[{ + RowBox[{"Cs", "[", "dat", "]"}], "[", + RowBox[{"[", + RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}]}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.779561994673626*^9, 3.7795620342479887`*^9}, { + 3.779700498628436*^9, 3.779700513292344*^9}, {3.7797005747090063`*^9, + 3.779700575188902*^9}, {3.779700627710291*^9, 3.7797006535654173`*^9}, { + 3.779700716133662*^9, 3.7797008200306168`*^9}, {3.779700857824486*^9, + 3.7797008584386597`*^9}, {3.7797008994884863`*^9, 3.779700901055118*^9}, { + 3.779700939144706*^9, 3.779700939215414*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Ss", "[", "dat_", "]"}], ":=", + RowBox[{"With", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"ss", "=", + RowBox[{"\[CapitalDelta]Ss", "[", "dat", "]"}]}], "}"}], ",", + RowBox[{"Thread", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"ss", "[", + RowBox[{"[", + RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", + RowBox[{"Accumulate", "[", + RowBox[{"ss", "[", + RowBox[{"[", + RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.779700960584425*^9, 3.7797010023114433`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"d", "[", + RowBox[{ + RowBox[{"Select", "[", + RowBox[{ + RowBox[{"#n\[Beta]", "\[Equal]", "64"}], "&"}], "]"}], ",", + RowBox[{ + RowBox[{"With", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"L", "=", + SuperscriptBox["#n", "2"]}], "}"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{"#1", ",", + RowBox[{"#2", "/", "L"}]}], "}"}], "&"}], "@@@", + RowBox[{"Ss", "[", "#", "]"}]}]}], "]"}], "&"}]}], "]"}], ",", + RowBox[{"Joined", "\[Rule]", "True"}], ",", + RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", + CellChangeTimes->CompressedData[" +1:eJwdxVkogwEAB/A5krlTJtLYis2WI02KUZMkVxkxtQcWGqYpV59cL2SON0tR +yssaNiXKPvHg2DLTjBqtkCixpmwefA9zfP/v4dePp9LKO0NZLBaXhsuF9tZj +gU9mSxpXYm/tHYEPAk2jeNMh1uErBzWPnUob54TedMRPxoS6vxhvf7OleKzD +dY83iKcHrJ7de8avTuoFawQHXiy1L3xiSdhY6im9ecbCw1X75izMefoWYLZ8 +kcCVkt5RrP/9FZ7R83fdItyToijFZHtDGW6g8mvw2k4V89e5dh1HiTRGXNKY +t4sVg6o9vBzQWbAjfJrElLvPitXcCWY9GenCCS2GaxyRUxFipf/x1DMf6t/T +cVuoPQMXFHUP46Xg8ghutsQ5cJrRw3wz5y7xC32yy7rYMqx5nKLis32yZ9IQ +xLlbYnYC/luNwReNRdGF9PyXe+apFRMPJw5wM7E2IHH66eUt1S78NjR5i7s+ +ZHf4H8z/9Bs= + "], + CellLabel->"In[24]:=",ExpressionUUID->"73943d9b-70f3-4562-ab84-3881106d7e0c"], + +Cell[BoxData[ + GraphicsBox[{{}, {{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6], LineBox[CompressedData[" +1:eJw1yX8s1HEcx/ETF83k5yHhHOe4H+gPrl/q+/4uZiyUa/0Y0oysbjL6pd3W +roZOIY21uq06TtouKrKS/Pj6kUlEWBx1lx8RaZOZTItq9/68t9fee+zJS86I +S93AYrGof/v/TTdClbRaC7yVmZTJU9Rg1vHrlpdz0POURB4uOaa5hV6kVG8i +KtxoNXqZesxyKSgylqFXqXfVmTHnhI/Qa1TxXHxCdF8V2gwK6dhDP5Nr0OZQ +Vq/cN1RUh2ZDktz31HDLS7QlOLqGhzR4vEZvgnbNh7Rr+c1oa+i5Q28LW2LQ +NtDaOLdy8mkb2hbo9uXyqNMdJivtYKYpcl21uxNtD7/P5s5eEHWhHeCPQTLt +F9GNdoQqqcWL2aUetBM8VOmlZ/L60Rzg0DH8zsRBtDNM8DM50gMf0S6QU3E+ +sU8+gnYFRa3YXtChR28Bg75rIbphFO0GiqXy9kLFGHor1MasqJ24n9Du0P1A +6pxTS+wBhqwWdv6ez2hPqDdeWZe1EXOhuJFJ2AwGk8ELDs6nWgW/QjNeoGZu +msvFRuw8GDfqZ7bfRzM8CGFEFiqLL9i94erC14aWXWjGG3R1ig10Ouk+sChW +2rHvke4Dzb7OmsRe0vlA9w5pmlZJ54M297uLg3Acuy8sJzlcCj6MZnxBln6E +7laSLoA43f6dsTrSBXDjRBSbNUC6H3i8l7LdV0n3g5WxJ2mlvAns/iDLrnHa +EYlm/CF7I2exPYN0IXRpW6m2UtKFMBqleu5YT7oI8nUjau0Y6SII8wxvMqyR +LoZqZuDXXt4kdjGU3BWo+2k0SODHRHK8OoV0CVSNJnwbzCU9AGJSspLNKkkP +AKvbjdyCDtID4dmkTYB2kvRAuCgdDo03m8IeBJV5FUm2XDQTBMKjb2XToVPU +X9S5NVs= + "]]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6], LineBox[CompressedData[" +1:eJw1yX8s1HEcx/E7ThzLb+dHPzgO5/w4LX8ws+/bRmGtH7ejov7x41r0Q4XR +Vl0WhkK1hNZ2t0w/Fl2IkR9Hd3RuhUl+XXLnKpviosyPdap5f97ba+899mQn +nxekmdBoNOrf/v+tG6fo5pPC5qx0ast6KvGx4dC4/Dr6O8Uar32jDa9AL1Hi +KpnkGa0avUI9yRBtOAul6HVqW/thw6OROrSRajAYLMskz9F0aL6x4mR58iXa +FLjuitqiy81oM4ADa1Ghila0OSQsaPg29q/RTLhyocCHUdmFtoKNuYzfnfQe +9HZ44CK1og/0om0gpkiiXitRbFlsC9Epqam3BX1oO5hoiko+5/4WbQ/3wnLd +GnUqtAP8yI9sMWtQox0hMzp40arkHdoJVJv5cYOSQTQLQjezhJw7w2hnaLk5 +15M4Mop2gUaFXYcjfRLtCnuYX/7U359Cu0HwMWWhNkOD3gFdZ4fmlhw+oXeC +UWcbr6on3gXiyL44Zdg0ejdUi/PUAjmxO4xqRBHxUZ+3DB6g7ui0iulGyz3A +OLauYrjNYGeDLqTZGCJAy9lQmnv0OKOEdE84YlNe2N9NuifkD49kM5dJ9wJZ +39WP/d5a7F7gnGJ9dyEeDRxYXSr+KS0gnQMsGHI0viLdG6bFeYOpetK9oWIs +27zKWofdB5Zlvx6+D0fLfcC78dtUkoh0X1hripU1lZPuC6y8+banbaRzgXlt +XhqhJZ0LTgf9fFctZrH7QULvAHuKj5b7wdcTrq1VQtJ5kCXcn3Qml3QeSLiJ +iy9qSPeHW5UXeZou0v0h7UNpjlZHegBYGNodTBh67AFwqUbPm+GgIRCKmcy9 +pvtID4QVs/lTp0WkB8Fsf2yJsYD0ILDJdy0qqyOdD8pMw2akknQ+NEzkUOk6 +PfUX0Ek+tw== + "]]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.009166666666666668], + AbsoluteThickness[1.6], LineBox[CompressedData[" +1:eJw1yQ0s1HEcx3EPM0+JRLg4d8cd5zhjlZrW/6th5rHSNbPGJuqOPGx1pZKx +47pkhdtCSY2tVBhNHnZbd5eHQiQaIeT5LJlMxES1+/6+22ffvfZmxqWeStDT +0dGh/u3/194XaiMlf7utLpXSeoYak0ufUM0S9CLl2Tg/dCGsEL1C3Widmki0 +e4Beo4K8k9tFehXoTWoipHjysegZepvKEl3RlfJq0Loguns2vFdRj9YH312q +pNdLDWgDsG2hC/MCm9GGID9XwB1oUKCNIfbyoKzlgBJtCox3Iysp0Wq0GdCD +FyzFjFa0OchurnrZL7RpnWUBPuvCTUZzB3oPHHsY5/xU+h5tCYKmyNC1E13o +vVBZTS1W0j6grcDvuubtn/EetDW4Lxey419+RO+DUSo5LehVH9oGVjkRvqFF +n9C2wORH9tSI+9F2cC+qPZ3bP4CmgXxOZptTOozeD7k53aUxJmNoe2i0zj9t +rCF2gNHOECo9exxNB/XvXFq8xQTaEURWkuKEYjQwYOmHe/kRs29aqxggvL9x +cD4EDUzYybhlEyAlnQlb/ApOrJJ0Fuhe2vn+aJ10FkQF1E378SaxO4GA1tlf +H4NWOYHXNcWWUQHpziCYO/rZQE26MxxvelEj/kk6GzJX7TVBjlPY2RBs2jHo +FYYGDmzOVym2rpLOgYzooXxxJekuQMllcdJe0l1ALTkclblOuiuIL1bF8enT +2F1BKEmsO+OPBi5EaLKECUmkc4FeIpgWF5HuBoll4fpFTaS7QZl3WrD5V9J5 +IIpfZi3skM4DfolDNZc1g90daOzZ0Tf+aJU7ONf6dJsISfeA8pHsX3m3SfeA +Q8MnF1afk86H0NrdYNRJOh/ilX315zWke0JwQJGyy3AWuyeUKwLvCDiz1F84 +ATis + "]]}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, {}, {}, {}, {}, {}, {}, {}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0.052083333333333336`, 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]], + ImageSize->{983., Automatic}, + Method->{ + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0.052083333333333336`, 15.875}, {0, 0.6609294624557724}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.778946374557211*^9, 3.7789464676677723`*^9, 3.778946508497999*^9, + 3.778946604369417*^9, {3.7789466690966673`*^9, 3.778946701500992*^9}, { + 3.778946731994258*^9, 3.778946749349575*^9}, 3.7789467962636337`*^9, + 3.778946833931172*^9, 3.778947082771483*^9, {3.778947327915792*^9, + 3.778947345892826*^9}, 3.778948029994212*^9, 3.7789481053151817`*^9, { + 3.778948692166095*^9, 3.7789487038141737`*^9}, 3.778953585064103*^9, + 3.778953624385591*^9, 3.778953682031535*^9, 3.778953746826598*^9, { + 3.77956194067076*^9, 3.779561968768979*^9}, 3.779624858106914*^9, { + 3.779624924084155*^9, 3.779624933643355*^9}, {3.779625037660088*^9, + 3.779625061656746*^9}, 3.779699807199407*^9, {3.779700827690935*^9, + 3.7797008596365232`*^9}, 3.7797009048423357`*^9, 3.779700941258234*^9, { + 3.779701005894755*^9, 3.779701033694045*^9}, 3.78008725076254*^9, + 3.780087374491346*^9, 3.780087426664627*^9, {3.780087476814011*^9, + 3.7800874839642763`*^9}}, + CellLabel->"Out[24]=",ExpressionUUID->"2a29681a-d1fe-4e5f-9729-68c4489a550c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"d", "[", + RowBox[{ + RowBox[{"Select", "[", + RowBox[{ + RowBox[{"#n", "\[Equal]", "20"}], "&"}], "]"}], ",", + RowBox[{ + RowBox[{"With", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"L", "=", + SuperscriptBox["#n", "2"]}], "}"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{"#1", ",", + RowBox[{"#2", "/", "L"}]}], "}"}], "&"}], "@@@", + RowBox[{"Cs", "[", "#", "]"}]}]}], "]"}], "&"}]}], "]"}], ",", + RowBox[{"Joined", "\[Rule]", "True"}], ",", + RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", + CellChangeTimes->{{3.779700477940461*^9, 3.77970048742832*^9}, { + 3.780087268580113*^9, 3.7800872686230392`*^9}, {3.780087382286021*^9, + 3.780087398738736*^9}, {3.7800877026590443`*^9, 3.780087726448501*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"60949ea9-18bb-4b5b-868e-6a12e7d013f6"], + +Cell[BoxData[ + GraphicsBox[{{}, {{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6], LineBox[CompressedData[" +1:eJw11HtM01cUB/AKoqwBZBQYrVQohUJ59gFlZo7fUYnoJjiRanAoOhyyhMIS +QAjhoWxmWwfTITBlEswMDt2gzOoEgQoVBLX0QUEQHQpThqNmILKB1Top557k +l/5xcz/3e869KeeTzPhPbWg0Wsqbb/E3XLxYRmrHBrOJ/TqRolnrIVX3zPPk +qLaQOpi6WBPU924fSywuxymtZrFMlPQOa2Pt2Wqq+tRizVBHxnNuv+9zluqz +rj+nitn0vdKsemqZ1Zun5k5XbVYuNFJL55mpJ2OsrdemLlJWPtVCKSvWRuW+ +9Ttl3a6hQaR+/fhxRQuu20DbF3aDkqNtmG857FugMWNzO/B8O7hqu10656pG +fyVEmW7uSl64jnntIX0y6VLSoW706FD93+6xsNwe9BxgfkX9DVlrL/Wj1XOE +87kZ3NJVt9FbBRaTeF3NBg3udwb5ld0Zt+734frb4Js+ZPT5RYueC9ipx1Yb +n+rwfBfgVDozW90NmJcBpo/2CEpPGKg0q+cKrlmFDrNDBvTcYLpt7z/7OvvR +c4db11eVdMYY0XMH12Mqp5F5I3rvQH5t2abtowPoeYAisKZr2+MB9Jgwu98t +49nwEHosiAxzNoZLJtFjgcuOgpvFUjtY8lbDRtP0+pcN0+h5gjlvm0Cd/gd6 +bHBhtDzu3km8NXCeFSPPvDKE978G/m07U/76ZT/O0wvqvrKzGCJIHm+IkSb4 +nmwYxPzesGWuxWO2fRA9DgSaeflp0UacNwfkTeWyzZUGfB8cKHIc8PHar0fP +B4o7sisf9OrR84HZle5/v/DWo8eFuOTBjj8L9Ohx4dEphX1eoR7754LMeCzW +MZx4vjDN/YudeFeHni9wH11+MCzVoecHBXJGmWqZDj0/oD+tqihqJ/ftB6LU +eedxiw49HmiVEtvmFSQfD6ZeZF+eSiL5/CF4rmyhJ4J4/nCRMh4MjSOeP+Qz +M5jL24kXAKzvqIhmPskXABZVQlZGMfH4wP+6oU7yinh8aM1RpuqOEI8PtvZO +VRx70m8gePEaNeGJxAuELrPMYeEQ6TcIytP5kY1FxAsCuuFVMBuIFwSKuAMX +xHuIFwzBuskv451Iv8HQntmlKmWTfCHgbz9SMexP7iMEZtTP6aY8ch8hcMY5 +8aeUKdJvKJhlW7wzfyD5QuFcKUMvDCJeGNAmaPqfGcQLA2/FZ7Uf2OrwPYZB +zFWTo1uydmk/UwCWUV7WvXHd0nvaKoAOz197RHLs97AAHrrHMtR38HylAGZC +5Mk2Wux/QgC/NQ2pMtdhHqYQvrnQJTvRqUVPCO9F8drOleL/wWEhxERvam1a +q0VPCC0BfIGvhnhCUOQ3869JcF5MEbSUvHt/wEA8EeRkpyRdKiGe6M18dp5W +iYkngnrVSO/nN7ToiUCebLznMUjyiSF+jpPs8SHxxBByoFutohNPDEcjxAl3 +a4knhl1p6W7f9vehJwZD9BOlvkZD/Q9wPq4r + "]]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6], LineBox[CompressedData[" +1:eJw90Q0slHEcB/ATksmSq+Q4584d55yTVpHTnl8X0yytNOta4rALa05UitmN +arI1sZizvLVpLiNmctZVOk4vwnHI2fRmnWRRWNx2i1Xz+/dsz5599t3v+395 +2MmZsfJNNBqN+vv++248k5T41Fx3ed9VasNmKroldNlHWYKep2byXjDyt95D +L1PzH34ZNw80oFcpi5U/kRjVjLZSwrHiqczSdvQ65d120+Kl6kTbACNvii7T +a9G2EBcQrCpP6UbbQ7HTktCrpAftAOEVMVKOVo92BLu5K2OJn16ineDhj+ns +lfuv0c6QfmF0RNrVj94GCzWBSV6NAxsucIEhU+F3g2kIvR2SNGUJjLphtCuY +juRkyUtH0HR4owo3xSuM6B1wVyyZrPIcRe+Exo7aB8fixtC7oP/4YlhICrEb +9Gmesc6UjaN3g7ktOXei9x3aHSw1P/v5Z6fRDJC9CgmO59rChj3g81pT6Ee1 +BXNPsPhffFv4aBLNhEiJm/PRVrI/L0ioVNS5OxCzgDnLnW6twfOAN4hiIzLE +DWidNxjcyrSKVJKzITdGWVmdg/ehY8NprUF2uQUNHLgjr4r66kjmOcCnqtl0 +iQFzH7CyFsfjltA6H1DervwycInkXLC6zCbSaKSfC+G5+9eK0kg/D+qb3g9H +KMg8D4aUCwdi95HcF1qzn/PoPfj/dL6wnmrfZZ4l/X6wfEgvEUeTfj8YLKiQ +bkkjOR9spIZvqSfJPB+KdUyu8AYa/EFf23y41kjW94fsazyTJJOsLwAoigxz +zSK5AIwl9JwnBaQ/ADzSBeeu3yJ5AOyZ2buy2kH6hdCZKhA9/p8LQczyszuo +If2B8FQ9qPatJ3kgMNoTmgs4pF8E1YrC9SgZ2b8I5Bn5J3q4JA8CVe9vRaea +zAeB+bwzUxNjoP4Ab0s0ug== + "]]}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, {}, {}, {}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, {}, {}, {}}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 19.9}, {0, 2.666747640711386}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.7797004888467417`*^9, {3.780087263365243*^9, 3.780087269048139*^9}, { + 3.780087378630178*^9, 3.780087399174458*^9}, {3.780087705097999*^9, + 3.780087726696293*^9}}, + CellLabel->"Out[28]=",ExpressionUUID->"1c27332b-7aa0-4f6c-9d7f-d912fe119acd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"a", "=", + RowBox[{ + "Import", "[", + "\"\<~/doc/research/hadamard/code/energies_24_0.200000_20.000000_100.dat\>\ +\"", "]"}]}], ";"}]], "Input", + CellChangeTimes->{{3.779699855009756*^9, 3.779699866112481*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"bb64ee8f-2ab2-44da-86d3-071e144df4ac"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListPlot", "[", "a", "]"}]], "Input", + CellChangeTimes->{{3.7796998674408073`*^9, 3.779699868848329*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"27200d6e-a8c7-4ded-bf66-0ba360a8d0c7"], + +Cell[BoxData[ + GraphicsBox[{{}, {{ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6], PointBox[{{1., 1.*^7}, {1., 1.*^7}}]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6], PointBox[CompressedData[" +1:eJw1y38w13cAx/FvrUkWKm7JaX5m5Ed+fP1qystX+NIX3y9fvnw1oqVrd8vO +OhX+4MZNxbo1scba6vyaHcPXTCzlaCXbMGFHJu3K3He5r/zKj7Tt+r4+d+/7 +3OP9fL8sk1Mjj64XCATv/Xf+/7/6NH7LF6c8/bNmOrQXyLPOzrOvpnWRteZe +vdpHb0FPxz1JywJtjIyKzvhM02dam8Bo9ESxzJc2w6GiqfsD8bQFLjZfM/n8 +DG0F/+ynf5ddom2wDgOJdvW0LcSNu2rRTdvhXHHITp0JejfSriSPFi3Sjrg+ +8qZaT39Wa2cMRo0PJ1nSLrD3FfVeF9KuSIrw7rIMpt1gcNc1qyaWdkdR2Bej +8cdpIZRiqYX4DO0BYanM9lQ+7Yl01QfdM8W0F1Tdwbd/Lqe9EXgzrGOtgfZB +f07V45J2ei8EzY2/Vd6j30G/2UqN1xDti/LWo0uBE/Q+vLyprhtU0/uR8yDZ +ZmWe9oOr0+Hlupc0IO/TMdbdNPfK2UDq93vSNVu1FvjjxU7zG4Wm7P5IsGrV +77JiF8Fju6Spdje7CGPJ5Qv73NgDkHIio6rQhz0AJQ0t1YVgP4C1HoUkIpj9 +AAy8TBTDYeyBcLyiFLnK2QMxNtOqc0PJHgQ9Pc2RqiPsQfjk0ccO8gz2YHxU +XzGe+w17MAIK7psKa9nFONvn4y1qYRfjsm7c9P529hCkmST13OlkD0HFbNcx +g7vsoXBwNvcY6WEPhUmTuPRQL/tBxIy9tun47+wHEffHG5WSQXYJCttz654P +s0vg7OM2lj/CHgbVZO/A4gP2MCz/MlQmHmcPhzD8VMfZCfZwfFnfmFn9F3sE +4nozXOsfs0fgV72Sa5cn2aX4c4Pw8MkprSHFjoW8HR5qvpei6XxJqfofrW9J +YWPkNH5hmnsZ3t7Yfdtaw70Mcw+XhitnuJchMdFo3GqWexkePTUwuDDHfSRW +f5r2npnnPhI1q51Pgha5j8SnitO9Rc+5j4TRpe7coSXuozDwoeHKlhXuo/BZ +ivvV8FXuo2C7N7u84AX3UXDRKNf617iX47TI/Lsgwbx2L4eNsi7CYL3W2XJM +nj9XnLpB61tyqFzc27bpai2IRqt7p1ypz3003r96rPmkMffR2BzTZvaVKffR +SE9osP3anPsYbN+cUBJozX0M7iSFfavZxX0M6oZKml634z4GoVWqgR/tuVfg +h4K0t/QduFcgty1z0c2RewWeqcvG7Zy4V8BmY9I6Q2fuYzFnq9j6hEYsIJhP +aNnDfSwe5kgN8124j4VFyjbVu67cxyHZzzNL4jbf8S8dmScE + "]]}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, {}, {}, {}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], + AbsoluteThickness[1.6]}, {}, {}, {}}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0., -4.400895677366526*^9}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0., 100.}, {-5.689886659390474*^9, -4.468737307999365*^9}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.7796998691208344`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"161e209e-ab11-4d64-99a1-d2cc4b5ffda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"16", "/", "64"}], "//", "N"}]], "Input", + CellChangeTimes->{{3.7796999517774973`*^9, 3.779699965625023*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"85d1832b-b409-4be7-b8d2-26df59eff8fb"], + +Cell[BoxData["0.25`"], "Output", + CellChangeTimes->{{3.779699954939776*^9, 3.779699966125688*^9}}, + CellLabel->"Out[12]=",ExpressionUUID->"5dbe4cc3-7c89-4c96-870e-625a9bf27876"] +}, Open ]] +}, +WindowSize->{1277, 1076}, +WindowMargins->{{Automatic, 2}, {Automatic, 2}}, +FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", +StyleDefinitions->"Default.nb" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 1782, 46, 124, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"], +Cell[2343, 68, 337, 7, 31, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"], +Cell[2683, 77, 668, 18, 59, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"], +Cell[3354, 97, 722, 18, 31, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"], +Cell[4079, 117, 804, 24, 31, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"], +Cell[4886, 143, 1753, 48, 55, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"], +Cell[6642, 193, 1968, 53, 83, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"], +Cell[8613, 248, 712, 20, 31, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"], +Cell[CellGroupData[{ +Cell[9350, 272, 1317, 33, 39, "Input",ExpressionUUID->"73943d9b-70f3-4562-ab84-3881106d7e0c"], +Cell[10670, 307, 6446, 123, 630, "Output",ExpressionUUID->"2a29681a-d1fe-4e5f-9729-68c4489a550c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17153, 435, 979, 25, 39, "Input",ExpressionUUID->"60949ea9-18bb-4b5b-868e-6a12e7d013f6"], +Cell[18135, 462, 4725, 95, 244, "Output",ExpressionUUID->"1c27332b-7aa0-4f6c-9d7f-d912fe119acd"] +}, Open ]], +Cell[22875, 560, 330, 8, 31, "Input",ExpressionUUID->"bb64ee8f-2ab2-44da-86d3-071e144df4ac"], +Cell[CellGroupData[{ +Cell[23230, 572, 207, 3, 31, "Input",ExpressionUUID->"27200d6e-a8c7-4ded-bf66-0ba360a8d0c7"], +Cell[23440, 577, 3276, 68, 214, "Output",ExpressionUUID->"161e209e-ab11-4d64-99a1-d2cc4b5ffda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26753, 650, 222, 4, 31, "Input",ExpressionUUID->"85d1832b-b409-4be7-b8d2-26df59eff8fb"], +Cell[26978, 656, 177, 2, 35, "Output",ExpressionUUID->"5dbe4cc3-7c89-4c96-870e-625a9bf27876"] +}, Open ]] +} +] +*) + diff --git a/weird_system.nb b/weird_system.nb new file mode 100644 index 0000000..3f86e5f --- /dev/null +++ b/weird_system.nb @@ -0,0 +1,1129 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 11.3' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 40434, 1119] +NotebookOptionsPosition[ 38199, 1074] +NotebookOutlinePosition[ 38534, 1089] +CellTagsIndexPosition[ 38491, 1086] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"H", "[", "\[Alpha]_", "]"}], "[", "M_", "]"}], ":=", + RowBox[{ + RowBox[{"-", + RowBox[{"Sqrt", "[", + RowBox[{"Length", "[", "M", "]"}], "]"}]}], + RowBox[{"Total", "[", + RowBox[{"Flatten", "@", + SuperscriptBox[ + RowBox[{"Abs", "[", "M", "]"}], "\[Alpha]"]}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.7342716312099323`*^9, 3.734271669554571*^9}, { + 3.734271757134116*^9, 3.734271786252825*^9}, 3.7342719075284567`*^9, { + 3.734272098689764*^9, 3.7342721527262774`*^9}, {3.73427470566724*^9, + 3.7342747105637836`*^9}}, + CellLabel->"In[64]:=",ExpressionUUID->"cac6654a-3c27-42b6-bbd5-5239c5df5c3b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"metroStep", "[", + RowBox[{"\[Beta]_", ",", "H_", ",", "\[Delta]_"}], "]"}], "[", "M_", + "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"RandomReal", "[", "]"}], "<", + RowBox[{"Exp", "[", + RowBox[{ + RowBox[{"-", "\[Beta]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"H", "[", "#", "]"}], "-", + RowBox[{"H", "[", "M", "]"}]}], ")"}]}], "]"}]}], ",", "#", ",", + "M"}], "]"}], "&"}], "@", + RowBox[{"(", + RowBox[{ + RowBox[{"RotationMatrix", "[", + RowBox[{"\[Delta]", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"RandomVariate", "[", + RowBox[{ + RowBox[{"NormalDistribution", "[", "]"}], ",", + RowBox[{"Length", "[", "M", "]"}]}], "]"}], ",", + RowBox[{"RandomVariate", "[", + RowBox[{ + RowBox[{"NormalDistribution", "[", + RowBox[{"0", ",", "\[Delta]"}], "]"}], ",", + RowBox[{"Length", "[", "M", "]"}]}], "]"}]}], "}"}]}], "]"}], ".", + "M"}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.734272867895825*^9, 3.734272943942663*^9}, { + 3.7342730534804497`*^9, 3.734273127233576*^9}, 3.734273158298628*^9, { + 3.734273189842609*^9, 3.7342731907711067`*^9}, {3.73427336373703*^9, + 3.734273367014591*^9}, {3.734273414425611*^9, 3.734273418183498*^9}, + 3.7342734529306*^9, {3.734274581545105*^9, 3.734274621274729*^9}, { + 3.73427466158144*^9, 3.734274677227866*^9}, {3.734274801271907*^9, + 3.734274818100624*^9}}, + CellLabel->"In[80]:=",ExpressionUUID->"19d4accf-8194-401d-8675-3877ed3ddff3"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"metroRun", "[", "n_", "]"}], "[", + RowBox[{"\[Beta]_", ",", "H_", ",", "\[Delta]_"}], "]"}], "[", "M_", + "]"}], ":=", + RowBox[{"Nest", "[", + RowBox[{ + RowBox[{"metroStep", "[", + RowBox[{"\[Beta]", ",", "H", ",", "\[Delta]"}], "]"}], ",", "M", ",", + "n"}], "]"}]}]], "Input", + CellChangeTimes->{{3.734273210708605*^9, 3.73427327014806*^9}, { + 3.734285605976254*^9, 3.734285612166654*^9}}, + CellLabel->"In[93]:=",ExpressionUUID->"d2362d48-1e47-4024-84eb-f7df8b2144b8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"data", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"metroStep", "[", + RowBox[{"1", ",", + RowBox[{"H", "[", "1", "]"}], ",", "0.2"}], "]"}], "[", + RowBox[{"IdentityMatrix", "[", "4", "]"}], "]"}], "}"}]}]], "Input", + CellChangeTimes->{{3.734274626852656*^9, 3.734274641458256*^9}, { + 3.734274805719406*^9, 3.734274808884956*^9}, {3.734287938167347*^9, + 3.7342879424533854`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"c9d601ae-0194-4ee1-8bb9-1d47a0e08241"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0.9894335592089142`", ",", "0.11383926607460329`", ",", + RowBox[{"-", "0.054638913910017725`"}], ",", + RowBox[{"-", "0.07124915787228168`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.11177863228621562`"}], ",", "0.9877751298731109`", ",", + "0.09719473382689221`", ",", + RowBox[{"-", "0.04856968071442663`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.07058800047857862`", ",", + RowBox[{"-", "0.0852908485761985`"}], ",", "0.9902464183860918`", ",", + "0.08458626490811345`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.05953237324212077`", ",", "0.06376821663576948`", ",", + RowBox[{"-", "0.08354521935198095`"}], ",", "0.9926780482143663`"}], + "}"}]}], "}"}], "}"}]], "Output", + CellChangeTimes->{ + 3.734274641697309*^9, 3.734274681366783*^9, 3.734274715235586*^9, { + 3.7342748095363417`*^9, 3.7342748192959623`*^9}, 3.7342879427917843`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"002a6413-df1b-4458-aa32-43b079bd8dee"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"data", "=", + RowBox[{ + RowBox[{"NestList", "[", + RowBox[{ + RowBox[{ + RowBox[{"metroRun", "[", "40", "]"}], "[", + RowBox[{"10", ",", + RowBox[{"H", "[", "2", "]"}], ",", "0.5"}], "]"}], ",", + RowBox[{"data", "[", + RowBox[{"[", + RowBox[{"-", "1"}], "]"}], "]"}], ",", "5000"}], "]"}], "[", + RowBox[{"[", + RowBox[{"5", ";;"}], "]"}], "]"}]}], ";"}]], "Input", + CellChangeTimes->{{3.7342732719025373`*^9, 3.734273305620448*^9}, { + 3.734273534615774*^9, 3.7342735363594418`*^9}, {3.734273707702042*^9, + 3.734273744859934*^9}, {3.7342737891908092`*^9, 3.734273882134091*^9}, { + 3.7342740010182257`*^9, 3.734274001240144*^9}, {3.7342741839813137`*^9, + 3.734274193498411*^9}, {3.7342743177916317`*^9, 3.734274318053464*^9}, { + 3.734274440321534*^9, 3.734274477154084*^9}, {3.7342745106187153`*^9, + 3.734274525458152*^9}, {3.734274753280533*^9, 3.7342747572515373`*^9}, { + 3.734274873496624*^9, 3.7342748749184723`*^9}, {3.7342749167040253`*^9, + 3.734274916789953*^9}, {3.7342855859334106`*^9, 3.734285618831058*^9}, { + 3.734288985024776*^9, 3.734288990982616*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"b09286f6-c846-44a0-80a1-7b04a057b628"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Histogram", "[", + RowBox[{ + RowBox[{ + RowBox[{"H", "[", "2", "]"}], "/@", "data"}], "/", + SuperscriptBox["4", "2"]}], "]"}]], "Input", + CellChangeTimes->{{3.734273752373975*^9, 3.73427376143603*^9}, { + 3.734273843840104*^9, 3.7342738442696733`*^9}, {3.7342747278700113`*^9, + 3.734274728899703*^9}, {3.7342878512782087`*^9, 3.7342879137088537`*^9}, { + 3.734288766802822*^9, 3.734288772339603*^9}, 3.734288950921043*^9, { + 3.734289062722124*^9, 3.7342890628556347`*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"78504373-95bf-4da0-82a1-e5822cb71c01"], + +Cell[BoxData[ + GraphicsBox[{ + {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ + Opacity[0.574], Thickness[Small]}], {}, + {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ + Opacity[0.574], Thickness[Small]}], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000019, 0}, {-0.500000000018, 101.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{30.17578125, 50.76171875}, {34.95624234768917, + 90.50980111011306}}], + StatusArea[#, 101]& , + TagBoxNote->"101"], + StyleBox["101", {}, StripOnInput -> False]], + Annotation[#, + Style[101, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000018, 0}, {-0.500000000017, 346.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{50.26171875, 70.849609375}, {-98.5895190067054, + 90.50980111011306}}], + StatusArea[#, 346]& , + TagBoxNote->"346"], + StyleBox["346", {}, StripOnInput -> False]], + Annotation[#, + Style[346, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000017, 0}, {-0.500000000016, 353.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{70.349609375, 90.935546875}, {-102.40511218825954`, + 90.50980111011306}}], + StatusArea[#, 353]& , + TagBoxNote->"353"], + StyleBox["353", {}, StripOnInput -> False]], + Annotation[#, + Style[353, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000016, 0}, {-0.500000000015, 343.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{90.435546875, 111.021484375}, {-96.95426478603936, + 90.50980111011306}}], + StatusArea[#, 343]& , + TagBoxNote->"343"], + StyleBox["343", {}, StripOnInput -> False]], + Annotation[#, + Style[343, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000015, 0}, {-0.500000000014, 346.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{110.521484375, 131.107421875}, {-98.5895190067054, + 90.50980111011306}}], + StatusArea[#, 346]& , + TagBoxNote->"346"], + StyleBox["346", {}, StripOnInput -> False]], + Annotation[#, + Style[346, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000014, 0}, {-0.500000000013, 344.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{130.607421875, 151.193359375}, {-97.49934952626138, + 90.50980111011306}}], + StatusArea[#, 344]& , + TagBoxNote->"344"], + StyleBox["344", {}, StripOnInput -> False]], + Annotation[#, + Style[344, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000013, 0}, {-0.500000000012, 342.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{150.693359375, 171.28125}, {-96.40918004581734, + 90.50980111011306}}], + StatusArea[#, 342]& , + TagBoxNote->"342"], + StyleBox["342", {}, StripOnInput -> False]], + Annotation[#, + Style[342, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000012, 0}, {-0.500000000011, 345.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{170.78125, 191.3671875}, {-98.04443426648338, + 90.50980111011306}}], + StatusArea[#, 345]& , + TagBoxNote->"345"], + StyleBox["345", {}, StripOnInput -> False]], + Annotation[#, + Style[345, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000011, 0}, {-0.50000000001, 353.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{190.8671875, 211.453125}, {-102.40511218825954`, + 90.50980111011306}}], + StatusArea[#, 353]& , + TagBoxNote->"353"], + StyleBox["353", {}, StripOnInput -> False]], + Annotation[#, + Style[353, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.50000000001, 0}, {-0.500000000009, 347.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{210.953125, 231.5390625}, {-99.13460374692743, + 90.50980111011306}}], + StatusArea[#, 347]& , + TagBoxNote->"347"], + StyleBox["347", {}, StripOnInput -> False]], + Annotation[#, + Style[347, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000009, 0}, {-0.500000000008, 348.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{231.0390625, 251.625}, {-99.67968848714945, + 90.50980111011306}}], + StatusArea[#, 348]& , + TagBoxNote->"348"], + StyleBox["348", {}, StripOnInput -> False]], + Annotation[#, + Style[348, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000008, 0}, {-0.500000000007, 347.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{251.125, 271.712890625}, {-99.13460374692743, + 90.50980111011306}}], + StatusArea[#, 347]& , + TagBoxNote->"347"], + StyleBox["347", {}, StripOnInput -> False]], + Annotation[#, + Style[347, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000007, 0}, {-0.500000000006, 343.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{271.212890625, 291.796875}, {-96.95426478603936, + 90.50980111011306}}], + StatusArea[#, 343]& , + TagBoxNote->"343"], + StyleBox["343", {}, StripOnInput -> False]], + Annotation[#, + Style[343, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000006, 0}, {-0.500000000005, 344.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{291.296875, 311.8828125}, {-97.49934952626138, + 90.50980111011306}}], + StatusArea[#, 344]& , + TagBoxNote->"344"], + StyleBox["344", {}, StripOnInput -> False]], + Annotation[#, + Style[344, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000005, 0}, {-0.500000000004, 346.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{311.3828125, 331.96875}, {-98.5895190067054, + 90.50980111011306}}], + StatusArea[#, 346]& , + TagBoxNote->"346"], + StyleBox["346", {}, StripOnInput -> False]], + Annotation[#, + Style[346, {}], "Tooltip"]& ], + TagBox[ + TooltipBox[ + TagBox[ + DynamicBox[{ + FEPrivate`If[ + CurrentValue["MouseOver"], + EdgeForm[{ + GrayLevel[0.5], + AbsoluteThickness[1.5], + Opacity[0.66]}], {}, {}], + + RectangleBox[{-0.500000000004, 0}, {-0.500000000003, 49.}, + "RoundingRadius" -> 0]}, + ImageSizeCache->{{331.46875, 352.0546875}, {63.30064883923414, + 90.50980111011306}}], + StatusArea[#, 49]& , + TagBoxNote->"49"], + StyleBox["49", {}, StripOnInput -> False]], + Annotation[#, + Style[49, {}], + "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ +{}, {}, {}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{-0.50000000001932, 0}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + PlotRange->{{-0.500000000019, -0.500000000003}, {All, All}}, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.734273761777768*^9, 3.734273884833589*^9}, + 3.734274004165744*^9, {3.7342741873550997`*^9, 3.734274200692301*^9}, + 3.734274323949729*^9, {3.7342744516925364`*^9, 3.7342745452507067`*^9}, + 3.734274687792594*^9, {3.7342747227550697`*^9, 3.7342747292049713`*^9}, + 3.7342747824257727`*^9, 3.734274842614546*^9, 3.7342748973582373`*^9, + 3.734274958534041*^9, 3.734287658450778*^9, {3.734287856214024*^9, + 3.734287884218719*^9}, 3.734287914640992*^9, 3.734288250350131*^9, { + 3.734288767453093*^9, 3.7342887727803373`*^9}, 3.734288951631302*^9, + 3.734289022685177*^9, 3.734289063156498*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"46945c0b-e240-4c95-a92c-0c4d9ab027bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"1", "+", + RowBox[{ + RowBox[{"Mean", "[", + RowBox[{ + RowBox[{"H", "[", "1", "]"}], "/@", "data"}], "]"}], "/", + SuperscriptBox["4", "2"]}]}]], "Input", + CellChangeTimes->{{3.734273895200355*^9, 3.734273899086282*^9}, { + 3.734274175722883*^9, 3.734274176138234*^9}, {3.734274734703082*^9, + 3.734274740756043*^9}, {3.734274962847492*^9, 3.734274963568054*^9}, + 3.734288955633256*^9}, + CellLabel-> + "In[110]:=",ExpressionUUID->"97f199bc-0af4-44b6-aa4a-fcb6cd45e868"], + +Cell[BoxData["0.018554016903542525`"], "Output", + CellChangeTimes->{ + 3.7342738992890987`*^9, 3.734274005102474*^9, {3.7342741763677053`*^9, + 3.734274201476615*^9}, 3.73427432516159*^9, {3.7342744529386673`*^9, + 3.734274515900497*^9}, 3.734274546217537*^9, 3.734274689505424*^9, { + 3.734274723753941*^9, 3.734274741243452*^9}, 3.734274783331256*^9, + 3.734274846195489*^9, 3.734274910563336*^9, 3.734274964016556*^9, + 3.734287660285326*^9, 3.734288731274395*^9, 3.734288956152451*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"0d8d0d0e-edfa-449a-bb6b-bdeff666bd45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"H", "[", "1", "]"}], "[", + RowBox[{"IdentityMatrix", "[", "12", "]"}], "]"}], "/", + SuperscriptBox["12", "2"]}], "//", "N"}]], "Input", + CellChangeTimes->{{3.734288925327345*^9, 3.734288938277343*^9}}, + CellLabel-> + "In[108]:=",ExpressionUUID->"174a3e7f-be6f-47e2-8dab-4d7035aaccc1"], + +Cell[BoxData[ + RowBox[{"-", "0.2886751345948129`"}]], "Output", + CellChangeTimes->{{3.7342889337709303`*^9, 3.7342889384536867`*^9}}, + CellLabel-> + "Out[108]=",ExpressionUUID->"11e30345-b1c9-47bd-90e5-22985ea861c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"t1", "=", + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{"Total", "[", + RowBox[{"Flatten", "[", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"RotationMatrix", "[", "\[Theta]", "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]", "\[Element]", "Reals"}], ",", + RowBox[{"\[Epsilon]", "\[Element]", "Reals"}]}], "}"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.734289182979594*^9, 3.734289291611445*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"1b4380fb-27f4-452b-bb0b-712dad575f2f"], + +Cell[BoxData[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"Sin", "[", "\[Theta]", "]"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]]}], ")"}]}]], "Output", + CellChangeTimes->{{3.7342891874014263`*^9, 3.734289292101226*^9}}, + CellLabel-> + "Out[124]=",ExpressionUUID->"49bc1d2c-058f-4279-988d-355c973860cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{"Series", "[", + RowBox[{"t1", ",", + RowBox[{"{", + RowBox[{"\[Epsilon]", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", "\[Element]", "Reals"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.73428929267728*^9, 3.734289312380084*^9}, { + 3.734289446985054*^9, 3.734289447589985*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"2a832002-adf6-4c60-bb56-92e9cf4c32f6"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"2", "-", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"], " ", + RowBox[{"Log", "[", + RowBox[{"Abs", "[", + RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}], "]"}]}], "+", + RowBox[{ + RowBox[{"Log", "[", + RowBox[{"Abs", "[", + RowBox[{"Sin", "[", "\[Theta]", "]"}], "]"}], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", + "\[Epsilon]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"], " ", + SuperscriptBox[ + RowBox[{"Log", "[", + RowBox[{"Abs", "[", + RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}], "]"}], "2"]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"Log", "[", + RowBox[{"Abs", "[", + RowBox[{"Sin", "[", "\[Theta]", "]"}], "]"}], "]"}], "2"], " ", + SuperscriptBox[ + RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", + SuperscriptBox["\[Epsilon]", "2"]}], "+", + InterpretationBox[ + SuperscriptBox[ + RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"], + SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1], + Editable->False]}], + SeriesData[$CellContext`\[Epsilon], 0, { + 2, (-2) (Cos[$CellContext`\[Theta]]^2 Log[ + Abs[ + Cos[$CellContext`\[Theta]]]] + Log[ + Abs[ + Sin[$CellContext`\[Theta]]]] Sin[$CellContext`\[Theta]]^2), + Cos[$CellContext`\[Theta]]^2 Log[ + Abs[ + Cos[$CellContext`\[Theta]]]]^2 + Log[ + Abs[ + Sin[$CellContext`\[Theta]]]]^2 Sin[$CellContext`\[Theta]]^2}, 0, 3, + 1], + Editable->False]], "Output", + CellChangeTimes->{{3.734289299725992*^9, 3.7342893131931143`*^9}, + 3.7342894487288523`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"a27ce88a-34bd-4f78-ad90-ce5d10de1040"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"T", "[", "n_", "]"}], ":=", + RowBox[{"Total", "[", + RowBox[{ + RowBox[{ + RowBox[{"ArrayPad", "[", + RowBox[{ + RowBox[{"RotationMatrix", "[", + RowBox[{"\[Theta]", "[", "#", "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"2", + RowBox[{"(", + RowBox[{"#", "-", "1"}], ")"}]}], ",", + RowBox[{"2", + RowBox[{"(", + RowBox[{"n", "-", "#", "-", "1"}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"2", + RowBox[{"(", + RowBox[{"#", "-", "1"}], ")"}]}], ",", + RowBox[{"2", + RowBox[{"(", + RowBox[{"n", "-", "#", "-", "1"}], ")"}]}]}], "}"}]}], "}"}]}], + "]"}], "&"}], "/@", + RowBox[{"Range", "[", "n", "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.734358435933256*^9, 3.7343584643533373`*^9}, { + 3.734358523955289*^9, 3.7343586601426973`*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"180ef9a5-3287-46d1-ae4b-ae9e85480093"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{"(", + RowBox[{ + RowBox[{"Transpose", "[", + RowBox[{"Array", "[", + RowBox[{"p", ",", + RowBox[{"{", + RowBox[{"10", ",", "10"}], "}"}]}], "]"}], "]"}], ".", + RowBox[{"T", "[", "6", "]"}], ".", + RowBox[{"Array", "[", + RowBox[{"p", ",", + RowBox[{"{", + RowBox[{"10", ",", "10"}], "}"}]}], "]"}]}], ")"}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "//", "Total"}]], "Input", + CellChangeTimes->{{3.734358661015789*^9, 3.734358807664146*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"e2107056-243c-408e-8546-20a935f61e1d"], + +Cell[BoxData[ + InterpretationBox[ + TagBox[ + FrameBox[GridBox[{ + { + ItemBox[ + TagBox[ + RowBox[{"{", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"2", ",", "1"}], "]"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Theta]", "[", "1", "]"}], "]"}], " ", + RowBox[{"p", "[", + RowBox[{"2", ",", "1"}], "]"}]}], "-", + RowBox[{ + RowBox[{"p", "[", + RowBox[{"1", ",", "1"}], "]"}], " ", + RowBox[{"Sin", "[", + RowBox[{"\[Theta]", "[", "1", "]"}], "]"}]}]}], ")"}]}], + "+", + TemplateBox[{"8"}, + "OutputSizeLimit`Skeleton"], "+", + RowBox[{ + RowBox[{"p", "[", + RowBox[{"9", ",", "1"}], "]"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Theta]", "[", "5", "]"}], "]"}], " ", + RowBox[{"p", "[", + RowBox[{"9", ",", "1"}], "]"}]}], "+", + RowBox[{ + RowBox[{"p", "[", + RowBox[{"10", ",", "1"}], "]"}], " ", + RowBox[{"Sin", "[", + RowBox[{"\[Theta]", "[", "5", "]"}], "]"}]}]}], ")"}]}]}], + "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"2", ",", "1"}], "]"}], " ", + RowBox[{"(", + TemplateBox[{"1"}, + "OutputSizeLimit`Skeleton"], ")"}]}], "+", + TemplateBox[{"8"}, + "OutputSizeLimit`Skeleton"], "+", + RowBox[{ + RowBox[{"p", "[", + RowBox[{"9", ",", "1"}], "]"}], " ", + RowBox[{"(", + TemplateBox[{"1"}, + "OutputSizeLimit`Skeleton"], ")"}]}]}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + TemplateBox[{"1"}, + "OutputSizeLimit`Skeleton"], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + TemplateBox[{"4"}, + "OutputSizeLimit`Skeleton"], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + TemplateBox[{"1"}, + "OutputSizeLimit`Skeleton"], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + TemplateBox[{"1"}, + "OutputSizeLimit`Skeleton"], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]], "+", + SuperscriptBox[ + RowBox[{"Abs", "[", + RowBox[{ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"2", ",", "1"}], "]"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"Cos", "[", + RowBox[{"\[Theta]", "[", "1", "]"}], "]"}], " ", + RowBox[{"p", "[", + RowBox[{"2", ",", "10"}], "]"}]}], "-", + RowBox[{ + RowBox[{"p", "[", + RowBox[{"1", ",", "10"}], "]"}], " ", + RowBox[{"Sin", "[", + RowBox[{"\[Theta]", "[", "1", "]"}], "]"}]}]}], ")"}]}], + "+", + TemplateBox[{"8"}, + "OutputSizeLimit`Skeleton"], "+", + RowBox[{ + RowBox[{"p", "[", + RowBox[{"9", ",", "1"}], "]"}], " ", + RowBox[{"(", + TemplateBox[{"1"}, + "OutputSizeLimit`Skeleton"], ")"}]}]}], "]"}], + RowBox[{"2", "-", "\[Epsilon]"}]]}], ",", + TemplateBox[{"8"}, + "OutputSizeLimit`Skeleton"], ",", + TemplateBox[{"1"}, + "OutputSizeLimit`Skeleton"]}], "}"}], + Short[#, 5]& ], + BaseStyle->{Deployed -> False}, + StripOnInput->False]}, + {GridBox[{ + { + TagBox[ + TooltipBox[ + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource[ + "FEStrings", "sizeBriefExplanation"], StandardForm], + ImageSizeCache->{61., {2., 8.}}], + StripOnInput->False, + DynamicUpdating->True], "OSLText", + StripOnInput->False], + StyleBox[ + DynamicBox[ + ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], + StandardForm]], DynamicUpdating -> True, StripOnInput -> + False]], + Annotation[#, + Style[ + Dynamic[ + FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], + DynamicUpdating -> True], "Tooltip"]& ], + ButtonBox[ + PaneSelectorBox[{False-> + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], + StandardForm], + ImageSizeCache->{54., {0., 8.}}], + StripOnInput->False, + DynamicUpdating->True], "OSLControl", + StripOnInput->False], True-> + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], + StandardForm]], + StripOnInput->False, + DynamicUpdating->True], "OSLControlActive", + StripOnInput->False]}, Dynamic[ + CurrentValue["MouseOver"]], + Alignment->Center, + FrameMargins->0, + ImageSize->{Automatic, 25}], + Appearance->None, + BaselinePosition->Baseline, + + ButtonFunction:>OutputSizeLimit`ButtonFunction[ + OutputSizeLimit`Defer, 141, 30935294013293723379, 5/2], + Enabled->True, + Evaluator->Automatic, + Method->"Queued"], + ButtonBox[ + PaneSelectorBox[{False-> + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], + StandardForm], + ImageSizeCache->{61., {0., 8.}}], + StripOnInput->False, + DynamicUpdating->True], "OSLControl", + StripOnInput->False], True-> + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], + StandardForm]], + StripOnInput->False, + DynamicUpdating->True], "OSLControlActive", + StripOnInput->False]}, Dynamic[ + CurrentValue["MouseOver"]], + Alignment->Center, + FrameMargins->0, + ImageSize->{Automatic, 25}], + Appearance->None, + BaselinePosition->Baseline, + + ButtonFunction:>OutputSizeLimit`ButtonFunction[ + OutputSizeLimit`Defer, 141, 30935294013293723379, 5 2], + Enabled->True, + Evaluator->Automatic, + Method->"Queued"], + ButtonBox[ + PaneSelectorBox[{False-> + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], + StandardForm], + ImageSizeCache->{46., {0., 8.}}], + StripOnInput->False, + DynamicUpdating->True], "OSLControl", + StripOnInput->False], True-> + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], + StandardForm]], + StripOnInput->False, + DynamicUpdating->True], "OSLControlActive", + StripOnInput->False]}, Dynamic[ + CurrentValue["MouseOver"]], + Alignment->Center, + FrameMargins->0, + ImageSize->{Automatic, 25}], + Appearance->None, + BaselinePosition->Baseline, + + ButtonFunction:>OutputSizeLimit`ButtonFunction[ + OutputSizeLimit`Defer, 141, 30935294013293723379, Infinity], + Enabled->True, + Evaluator->Automatic, + Method->"Queued"], + ButtonBox[ + PaneSelectorBox[{False-> + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], + StandardForm], + ImageSizeCache->{83., {0., 8.}}], + StripOnInput->False, + DynamicUpdating->True], "OSLControl", + StripOnInput->False], True-> + StyleBox[ + StyleBox[ + DynamicBox[ToBoxes[ + FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], + StandardForm]], + StripOnInput->False, + DynamicUpdating->True], "OSLControlActive", + StripOnInput->False]}, Dynamic[ + CurrentValue["MouseOver"]], + Alignment->Center, + FrameMargins->0, + ImageSize->{Automatic, 25}], + Appearance->None, + BaselinePosition->Baseline, + ButtonFunction:>FrontEndExecute[{ + FrontEnd`SetOptions[ + FrontEnd`$FrontEnd, + FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], + FrontEnd`FrontEndToken["PreferencesDialog"]}], + Evaluator->None, + Method->"Preemptive"]} + }, + AutoDelete->False, + FrameStyle->GrayLevel[0.85], + GridBoxDividers->{"Columns" -> {False, {True}}}, + GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings->{"Columns" -> {{2}}}]} + }, + DefaultBaseStyle->"Column", + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, + "RowsIndexed" -> {}}, + GridBoxItemSize->{ + "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, + "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.5599999999999999]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], + Offset[1.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + BaseStyle->"OutputSizeLimit", + FrameMargins->{{12, 12}, {0, 15}}, + FrameStyle->GrayLevel[0.85], + RoundingRadius->5, + StripOnInput->False], + Deploy, + DefaultBaseStyle->"Deploy"], + If[30935294013293723379 === $SessionID, + Out[141], Message[ + MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; + Null]]], "Output", + CellChangeTimes->{{3.734358662284535*^9, 3.73435870049967*^9}, { + 3.734358744797121*^9, 3.734358807935054*^9}}, + CellLabel-> + "Out[141]=",ExpressionUUID->"f7409e5e-82fc-4b61-b8cb-344a548f2b33"] +}, Open ]] +}, +WindowSize->{932, 1044}, +WindowMargins->{{18, Automatic}, {Automatic, 18}}, +FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", +StyleDefinitions->"Default.nb" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 678, 16, 34, "Input",ExpressionUUID->"cac6654a-3c27-42b6-bbd5-5239c5df5c3b"], +Cell[1239, 38, 1684, 43, 78, "Input",ExpressionUUID->"19d4accf-8194-401d-8675-3877ed3ddff3"], +Cell[2926, 83, 551, 14, 31, "Input",ExpressionUUID->"d2362d48-1e47-4024-84eb-f7df8b2144b8"], +Cell[CellGroupData[{ +Cell[3502, 101, 504, 12, 31, "Input",ExpressionUUID->"c9d601ae-0194-4ee1-8bb9-1d47a0e08241"], +Cell[4009, 115, 1103, 25, 59, "Output",ExpressionUUID->"002a6413-df1b-4458-aa32-43b079bd8dee"] +}, Open ]], +Cell[5127, 143, 1253, 26, 31, "Input",ExpressionUUID->"b09286f6-c846-44a0-80a1-7b04a057b628"], +Cell[CellGroupData[{ +Cell[6405, 173, 594, 12, 39, "Input",ExpressionUUID->"78504373-95bf-4da0-82a1-e5822cb71c01"], +Cell[7002, 187, 12109, 354, 238, "Output",ExpressionUUID->"46945c0b-e240-4c95-a92c-0c4d9ab027bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19148, 546, 510, 12, 36, "Input",ExpressionUUID->"97f199bc-0af4-44b6-aa4a-fcb6cd45e868"], +Cell[19661, 560, 581, 9, 35, "Output",ExpressionUUID->"0d8d0d0e-edfa-449a-bb6b-bdeff666bd45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20279, 574, 351, 9, 36, "Input",ExpressionUUID->"174a3e7f-be6f-47e2-8dab-4d7035aaccc1"], +Cell[20633, 585, 216, 4, 35, "Output",ExpressionUUID->"11e30345-b1c9-47bd-90e5-22985ea861c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20886, 594, 638, 17, 39, "Input",ExpressionUUID->"1b4380fb-27f4-452b-bb0b-712dad575f2f"], +Cell[21527, 613, 518, 14, 40, "Output",ExpressionUUID->"49bc1d2c-058f-4279-988d-355c973860cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22082, 632, 486, 12, 31, "Input",ExpressionUUID->"2a832002-adf6-4c60-bb56-92e9cf4c32f6"], +Cell[22571, 646, 2012, 58, 67, "Output",ExpressionUUID->"a27ce88a-34bd-4f78-ad90-ce5d10de1040"] +}, Open ]], +Cell[24598, 707, 1126, 33, 55, "Input",ExpressionUUID->"180ef9a5-3287-46d1-ae4b-ae9e85480093"], +Cell[CellGroupData[{ +Cell[25749, 744, 678, 19, 33, "Input",ExpressionUUID->"e2107056-243c-408e-8546-20a935f61e1d"], +Cell[26430, 765, 11753, 306, 219, "Output",ExpressionUUID->"f7409e5e-82fc-4b61-b8cb-344a548f2b33"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + -- cgit v1.2.3-70-g09d2