diff --git a/fractal_dimension/fractal_dimension.nb b/fractal_dimension/fractal_dimension.nb
index 8a5faa7..8a4bd07 100644
--- a/fractal_dimension/fractal_dimension.nb
+++ b/fractal_dimension/fractal_dimension.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    542376,      14487]
-NotebookOptionsPosition[    525346,      14212]
-NotebookOutlinePosition[    525841,      14230]
-CellTagsIndexPosition[    525798,      14227]
+NotebookDataLength[     50641,       1216]
+NotebookOptionsPosition[     47971,       1175]
+NotebookOutlinePosition[     48466,       1193]
+CellTagsIndexPosition[     48423,       1190]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -27,12 +27,12 @@ Cell[BoxData[
     RowBox[{"Transpose", "[", "A", "]"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.831194837404834*^9, 3.8311948924696903`*^9}, {
   3.831194930347896*^9, 3.831194932848599*^9}},
- CellLabel->"In[3]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
+ CellLabel->"In[1]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
 
 Cell[BoxData[
  RowBox[{
   RowBox[{"pMatrix", "[", "n_", "]"}], ":=", 
-  RowBox[{"Table", "[", "\[IndentingNewLine]", 
+  RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Which", "[", 
      RowBox[{
@@ -44,19 +44,19 @@ Cell[BoxData[
         RowBox[{"i", "\[Equal]", "1"}], "&&", 
         RowBox[{"j", "\[Equal]", "2"}]}]}], ",", 
       RowBox[{
-       RowBox[{"-", "1"}], "/", "2"}], ",", "\[IndentingNewLine]", 
+       RowBox[{"-", "1"}], "/", "2"}], ",", 
       RowBox[{
        RowBox[{"i", "\[Equal]", "j"}], "&&", 
-       RowBox[{"i", ">", "2"}]}], ",", "1", ",", "\[IndentingNewLine]", 
-      "True", ",", "0"}], "]"}], ",", 
+       RowBox[{"i", ">", "2"}]}], ",", "1", ",", "True", ",", "0"}], "]"}], 
+    ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "n"}], "}"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.831107414093502*^9, 3.83110748040809*^9}, {
   3.831107557920609*^9, 3.8311075805621977`*^9}, {3.8311076270925627`*^9, 
-  3.831107722019619*^9}},
- CellLabel->"In[4]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
+  3.831107722019619*^9}, {3.83468833600141*^9, 3.8346883410498962`*^9}},
+ CellLabel->"In[2]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
 
 Cell[BoxData[
  RowBox[{
@@ -69,7 +69,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831107486071478*^9, 3.831107546093779*^9}, {
   3.831109392242589*^9, 3.831109394639595*^9}, {3.831110190169511*^9, 
   3.831110193792735*^9}},
- CellLabel->"In[5]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
+ CellLabel->"In[3]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
 
 Cell[BoxData[
  RowBox[{
@@ -82,12 +82,12 @@ Cell[BoxData[
       RowBox[{"MatrixRank", "[", "G", "]"}]}], "]"}], "]"}], "//", 
    "Transpose"}]}]], "Input",
  CellChangeTimes->{{3.831109396818718*^9, 3.831109426888632*^9}},
