(* 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]", "\"\\""}]}], "]"}], "]"}]}], "\[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[{"\"\\"", "->", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ",", RowBox[{"\"\\"", "->", "4"}], ",", RowBox[{"\"\\"", "->", "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", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"invert", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"exact", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", "\[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[{"\"\\"", "->", "3"}], ",", RowBox[{"\"\\"", "->", RowBox[{"{", RowBox[{"1", ",", "2", ",", "10"}], "}"}]}], ",", RowBox[{"\"\\"", "->", "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 ]] } ] *)