summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJaron Kent-Dobias <jaron@kent-dobias.com>2019-10-14 20:27:43 -0400
committerJaron Kent-Dobias <jaron@kent-dobias.com>2019-10-14 20:27:43 -0400
commit046b292abd7ce75e8491f33fd5ab8d949c202885 (patch)
tree0263c0e46974b30763e1eb442e01b34dd570ef1e
downloadmma-046b292abd7ce75e8491f33fd5ab8d949c202885.tar.gz
mma-046b292abd7ce75e8491f33fd5ab8d949c202885.tar.bz2
mma-046b292abd7ce75e8491f33fd5ab8d949c202885.zip
initialized repo
Diffstat
-rw-r--r--orthogonal.nb3029
-rw-r--r--tempering_analysis.nb706
-rw-r--r--weird_system.nb1129
3 files changed, 4864 insertions, 0 deletions
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[{"\"\<n\>\"", "\[Rule]",
+ RowBox[{"metadata", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ",",
+ RowBox[{"\"\<\[Beta]0\>\"", "\[Rule]",
+ RowBox[{"metadata", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",",
+ RowBox[{"\"\<\[Beta]f\>\"", "\[Rule]",
+ RowBox[{"metadata", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"\"\<n\[Beta]\>\"", "\[Rule]",
+ RowBox[{"metadata", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], ",",
+ RowBox[{"\"\<As\>\"", "\[Rule]",
+ RowBox[{
+ RowBox[{"Rest", "[", "data", "]"}], "/",
+ RowBox[{"First", "[",
+ RowBox[{"First", "[", "data", "]"}], "]"}]}]}]}], "|>"}]}], "]"}],
+ "&"}], "/@",
+ RowBox[{"FileNames", "[",
+ RowBox[{"FileNameJoin", "[",
+ RowBox[{"{",
+ RowBox[{"dir", ",", "\"\<probs_*.dat\>\""}], "}"}], "]"}], "]"}]}],
+ "]"}]}]], "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", "[", "\"\<n\[Beta]\>\"", "]"}], "-", "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", "[", "\"\<As\>\"", "]"}]}]}], "}"}]}], "]"}]}]], "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", "[", "\"\<As\>\"", "]"}]}]}], "}"}]}], "]"}]}],
+ "]"}]}]], "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 *)
+