wball/Circle-Packings
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
Circle-Packings/root_tuple.nb
William Ball 28b6241466 platonic solids; dodecahedron being weird
2021-08-07 09:24:22 -07:00

2349 lines
92 KiB
Mathematica
Raw Blame History

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 94420, 2341]
NotebookOptionsPosition[ 92684, 2306]
NotebookOutlinePosition[ 93077, 2322]
CellTagsIndexPosition[ 93034, 2319]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
My growing list of utility functions I keep copy and pasting everywhere\
\>", "Text",
CellChangeTimes->{{3.836775550885043*^9,
3.8367755620440617`*^9}},ExpressionUUID->"30527bb2-1c83-410b-a9c3-\
cd217fac9ba3"],
Cell[BoxData[{
RowBox[{
RowBox[{"xyrtoabbc", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_", ",", "r_"}], "}"}], "]"}], ":=",
RowBox[{"{",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
FractionBox[
SuperscriptBox["x", "2"],
SuperscriptBox["r", "2"]], "+",
FractionBox[
SuperscriptBox["y", "2"],
SuperscriptBox["r", "2"]], "-", "1"}], ")"}]}], ",",
RowBox[{"1", "/", "r"}], ",",
RowBox[{"x", "/", "r"}], ",",
RowBox[{"y", "/", "r"}]}], "}"}]}], "\n",
RowBox[{
RowBox[{"graphFromG", "[", "G_", "]"}], ":=",
RowBox[{"PlanarGraph", "[",
RowBox[{"AdjacencyGraph", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"#", "\[Equal]",
RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@",
"#"}], "&"}], "/@", "G"}], ",",
RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"abbctoxyr", "[",
RowBox[{"{",
RowBox[{"bt_", ",", "b_", ",", "h1_", ",", "h2_"}], "}"}], "]"}], ":=",
RowBox[{"{",
RowBox[{
RowBox[{"h1", "/", "b"}], ",",
RowBox[{"h2", "/", "b"}], ",",
RowBox[{"1", "/", "b"}]}], "}"}]}], "\n",
RowBox[{
RowBox[{"graphDuals", "[", "circs_", "]"}], ":=",
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{"Red", ",", "Dashed", ",",
RowBox[{
RowBox[{
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",",
RowBox[{
"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}],
"}"}], ",",
RowBox[{"Abs", "[",
RowBox[{"#", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}],
"]"}]}], "]"}], "&"}], "/@", "circs"}]}], "}"}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"graphCircles", "[", "circs_", "]"}], ":=",
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
",",
RowBox[{
"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}],
",",
RowBox[{"Abs", "[",
RowBox[{"#", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}],
"]"}]}], "]"}], "&"}], "/@", "circs"}], "]"}]}], "\n",
RowBox[{
RowBox[{"graphAbbc", "[", "circs_", "]"}], ":=",
RowBox[{"graphCircles", "[",
RowBox[{"abbctoxyr", "/@", "circs"}], "]"}]}], "\n",
RowBox[{
RowBox[{"graphDualAbbc", "[", "circs_", "]"}], ":=",
RowBox[{"graphDuals", "[",
RowBox[{"abbctoxyr", "/@", "circs"}], "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"findRoot", "[",
RowBox[{"tuple_", ",", "sigmas_"}], "]"}], ":=",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{", "candidates", "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"candidates", "=",
RowBox[{"Select", "[",
RowBox[{"sigmas", ",",
RowBox[{
RowBox[{
RowBox[{"Total", "[",
RowBox[{"#", ".", "tuple"}], "]"}], "<",
RowBox[{"Total", "[", "tuple", "]"}]}], "&"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"Length", "[", "candidates", "]"}], "\[Equal]", "0"}], ",",
"tuple", ",",
RowBox[{"findRoot", "[",
RowBox[{
RowBox[{
RowBox[{
"candidates", "\[LeftDoubleBracket]", "1",
"\[RightDoubleBracket]"}], ".", "tuple"}], ",", "sigmas"}],
"]"}]}], "]"}]}]}], "]"}]}], "\n",
RowBox[{"reflectx", ":=", GridBox[{
{"1", "0", "0", "0"},
{"0", "1", "0", "0"},
{"0", "0",
RowBox[{"-", "1"}], "0"},
{"0", "0", "0", "1"}
}]}], "\n",
RowBox[{"reflecty", ":=", GridBox[{
{"1", "0", "0", "0"},
{"0", "1", "0", "0"},
{"0", "0", "1", "0"},
{"0", "0", "0",
RowBox[{"-", "1"}]}
}]}], "\n",
RowBox[{
RowBox[{"scale", "[", "a_", "]"}], ":=", GridBox[{
{"a", "0", "0", "0"},
{"0",
RowBox[{"1", "/", "a"}], "0", "0"},
{"0", "0", "1", "0"},
{"0", "0", "0", "1"}
}]}], "\n",
RowBox[{
RowBox[{"rotate", "[", "\[Theta]_", "]"}], ":=", GridBox[{
{"1", "0", "0", "0"},
{"0", "1", "0", "0"},
{"0", "0",
RowBox[{"Cos", "[", "\[Theta]", "]"}],
RowBox[{"Sin", "[", "\[Theta]", "]"}]},
{"0", "0",
RowBox[{"-",
RowBox[{"Sin", "[", "\[Theta]", "]"}]}],
RowBox[{"Cos", "[", "\[Theta]", "]"}]}
}]}], "\n",
RowBox[{
RowBox[{"translate", "[",
RowBox[{"s_", ",", "t_"}], "]"}], ":=", GridBox[{
{"1",
RowBox[{
SuperscriptBox["s", "2"], "+",
SuperscriptBox["t", "2"]}],
RowBox[{"2", "s"}],
RowBox[{"2", "t"}]},
{"0", "1", "0", "0"},
{"0", "s", "1", "0"},
{"0", "t", "0", "1"}
}]}], "\n",
RowBox[{"invert", ":=", GridBox[{
{"0", "1", "0", "0"},
{"1", "0", "0", "0"},
{"0", "0", "1", "0"},
{"0", "0", "0", "1"}
}]}], "\n",
RowBox[{
RowBox[{"invertAboutCircle", "[",
RowBox[{"{",
RowBox[{"x_", ",", "y_", ",", "r_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"translate", "[",
RowBox[{"x", ",", "y"}], "]"}], ".",
RowBox[{"scale", "[", "r", "]"}], ".", GridBox[{
{"0", "1", "0", "0"},
{"1", "0", "0", "0"},
{"0", "0", "1", "0"},
{"0", "0", "0", "1"}
}], ".",
RowBox[{"scale", "[",
RowBox[{"1", "/", "r"}], "]"}], ".",
RowBox[{"translate", "[",
RowBox[{
RowBox[{"-", "x"}], ",",
RowBox[{"-", "y"}]}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"invertAboutAbbc", "[",
RowBox[{"{",
RowBox[{"bt_", ",", "b_", ",", "h1_", ",", "h2_"}], "}"}], "]"}], ":=",
RowBox[{"invertAboutCircle", "[",
RowBox[{"abbctoxyr", "[",
RowBox[{"{",
RowBox[{"bt", ",", "b", ",", "h1", ",", "h2"}], "}"}], "]"}],
"]"}]}]}], "Input",
CellChangeTimes->{{3.83518188899883*^9, 3.83518196723921*^9}, {
3.835189667119636*^9, 3.835189672844467*^9}, 3.8351900823026648`*^9, {
3.835190500475547*^9, 3.8351905140234118`*^9}, {3.835273965292259*^9,
3.8352739991796618`*^9}, {3.835274036684937*^9, 3.835274038678647*^9}, {
3.836773826590536*^9, 3.836773850497075*^9}, {3.83677440688564*^9,
3.836774407282791*^9}, {3.836775272970418*^9, 3.836775286241686*^9},
3.836775349044335*^9},
CellLabel->"In[1]:=",ExpressionUUID->"712f1eee-ffe3-4442-b0ef-88c55ebe5557"],
Cell[BoxData[
RowBox[{
RowBox[{"gextFromG", "[", "G_", "]"}], ":=",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "d", ",", "faces", ",", "nl", ",", "m"}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"nl", "=",
RowBox[{"Length", "[", "G", "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"faces", "=",
RowBox[{"FindFace", "[",
RowBox[{"graphFromG", "[", "G", "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"m", "=",
RowBox[{"Length", "[", "faces", "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"a", "=", "G"}], ";", "\[IndentingNewLine]",
RowBox[{"b", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"n", "=",
RowBox[{"faces", "[",
RowBox[{"[",
RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x", "=", "i"}], ",",
RowBox[{"one", "=",
RowBox[{"faces", "[",
RowBox[{"[",
RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"two", "=",
RowBox[{"faces", "[",
RowBox[{"[",
RowBox[{"j", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"n", ",", "x"}], "]"}], "]"}], "2"], "-",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"one", ",", "x"}], "]"}], "]"}], "+",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"n", ",", "x"}], "]"}], "]"}]}],
RowBox[{"1", "-",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"two", ",", "n"}], "]"}], "]"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"two", ",", "n"}], "]"}], "]"}],
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"n", ",", "x"}], "]"}], "]"}]}], "-",
RowBox[{
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"two", ",", "n"}], "]"}], "]"}],
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"one", ",", "x"}], "]"}], "]"}]}], "-",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"one", ",", "x"}], "]"}], "]"}], "-",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"n", ",", "x"}], "]"}], "]"}], "-",
RowBox[{"2",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"two", ",", "x"}], "]"}], "]"}]}]}], ")"}]}]}],
")"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "nl"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "m"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"d", "=",
RowBox[{
RowBox[{"b", "\[Transpose]"}], ".",
RowBox[{"PseudoInverse", "[", "a", "]"}], ".", "b"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"ArrayFlatten", "[", GridBox[{
{"a", "b"},
{
RowBox[{"b", "\[Transpose]"}], "d"}
}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
CellChangeTimes->{{3.837294679892116*^9, 3.837294849980329*^9}, {
3.8372948833693743`*^9, 3.837295062667385*^9}, {3.8372951238451767`*^9,
3.8372951329237757`*^9}, {3.837295173366411*^9, 3.837295205428586*^9}, {
3.837295328694124*^9, 3.8372953305584593`*^9}, 3.837295364287426*^9, {
3.837295445171173*^9, 3.837295497495098*^9}},
CellLabel->
"In[135]:=",ExpressionUUID->"4f9d8ce1-5c7d-4b21-9fd3-3d23f47536a0"],
Cell["\<\
Function to find root tuple just given G. It needs to know three rows of G \
corresponding to three circles on a face. It defaults to {1, 2, 3}, but you \
can change that with Face->whatever. Likewise, it will default to inverting \
through circle 4 to make the bounded packing, but you can change that with \
Invert->whatever. I\[CloseCurlyQuote]d recommend not picking anything on the \
face, since two of them don\[CloseCurlyQuote]t work as they are lines and the \
other can often give extra unwanted symmetry. Finally, it defaults to doing \
everything numerically, but you can make it exact by specifying Exact->True.\
\>", "Text",
CellChangeTimes->{{3.836775573543792*^9, 3.836775580674549*^9}, {
3.836781087527965*^9, 3.836781202947666*^9}, {3.836781271184314*^9,
3.836781281672988*^9}},ExpressionUUID->"9ac07c3a-f945-48dc-946f-\
d840bb5c11e3"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"Options", "[", "rootTupleFromG", "]"}], "=",
RowBox[{"{",
RowBox[{
RowBox[{"\"\<Face\>\"", "->",
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ",",
RowBox[{"\"\<Invert\>\"", "->", "4"}], ",",
RowBox[{"\"\<Exact\>\"", "->", "False"}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"rootTupleFromG", "[",
RowBox[{"G_", ",",
RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"circs", ",", "P", ",", "v", ",", "c1", ",", "c2", ",", "c3", ",",
"face", ",", "invert", ",", "exact"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"P", "=", GridBox[{
{"0",
RowBox[{
RowBox[{"-", "1"}], "/", "2"}], "0", "0"},
{
RowBox[{
RowBox[{"-", "1"}], "/", "2"}], "0", "0", "0"},
{"0", "0", "1", "0"},
{"0", "0", "0", "1"}
}]}], ";", "\[IndentingNewLine]",
RowBox[{"face", "=",
RowBox[{"OptionValue", "[", "\"\<Face\>\"", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"invert", "=",
RowBox[{"OptionValue", "[", "\"\<Invert\>\"", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"exact", "=",
RowBox[{"OptionValue", "[", "\"\<Exact\>\"", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"v", "=",
RowBox[{"{",
RowBox[{"bt", ",", "b", ",", "h1", ",", "h2"}], "}"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"c1", "=",
RowBox[{"face", "[",
RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"c2", "=",
RowBox[{"face", "[",
RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"c3", "=",
RowBox[{"face", "[",
RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"circs", "=",
RowBox[{"Range", "[",
RowBox[{"Length", "[", "G", "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"circs", "[",
RowBox[{"[", "c1", "]"}], "]"}], "=",
RowBox[{"{",
RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "}"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"circs", "[",
RowBox[{"[", "c2", "]"}], "]"}], "=",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{"-", "1"}]}], "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"circs", "[",
RowBox[{"[", "c3", "]"}], "]"}], "=",
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c2", ",", "c3"}], "]"}], "]"}], "2"]}],
RowBox[{
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c1", ",", "c3"}], "]"}], "]"}], "+",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c2", ",", "c3"}], "]"}], "]"}]}]], ",",
RowBox[{
RowBox[{"-",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c1", ",", "c3"}], "]"}], "]"}]}], "-",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c2", ",", "c3"}], "]"}], "]"}]}], ",", "0", ",",
RowBox[{"-",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c2", ",", "c3"}], "]"}], "]"}]}]}], "}"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "<=",
RowBox[{"Length", "[", "G", "]"}]}], ",",
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"Not", "[",
RowBox[{"MemberQ", "[",
RowBox[{"i", ",", "face"}], "]"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"circs", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"v", "/.",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"If", "[",
RowBox[{"exact", ",", "Solve", ",", "NSolve"}], "]"}], "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"circs", "[",
RowBox[{"[", "c1", "]"}], "]"}], ".", "P", ".", "v"}], "==",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c1", ",", "i"}], "]"}], "]"}]}], "&&",
RowBox[{
RowBox[{
RowBox[{"circs", "[",
RowBox[{"[", "c2", "]"}], "]"}], ".", "P", ".", "v"}], "==",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c2", ",", "i"}], "]"}], "]"}]}], "&&",
RowBox[{
RowBox[{
RowBox[{"circs", "[",
RowBox[{"[", "c3", "]"}], "]"}], ".", "P", ".", "v"}], "==",
RowBox[{"G", "[",
RowBox[{"[",
RowBox[{"c3", ",", "i"}], "]"}], "]"}]}], "&&",
RowBox[{
RowBox[{
SuperscriptBox["h1", "2"], "+",
SuperscriptBox["h2", "2"], "-",
RowBox[{"b", " ", "bt"}]}], "==", "1"}]}], ",",
RowBox[{"{",
RowBox[{"bt", ",", "b", ",", "h1", ",", "h2"}], "}"}]}],
"]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], ")"}]}]}], ";"}]}],
"\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"invertAboutAbbc", "[",
RowBox[{"circs", "[",
RowBox[{"[", "invert", "]"}], "]"}], "]"}], ".", "#"}], "&"}], "/@",
"circs"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
CellChangeTimes->{{3.836772368781335*^9, 3.836772448964113*^9}, {
3.83677286709816*^9, 3.83677289675002*^9}, {3.83677333408657*^9,
3.836773426440043*^9}, {3.836773464273794*^9, 3.836773506259012*^9}, {
3.8367735508177977`*^9, 3.836773588147397*^9}, {3.836773868945211*^9,
3.836773888576144*^9}, {3.836774011684956*^9, 3.836774013795322*^9}, {
3.8367742134127903`*^9, 3.836774354444405*^9}, {3.836774442009274*^9,
3.836774451232985*^9}, {3.836774606345356*^9, 3.836774769320375*^9}, {
3.836774802029441*^9, 3.836774842000496*^9}, {3.836774975692432*^9,
3.836774977916898*^9}, {3.836775038086772*^9, 3.8367750548327227`*^9}, {
3.8367750936076937`*^9, 3.836775095953889*^9}, {3.836775197895112*^9,
3.836775247540461*^9}, {3.836775298645521*^9, 3.836775315775177*^9}, {
3.836775378516039*^9, 3.836775382545352*^9}, {3.8367820316307087`*^9,
3.836782036214923*^9}, 3.8367825449307203`*^9},
CellLabel->"In[17]:=",ExpressionUUID->"8619e990-8f3c-4557-a370-b0aceddab3a5"],
Cell[BoxData[
RowBox[{
RowBox[{"icos", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "4"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1"}], "}"}]}], "}"}]}],
";"}]], "Input",
CellChangeTimes->{{3.836773637317699*^9, 3.836773716053958*^9}, {
3.836773771358551*^9, 3.836773778846367*^9}, {3.836773915102661*^9,
3.83677398119965*^9}, {3.8367740492110558`*^9, 3.836774049587277*^9}, {
3.8367754625701113`*^9, 3.836775462934154*^9}, {3.8367812198847322`*^9,
3.836781220047799*^9}, {3.836781379804858*^9, 3.836781390355057*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"e8ee6a05-c4eb-478e-af98-5d6b7fbfa46a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"root", "=",
RowBox[{
RowBox[{"rootTupleFromG", "[",
RowBox[{"icos", ",",
RowBox[{"\"\<Invert\>\"", "->", "3"}], ",",
RowBox[{"\"\<Face\>\"", "->",
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "10"}], "}"}]}], ",",
RowBox[{"\"\<Exact\>\"", "->", "True"}]}], "]"}], "//",
"FullSimplify"}]}]], "Input",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQ7dJVNllg2hvH32cvgun+vNvzQPSXJY7zQbRCruVK
EP2hJxlM794evxlEH28oANOORTYHQfSJMy5nQPQiubwLIPpx7rorIHoXh8Vt
EH1m1qOHINrM/TeTIJCW+WDGDKLDGDnZQfStT0IiIJrhFJcliP6WzWUHok07
vZ1BdLpmvyuIFkpt9wLRmotKfED0jwP9cSDaPXwymBaYPKkcRO85UVEHop8X
LGsD0V1s3ztB9K7jmxaD6L6TyUtAtO/zCztA9LqmwF0g+v6h4yEiQNpobXU4
iD4xVTYORB97+CQFRCsoHckC0W2tV8C0joyoXgeQNpFRANMA6z+i9A==
"],
CellLabel->"In[20]:=",ExpressionUUID->"91e21391-15e5-4f71-a86a-70fa1b7d0f63"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"6", " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"4", " ",
SqrtBox["5"]}]}], ")"}]}], ",",
RowBox[{"68", "+",
RowBox[{"28", " ",
SqrtBox["5"]}]}], ",",
RowBox[{
RowBox[{"-", "4"}], " ",
RowBox[{"(",
RowBox[{"13", "+",
RowBox[{"6", " ",
SqrtBox["5"]}]}], ")"}]}], ",",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"4", " ",
SqrtBox["5"]}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"4", " ",
SqrtBox["5"]}]}], ")"}]}], ",",
RowBox[{"44", "+",
RowBox[{"20", " ",
SqrtBox["5"]}]}], ",",
RowBox[{
RowBox[{"-", "4"}], " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"4", " ",
SqrtBox["5"]}]}], ")"}]}], ",",
RowBox[{"17", "+",
RowBox[{"8", " ",
SqrtBox["5"]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["5"]}], ")"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
SqrtBox["5"]}], ")"}]}], ",",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["5"]}], ")"}]}], ",",
RowBox[{
RowBox[{"-", "2"}], "-",
SqrtBox["5"]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"39", "+",
RowBox[{"17", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"47", "+",
RowBox[{"21", " ",
SqrtBox["5"]}]}], ",",
RowBox[{
RowBox[{"-", "37"}], "-",
RowBox[{"17", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"20", "+",
RowBox[{"9", " ",
SqrtBox["5"]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"11", "+",
RowBox[{"5", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"5", " ",
RowBox[{"(",
RowBox[{"3", "+",
SqrtBox["5"]}], ")"}]}], ",",
RowBox[{
RowBox[{"-", "11"}], "-",
RowBox[{"5", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"5", "+",
RowBox[{"2", " ",
SqrtBox["5"]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"39", "+",
RowBox[{"17", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"46", "+",
RowBox[{"20", " ",
SqrtBox["5"]}]}], ",",
RowBox[{
RowBox[{"-", "37"}], "-",
RowBox[{"17", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"19", "+",
RowBox[{"8", " ",
SqrtBox["5"]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"14", "+",
RowBox[{"6", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"6", " ",
RowBox[{"(",
RowBox[{"3", "+",
SqrtBox["5"]}], ")"}]}], ",",
RowBox[{
RowBox[{"-", "6"}], " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["5"]}], ")"}]}], ",",
RowBox[{"8", "+",
RowBox[{"3", " ",
SqrtBox["5"]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"11", "+",
RowBox[{"5", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"16", "+",
RowBox[{"6", " ",
SqrtBox["5"]}]}], ",",
RowBox[{
RowBox[{"-", "11"}], "-",
RowBox[{"5", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["5"]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"40", "+",
RowBox[{"18", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"47", "+",
RowBox[{"21", " ",
SqrtBox["5"]}]}], ",",
RowBox[{
RowBox[{"-", "39"}], "-",
RowBox[{"17", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"20", "+",
RowBox[{"9", " ",
SqrtBox["5"]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"4", " ",
SqrtBox["5"]}]}], ")"}]}], ",",
RowBox[{"46", "+",
RowBox[{"20", " ",
SqrtBox["5"]}]}], ",",
RowBox[{
RowBox[{"-", "4"}], " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"4", " ",
SqrtBox["5"]}]}], ")"}]}], ",",
RowBox[{"19", "+",
RowBox[{"8", " ",
SqrtBox["5"]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"14", "+",
RowBox[{"6", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"16", "+",
RowBox[{"6", " ",
SqrtBox["5"]}]}], ",",
RowBox[{
RowBox[{"-", "6"}], " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["5"]}], ")"}]}], ",",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{"2", "+",
SqrtBox["5"]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"10", "+",
RowBox[{"4", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"5", " ",
RowBox[{"(",
RowBox[{"3", "+",
SqrtBox["5"]}], ")"}]}], ",",
RowBox[{
RowBox[{"-", "9"}], "-",
RowBox[{"5", " ",
SqrtBox["5"]}]}], ",",
RowBox[{"5", "+",
RowBox[{"2", " ",
SqrtBox["5"]}]}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.83677353485019*^9, {3.8367735702734957`*^9, 3.836773580101294*^9},
3.836773626672426*^9, 3.8367737074892073`*^9, 3.836773787882546*^9, {
3.836773892997232*^9, 3.836773986616167*^9}, {3.836774016999596*^9,
3.836774053862307*^9}, {3.836774106559168*^9, 3.836774159514324*^9},
3.8367743638879642`*^9, 3.83677442619223*^9, {3.836774457157482*^9,
3.8367745609996557`*^9}, {3.836774857772161*^9, 3.836774898603446*^9}, {
3.8367749306671677`*^9, 3.836775012834338*^9}, {3.8367750432842503`*^9,
3.836775099374961*^9}, 3.8367751571341887`*^9, {3.836775204207635*^9,
3.836775251826714*^9}, 3.836775319803225*^9, {3.836775353570438*^9,
3.83677541220298*^9}, {3.836775480754055*^9, 3.836775504168625*^9}, {
3.836775710248557*^9, 3.836775715714079*^9}, {3.836775884582399*^9,
3.836775891136197*^9}, {3.836781233827829*^9, 3.83678124429418*^9}, {
3.8367812978893347`*^9, 3.836781353440551*^9}, 3.836781399263618*^9,
3.836781439189076*^9, 3.837018474911059*^9, 3.837292131763339*^9},
CellLabel->"Out[20]=",ExpressionUUID->"bc6a7319-c5f7-4749-8b7d-3b0627569278"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"graphAbbc", "[", "root", "]"}]], "Input",
CellChangeTimes->{{3.836781404223935*^9, 3.836781406064753*^9}},
CellLabel->"In[21]:=",ExpressionUUID->"1b485785-b18a-41cd-ae3f-e08589cba70c"],
Cell[BoxData[
GraphicsBox[{
CircleBox[
NCache[{(-4) (13 + 6 5^Rational[1, 2])/(68 + 28 5^Rational[1, 2]),
3 (9 + 4 5^Rational[1, 2])/(68 +
28 5^Rational[1, 2])}, {-0.8090169943749473, 0.41216488444600474`}],
NCache[(68 + 28 5^Rational[1, 2])^(-1), 0.00765638725853109]],
CircleBox[
NCache[{(-4) (9 + 4 5^Rational[1, 2])/(44 +
20 5^Rational[1, 2]), (17 + 8 5^Rational[1, 2])/(44 +
20 5^Rational[1, 2])}, {-0.8090169943749473, 0.3932372542187894}],
NCache[(44 + 20 5^Rational[1, 2])^(-1), 0.01127124296868428]],
CircleBox[
NCache[{-(2 + 5^Rational[1, 2])/(3 + 5^Rational[1, 2]),
Rational[-1, 2] (-2 - 5^Rational[1, 2])/(3 +
5^Rational[1, 2])}, {-0.8090169943749475, 0.4045084971874737}], NCache[
Rational[1, 2]/(3 + 5^Rational[1, 2]), 0.09549150281252629]],
CircleBox[
NCache[{(-37 - 17 5^Rational[1, 2])/(47 +
21 5^Rational[1, 2]), (20 + 9 5^Rational[1, 2])/(47 +
21 5^Rational[1, 2])}, {-0.7983738762488434, 0.42705098312484224`}],
NCache[(47 + 21 5^Rational[1, 2])^(-1), 0.010643118126104094`]],
CircleBox[
NCache[{Rational[1, 5] (-11 - 5 5^Rational[1, 2])/(3 + 5^Rational[1, 2]),
Rational[1, 5] (3 + 5^Rational[1, 2])^(-1) (5 +
2 5^Rational[1, 2])}, {-0.847213595499958, 0.3618033988749895}],
NCache[Rational[1, 5]/(3 + 5^Rational[1, 2]), 0.03819660112501052]],
CircleBox[
NCache[{(-37 - 17 5^Rational[1, 2])/(46 +
20 5^Rational[1, 2]), (19 + 8 5^Rational[1, 2])/(46 +
20 5^Rational[1, 2])}, {-0.8268521987499238, 0.40661365750002176`}],
NCache[(46 + 20 5^Rational[1, 2])^(-1), 0.011022762500036259`]],
CircleBox[
NCache[{-(2 + 5^Rational[1, 2])/(3 + 5^Rational[1, 2]),
Rational[1, 6] (3 + 5^Rational[1, 2])^(-1) (8 +
3 5^Rational[1, 2])}, {-0.8090169943749475, 0.4681694990624912}],
NCache[Rational[1, 6]/(3 + 5^Rational[1, 2]), 0.03183050093750876]],
CircleBox[
NCache[{(-11 - 5 5^Rational[1, 2])/(16 + 6 5^Rational[1, 2]),
3 (2 + 5^Rational[1, 2])/(16 +
6 5^Rational[1, 2])}, {-0.7540125221710139, 0.4320107332894405}],
NCache[(16 + 6 5^Rational[1, 2])^(-1), 0.03399463335527976]],
CircleBox[
NCache[{(-39 - 17 5^Rational[1, 2])/(47 +
21 5^Rational[1, 2]), (20 + 9 5^Rational[1, 2])/(47 +
21 5^Rational[1, 2])}, {-0.8196601125010515, 0.42705098312484224`}],
NCache[(47 + 21 5^Rational[1, 2])^(-1), 0.010643118126104094`]],
CircleBox[
NCache[{(-4) (9 + 4 5^Rational[1, 2])/(46 +
20 5^Rational[1, 2]), (19 + 8 5^Rational[1, 2])/(46 +
20 5^Rational[1, 2])}, {-0.791181789999971, 0.40661365750002176`}],
NCache[(46 + 20 5^Rational[1, 2])^(-1), 0.011022762500036259`]],
CircleBox[
NCache[{(-6) (2 + 5^Rational[1, 2])/(16 + 6 5^Rational[1, 2]),
3 (2 + 5^Rational[1, 2])/(16 +
6 5^Rational[1, 2])}, {-0.864021466578881, 0.4320107332894405}],
NCache[(16 + 6 5^Rational[1, 2])^(-1), 0.03399463335527976]],
CircleBox[
NCache[{Rational[1, 5] (-9 - 5 5^Rational[1, 2])/(3 + 5^Rational[1, 2]),
Rational[1, 5] (3 + 5^Rational[1, 2])^(-1) (5 +
2 5^Rational[1, 2])}, {-0.7708203932499369, 0.3618033988749895}],
NCache[Rational[1, 5]/(3 + 5^Rational[1, 2]),
0.03819660112501052]]}]], "Output",
CellChangeTimes->{3.8367814063844*^9, 3.836781439334742*^9,
3.83701847501545*^9, 3.837292131809428*^9},
CellLabel->"Out[21]=",ExpressionUUID->"2923c526-7087-4953-afe3-ed03f5fc0785"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["cube"], "Input",
CellChangeTimes->{{3.837295083135314*^9, 3.8372950834906693`*^9}},
CellLabel->
"In[118]:=",ExpressionUUID->"e5f753ce-5564-440f-bd7f-b8cc0e105693"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "3"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "5"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "3"}], ",", "1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",", "1", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3"}], ",",
RowBox[{"-", "5"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}], ",",
RowBox[{"-", "3"}], ",",
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.837295083754677*^9},
CellLabel->
"Out[118]=",ExpressionUUID->"6a180ad8-437d-4f6d-8158-e171b514d857"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"gextFromG", "[", "squareTriangle", "]"}], "//", "Chop"}], "//",
"MatrixForm"}]], "Input",
CellChangeTimes->{{3.837295070631619*^9, 3.8372950947926292`*^9}, {
3.837295143419498*^9, 3.8372951512308607`*^9}, {3.8372952196336718`*^9,
3.837295219995161*^9}, 3.837295354701919*^9, {3.837295475958603*^9,
3.8372954803925457`*^9}, {3.837295516791883*^9, 3.837295524257586*^9}},
CellLabel->
"In[138]:=",ExpressionUUID->"5edb4437-a360-4450-b51a-80c3b26bc8bc"],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{"1",
RowBox[{"-", "11.087635572894692`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "3.6572179013874493`"}],
RowBox[{"-", "8.773283523272426`"}],
RowBox[{"-", "10.038533159725077`"}],
RowBox[{"-", "2.9999999999999964`"}],
RowBox[{"-", "3.5453552083165825`"}],
RowBox[{"-", "3.0200068714605033`"}],
RowBox[{"-", "3.5384890174765475`"}],
RowBox[{"-", "6.71259906384185`"}],
RowBox[{"-", "7.562291495542951`"}],
RowBox[{"-", "9.671764274683923`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "1"}],
RowBox[{"-", "1"}],
RowBox[{"-", "6.769099513703402`"}],
RowBox[{"-", "7.671764274683925`"}],
RowBox[{"-", "6.116065621884977`"}],
RowBox[{"-", "7.857025076667814`"}], "0", "0", "0", "0",
"6.361308386877101`", "6.717438653221805`", "6.055929020678391`",
"3.015716820181302`", "2.0000000000000178`", "2.837506931512834`",
"4.361308386877123`", "2.652768969043665`", "4.0602207518343345`"},
{
RowBox[{"-", "11.087635572894692`"}], "1",
RowBox[{"-", "7.85702507666783`"}],
RowBox[{"-", "9.264007648723508`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "1"}],
RowBox[{"-", "10.487924940356171`"}],
RowBox[{"-", "9.399000194040873`"}],
RowBox[{"-", "9.585352627148879`"}],
RowBox[{"-", "9.501034617554676`"}],
RowBox[{"-", "4.282934572155876`"}],
RowBox[{"-", "4.3029414436163815`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "18.354654555576506`"}],
RowBox[{"-", "12.514426861191087`"}],
RowBox[{"-", "13.71853543658302`"}],
RowBox[{"-", "4.282612528389099`"}],
RowBox[{"-", "4.230610496226864`"}],
RowBox[{"-", "4.250419212467565`"}],
RowBox[{"-", "4.218422089165575`"}], "20.87674621756301`",
"8.5655439109082`", "8.0702303823389`", "10.631866407055073`", "0", "0",
"0", "3.1989271758760873`", "5.334933414681312`", "5.198734091273381`",
"3.2306104962268662`", "5.421670327527288`", "3.250419212467551`"},
{
RowBox[{"-", "1"}],
RowBox[{"-", "7.85702507666783`"}], "1",
RowBox[{"-", "8.77328352327242`"}],
RowBox[{"-", "3.657217901387452`"}],
RowBox[{"-", "10.038533159725073`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "6.712599063841861`"}],
RowBox[{"-", "3.0200068714605033`"}],
RowBox[{"-", "6.769099513703403`"}],
RowBox[{"-", "3.54535520831658`"}],
RowBox[{"-", "7.562291495542951`"}],
RowBox[{"-", "7.671764274683923`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "6.116065621884979`"}],
RowBox[{"-", "2.9999999999999987`"}],
RowBox[{"-", "3.5384890174765484`"}],
RowBox[{"-", "9.671764274683923`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "11.087635572894667`"}], "0", "2.`", "3.0157168201813116`",
"9.657056180250439`*^-8", "4.361308386877116`", "6.717438653221803`",
"2.837506931512823`", "0", "0", "6.055929020678408`",
"6.361308386877124`", "2.652768969043666`", "4.060220751834337`"},
{
RowBox[{"-", "3.6572179013874493`"}],
RowBox[{"-", "9.264007648723508`"}],
RowBox[{"-", "8.77328352327242`"}], "1",
RowBox[{"-", "12.087063723716648`"}],
RowBox[{"-", "4.167243855525264`"}],
RowBox[{"-", "9.775451067319587`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.449856383914351`"}],
RowBox[{"-", "4.250419212467533`"}],
RowBox[{"-", "9.101913702689629`"}],
RowBox[{"-", "4.230610496226841`"}],
RowBox[{"-", "9.314992797761024`"}],
RowBox[{"-", "14.029578013962391`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.659385445434607`"}],
RowBox[{"-", "12.51442686119102`"}],
RowBox[{"-", "4.198927175876054`"}],
RowBox[{"-", "14.087063723716659`"}],
RowBox[{"-", "1"}], "14.404183386960739`", "3.282612528389101`", "0",
"6.270130149946856`", "5.116065621884937`", "3.1989271758760665`",
"8.232829303547575`", "7.714302574534915`", "8.398678150274081`", "0",
"0", "3.302941443616358`", "5.198927175876046`"},
{
RowBox[{"-", "8.773283523272426`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "3.657217901387452`"}],
RowBox[{"-", "12.087063723716648`"}], "1",
RowBox[{"-", "4.1672438555252596`"}],
RowBox[{"-", "4.659385445434619`"}],
RowBox[{"-", "9.101913702689648`"}],
RowBox[{"-", "9.449856383914359`"}],
RowBox[{"-", "12.51442686119103`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.2306104962268485`"}],
RowBox[{"-", "4.198927175876058`"}],
RowBox[{"-", "14.029578013962393`"}],
RowBox[{"-", "14.08706372371667`"}],
RowBox[{"-", "9.775451067319587`"}],
RowBox[{"-", "4.250419212467543`"}],
RowBox[{"-", "9.31499279776103`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.264007648723487`"}], "14.404183386960744`",
"8.39867815027408`", "7.714302574534936`", "6.270130149946868`", "0",
"3.198927175876056`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"1.448399004970755`*^-7", " ", "\[ImaginaryI]"}]}],
"1.0323827311807139`*^-7", "3.282612528389089`", "8.232829303547625`",
"5.116065621884976`", "3.3029414436163647`", "5.198927175876055`"},
{
RowBox[{"-", "10.038533159725077`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "10.038533159725073`"}],
RowBox[{"-", "4.167243855525264`"}],
RowBox[{"-", "4.1672438555252596`"}], "1",
RowBox[{"-", "10.10626835574988`"}],
RowBox[{"-", "4.198927175876069`"}],
RowBox[{"-", "12.952997562546686`"}],
RowBox[{"-", "9.585352627148827`"}],
RowBox[{"-", "4.198927175876062`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.250419212467541`"}],
RowBox[{"-", "21.902009852975233`"}],
RowBox[{"-", "9.449856383914357`"}],
RowBox[{"-", "10.106268355749869`"}],
RowBox[{"-", "9.585352627148824`"}],
RowBox[{"-", "4.250419212467541`"}],
RowBox[{"-", "9.44985638391435`"}],
RowBox[{"-", "1"}], "23.270157978542695`", "8.670385034157619`",
"5.065891221033154`", "10.121862971324774`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"1.4439348285603957`*^-7", " ", "\[ImaginaryI]"}]}], "0",
"3.2306104962268445`", "5.065891221033139`", "8.6703850341576`",
"3.2306104962268916`", "0", "3.2829345721558565`", "5.282612528389076`"},
{
RowBox[{"-", "2.9999999999999964`"}],
RowBox[{"-", "10.487924940356171`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.775451067319587`"}],
RowBox[{"-", "4.659385445434619`"}],
RowBox[{"-", "10.10626835574988`"}], "1",
RowBox[{"-", "4.167243855525278`"}],
RowBox[{"-", "11.69170382461391`"}],
RowBox[{"-", "14.694062201120188`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.42687603885475`"}],
RowBox[{"-", "14.484890849928416`"}],
RowBox[{"-", "10.064833738867607`"}],
RowBox[{"-", "10.375697805214461`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "11.463451704893334`"}],
RowBox[{"-", "16.484890849928412`"}],
RowBox[{"-", "5.2596321833294795`"}],
RowBox[{"-", "13.718535436583005`"}], "6.652768969043671`",
"6.412064769823929`", "3.015716820181329`", "0", "3.426876038854748`",
"9.322536692985695`", "6.043367922946269`", "0", "4.412064769823927`",
"9.261790012111863`", "5.426876038854758`", "0", "9.922783430880537`"},
{
RowBox[{"-", "3.5453552083165825`"}],
RowBox[{"-", "9.399000194040873`"}],
RowBox[{"-", "6.712599063841861`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.101913702689648`"}],
RowBox[{"-", "4.198927175876069`"}],
RowBox[{"-", "4.167243855525278`"}], "1",
RowBox[{"-", "13.235201678202106`"}],
RowBox[{"-", "9.843001696830605`"}],
RowBox[{"-", "4.015716820181303`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "12.786150328264467`"}],
RowBox[{"-", "15.703854740400573`"}],
RowBox[{"-", "4.421138481675317`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "14.959067318715595`"}],
RowBox[{"-", "9.61890647273919`"}],
RowBox[{"-", "12.523052184364976`"}],
RowBox[{"-", "4.282934572155866`"}], "13.634073928066416`",
"5.615136020650729`", "2.0212918469683135`*^-7", "3.426876038854755`",
"3.167243855525257`", "5.250934309746223`", "8.39970523681459`",
"4.775755284361727`", "8.782379876176012`", "3.3029414436163775`",
"1.043875894204443`*^-7",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"5.960464477539063`*^-8", " ", "\[ImaginaryI]"}]}],
"8.672072791421526`"},
{
RowBox[{"-", "3.0200068714605033`"}],
RowBox[{"-", "9.585352627148879`"}],
RowBox[{"-", "3.0200068714605033`"}],
RowBox[{"-", "9.449856383914351`"}],
RowBox[{"-", "9.449856383914359`"}],
RowBox[{"-", "12.952997562546686`"}],
RowBox[{"-", "11.69170382461391`"}],
RowBox[{"-", "13.235201678202106`"}], "1",
RowBox[{"-", "1"}],
RowBox[{"-", "13.235201678202097`"}],
RowBox[{"-", "15.511309219992036`"}],
RowBox[{"-", "4.250419212467557`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.1672438555252755`"}],
RowBox[{"-", "11.691703824613903`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.250419212467562`"}],
RowBox[{"-", "4.1672438555252755`"}],
RowBox[{"-", "9.585352627148861`"}], "4.020006871460503`", "0",
"5.065891221033145`", "6.025697128915064`", "8.670385034157587`",
"5.282612528389099`", "3.230610496226855`", "5.0658912210331515`",
"1.3328003749250113`*^-7", "3.230610496226864`", "8.67038503415761`",
"9.481997421677416`", "0"},
{
RowBox[{"-", "3.5384890174765475`"}],
RowBox[{"-", "9.501034617554676`"}],
RowBox[{"-", "6.769099513703403`"}],
RowBox[{"-", "4.250419212467533`"}],
RowBox[{"-", "12.51442686119103`"}],
RowBox[{"-", "9.585352627148827`"}],
RowBox[{"-", "14.694062201120188`"}],
RowBox[{"-", "9.843001696830605`"}],
RowBox[{"-", "1"}], "1",
RowBox[{"-", "14.959067318715583`"}],
RowBox[{"-", "13.231826163674217`"}],
RowBox[{"-", "4.230610496226854`"}],
RowBox[{"-", "5.493538196922206`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "11.46345170489332`"}],
RowBox[{"-", "4.218422089165564`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.264007648723497`"}],
RowBox[{"-", "4.2826125283890875`"}], "9.032027214398749`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"4.2146848510894035`*^-8", " ", "\[ImaginaryI]"}]}],
"3.1989271758760593`", "8.111474067077369`", "8.565543910908115`",
"3.2504192124675555`", "5.19873409127332`", "8.070230382338865`",
"3.2306104962268796`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"5.960464477539063`*^-8", " ", "\[ImaginaryI]"}]}],
"5.334933414681289`", "9.235986232222851`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"1.2605467953829007`*^-7", " ", "\[ImaginaryI]"}]}]},
{
RowBox[{"-", "6.71259906384185`"}],
RowBox[{"-", "4.282934572155876`"}],
RowBox[{"-", "3.54535520831658`"}],
RowBox[{"-", "9.101913702689629`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.198927175876062`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.015716820181303`"}],
RowBox[{"-", "13.235201678202097`"}],
RowBox[{"-", "14.959067318715583`"}], "1",
RowBox[{"-", "1"}],
RowBox[{"-", "9.618906472739187`"}],
RowBox[{"-", "15.703854740400548`"}],
RowBox[{"-", "12.52305218436496`"}],
RowBox[{"-", "4.167243855525266`"}],
RowBox[{"-", "9.843001696830608`"}],
RowBox[{"-", "12.786150328264455`"}],
RowBox[{"-", "4.421138481675317`"}],
RowBox[{"-", "9.399000194040843`"}], "13.634073928066398`",
"8.782379876176003`", "4.7757552843617495`", "3.426876038854752`", "0",
"5.250934309746219`", "3.3029414436163576`", "0", "5.615136020650717`",
"8.39970523681462`", "3.167243855525279`", "1.192092895507811`*^-7",
"8.672072791421527`"},
{
RowBox[{"-", "7.562291495542951`"}],
RowBox[{"-", "4.3029414436163815`"}],
RowBox[{"-", "7.562291495542951`"}],
RowBox[{"-", "4.230610496226841`"}],
RowBox[{"-", "4.2306104962268485`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.42687603885475`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "15.511309219992036`"}],
RowBox[{"-", "13.231826163674217`"}],
RowBox[{"-", "1"}], "1",
RowBox[{"-", "9.703428966297638`"}],
RowBox[{"-", "20.7383775017648`"}],
RowBox[{"-", "9.72460012427825`"}],
RowBox[{"-", "4.426876038854742`"}],
RowBox[{"-", "13.23182616367422`"}],
RowBox[{"-", "9.703428966297633`"}],
RowBox[{"-", "9.724600124278256`"}],
RowBox[{"-", "4.302941443616366`"}], "19.2833494053671`",
"9.017319591940648`", "3.167243855525298`", "5.871739692838416`", "0",
"3.282934572155858`", "5.335258648084847`", "3.1672438555252738`",
"9.017319591940637`", "5.3352586480848805`", "0",
"8.429369702178807`*^-8", "8.77692420020725`"},
{
RowBox[{"-", "9.671764274683923`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "7.671764274683923`"}],
RowBox[{"-", "9.314992797761024`"}],
RowBox[{"-", "4.198927175876058`"}],
RowBox[{"-", "4.250419212467541`"}],
RowBox[{"-", "14.484890849928416`"}],
RowBox[{"-", "12.786150328264467`"}],
RowBox[{"-", "4.250419212467557`"}],
RowBox[{"-", "4.230610496226854`"}],
RowBox[{"-", "9.618906472739187`"}],
RowBox[{"-", "9.703428966297638`"}], "1",
RowBox[{"-", "12.836295228239779`"}],
RowBox[{"-", "9.314992797761043`"}],
RowBox[{"-", "16.484890849928398`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.198927175876063`"}],
RowBox[{"-", "4.23061049622685`"}], "17.257640290456145`",
"5.250419212467573`", "8.132284358460517`", "11.587981846283228`",
"3.2504192124675377`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"8.455172846767646`*^-8", " ", "\[ImaginaryI]"}]}], "0",
"5.116567538279219`", "3.2504192124675555`", "3.2184220891656037`",
"5.2504192124675475`", "8.950937121575947`", "0"},
{
RowBox[{"-", "1"}],
RowBox[{"-", "18.354654555576506`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "14.029578013962391`"}],
RowBox[{"-", "14.029578013962393`"}],
RowBox[{"-", "21.902009852975233`"}],
RowBox[{"-", "10.064833738867607`"}],
RowBox[{"-", "15.703854740400573`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "5.493538196922206`"}],
RowBox[{"-", "15.703854740400548`"}],
RowBox[{"-", "20.7383775017648`"}],
RowBox[{"-", "12.836295228239779`"}], "1",
RowBox[{"-", "6.116065621884996`"}],
RowBox[{"-", "10.064833738867609`"}],
RowBox[{"-", "5.493538196922198`"}],
RowBox[{"-", "12.836295228239788`"}],
RowBox[{"-", "6.116065621884983`"}],
RowBox[{"-", "18.354654555576474`"}], "0", "0", "5.015716820181316`",
"3.3263844845218506`", "12.988497460897802`", "11.933519263537939`",
"7.258435832086582`", "5.015716820181314`", "2.47537371134789`*^-7",
"7.258435832086608`", "12.988497460897847`", "10.023454826004029`",
"4.020006871460507`"},
{
RowBox[{"-", "1"}],
RowBox[{"-", "12.514426861191087`"}],
RowBox[{"-", "6.116065621884979`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "14.08706372371667`"}],
RowBox[{"-", "9.449856383914357`"}],
RowBox[{"-", "10.375697805214461`"}],
RowBox[{"-", "4.421138481675317`"}],
RowBox[{"-", "4.1672438555252755`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "12.52305218436496`"}],
RowBox[{"-", "9.72460012427825`"}],
RowBox[{"-", "9.314992797761043`"}],
RowBox[{"-", "6.116065621884996`"}], "1",
RowBox[{"-", "5.259632183329473`"}],
RowBox[{"-", "9.264007648723494`"}],
RowBox[{"-", "4.198927175876066`"}],
RowBox[{"-", "12.087063723716685`"}],
RowBox[{"-", "4.250419212467557`"}], "7.116065621884988`",
"9.712528541673693`*^-8", "0", "4.719319515853733`",
"8.398678150274042`", "5.198927175876071`", "8.232829303547597`",
"7.714302574534932`", "5.116065621885012`", "0", "3.2826125283890963`",
"5.649910037738079`", "3.1989271758760554`"},
{
RowBox[{"-", "1"}],
RowBox[{"-", "13.71853543658302`"}],
RowBox[{"-", "2.9999999999999987`"}],
RowBox[{"-", "4.659385445434607`"}],
RowBox[{"-", "9.775451067319587`"}],
RowBox[{"-", "10.106268355749869`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "1"}],
RowBox[{"-", "11.691703824613903`"}],
RowBox[{"-", "11.46345170489332`"}],
RowBox[{"-", "4.167243855525266`"}],
RowBox[{"-", "4.426876038854742`"}],
RowBox[{"-", "16.484890849928398`"}],
RowBox[{"-", "10.064833738867609`"}],
RowBox[{"-", "5.259632183329473`"}], "1",
RowBox[{"-", "14.694062201120179`"}],
RowBox[{"-", "14.484890849928398`"}],
RowBox[{"-", "10.375697805214456`"}],
RowBox[{"-", "10.487924940356134`"}], "6.652768969043674`",
"4.412064769823927`", "2.0730629364216622`*^-7", "0",
"5.4268760388547275`", "9.322536692985684`", "9.261790012111824`",
"3.0157168201813`", "6.412064769823934`", "6.043367922946279`",
"3.4268760388547554`", "0", "9.922783430880521`"},
{
RowBox[{"-", "6.769099513703402`"}],
RowBox[{"-", "4.282612528389099`"}],
RowBox[{"-", "3.5384890174765484`"}],
RowBox[{"-", "12.51442686119102`"}],
RowBox[{"-", "4.250419212467543`"}],
RowBox[{"-", "9.585352627148824`"}],
RowBox[{"-", "11.463451704893334`"}],
RowBox[{"-", "14.959067318715595`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "4.218422089165564`"}],
RowBox[{"-", "9.843001696830608`"}],
RowBox[{"-", "13.23182616367422`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "5.493538196922198`"}],
RowBox[{"-", "9.264007648723494`"}],
RowBox[{"-", "14.694062201120179`"}], "1",
RowBox[{"-", "4.230610496226853`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.501034617554648`"}], "9.032027214398747`",
"3.230610496226862`", "8.070230382338865`", "8.111474067077376`",
"5.334933414681282`", "3.2504192124675484`", "0", "3.198927175876073`",
"0", "5.198734091273343`", "8.565543910908143`", "9.235986232222855`",
"0"},
{
RowBox[{"-", "7.671764274683925`"}],
RowBox[{"-", "4.230610496226864`"}],
RowBox[{"-", "9.671764274683923`"}],
RowBox[{"-", "4.198927175876054`"}],
RowBox[{"-", "9.31499279776103`"}],
RowBox[{"-", "4.250419212467541`"}],
RowBox[{"-", "16.484890849928412`"}],
RowBox[{"-", "9.61890647273919`"}],
RowBox[{"-", "4.250419212467562`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "12.786150328264455`"}],
RowBox[{"-", "9.703428966297633`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "12.836295228239788`"}],
RowBox[{"-", "4.198927175876066`"}],
RowBox[{"-", "14.484890849928398`"}],
RowBox[{"-", "4.230610496226853`"}], "1",
RowBox[{"-", "9.314992797761043`"}],
RowBox[{"-", "1"}], "17.25764029045615`", "3.2504192124675795`",
"5.116567538279211`", "11.587981846283224`", "5.250419212467523`",
"1.0323827311807139`*^-7", "3.218422089165564`", "8.132284358460518`",
"5.250419212467569`", "1.7881393432617188`*^-7", "3.250419212467549`",
"8.950937121575944`", "1.1920928955078125`*^-7"},
{
RowBox[{"-", "6.116065621884977`"}],
RowBox[{"-", "4.250419212467565`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "14.087063723716659`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.44985638391435`"}],
RowBox[{"-", "5.2596321833294795`"}],
RowBox[{"-", "12.523052184364976`"}],
RowBox[{"-", "4.1672438555252755`"}],
RowBox[{"-", "9.264007648723497`"}],
RowBox[{"-", "4.421138481675317`"}],
RowBox[{"-", "9.724600124278256`"}],
RowBox[{"-", "4.198927175876063`"}],
RowBox[{"-", "6.116065621884983`"}],
RowBox[{"-", "12.087063723716685`"}],
RowBox[{"-", "10.375697805214456`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.314992797761043`"}], "1",
RowBox[{"-", "12.514426861191055`"}], "7.116065621884981`",
"5.116065621884989`", "7.714302574534943`", "4.71931951585374`",
"3.282612528389091`", "5.198927175876063`", "8.429369702178807`*^-8",
"1.564067888250637`*^-7", "0", "8.232829303547623`",
"8.398678150274078`", "5.649910037738082`", "3.1989271758760625`"},
{
RowBox[{"-", "7.857025076667814`"}],
RowBox[{"-", "4.218422089165575`"}],
RowBox[{"-", "11.087635572894667`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "9.264007648723487`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "13.718535436583005`"}],
RowBox[{"-", "4.282934572155866`"}],
RowBox[{"-", "9.585352627148861`"}],
RowBox[{"-", "4.2826125283890875`"}],
RowBox[{"-", "9.399000194040843`"}],
RowBox[{"-", "4.302941443616366`"}],
RowBox[{"-", "4.23061049622685`"}],
RowBox[{"-", "18.354654555576474`"}],
RowBox[{"-", "4.250419212467557`"}],
RowBox[{"-", "10.487924940356134`"}],
RowBox[{"-", "9.501034617554648`"}],
RowBox[{"-", "1"}],
RowBox[{"-", "12.514426861191055`"}], "1", "20.876746217562967`",
"5.334933414681328`", "3.198927175876074`", "10.631866407055044`",
"3.230610496226827`", "0", "5.198734091273317`", "8.07023038233887`",
"8.56554391090817`", "1.9314112360500916`*^-7", "0",
"5.421670327527273`", "3.2504192124675533`"},
{"0", "20.87674621756301`", "0", "14.404183386960739`",
"14.404183386960744`", "23.270157978542695`", "6.652768969043671`",
"13.634073928066416`", "4.020006871460503`", "9.032027214398749`",
"13.634073928066398`", "19.2833494053671`", "17.257640290456145`", "0",
"7.116065621884988`", "6.652768969043674`", "9.032027214398747`",
"17.25764029045615`", "7.116065621884981`", "20.876746217562967`",
"1.0000000000000147`",
RowBox[{
RowBox[{"-", "1.000000012871904`"}], "-",
RowBox[{"4.125973940229195`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "4.015716869917906`"}],
RowBox[{"-", "1.000000018934562`"}],
RowBox[{
RowBox[{"-", "12.962033342006416`"}], "+",
RowBox[{"1.898331442418168`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "14.368345383749592`"}], "+",
RowBox[{"3.7846234058174855`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "9.095942774770764`"}], "-",
RowBox[{"1.7456730894457893`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "4.015716842154019`"}],
RowBox[{"-", "1.0000001217510426`"}],
RowBox[{
RowBox[{"-", "9.09594273668615`"}], "-",
RowBox[{"5.835008304270086`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "12.962033346587603`"}],
RowBox[{
RowBox[{"-", "7.824129541032846`"}], "-",
RowBox[{"2.615801767638683`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "7.080227617958901`"}], "-",
RowBox[{"1.234014739404521`*^-8", " ", "\[ImaginaryI]"}]}]},
{"0", "8.5655439109082`", "2.`", "3.282612528389101`",
"8.39867815027408`", "8.670385034157619`", "6.412064769823929`",
"5.615136020650729`", "0",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"4.2146848510894035`*^-8", " ", "\[ImaginaryI]"}]}],
"8.782379876176003`", "9.017319591940648`", "5.250419212467573`", "0",
"9.712528541673693`*^-8", "4.412064769823927`", "3.230610496226862`",
"3.2504192124675795`", "5.116065621884989`", "5.334933414681328`",
RowBox[{
RowBox[{"-", "1.0000000128719124`"}], "-",
RowBox[{"4.125973940229179`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"0.9999999789801357`", "\[VeryThinSpace]", "-",
RowBox[{"8.836324037516874`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000239444151`"}], "-",
RowBox[{"2.075359476637324`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "2.326384492979649`"}], "+",
RowBox[{"3.054858193801629`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "6.387772500848656`"}], "+",
RowBox[{"7.779640015012854`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.282612534552091`"}], "-",
RowBox[{"2.7590433624632885`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.218422083511778`"}], "+",
RowBox[{"7.3850450303775685`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.015716809709736`"}], "+",
RowBox[{"2.2354604591481074`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000498730959`"}], "-",
RowBox[{"1.5592596711273217`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000234104869`"}], "-",
RowBox[{"1.099249651067936`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.387772513175395`"}], "-",
RowBox[{"1.010277214087365`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.852094247407291`"}], "+",
RowBox[{"8.150142158109961`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000099806556`"}], "-",
RowBox[{"1.7505534432045684`*^-8", " ", "\[ImaginaryI]"}]}]},
{"0", "8.0702303823389`", "3.0157168201813116`", "0",
"7.714302574534936`", "5.065891221033154`", "3.015716820181329`",
"2.0212918469683135`*^-7", "5.065891221033145`", "3.1989271758760593`",
"4.7757552843617495`", "3.167243855525298`", "8.132284358460517`",
"5.015716820181316`", "0", "2.0730629364216622`*^-7",
"8.070230382338865`", "5.116567538279211`", "7.714302574534943`",
"3.198927175876074`",
RowBox[{"-", "4.015716869917898`"}],
RowBox[{
RowBox[{"-", "1.000000023944412`"}], "-",
RowBox[{"2.0753594766373263`*^-9", " ", "\[ImaginaryI]"}]}],
"0.9999999090130737`",
RowBox[{"-", "1.0000000510541778`"}],
RowBox[{
RowBox[{"-", "4.015716832092971`"}], "-",
RowBox[{"1.1197450184770103`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.116567531586597`"}], "+",
RowBox[{"4.413394448858258`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "5.852924788314067`"}], "+",
RowBox[{"7.898661123137707`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "3.5472739678103453`"}],
RowBox[{"-", "4.01571682747431`"}],
RowBox[{
RowBox[{"-", "1.000000025402304`"}], "-",
RowBox[{"2.935001518660035`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "1.000000045165833`"}],
RowBox[{
RowBox[{"-", "1.0000000532664177`"}], "-",
RowBox[{"6.341912453753023`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.116567519202521`"}], "-",
RowBox[{"6.2070779428894055`*^-9", " ", "\[ImaginaryI]"}]}]},
{"0", "10.631866407055073`", "9.657056180250439`*^-8",
"6.270130149946856`", "6.270130149946868`", "10.121862971324774`", "0",
"3.426876038854755`", "6.025697128915064`", "8.111474067077369`",
"3.426876038854752`", "5.871739692838416`", "11.587981846283228`",
"3.3263844845218506`", "4.719319515853733`", "0", "8.111474067077376`",
"11.587981846283224`", "4.71931951585374`", "10.631866407055044`",
RowBox[{"-", "1.0000000189345495`"}],
RowBox[{
RowBox[{"-", "2.326384492979641`"}], "+",
RowBox[{"3.054858193801552`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "1.00000005105418`"}], "0.9999999800398367`",
RowBox[{
RowBox[{"-", "4.871739693303959`"}], "+",
RowBox[{"5.915965747870749`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "7.976438311898131`"}], "+",
RowBox[{"5.980732131693868`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "5.695550926215321`"}], "-",
RowBox[{"3.4481257444690155`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "1.0000000179514628`"}],
RowBox[{"-", "2.3263845336011806`"}],
RowBox[{
RowBox[{"-", "5.695550892647582`"}], "+",
RowBox[{"4.320221888800731`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "4.871739697759281`"}],
RowBox[{
RowBox[{"-", "1.0000000169953585`"}], "-",
RowBox[{"4.859507593357159`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "6.4256276809739585`"}], "+",
RowBox[{"9.136606514127379`*^-10", " ", "\[ImaginaryI]"}]}]},
{"6.361308386877101`", "0", "4.361308386877116`", "5.116065621884937`",
"0",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"1.4439348285603957`*^-7", " ", "\[ImaginaryI]"}]}],
"3.426876038854748`", "3.167243855525257`", "8.670385034157587`",
"8.565543910908115`", "0", "0", "3.2504192124675377`",
"12.988497460897802`", "8.398678150274042`", "5.4268760388547275`",
"5.334933414681282`", "5.250419212467523`", "3.282612528389091`",
"3.230610496226827`",
RowBox[{
RowBox[{"-", "12.962033342006402`"}], "+",
RowBox[{"1.8983314424181665`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "6.387772500848656`"}], "+",
RowBox[{"7.779640015012867`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.015716832092966`"}], "-",
RowBox[{"1.1197450184770237`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.871739693303951`"}], "+",
RowBox[{"5.915965747870721`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"0.9999999999999993`", "\[VeryThinSpace]", "-",
RowBox[{"3.053000423266545`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000015796047`"}], "-",
RowBox[{"2.0915610991448854`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000047849653`"}], "-",
RowBox[{"2.3686743165875378`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000203789903`"}], "-",
RowBox[{"1.1197450027859506`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.387772485018336`"}], "+",
RowBox[{"5.9310147264576035`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.218422100578819`"}], "-",
RowBox[{"4.937582437672351`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000043710358`"}], "-",
RowBox[{"1.5265002112218643`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.000000021825415`"}], "-",
RowBox[{"9.90233948642188`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.282612530213058`"}], "+",
RowBox[{"2.371753743389216`*^-9", " ", "\[ImaginaryI]"}]}]},
{"6.717438653221805`", "0", "6.717438653221803`", "3.1989271758760665`",
"3.198927175876056`", "0", "9.322536692985695`", "5.250934309746223`",
"5.282612528389099`", "3.2504192124675555`", "5.250934309746219`",
"3.282934572155858`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"8.455172846767646`*^-8", " ", "\[ImaginaryI]"}]}],
"11.933519263537939`", "5.198927175876071`", "9.322536692985684`",
"3.2504192124675484`", "1.0323827311807139`*^-7", "5.198927175876063`",
"0",
RowBox[{
RowBox[{"-", "14.368345383749595`"}], "+",
RowBox[{"3.7846234058175145`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.282612534552095`"}], "-",
RowBox[{"2.759043362463267`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.116567531586593`"}], "+",
RowBox[{"4.413394448858258`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "7.976438311898127`"}], "+",
RowBox[{"5.980732131693875`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.000000001579598`"}], "-",
RowBox[{"2.0915610991448883`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{"0.9999999767980701`", "\[VeryThinSpace]", "-",
RowBox[{"1.900228739351748`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000055796718`"}], "-",
RowBox[{"1.641680439704377`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.116567539725497`"}], "-",
RowBox[{"9.404118413072802`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.282612517929352`"}], "-",
RowBox[{"4.094473136712832`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000531149962`"}], "-",
RowBox[{"6.875377017828778`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000072356923`"}], "-",
RowBox[{"1.2936966610912433`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.388829703934954`"}], "+",
RowBox[{"2.9480914041461096`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000244387983`"}], "-",
RowBox[{"1.5669535184090684`*^-8", " ", "\[ImaginaryI]"}]}]},
{"6.055929020678391`", "0", "2.837506931512823`", "8.232829303547575`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"1.448399004970755`*^-7", " ", "\[ImaginaryI]"}]}],
"3.2306104962268445`", "6.043367922946269`", "8.39970523681459`",
"3.230610496226855`", "5.19873409127332`", "3.3029414436163576`",
"5.335258648084847`", "0", "7.258435832086582`", "8.232829303547597`",
"9.261790012111824`", "0", "3.218422089165564`",
"8.429369702178807`*^-8", "5.198734091273317`",
RowBox[{
RowBox[{"-", "9.095942774770768`"}], "-",
RowBox[{"1.745673089445794`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.218422083511782`"}], "+",
RowBox[{"7.385045030377568`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "5.852924788314065`"}], "+",
RowBox[{"7.898661123137704`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "5.695550926215319`"}], "-",
RowBox[{"3.4481257444690197`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000047849626`"}], "-",
RowBox[{"2.3686743165875388`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.000000005579671`"}], "-",
RowBox[{"1.6416804397043764`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{"0.999999980786979`", "\[VeryThinSpace]", "-",
RowBox[{"3.370066729599674`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000389507469`"}], "-",
RowBox[{"1.5561689465714117`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.00000002085791`"}], "-",
RowBox[{"8.029982968678132`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.179120376368267`"}], "+",
RowBox[{"7.983719603788736`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.218422079564167`"}], "-",
RowBox[{"5.760873066797028`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.4547110991775725`"}], "-",
RowBox[{"4.243641086294588`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000089287047`"}], "-",
RowBox[{"2.4522197490003758`*^-9", " ", "\[ImaginaryI]"}]}]},
{"3.015716820181302`", "3.1989271758760873`", "0", "7.714302574534915`",
"1.0323827311807139`*^-7", "5.065891221033139`", "0",
"4.775755284361727`", "5.0658912210331515`", "8.070230382338865`", "0",
"3.1672438555252738`", "5.116567538279219`", "5.015716820181314`",
"7.714302574534932`", "3.0157168201813`", "3.198927175876073`",
"8.132284358460518`", "1.564067888250637`*^-7", "8.07023038233887`",
RowBox[{"-", "4.01571684215401`"}],
RowBox[{
RowBox[{"-", "4.0157168097097315`"}], "+",
RowBox[{"2.235460459148105`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "3.547273967810346`"}],
RowBox[{"-", "1.0000000179514605`"}],
RowBox[{
RowBox[{"-", "1.0000000203789954`"}], "-",
RowBox[{"1.1197450027859328`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.116567539725502`"}], "-",
RowBox[{"9.404118413072787`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000389507477`"}], "-",
RowBox[{"1.556168946571412`*^-8", " ", "\[ImaginaryI]"}]}],
"0.9999999439888583`",
RowBox[{"-", "1.0000000386472654`"}],
RowBox[{
RowBox[{"-", "5.852924779525666`"}], "+",
RowBox[{"3.161418499476036`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "4.015716813308549`"}],
RowBox[{
RowBox[{"-", "1.000000023766181`"}], "-",
RowBox[{"3.65070424429059`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.116567540274511`"}], "+",
RowBox[{"6.685915121876706`*^-9", " ", "\[ImaginaryI]"}]}]},
{"2.0000000000000178`", "5.334933414681312`", "0", "8.398678150274081`",
"3.282612528389089`", "8.6703850341576`", "4.412064769823927`",
"8.782379876176012`", "1.3328003749250113`*^-7", "3.2306104962268796`",
"5.615136020650717`", "9.017319591940637`", "3.2504192124675555`",
"2.47537371134789`*^-7", "5.116065621885012`", "6.412064769823934`",
"0", "5.250419212467569`", "0", "8.56554391090817`",
RowBox[{"-", "1.0000001217510501`"}],
RowBox[{
RowBox[{"-", "1.0000000498730952`"}], "-",
RowBox[{"1.5592596711273264`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "4.015716827474314`"}],
RowBox[{"-", "2.326384533601188`"}],
RowBox[{
RowBox[{"-", "4.3877724850183375`"}], "+",
RowBox[{"5.931014726457597`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.282612517929348`"}], "-",
RowBox[{"4.094473136712846`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000208579083`"}], "-",
RowBox[{"8.029982968678135`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "1.000000038647269`"}], "0.9999999004072737`",
RowBox[{
RowBox[{"-", "4.218422092633585`"}], "-",
RowBox[{"2.2051261741696768`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "6.3877724799699385`"}],
RowBox[{
RowBox[{"-", "4.852094248611036`"}], "+",
RowBox[{"2.882616257221741`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.000000032624928`"}], "-",
RowBox[{"4.663503562078439`*^-9", " ", "\[ImaginaryI]"}]}]},
{"2.837506931512834`", "5.198734091273381`", "6.055929020678408`", "0",
"8.232829303547625`", "3.2306104962268916`", "9.261790012111863`",
"3.3029414436163775`", "3.230610496226864`",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"5.960464477539063`*^-8", " ", "\[ImaginaryI]"}]}],
"8.39970523681462`", "5.3352586480848805`", "3.2184220891656037`",
"7.258435832086608`", "0", "6.043367922946279`", "5.198734091273343`",
"1.7881393432617188`*^-7", "8.232829303547623`",
"1.9314112360500916`*^-7",
RowBox[{
RowBox[{"-", "9.095942736686155`"}], "-",
RowBox[{"5.835008304270062`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000234104904`"}], "-",
RowBox[{"1.099249651067935`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000254023027`"}], "-",
RowBox[{"2.935001518660032`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "5.695550892647582`"}], "+",
RowBox[{"4.3202218888008364`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.218422100578814`"}], "-",
RowBox[{"4.937582437672369`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000531149942`"}], "-",
RowBox[{"6.875377017828787`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.179120376368268`"}], "+",
RowBox[{"7.983719603788733`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "5.852924779525663`"}], "+",
RowBox[{"3.161418499476039`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.218422092633588`"}], "-",
RowBox[{"2.2051261741696697`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"0.9999999150310204`", "\[VeryThinSpace]", "-",
RowBox[{"1.3418827224449585`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000378628753`"}], "-",
RowBox[{"1.4287477379188586`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.454711080338554`"}], "-",
RowBox[{"6.526975386890222`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000429096814`"}], "-",
RowBox[{"2.025847495782818`*^-8", " ", "\[ImaginaryI]"}]}]},
{"4.361308386877123`", "3.2306104962268662`", "6.361308386877124`", "0",
"5.116065621884976`", "0", "5.426876038854758`",
"1.043875894204443`*^-7", "8.67038503415761`", "5.334933414681289`",
"3.167243855525279`", "0", "5.2504192124675475`", "12.988497460897847`",
"3.2826125283890963`", "3.4268760388547554`", "8.565543910908143`",
"3.250419212467549`", "8.398678150274078`", "0",
RowBox[{"-", "12.96203334658759`"}],
RowBox[{
RowBox[{"-", "4.3877725131753955`"}], "-",
RowBox[{"1.01027721408736`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "1.0000000451658293`"}],
RowBox[{"-", "4.8717396977592715`"}],
RowBox[{
RowBox[{"-", "1.0000000043710346`"}], "-",
RowBox[{"1.526500211221863`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000072356978`"}], "-",
RowBox[{"1.293696661091228`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.218422079564169`"}], "-",
RowBox[{"5.760873066797024`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{"-", "4.0157168133085435`"}],
RowBox[{"-", "6.387772479969934`"}],
RowBox[{
RowBox[{"-", "1.000000037862879`"}], "-",
RowBox[{"1.4287477379188513`*^-9", " ", "\[ImaginaryI]"}]}],
"0.9999999773740511`",
RowBox[{
RowBox[{"-", "1.0000000254720995`"}], "-",
RowBox[{"6.459636955265299`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.2826125308008205`"}], "-",
RowBox[{"3.021582276399656`*^-9", " ", "\[ImaginaryI]"}]}]},
{"2.652768969043665`", "5.421670327527288`", "2.652768969043666`",
"3.302941443616358`", "3.3029414436163647`", "3.2829345721558565`", "0",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"5.960464477539063`*^-8", " ", "\[ImaginaryI]"}]}],
"9.481997421677416`", "9.235986232222851`", "1.192092895507811`*^-7",
"8.429369702178807`*^-8", "8.950937121575947`", "10.023454826004029`",
"5.649910037738079`", "0", "9.235986232222855`", "8.950937121575944`",
"5.649910037738082`", "5.421670327527273`",
RowBox[{
RowBox[{"-", "7.824129541032824`"}], "-",
RowBox[{"2.615801767638703`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.852094247407288`"}], "+",
RowBox[{"8.150142158109911`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000532664153`"}], "-",
RowBox[{"6.341912453753025`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000169953498`"}], "-",
RowBox[{"4.859507593357168`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000218254215`"}], "-",
RowBox[{"9.902339486421846`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.388829703934963`"}], "+",
RowBox[{"2.9480914041461274`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.454711099177576`"}], "-",
RowBox[{"4.243641086294583`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000237661775`"}], "-",
RowBox[{"3.6507042442906386`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.852094248611031`"}], "+",
RowBox[{"2.882616257221735`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.454711080338559`"}], "-",
RowBox[{"6.526975386890189`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000254721066`"}], "-",
RowBox[{"6.459636955265293`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"0.99999995466618`", "\[VeryThinSpace]", "-",
RowBox[{"1.3217665946921187`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "6.73579828322406`"}], "+",
RowBox[{"8.194003927075094`*^-9", " ", "\[ImaginaryI]"}]}]},
{"4.0602207518343345`", "3.250419212467551`", "4.060220751834337`",
"5.198927175876046`", "5.198927175876055`", "5.282612528389076`",
"9.922783430880537`", "8.672072791421526`", "0",
RowBox[{"0.`", "\[VeryThinSpace]", "+",
RowBox[{"1.2605467953829007`*^-7", " ", "\[ImaginaryI]"}]}],
"8.672072791421527`", "8.77692420020725`", "0", "4.020006871460507`",
"3.1989271758760554`", "9.922783430880521`", "0",
"1.1920928955078125`*^-7", "3.1989271758760625`", "3.2504192124675533`",
RowBox[{
RowBox[{"-", "7.080227617958914`"}], "-",
RowBox[{"1.2340147394045156`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000099806603`"}], "-",
RowBox[{"1.750553443204567`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.116567519202523`"}], "-",
RowBox[{"6.2070779428894006`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "6.425627680973963`"}], "+",
RowBox[{"9.136606514127603`*^-10", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.282612530213052`"}], "+",
RowBox[{"2.3717537433891773`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.000000024438792`"}], "-",
RowBox[{"1.5669535184090714`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.000000008928703`"}], "-",
RowBox[{"2.452219749000387`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.116567540274513`"}], "+",
RowBox[{"6.6859151218767125`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000326249332`"}], "-",
RowBox[{"4.663503562078425`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "1.0000000429096791`"}], "-",
RowBox[{"2.0258474957828186`*^-8", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "4.282612530800815`"}], "-",
RowBox[{"3.021582276399671`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{
RowBox[{"-", "6.735798283224059`"}], "+",
RowBox[{"8.194003927075094`*^-9", " ", "\[ImaginaryI]"}]}],
RowBox[{"0.9999999744969308`", "\[VeryThinSpace]", "-",
RowBox[{"2.5670407500559852`*^-8", " ", "\[ImaginaryI]"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{{3.837295476318138*^9, 3.837295524561267*^9}},
CellLabel->
"Out[138]//MatrixForm=",ExpressionUUID->"f1844100-7b38-4e9c-83f5-\
4a6fb3d6afb3"]
}, Open ]]
},
WindowSize->{1428., 779.25},
WindowMargins->{{6, Automatic}, {6, Automatic}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (June 19, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"1f3ed8ec-6103-45a7-937b-bf03bf80e817"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 223, 5, 35, "Text",ExpressionUUID->"30527bb2-1c83-410b-a9c3-cd217fac9ba3"],
Cell[784, 27, 6715, 205, 820, "Input",ExpressionUUID->"712f1eee-ffe3-4442-b0ef-88c55ebe5557"],
Cell[7502, 234, 4155, 106, 306, "Input",ExpressionUUID->"4f9d8ce1-5c7d-4b21-9fd3-3d23f47536a0"],
Cell[11660, 342, 868, 13, 81, "Text",ExpressionUUID->"9ac07c3a-f945-48dc-946f-d840bb5c11e3"],
Cell[12531, 357, 7058, 178, 546, "Input",ExpressionUUID->"8619e990-8f3c-4557-a370-b0aceddab3a5"],
Cell[19592, 537, 10284, 311, 257, "Input",ExpressionUUID->"e8ee6a05-c4eb-478e-af98-5d6b7fbfa46a"],
Cell[CellGroupData[{
Cell[29901, 852, 851, 19, 29, "Input",ExpressionUUID->"91e21391-15e5-4f71-a86a-70fa1b7d0f63"],
Cell[30755, 873, 6503, 223, 103, "Output",ExpressionUUID->"bc6a7319-c5f7-4749-8b7d-3b0627569278"]
}, Open ]],
Cell[CellGroupData[{
Cell[37295, 1101, 210, 3, 29, "Input",ExpressionUUID->"1b485785-b18a-41cd-ae3f-e08589cba70c"],
Cell[37508, 1106, 3500, 65, 376, "Output",ExpressionUUID->"2923c526-7087-4953-afe3-ed03f5fc0785"]
}, Open ]],
Cell[CellGroupData[{
Cell[41045, 1176, 181, 3, 29, "Input",ExpressionUUID->"e5f753ce-5564-440f-bd7f-b8cc0e105693"],
Cell[41229, 1181, 2306, 77, 55, "Output",ExpressionUUID->"6a180ad8-437d-4f6d-8158-e171b514d857"]
}, Open ]],
Cell[CellGroupData[{
Cell[43572, 1263, 514, 10, 29, "Input",ExpressionUUID->"5edb4437-a360-4450-b51a-80c3b26bc8bc"],
Cell[44089, 1275, 48579, 1028, 699, "Output",ExpressionUUID->"f1844100-7b38-4e9c-83f5-4a6fb3d6afb3"]
}, Open ]]
}
]
*)
Reference in a new issue View git blame Copy permalink