- CellLabel->"In[6]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
+ CellLabel->"In[4]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
 
 Cell[BoxData[
  RowBox[{
   RowBox[{"linearRelations", "[", "L_", "]"}], ":=", 
-  RowBox[{"Select", "[", "\[IndentingNewLine]", 
+  RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
@@ -111,13 +111,14 @@ Cell[BoxData[
      RowBox[{"Not", "[", 
       RowBox[{"BooleanQ", "[", "#", "]"}], "]"}], "&"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.831109446192391*^9, 3.831109495064299*^9}, {
-  3.8311095335606937`*^9, 3.831109534992022*^9}, {3.831109584393684*^9, 
-  3.831109833956565*^9}, {3.8311098747139893`*^9, 3.8311099163122053`*^9}, {
-  3.831110035487195*^9, 3.83111004405739*^9}, {3.831110077358601*^9, 
-  3.831110081551445*^9}, {3.831194643897842*^9, 3.8311946492229443`*^9}, {
-  3.831194680087949*^9, 3.831194680680228*^9}, {3.831194956352386*^9, 
-  3.831195002875142*^9}, {3.831205178380069*^9, 3.831205187846324*^9}},
- CellLabel->"In[7]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
+   3.8311095335606937`*^9, 3.831109534992022*^9}, {3.831109584393684*^9, 
+   3.831109833956565*^9}, {3.8311098747139893`*^9, 3.8311099163122053`*^9}, {
+   3.831110035487195*^9, 3.83111004405739*^9}, {3.831110077358601*^9, 
+   3.831110081551445*^9}, {3.831194643897842*^9, 3.8311946492229443`*^9}, {
+   3.831194680087949*^9, 3.831194680680228*^9}, {3.831194956352386*^9, 
+   3.831195002875142*^9}, {3.831205178380069*^9, 3.831205187846324*^9}, 
+   3.834688343633176*^9},
+ CellLabel->"In[5]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
 
 Cell[BoxData[
  RowBox[{
@@ -127,7 +128,7 @@ Cell[BoxData[
   ";"}]], "Input",
  CellChangeTimes->{{3.831110103314905*^9, 3.831110162272215*^9}, 
    3.831206070230084*^9},
- CellLabel->"In[8]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
+ CellLabel->"In[6]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
 
 Cell[BoxData[
  RowBox[{
@@ -162,7 +163,7 @@ Cell[BoxData[
         "]"}]}], ")"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.831194278291965*^9, 3.831194298458626*^9}, 
    3.831195204231324*^9},
- CellLabel->"In[9]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
+ CellLabel->"In[7]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
 
 Cell[BoxData[
  RowBox[{
@@ -184,7 +185,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831195055004586*^9, 3.83119507699967*^9}, {
   3.831195107195753*^9, 3.831195121990181*^9}, {3.831195208095559*^9, 
   3.831195214781535*^9}},
- CellLabel->"In[10]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
+ CellLabel->"In[8]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
 
 Cell[BoxData[
  RowBox[{
@@ -205,7 +206,7 @@ Cell[BoxData[
       RowBox[{"v", ".", "Q", ".", "v"}], "\[Equal]", "0"}], "]"}]}], 
    "]"}]}]], "Input",
  CellChangeTimes->{{3.831195241841057*^9, 3.831195289590564*^9}},
- CellLabel->"In[11]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
+ CellLabel->"In[9]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
 
 Cell[BoxData[
  RowBox[{
@@ -226,7 +227,7 @@ Cell[BoxData[
          RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}], 
    "]"}]}]], "Input",
  CellChangeTimes->{{3.831195337159152*^9, 3.831195396279203*^9}},
- CellLabel->"In[12]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
+ CellLabel->"In[10]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
 
 Cell[BoxData[
  RowBox[{
@@ -242,7 +243,7 @@ Cell[BoxData[
        RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}]], "Input",\
 
  CellChangeTimes->{{3.8312049925958433`*^9, 3.8312050200596113`*^9}},
- CellLabel->"In[13]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
+ CellLabel->"In[11]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
 
 Cell[BoxData[
  RowBox[{
@@ -263,7 +264,7 @@ Cell[BoxData[
    "]"}]}]], "Input",
  CellChangeTimes->{{3.8315843493182087`*^9, 3.831584372878718*^9}, {
   3.831584545556731*^9, 3.831584563248426*^9}},
- CellLabel->"In[14]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
+ CellLabel->"In[12]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
 
 Cell[BoxData[
  RowBox[{
@@ -293,7 +294,7 @@ Cell[BoxData[
          RowBox[{"[", "pos", "]"}], "]"}]}], "}"}]}]}], "]"}]}], 
   ";"}]], "Input",
  CellChangeTimes->{3.831210886725911*^9},
- CellLabel->"In[15]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
+ CellLabel->"In[13]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
 
 Cell[BoxData[{
  RowBox[{
@@ -311,7 +312,7 @@ Cell[BoxData[{
        "\[IndentingNewLine]", 
        RowBox[{"FindFace", "[", 
         RowBox[{"g", ",", "emb"}], "]"}]}]}], "]"}]}], ";"}], 
-  "\[IndentingNewLine]"}], "\n", 
+  "\n"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"FindFace", "[", 
    RowBox[{
@@ -400,8 +401,9 @@ Cell[BoxData[{
       RowBox[{"[", 
        RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}]}], "Input",
  CellChangeTimes->{{3.8312108953940573`*^9, 3.831210895411563*^9}, 
-   3.8312119634327393`*^9, 3.831542420732052*^9},
- CellLabel->"In[16]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
+   3.8312119634327393`*^9, 3.831542420732052*^9, {3.834688353349917*^9, 
+   3.8346883534550037`*^9}},
+ CellLabel->"In[14]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
 
 Cell[BoxData[
  RowBox[{
@@ -633,7 +635,7 @@ Cell[BoxData[
    3.831725440268997*^9}, {3.8317255156810293`*^9, 3.8317256205301943`*^9}, {
    3.831725829008904*^9, 3.831725851322979*^9}, {3.831726730605854*^9, 
    3.8317267923612432`*^9}, 3.833968804473505*^9},
- CellLabel->"In[18]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
+ CellLabel->"In[16]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
 
 Cell[BoxData[
  RowBox[{
@@ -652,8 +654,9 @@ Cell[BoxData[
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"face", "=", 
-        RowBox[{"faces", "[", 
-         RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
+        RowBox[{
+        "faces", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
+       ";", "\[IndentingNewLine]", 
        RowBox[{"verticesOnFace", "=", 
         RowBox[{"Sort", "[", 
          RowBox[{"RandomSample", "[", 
@@ -678,8 +681,8 @@ Cell[BoxData[
           RowBox[{
            RowBox[{
             RowBox[{"IdentityMatrix", "[", 
-             RowBox[{"Length", "[", "vertices", "]"}], "]"}], "[", 
-            RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", 
+             RowBox[{"Length", "[", "vertices", "]"}], "]"}], 
+            "\[LeftDoubleBracket]", "#", "\[RightDoubleBracket]"}], "&"}], "/@", 
           RowBox[{"DeleteDuplicates", "[", 
            RowBox[{"Join", "[", 
             RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], "]"}]}],
@@ -694,9 +697,8 @@ Cell[BoxData[
        RowBox[{"Gp", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
-          RowBox[{"G", "[", 
-           RowBox[{"[", 
-            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
+          RowBox[{"G", "\[LeftDoubleBracket]", 
+           RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "allVertices"}], "}"}], ",", 
           RowBox[{"{", 
@@ -723,9 +725,9 @@ Cell[BoxData[
            RowBox[{
             RowBox[{
              RowBox[{
-              RowBox[{"#", "[", 
-               RowBox[{"[", "1", "]"}], "]"}], "[", 
-              RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
+              RowBox[{
+              "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
+              "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "&"}], "/@", 
             RowBox[{"NSolve", "[", 
              RowBox[{"Qform", ",", 
               SubscriptBox["b", "otherVertex"]}], "]"}]}], "]"}], "]"}], 
@@ -752,9 +754,8 @@ Cell[BoxData[
          RowBox[{"Length", "[", "allVertices", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
-        RowBox[{"small", "[", 
-         RowBox[{"[", 
-          RowBox[{"-", "1"}], "]"}], "]"}], "=", 
+        RowBox[{"small", "\[LeftDoubleBracket]", 
+         RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"If", "[", 
@@ -765,11 +766,12 @@ Cell[BoxData[
              RowBox[{
               RowBox[{"MemberQ", "[", 
                RowBox[{"verticesOnFace", ",", 
-                RowBox[{"allVertices", "[", 
-                 RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
-              RowBox[{"coeff", "[", 
-               RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}]}], "]"}], 
-          ",", 
+                RowBox[{
+                "allVertices", "\[LeftDoubleBracket]", "j", 
+                 "\[RightDoubleBracket]"}]}], "]"}], ",", 
+              RowBox[{
+              "coeff", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
+               ",", "0"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", 
             RowBox[{"Length", "[", "allVertices", "]"}]}], "}"}]}], "]"}]}], 
@@ -777,15 +779,13 @@ Cell[BoxData[
        RowBox[{"Li", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
-          RowBox[{"Table", "[", 
+          RowBox[{"If", "[", 
            RowBox[{
-            RowBox[{"If", "[", 
-             RowBox[{
-              RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], 
-            ",", 
-            RowBox[{"{", 
-             RowBox[{"j", ",", 
-              RowBox[{"Length", "[", "vertices", "]"}]}], "}"}]}], "]"}], ",", 
+            RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], ",", 
+          
+          RowBox[{"{", 
+           RowBox[{"j", ",", 
+            RowBox[{"Length", "[", "vertices", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "allVertices"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
@@ -810,8 +810,12 @@ Cell[BoxData[
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "faces", "]"}]}], "}"}]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.833981987629899*^9, 3.83398199939977*^9}},
- CellLabel->"In[19]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
+ CellChangeTimes->{{3.833981987629899*^9, 3.83398199939977*^9}, {
+  3.834688227481195*^9, 3.834688274556583*^9}, {3.83468883312962*^9, 
+  3.834688836641605*^9}, {3.834688881355237*^9, 3.834688884801515*^9}, {
+  3.8346889307534027`*^9, 3.834689029259427*^9}, {3.834689161206604*^9, 
+  3.8346891613731537`*^9}},
+ CellLabel->"In[17]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
 
 Cell[BoxData[
  RowBox[{
@@ -837,7 +841,7 @@ Cell[BoxData[
      RowBox[{"Length", "[", "G", "]"}], "]"}], ",", "G"}], "]"}]}]], "Input",
  CellChangeTimes->{{3.831554845925479*^9, 3.8315548977219877`*^9}, 
    3.833982029038528*^9},
- CellLabel->"In[20]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
+ CellLabel->"In[18]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
 
 Cell[BoxData[
  RowBox[{
@@ -888,7 +892,11 @@ Cell[BoxData[
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"Delete", "[", 
-             RowBox[{"current", ",", 
+             RowBox[{
+              RowBox[{
+               RowBox[{
+               "generators", "\[LeftDoubleBracket]", "i", 
+                "\[RightDoubleBracket]"}], ".", "current"}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"{", "#", "}"}], "&"}], "/@", 
@@ -942,8 +950,11 @@ Cell[BoxData[
    3.834351949243196*^9, 3.834351950526677*^9}, {3.834352089916841*^9, 
    3.834352127810135*^9}, {3.8346566614593353`*^9, 3.8346566626212893`*^9}, {
    3.834656744290606*^9, 3.8346567586616583`*^9}, {3.834659006866577*^9, 
-   3.834659016440263*^9}},
- CellLabel->"In[21]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
+   3.834659016440263*^9}, {3.8346706664345417`*^9, 3.834670668758758*^9}, {
+   3.834671395332242*^9, 3.83467148748079*^9}, {3.834671580308955*^9, 
+   3.834671642730775*^9}, {3.834671988628789*^9, 3.834671991147118*^9}, {
+   3.83467255246567*^9, 3.8346725653260603`*^9}},
+ CellLabel->"In[19]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
 
 Cell[CellGroupData[{
 
@@ -952,7 +963,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.833893222127377*^9, 3.833893227672316*^9}, {
   3.83397931096562*^9, 3.833979311902438*^9}, {3.833982525256192*^9, 
   3.833982529177711*^9}, {3.833982918567665*^9, 3.8339829240001698`*^9}},
- CellLabel->"In[22]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
+ CellLabel->"In[20]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
 
 Cell[BoxData["16384"], "Output",
  CellChangeTimes->{
@@ -989,8 +1000,11 @@ Cell[BoxData["16384"], "Output",
    3.834619146500414*^9, 3.834619200887533*^9}, 3.834620064417549*^9, 
    3.834622032092245*^9, 3.8346548822352743`*^9, 3.834654946056427*^9, {
    3.8346646221002398`*^9, 3.8346646607444057`*^9}, 3.834666963392949*^9, 
-   3.8346675010015087`*^9},
- CellLabel->"Out[22]=",ExpressionUUID->"db36a9a4-6fdf-4a0c-aac5-441635dce0dd"]
+   3.8346675010015087`*^9, 3.83467065066402*^9, 3.834670688395502*^9, 
+   3.834670724619562*^9, 3.8346707922130203`*^9, 3.834672572650928*^9, {
+   3.834672606536978*^9, 3.834672633714957*^9}, 3.834688011488668*^9, 
+   3.834741745404797*^9},
+ CellLabel->"Out[20]=",ExpressionUUID->"4556071e-a1ae-4f56-bd89-317072a8ba00"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -1060,7 +1074,7 @@ Cell[BoxData[
   3.8342709184846773`*^9}, {3.834271399281299*^9, 3.834271400142085*^9}, {
   3.8345760352900133`*^9, 3.834576035855191*^9}, {3.834594490350781*^9, 
   3.834594498152722*^9}},
- CellLabel->"In[23]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
+ CellLabel->"In[21]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
 
 Cell[BoxData[
  RowBox[{
@@ -1096,97 +1110,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.833978075492923*^9, 3.833978098104927*^9}, {
   3.833978140873678*^9, 3.833978187704298*^9}, {3.833979750071292*^9, 
   3.833979764905096*^9}, {3.833980891992284*^9, 3.833980904095957*^9}},
- CellLabel->"In[24]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{
-   RowBox[{"pyramidG", "[", "5", "]"}], "//", "Simplify"}], "//", 
-  "MatrixForm"}]], "Input",
- CellChangeTimes->{{3.834589971082777*^9, 3.834589977737949*^9}},
- CellLabel->"In[25]:=",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"],
-
-Cell[BoxData[
- TagBox[
-  RowBox[{"(", "\[NoBreak]", GridBox[{
-     {"1", 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}]},
-     {
-      RowBox[{"-", "1"}], "1", 
-      RowBox[{"-", "1"}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}], 
-      RowBox[{"-", "1"}]},
-     {
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], "1", 
-      RowBox[{"-", "1"}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}]},
-     {
-      RowBox[{"-", "1"}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}], 
-      RowBox[{"-", "1"}], "1", 
-      RowBox[{"-", "1"}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}]},
-     {
-      RowBox[{"-", "1"}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}], 
-      RowBox[{"-", "1"}], "1", 
-      RowBox[{"-", "1"}]},
-     {
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}], 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       SqrtBox["5"]}], 
-      RowBox[{"-", "1"}], "1"}
-    },
-    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
-    GridBoxSpacings->{"Columns" -> {
-        Offset[0.27999999999999997`], {
-         Offset[0.7]}, 
-        Offset[0.27999999999999997`]}, "Rows" -> {
-        Offset[0.2], {
-         Offset[0.4]}, 
-        Offset[0.2]}}], "\[NoBreak]", ")"}],
-  Function[BoxForm`e$, 
-   MatrixForm[BoxForm`e$]]]], "Output",
- CellChangeTimes->{
-  3.834589978025352*^9, 3.8346191110031843`*^9, {3.834619146536714*^9, 
-   3.834619200920805*^9}, 3.834620064478142*^9, 3.83462203217528*^9, 
-   3.834654882282044*^9, 3.834654946095351*^9, {3.834664622154368*^9, 
-   3.834664660779725*^9}, 3.834666963432308*^9, 3.834667501038383*^9},
- CellLabel->
-  "Out[25]//MatrixForm=",ExpressionUUID->"7e49fb89-63ef-4917-8b8f-\
-3b4e356862e7"]
-}, Open  ]],
+ CellLabel->"In[22]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
 
 Cell[BoxData[
  RowBox[{
@@ -1222,12740 +1146,7 @@ Cell[BoxData[
   3.833979410979437*^9}, {3.8339798534902363`*^9, 3.833979853676499*^9}, {
   3.8339800331837673`*^9, 3.833980033963599*^9}, {3.833981434488759*^9, 
   3.8339814414612226`*^9}, {3.833981948527481*^9, 3.8339819534472733`*^9}},
- CellLabel->"In[26]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"G", "=", 
-  RowBox[{"{", 
-   RowBox[{
-    RowBox[{"{", 
-     RowBox[{"1", ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        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[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        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[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       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", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "8"}], "-", 
-       RowBox[{"3", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "2"}], "-", 
-       RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{
-       RowBox[{"-", "5"}], "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-      RowBox[{"-", "1"}], ",", 
-      RowBox[{"3", " ", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"-", "2"}], "-", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1"}], "}"}]}], 
-   "}"}]}]], "Input",
- CellChangeTimes->{{3.834576684278866*^9, 3.83457673658538*^9}, {
-   3.834577368235077*^9, 3.83457741966676*^9}, {3.834587930515738*^9, 
-   3.8345879754426622`*^9}, 3.834596514186092*^9, {3.8345965717252493`*^9, 
-   3.8345966680116*^9}, 3.834597106557557*^9},
- CellLabel->"In[27]:=",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", "1", ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", "1", ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", "1", ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", "1", ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", "1", ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", "1", ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "8"}], "-", 
-      RowBox[{"3", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{
-      RowBox[{"-", "5"}], "-", 
-      RowBox[{"2", " ", 
-       SqrtBox["5"]}]}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"3", " ", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834577475644277*^9, 3.834587976288975*^9, {3.834589015445696*^9, 
-   3.8345890313170013`*^9}, 3.834589551887248*^9, 3.8345966690039873`*^9, 
-   3.83459710893034*^9, 3.834619111092857*^9, {3.834619146598003*^9, 
-   3.8346192009846697`*^9}, 3.834620064533987*^9, 3.834622032304461*^9, 
-   3.8346548823548317`*^9, 3.834654946154332*^9, {3.834664622222312*^9, 
-   3.834664660835423*^9}, 3.834666963491376*^9, 3.834667501097872*^9},
- CellLabel->"Out[27]=",ExpressionUUID->"deb4b937-12ea-4df7-b67b-fadd15025eba"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"fractalDimensionFromG", "[", 
-   RowBox[{"G", ",", "1000", ",", "20", ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "4", ",", "4", ",", "7"}], 
-     "}"}]}], "]"}], "*)"}]], "Input",
- CellChangeTimes->{{3.8345945020265207`*^9, 3.8345945253251333`*^9}, {
-  3.834619176527865*^9, 3.83461917834228*^9}},
- CellLabel->"In[28]:=",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"faces", "-", "1"}]], "Input",
- CellChangeTimes->{{3.834588042134763*^9, 3.834588042907105*^9}},
- CellLabel->"In[29]:=",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"-", "1"}], "+", "faces"}]], "Output",
- CellChangeTimes->{
-  3.834588043391036*^9, 3.834589015470923*^9, 3.834589556494358*^9, 
-   3.8345966939861794`*^9, 3.834597118683176*^9, {3.83461918064968*^9, 
-   3.834619201021398*^9}, 3.83462006456221*^9, 3.83462203235201*^9, 
-   3.8346548823834476`*^9, 3.834654946183599*^9, {3.834664622256152*^9, 
-   3.834664660859713*^9}, 3.8346669635218773`*^9, 3.834667501127986*^9},
- CellLabel->"Out[29]=",ExpressionUUID->"8ab37040-62b0-4839-a407-e5c9ef993975"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"faces", "=", 
-  RowBox[{"FindFace", "[", 
-   RowBox[{"PlanarGraph", "[", 
-    RowBox[{"AdjacencyGraph", "[", 
-     RowBox[{
-      RowBox[{
-       RowBox[{
-        RowBox[{
-         RowBox[{
-          RowBox[{"If", "[", 
-           RowBox[{
-            RowBox[{"#", "\[Equal]", 
-             RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", 
-         "#"}], "&"}], "/@", "G"}], ",", 
-      RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}], "]"}], 
-   "]"}]}]], "Input",
- CellChangeTimes->{{3.834583137581257*^9, 3.834583138213504*^9}},
- CellLabel->"In[30]:=",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", "14", ",", "9", ",", "10", ",", "15"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "15", ",", "4", ",", "8", ",", "16"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "16", ",", "7", ",", "3", ",", "14"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "5", ",", "11", ",", "12", ",", "6"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "6", ",", "20", ",", "18", ",", "13"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "13", ",", "17", ",", "19", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"3", ",", "7", ",", "11", ",", "5", ",", "19"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"3", ",", "19", ",", "17", ",", "9", ",", "14"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"4", ",", "15", ",", "10", ",", "18", ",", "20"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"4", ",", "20", ",", "6", ",", "12", ",", "8"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"7", ",", "16", ",", "8", ",", "12", ",", "11"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"9", ",", "17", ",", "13", ",", "18", ",", "10"}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{
-  3.8345829667142353`*^9, 3.8345831386319103`*^9, 3.8345879905510902`*^9, {
-   3.8345890155099287`*^9, 3.834589033262504*^9}, 3.834589555012388*^9, 
-   3.834596688916205*^9, 3.8345971158718147`*^9, {3.834619180679515*^9, 
-   3.8346192010511627`*^9}, 3.8346200645902567`*^9, 3.8346220323939047`*^9, 
-   3.8346548824074707`*^9, 3.834654946211236*^9, {3.834664622287777*^9, 
-   3.8346646608838663`*^9}, 3.834666963546013*^9, 3.8346675011564627`*^9},
- CellLabel->"Out[30]=",ExpressionUUID->"72c9eab5-e345-4992-ad39-f3b117ca7936"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"sigmas", "=", 
-   RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}], "*)"}]], "Input",
- CellChangeTimes->{{3.834577451985367*^9, 3.8345774708567953`*^9}, 
-   3.834577518160853*^9, {3.8345831405903873`*^9, 3.834583141558793*^9}, {
-   3.8346191956007032`*^9, 3.834619197573401*^9}},
- CellLabel->"In[31]:=",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"Timing", "[", 
-   RowBox[{"pyramidFractalDimension", "[", 
-    RowBox[{"11", ",", "100000", ",", "10000"}], "]"}], "]"}], 
-  "*)"}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJwd0n0sFHAYB/BD4U6qq5atWDRRXMqdtyZEqKEipbJQImGlN2Je0oqd5kYp
-1WW6lv5IZ4xZYqFy3tbUKMWYU3fn8lZeKi9Jv+/zx2+fP357nt9vz/O1iEw4
-GK3L4XD82YFSu0K9V/mjnjJLZ30Y3uPIgy7liWT3JjcvOCzX94EtZQFHYc1M
-DrlrSBMF93OHyQ9zs7kwyddaAieV+6qgTbCKjBSNKqDQwrwZXm5oHIN/S0fI
-TG/BNExPkvyBa3kPdOvRp6mdVD6RGUDf9AoyJGSNMdzuJiZNSk1LoMjalnxW
-kMVvwH81Fath+/tlFjA3rtQKruybc4a9obtdYPdCpRuU9gvcYZE2akcjU2N7
-jRSYH46D4sxY0kQnL/I17vOKyRjjthuwtryL1Fb9FL1FneofGb5YFw9VPb2k
-e+ixanjpVyjpNLPvJdSXB5KK6R/CJmaTWE8E/Yqm7sJ696WF0OxR5RYF6o++
-IfvUUQ5Qf1HHCWYd6PeBMS3XfeGSOm4yVBXuJOM6m2pgh/ojudXw8/VmZlfs
-OGk3GN8LQz1SyZsVUscW5skgOWlzo7cGVn7VkrbfO4StmI/tFzJrvntjG3Pv
-2W/kofS5sHb00wyFQ+Higv075roajhBm8qLj4Pjf4ARYn5ieDP3E2gwYvqxa
-BgtPW5fA1glhKZTwnpM5nc1OfcirnZrUmHhmD+D9Pd7k9gZBHsxI20FOao22
-fcP+XeTkYMTFERiRlkQu58gsVci14Cl5azHHB6Yk3SNtAiUpkFdVRM765XfA
-M8qH5LjisYGaeUdZRorSYq/C824p5H3+vTUa5DJISiaumjeFXlKuGbxc/WLT
-ELPRtZnMllhthQNjItL0U22Ilvkutf8ITJv3NRzG/HWOkAYDFwImmYEbxKSh
-nCuFkXw+edthQg2tfv4mw5TxoimmvyyF1FrpFkAvHz6pibdYP81csdmeLE5e
-2wotFzaSMstzjb+YV1xlpMepL2MGt0Y9YxWDJHfh+BIuc+B+AhkVXTdhxDwz
-xJmCv+1PhBkzH5blkx0O5QWwpFZD/gdS9J8/
-  "],
- CellLabel->"In[32]:=",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"dodeca", "=", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1", ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         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[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         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[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        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", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "8"}], "-", 
-        RowBox[{"3", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"Sqrt", "[", "5", "]"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"3", " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "2"}], "-", 
-          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1"}], "}"}]}], 
-    "}"}]}], ";"}]], "Input",
- CellChangeTimes->{{3.834667572388039*^9, 3.8346675740693903`*^9}, 
-   3.834667989980823*^9},
- CellLabel->
-  "In[110]:=",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"],
-
-Cell[BoxData[
- RowBox[{"sigmas", "=", 
-  RowBox[{"findGeneratorsFromG", "[", "dodeca", "]"}]}]], "Input",
- CellChangeTimes->{{3.834668012751122*^9, 3.834668018735074*^9}},
- CellLabel->
-  "In[111]:=",ExpressionUUID->"11673ea1-7576-40eb-a075-54a9a15912ab"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"{", 
-   RowBox[{
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-       "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "6.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "9.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.2360679774997894`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "1.9999999999999998`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.618033988749895`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "4.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.23606797749979`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.2360679774997894`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "6.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "8.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "7.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "9.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.236067977499789`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "4.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.23606797749979`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "5.854101966249685`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.23606797749979`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "1.6180339887498951`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "6.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "7.854101966249683`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "7.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "8.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.2360679774997894`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "4.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249685`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "1.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.0000000000000002`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "3.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "1.9999999999999998`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.236067977499789`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "3.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.2360679774997894`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "3.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.23606797749979`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "5.854101966249685`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249685`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.23606797749979`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "1.618033988749895`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "10.090169943749471`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "11.090169943749473`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "13.090169943749476`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "9.472135954999578`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "8.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "10.090169943749475`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "11.708203932499366`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "12.090169943749473`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "13.70820393249937`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "5.236067977499789`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "7.4721359549995805`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "6.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "6.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "6.236067977499791`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "7.854101966249683`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "10.090169943749475`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "6.236067977499791`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "7.854101966249683`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "8.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "8.47213595499958`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "4.618033988749896`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "10.090169943749471`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "10.47213595499958`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "13.70820393249937`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "6.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "7.236067977499791`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "11.708203932499366`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "11.090169943749473`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "14.70820393249937`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "5.236067977499789`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "5.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "8.47213595499958`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "12.708203932499366`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "12.090169943749473`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "14.70820393249937`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.23606797749979`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "4.618033988749896`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-       "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "7.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "10.47213595499958`", ",", "0.`", ",", 
-        "9.47213595499958`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-        "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.618033988749895`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.9999999999999996`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "4.854101966249684`", ",", 
-        "0.`", ",", "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "6.236067977499789`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "7.472135954999579`", ",", 
-        "0.`", ",", "6.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "6.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "9.47213595499958`", ",", "0.`", ",", 
-        "9.47213595499958`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-        "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-        "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}], ",", "3.`", ",", "0.`", ",", 
-        "4.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-        "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}], ",", "4.618033988749895`", ",",
-         "0.`", ",", "2.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.9999999999999996`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "5.854101966249684`", ",", 
-        "0.`", ",", "4.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "4.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}], ",", "4.618033988749895`", ",",
-         "0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "4.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "5.854101966249684`", ",", 
-        "0.`", ",", "6.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "6.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "10.47213595499958`", ",", "0.`", ",", 
-        "8.47213595499958`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-        "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.23606797749979025`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}], ",", "3.`", ",", "0.`", ",", 
-        "2.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "4.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "7.472135954999579`", ",", 
-        "0.`", ",", "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "4.854101966249685`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "9.47213595499958`", ",", "0.`", ",", 
-        "7.854101966249685`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "4.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}], ",", "5.618033988749895`", ",",
-         "0.`", ",", "4.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "4.854101966249685`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "8.854101966249685`", ",", "0.`", ",", 
-        "8.47213595499958`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-        "}"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "4.472135954999579`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "4.`", ",", "4.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-       "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "2.9999999999999996`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "3.854101966249684`", ",", 
-        "1.2360679774997896`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "2.9999999999999996`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "1.2360679774997898`", ",", 
-        "3.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.6180339887498948`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-       "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.6180339887498949`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "1.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.3819660112501051`"}], ",", "1.472135954999579`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "2.7639320225002098`", ",", 
-        "1.1458980337503153`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.3819660112501051`"}], ",", "1.472135954999579`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "1.1458980337503153`", ",", 
-        "2.7639320225002098`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "5.472135954999579`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "4.`", ",", "3.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-       "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "5.472135954999579`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "3.`", ",", "4.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-       "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.3819660112501051`"}], ",", "3.0901699437494736`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "1.1458980337503153`", ",", 
-        "1.1458980337503153`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "4.854101966249684`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "4.618033988749895`", ",", "3.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "4.854101966249684`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "3.`", ",", "4.618033988749895`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "2.3819660112501047`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "2.8541019662496843`", ",", 
-        "2.8541019662496843`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "3.999999999999999`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "2.8541019662496843`", ",", 
-        "1.2360679774997896`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "3.999999999999999`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "1.2360679774997898`", ",", 
-        "2.8541019662496843`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.3819660112501051`"}], ",", "2.4721359549995787`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "2.7639320225002098`", ",", 
-        "0.14589803375031551`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.3819660112501051`"}], ",", "2.4721359549995787`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.14589803375031551`", ",", 
-        "2.7639320225002098`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], 
-    ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "5.236067977499788`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "2.618033988749895`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.6180339887498948`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}],
-       ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "6.854101966249683`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "2.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.9999999999999991`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "1.9999999999999996`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "2.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "3.618033988749894`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "5.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "6.236067977499788`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "4.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "1.6180339887498947`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "2.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "4.236067977499789`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "1.6180339887498947`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "1.9999999999999993`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "1.9999999999999996`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "4.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "4.236067977499789`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "3.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "1.9999999999999991`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.38196601125010515`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "4.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "6.236067977499788`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "3.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "5.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "5.236067977499788`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "3.618033988749894`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.38196601125010515`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "3.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}]}], 
-     "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.618033988749894`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "3.618033988749895`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.9999999999999998`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.6180339887498949`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.3819660112501047`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.3819660112501051`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "1.6180339887498942`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.3819660112501047`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.618033988749894`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "5.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.999999999999999`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.3819660112501051`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "2.618033988749894`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.23606797749978958`"}], ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.236067977499789`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "2.618033988749894`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.2360679774997894`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.38196601125010465`",
-         ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.3819660112501051`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "2.618033988749894`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.3819660112501047`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.6180339887498942`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "4.236067977499789`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.2360679774997894`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.999999999999999`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.3819660112501051`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "1.6180339887498942`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.7639320225002102`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.236067977499789`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "3.236067977499789`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6180339887498949`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.6180339887498942`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "3.236067977499789`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.23606797749979`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.618033988749894`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "5.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "3.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.618033988749894`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "4.854101966249684`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "3.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.3819660112501047`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.3819660112501051`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "3.236067977499789`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.7639320225002102`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "1.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.236067977499789`", 
-        ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "4.236067977499789`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6180339887498949`", ",", 
-        "0.`"}], "}"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.2360679774997894`", ",", 
-        "0.`", ",", "2.`", ",", "0.`", ",", "3.2360679774997894`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-        "1.3819660112501047`", ",", "0.`", ",", "2.8541019662496843`", ",", 
-        "0.`", ",", "1.3819660112501047`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", 
-        "3.618033988749894`", ",", "0.`", ",", "4.23606797749979`", ",", 
-        "0.`", ",", "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "1.6180339887498947`", ",", 
-        "0.`", ",", "3.618033988749895`", ",", "0.`", ",", 
-        "3.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "1.6180339887498947`", ",", 
-        "0.`", ",", "2.618033988749895`", ",", "0.`", ",", 
-        "4.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "4.236067977499789`", ",", 
-        "0.`", ",", "2.618033988749895`", ",", "0.`", ",", 
-        "1.6180339887498947`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", 
-        "5.236067977499789`", ",", "0.`", ",", "4.23606797749979`", ",", 
-        "0.`", ",", "3.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-       "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-        "0.3819660112501049`", ",", "0.`", ",", "2.23606797749979`", ",", 
-        "0.`", ",", "2.999999999999999`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.2360679774997894`", ",", 
-        "0.`", ",", "3.618033988749895`", ",", "0.`", ",", 
-        "1.6180339887498947`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-        "2.9999999999999996`", ",", "0.`", ",", "1.2360679774997896`", ",", 
-        "0.`", ",", "1.3819660112501047`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", 
-        "4.618033988749894`", ",", "0.`", ",", "3.8541019662496843`", ",", 
-        "0.`", ",", "4.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-        "1.3819660112501047`", ",", "0.`", ",", "1.2360679774997896`", ",", 
-        "0.`", ",", "2.999999999999999`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-        "2.9999999999999996`", ",", "0.`", ",", "2.23606797749979`", ",", 
-        "0.`", ",", "0.3819660112501049`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", 
-        "4.618033988749894`", ",", "0.`", ",", "4.854101966249684`", ",", 
-        "0.`", ",", "3.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.9999999999999998`", ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", 
-        "3.618033988749894`", ",", "0.`", ",", "4.854101966249684`", ",", 
-        "0.`", ",", "4.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], 
-     "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "2.618033988749895`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.9999999999999996`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.2360679774997898`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "6.854101966249684`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "7.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "6.23606797749979`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "7.854101966249685`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "9.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.854101966249685`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.618033988749895`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "9.47213595499958`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "10.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "7.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "4.23606797749979`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.999999999999999`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "8.47213595499958`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "8.854101966249683`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.854101966249685`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "2.618033988749895`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.618033988749894`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "6.854101966249684`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.854101966249683`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.618033988749894`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "9.47213595499958`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "9.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "6.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "4.23606797749979`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.618033988749894`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "4.236067977499789`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.854101966249683`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.9999999999999996`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.854101966249683`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.9999999999999996`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "1.6180339887498951`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "7.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.618033988749894`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.0000000000000002`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "8.47213595499958`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "10.472135954999578`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "6.47213595499958`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-        "3.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "4.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.2360679774997896`"}], ",", "0.`", ",", "0.`"}], "}"}],
-       ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "4.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "3.2360679774997902`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.618033988749895`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "7.854101966249683`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498945`"}], ",", "0.`", ",", "0.`"}], "}"}],
-       ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "6.236067977499788`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-        ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-        "3.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "1.3819660112501055`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.3819660112501049`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "7.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "7.23606797749979`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498945`"}], ",", "0.`", ",", "0.`"}], "}"}],
-       ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-        "3.8541019662496843`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "2.381966011250105`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.23606797749978958`"}], ",", "0.`", ",", "0.`"}], 
-       "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-        "2.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "4.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.23606797749978958`"}], ",", "0.`", ",", "0.`"}], 
-       "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "7.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "6.236067977499788`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.38196601125010554`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "3.2360679774997902`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-        "2.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "2.381966011250105`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.3819660112501049`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "4.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "5.854101966249684`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.9999999999999996`"}], ",", "0.`", ",", "0.`"}], "}"}],
-       ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.6180339887498948`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}],
-       ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "4.854101966249684`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.9999999999999996`"}], ",", "0.`", ",", "0.`"}], "}"}],
-       ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "3.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "4.854101966249685`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "6.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "7.23606797749979`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.38196601125010554`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.6180339887498949`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-        ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "4.854101966249685`", ",", "0.`", 
-        ",", "1.9999999999999998`", ",", "0.`", ",", "2.23606797749979`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "2.381966011250105`", ",", "0.`", 
-        ",", "2.8541019662496847`", ",", "0.`", ",", "0.7639320225002103`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "6.236067977499788`", ",", "0.`", 
-        ",", "4.236067977499789`", ",", "0.`", ",", "3.618033988749894`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "3.2360679774997902`", ",", "0.`", 
-        ",", "3.6180339887498945`", ",", "0.`", ",", "2.23606797749979`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "3.2360679774997902`", ",", "0.`", 
-        ",", "2.6180339887498945`", ",", "0.`", ",", "3.23606797749979`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "7.854101966249683`", ",", "0.`", 
-        ",", "4.236067977499789`", ",", "0.`", ",", "1.9999999999999998`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "5.854101966249685`", ",", "0.`", 
-        ",", "2.6180339887498945`", ",", "0.`", ",", "0.618033988749895`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.3819660112501055`", ",", "0.`", 
-        ",", "2.23606797749979`", ",", "0.`", ",", "2.381966011250105`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "4.854101966249685`", ",", "0.`", 
-        ",", "3.6180339887498945`", ",", "0.`", ",", "0.618033988749895`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "7.236067977499788`", ",", "0.`", 
-        ",", "3.854101966249684`", ",", "0.`", ",", "2.9999999999999996`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "4.`", ",", "0.`", ",", 
-        "1.2360679774997896`", ",", "0.`", ",", "0.7639320225002103`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "2.381966011250105`", ",", "0.`", 
-        ",", "1.2360679774997896`", ",", "0.`", ",", "2.381966011250105`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "7.236067977499788`", ",", "0.`", 
-        ",", "4.854101966249684`", ",", "0.`", ",", "1.9999999999999998`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "4.`", ",", "0.`", ",", 
-        "2.23606797749979`", ",", "0.`", ",", 
-        RowBox[{"-", "0.2360679774997897`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "6.236067977499788`", ",", "0.`", 
-        ",", "4.854101966249684`", ",", "0.`", ",", "2.9999999999999996`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.9999999999999998`", ",", "0.`", 
-        ",", "0.6180339887498949`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.3819660112501047`", ",", 
-        "2.2360679774997894`", ",", "0.`", ",", "0.`", ",", 
-        "1.3819660112501055`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "2.6180339887498945`", ",", "0.`", ",", 
-        "0.`", ",", "5.854101966249685`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.3819660112501047`", ",", 
-        "1.2360679774997896`", ",", "0.`", ",", "0.`", ",", 
-        "2.381966011250105`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.7639320225002103`", ",", 
-        "2.854101966249684`", ",", "0.`", ",", "0.`", ",", 
-        "2.381966011250105`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.7639320225002103`", ",", 
-        "1.2360679774997896`", ",", "0.`", ",", "0.`", ",", "4.`", ",", "0.`",
-         ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", 
-        RowBox[{"-", "0.2360679774997897`"}], ",", "2.23606797749979`", ",", 
-        "0.`", ",", "0.`", ",", "4.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", 
-        "3.618033988749895`", ",", "4.236067977499789`", ",", "0.`", ",", 
-        "0.`", ",", "6.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "3.`", ",", 
-        "4.854101966249684`", ",", "0.`", ",", "0.`", ",", 
-        "6.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.6180339887498948`", ",",
-         "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "2.`", ",", 
-        "4.236067977499789`", ",", "0.`", ",", "0.`", ",", 
-        "7.854101966249685`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", 
-        "3.23606797749979`", ",", "2.6180339887498945`", ",", "0.`", ",", 
-        "0.`", ",", "3.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", 
-        "2.23606797749979`", ",", "3.6180339887498945`", ",", "0.`", ",", 
-        "0.`", ",", "3.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.9999999999999998`", ",", "0.6180339887498948`", ",", "0.`", ",", 
-        "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "3.`", ",", 
-        "3.8541019662496843`", ",", "0.`", ",", "0.`", ",", 
-        "7.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "2.`", ",", 
-        "4.854101966249684`", ",", "0.`", ",", "0.`", ",", 
-        "7.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-      ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", 
-        "2.23606797749979`", ",", "1.9999999999999998`", ",", "0.`", ",", 
-        "0.`", ",", "4.854101966249685`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", 
-        "0.6180339887498949`", ",", "3.6180339887498945`", ",", "0.`", ",", 
-        "0.`", ",", "4.854101966249685`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`"}], "}"}]}], "}"}], ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.23606797749979`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "6.854101966249685`", ",", "5.854101966249685`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-        "2.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "6.854101966249685`", ",", "4.23606797749979`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "5.23606797749979`", ",", "5.854101966249685`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "5.23606797749979`", ",", 
-        "3.2360679774997902`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "4.23606797749979`", ",", "4.23606797749979`",
-         ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.23606797749979`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "9.472135954999578`", ",", "6.854101966249685`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.23606797749979`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "8.472135954999578`", ",", "7.854101966249685`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "1.618033988749895`", ",", "1.`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "1.`", ",", "1.618033988749895`", ",", "0.`", ",", 
-        "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "8.472135954999578`", ",", "6.23606797749979`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "7.854101966249683`", ",", "6.854101966249685`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.23606797749979`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "5.236067977499789`", ",", "3.618033988749895`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "3.23606797749979`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "4.23606797749979`", ",", "4.618033988749895`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "4.236067977499789`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "9.472135954999578`", ",", "7.854101966249685`", ",", 
-        "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-         "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "4.23606797749979`", ",", "2.`", ",", "0.`", ",", "0.`"}],
-        "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-        RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-        "0.`", ",", "2.6180339887498945`", ",", "3.618033988749895`", ",", 
-        "0.`", ",", "0.`"}], "}"}]}], "}"}]}], "}"}], "//", 
-  "RootApproximant"}]], "Input",
- CellChangeTimes->{{3.834668066196105*^9, 3.834668069970784*^9}},
- CellLabel->
-  "In[112]:=",ExpressionUUID->"d6ac0481-97d5-4e88-a2cc-b2ab882f2411"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "1", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "9"}], "-", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"11", "+", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"15", "+", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"3", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"13", "+", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"7", "+", 
-        RowBox[{"3", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "3"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"3", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "9"}], "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "9"}], "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "9"}], "-", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"6", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"7", "+", 
-        RowBox[{"3", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"5", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "5"}], "-", 
-        RowBox[{"3", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"11", "+", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"8", "+", 
-        RowBox[{"3", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "3"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "6"}], "-", 
-        RowBox[{"3", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"13", "+", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"8", "+", 
-        RowBox[{"3", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "3"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"6", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "1", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "2"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "4"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"3", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "1", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "3", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "2"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], " ", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "7"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"6", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"2", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "3", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "7"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"3", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"-", "2"}], " ", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"11", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
-    "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"2", " ", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "4", ",", "4", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "3", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "3", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "1", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "3"}], "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"5", "-", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "3"}], "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{"5", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"1", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "4", ",", "3", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{"1", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "3", ",", "4", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "5"}], "+", 
-          RowBox[{"5", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "3", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "3", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "4", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "4", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"5", "-", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{"5", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "1", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "2", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "2", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "2", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "3", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"2", "-", 
-        SqrtBox["5"]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       SqrtBox["5"], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "2", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       SqrtBox["5"], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "3", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"3", "-", 
-        SqrtBox["5"]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "3", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "3", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "-", 
-        SqrtBox["5"]}], ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "2", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "1", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       SqrtBox["5"], ",", "0", ",", "3", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "3", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", "0", ",", "3", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "3", ",", "0", ",", 
-       SqrtBox["5"], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "3", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"3", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "4"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], " ", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"6", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "3"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "3", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"11", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "7"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], " ", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "+", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "2"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "2"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "7"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"6", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "4", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", 
-       RowBox[{"1", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"5", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
-       SqrtBox["5"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "4", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", 
-       RowBox[{"2", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
-       SqrtBox["5"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"5", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], 
-    "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "2", ",", "0", ",", 
-       SqrtBox["5"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"3", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       SqrtBox["5"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "2", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       SqrtBox["5"], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "1", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "3", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "4", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{"3", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "2", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "4", ",", "0", ",", 
-       SqrtBox["5"], ",", "0", ",", 
-       RowBox[{"2", "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "3", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       SqrtBox["5"], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{"3", "-", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{"3", "-", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "4", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", 
-       RowBox[{"2", "-", 
-        SqrtBox["5"]}], ",", 
-       SqrtBox["5"], ",", "0", ",", "0", ",", "4", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "3", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "1", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "2", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       SqrtBox["5"], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "3", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "2", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
-        "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       SqrtBox["5"], ",", "2", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], 
-   ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "2", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "3"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{"1", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "1", 
-       ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"4", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", 
-       RowBox[{"4", "+", 
-        SqrtBox["5"]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"3", "+", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "1"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"7", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        RowBox[{"-", "2"}], "-", 
-        SqrtBox["5"]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"5", "+", 
-        RowBox[{"2", " ", 
-         SqrtBox["5"]}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"9", "+", 
-          RowBox[{"3", " ", 
-           SqrtBox["5"]}]}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
-       "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"2", "+", 
-        SqrtBox["5"]}], ",", "2", ",", "0", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", 
-       ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"3", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", 
-       RowBox[{
-        FractionBox["1", "2"], " ", 
-        RowBox[{"(", 
-         RowBox[{"5", "+", 
-          SqrtBox["5"]}], ")"}]}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{3.8346680723382196`*^9},
- CellLabel->
-  "Out[112]=",ExpressionUUID->"96cf5193-50dd-4569-b83b-52b8269a2b6f"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"FindFace", "[", 
-   RowBox[{"graphFromG", "[", "dodeca", "]"}], "]"}], "-", "1"}]], "Input",
- CellChangeTimes->{{3.83466796738521*^9, 3.834667973292889*^9}},
- CellLabel->
-  "In[109]:=",ExpressionUUID->"45c2b778-7f41-4529-8007-de7e60a97c3b"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"0", ",", "13", ",", "8", ",", "9", ",", "14"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "14", ",", "3", ",", "7", ",", "15"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "15", ",", "6", ",", "2", ",", "13"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "4", ",", "10", ",", "11", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "5", ",", "19", ",", "17", ",", "12"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "12", ",", "16", ",", "18", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "6", ",", "10", ",", "4", ",", "18"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "18", ",", "16", ",", "8", ",", "13"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"3", ",", "14", ",", "9", ",", "17", ",", "19"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"3", ",", "19", ",", "5", ",", "11", ",", "7"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"6", ",", "15", ",", "7", ",", "11", ",", "10"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"8", ",", "16", ",", "12", ",", "17", ",", "9"}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{3.834667973752153*^9},
- CellLabel->
-  "Out[109]=",ExpressionUUID->"5baf93b7-fbd4-458c-bf7f-aaad2c54f270"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"graphFromG", "[", "dodeca", "]"}]], "Input",
- CellChangeTimes->{{3.834667560574379*^9, 3.8346675782500763`*^9}},
- CellLabel->
-  "In[105]:=",ExpressionUUID->"dabb19d5-3a94-40b1-af6f-244661f942b4"],
-
-Cell[BoxData[
- GraphicsBox[
-  NamespaceBox["NetworkGraphics",
-   DynamicModuleBox[{Typeset`graph = HoldComplete[
-     Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
-       20}, {Null, {{1, 14}, {1, 15}, {1, 16}, {2, 5}, {2, 6}, {2, 13}, {3, 
-       7}, {3, 14}, {3, 19}, {4, 8}, {4, 15}, {4, 20}, {5, 11}, {5, 19}, {6, 
-       12}, {6, 20}, {7, 11}, {7, 16}, {8, 12}, {8, 16}, {9, 10}, {9, 14}, {9,
-        17}, {10, 15}, {10, 18}, {11, 12}, {13, 17}, {13, 18}, {17, 19}, {18, 
-       20}}}, {GraphLayout -> "TutteEmbedding", VertexLabels -> {"Name"}}]]}, 
-    
-    TagBox[GraphicsGroupBox[{
-       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.], 
-        ArrowBox[CompressedData["
-1:eJxTTMoPSmVmYGCQA2ImKObqmudjWblqDwMYfLD/H+IizJf/zj7wpb75+2OX
-7dHlGULB8vu9ccivfuW/ebPIQzsz9zNL1eQe2DMw8O24/vGT3XIlScmoXwf2
-n1hv26ajesBe92zitx//luxHlxd7b20toXJg/wT/tTvuYpFnaPhv+tvjtZ30
-3cxbfeZX9geE8AWdXHHPnufAMf4zrw/bM169rW905Lj90w3rfYuiLtijy6P7
-D12+t3Ftq4jVZfuz3gENNv927H/dlHGnasW9/ZNuP/C7AJS3zs03Tz18fH/i
-L8mppUDz0eXRwwddfu9kucrNlpf3K4gtZzEBmo8eHopzrshbfN1sXxOu3sBT
-utseXR7dfejhpb2l4Y3D5837994VWqEG1I8uj24/enih248ujx6/6OGBbj+6
-PLr+uKhSFuXzj+yXf5k+u/zxy/2xEP7+lVA+ujx6/KHLl0Tc/n330yV76/hg
-zy0itzDMQ48fdPnDDqGFkz9d2p8vcqN4M1A/enig+w89PaLbjy6Pbj66evT4
-RVePHn8AqPXxQQ==
-         "], 0.021812234931106983`]}, 
-       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
-        0.7]}], {
-         DiskBox[{-1.8369701987210297*^-16, 1.}, 0.021812234931106983], 
-         InsetBox["1", 
-          Offset[{2, 2}, {0.0218122349311068, 1.021812234931107}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.000018067071781313615, -0.1326401350545627}, 
-          0.021812234931106983], 
-         InsetBox["2", 
-          Offset[{2, 2}, {0.021830302002888297, -0.11082790012345572}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.4790519048049804, 0.15563345690088715}, 
-          0.021812234931106983], 
-         InsetBox["3", 
-          Offset[{2, 2}, {0.5008641397360873, 0.17744569183199413}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.47903319858782706, 0.15563396312219574}, 
-          0.021812234931106983], 
-         InsetBox["4", 
-          Offset[{2, 2}, {-0.45722096365672005, 0.17744619805330272}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.1261344581101851, -0.041007785869533776}, 
-          0.021812234931106983], 
-         InsetBox["5", 
-          Offset[{2, 2}, {0.14794669304129207, -0.019195550938426793}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.12610152141848435, -0.04100697402341702}, 
-          0.021812234931106983], 
-         InsetBox["6", 
-          Offset[{2, 2}, {-0.10428928648737737, -0.019194739092310037}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.1856749280629302, 0.25552041613151594}, 
-          0.021812234931106983], 
-         InsetBox["7", 
-          Offset[{2, 2}, {0.2074871629940372, 0.27733265106262295}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.18565049368667438, 0.25552119789782607}, 
-          0.021812234931106983], 
-         InsetBox["8", 
-          Offset[{2, 2}, {-0.1638382587555674, 0.2773334328289331}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.5877852522924731, -0.8090169943749473}, 
-          0.021812234931106983], 
-         InsetBox["9", 
-          Offset[{2, 2}, {0.6095974872235801, -0.7872047594438404}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.587785252292473, -0.8090169943749476}, 
-          0.021812234931106983], 
-         InsetBox["10", 
-          Offset[{2, 2}, {-0.5659730173613661, -0.7872047594438406}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.07796049859153743, 0.10725477341415329}, 
-          0.021812234931106983], 
-         InsetBox["11", 
-          Offset[{2, 2}, {0.09977273352264442, 0.12906700834526028}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.07793050550454043, 0.10725633242952078}, 
-          0.021812234931106983], 
-         InsetBox["12", 
-          Offset[{2, 2}, {-0.05611827057343345, 0.12906856736062777}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.000013010541522306962, -0.31589099244543356}, 
-          0.021812234931106983], 
-         InsetBox["13", 
-          Offset[{2, 2}, {0.02182524547262929, -0.29407875751432655}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.9510565162951535, 0.3090169943749475}, 
-          0.021812234931106983], 
-         InsetBox["14", 
-          Offset[{2, 2}, {0.9728687512262605, 0.3308292293060545}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.9510565162951536, 0.3090169943749472}, 
-          0.021812234931106983], 
-         InsetBox["15", 
-          Offset[{2, 2}, {-0.9292442813640467, 0.3308292293060542}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{8.144792085209204*^-6, 0.5036805380097806}, 
-          0.021812234931106983], 
-         InsetBox["16", 
-          Offset[{2, 2}, {0.02182037972319219, 0.5254927729408876}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.296073432878422, -0.4075136867590918}, 
-          0.021812234931106983], 
-         InsetBox["17", 
-          Offset[{2, 2}, {0.317885667809529, -0.38570145182798476}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.2960556608932274, -0.40751348793884906}, 
-          0.021812234931106983], 
-         InsetBox["18", 
-          Offset[{2, 2}, {-0.27424342596212037, -0.38570125300774205}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.3004199319311958, -0.09762933857591279}, 
-          0.021812234931106983], 
-         InsetBox["19", 
-          Offset[{2, 2}, {0.3222321668623028, -0.0758171036448058}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.30039679363317956, -0.09762883294669011}, 
-          0.021812234931106983], 
-         InsetBox["20", 
-          Offset[{2, 2}, {-0.27858455870207255, -0.07581659801558313}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}}}],
-     MouseAppearanceTag["NetworkGraphics"]],
-    AllowKernelInitialization->False]],
-  DefaultBaseStyle->{
-   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
-  FormatType->TraditionalForm,
-  FrameTicks->None]], "Output",
- CellChangeTimes->{{3.834667563226757*^9, 3.8346675786320343`*^9}},
- CellLabel->
-  "Out[105]=",ExpressionUUID->"354ca2e4-4a07-4790-8466-074c018e3b97"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"root", "=", 
-   RowBox[{"{", 
-    RowBox[{
-    "1.6838616297871791`", ",", "3.5522063477126107`", ",", 
-     "0.5291610914079277`", ",", "3.5522063477126107`", ",", 
-     "1.6838616297871791`", ",", "3.5522063477126107`", ",", 
-     RowBox[{"-", "0.18448308813825243`"}], ",", "1.6838616297871791`", ",", 
-     "3.5522063477126107`", ",", "4.706906886091862`", ",", 
-     "0.5291610914079277`", ",", "1.6838616297871791`", ",", 
-     "4.706906886091862`", ",", "1.6838616297871791`", ",", 
-     "3.5522063477126107`", ",", "0.5291610914079277`", ",", 
-     "3.5522063477126107`", ",", "5.420551065638042`", ",", 
-     "1.6838616297871791`", ",", "4.706906886091862`"}], "}"}]}], 
-  ";"}]], "Input",
- CellChangeTimes->{{3.834180875764398*^9, 3.834180877609824*^9}, 
-   3.834181270520502*^9, 3.83422655699443*^9, {3.8342695416310997`*^9, 
-   3.83426954395999*^9}, {3.8342792723452053`*^9, 3.8342792750702457`*^9}, {
-   3.8345696488890333`*^9, 3.8345696650351*^9}},
- CellLabel->
-  "In[107]:=",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"fractalDimensionFromG", "[", 
-   RowBox[{"G", ",", "10000", ",", "100", ",", "root"}], "]"}], 
-  "*)"}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJxTTMoPSmViYGCQBmIQbcVkM4V34htH44urpoFojaM8C0D0BPZ5i0D0oq6r
-t0D00+02t0H0uvfuU/iAtO2HxWDaT7z6B4j+t6oHTD8PsWIRANJHHpwE08e/
-lHGC6EX2jWD6WLcVP4j+vb9aAET/b1/8DUR/LHoCplfxzykSAdmTfrAYRDP8
-1VURA9Jxtk5gumSqUasckH4T5AOmtbbtXQSiLdJ3LwXRrSrcV0F0u3g6mA6K
-e9kiD/KX9JxWEL3ms/UEPSDNJXwDTIt4L9MyBtJnRIS0QXSCltgnEyD9rD0V
-TJcKCB42BdIV1xvA9Emb+mOWQHpa7FcwPWPLnCueQFos+ymYzr/WvsEPZF7+
-2o0g+rXFW/YiIG32UpkDRAeoPTQG0bstvExAtNU+HpUKIM3ikwum7yj2194B
-0nVrJ9aDaBX/8zL3gfTbMG5ZEA0A/HzVxA==
-  "],
- CellLabel->"In[35]:=",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"W", "=", GridBox[{
-     {"0", "0", "0", 
-      RowBox[{"-", "1"}]},
-     {"2", "0", "0", "1"},
-     {"0", "3", "0", "1"},
-     {"2", "3", 
-      SqrtBox["3"], "2"}
-    }]}], ";"}]], "Input",
- CellChangeTimes->{{3.8342676567311163`*^9, 3.83426770251457*^9}, {
-  3.83436362090779*^9, 3.834363621444234*^9}},
- CellLabel->"In[36]:=",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"],
-
-Cell[BoxData[
- 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"}
-    }]}], ";"}]], "Input",
- CellChangeTimes->{{3.8342676843163633`*^9, 3.8342677012142773`*^9}},
- CellLabel->"In[37]:=",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"G", "=", GridBox[{
-     {"1", 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "2"}]},
-     {
-      RowBox[{"-", "1"}], "1", 
-      RowBox[{"-", "2"}], 
-      RowBox[{"-", "1"}]},
-     {
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "2"}], "1", 
-      RowBox[{"-", "1"}]},
-     {
-      RowBox[{"-", "2"}], 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], "1"}
-    }]}], ";"}]], "Input",
- CellChangeTimes->{{3.834255719098699*^9, 3.834255752266445*^9}, {
-   3.834255803667136*^9, 3.834255822215041*^9}, 3.834267713596407*^9, {
-   3.834363641553152*^9, 3.834363648776113*^9}},
- CellLabel->"In[38]:=",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"W", ".", "P", ".", 
-   RowBox[{"Transpose", "[", "W", "]"}]}], "//", "MatrixForm"}]], "Input",
- CellChangeTimes->{{3.8343633434683943`*^9, 3.8343633944968452`*^9}},
- CellLabel->"In[39]:=",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"],
-
-Cell[BoxData[
- TagBox[
-  RowBox[{"(", "\[NoBreak]", GridBox[{
-     {"1", 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "2"}]},
-     {
-      RowBox[{"-", "1"}], "1", 
-      RowBox[{"-", "2"}], 
-      RowBox[{"-", "1"}]},
-     {
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "2"}], "1", 
-      RowBox[{"-", "1"}]},
-     {
-      RowBox[{"-", "2"}], 
-      RowBox[{"-", "1"}], 
-      RowBox[{"-", "1"}], "1"}
-    },
-    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
-    GridBoxSpacings->{"Columns" -> {
-        Offset[0.27999999999999997`], {
-         Offset[0.7]}, 
-        Offset[0.27999999999999997`]}, "Rows" -> {
-        Offset[0.2], {
-         Offset[0.4]}, 
-        Offset[0.2]}}], "\[NoBreak]", ")"}],
-  Function[BoxForm`e$, 
-   MatrixForm[BoxForm`e$]]]], "Output",
- CellChangeTimes->{{3.834363345042426*^9, 3.834363394907709*^9}, 
-   3.834363624185574*^9, 3.8343639801334887`*^9, 3.834364198424225*^9, 
-   3.8344822111507607`*^9, 3.834575083100013*^9, 3.834577448081056*^9, 
-   3.834589015904508*^9, 3.834619201182929*^9, 3.8346200646835327`*^9, 
-   3.834622032609221*^9, 3.8346548825295143`*^9, 3.834654946318267*^9, {
-   3.8346646224031076`*^9, 3.834664660979664*^9}, 3.834666963652606*^9, 
-   3.83466750126011*^9},
- CellLabel->
-  "Out[39]//MatrixForm=",ExpressionUUID->"6cb6ebcc-fc32-4062-ba18-\
-d77c1571f8c1"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"v", "=", 
-  RowBox[{"Table", "[", 
-   RowBox[{
-    SubscriptBox["b", "i"], ",", 
-    RowBox[{"{", 
-     RowBox[{"i", ",", "4"}], "}"}]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.834267747292341*^9, 3.8342677548359013`*^9}},
- CellLabel->"In[40]:=",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   SubscriptBox["b", "1"], ",", 
-   SubscriptBox["b", "2"], ",", 
-   SubscriptBox["b", "3"], ",", 
-   SubscriptBox["b", "4"]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834267755304275*^9, 3.834269358083054*^9, 3.834269393686844*^9, 
-   3.8342694488183613`*^9, 3.834269494359353*^9, {3.8342695664079933`*^9, 
-   3.8342696027466908`*^9}, 3.834270116138488*^9, 3.834270161252562*^9, 
-   3.8342704383920507`*^9, 3.83427055565105*^9, {3.8342711033095303`*^9, 
-   3.834271120588587*^9}, 3.834271489634482*^9, 3.834271596319798*^9, 
-   3.834272147330011*^9, 3.83435169877804*^9, {3.834351997024363*^9, 
-   3.83435201778999*^9}, 3.834363031990286*^9, 3.8343639822501802`*^9, 
-   3.834364198444326*^9, 3.834482211167481*^9, 3.8345750831330767`*^9, 
-   3.8345774481382933`*^9, 3.834589015933384*^9, 3.8346192012130213`*^9, 
-   3.8346200647015047`*^9, 3.8346220326422663`*^9, 3.8346548825479383`*^9, 
-   3.834654946337328*^9, {3.8346646224284363`*^9, 3.834664660996457*^9}, 
-   3.834666963672564*^9, 3.834667501279997*^9},
- CellLabel->"Out[40]=",ExpressionUUID->"b71a859e-efca-48fc-a92a-bb0fea445006"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"eq", "=", 
-  RowBox[{
-   RowBox[{"Simplify", "[", 
-    RowBox[{"v", ".", 
-     RowBox[{"Inverse", "[", "G", "]"}], ".", "v"}], "]"}], "\[Equal]", 
-   "0"}]}]], "Input",
- CellChangeTimes->{{3.834267725468601*^9, 3.8342677925075703`*^9}},
- CellLabel->"In[41]:=",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{
-   FractionBox["1", "3"], " ", 
-   RowBox[{"(", 
-    RowBox[{
-     SubsuperscriptBox["b", "1", "2"], "+", 
-     SubsuperscriptBox["b", "2", "2"], "-", 
-     RowBox[{"2", " ", 
-      SubscriptBox["b", "1"], " ", 
-      RowBox[{"(", 
-       RowBox[{
-        SubscriptBox["b", "2"], "+", 
-        SubscriptBox["b", "3"]}], ")"}]}], "+", 
-     SuperscriptBox[
-      RowBox[{"(", 
-       RowBox[{
-        SubscriptBox["b", "3"], "-", 
-        SubscriptBox["b", "4"]}], ")"}], "2"], "-", 
-     RowBox[{"2", " ", 
-      SubscriptBox["b", "2"], " ", 
-      SubscriptBox["b", "4"]}]}], ")"}]}], "\[Equal]", "0"}]], "Output",
- CellChangeTimes->{{3.834267728369829*^9, 3.834267792813405*^9}, 
-   3.834269358105122*^9, 3.8342693937074413`*^9, 3.8342694488390083`*^9, 
-   3.834269494380106*^9, {3.834269566434243*^9, 3.834269602772138*^9}, 
-   3.834270116164339*^9, 3.834270161279118*^9, 3.8342704384210176`*^9, 
-   3.83427055567581*^9, {3.834271103323432*^9, 3.834271120603005*^9}, 
-   3.8342714896514177`*^9, 3.8342715963354807`*^9, 3.834272147359429*^9, 
-   3.834351698797674*^9, {3.834351997045382*^9, 3.834352017818926*^9}, 
-   3.8343630336046457`*^9, 3.834363655137488*^9, 3.834363983393931*^9, 
-   3.834364198463523*^9, 3.834482211190282*^9, 3.8345750832348633`*^9, 
-   3.834577448173585*^9, 3.834589015963715*^9, 3.834619201243526*^9, 
-   3.834620064722768*^9, 3.8346220326828537`*^9, 3.834654882571084*^9, 
-   3.834654946360835*^9, {3.834664622455127*^9, 3.834664661017061*^9}, 
-   3.834666963694425*^9, 3.834667501302218*^9},
- CellLabel->"Out[41]=",ExpressionUUID->"c229b1df-45bf-47f6-a0d4-d7f893e3dd77"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Total", "[", 
-  RowBox[{
-   RowBox[{"Solve", "[", 
-    RowBox[{"eq", ",", 
-     SubscriptBox["b", "4"]}], "]"}], "/.", 
-   RowBox[{
-    RowBox[{"{", 
-     RowBox[{
-      SubscriptBox["b", "4"], "\[Rule]", "x_"}], "}"}], "\[Rule]", "x"}]}], 
-  "]"}]], "Input",
- CellChangeTimes->{{3.83426789441687*^9, 3.834267939586699*^9}, {
-  3.8342679727473183`*^9, 3.8342680273972597`*^9}, {3.834363714474595*^9, 
-  3.834363717250361*^9}, {3.834363752813319*^9, 3.834363812626932*^9}},
- CellLabel->"In[42]:=",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"2", " ", 
-   SubscriptBox["b", "2"]}], "+", 
-  RowBox[{"2", " ", 
-   SubscriptBox["b", "3"]}]}]], "Output",
- CellChangeTimes->{{3.834267898318562*^9, 3.834267905504777*^9}, 
-   3.8342679411798773`*^9, {3.834267976190343*^9, 3.834268028031088*^9}, 
-   3.834269358160029*^9, 3.834269393760006*^9, 3.8342694488916893`*^9, 
-   3.834269494434766*^9, {3.834269566488118*^9, 3.834269602825595*^9}, 
-   3.834270116221366*^9, 3.834270161336067*^9, 3.834270438474659*^9, 
-   3.8342705557299023`*^9, 3.83427070617946*^9, {3.834271103366624*^9, 
-   3.834271120649811*^9}, 3.834271489700316*^9, 3.834271596381638*^9, 
-   3.834272147424893*^9, 3.834351698900364*^9, {3.834351997068961*^9, 
-   3.8343520178647337`*^9}, 3.834363718053323*^9, {3.834363758388579*^9, 
-   3.834363781827297*^9}, 3.834363813182411*^9, 3.834363984591229*^9, 
-   3.834364198514433*^9, 3.834482211280281*^9, 3.834575083299467*^9, 
-   3.834577448258504*^9, 3.8345890159941797`*^9, 3.834619201273468*^9, 
-   3.834620064804543*^9, 3.834622032759564*^9, 3.8346548826207857`*^9, 
-   3.834654946405478*^9, {3.834664622542368*^9, 3.834664661066794*^9}, 
-   3.834666963746586*^9, 3.834667501352497*^9},
- CellLabel->"Out[42]=",ExpressionUUID->"5a4bfe3e-f21d-4ad2-93e3-e11b94c2728c"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"sigmas", "=", 
-   RowBox[{"{", "\[IndentingNewLine]", 
-    RowBox[{GridBox[{
-       {
-        RowBox[{"-", "1"}], "2", "2", "0"},
-       {"0", "1", "0", "0"},
-       {"0", "0", "1", "0"},
-       {"0", "0", "0", "1"}
-      }], ",", GridBox[{
-       {"1", "0", "0", "0"},
-       {"2", 
-        RowBox[{"-", "1"}], "0", "2"},
-       {"0", "0", "1", "0"},
-       {"0", "0", "0", "1"}
-      }], ",", GridBox[{
-       {"1", "0", "0", "0"},
-       {"0", "1", "0", "0"},
-       {"2", "0", 
-        RowBox[{"-", "1"}], "2"},
-       {"0", "0", "0", "1"}
-      }], ",", GridBox[{
-       {"1", "0", "0", "0"},
-       {"0", "1", "0", "0"},
-       {"0", "0", "1", "0"},
-       {"0", "2", "2", 
-        RowBox[{"-", "1"}]}
-      }]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
- CellChangeTimes->{{3.834268212750614*^9, 3.834268282815816*^9}, {
-  3.834363829310417*^9, 3.834363843669476*^9}, {3.8345750674014187`*^9, 
-  3.834575069172274*^9}},
- CellLabel->"In[43]:=",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"faces", "=", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], ";"}]], "Input",
- CellChangeTimes->{{3.8342682912805243`*^9, 3.8342683139154463`*^9}},
- CellLabel->"In[44]:=",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"root", "=", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "2"}], ",", "4", ",", "5", ",", "9"}], "}"}]}], 
-  ";"}]], "Input",
- CellChangeTimes->{{3.834269271082727*^9, 3.834269280209474*^9}, {
-   3.834269615697873*^9, 3.834269616050098*^9}, 3.8342700328283663`*^9, {
-   3.83427028137157*^9, 3.834270281646906*^9}, {3.834270382691121*^9, 
-   3.834270384742227*^9}, {3.8342706358639393`*^9, 3.834270637482791*^9}, {
-   3.8342717509835978`*^9, 3.83427175115452*^9}, {3.834272002011801*^9, 
-   3.834272002098583*^9}, {3.83436385669696*^9, 3.834363858881136*^9}, {
-   3.8343646210101*^9, 3.834364623031375*^9}, {3.834482222055552*^9, 
-   3.834482227036398*^9}},
- CellLabel->"In[45]:=",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Total", "[", 
-  RowBox[{
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
-   ".", "v"}], "]"}]], "Input",
- CellChangeTimes->{{3.8342701786590567`*^9, 3.8342701920132732`*^9}, {
-  3.834270300677595*^9, 3.8342703127835407`*^9}, {3.834270596130591*^9, 
-  3.834270633252564*^9}, {3.834270774793049*^9, 3.834270817557818*^9}},
- CellLabel->"In[46]:=",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"-", 
-   SubscriptBox["b", "1"]}], "+", 
-  RowBox[{"3", " ", 
-   SubscriptBox["b", "2"]}], "+", 
-  RowBox[{"3", " ", 
-   SubscriptBox["b", "3"]}], "+", 
-  SubscriptBox["b", "4"]}]], "Output",
- CellChangeTimes->{{3.834270183924911*^9, 3.834270192553357*^9}, 
-   3.834270283582943*^9, 3.834270313878557*^9, 3.834270390043499*^9, 
-   3.834270438523443*^9, {3.834270555771576*^9, 3.834270639760768*^9}, {
-   3.8342707696259623`*^9, 3.834270817902754*^9}, {3.8342711033983183`*^9, 
-   3.834271120685095*^9}, 3.834271489740806*^9, 3.834271596418852*^9, 
-   3.834272147466762*^9, 3.83435169892546*^9, {3.834351997102436*^9, 
-   3.834352017902173*^9}, 3.8343638625127087`*^9, 3.8343641985475082`*^9, 
-   3.834482211308651*^9, 3.8345750833323193`*^9, 3.8345774482991858`*^9, 
-   3.834589016036188*^9, 3.8346192013142357`*^9, 3.834620064835174*^9, 
-   3.834622032885338*^9, 3.834654882652865*^9, 3.8346549464387417`*^9, {
-   3.834664622577281*^9, 3.834664661094267*^9}, 3.834666963777111*^9, 
-   3.8346675013828077`*^9},
- CellLabel->"Out[46]=",ExpressionUUID->"c8a72195-6463-42f6-91c7-35b5b2810b2c"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"eq", "/.", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{
-      SubscriptBox["b", "1"], "\[Rule]", 
-      RowBox[{"-", "2"}]}], ",", 
-     RowBox[{
-      SubscriptBox["b", "2"], "\[Rule]", "4"}], ",", 
-     RowBox[{
-      SubscriptBox["b", "3"], "\[Rule]", "5"}]}], "}"}]}], "//", 
-  "Simplify"}]], "Input",
- CellChangeTimes->{{3.834270320892424*^9, 3.8342703454042892`*^9}, {
-  3.8342706766721563`*^9, 3.834270680336699*^9}, {3.834363001714438*^9, 
-  3.8343630041165047`*^9}, {3.834363044982485*^9, 3.8343630450946198`*^9}, {
-  3.834363182295018*^9, 3.834363249513712*^9}},
- CellLabel->"In[47]:=",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"],
-
-Cell[BoxData[
- RowBox[{
-  SubscriptBox["b", "4"], "\[Equal]", "9"}]], "Output",
- CellChangeTimes->{{3.834270321514536*^9, 3.834270345732245*^9}, 
-   3.8342704385506983`*^9, 3.834270555797867*^9, {3.834270658610314*^9, 
-   3.834270680693759*^9}, 3.83427075479714*^9, {3.834271103411821*^9, 
-   3.8342711207011223`*^9}, 3.834271489756778*^9, 3.834271596436777*^9, 
-   3.834272147490357*^9, 3.834351698940927*^9, {3.834351997122982*^9, 
-   3.8343520179283743`*^9}, 3.834363005076951*^9, {3.834363037375724*^9, 
-   3.83436304561241*^9}, {3.834363182886771*^9, 3.8343632500565157`*^9}, 
-   3.834363852750724*^9, 3.834364198566584*^9, 3.834364495261963*^9, 
-   3.8344822113242693`*^9, 3.834575083355125*^9, 3.83457744832612*^9, 
-   3.8345890160646973`*^9, 3.8346192013428164`*^9, 3.8346200648542023`*^9, 
-   3.8346220329059887`*^9, 3.834654882671358*^9, 3.834654946458609*^9, {
-   3.83466462260271*^9, 3.834664661110476*^9}, 3.834666963796462*^9, 
-   3.834667501403216*^9},
- CellLabel->"Out[47]=",ExpressionUUID->"51ba99a4-b7c1-4c6f-a316-4540dd244ca3"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"search", "[", 
-   RowBox[{"sigmas", ",", 
-    RowBox[{"N", "[", "root", "]"}], ",", 
-    RowBox[{"-", "1"}], ",", "20"}], "]"}], "*)"}]], "Input",
- CellChangeTimes->{{3.834269253093897*^9, 3.834269268235035*^9}, {
-  3.83426931485015*^9, 3.834269326281529*^9}, {3.834269440249044*^9, 
-  3.834269442877322*^9}, {3.834269575859881*^9, 3.834269598361561*^9}, {
-  3.834270027915841*^9, 3.834270030553297*^9}, {3.834270155311832*^9, 
-  3.8342701572128067`*^9}, {3.8342703979803762`*^9, 3.834270400145377*^9}, {
-  3.834270559892991*^9, 3.834270561761071*^9}, {3.834271100563821*^9, 
-  3.8342711165751047`*^9}, {3.8342714656515923`*^9, 3.834271485643083*^9}, {
-  3.834271537404784*^9, 3.8342715396864367`*^9}, {3.83427159034447*^9, 
-  3.834271592149164*^9}, {3.834272087424869*^9, 3.834272111364039*^9}},
- CellLabel->"In[48]:=",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{
-  RowBox[{"sigmas", "=", 
-   RowBox[{"{", "\[IndentingNewLine]", 
-    RowBox[{GridBox[{
-       {
-        RowBox[{"-", "1"}], "2", "2", "2"},
-       {"0", "1", "0", "0"},
-       {"0", "0", "1", "0"},
-       {"0", "0", "0", "1"}
-      }], ",", GridBox[{
-       {"1", "0", "0", "0"},
-       {"2", 
-        RowBox[{"-", "1"}], "2", "2"},
-       {"0", "0", "1", "0"},
-       {"0", "0", "0", "1"}
-      }], ",", GridBox[{
-       {"1", "0", "0", "0"},
-       {"0", "1", "0", "0"},
-       {"2", "2", 
-        RowBox[{"-", "1"}], "2"},
-       {"0", "0", "0", "1"}
-      }], ",", GridBox[{
-       {"1", "0", "0", "0"},
-       {"0", "1", "0", "0"},
-       {"0", "0", "1", "0"},
-       {"2", "2", "2", 
-        RowBox[{"-", "1"}]}
-      }]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
- RowBox[{
-  RowBox[{"faces", "=", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], 
-  ";"}], "\[IndentingNewLine]", 
- RowBox[{
-  RowBox[{"root", "=", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "6"}], ",", "11", ",", "14", ",", "23"}], "}"}]}], 
-  ";"}], "\[IndentingNewLine]", 
- RowBox[{"Timing", "[", 
-  RowBox[{
-   RowBox[{"search", "[", 
-    RowBox[{"sigmas", ",", 
-     RowBox[{"N", "[", "root", "]"}], ",", 
-     RowBox[{"{", "}"}], ",", "2000", ",", "faces"}], "]"}], "+", 
-   RowBox[{"Length", "[", "root", "]"}]}], "]"}]}], "Input",
- CellChangeTimes->{{3.834270459190027*^9, 3.834270465193511*^9}, {
-   3.8342710715935173`*^9, 3.834271093607176*^9}, {3.834271316240868*^9, 
-   3.834271321333003*^9}, {3.834271369315226*^9, 3.83427138415939*^9}, {
-   3.8342714577679443`*^9, 3.834271469770496*^9}, {3.834351709540537*^9, 
-   3.8343517221320677`*^9}, 3.8343518549794073`*^9, {3.8343519213016357`*^9, 
-   3.8343519374352407`*^9}, {3.834352192269598*^9, 3.834352205076268*^9}, {
-   3.834352403363192*^9, 3.834352415336894*^9}, 3.8343524567740088`*^9, 
-   3.834352907817636*^9, 3.834352960448945*^9, {3.8343530134223633`*^9, 
-   3.8343530172572937`*^9}, {3.834364165786512*^9, 3.8343641678676987`*^9}, {
-   3.834575089476474*^9, 3.83457510051685*^9}, {3.83457589132205*^9, 
-   3.834575923092753*^9}, {3.834576066103735*^9, 3.834576081066098*^9}, {
-   3.83465491834161*^9, 3.834654920490387*^9}, {3.834655239009775*^9, 
-   3.834655259362934*^9}, 3.834666746294083*^9},
- CellLabel->"In[49]:=",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"0.035684`", ",", "794"}], "}"}]], "Output",
- CellChangeTimes->{{3.834655244484424*^9, 3.834655259731134*^9}, {
-   3.834664623626196*^9, 3.834664661133349*^9}, {3.834666724110684*^9, 
-   3.834666746900782*^9}, 3.834666963858025*^9, 3.834667501463225*^9},
- CellLabel->"Out[52]=",ExpressionUUID->"1ff0e14e-d5a0-4863-8d9e-f7f0035b98f9"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"G", "=", GridBox[{
-    {"1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], "1"}
-   }]}]], "Input",
- CellChangeTimes->{{3.8345759946467247`*^9, 3.834576008309001*^9}},
- CellLabel->"In[53]:=",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834576009019684*^9, 3.834577448424959*^9, 3.834589016163299*^9, 
-   3.834619201440893*^9, 3.834620064932081*^9, 3.8346220329886436`*^9, 
-   3.8346548827529373`*^9, 3.834654946503186*^9, {3.8346646237414093`*^9, 
-   3.834664661150573*^9}, 3.834666716504575*^9, 3.834666963878015*^9, 
-   3.83466750148387*^9},
- CellLabel->"Out[53]=",ExpressionUUID->"323ad9e4-c2ac-4410-80e0-cf385a61b1de"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"fractalDimensionFromG", "[", 
-   RowBox[{"G", ",", "1000", ",", "100", ",", "root"}], "]"}], 
-  "*)"}]], "Input",
- CellChangeTimes->{{3.834575932192585*^9, 3.834575982803146*^9}, {
-  3.834654925221982*^9, 3.834654927351018*^9}},
- CellLabel->"In[54]:=",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"sigmas", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
-  ".", "root"}]], "Input",
- CellChangeTimes->{{3.834364309198806*^9, 3.834364315630615*^9}, {
-  3.834364536335041*^9, 3.834364588811516*^9}, {3.834364936155011*^9, 
-  3.834364962698073*^9}, {3.834365049261941*^9, 3.834365056740116*^9}, {
-  3.834482247335332*^9, 3.8344822647451897`*^9}},
- CellLabel->"In[55]:=",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"102", ",", "11", ",", "14", ",", "23"}], "}"}]], "Output",
- CellChangeTimes->{
-  3.8343643160127068`*^9, 3.8343645404411592`*^9, {3.834364572595468*^9, 
-   3.834364589345014*^9}, {3.834364929126811*^9, 3.83436496307482*^9}, {
-   3.834365050324903*^9, 3.834365057204047*^9}, 3.8344822113732147`*^9, {
-   3.8344822424974823`*^9, 3.83448226518806*^9}, 3.834575083387231*^9, 
-   3.834577448707432*^9, 3.83458901641998*^9, 3.83461920190914*^9, 
-   3.83462006510275*^9, 3.834622033160582*^9, 3.834654882895474*^9, 
-   3.834654946544335*^9, {3.8346646237699757`*^9, 3.8346646611715117`*^9}, 
-   3.834666963903802*^9, 3.8346675015077543`*^9},
- CellLabel->"Out[55]=",ExpressionUUID->"6bb40d60-6b43-4530-a0e6-6a79149fa067"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
-   ".", 
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
-   ".", 
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
-   ".", "root"}], "//", "Total"}]], "Input",
- CellChangeTimes->{{3.8343649661668367`*^9, 3.8343650190653057`*^9}, {
-  3.834365063719788*^9, 3.834365066037496*^9}},
- CellLabel->"In[56]:=",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"],
-
-Cell[BoxData["366"], "Output",
- CellChangeTimes->{{3.834364973587739*^9, 3.834365019369627*^9}, 
-   3.8343650663826017`*^9, 3.83448221142877*^9, 3.8345750834170027`*^9, 
-   3.834577448737156*^9, 3.8345890164491863`*^9, 3.834619201936276*^9, 
-   3.834620065121768*^9, 3.83462203317866*^9, 3.834654882915297*^9, 
-   3.834654946565507*^9, {3.8346646237952557`*^9, 3.834664661187883*^9}, 
-   3.834666963923917*^9, 3.83466750152777*^9},
- CellLabel->"Out[56]=",ExpressionUUID->"2291d60d-924e-46e8-bed1-7776c6fde370"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Total", "[", "root", "]"}]], "Input",
- CellChangeTimes->{{3.834364511566435*^9, 3.83436451570404*^9}},
- CellLabel->"In[57]:=",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"],
-
-Cell[BoxData["42"], "Output",
- CellChangeTimes->{{3.834364516240282*^9, 3.8343645216357203`*^9}, 
-   3.834482211449671*^9, 3.834575083439714*^9, 3.8345774487675343`*^9, 
-   3.834589016478706*^9, 3.83461920196589*^9, 3.834620065141079*^9, 
-   3.834622033197199*^9, 3.8346548829353943`*^9, 3.834654946587103*^9, {
-   3.8346646238214893`*^9, 3.834664661205277*^9}, 3.834666963943755*^9, 
-   3.834667501548029*^9},
- CellLabel->"Out[57]=",ExpressionUUID->"0790cbec-f8be-44ab-a189-69055057d5a3"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Total", "[", 
-  RowBox[{
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], 
-   ".", 
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
-   ".", 
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], 
-   ".", "root"}], "]"}]], "Input",
- CellChangeTimes->{{3.8343526322227297`*^9, 3.834352641100721*^9}, {
-  3.834363996621307*^9, 3.834363999587277*^9}, {3.834364225310771*^9, 
-  3.8343643000517597`*^9}, {3.8343645048417253`*^9, 3.834364559595419*^9}, {
-  3.834364599161187*^9, 3.834364611580153*^9}},
- CellLabel->"In[58]:=",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"],
-
-Cell[BoxData["78"], "Output",
- CellChangeTimes->{{3.83435263841041*^9, 3.834352641587645*^9}, 
-   3.834352704802144*^9, {3.834363994381441*^9, 3.834364000105105*^9}, {
-   3.8343641985951557`*^9, 3.834364300431389*^9}, {3.834364505914947*^9, 
-   3.8343645599497337`*^9}, {3.834364601241448*^9, 3.8343646119022827`*^9}, 
-   3.834482211466435*^9, 3.834575083463491*^9, 3.834577448796245*^9, 
-   3.834589016508092*^9, 3.8346192019954576`*^9, 3.834620065159852*^9, 
-   3.834622033215433*^9, 3.834654882955586*^9, 3.834654946607929*^9, {
-   3.8346646238277273`*^9, 3.83466466122267*^9}, 3.834666964809363*^9, 
-   3.83466750156955*^9},
- CellLabel->"Out[58]=",ExpressionUUID->"27455740-1e58-4de0-94b2-8c6f6f48a30f"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{
-   RowBox[{"search", "[", 
-    RowBox[{
-    "generators_", ",", "current_", ",", "lastgen_", ",", "upperBound_"}], 
-    "]"}], ":=", "\[IndentingNewLine]", 
-   RowBox[{"Total", "[", 
-    RowBox[{"Table", "[", 
-     RowBox[{
-      RowBox[{"If", "[", 
-       RowBox[{
-        RowBox[{
-         RowBox[{
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{
-             RowBox[{
-             "generators", "\[LeftDoubleBracket]", "i", 
-              "\[RightDoubleBracket]"}], ".", "current"}], ")"}], 
-           "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
-          "\[GreaterEqual]", "upperBound"}], "||", 
-         RowBox[{
-          RowBox[{"Total", "[", 
-           RowBox[{
-            RowBox[{
-            "generators", "\[LeftDoubleBracket]", "i", 
-             "\[RightDoubleBracket]"}], ".", "current"}], "]"}], 
-          "\[LessEqual]", 
-          RowBox[{"Total", "[", "current", "]"}]}]}], ",", "0", ",", 
-        RowBox[{"1", "+", 
-         RowBox[{"search", "[", 
-          RowBox[{"generators", ",", 
-           RowBox[{
-            RowBox[{
-            "generators", "\[LeftDoubleBracket]", "i", 
-             "\[RightDoubleBracket]"}], ".", "current"}], ",", "i", ",", 
-           "upperBound"}], "]"}]}]}], "]"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"i", ",", "4"}], "}"}]}], "]"}], "]"}]}], "*)"}]], "Input",
- CellChangeTimes->{{3.834271163271529*^9, 3.834271246051111*^9}, {
-  3.8342712903246737`*^9, 3.834271310062496*^9}, {3.834271341473411*^9, 
-  3.8342713492127743`*^9}, {3.8342715319702*^9, 3.834271533730276*^9}, {
-  3.8342719293657618`*^9, 3.834271947818203*^9}, {3.834272078815785*^9, 
-  3.834272081519147*^9}, {3.8342721236037807`*^9, 3.83427214226362*^9}, {
-  3.834351990869299*^9, 3.834351993528885*^9}},
- CellLabel->"In[59]:=",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"sigmas", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
-  ".", "root"}]], "Input",
- CellChangeTimes->{{3.834272021760499*^9, 3.83427203146054*^9}, 
-   3.834364154564042*^9},
- CellLabel->"In[60]:=",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"-", "6"}], ",", "11", ",", "42", ",", "23"}], "}"}]], "Output",
- CellChangeTimes->{{3.83427202674335*^9, 3.834272031860688*^9}, {
-   3.834272147704256*^9, 3.8342721600061007`*^9}, 3.8343516990324917`*^9, {
-   3.8343519972905912`*^9, 3.834352019090838*^9}, 3.8343641986173077`*^9, 
-   3.834482211493958*^9, 3.8345750834920177`*^9, 3.8345774488504753`*^9, 
-   3.8345890165423117`*^9, 3.834619202028728*^9, 3.8346200651817904`*^9, 
-   3.834622033238542*^9, 3.834654882980427*^9, 3.834654947539938*^9, {
-   3.834664623856756*^9, 3.834664661243865*^9}, 3.8346669649220448`*^9, 
-   3.834667501624979*^9},
- CellLabel->"Out[60]=",ExpressionUUID->"101a817e-9c39-4407-9eb8-0d68c2dfa8f7"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"search", "[", 
-   RowBox[{"sigmas", ",", 
-    RowBox[{"N", "[", "root", "]"}], ",", 
-    RowBox[{"{", "}"}], ",", "10", ",", "faces"}], "]"}], "*)"}]], "Input",
- CellChangeTimes->{{3.834363921051414*^9, 3.834363950761215*^9}, {
-  3.834364012856628*^9, 3.834364015468774*^9}, {3.834364134655746*^9, 
-  3.834364136951743*^9}},
- CellLabel->"In[61]:=",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{
-   RowBox[{"max", "=", "100"}], ";", "\[IndentingNewLine]", 
-   RowBox[{"delta", "=", "10"}], ";", "\[IndentingNewLine]", 
-   RowBox[{"xs", "=", 
-    RowBox[{"Range", "[", 
-     RowBox[{"1", ",", "max", ",", "delta"}], "]"}]}], ";", 
-   "\[IndentingNewLine]", 
-   RowBox[{"ys", "=", 
-    RowBox[{
-     RowBox[{
-      RowBox[{
-       RowBox[{"search", "[", 
-        RowBox[{"sigmas", ",", 
-         RowBox[{"N", "[", "root", "]"}], ",", 
-         RowBox[{"-", "1"}], ",", "#"}], "]"}], "+", 
-       RowBox[{"Length", "[", "root", "]"}]}], "&"}], "/@", "xs"}]}], ";", 
-   "\[IndentingNewLine]", 
-   RowBox[{"data", "=", 
-    RowBox[{
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"xs", "\[LeftDoubleBracket]", "#", "\[RightDoubleBracket]"}], 
-        ",", 
-        RowBox[{
-        "ys", "\[LeftDoubleBracket]", "#", "\[RightDoubleBracket]"}]}], "}"}],
-       "&"}], "/@", 
-     RowBox[{"Range", "[", 
-      RowBox[{"Length", "[", "ys", "]"}], "]"}]}]}], ";", 
-   "\[IndentingNewLine]", 
-   RowBox[{"nlm", "=", 
-    RowBox[{"NonlinearModelFit", "[", 
-     RowBox[{"data", ",", 
-      RowBox[{"a", " ", 
-       SuperscriptBox["x", "b"]}], ",", 
-      RowBox[{"{", 
-       RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}], ";", 
-   "\[IndentingNewLine]", 
-   RowBox[{"params", "=", 
-    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}], ";", 
-   "\[IndentingNewLine]", 
-   RowBox[{"b", "/.", "params"}]}], "*)"}]], "Input",
- CellChangeTimes->{{3.83427225142885*^9, 3.834272331149933*^9}, 
-   3.8342725088235283`*^9, {3.834272547381021*^9, 3.834272547477632*^9}, {
-   3.834351693602374*^9, 3.8343516954988422`*^9}, {3.83436389691505*^9, 
-   3.83436390716508*^9}, {3.8343641398377953`*^9, 3.8343641416802073`*^9}},
- CellLabel->"In[62]:=",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}]], "Input",
- CellChangeTimes->{{3.834272427241466*^9, 3.8342724326668386`*^9}},
- CellLabel->"In[63]:=",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"],
-
-Cell[BoxData[
- RowBox[{"nlm", "[", "\<\"RSquared\"\>", "]"}]], "Output",
- CellChangeTimes->{
-  3.834272432969537*^9, 3.834278750219996*^9, 3.834351699058116*^9, {
-   3.8343519973195133`*^9, 3.834352019121767*^9}, 3.83436419864568*^9, 
-   3.8344822115283613`*^9, 3.8345750835243597`*^9, 3.8345774489049597`*^9, 
-   3.834589016580224*^9, 3.8346192020658092`*^9, 3.834620065208219*^9, 
-   3.8346220332643747`*^9, 3.834654883008594*^9, 3.834654947567891*^9, {
-   3.8346646246138763`*^9, 3.8346646612678823`*^9}, 3.834666964948649*^9, 
-   3.834667501710552*^9},
- CellLabel->"Out[63]=",ExpressionUUID->"1234855b-d4bf-45a2-95ee-45a0aef0b09d"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"G", "=", 
-  RowBox[{
-   RowBox[{"pyramidG", "[", "4", "]"}], "//", "Simplify"}]}]], "Input",
- CellChangeTimes->{{3.834608147157591*^9, 3.834608157699215*^9}, {
-  3.834613211433923*^9, 3.834613211481103*^9}},
- CellLabel->"In[64]:=",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{{3.83460815064884*^9, 3.834608158044807*^9}, 
-   3.834613212108568*^9, 3.834619202095937*^9, 3.834620065226191*^9, 
-   3.83462203328133*^9, 3.834654883027771*^9, 3.834654947586751*^9, {
-   3.83466462467052*^9, 3.834664661284545*^9}, 3.834666964968327*^9, 
-   3.834667501739438*^9},
- CellLabel->"Out[64]=",ExpressionUUID->"d229e1e8-d3db-4e99-8886-5c1720325d8b"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"sigmas", "=", 
-  RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}]], "Input",
- CellChangeTimes->{{3.83460815911386*^9, 3.8346081672942*^9}, {
-  3.834613489173396*^9, 3.834613494745154*^9}},
- CellLabel->"In[65]:=",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "3.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "3.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "2.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "4.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "2.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "3.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "0.`", ",", "3.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "0.`", ",", "2.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`", ",", "4.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "3.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "1.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "1.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
-      "}"}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834608167997654*^9, 3.834613222979426*^9, {3.8346134917935543`*^9, 
-   3.834613495128717*^9}, 3.834619202247882*^9, 3.834620065275806*^9, 
-   3.834622033331367*^9, 3.834654883128878*^9, 3.834654947642323*^9, {
-   3.834664624797202*^9, 3.834664661335348*^9}, 3.834666965022305*^9, 
-   3.834667501802112*^9},
- CellLabel->"Out[65]=",ExpressionUUID->"bf139642-d9cd-4d6d-a525-cd85afdff476"]
-}, Open  ]],
-
-Cell[BoxData[""], "Input",
- CellChangeTimes->{{3.834608303636486*^9, 3.834608313792286*^9}},
- CellLabel->"In[66]:=",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"FindFace", "[", 
-   RowBox[{"graphFromG", "[", "G", "]"}], "]"}], "-", "1"}]], "Input",
- CellChangeTimes->{{3.834608357467698*^9, 3.8346083684669456`*^9}, {
-  3.8346135174422903`*^9, 3.834613517507605*^9}},
- CellLabel->"In[67]:=",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "3", ",", "2"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{{3.834608359833349*^9, 3.834608368853426*^9}, 
-   3.834613239830826*^9, 3.834613517923314*^9, 3.834619202287201*^9, 
-   3.8346200653000317`*^9, 3.834622033354699*^9, 3.834654883155066*^9, 
-   3.83465494766864*^9, {3.834664624852454*^9, 3.834664661357813*^9}, 
-   3.834666965048306*^9, 3.834667501836783*^9},
- CellLabel->"Out[67]=",ExpressionUUID->"e003ef54-593e-4202-b563-23e43d518e2d"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"root", "=", 
-  RowBox[{"{", 
-   RowBox[{
-    RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", 
-    "1.2389279387920946`", ",", "1.2389279387920946`", ",", 
-    "1.2389279387920946`"}], "}"}]}]], "Input",
- CellChangeTimes->{{3.834613483657979*^9, 3.8346134846307297`*^9}},
- CellLabel->"In[68]:=",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", 
-   "1.2389279387920946`", ",", "1.2389279387920946`", ",", 
-   "1.2389279387920946`"}], "}"}]], "Output",
- CellChangeTimes->{
-  3.8346134850696898`*^9, 3.834619202305229*^9, 3.834620065319126*^9, 
-   3.8346220333722763`*^9, 3.834654883174149*^9, 3.8346549476881113`*^9, {
-   3.8346646248882303`*^9, 3.834664661374647*^9}, 3.834666965069047*^9, 
-   3.8346675018640003`*^9},
- CellLabel->"Out[68]=",ExpressionUUID->"838baa06-edab-4185-9f17-e16ce69163cc"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"sigmas", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
-  ".", "root"}]], "Input",
- CellChangeTimes->{{3.834613496502672*^9, 3.834613501324523*^9}},
- CellLabel->"In[69]:=",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", 
-   "4.141916673757955`", ",", "4.141916673757955`", ",", 
-   "1.2389279387920946`"}], "}"}]], "Output",
- CellChangeTimes->{
-  3.83461350172188*^9, 3.83461920232476*^9, 3.834620065339077*^9, 
-   3.834622033391211*^9, 3.834654883194875*^9, 3.834654947709495*^9, {
-   3.834664624925316*^9, 3.83466466139222*^9}, 3.8346669650902863`*^9, 
-   3.834667501893754*^9},
- CellLabel->"Out[69]=",ExpressionUUID->"3643cd53-6812-4f06-80c0-ef9022cc34da"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"octahedron", "=", GridBox[{
-    {"1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}]},
-    {
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], "1"}
-   }]}]], "Input",
- CellChangeTimes->{{3.834619206184881*^9, 3.834619257421171*^9}, {
-  3.8346646737405977`*^9, 3.834664684186973*^9}},
- CellLabel->"In[70]:=",ExpressionUUID->"8e4190e4-388a-479e-87c2-24b60546db31"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834619258309565*^9, 3.834620065399693*^9, 3.834622033409623*^9, 
-   3.83465488321598*^9, 3.83465494773111*^9, {3.834664624963915*^9, 
-   3.834664685996852*^9}, 3.834666965111837*^9, 3.834667501923595*^9},
- CellLabel->"Out[70]=",ExpressionUUID->"53cadc6c-663b-4b71-83be-f27bfdf2c4b6"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"sigmas", "=", 
-  RowBox[{
-   RowBox[{"findGeneratorsFromG", "[", "octahedron", "]"}], "//", 
-   "RootApproximant"}]}]], "Input",
- CellChangeTimes->{{3.834619259619753*^9, 3.83461927082788*^9}, {
-  3.834661175691288*^9, 3.834661201562409*^9}},
- CellLabel->"In[71]:=",ExpressionUUID->"33ad76d4-b47f-4f7f-b556-a35dbd07b9de"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4", ",", "4", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "2", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"4", ",", "3", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "3", ",", "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"3", ",", "4", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "3", ",", "0"}], "}"}]}], "}"}], 
-   ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"3", ",", "3", ",", "4", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"3", ",", "4", ",", "3", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"2", ",", "4", ",", "4", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4", ",", 
-       RowBox[{"-", "1"}], ",", "4", ",", "2", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4", ",", 
-       RowBox[{"-", "1"}], ",", "3", ",", "3", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"3", ",", 
-       RowBox[{"-", "1"}], ",", "4", ",", "3", ",", "0", ",", "0"}], "}"}]}], 
-    "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "2", ",", "4", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "3", ",", "3", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"3", ",", 
-       RowBox[{"-", "1"}], ",", "0", ",", "3", ",", "4", ",", "0"}], "}"}]}], 
-    "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "0", ",", "0", ",", "2"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "3", ",", "4", ",", "0", ",", "0", ",", "3"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "4", ",", "3", ",", "0", ",", "0", ",", "3"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0", ",", "3", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "4", ",", "3"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "3", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "3", ",", "4"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "2", ",", "0", ",", 
-       RowBox[{"-", "1"}], ",", "4", ",", "4"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "4", ",", "4", ",", "0", ",", "2"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "4", ",", "3", ",", "0", ",", "3"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "3", ",", "4", ",", "0", ",", "3"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "4", ",", "4", ",", "2"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "3", ",", "4", ",", "3"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "4", ",", "3", ",", "3"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], 
-      "}"}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834619271168201*^9, 3.834620065453475*^9, 3.834622033462813*^9, 
-   3.8346548832734127`*^9, 3.8346549477868032`*^9, {3.8346611769238377`*^9, 
-   3.834661202259192*^9}, {3.8346646256071978`*^9, 3.834664687829714*^9}, 
-   3.834666966238739*^9, 3.8346675022781*^9},
- CellLabel->"Out[71]=",ExpressionUUID->"d4664636-e1d7-4673-901e-8f6cdd1704b8"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"root", "=", 
-  RowBox[{"{", 
-   RowBox[{
-    RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "4", ",", "4", ",", "7"}], 
-   "}"}]}]], "Input",
- CellChangeTimes->{{3.8346611794498053`*^9, 3.8346611829813557`*^9}},
- CellLabel->"In[72]:=",ExpressionUUID->"3a912173-bf83-45d9-9537-6d403eb7f2df"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "4", ",", "4", ",", "7"}], 
-  "}"}]], "Output",
- CellChangeTimes->{
-  3.834661183431093*^9, {3.834664625648899*^9, 3.8346646899516582`*^9}, 
-   3.834666966282703*^9, 3.8346675023072643`*^9},
- CellLabel->"Out[72]=",ExpressionUUID->"471ae90e-b741-4a1a-a7f6-e87569f236f9"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"sigmas", "\[LeftDoubleBracket]", "8", "\[RightDoubleBracket]"}], 
-  ".", "root"}]], "Input",
- CellChangeTimes->{{3.834661186533902*^9, 3.834661190781568*^9}, {
-  3.834661615884715*^9, 3.834661652208947*^9}, {3.834661837574862*^9, 
-  3.834661905042252*^9}},
- CellLabel->"In[73]:=",ExpressionUUID->"6a06d77d-ffee-4ebb-bf2f-6889c9b079db"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"47", ",", "50", ",", "50", ",", "4", ",", "4", ",", "7"}], 
-  "}"}]], "Output",
- CellChangeTimes->{{3.834661191222094*^9, 3.834661204316931*^9}, 
-   3.834661616437175*^9, {3.8346616473836317`*^9, 3.83466165273872*^9}, {
-   3.834661840280183*^9, 3.834661905935773*^9}, {3.83466462569023*^9, 
-   3.834664661697455*^9}, 3.8346669663199778`*^9, 3.834667502338544*^9},
- CellLabel->"Out[73]=",ExpressionUUID->"b39e25f3-7754-4e49-bd2d-de38fcef3ce0"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"graphFromG", "[", "octahedron", "]"}]], "Input",
- CellChangeTimes->{{3.834619274052507*^9, 3.834619277451138*^9}},
- CellLabel->"In[74]:=",ExpressionUUID->"57565e6b-f443-4a10-b5a8-e556ff76b840"],
-
-Cell[BoxData[
- GraphicsBox[
-  NamespaceBox["NetworkGraphics",
-   DynamicModuleBox[{Typeset`graph = HoldComplete[
-     Graph[{1, 2, 3, 4, 5, 6}, {
-      Null, {{1, 2}, {1, 3}, {1, 4}, {1, 5}, {2, 3}, {2, 5}, {2, 6}, {3, 4}, {
-       3, 6}, {4, 5}, {4, 6}, {5, 6}}}, {
-      GraphLayout -> "TutteEmbedding", VertexLabels -> {"Name"}}]]}, 
-    TagBox[GraphicsGroupBox[{
-       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.], 
-        ArrowBox[CompressedData["
-1:eJxTTMoPSmVmYGDgAWImKObqmudjWblqDwMYfLBf7RPxomrba/vf/0Hg/n50
-ee5wnR8rtI/Zs66Q0fk2c6c9uvzfTTzCndrH9v8wTHl4BYv8Soj5+1nA/Af7
-0e1DNx9dnpB+BgaJJfJP19sdeuI/r23mSQzz0N2HLo+uH109uv3o8uj60dWj
-ywMAx/u+mQ==
-         "], 0.020399597244776385`]}, 
-       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
-        0.7]}], {
-         DiskBox[{-1.8369701987210297*^-16, 1.}, 0.020399597244776385], 
-         InsetBox["1", 
-          Offset[{2, 2}, {0.0203995972447762, 1.0203995972447764}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.8660254037844387, -0.4999999999999997}, 
-          0.020399597244776385], 
-         InsetBox["2", 
-          Offset[{2, 2}, {0.8864250010292151, -0.4796004027552233}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{0.1732073985846728, 0.10000551773978834}, 
-          0.020399597244776385], 
-         InsetBox["3", 
-          Offset[{2, 2}, {0.19360699582944918, 0.12040511498456473}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.17320359640270758, 0.1000035333892767}, 
-          0.020399597244776385], 
-         InsetBox["4", 
-          Offset[{2, 2}, {-0.1528039991579312, 0.12040313063405308}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{-0.8660254037844385, -0.5000000000000004}, 
-          0.020399597244776385], 
-         InsetBox["5", 
-          Offset[{2, 2}, {-0.8456258065396621, -0.4796004027552241}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}, {
-         DiskBox[{9.505454913738554*^-7, -0.19999773721773378}, 
-          0.020399597244776385], 
-         InsetBox["6", 
-          Offset[{2, 2}, {0.02040054779026776, -0.1795981399729574}], 
-          ImageScaled[{0, 0}],
-          BaseStyle->"Graphics"]}}}],
-     MouseAppearanceTag["NetworkGraphics"]],
-    AllowKernelInitialization->False]],
-  DefaultBaseStyle->{
-   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
-  FormatType->TraditionalForm,
-  FrameTicks->None]], "Output",
- CellChangeTimes->{
-  3.834619277811998*^9, 3.8346200654792757`*^9, 3.834622033495985*^9, 
-   3.834654883308901*^9, 3.834654948487522*^9, {3.834664625815292*^9, 
-   3.8346646617281847`*^9}, 3.834666966397561*^9, 3.834667502411704*^9},
- CellLabel->"Out[74]=",ExpressionUUID->"a26c0a36-d113-412f-b786-bb80f5121ef1"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"faces", "=", 
-  RowBox[{"FindFace", "[", 
-   RowBox[{"graphFromG", "[", "octahedron", "]"}], "]"}]}]], "Input",
- CellChangeTimes->{{3.8346193509253397`*^9, 3.834619357450687*^9}, {
-  3.8346194631143084`*^9, 3.834619463243856*^9}, {3.834661211838559*^9, 
-  3.83466121198628*^9}, {3.834661280211149*^9, 3.8346612802955637`*^9}, {
-  3.834664696780604*^9, 3.834664699107851*^9}},
- CellLabel->"In[75]:=",ExpressionUUID->"6723be5e-c163-48a9-949e-9d3d53aa8192"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "4", ",", "3"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "5", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "3", ",", "6"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "6", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"3", ",", "4", ",", "6"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834619357780086*^9, 3.8346194639350357`*^9, 3.8346200655020027`*^9, 
-   3.834622033511248*^9, 3.834654883324359*^9, 3.8346549485649147`*^9, 
-   3.834661212327881*^9, 3.834661280774802*^9, {3.834664625862966*^9, 
-   3.834664661748394*^9}, 3.834664699443681*^9, 3.834666966454286*^9, 
-   3.834667502439279*^9},
- CellLabel->"Out[75]=",ExpressionUUID->"42fdd4d0-f5bc-4702-aed7-5ce0ceb67ea8"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"faces", "-", "1"}]], "Input",
- CellChangeTimes->{{3.8346650243571177`*^9, 3.834665025137969*^9}},
- CellLabel->"In[76]:=",ExpressionUUID->"2c43e032-c9dd-404a-b078-ed7b5e47de5b"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "3", ",", "2"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "5", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.834665025633943*^9, 3.8346669664861593`*^9, 
-  3.8346675024641848`*^9},
- CellLabel->"Out[76]=",ExpressionUUID->"17a13d4f-7906-4b78-ac47-175c28ea8c1b"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"search", "[", 
-  RowBox[{"sigmas", ",", "root", ",", 
-   RowBox[{"{", "}"}], ",", "20000", ",", "faces"}], "]"}]], "Input",
- CellChangeTimes->{{3.8346647171138897`*^9, 3.83466471970391*^9}, {
-  3.834666002339428*^9, 3.834666009794517*^9}, {3.8346664088929234`*^9, 
-  3.8346664098425217`*^9}},
- CellLabel->"In[77]:=",ExpressionUUID->"5fc9fd2f-4262-4548-bb0e-c3f9b39e280d"],
-
-Cell[BoxData["279753"], "Output",
- CellChangeTimes->{
-  3.834664720073511*^9, {3.8346660030165987`*^9, 3.834666010242496*^9}, 
-   3.834666418715996*^9, 3.834666975249441*^9, 3.8346675109512053`*^9},
- CellLabel->"Out[77]=",ExpressionUUID->"aee20b68-2b35-442f-9874-66c7dc5fc591"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"penta", "=", 
-  RowBox[{
-   RowBox[{"pyramidG", "[", "5", "]"}], "//", "Simplify"}]}]], "Input",
- CellChangeTimes->{{3.834619604633185*^9, 3.834619617276785*^9}},
- CellLabel->"In[78]:=",ExpressionUUID->"67b414d1-3347-4f1b-b08e-2737cb35c413"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{
-      RowBox[{"-", "2"}], "-", 
-      SqrtBox["5"]}], ",", 
-     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{{3.834619613924753*^9, 3.834619617592614*^9}, 
-   3.834620065522478*^9, 3.834622033530683*^9, 3.834654883344975*^9, 
-   3.83465494860118*^9, {3.83466462589554*^9, 3.834664661765934*^9}, 
-   3.8346669752817802`*^9, 3.8346675109933558`*^9},
- CellLabel->"Out[78]=",ExpressionUUID->"c2792c4f-ba11-4cdf-8e91-3976fa1a6df0"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"faces", "=", 
-  RowBox[{"FindFace", "[", 
-   RowBox[{"graphFromG", "[", "penta", "]"}], "]"}]}]], "Input",
- CellChangeTimes->{{3.834619618699477*^9, 3.8346196290736094`*^9}, {
-  3.834620198554308*^9, 3.834620201013632*^9}},
- CellLabel->"In[79]:=",ExpressionUUID->"c891c7ce-bc05-4b91-93df-c8d403e6ba7a"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "6"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "4", ",", "3"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "5", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "6", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{{3.8346196216631613`*^9, 3.8346196295573893`*^9}, 
-   3.834620065543068*^9, 3.834620201386838*^9, 3.834622033552577*^9, 
-   3.834654883367412*^9, 3.834654948641127*^9, {3.834664625953336*^9, 
-   3.8346646617857018`*^9}, 3.834666975304007*^9, 3.834667511023058*^9},
- CellLabel->"Out[79]=",ExpressionUUID->"29cad4f6-26c4-4775-8294-f5f55c26955a"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"sigmas", "=", 
-  RowBox[{"findGeneratorsFromG", "[", "penta", "]"}]}]], "Input",
- CellChangeTimes->{{3.834619649557191*^9, 3.834619655487565*^9}, {
-  3.834620070312456*^9, 3.8346200832198067`*^9}},
- CellLabel->"In[80]:=",ExpressionUUID->"e8823d7b-28c8-4284-89ad-1397837adea9"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"5.23606797749979`", ",", "5.23606797749979`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "2.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"8.47213595499958`", ",", "6.854101966249685`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "4.23606797749979`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"5.23606797749979`", ",", "3.618033988749895`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-       "3.618033988749895`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "5.23606797749979`", ",", "2.`", ",", "5.23606797749979`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "8.47213595499958`", ",", "4.23606797749979`", ",", 
-       "6.854101966249685`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "5.23606797749979`", ",", "3.618033988749895`", ",", 
-       "3.618033988749895`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "5.236067977499791`", ",", "0.`", ",", "4.23606797749979`", ",", 
-       "2.6180339887498945`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "5.236067977499791`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-       "4.23606797749979`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "8.47213595499958`", ",", "0.`", ",", "5.236067977499789`", ",", 
-       "5.236067977499789`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"8.47213595499958`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "5.236067977499789`", ",", 
-       "5.236067977499789`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"5.236067977499791`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
-       "4.23606797749979`", ",", "2.6180339887498945`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"5.236067977499791`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "4.23606797749979`", ",", "0.`"}], "}"}]}],
-     "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"5.236067977499791`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "4.23606797749979`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"8.47213595499958`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "5.236067977499789`", ",", 
-       "5.236067977499789`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"5.236067977499791`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
-       "4.23606797749979`", ",", "2.6180339887498945`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.2917960675006309`", ",", 
-       "0.2917960675006309`", ",", "0.`", ",", "0.47213595499957944`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "1.`", ",", "0.`", ",", 
-       "0.6180339887498949`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
-       "0.6180339887498949`", ",", "0.`"}], "}"}]}], "}"}]}], "}"}]], "Output",\
-
- CellChangeTimes->{
-  3.834619656651911*^9, 3.834620065860627*^9, 3.83462012261719*^9, 
-   3.8346220339246902`*^9, 3.8346548836728973`*^9, 3.834654949141877*^9, {
-   3.83466462664412*^9, 3.8346646620916157`*^9}, 3.834666975634924*^9, 
-   3.834667511368581*^9},
- CellLabel->"Out[80]=",ExpressionUUID->"b50c5b57-fbbc-4fd3-98b5-e89c8536e300"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"root", "=", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "0.5511585907448705`"}], ",", "1.4888455922394608`", ",", 
-     "1.4888455922394608`", ",", "1.4888455922394608`", ",", 
-     "1.4888455922394608`", ",", "1.4888455922394608`"}], "}"}]}], 
-  ";"}]], "Input",
- CellChangeTimes->{{3.8346201395185328`*^9, 3.8346201588572063`*^9}},
- CellLabel->"In[81]:=",ExpressionUUID->"1a23cb5a-f23a-43de-8864-b6cb1b98e180"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Total", "[", "root", "]"}]], "Input",
- CellChangeTimes->{{3.8346201679701443`*^9, 3.8346201692494297`*^9}},
- CellLabel->"In[82]:=",ExpressionUUID->"9741cadf-ab63-43d1-ae1d-43cca646aba6"],
-
-Cell[BoxData["6.893069370452434`"], "Output",
- CellChangeTimes->{
-  3.834620169678611*^9, 3.834622033973649*^9, 3.834654883697681*^9, 
-   3.8346549491805468`*^9, {3.834664626778515*^9, 3.834664662116081*^9}, 
-   3.8346669756593103`*^9, 3.834667511401688*^9},
- CellLabel->"Out[82]=",ExpressionUUID->"b1fe9b46-1ba3-46e2-a786-ee09ae26df02"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["faces"], "Input",
- CellChangeTimes->{{3.834620214308961*^9, 3.8346202147620068`*^9}},
- CellLabel->"In[83]:=",ExpressionUUID->"80b44196-33de-4b9e-a85e-7db9093c0ce1"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "6"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "4", ",", "3"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "5", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "6", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{
-  3.8346202150275583`*^9, 3.83462203398697*^9, 3.834654883716591*^9, 
-   3.834654949209291*^9, {3.834664626822216*^9, 3.834664662132245*^9}, 
-   3.834666975681608*^9, 3.834667511429755*^9},
- CellLabel->"Out[83]=",ExpressionUUID->"9c34d003-bbf4-4ea9-ba74-d5bb2f03dd03"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["root"], "Input",
- CellChangeTimes->{{3.8346202107345552`*^9, 3.834620211091819*^9}},
- CellLabel->"In[84]:=",ExpressionUUID->"43f5bcb7-4438-4427-96ca-d3fb1ac928b9"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"-", "0.5511585907448705`"}], ",", "1.4888455922394608`", ",", 
-   "1.4888455922394608`", ",", "1.4888455922394608`", ",", 
-   "1.4888455922394608`", ",", "1.4888455922394608`"}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834620211417264*^9, 3.834622034002605*^9, 3.8346548837366877`*^9, 
-   3.83465494923393*^9, {3.834664626830339*^9, 3.834664662149575*^9}, 
-   3.834666975702516*^9, 3.834667511458911*^9},
- CellLabel->"Out[84]=",ExpressionUUID->"e1dae437-7dea-42c9-a655-cd667ae9efcd"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
-   ".", 
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
-   ".", 
-   RowBox[{"sigmas", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
-   ".", "root"}], "//", "Total"}]], "Input",
- CellChangeTimes->{{3.834620160862155*^9, 3.8346201651752768`*^9}, {
-  3.834620219509748*^9, 3.834620275016885*^9}},
- CellLabel->"In[85]:=",ExpressionUUID->"2df5ccf4-8d72-470a-b26f-8d842a8e9a97"],
-
-Cell[BoxData["352.79214981121265`"], "Output",
- CellChangeTimes->{
-  3.8346201654649887`*^9, {3.834620226476708*^9, 3.834620275425188*^9}, 
-   3.8346220340188017`*^9, 3.834654883757044*^9, 3.834654949273426*^9, {
-   3.834664626910163*^9, 3.834664662166792*^9}, 3.834666975723467*^9, 
-   3.834667511487978*^9},
- CellLabel->"Out[85]=",ExpressionUUID->"fee8a08c-657a-4963-915a-7b1fe55016ef"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"pyramidFractalDimension", "[", 
-   RowBox[{"5", ",", "1000", ",", "100"}], "]"}], "*)"}]], "Input",
- CellChangeTimes->{{3.834620293595458*^9, 3.834620305848832*^9}, {
-  3.834664634240469*^9, 3.834664636016903*^9}},
- CellLabel->"In[86]:=",ExpressionUUID->"6cafbc40-bdef-4f52-801d-0a185abc2a8a"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"cube", "=", GridBox[{
-    {"1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "5"}], 
-     RowBox[{"-", "3"}]},
-    {
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "5"}]},
-    {
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "5"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}]},
-    {
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "5"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "5"}], 
-     RowBox[{"-", "3"}], "1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "5"}], 
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}]},
-    {
-     RowBox[{"-", "5"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], "1", 
-     RowBox[{"-", "1"}]},
-    {
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "5"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "1"}], 
-     RowBox[{"-", "3"}], 
-     RowBox[{"-", "1"}], "1"}
-   }]}]], "Input",
- CellChangeTimes->{{3.834622052493532*^9, 3.8346221970743*^9}},
- CellLabel->"In[87]:=",ExpressionUUID->"32fff388-b568-43c7-8456-5d2dd851e606"],
-
-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.834622198068351*^9, 3.834654950663553*^9, {3.834664644143663*^9, 
-   3.8346646621888523`*^9}, 3.834666975749351*^9, 3.83466751152313*^9},
- CellLabel->"Out[87]=",ExpressionUUID->"238ccc76-aa5b-4506-9a0d-d170e02cd50c"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"(", 
-   RowBox[{"faces", "=", 
-    RowBox[{"FindFace", "[", 
-     RowBox[{"graphFromG", "[", "cube", "]"}], "]"}]}], ")"}], "-", 
-  "1"}]], "Input",
- CellChangeTimes->{{3.834622205930945*^9, 3.834622212055724*^9}, {
-  3.834654960161178*^9, 3.834654963791991*^9}},
- CellLabel->"In[88]:=",ExpressionUUID->"19f608a9-2937-45bd-b2d6-e61835440e16"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"0", ",", "1", ",", "5", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "3", ",", "2", ",", "1"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "4", ",", "7", ",", "3"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "6", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "3", ",", "7", ",", "6"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834622212539343*^9, {3.834654950700179*^9, 3.834654964136469*^9}, 
-   3.834655104597805*^9, {3.834664644189013*^9, 3.834664662207945*^9}, 
-   3.83466697577177*^9, 3.8346675115545187`*^9},
- CellLabel->"Out[88]=",ExpressionUUID->"a355c883-7bbf-45b2-bad0-abfd82ce0c94"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"sigmas", "=", 
-  RowBox[{"findGeneratorsFromG", "[", "cube", "]"}]}]], "Input",
- CellChangeTimes->{{3.834622215724403*^9, 3.834622220220912*^9}, {
-  3.834654956549356*^9, 3.834654957150196*^9}},
- CellLabel->"In[89]:=",ExpressionUUID->"bce4b8f4-e37f-45e9-a7f1-eee48fdaedbc"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "3.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "2.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"2.`", ",", "2.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "2.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "3.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "3.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "2.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "3.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
-       "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"3.`", ",", "1.`", ",", "2.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"2.`", ",", "2.`", ",", "2.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"2.`", ",", "1.`", ",", "3.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"3.`", ",", "0.`", ",", "3.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "3.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "3.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "1.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`", ",", "0.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`", ",", "0.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "0.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "0.`", ",", "0.`"}],
-       "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "4.`", ",", "0.`", 
-       ",", "0.`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "4.`", ",", "0.`", 
-       ",", "0.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "1.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "3.`", ",", "0.`", 
-       ",", "0.`", ",", "2.`", ",", "1.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "3.`", ",", "0.`", 
-       ",", "0.`", ",", "3.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.`", 
-       ",", "2.`", ",", "0.`", ",", "2.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-       ",", "3.`", ",", "0.`", ",", "2.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "3.`", ",", "0.`", ",", "3.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-       ",", "2.`", ",", "0.`", ",", "3.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "1.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`"}], "}"}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834622221307568*^9, {3.8346549507742653`*^9, 3.834654957802991*^9}, {
-   3.834664644274493*^9, 3.834664662256854*^9}, 3.834666975826654*^9, 
-   3.834667511612466*^9},
- CellLabel->"Out[89]=",ExpressionUUID->"6b445d3a-f978-4d2e-92a9-a25fcd08da5b"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"search", "[", 
-   RowBox[{"sigmas", ",", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"-", "1"}], ",", "4", ",", "7", ",", "2", ",", "7", ",", "12", 
-      ",", "15", ",", "10"}], "}"}], ",", 
-    RowBox[{"{", "}"}], ",", "100", ",", "faces"}], "]"}], "+", 
-  "8"}]], "Input",
- CellChangeTimes->{{3.834654997847928*^9, 3.834655107546349*^9}},
- CellLabel->"In[90]:=",ExpressionUUID->"6238e8e6-5a33-4902-9d7f-829298dea406"],
-
-Cell[BoxData["456"], "Output",
- CellChangeTimes->{{3.8346550793442707`*^9, 3.834655108001246*^9}, {
-   3.83466464436067*^9, 3.834664662280551*^9}, 3.8346669758479548`*^9, 
-   3.834667511643732*^9},
- CellLabel->"Out[90]=",ExpressionUUID->"05f07eb1-a25c-4b72-b3d3-4b4d0fc12a46"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"hex", "=", 
-  RowBox[{"pyramidG", "[", "6", "]"}]}]], "Input",
- CellChangeTimes->{{3.834658071555521*^9, 3.8346580901886787`*^9}},
- CellLabel->"In[91]:=",ExpressionUUID->"73111c9b-5882-47e3-b55c-b969b999aa13"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "7"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "7"}], ",", 
-     RowBox[{"-", "5"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "7"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "7"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "5"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "7"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "7"}], ",", 
-     RowBox[{"-", "5"}], ",", 
-     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{{3.83465807521425*^9, 3.834658091160542*^9}, {
-   3.83466464440546*^9, 3.8346646622978992`*^9}, 3.834666975869089*^9, 
-   3.834667511675344*^9},
- CellLabel->"Out[91]=",ExpressionUUID->"6bd8987a-6d83-476c-96ff-47cf95e629e4"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"sigmas", "=", 
-  RowBox[{"findGeneratorsFromG", "[", "hex", "]"}]}]], "Input",
- CellChangeTimes->{{3.834658093928141*^9, 3.8346581002412024`*^9}},
- CellLabel->"In[92]:=",ExpressionUUID->"4451aa73-9b16-4735-a9f1-777dcd963f5f"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", "4.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "4.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", "6.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.`"}], ",", "9.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", "5.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.`"}], ",", "10.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", "2.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "6.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", "2.`", ",", "6.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", "5.`", ",", "10.`", ",", 
-       RowBox[{"-", "2.`"}], ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", "6.`", ",", "9.`", ",", 
-       RowBox[{"-", "2.`"}], ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",",
-      
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", "4.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], 
-    "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", "0.`", ",", "4.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", "0.`", ",", "2.`", ",", "6.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", "0.`", ",", "5.`", ",", "10.`", ",", 
-       RowBox[{"-", "2.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", "0.`", ",", "6.`", ",", "9.`", ",", 
-       RowBox[{"-", "2.`"}], ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "8.`", ",", "6.`", ",", "0.`", 
-       ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", 
-       RowBox[{"-", "0.5`"}], ",", "0.`", ",", "5.`", ",", "2.5`", ",", "0.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", 
-       RowBox[{"-", "0.5`"}], ",", "0.`", ",", "3.`", ",", "4.5`", ",", "0.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "7.`", ",", "7.`", ",", "0.`", 
-       ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "6.`", ",", "8.`", 
-       ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "7.`", ",", "7.`", 
-       ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", 
-       RowBox[{"-", "0.5`"}], ",", "0.`", ",", "0.`", ",", "4.5`", ",", "3.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", 
-       RowBox[{"-", "0.5`"}], ",", "0.`", ",", "0.`", ",", "2.5`", ",", "5.`",
-        ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.5`"}], ",", "0.`", ",", "3.`", ",", "4.5`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "7.`", ",", "7.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"12.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "8.`", ",", "6.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"6.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.5`"}], ",", "0.`", ",", "5.`", ",", "2.5`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.3333333333333333`", ",", 
-       "0.`", ",", "0.`", ",", "0.3333333333333333`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "1.5`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.5`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.5`"}], ",", "1.`", ",", "0.`", ",", "0.5`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}]}], 
-    "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834658100697413*^9, 3.834658958575468*^9, {3.834664644542804*^9, 
-   3.834664662362894*^9}, 3.834666975932476*^9, 3.834667511792449*^9},
- CellLabel->"Out[92]=",ExpressionUUID->"f50c89e9-3b84-45d1-8548-1286c889551b"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"FindFace", "[", 
-   RowBox[{"graphFromG", "[", "hex", "]"}], "]"}], "-", "1"}]], "Input",
- CellChangeTimes->{{3.834658103685047*^9, 3.834658120522595*^9}},
- CellLabel->"In[93]:=",ExpressionUUID->"2770d730-65ec-4050-9b8d-ce8a9f6c6d43"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"0", ",", "1", ",", "6"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "3", ",", "2"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "5", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "6", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{{3.834658117748863*^9, 3.834658121060972*^9}, 
-   3.834658953459469*^9, {3.834664644600483*^9, 3.834664662383016*^9}, 
-   3.834666975955551*^9, 3.834667511825733*^9},
- CellLabel->"Out[93]=",ExpressionUUID->"ccbb4105-acb0-41e8-aca9-82895a23f611"]
-}, Open  ]],
+ CellLabel->"In[23]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
 
 Cell[BoxData[
  RowBox[{
@@ -13980,235 +1171,7 @@ Cell[BoxData[
       RowBox[{"i", ",", 
        RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], "]"}]}]], "Input",
  CellChangeTimes->{{3.8346584900042677`*^9, 3.834658495237359*^9}},
- CellLabel->"In[94]:=",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"pyramidTuple", "[", "6", "]"}]], "Input",
- CellChangeTimes->{{3.834658496733139*^9, 3.834658499310605*^9}},
- CellLabel->"In[95]:=",ExpressionUUID->"23b86623-74b9-45e7-a884-cef1f467d20e"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-  "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", 
-   RowBox[{"-", "1.`"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.8346584996898127`*^9, 3.8346589517222023`*^9, {3.8346646446531487`*^9, 
-   3.834664662408708*^9}, 3.834666975983433*^9, 3.834667511861373*^9},
- CellLabel->"Out[95]=",ExpressionUUID->"c5050a7c-2753-4875-a7fa-0ab57dfb0989"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"(*", 
-  RowBox[{"search", "[", 
-   RowBox[{"sigmas", ",", 
-    RowBox[{"pyramidTuple", "[", "6", "]"}], ",", 
-    RowBox[{"{", "}"}], ",", "100", ",", 
-    RowBox[{"FindFace", "[", 
-     RowBox[{"graphFromG", "[", "hex", "]"}], "]"}]}], "]"}], "*)"}]], "Input",\
-
- CellChangeTimes->{{3.834658891649493*^9, 3.834658944763711*^9}, {
-  3.834664654746191*^9, 3.834664656793989*^9}},
- CellLabel->"In[96]:=",ExpressionUUID->"74339a75-e243-4505-a7c1-2d27703d6994"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"squarepyramid", "=", 
-  RowBox[{"pyramidG", "[", "4", "]"}]}]], "Input",
- CellChangeTimes->{{3.834666798386382*^9, 3.83466681361831*^9}},
- CellLabel->"In[97]:=",ExpressionUUID->"cb7bce39-73e7-4aa0-8327-950654ea922a"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}], ",", "1", ",", 
-     RowBox[{"-", "1"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
-     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{{3.834666808988057*^9, 3.8346668142988157`*^9}, 
-   3.834666976012492*^9, 3.834667511896164*^9},
- CellLabel->"Out[97]=",ExpressionUUID->"ef066445-d4fe-44b2-aeca-593bdb0126ab"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"generators", "=", 
-  RowBox[{"findGeneratorsFromG", "[", "squarepyramid", "]"}]}]], "Input",
- CellChangeTimes->{{3.834666882000855*^9, 3.834666888725376*^9}},
- CellLabel->"In[98]:=",ExpressionUUID->"67654e04-22d0-423c-9913-7f00fb732fc6"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "2.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "3.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "0.`", ",", "3.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "0.`", ",", "2.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"4.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "1.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`"}], "}"}]}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{3.8346668891178293`*^9, 3.834666976055336*^9, 
-  3.834667511945484*^9},
- CellLabel->"Out[98]=",ExpressionUUID->"28a19a1d-5718-4a01-bfb5-19debd122b26"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"root", "=", 
-  RowBox[{"pyramidTuple", "[", "4", "]"}]}]], "Input",
- CellChangeTimes->{{3.834666890585568*^9, 3.834666894398221*^9}},
- CellLabel->"In[99]:=",ExpressionUUID->"8b83f15f-2b70-403c-bff2-02961fd7bf38"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-  "2.414213562373095`", ",", "2.414213562373095`", ",", "2.414213562373095`", 
-   ",", "2.414213562373095`", ",", 
-   RowBox[{"-", "1.`"}]}], "}"}]], "Output",
- CellChangeTimes->{3.8346668947699957`*^9, 3.834666976077137*^9, 
-  3.8346675119763002`*^9},
- CellLabel->"Out[99]=",ExpressionUUID->"f6051d7d-8d10-49d7-b7ac-628a246808ce"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"faces", "=", 
-  RowBox[{"FindFace", "[", 
-   RowBox[{"graphFromG", "[", "squarepyramid", "]"}], "]"}]}]], "Input",
- CellChangeTimes->{{3.8346669004024754`*^9, 3.834666909628874*^9}},
- CellLabel->
-  "In[100]:=",ExpressionUUID->"22c92261-3b8a-47af-b50c-c8cd50542792"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "4", ",", "3"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "5", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.8346669099537077`*^9, 3.834666976100544*^9, 
-  3.834667512043561*^9},
- CellLabel->
-  "Out[100]=",ExpressionUUID->"3616afa7-a24d-42f7-843b-dca146e8bbde"]
-}, Open  ]]
+ CellLabel->"In[24]:=",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"]
 },
 WindowSize->{1425., 776.25},
 WindowMargins->{{7.5, Automatic}, {7.5, Automatic}},
