Circle-Packings/fractal_dimension/fractal_dimension.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    285085,       8794]
NotebookOptionsPosition[    272222,       8587]
NotebookOutlinePosition[    272717,       8605]
CellTagsIndexPosition[    272674,       8602]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"pivots", "[", "A_", "]"}], ":=", 
  RowBox[{"Flatten", "[", 
   RowBox[{
    RowBox[{"FirstPosition", "[", "1", "]"}], "/@", 
    RowBox[{"Transpose", "[", "A", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.831194837404834*^9, 3.8311948924696903`*^9}, {
  3.831194930347896*^9, 3.831194932848599*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pMatrix", "[", "n_", "]"}], ":=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Which", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"i", "\[Equal]", "2"}], "&&", 
        RowBox[{"j", "\[Equal]", "1"}]}], "||", 
       RowBox[{
        RowBox[{"i", "\[Equal]", "1"}], "&&", 
        RowBox[{"j", "\[Equal]", "2"}]}]}], ",", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "2"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], "&&", 
       RowBox[{"i", ">", "2"}]}], ",", "1", ",", "\[IndentingNewLine]", 
      "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[70]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gramMatrix", "[", "W_", "]"}], ":=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"Transpose", "[", "W", "]"}], ".", 
    RowBox[{"pMatrix", "[", 
     RowBox[{"Length", "[", "W", "]"}], "]"}], ".", "W"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.831107486071478*^9, 3.831107546093779*^9}, {
  3.831109392242589*^9, 3.831109394639595*^9}, {3.831110190169511*^9, 
  3.831110193792735*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"linearRelationsMatrix", "[", "G_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"RowReduce", "[", "G", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ";;", 
      RowBox[{"MatrixRank", "[", "G", "]"}]}], "]"}], "]"}], "//", 
   "Transpose"}]}]], "Input",
 CellChangeTimes->{{3.831109396818718*^9, 3.831109426888632*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],

Cell[BoxData[
 RowBox[{
  RowBox[{"linearRelations", "[", "L_", "]"}], ":=", 
  RowBox[{"Select", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Equal", "[", 
       RowBox[{
        SubscriptBox["b", "i"], ",", 
        RowBox[{
         RowBox[{"L", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ".", 
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["b", "i"], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}]}]}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", "L", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{
     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[73]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],

Cell[BoxData[
 RowBox[{
  RowBox[{"linearRelationsFromW", "=", 
   RowBox[{
   "linearRelations", "@*", "linearRelationsMatrix", "@*", "gramMatrix"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.831110103314905*^9, 3.831110162272215*^9}, 
   3.831206070230084*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],

Cell[BoxData[
 RowBox[{
  RowBox[{"inverseLinearRelations", "[", "G_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"i", "\[Equal]", "#"}], ",", "1", ",", "0"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"G", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "&"}], "/@", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"FirstPosition", "[", 
       RowBox[{"#", ",", "1"}], "]"}], "&"}], "/@", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"RowReduce", "[", "G", "]"}], "//", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Not", "[", 
          RowBox[{"AllTrue", "[", 
           RowBox[{"#", ",", 
            RowBox[{
             RowBox[{"#", "\[Equal]", "0"}], "&"}]}], "]"}], "]"}], "&"}], 
        "]"}]}], ")"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.831194278291965*^9, 3.831194298458626*^9}, 
   3.831195204231324*^9},
 CellLabel->"In[75]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"quadraticFormMatrix", "[", 
   RowBox[{"G_", ",", "L_"}], "]"}], ":=", 
  RowBox[{"Inverse", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", " ", "j"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"pivots", "[", "L", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.831195055004586*^9, 3.83119507699967*^9}, {
  3.831195107195753*^9, 3.831195121990181*^9}, {3.831195208095559*^9, 
  3.831195214781535*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],

Cell[BoxData[
 RowBox[{
  RowBox[{"quadraticForm", "[", 
   RowBox[{"Q_", ",", "L_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"v", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        SubscriptBox["b", "i"], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"v", ".", "Q", ".", "v"}], "\[Equal]", "0"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.831195241841057*^9, 3.831195289590564*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],

Cell[BoxData[
 RowBox[{
  RowBox[{"quadform", "[", "W_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"G", "=", 
      RowBox[{"gramMatrix", "[", "W", "]"}]}], "}"}], ",", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"L", "=", 
        RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "}"}], ",", 
      RowBox[{"quadraticForm", "[", 
       RowBox[{
        RowBox[{"quadraticFormMatrix", "[", 
         RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.831195337159152*^9, 3.831195396279203*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],

Cell[BoxData[
 RowBox[{
  RowBox[{"quadformFromG", "[", "G_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"L", "=", 
      RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "}"}], ",", 
    RowBox[{"quadraticForm", "[", 
     RowBox[{
      RowBox[{"quadraticFormMatrix", "[", 
       RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.8312049925958433`*^9, 3.8312050200596113`*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"graphFromG", "[", "G_", "]"}], ":=", 
  RowBox[{"PlanarGraph", "[", 
   RowBox[{"AdjacencyGraph", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"#", "\[Equal]", 
            RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", 
        "#"}], "&"}], "/@", "G"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8315843493182087`*^9, 3.831584372878718*^9}, {
  3.831584545556731*^9, 3.831584563248426*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nextCandidate", "[", 
    RowBox[{"s_", ",", "t_", ",", "adj_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"length", ",", "pos"}], "}"}], ",", 
     RowBox[{
      RowBox[{"length", "=", 
       RowBox[{"Length", "[", "adj", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"pos", "=", 
       RowBox[{"Mod", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"adj", ",", "s"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", "1"}], ",", "length", 
         ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"adj", "[", 
         RowBox[{"[", "pos", "]"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.831210886725911*^9},
 CellLabel->"In[81]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"FindFace", "[", 
     RowBox[{"g_", "?", "PlanarGraphQ"}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", "emb", "}"}], ",", 
      RowBox[{
       RowBox[{"emb", "=", 
        RowBox[{"GraphEmbedding", "[", 
         RowBox[{"g", ",", "\"\<PlanarEmbedding\>\""}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"FindFace", "[", 
        RowBox[{"g", ",", "emb"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"FindFace", "[", 
   RowBox[{
    RowBox[{"g_", "?", "PlanarGraphQ"}], ",", "emb_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "m", ",", "orderings", ",", "pAdj", ",", "rightF", ",", "s", ",", "t", 
      ",", "initial", ",", "face"}], "}"}], ",", 
    RowBox[{
     RowBox[{"m", "=", 
      RowBox[{"AdjacencyMatrix", "[", "g", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"pAdj", "[", "v", "]"}], "=", 
        RowBox[{"SortBy", "[", 
         RowBox[{
          RowBox[{"Pick", "[", 
           RowBox[{
            RowBox[{"VertexList", "[", "g", "]"}], ",", 
            RowBox[{"m", "[", 
             RowBox[{"[", "v", "]"}], "]"}], ",", "1"}], "]"}], ",", 
          RowBox[{
           RowBox[{"ArcTan", "@@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"emb", "[", 
               RowBox[{"[", "v", "]"}], "]"}], "-", 
              RowBox[{"emb", "[", 
               RowBox[{"[", "#", "]"}], "]"}]}], ")"}]}], "&"}]}], "]"}]}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", 
         RowBox[{"VertexList", "[", "g", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"rightF", "[", "_", "]"}], ":=", "False"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Reap", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"!", 
            RowBox[{"rightF", "[", "e", "]"}]}], ",", 
           RowBox[{
            RowBox[{"s", "=", 
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"t", "=", 
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"initial", "=", "s"}], ";", "\[IndentingNewLine]", 
            RowBox[{"face", "=", 
             RowBox[{"{", "s", "}"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"While", "[", 
             RowBox[{
              RowBox[{"t", "=!=", "initial"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"rightF", "[", 
                 RowBox[{"UndirectedEdge", "[", 
                  RowBox[{"s", ",", "t"}], "]"}], "]"}], "=", "True"}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"s", ",", "t"}], "}"}], "=", 
                RowBox[{"nextCandidate", "[", 
                 RowBox[{"s", ",", "t", ",", 
                  RowBox[{"pAdj", "[", "t", "]"}]}], "]"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"face", "=", 
                RowBox[{"Join", "[", 
                 RowBox[{"face", ",", 
                  RowBox[{"{", "s", "}"}]}], "]"}]}], ";"}]}], "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Sow", "[", "face", "]"}], ";"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"e", ",", 
           RowBox[{"EdgeList", "[", "g", "]"}]}], "}"}]}], "]"}], "]"}], "[", 
      
      RowBox[{"[", 
       RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8312108953940573`*^9, 3.831210895411563*^9}, 
   3.8312119634327393`*^9, 3.831542420732052*^9},
 CellLabel->"In[82]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"findGenerators", "[", 
   RowBox[{"faces_", ",", "vertices_", ",", "G_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "face", ",", "otherVertex", ",", "verticesOnFace", ",", "allVertices", 
        ",", "Gp", ",", "P", ",", "Gnew", ",", "L", ",", "Q", ",", "Qform", 
        ",", "sol1", ",", "sol2", ",", "sols", ",", "coeff", ",", 
        "coeffTable", ",", "small", ",", "Li", ",", "P2"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"face", "=", 
        RowBox[{"faces", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"verticesOnFace", "=", 
        RowBox[{"Sort", "[", 
         RowBox[{"RandomSample", "[", 
          RowBox[{"face", ",", "3"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"otherVertex", "=", 
        RowBox[{"RandomChoice", "[", 
         RowBox[{"Select", "[", 
          RowBox[{"vertices", ",", 
           RowBox[{
            RowBox[{"Not", "[", 
             RowBox[{"MemberQ", "[", 
              RowBox[{"face", ",", "#"}], "]"}], "]"}], "&"}]}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"allVertices", "=", 
        RowBox[{"Append", "[", 
         RowBox[{"verticesOnFace", ",", "otherVertex"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"P", "=", 
        RowBox[{"Transpose", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"IdentityMatrix", "[", 
             RowBox[{"Length", "[", "vertices", "]"}], "]"}], "[", 
            RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", 
          RowBox[{"DeleteDuplicates", "[", 
           RowBox[{"Join", "[", 
            RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], "]"}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"Gnew", "=", 
        RowBox[{
         RowBox[{"Transpose", "[", "P", "]"}], ".", "G", ".", "P"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"L", "=", 
        RowBox[{"linearRelationsMatrix", "[", "Gnew", "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Gp", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "allVertices"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "allVertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Q", "=", 
        RowBox[{"Inverse", "[", "Gp", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Qform", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#", ".", "Q", ".", "#"}], "&"}], "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             SubscriptBox["b", "j"], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "allVertices"}], "}"}]}], "]"}], "]"}], ")"}],
          "\[Equal]", "0"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"sols", "=", 
        RowBox[{"Expand", "[", 
         RowBox[{"FullSimplify", "[", 
          RowBox[{"Total", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
            RowBox[{"Solve", "[", 
             RowBox[{"Qform", ",", 
              SubscriptBox["b", "otherVertex"]}], "]"}]}], "]"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"coeff", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"sols", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              SubscriptBox["b", "i"], "\[Rule]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"i", "\[Equal]", "curr"}], ",", "1", ",", "0"}], 
               "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "allVertices"}], "}"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"curr", ",", "allVertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"small", "=", 
        RowBox[{"IdentityMatrix", "[", 
         RowBox[{"Length", "[", "allVertices", "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"small", "[", 
         RowBox[{"[", 
          RowBox[{"-", "1"}], "]"}], "]"}], "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"j", "\[Equal]", "4"}], ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"MemberQ", "[", 
               RowBox[{"verticesOnFace", ",", 
                RowBox[{"allVertices", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
              RowBox[{"coeff", "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}]}], "]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", 
            RowBox[{"Length", "[", "allVertices", "]"}]}], "}"}]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"Li", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", 
              RowBox[{"Length", "[", "vertices", "]"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "allVertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"P2", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], ",", 
          
          RowBox[{"{", 
           RowBox[{"j", ",", 
            RowBox[{"Length", "[", "vertices", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", 
            RowBox[{"DeleteDuplicates", "[", 
             RowBox[{"Join", "[", 
              RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], 
           "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"P2", ".", "L", ".", "small", ".", "Li"}]}]}], 
     "\[IndentingNewLine]", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "faces", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.831211980673108*^9, 3.831212009547978*^9}, {
   3.831212047936781*^9, 3.831212064698745*^9}, {3.831212136824675*^9, 
   3.8312121924739923`*^9}, {3.83121282873549*^9, 3.831212895555662*^9}, {
   3.8312129593096933`*^9, 3.831213052703521*^9}, {3.8312133826923237`*^9, 
   3.831213512078041*^9}, {3.831213579312004*^9, 3.831213607562201*^9}, {
   3.8312136458477*^9, 3.8312136689119587`*^9}, {3.831213699813815*^9, 
   3.831213723704392*^9}, {3.8312138140717983`*^9, 3.831213889152441*^9}, {
   3.831213941035733*^9, 3.831213957988277*^9}, {3.831213991504438*^9, 
   3.831214049771612*^9}, {3.8312142057843103`*^9, 3.831214227198838*^9}, {
   3.8313934326708517`*^9, 3.83139343995124*^9}, {3.831393489506013*^9, 
   3.831393506386162*^9}, {3.831393555227632*^9, 3.8313935602186413`*^9}, {
   3.8313936045286083`*^9, 3.83139367389612*^9}, {3.831393815407503*^9, 
   3.8313939935486803`*^9}, {3.83139404462208*^9, 3.831394092415612*^9}, {
   3.831394131767799*^9, 3.831394217388193*^9}, {3.831394341420259*^9, 
   3.831394342312114*^9}, {3.83139445920255*^9, 3.8313945442248793`*^9}, {
   3.8313945973518257`*^9, 3.831394680082652*^9}, {3.8313947347981873`*^9, 
   3.831394898892132*^9}, {3.83139493417336*^9, 3.831395053557044*^9}, {
   3.831395100567893*^9, 3.83139518418989*^9}, {3.831395217466712*^9, 
   3.831395241186327*^9}, {3.831395355721635*^9, 3.8313954066678057`*^9}, {
   3.831395475153723*^9, 3.831395516960009*^9}, {3.83139559485061*^9, 
   3.8313956385922327`*^9}, {3.831395769312038*^9, 3.8313958340021877`*^9}, {
   3.831395865647847*^9, 3.83139610784988*^9}, {3.831396182381921*^9, 
   3.831396202527211*^9}, {3.8313962730948772`*^9, 3.8313963875560293`*^9}, {
   3.831396427697093*^9, 3.8313965616329517`*^9}, {3.831396608167254*^9, 
   3.83139664360338*^9}, {3.83139670106045*^9, 3.8313967846470547`*^9}, {
   3.8313968308609743`*^9, 3.8313969389717007`*^9}, 3.831396972519156*^9, {
   3.831397018773802*^9, 3.831397020188629*^9}, {3.831397062011731*^9, 
   3.831397076917077*^9}, {3.8313971287749977`*^9, 3.8313971288803463`*^9}, {
   3.831397158974574*^9, 3.831397164029716*^9}, {3.831451905653893*^9, 
   3.831451941106399*^9}, {3.8314519809069433`*^9, 3.831452094855884*^9}, {
   3.831542443369563*^9, 3.83154246854852*^9}, {3.831542595276044*^9, 
   3.8315426013894053`*^9}, {3.831542828964487*^9, 3.831542862477805*^9}, 
   3.8315429215303297`*^9, {3.831543065147149*^9, 3.831543089933201*^9}, {
   3.8315431288434877`*^9, 3.831543129636121*^9}, {3.83154323687431*^9, 
   3.831543260658288*^9}, {3.831543295045744*^9, 3.831543299689423*^9}, 
   3.831543486496207*^9, {3.831543653211835*^9, 3.831543654095707*^9}, {
   3.831544292671633*^9, 3.8315442949499702`*^9}, {3.831544329733664*^9, 
   3.831544394563963*^9}, {3.831544636528879*^9, 3.831544663053648*^9}, 
   3.831544723323721*^9, 3.831546276666531*^9, {3.8315463223978786`*^9, 
   3.831546322569023*^9}, {3.831546446056045*^9, 3.83154644840313*^9}, {
   3.8315465437277803`*^9, 3.8315465842454453`*^9}, {3.8315466426699533`*^9, 
   3.831546646606488*^9}, {3.831546727818715*^9, 3.831546788772341*^9}, {
   3.831546839246593*^9, 3.8315468396090813`*^9}, {3.83154706753721*^9, 
   3.8315471373421164`*^9}, {3.831549700570283*^9, 3.831549703647592*^9}, {
   3.8315497447736797`*^9, 3.831549761864801*^9}, {3.831549996792459*^9, 
   3.831550026202232*^9}, {3.831550732962453*^9, 3.831550735264537*^9}, {
   3.8315509704443493`*^9, 3.8315509727254343`*^9}, {3.831551320669722*^9, 
   3.831551407002722*^9}, 3.831551438305327*^9, {3.8315518862869797`*^9, 
   3.831551891551553*^9}, {3.831552338431473*^9, 3.8315523578513947`*^9}, {
   3.8315524412649384`*^9, 3.831552441791979*^9}, {3.831552847687746*^9, 
   3.8315528556641293`*^9}, {3.83172514482829*^9, 3.831725228085017*^9}, {
   3.831725320892393*^9, 3.8317253386411657`*^9}, {3.8317254340311728`*^9, 
   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[84]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],

Cell[BoxData[
 RowBox[{
  RowBox[{"findGeneratorsN", "[", 
   RowBox[{"faces_", ",", "vertices_", ",", "G_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "face", ",", "otherVertex", ",", "verticesOnFace", ",", "allVertices", 
        ",", "Gp", ",", "P", ",", "Gnew", ",", "L", ",", "Q", ",", "Qform", 
        ",", "sol1", ",", "sol2", ",", "sols", ",", "coeff", ",", 
        "coeffTable", ",", "small", ",", "Li", ",", "P2"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"face", "=", 
        RowBox[{"faces", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"verticesOnFace", "=", 
        RowBox[{"Sort", "[", 
         RowBox[{"RandomSample", "[", 
          RowBox[{"face", ",", "3"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"otherVertex", "=", 
        RowBox[{"RandomChoice", "[", 
         RowBox[{"Select", "[", 
          RowBox[{"vertices", ",", 
           RowBox[{
            RowBox[{"Not", "[", 
             RowBox[{"MemberQ", "[", 
              RowBox[{"face", ",", "#"}], "]"}], "]"}], "&"}]}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"allVertices", "=", 
        RowBox[{"Append", "[", 
         RowBox[{"verticesOnFace", ",", "otherVertex"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"P", "=", 
        RowBox[{"Transpose", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"IdentityMatrix", "[", 
             RowBox[{"Length", "[", "vertices", "]"}], "]"}], "[", 
            RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", 
          RowBox[{"DeleteDuplicates", "[", 
           RowBox[{"Join", "[", 
            RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], "]"}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"Gnew", "=", 
        RowBox[{
         RowBox[{"Transpose", "[", "P", "]"}], ".", "G", ".", "P"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"L", "=", 
        RowBox[{"linearRelationsMatrix", "[", "Gnew", "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Gp", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "allVertices"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "allVertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Q", "=", 
        RowBox[{"Inverse", "[", "Gp", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Qform", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#", ".", "Q", ".", "#"}], "&"}], "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             SubscriptBox["b", "j"], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "allVertices"}], "}"}]}], "]"}], "]"}], ")"}],
          "\[Equal]", "0"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"sols", "=", 
        RowBox[{"Expand", "[", 
         RowBox[{"FullSimplify", "[", 
          RowBox[{"Total", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
            RowBox[{"NSolve", "[", 
             RowBox[{"Qform", ",", 
              SubscriptBox["b", "otherVertex"]}], "]"}]}], "]"}], "]"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"coeff", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"sols", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              SubscriptBox["b", "i"], "\[Rule]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"i", "\[Equal]", "curr"}], ",", "1", ",", "0"}], 
               "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "allVertices"}], "}"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"curr", ",", "allVertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"small", "=", 
        RowBox[{"IdentityMatrix", "[", 
         RowBox[{"Length", "[", "allVertices", "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"small", "[", 
         RowBox[{"[", 
          RowBox[{"-", "1"}], "]"}], "]"}], "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"j", "\[Equal]", "4"}], ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"MemberQ", "[", 
               RowBox[{"verticesOnFace", ",", 
                RowBox[{"allVertices", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
              RowBox[{"coeff", "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}]}], "]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", 
            RowBox[{"Length", "[", "allVertices", "]"}]}], "}"}]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"Li", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", 
              RowBox[{"Length", "[", "vertices", "]"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "allVertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"P2", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], ",", 
          
          RowBox[{"{", 
           RowBox[{"j", ",", 
            RowBox[{"Length", "[", "vertices", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", 
            RowBox[{"DeleteDuplicates", "[", 
             RowBox[{"Join", "[", 
              RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], 
           "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"P2", ".", "L", ".", "small", ".", "Li"}]}]}], 
     "\[IndentingNewLine]", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "faces", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.833981987629899*^9, 3.83398199939977*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],

Cell[BoxData[
 RowBox[{
  RowBox[{"findGeneratorsFromG", "[", "G_", "]"}], ":=", 
  RowBox[{"findGeneratorsN", "[", 
   RowBox[{
    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\>\""}]}], "]"}], "]"}], 
     "]"}], ",", 
    RowBox[{"Range", "[", 
     RowBox[{"Length", "[", "G", "]"}], "]"}], ",", "G"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.831554845925479*^9, 3.8315548977219877`*^9}, 
   3.833982029038528*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"search", "[", 
   RowBox[{
   "generators_", ",", "current_", ",", "lastgen_", ",", "upperBound_", ",", 
    "faces_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"totals", ",", "invalid"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"invalid", "[", 
       RowBox[{"\[Sigma]_", ",", "face_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"\[Sigma]", "\[Equal]", "lastgen"}], "||", 
       RowBox[{"AllTrue", "[", 
        RowBox[{
         RowBox[{"Delete", "[", 
          RowBox[{
           RowBox[{"\[Sigma]", ".", "current"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"{", "#", "}"}], "&"}], "/@", "face"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"#", ">", "upperBound"}], "&"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"totals", "[", "i_", "]"}], ":=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"invalid", "[", 
         RowBox[{
          RowBox[{
          "generators", "\[LeftDoubleBracket]", "i", 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{
          "faces", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
         "]"}], ",", "0", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Length", "[", "current", "]"}], "-", 
         RowBox[{"Length", "[", 
          RowBox[{
          "faces", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
          "]"}], "-", 
         RowBox[{"Length", "[", 
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"Delete", "[", 
             RowBox[{"current", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"{", "#", "}"}], "&"}], "/@", 
               RowBox[{
               "faces", "\[LeftDoubleBracket]", "i", 
                "\[RightDoubleBracket]"}]}]}], "]"}], ",", 
            RowBox[{
             RowBox[{"#", ">", "upperBound"}], "&"}]}], "]"}], "]"}], "+", 
         RowBox[{"search", "[", 
          RowBox[{"generators", ",", 
           RowBox[{
            RowBox[{
            "generators", "\[LeftDoubleBracket]", "i", 
             "\[RightDoubleBracket]"}], ".", "current"}], ",", 
           RowBox[{
           "generators", "\[LeftDoubleBracket]", "i", 
            "\[RightDoubleBracket]"}], ",", "upperBound", ",", "faces"}], 
          "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Total", "[", 
      RowBox[{"totals", "/@", 
       RowBox[{"Range", "[", 
        RowBox[{"Length", "[", "generators", "]"}], "]"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.831585478390266*^9, 3.831585832096991*^9}, {
   3.831585873047202*^9, 3.831585884320414*^9}, {3.8315859333563128`*^9, 
   3.83158598633525*^9}, {3.831586158378029*^9, 3.831586222152265*^9}, {
   3.831586295582384*^9, 3.831586377705759*^9}, {3.8315864822120523`*^9, 
   3.831586554779951*^9}, {3.8315866296308203`*^9, 3.831586667667411*^9}, {
   3.831586741340292*^9, 3.831586755993217*^9}, {3.831592107164525*^9, 
   3.831592113959847*^9}, {3.831592169716857*^9, 3.831592280561895*^9}, {
   3.831593557409717*^9, 3.8315935576894217`*^9}, {3.831593848468913*^9, 
   3.8315939374159*^9}, {3.831593976921562*^9, 3.831594001541377*^9}, {
   3.8315940487580757`*^9, 3.8315940927666388`*^9}, {3.831594365932665*^9, 
   3.831594522762847*^9}, {3.831594614138864*^9, 3.831594754985476*^9}, {
   3.8315949767507057`*^9, 3.831594980589171*^9}, {3.8316319386522493`*^9, 
   3.8316319392747498`*^9}, {3.831641985178143*^9, 3.831642038615139*^9}, 
   3.8316436263727818`*^9, {3.831643663092218*^9, 3.8316436694418087`*^9}, {
   3.831643837833714*^9, 3.831643845617309*^9}, {3.8316438865181704`*^9, 
   3.831643933219273*^9}, {3.831643991735036*^9, 3.831644005728479*^9}, {
   3.831718518985198*^9, 3.831718538584508*^9}, {3.831718573982415*^9, 
   3.831718579591817*^9}, {3.831718638646072*^9, 3.83171867240186*^9}, {
   3.8317201135527287`*^9, 3.831720118218873*^9}, {3.831720321587966*^9, 
   3.831720325967662*^9}, {3.831721027895946*^9, 3.831721065838575*^9}, {
   3.831721143231716*^9, 3.831721181846493*^9}, {3.831721396838306*^9, 
   3.83172139923806*^9}, {3.831721668116399*^9, 3.831721676695764*^9}, {
   3.831723288861394*^9, 3.831723291074202*^9}, {3.83172431511852*^9, 
   3.831724317665661*^9}, 3.833891293020659*^9, {3.834269383514792*^9, 
   3.834269386321598*^9}, {3.834269487189498*^9, 3.8342694873961067`*^9}, {
   3.834270103611849*^9, 3.834270107267815*^9}, {3.834270430339264*^9, 
   3.834270430502697*^9}, {3.834271267146653*^9, 3.834271275112032*^9}, {
   3.834351949243196*^9, 3.834351950526677*^9}, {3.834352089916841*^9, 
   3.834352127810135*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$RecursionLimit", "=", "16384"}]], "Input",
 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[88]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],

Cell[BoxData["16384"], "Output",
 CellChangeTimes->{
  3.8338932281018763`*^9, 3.8339758669967527`*^9, 3.833979312227579*^9, 
   3.833979916481537*^9, 3.833980236024199*^9, 3.833980842837739*^9, 
   3.83398098522823*^9, 3.833981016536418*^9, {3.83398252603516*^9, 
   3.833982529689131*^9}, {3.8339829193261623`*^9, 3.8339829508363667`*^9}, 
   3.8339830049394903`*^9, 3.833985185839014*^9, {3.833985309697896*^9, 
   3.833985324982264*^9}, {3.8339855257030573`*^9, 3.8339855467146*^9}, 
   3.833989922637932*^9, 3.833990186870085*^9, 3.833993648764943*^9, {
   3.83399468620287*^9, 3.8339947024536467`*^9}, 3.833995688332788*^9, {
   3.833997659712306*^9, 3.833997676964181*^9}, {3.83399771946511*^9, 
   3.833997735813401*^9}, 3.833997886970297*^9, 3.833998804781659*^9, 
   3.833998949886093*^9, 3.833999546282991*^9, 3.834002950053997*^9, 
   3.834008369614998*^9, 3.834008404771652*^9, 3.834012063580451*^9, {
   3.8340125211494923`*^9, 3.834012544564479*^9}, {3.834012632134491*^9, 
   3.834012669541378*^9}, {3.8340129486241903`*^9, 3.834012994884214*^9}, 
   3.834013025749654*^9, {3.8340516513410587`*^9, 3.834051710003538*^9}, 
   3.834061107105874*^9, {3.834061368190651*^9, 3.8340614192869053`*^9}, {
   3.8340617843815823`*^9, 3.834061797970849*^9}, {3.834065075805954*^9, 
   3.834065147762154*^9}, {3.8340672561763277`*^9, 3.834067310718713*^9}, {
   3.834069699109585*^9, 3.834069709702557*^9}, 3.834092717521625*^9, 
   3.834097171624065*^9, 3.8341343872984047`*^9, 3.834142620775568*^9, 
   3.834145530968349*^9, 3.834146073235483*^9, 3.8341809139458323`*^9, 
   3.834269357761674*^9, 3.8342693933710947`*^9, 3.834269448502894*^9, 
   3.834269494050521*^9, {3.8342695663389606`*^9, 3.8342696026888247`*^9}, 
   3.8342701160872383`*^9, 3.834270161194154*^9, 3.834270438333136*^9, 
   3.834270555594716*^9, {3.834271103264781*^9, 3.834271120536076*^9}, 
   3.834271489584754*^9, 3.834271596271693*^9, 3.834272147258156*^9, 
   3.834351698339382*^9, {3.834351996635762*^9, 3.834352017390819*^9}, 
   3.834363957483852*^9, {3.834364187716065*^9, 3.834364198004562*^9}, 
   3.8344822107164927`*^9, 3.83456973372355*^9, 3.834575082919744*^9, 
   3.834577447902966*^9, 3.8345890154068213`*^9, 3.834619110878572*^9, {
   3.834619146500414*^9, 3.834619200887533*^9}, 3.834620064417549*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"b0d4f890-a771-444d-9b79-367d59252245"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"fractalDimensionFromG", "[", 
   RowBox[{"G_", ",", "max_", ",", "delta_", ",", "root_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "xs", ",", "ys", ",", "data", ",", "graph", ",", "faces", ",", "sigmas", 
      ",", "nlm", ",", "params"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"xs", "=", 
      RowBox[{"Range", "[", 
       RowBox[{"delta", ",", "max", ",", "delta"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"graph", "=", 
      RowBox[{"graphFromG", "[", "G", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"faces", "=", 
      RowBox[{"FindFace", "[", "graph", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"sigmas", "=", 
      RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ys", "=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"search", "[", 
          RowBox[{"sigmas", ",", "root", ",", 
           RowBox[{"{", "}"}], ",", "#", ",", "faces"}], "]"}], "+", 
         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[{"Print", "[", 
      RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"b", "/.", "params"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8339647725688353`*^9, 3.8339649328744087`*^9}, {
  3.833965051157412*^9, 3.8339650578368483`*^9}, {3.833965560813403*^9, 
  3.8339655739990377`*^9}, {3.833965620539852*^9, 3.833965639062742*^9}, {
  3.833965942784672*^9, 3.833965996602522*^9}, {3.8342709119109173`*^9, 
  3.8342709184846773`*^9}, {3.834271399281299*^9, 3.834271400142085*^9}, {
  3.8345760352900133`*^9, 3.834576035855191*^9}, {3.834594490350781*^9, 
  3.834594498152722*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyramidG", "[", "n_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Which", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"i", "\[Equal]", "0"}], "&&", 
       RowBox[{"j", "\[Equal]", "0"}]}], ",", "1", ",", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "0"}], "||", 
       RowBox[{"j", "\[Equal]", "0"}]}], ",", 
      RowBox[{"-", "1"}], ",", "True", ",", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", 
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           FractionBox[
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"i", "-", "j"}], "]"}], "\[Pi]"}], "n"], "]"}], "2"]}], 
        
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          FractionBox["\[Pi]", "n"], "]"}], "2"]]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "n"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "0", ",", "n"}], "}"}]}], "]"}]}]], "Input",
 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[90]:=",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[91]:=",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},
 CellLabel->
  "Out[91]//MatrixForm=",ExpressionUUID->"31a9b1db-7c74-441a-aff6-\
83692603abe7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyramidFractalDimension", "[", 
   RowBox[{"n_", ",", "max_", ",", "delta_"}], "]"}], ":=", 
  RowBox[{"fractalDimensionFromG", "[", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"pyramidG", "[", "n", "]"}], "]"}], ",", "max", ",", "delta", 
    ",", 
    RowBox[{"N", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[Equal]", 
          RowBox[{"n", "+", "1"}]}], ",", 
         RowBox[{"-", "1"}], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"Sec", "[", 
            FractionBox["\[Pi]", "n"], "]"}], "+", 
           RowBox[{"Tan", "[", 
            FractionBox["\[Pi]", "n"], "]"}]}], 
          RowBox[{"Tan", "[", 
           FractionBox["\[Pi]", "n"], "]"}]]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], "]"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.833978967161902*^9, 3.8339789914381647`*^9}, {
  3.833979205542704*^9, 3.833979255368734*^9}, {3.833979399981943*^9, 
  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[92]:=",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[93]:=",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},
 CellLabel->"Out[93]=",ExpressionUUID->"c6e2f2e6-7cd4-491a-8e58-672efe0ba64d"]
}, 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[94]:=",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"faces", "-", "1"}]], "Input",
 CellChangeTimes->{{3.834588042134763*^9, 3.834588042907105*^9}},
 CellLabel->"In[95]:=",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},
 CellLabel->"Out[95]=",ExpressionUUID->"0fd36348-8a39-4c56-9bce-27751c02104a"]
}, 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[96]:=",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},
 CellLabel->"Out[96]=",ExpressionUUID->"88f8c696-d104-4a8c-a524-de32937c37c5"]
}, 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[97]:=",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[98]:=",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"],

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",
 CellLabel->"In[99]:=",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"],

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.834569733781122*^9, 3.8345750830053596`*^9, 
  3.8345774480010633`*^9, 3.834589015844344*^9, 3.834619201132711*^9, 
  3.8346200646459208`*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"c362ca4a-b04d-4383-96b3-61d66b80e032"]
}, 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[100]:=",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[101]:=",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[102]:=",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[103]:=",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[104]:=",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[105]:=",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},
 CellLabel->
  "Out[105]//MatrixForm=",ExpressionUUID->"fa744ce7-df42-4c5e-ace8-\
b2000738a824"]
}, 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[106]:=",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},
 CellLabel->
  "Out[106]=",ExpressionUUID->"d499779c-5b7a-4f58-9ac7-5a43ab49042e"]
}, 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[107]:=",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},
 CellLabel->
  "Out[107]=",ExpressionUUID->"678ba049-5256-437d-96b6-fb8886ab326f"]
}, 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[108]:=",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},
 CellLabel->
  "Out[108]=",ExpressionUUID->"ea191bd8-62b5-449c-ad86-8a309f852993"]
}, 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[109]:=",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[110]:=",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[111]:=",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[112]:=",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},
 CellLabel->
  "Out[112]=",ExpressionUUID->"bd06ccdb-7db7-4884-88fe-575ea5d8b20c"]
}, 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[113]:=",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},
 CellLabel->
  "Out[113]=",ExpressionUUID->"c3b0541b-fd2c-451d-b4e5-598414d580c3"]
}, 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[114]:=",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}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.036244`", ",", "794"}], "}"}]], "Output",
 CellChangeTimes->{
  3.834575100970106*^9, {3.834575892210062*^9, 3.8345759235007677`*^9}, {
   3.834576067576849*^9, 3.834576081559376*^9}, 3.834577448397056*^9, 
   3.834589016134952*^9, 3.8346192014126596`*^9, 3.834620064913557*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"be5b9f37-dd7e-4ca9-b86f-715c76a65e1e"]
}, 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[119]:=",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},
 CellLabel->
  "Out[119]=",ExpressionUUID->"d55a8c7b-2938-4b5b-adb0-4e0b59073014"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fractalDimensionFromG", "[", 
  RowBox[{"G", ",", "1000", ",", "100", ",", "root"}], "]"}]], "Input",
 CellChangeTimes->{{3.834575932192585*^9, 3.834575982803146*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"],

Cell[BoxData["0.9998854157770295`"], "Print",
 CellChangeTimes->{3.834619201872141*^9, 3.834620065084012*^9},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"243c5f53-2902-486d-8a6e-0fa1474569bd"],

Cell[BoxData["1.2852530162394058`"], "Output",
 CellChangeTimes->{{3.8345759522619953`*^9, 3.83457601147882*^9}, 
   3.834576042488693*^9, 3.8345774486768436`*^9, 3.8345890163431997`*^9, 
   3.834619201873157*^9, 3.834620065085408*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"167b692a-014e-4740-ab76-42c647d16680"]
}, Open  ]],

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[121]:=",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},
 CellLabel->
  "Out[121]=",ExpressionUUID->"51c54558-df57-4bc9-8281-8e5ff7b90dd9"]
}, 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[122]:=",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},
 CellLabel->
  "Out[122]=",ExpressionUUID->"982890cb-9b9b-49e7-b982-cc9764229ef4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", "root", "]"}]], "Input",
 CellChangeTimes->{{3.834364511566435*^9, 3.83436451570404*^9}},
 CellLabel->
  "In[123]:=",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},
 CellLabel->
  "Out[123]=",ExpressionUUID->"35cceac5-c6b2-4fa2-a20a-d2bba3fac866"]
}, 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[124]:=",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},
 CellLabel->
  "Out[124]=",ExpressionUUID->"5d5d94b9-1b6b-49fb-a0f1-2cc81a3dba25"]
}, 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[125]:=",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[126]:=",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},
 CellLabel->
  "Out[126]=",ExpressionUUID->"61f0b93b-6c00-4f56-b397-60afac7f76d2"]
}, 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[127]:=",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[128]:=",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.834272427241466*^9, 3.8342724326668386`*^9}},
 CellLabel->
  "In[129]:=",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},
 CellLabel->
  "Out[129]=",ExpressionUUID->"7f9b8f0a-874b-4fc3-9422-12a987494490"]
}, 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[130]:=",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},
 CellLabel->
  "Out[130]=",ExpressionUUID->"49110fde-c70a-4cf4-a8d4-2e603dcfecc5"]
}, 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[131]:=",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.`", ",", "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.`", ",", 
       RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"4.`", ",", 
       RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`", ",", "0.`"}], "}"}]}], 
    "}"}], ",", 
   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.`"}], ",", "0.`", ",", "1.`", ",", "0.`", ",", "1.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", 
       RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], 
     ",", 
     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},
 CellLabel->
  "Out[131]=",ExpressionUUID->"fce856bb-cf1c-44e6-a5f9-84bb9451b447"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.834608303636486*^9, 3.834608313792286*^9}},
 CellLabel->
  "In[132]:=",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[133]:=",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},
 CellLabel->
  "Out[133]=",ExpressionUUID->"708710fb-18f7-4e74-a13d-2bfc60343c8f"]
}, 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[134]:=",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},
 CellLabel->
  "Out[134]=",ExpressionUUID->"29ee0936-3209-44a7-b6fe-4d84f0630f57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sigmas", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
  ".", "root"}]], "Input",
 CellChangeTimes->{{3.834613496502672*^9, 3.834613501324523*^9}},
 CellLabel->
  "In[135]:=",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},
 CellLabel->
  "Out[135]=",ExpressionUUID->"7cb8baeb-3dda-444c-9e76-ec432c6240da"]
}, 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}},
 CellLabel->
  "In[136]:=",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},
 CellLabel->
  "Out[136]=",ExpressionUUID->"03bbb9da-1d29-4767-b4d1-35dff02bc65e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"findGeneratorsFromG", "[", "octahedron", "]"}]], "Input",
 CellChangeTimes->{{3.834619259619753*^9, 3.83461927082788*^9}},
 CellLabel->
  "In[137]:=",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[{"4.`", ",", "3.`", ",", "3.`", ",", "0.`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.`", ",", "4.`", ",", "2.`", ",", "0.`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.`", ",", "4.`", ",", "3.`", ",", "0.`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}]}], "}"}], ",", 
   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[{"0.`", ",", "3.`", ",", "4.`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.`", ",", "4.`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`", ",", "4.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "3.`", ",", "3.`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`", ",", "4.`"}], "}"}], ",", 
     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[{"0.`", ",", 
       RowBox[{"-", "1.`"}], ",", "4.`", ",", "3.`", ",", "0.`", ",", "3.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`", ",", "0.`", ",", "4.`"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`", ",", "0.`", ",", "4.`"}],
       "}"}], ",", 
     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},
 CellLabel->
  "Out[137]=",ExpressionUUID->"d7197a22-9352-43c8-9269-d2c69cfc8fa7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"graphFromG", "[", "octahedron", "]"}]], "Input",
 CellChangeTimes->{{3.834619274052507*^9, 3.834619277451138*^9}},
 CellLabel->
  "In[138]:=",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},
 CellLabel->
  "Out[138]=",ExpressionUUID->"1eed4d70-0f62-4f73-90be-92c25c799d9e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FindFace", "[", 
   RowBox[{"graphFromG", "[", "octahedron", "]"}], "]"}], "-", "1"}]], "Input",\

 CellChangeTimes->{{3.8346193509253397`*^9, 3.834619357450687*^9}, {
  3.8346194631143084`*^9, 3.834619463243856*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"6723be5e-c163-48a9-949e-9d3d53aa8192"],

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.834619357780086*^9, 3.8346194639350357`*^9, 
  3.8346200655020027`*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"1d194c93-5caf-4cbe-9fc9-3c99c40fd595"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"penta", "=", 
  RowBox[{
   RowBox[{"pyramidG", "[", "5", "]"}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.834619604633185*^9, 3.834619617276785*^9}},
 CellLabel->
  "In[140]:=",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},
 CellLabel->
  "Out[140]=",ExpressionUUID->"b25d69c0-f3c3-45c1-aa02-e93c76b0e393"]
}, 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[147]:=",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},
 CellLabel->
  "Out[147]=",ExpressionUUID->"39b0d370-2259-4986-a545-47e7cbb8bb44"]
}, 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[143]:=",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.236067977499791`", ",", "4.23606797749979`", ",", "0.`", ",", 
       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
       "2.6180339887498945`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.47213595499958`", ",", "5.236067977499789`", ",", "0.`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`", ",", "5.236067977499789`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "5.236067977499791`", ",", "2.6180339887498945`", ",", "0.`", ",", 
       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
       "4.23606797749979`"}], "}"}], ",", 
     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`", ",", "3.618033988749895`", ",", 
       "3.618033988749895`", ",", "0.`", ",", "0.`", ",", 
       RowBox[{"-", "1.`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "8.47213595499958`", ",", "6.854101966249685`", ",", 
       "4.23606797749979`", ",", "0.`", ",", "0.`", ",", 
       RowBox[{"-", "1.618033988749895`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "5.23606797749979`", ",", "5.23606797749979`", ",", "2.`", ",", "0.`", 
       ",", "0.`", ",", 
       RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
   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.23606797749979`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "2.`", ",", 
       "5.23606797749979`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.47213595499958`", ",", 
       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
       "4.23606797749979`", ",", "6.854101966249685`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.23606797749979`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
       "3.618033988749895`", ",", "3.618033988749895`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.`"}], ",", "0.7639320225002103`", ",", "0.`", ",", 
       "0.`", ",", "0.7639320225002103`", ",", 
       RowBox[{"-", "0.47213595499957944`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", ",", "1.`", 
       ",", 
       RowBox[{"-", "1.618033988749895`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "1.618033988749895`", 
       ",", 
       RowBox[{"-", "1.618033988749895`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
      "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.834619656651911*^9, 3.834620065860627*^9, 
  3.83462012261719*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"94d972b8-33e9-4789-a419-3b876c67fa83"]
}, 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[144]:=",ExpressionUUID->"1a23cb5a-f23a-43de-8864-b6cb1b98e180"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", "root", "]"}]], "Input",
 CellChangeTimes->{{3.8346201679701443`*^9, 3.8346201692494297`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"9741cadf-ab63-43d1-ae1d-43cca646aba6"],

Cell[BoxData["6.893069370452434`"], "Output",
 CellChangeTimes->{3.834620169678611*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"96a13016-bbd7-4387-b974-d41da072905a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["faces"], "Input",
 CellChangeTimes->{{3.834620214308961*^9, 3.8346202147620068`*^9}},
 CellLabel->
  "In[149]:=",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},
 CellLabel->
  "Out[149]=",ExpressionUUID->"f668886c-1b02-41e8-b9d1-57e604682c3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["root"], "Input",
 CellChangeTimes->{{3.8346202107345552`*^9, 3.834620211091819*^9}},
 CellLabel->
  "In[148]:=",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},
 CellLabel->
  "Out[148]=",ExpressionUUID->"d0fbc094-796c-466d-bbc9-6abea376e2ac"]
}, 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[162]:=",ExpressionUUID->"2df5ccf4-8d72-470a-b26f-8d842a8e9a97"],

Cell[BoxData["352.79214981121254`"], "Output",
 CellChangeTimes->{
  3.8346201654649887`*^9, {3.834620226476708*^9, 3.834620275425188*^9}},
 CellLabel->
  "Out[162]=",ExpressionUUID->"f9fd2508-1493-47ac-a341-cb494616092d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pyramidFractalDimension", "[", 
  RowBox[{"5", ",", "1000", ",", "100"}], "]"}]], "Input",
 CellChangeTimes->{{3.834620293595458*^9, 3.834620305848832*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"6cafbc40-bdef-4f52-801d-0a185abc2a8a"],

Cell[BoxData["0.9998621534966605`"], "Print",
 CellChangeTimes->{3.834620306881564*^9},
 CellLabel->
  "During evaluation of \
In[164]:=",ExpressionUUID->"c1804cf7-b750-4f70-a587-d189a8b9e20a"],

Cell[BoxData["1.316845837118839`"], "Output",
 CellChangeTimes->{3.8346203068833237`*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"048e6b24-d56e-4fd2-8d77-2a57115b0c68"]
}, Open  ]]
},
WindowSize->{736.5, 776.25},
WindowMargins->{{7.5, Automatic}, {7.5, Automatic}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
FrontEndVersion->"12.2 for Linux x86 (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"e8622aad-0bd2-483b-a68b-2a26bc5485be"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 419, 9, 29, "Input",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
Cell[980, 31, 1054, 27, 92, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
Cell[2037, 60, 510, 11, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
Cell[2550, 73, 440, 11, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
Cell[2993, 86, 1407, 33, 71, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
Cell[4403, 121, 343, 8, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
Cell[4749, 131, 1141, 33, 92, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
Cell[5893, 166, 741, 20, 51, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
Cell[6637, 188, 672, 19, 29, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
Cell[7312, 209, 708, 19, 71, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
Cell[8023, 230, 548, 14, 51, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
Cell[8574, 246, 702, 19, 51, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
Cell[9279, 267, 996, 28, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
Cell[10278, 297, 3990, 106, 360, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
Cell[14271, 405, 10810, 230, 546, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
Cell[25084, 637, 6823, 176, 546, "Input",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
Cell[31910, 815, 912, 24, 92, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
Cell[32825, 841, 4816, 102, 195, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
Cell[CellGroupData[{
Cell[37666, 947, 357, 5, 29, "Input",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
Cell[38026, 954, 2377, 33, 33, "Output",ExpressionUUID->"b0d4f890-a771-444d-9b79-367d59252245"]
}, Open  ]],
Cell[40418, 990, 2787, 67, 283, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
Cell[43208, 1059, 1277, 34, 121, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
Cell[CellGroupData[{
Cell[44510, 1097, 274, 6, 29, "Input",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"],
Cell[44787, 1105, 2017, 75, 145, "Output",ExpressionUUID->"31a9b1db-7c74-441a-aff6-83692603abe7"]
}, Open  ]],
Cell[46819, 1183, 1383, 34, 116, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
Cell[CellGroupData[{
Cell[48227, 1221, 41799, 1329, 1618, "Input",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"],
Cell[90029, 2552, 34398, 1328, 1358, "Output",ExpressionUUID->"c6e2f2e6-7cd4-491a-8e58-672efe0ba64d"]
}, Open  ]],
Cell[124442, 3883, 463, 10, 29, "Input",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"],
Cell[CellGroupData[{
Cell[124930, 3897, 198, 3, 29, "Input",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"],
Cell[125131, 3902, 360, 7, 33, "Output",ExpressionUUID->"0fd36348-8a39-4c56-9bce-27751c02104a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125528, 3914, 664, 18, 71, "Input",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"],
Cell[126195, 3934, 1531, 33, 75, "Output",ExpressionUUID->"88f8c696-d104-4a8c-a524-de32937c37c5"]
}, Open  ]],
Cell[127741, 3970, 399, 7, 29, "Input",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"],
Cell[128143, 3979, 1379, 26, 29, "Input",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"],
Cell[CellGroupData[{
Cell[129547, 4009, 41539, 1325, 1618, "Input",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"],
Cell[171089, 5336, 34276, 1326, 1358, "Output",ExpressionUUID->"c362ca4a-b04d-4383-96b3-61d66b80e032"]
}, Open  ]],
Cell[205380, 6665, 1080, 21, 154, "Input",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"],
Cell[206463, 6688, 745, 16, 29, "Input",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"],
Cell[207211, 6706, 423, 13, 82, "Input",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"],
Cell[207637, 6721, 440, 14, 78, "Input",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"],
Cell[208080, 6737, 722, 24, 78, "Input",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"],
Cell[CellGroupData[{
Cell[208827, 6765, 282, 6, 29, "Input",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"],
Cell[209112, 6773, 1199, 36, 95, "Output",ExpressionUUID->"fa744ce7-df42-4c5e-ace8-b2000738a824"]
}, Open  ]],
Cell[CellGroupData[{
Cell[210348, 6814, 331, 9, 29, "Input",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"],
Cell[210682, 6825, 966, 19, 33, "Output",ExpressionUUID->"d499779c-5b7a-4f58-9ac7-5a43ab49042e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211685, 6849, 343, 9, 29, "Input",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"],
Cell[212031, 6860, 1474, 34, 48, "Output",ExpressionUUID->"678ba049-5256-437d-96b6-fb8886ab326f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213542, 6899, 579, 15, 29, "Input",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"],
Cell[214124, 6916, 1106, 20, 33, "Output",ExpressionUUID->"ea191bd8-62b5-449c-ad86-8a309f852993"]
}, Open  ]],
Cell[215245, 6939, 1052, 33, 143, "Input",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"],
Cell[216300, 6974, 545, 15, 29, "Input",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"],
Cell[216848, 6991, 777, 16, 29, "Input",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"],
Cell[CellGroupData[{
Cell[217650, 7011, 457, 9, 29, "Input",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"],
Cell[218110, 7022, 955, 19, 33, "Output",ExpressionUUID->"bd06ccdb-7db7-4884-88fe-575ea5d8b20c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219102, 7046, 690, 18, 29, "Input",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"],
Cell[219795, 7066, 881, 14, 33, "Output",ExpressionUUID->"c3b0541b-fd2c-451d-b4e5-598414d580c3"]
}, Open  ]],
Cell[220691, 7083, 920, 16, 29, "Input",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"],
Cell[CellGroupData[{
Cell[221636, 7103, 2536, 67, 205, "Input",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"],
Cell[224175, 7172, 403, 8, 33, "Output",ExpressionUUID->"be5b9f37-dd7e-4ca9-b86f-715c76a65e1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224615, 7185, 567, 21, 78, "Input",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"],
Cell[225185, 7208, 837, 26, 33, "Output",ExpressionUUID->"d55a8c7b-2938-4b5b-adb0-4e0b59073014"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226059, 7239, 274, 5, 29, "Input",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"],
Cell[226336, 7246, 215, 4, 23, "Print",ExpressionUUID->"243c5f53-2902-486d-8a6e-0fa1474569bd"],
Cell[226554, 7252, 318, 5, 33, "Output",ExpressionUUID->"167b692a-014e-4740-ab76-42c647d16680"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226909, 7262, 471, 9, 29, "Input",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"],
Cell[227383, 7273, 587, 11, 33, "Output",ExpressionUUID->"51c54558-df57-4bc9-8281-8e5ff7b90dd9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228007, 7289, 533, 12, 29, "Input",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"],
Cell[228543, 7303, 350, 6, 33, "Output",ExpressionUUID->"982890cb-9b9b-49e7-b982-cc9764229ef4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228930, 7314, 209, 4, 29, "Input",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"],
Cell[229142, 7320, 321, 5, 33, "Output",ExpressionUUID->"35cceac5-c6b2-4fa2-a20a-d2bba3fac866"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229500, 7330, 683, 14, 29, "Input",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"],
Cell[230186, 7346, 543, 8, 33, "Output",ExpressionUUID->"5d5d94b9-1b6b-49fb-a0f1-2cc81a3dba25"]
}, Open  ]],
Cell[230744, 7357, 1889, 47, 113, "Input",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"],
Cell[CellGroupData[{
Cell[232658, 7408, 301, 7, 29, "Input",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"],
Cell[232962, 7417, 563, 10, 33, "Output",ExpressionUUID->"61f0b93b-6c00-4f56-b397-60afac7f76d2"]
}, Open  ]],
Cell[233540, 7430, 448, 10, 29, "Input",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"],
Cell[233991, 7442, 1863, 49, 176, "Input",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"],
Cell[CellGroupData[{
Cell[235879, 7495, 222, 4, 29, "Input",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"],
Cell[236104, 7501, 465, 8, 33, "Output",ExpressionUUID->"7f9b8f0a-874b-4fc3-9422-12a987494490"]
}, Open  ]],
Cell[CellGroupData[{
Cell[236606, 7514, 314, 7, 29, "Input",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"],
Cell[236923, 7523, 1136, 36, 55, "Output",ExpressionUUID->"49110fde-c70a-4cf4-a8d4-2e603dcfecc5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238096, 7564, 295, 6, 29, "Input",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"],
Cell[238394, 7572, 3404, 94, 220, "Output",ExpressionUUID->"fce856bb-cf1c-44e6-a5f9-84bb9451b447"]
}, Open  ]],
Cell[241813, 7669, 175, 3, 29, "Input",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"],
Cell[CellGroupData[{
Cell[242013, 7676, 324, 7, 29, "Input",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"],
Cell[242340, 7685, 655, 17, 33, "Output",ExpressionUUID->"708710fb-18f7-4e74-a13d-2bfc60343c8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243032, 7707, 400, 9, 51, "Input",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"],
Cell[243435, 7718, 394, 9, 33, "Output",ExpressionUUID->"29ee0936-3209-44a7-b6fe-4d84f0630f57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243866, 7732, 276, 6, 29, "Input",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"],
Cell[244145, 7740, 388, 9, 33, "Output",ExpressionUUID->"7cb8baeb-3dda-444c-9e76-ec432c6240da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[244570, 7754, 1064, 41, 113, "Input",ExpressionUUID->"8e4190e4-388a-479e-87c2-24b60546db31"],
Cell[245637, 7797, 1424, 47, 55, "Output",ExpressionUUID->"03bbb9da-1d29-4767-b4d1-35dff02bc65e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[247098, 7849, 229, 4, 29, "Input",ExpressionUUID->"33ad76d4-b47f-4f7f-b556-a35dbd07b9de"],
Cell[247330, 7855, 7012, 202, 343, "Output",ExpressionUUID->"d7197a22-9352-43c8-9269-d2c69cfc8fa7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[254379, 8062, 221, 4, 29, "Input",ExpressionUUID->"57565e6b-f443-4a10-b5a8-e556ff76b840"],
Cell[254603, 8068, 2701, 61, 338, "Output",ExpressionUUID->"1eed4d70-0f62-4f73-90be-92c25c799d9e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[257341, 8134, 335, 8, 29, "Input",ExpressionUUID->"6723be5e-c163-48a9-949e-9d3d53aa8192"],
Cell[257679, 8144, 781, 22, 33, "Output",ExpressionUUID->"1d194c93-5caf-4cbe-9fc9-3c99c40fd595"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258497, 8171, 269, 6, 29, "Input",ExpressionUUID->"67b414d1-3347-4f1b-b08e-2737cb35c413"],
Cell[258769, 8179, 1882, 68, 81, "Output",ExpressionUUID->"b25d69c0-f3c3-45c1-aa02-e93c76b0e393"]
}, Open  ]],
Cell[CellGroupData[{
Cell[260688, 8252, 330, 7, 29, "Input",ExpressionUUID->"c891c7ce-bc05-4b91-93df-c8d403e6ba7a"],
Cell[261021, 8261, 691, 19, 33, "Output",ExpressionUUID->"39b0d370-2259-4986-a545-47e7cbb8bb44"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261749, 8285, 304, 6, 29, "Input",ExpressionUUID->"e8823d7b-28c8-4284-89ad-1397837adea9"],
Cell[262056, 8293, 6370, 174, 447, "Output",ExpressionUUID->"94d972b8-33e9-4789-a419-3b876c67fa83"]
}, Open  ]],
Cell[268441, 8470, 456, 11, 51, "Input",ExpressionUUID->"1a23cb5a-f23a-43de-8864-b6cb1b98e180"],
Cell[CellGroupData[{
Cell[268922, 8485, 214, 4, 29, "Input",ExpressionUUID->"9741cadf-ab63-43d1-ae1d-43cca646aba6"],
Cell[269139, 8491, 170, 3, 33, "Output",ExpressionUUID->"96a13016-bbd7-4387-b974-d41da072905a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[269346, 8499, 182, 3, 29, "Input",ExpressionUUID->"80b44196-33de-4b9e-a85e-7db9093c0ce1"],
Cell[269531, 8504, 617, 18, 33, "Output",ExpressionUUID->"f668886c-1b02-41e8-b9d1-57e604682c3d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270185, 8527, 181, 3, 29, "Input",ExpressionUUID->"43f5bcb7-4438-4427-96ca-d3fb1ac928b9"],
Cell[270369, 8532, 373, 8, 33, "Output",ExpressionUUID->"d0fbc094-796c-466d-bbc9-6abea376e2ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270779, 8545, 531, 12, 29, "Input",ExpressionUUID->"2df5ccf4-8d72-470a-b26f-8d842a8e9a97"],
Cell[271313, 8559, 222, 4, 33, "Output",ExpressionUUID->"f9fd2508-1493-47ac-a341-cb494616092d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271572, 8568, 263, 5, 29, "Input",ExpressionUUID->"6cafbc40-bdef-4f52-801d-0a185abc2a8a"],
Cell[271838, 8575, 193, 4, 23, "Print",ExpressionUUID->"c1804cf7-b750-4f70-a587-d189a8b9e20a"],
Cell[272034, 8581, 172, 3, 56, "Output",ExpressionUUID->"048e6b24-d56e-4fd2-8d77-2a57115b0c68"]
}, Open  ]]
}
]
*)