@@ -14230,265 +1193,31 @@ CellTagsIndex->{}
 (*NotebookFileOutline
 Notebook[{
 Cell[558, 20, 418, 9, 29, "Input",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
-Cell[979, 31, 1053, 27, 92, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
-Cell[2035, 60, 509, 11, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
-Cell[2547, 73, 439, 11, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
-Cell[2989, 86, 1406, 33, 51, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
-Cell[4398, 121, 342, 8, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
-Cell[4743, 131, 1140, 33, 29, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
-Cell[5886, 166, 741, 20, 29, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
-Cell[6630, 188, 672, 19, 29, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
-Cell[7305, 209, 708, 19, 29, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
-Cell[8016, 230, 548, 14, 29, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
-Cell[8567, 246, 702, 19, 29, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
-Cell[9272, 267, 996, 28, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
-Cell[10271, 297, 3990, 106, 298, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
-Cell[14264, 405, 10810, 230, 422, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
-Cell[25077, 637, 6823, 176, 422, "Input",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
-Cell[31903, 815, 912, 24, 29, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
-Cell[32818, 841, 4945, 104, 113, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
+Cell[979, 31, 1029, 27, 29, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
+Cell[2011, 60, 509, 11, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
+Cell[2523, 73, 439, 11, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
+Cell[2965, 86, 1415, 34, 29, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
+Cell[4383, 122, 342, 8, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
+Cell[4728, 132, 1140, 33, 29, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
+Cell[5871, 167, 740, 20, 29, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
+Cell[6614, 189, 671, 19, 29, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
+Cell[7288, 210, 708, 19, 29, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
+Cell[7999, 231, 548, 14, 29, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
+Cell[8550, 247, 702, 19, 29, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
+Cell[9255, 268, 996, 28, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
+Cell[10254, 298, 4042, 107, 298, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
+Cell[14299, 407, 10810, 230, 422, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
+Cell[25112, 639, 7146, 178, 422, "Input",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
+Cell[32261, 819, 912, 24, 29, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
+Cell[33176, 845, 5346, 111, 113, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
 Cell[CellGroupData[{
-Cell[37788, 949, 357, 5, 29, "Input",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
-Cell[38148, 956, 2553, 36, 33, "Output",ExpressionUUID->"db36a9a4-6fdf-4a0c-aac5-441635dce0dd"]
+Cell[38547, 960, 357, 5, 29, "Input",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
+Cell[38907, 967, 2766, 39, 33, "Output",ExpressionUUID->"4556071e-a1ae-4f56-bd89-317072a8ba00"]
 }, Open  ]],
-Cell[40716, 995, 2787, 67, 262, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
-Cell[43506, 1064, 1277, 34, 66, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
-Cell[CellGroupData[{
-Cell[44808, 1102, 274, 6, 29, "Input",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"],
-Cell[45085, 1110, 2180, 77, 145, "Output",ExpressionUUID->"7e49fb89-63ef-4917-8b8f-3b4e356862e7"]
-}, Open  ]],
-Cell[47280, 1190, 1383, 34, 65, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
-Cell[CellGroupData[{
-Cell[48688, 1228, 41799, 1329, 834, "Input",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"],
-Cell[90490, 2559, 34564, 1330, 464, "Output",ExpressionUUID->"deb4b937-12ea-4df7-b67b-fadd15025eba"]
-}, Open  ]],
-Cell[125069, 3892, 463, 10, 29, "Input",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"],
-Cell[CellGroupData[{
-Cell[125557, 3906, 198, 3, 29, "Input",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"],
-Cell[125758, 3911, 527, 9, 33, "Output",ExpressionUUID->"8ab37040-62b0-4839-a407-e5c9ef993975"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[126322, 3925, 664, 18, 29, "Input",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"],
-Cell[126989, 3945, 1703, 35, 55, "Output",ExpressionUUID->"72c9eab5-e345-4992-ad39-f3b117ca7936"]
-}, Open  ]],
-Cell[128707, 3983, 399, 7, 29, "Input",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"],
-Cell[129109, 3992, 1379, 26, 29, "Input",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"],
-Cell[130491, 4020, 42983, 1329, 834, "Input",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"],
-Cell[173477, 5351, 254, 5, 29, "Input",ExpressionUUID->"11673ea1-7576-40eb-a075-54a9a15912ab"],
-Cell[CellGroupData[{
-Cell[173756, 5360, 94786, 1757, 4980, InheritFromParent,ExpressionUUID->"d6ac0481-97d5-4e88-a2cc-b2ab882f2411"],
-Cell[268545, 7119, 139135, 3898, 4525, "Output",ExpressionUUID->"96cf5193-50dd-4569-b83b-52b8269a2b6f"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[407717, 11022, 275, 6, 29, "Input",ExpressionUUID->"45c2b778-7f41-4529-8007-de7e60a97c3b"],
-Cell[407995, 11030, 1279, 30, 55, "Output",ExpressionUUID->"5baf93b7-fbd4-458c-bf7f-aaad2c54f270"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[409311, 11065, 219, 4, 29, "Input",ExpressionUUID->"dabb19d5-3a94-40b1-af6f-244661f942b4"],
-Cell[409533, 11071, 6975, 154, 360, "Output",ExpressionUUID->"354ca2e4-4a07-4790-8466-074c018e3b97"]
-}, Open  ]],
-Cell[416523, 11228, 1080, 21, 71, "Input",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"],
-Cell[417606, 11251, 741, 15, 29, "Input",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"],
-Cell[418350, 11268, 419, 12, 82, "Input",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"],
-Cell[418772, 11282, 436, 13, 78, "Input",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"],
-Cell[419211, 11297, 718, 23, 78, "Input",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"],
-Cell[CellGroupData[{
-Cell[419954, 11324, 278, 5, 29, "Input",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"],
-Cell[420235, 11331, 1369, 39, 95, "Output",ExpressionUUID->"6cb6ebcc-fc32-4062-ba18-d77c1571f8c1"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[421641, 11375, 327, 8, 29, "Input",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"],
-Cell[421971, 11385, 1132, 20, 33, "Output",ExpressionUUID->"b71a859e-efca-48fc-a92a-bb0fea445006"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[423140, 11410, 339, 8, 29, "Input",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"],
-Cell[423482, 11420, 1636, 35, 48, "Output",ExpressionUUID->"c229b1df-45bf-47f6-a0d4-d7f893e3dd77"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[425155, 11460, 575, 14, 29, "Input",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"],
-Cell[425733, 11476, 1268, 21, 33, "Output",ExpressionUUID->"5a4bfe3e-f21d-4ad2-93e3-e11b94c2728c"]
-}, Open  ]],
-Cell[427016, 11500, 1048, 32, 143, "Input",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"],
-Cell[428067, 11534, 541, 14, 29, "Input",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"],
-Cell[428611, 11550, 773, 15, 29, "Input",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"],
-Cell[CellGroupData[{
-Cell[429409, 11569, 453, 8, 29, "Input",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"],
-Cell[429865, 11579, 1123, 21, 33, "Output",ExpressionUUID->"c8a72195-6463-42f6-91c7-35b5b2810b2c"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[431025, 11605, 686, 17, 29, "Input",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"],
-Cell[431714, 11624, 1046, 16, 33, "Output",ExpressionUUID->"51ba99a4-b7c1-4c6f-a316-4540dd244ca3"]
-}, Open  ]],
-Cell[432775, 11643, 916, 15, 29, "Input",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"],
-Cell[CellGroupData[{
-Cell[433716, 11662, 2653, 68, 205, "Input",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"],
-Cell[436372, 11732, 372, 6, 33, "Output",ExpressionUUID->"1ff0e14e-d5a0-4863-8d9e-f7f0035b98f9"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[436781, 11743, 563, 20, 78, "Input",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"],
-Cell[437347, 11765, 1032, 29, 33, "Output",ExpressionUUID->"323ad9e4-c2ac-4410-80e0-cf385a61b1de"]
-}, Open  ]],
-Cell[438394, 11797, 348, 7, 29, "Input",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"],
-Cell[CellGroupData[{
-Cell[438767, 11808, 467, 8, 29, "Input",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"],
-Cell[439237, 11818, 753, 12, 33, "Output",ExpressionUUID->"6bb40d60-6b43-4530-a0e6-6a79149fa067"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[440027, 11835, 529, 11, 29, "Input",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"],
-Cell[440559, 11848, 510, 7, 33, "Output",ExpressionUUID->"2291d60d-924e-46e8-bed1-7776c6fde370"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[441106, 11860, 205, 3, 29, "Input",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"],
-Cell[441314, 11865, 489, 7, 33, "Output",ExpressionUUID->"0790cbec-f8be-44ab-a189-69055057d5a3"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[441840, 11877, 679, 13, 29, "Input",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"],
-Cell[442522, 11892, 707, 10, 33, "Output",ExpressionUUID->"27455740-1e58-4de0-94b2-8c6f6f48a30f"]
-}, Open  ]],
-Cell[443244, 11905, 1885, 46, 51, "Input",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"],
-Cell[CellGroupData[{
-Cell[445154, 11955, 297, 6, 29, "Input",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"],
-Cell[445454, 11963, 729, 12, 33, "Output",ExpressionUUID->"101a817e-9c39-4407-9eb8-0d68c2dfa8f7"]
-}, Open  ]],
-Cell[446198, 11978, 444, 9, 29, "Input",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"],
-Cell[446645, 11989, 1859, 48, 176, "Input",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"],
-Cell[CellGroupData[{
-Cell[448529, 12041, 218, 3, 29, "Input",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"],
-Cell[448750, 12046, 635, 10, 33, "Output",ExpressionUUID->"1234855b-d4bf-45a2-95ee-45a0aef0b09d"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[449422, 12061, 310, 6, 29, "Input",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"],
-Cell[449735, 12069, 1298, 38, 33, "Output",ExpressionUUID->"d229e1e8-d3db-4e99-8886-5c1720325d8b"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[451070, 12112, 291, 5, 29, "Input",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"],
-Cell[451364, 12119, 3563, 95, 117, "Output",ExpressionUUID->"bf139642-d9cd-4d6d-a525-cd85afdff476"]
-}, Open  ]],
-Cell[454942, 12217, 171, 2, 29, "Input",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"],
-Cell[CellGroupData[{
-Cell[455138, 12223, 320, 6, 29, "Input",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"],
-Cell[455461, 12231, 814, 18, 33, "Output",ExpressionUUID->"e003ef54-593e-4202-b563-23e43d518e2d"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[456312, 12254, 396, 8, 29, "Input",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"],
-Cell[456711, 12264, 566, 11, 33, "Output",ExpressionUUID->"838baa06-edab-4185-9f17-e16ce69163cc"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[457314, 12280, 272, 5, 29, "Input",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"],
-Cell[457589, 12287, 553, 11, 33, "Output",ExpressionUUID->"3643cd53-6812-4f06-80c0-ef9022cc34da"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[458179, 12303, 1111, 41, 113, "Input",ExpressionUUID->"8e4190e4-388a-479e-87c2-24b60546db31"],
-Cell[459293, 12346, 1585, 49, 33, "Output",ExpressionUUID->"53cadc6c-663b-4b71-83be-f27bfdf2c4b6"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[460915, 12400, 345, 7, 29, "Input",ExpressionUUID->"33ad76d4-b47f-4f7f-b556-a35dbd07b9de"],
-Cell[461263, 12409, 6476, 184, 178, "Output",ExpressionUUID->"d4664636-e1d7-4673-901e-8f6cdd1704b8"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[467776, 12598, 312, 7, 29, "Input",ExpressionUUID->"3a912173-bf83-45d9-9537-6d403eb7f2df"],
-Cell[468091, 12607, 357, 8, 33, "Output",ExpressionUUID->"471ae90e-b741-4a1a-a7f6-e87569f236f9"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[468485, 12620, 370, 7, 29, "Input",ExpressionUUID->"6a06d77d-ffee-4ebb-bf2f-6889c9b079db"],
-Cell[468858, 12629, 482, 8, 33, "Output",ExpressionUUID->"b39e25f3-7754-4e49-bd2d-de38fcef3ce0"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[469377, 12642, 217, 3, 29, "Input",ExpressionUUID->"57565e6b-f443-4a10-b5a8-e556ff76b840"],
-Cell[469597, 12647, 2866, 63, 338, "Output",ExpressionUUID->"a26c0a36-d113-412f-b786-bb80f5121ef1"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[472500, 12715, 478, 8, 29, "Input",ExpressionUUID->"6723be5e-c163-48a9-949e-9d3d53aa8192"],
-Cell[472981, 12725, 1017, 25, 33, "Output",ExpressionUUID->"42fdd4d0-f5bc-4702-aed7-5ce0ceb67ea8"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[474035, 12755, 200, 3, 29, "Input",ExpressionUUID->"2c43e032-c9dd-404a-b078-ed7b5e47de5b"],
-Cell[474238, 12760, 777, 21, 33, "Output",ExpressionUUID->"17a13d4f-7906-4b78-ac47-175c28ea8c1b"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[475052, 12786, 395, 7, 29, "Input",ExpressionUUID->"5fc9fd2f-4262-4548-bb0e-c3f9b39e280d"],
-Cell[475450, 12795, 277, 4, 33, "Output",ExpressionUUID->"aee20b68-2b35-442f-9874-66c7dc5fc591"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[475764, 12804, 265, 5, 29, "Input",ExpressionUUID->"67b414d1-3347-4f1b-b08e-2737cb35c413"],
-Cell[476032, 12811, 2044, 69, 58, "Output",ExpressionUUID->"c2792c4f-ba11-4cdf-8e91-3976fa1a6df0"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[478113, 12885, 326, 6, 29, "Input",ExpressionUUID->"c891c7ce-bc05-4b91-93df-c8d403e6ba7a"],
-Cell[478442, 12893, 853, 20, 33, "Output",ExpressionUUID->"29cad4f6-26c4-4775-8294-f5f55c26955a"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[479332, 12918, 300, 5, 29, "Input",ExpressionUUID->"e8823d7b-28c8-4284-89ad-1397837adea9"],
-Cell[479635, 12925, 6501, 173, 199, "Output",ExpressionUUID->"b50c5b57-fbbc-4fd3-98b5-e89c8536e300"]
-}, Open  ]],
-Cell[486151, 13101, 452, 10, 29, "Input",ExpressionUUID->"1a23cb5a-f23a-43de-8864-b6cb1b98e180"],
-Cell[CellGroupData[{
-Cell[486628, 13115, 210, 3, 29, "Input",ExpressionUUID->"9741cadf-ab63-43d1-ae1d-43cca646aba6"],
-Cell[486841, 13120, 337, 5, 33, "Output",ExpressionUUID->"b1fe9b46-1ba3-46e2-a786-ee09ae26df02"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[487215, 13130, 178, 2, 29, "Input",ExpressionUUID->"80b44196-33de-4b9e-a85e-7db9093c0ce1"],
-Cell[487396, 13134, 779, 20, 33, "Output",ExpressionUUID->"9c34d003-bbf4-4ea9-ba74-d5bb2f03dd03"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[488212, 13159, 177, 2, 29, "Input",ExpressionUUID->"43f5bcb7-4438-4427-96ca-d3fb1ac928b9"],
-Cell[488392, 13163, 537, 10, 33, "Output",ExpressionUUID->"e1dae437-7dea-42c9-a655-cd667ae9efcd"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[488966, 13178, 527, 11, 29, "Input",ExpressionUUID->"2df5ccf4-8d72-470a-b26f-8d842a8e9a97"],
-Cell[489496, 13191, 388, 6, 33, "Output",ExpressionUUID->"fee8a08c-657a-4963-915a-7b1fe55016ef"]
-}, Open  ]],
-Cell[489899, 13200, 334, 6, 29, "Input",ExpressionUUID->"6cafbc40-bdef-4f52-801d-0a185abc2a8a"],
-Cell[CellGroupData[{
-Cell[490258, 13210, 1750, 68, 147, "Input",ExpressionUUID->"32fff388-b568-43c7-8456-5d2dd851e606"],
-Cell[492011, 13280, 2422, 78, 55, "Output",ExpressionUUID->"238ccc76-aa5b-4506-9a0d-d170e02cd50c"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[494470, 13363, 377, 9, 29, "Input",ExpressionUUID->"19f608a9-2937-45bd-b2d6-e61835440e16"],
-Cell[494850, 13374, 818, 19, 33, "Output",ExpressionUUID->"a355c883-7bbf-45b2-bad0-abfd82ce0c94"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[495705, 13398, 297, 5, 29, "Input",ExpressionUUID->"bce4b8f4-e37f-45e9-a7f1-eee48fdaedbc"],
-Cell[496005, 13405, 8432, 207, 261, "Output",ExpressionUUID->"6b445d3a-f978-4d2e-92a9-a25fcd08da5b"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[504474, 13617, 458, 11, 29, "Input",ExpressionUUID->"6238e8e6-5a33-4902-9d7f-829298dea406"],
-Cell[504935, 13630, 276, 4, 33, "Output",ExpressionUUID->"05f07eb1-a25c-4b72-b3d3-4b4d0fc12a46"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[505248, 13639, 233, 4, 29, "Input",ExpressionUUID->"73111c9b-5882-47e3-b55c-b969b999aa13"],
-Cell[505484, 13645, 1941, 62, 55, "Output",ExpressionUUID->"6bd8987a-6d83-476c-96ff-47cf95e629e4"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[507462, 13712, 249, 4, 29, "Input",ExpressionUUID->"4451aa73-9b16-4735-a9f1-777dcd963f5f"],
-Cell[507714, 13718, 7931, 205, 240, "Output",ExpressionUUID->"f50c89e9-3b84-45d1-8548-1286c889551b"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[515682, 13928, 269, 5, 29, "Input",ExpressionUUID->"2770d730-65ec-4050-9b8d-ce8a9f6c6d43"],
-Cell[515954, 13935, 834, 21, 33, "Output",ExpressionUUID->"ccbb4105-acb0-41e8-aca9-82895a23f611"]
-}, Open  ]],
-Cell[516803, 13959, 823, 23, 65, "Input",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"],
-Cell[CellGroupData[{
-Cell[517651, 13986, 210, 3, 29, "Input",ExpressionUUID->"23b86623-74b9-45e7-a884-cef1f467d20e"],
-Cell[517864, 13991, 405, 8, 33, "Output",ExpressionUUID->"c5050a7c-2753-4875-a7fa-0ab57dfb0989"]
-}, Open  ]],
-Cell[518284, 14002, 481, 11, 29, "Input",ExpressionUUID->"74339a75-e243-4505-a7c1-2d27703d6994"],
-Cell[CellGroupData[{
-Cell[518790, 14017, 240, 4, 29, "Input",ExpressionUUID->"cb7bce39-73e7-4aa0-8327-950654ea922a"],
-Cell[519033, 14023, 1113, 35, 33, "Output",ExpressionUUID->"ef066445-d4fe-44b2-aeca-593bdb0126ab"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[520183, 14063, 261, 4, 29, "Input",ExpressionUUID->"67654e04-22d0-423c-9913-7f00fb732fc6"],
-Cell[520447, 14069, 3325, 92, 117, "Output",ExpressionUUID->"28a19a1d-5718-4a01-bfb5-19debd122b26"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[523809, 14166, 236, 4, 29, "Input",ExpressionUUID->"8b83f15f-2b70-403c-bff2-02961fd7bf38"],
-Cell[524048, 14172, 371, 8, 33, "Output",ExpressionUUID->"f6051d7d-8d10-49d7-b7ac-628a246808ce"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[524456, 14185, 289, 6, 29, "Input",ExpressionUUID->"22c92261-3b8a-47af-b50c-c8cd50542792"],
-Cell[524748, 14193, 582, 16, 33, "Output",ExpressionUUID->"3616afa7-a24d-42f7-843b-dca146e8bbde"]
-}, Open  ]]
+Cell[41688, 1009, 2787, 67, 262, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
+Cell[44478, 1078, 1277, 34, 66, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
+Cell[45758, 1114, 1383, 34, 65, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
+Cell[47144, 1150, 823, 23, 65, "Input",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"]
 }
 ]
 *)