diff --git a/Presentation.nb b/Presentation.nb
index c10b357..618078e 100644
--- a/Presentation.nb
+++ b/Presentation.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[     98276,       2280]
-NotebookOptionsPosition[     95330,       2226]
-NotebookOutlinePosition[     95731,       2242]
-CellTagsIndexPosition[     95688,       2239]
+NotebookDataLength[     94069,       2200]
+NotebookOptionsPosition[     91256,       2149]
+NotebookOutlinePosition[     91657,       2165]
+CellTagsIndexPosition[     91614,       2162]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -56,8 +56,7 @@ Cell[BoxData[
   3.8309610006696243`*^9}, {3.8309610406625767`*^9, 3.830961145400291*^9}, {
   3.830974193183652*^9, 3.8309745378615713`*^9}, {3.831070955808754*^9, 
   3.831070961297104*^9}, {3.834179746565708*^9, 3.8341797491247168`*^9}},
- CellLabel->
-  "In[255]:=",ExpressionUUID->"42bda541-275e-4fa8-ad0f-dff973087409"],
+ CellLabel->"In[1]:=",ExpressionUUID->"42bda541-275e-4fa8-ad0f-dff973087409"],
 
 Cell[BoxData[{
  RowBox[{
@@ -937,191 +936,19 @@ Cell[BoxData[{
         RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}],
       ".", "cFin"}]}], "]"}]}]}], "Input",
  CellChangeTimes->{{3.834179528431576*^9, 3.8341796307976007`*^9}},
- CellLabel->
-  "In[256]:=",ExpressionUUID->"c77ea1b4-464a-475d-935a-6ddd3139e407"],
-
-Cell[CellGroupData[{
+ CellLabel->"In[2]:=",ExpressionUUID->"c77ea1b4-464a-475d-935a-6ddd3139e407"],
 
 Cell[BoxData[
- RowBox[{"G", "=", 
-  RowBox[{"GramMaker", "[", 
-   RowBox[{
-    RowBox[{"myAntiPyramid", "[", "5", "]"}], ",", "14", ",", "10000"}], 
-   "]"}]}]], "Input",
+ RowBox[{
+  RowBox[{"G", "=", 
+   RowBox[{"GramMaker", "[", 
+    RowBox[{
+     RowBox[{"myAntiPyramid", "[", "5", "]"}], ",", "14", ",", "10000"}], 
+    "]"}]}], ";"}]], "Input",
  CellChangeTimes->{{3.8341795407019453`*^9, 3.834179541264065*^9}, {
-  3.834179796934347*^9, 3.834179809094207*^9}},
- CellLabel->
-  "In[292]:=",ExpressionUUID->"2acb2df6-0250-4f93-a487-d393ec6948a7"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"1.0000000000000009`", ",", 
-     RowBox[{"-", "4.2360679774997845`"}], ",", 
-     RowBox[{"-", "12.708203932499332`"}], ",", 
-     RowBox[{"-", "12.708203932499343`"}], ",", 
-     RowBox[{"-", "4.23606797749978`"}], ",", 
-     RowBox[{"-", "1.000000000000066`"}], ",", 
-     RowBox[{"-", "1.0000000000000626`"}], ",", 
-     RowBox[{"-", "9.47213595499963`"}], ",", 
-     RowBox[{"-", "14.708203932499408`"}], ",", 
-     RowBox[{"-", "9.472135954999644`"}], ",", 
-     RowBox[{"-", "1.0000000000000089`"}], ",", 
-     RowBox[{"-", "2.236067977499884`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "4.2360679774997845`"}], ",", "1.0000000000000009`", ",", 
-     RowBox[{"-", "4.236067977499781`"}], ",", 
-     RowBox[{"-", "12.70820393249936`"}], ",", 
-     RowBox[{"-", "12.70820393249936`"}], ",", 
-     RowBox[{"-", "9.472135954999644`"}], ",", 
-     RowBox[{"-", "1.0000000000000655`"}], ",", 
-     RowBox[{"-", "1.0000000000000668`"}], ",", 
-     RowBox[{"-", "9.472135954999642`"}], ",", 
-     RowBox[{"-", "14.70820393249945`"}], ",", 
-     RowBox[{"-", "1.0000000000000098`"}], ",", 
-     RowBox[{"-", "2.236067977499888`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "12.708203932499332`"}], ",", 
-     RowBox[{"-", "4.236067977499781`"}], ",", "0.9999999999999996`", ",", 
-     RowBox[{"-", "4.236067977499778`"}], ",", 
-     RowBox[{"-", "12.708203932499332`"}], ",", 
-     RowBox[{"-", "14.708203932499396`"}], ",", 
-     RowBox[{"-", "9.47213595499961`"}], ",", 
-     RowBox[{"-", "1.0000000000000635`"}], ",", 
-     RowBox[{"-", "1.000000000000064`"}], ",", 
-     RowBox[{"-", "9.472135954999635`"}], ",", 
-     RowBox[{"-", "1.0000000000000084`"}], ",", 
-     RowBox[{"-", "2.236067977499882`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "12.708203932499343`"}], ",", 
-     RowBox[{"-", "12.70820393249936`"}], ",", 
-     RowBox[{"-", "4.236067977499778`"}], ",", "0.9999999999999993`", ",", 
-     RowBox[{"-", "4.236067977499778`"}], ",", 
-     RowBox[{"-", "9.472135954999626`"}], ",", 
-     RowBox[{"-", "14.708203932499394`"}], ",", 
-     RowBox[{"-", "9.472135954999635`"}], ",", 
-     RowBox[{"-", "1.0000000000000648`"}], ",", 
-     RowBox[{"-", "1.0000000000000657`"}], ",", 
-     RowBox[{"-", "1.0000000000000093`"}], ",", 
-     RowBox[{"-", "2.236067977499884`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "4.23606797749978`"}], ",", 
-     RowBox[{"-", "12.70820393249936`"}], ",", 
-     RowBox[{"-", "12.708203932499332`"}], ",", 
-     RowBox[{"-", "4.236067977499778`"}], ",", "0.9999999999999994`", ",", 
-     RowBox[{"-", "1.000000000000063`"}], ",", 
-     RowBox[{"-", "9.47213595499962`"}], ",", 
-     RowBox[{"-", "14.708203932499417`"}], ",", 
-     RowBox[{"-", "9.472135954999626`"}], ",", 
-     RowBox[{"-", "1.0000000000000673`"}], ",", 
-     RowBox[{"-", "1.0000000000000093`"}], ",", 
-     RowBox[{"-", "2.236067977499884`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1.000000000000066`"}], ",", 
-     RowBox[{"-", "9.472135954999644`"}], ",", 
-     RowBox[{"-", "14.708203932499396`"}], ",", 
-     RowBox[{"-", "9.472135954999626`"}], ",", 
-     RowBox[{"-", "1.000000000000063`"}], ",", "0.9999999999999998`", ",", 
-     RowBox[{"-", "4.236067977499778`"}], ",", 
-     RowBox[{"-", "12.70820393249935`"}], ",", 
-     RowBox[{"-", "12.708203932499341`"}], ",", 
-     RowBox[{"-", "4.236067977499785`"}], ",", 
-     RowBox[{"-", "2.236067977499885`"}], ",", 
-     RowBox[{"-", "1.0000000000000089`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1.0000000000000626`"}], ",", 
-     RowBox[{"-", "1.0000000000000655`"}], ",", 
-     RowBox[{"-", "9.47213595499961`"}], ",", 
-     RowBox[{"-", "14.708203932499394`"}], ",", 
-     RowBox[{"-", "9.47213595499962`"}], ",", 
-     RowBox[{"-", "4.236067977499778`"}], ",", "0.9999999999999986`", ",", 
-     RowBox[{"-", "4.236067977499777`"}], ",", 
-     RowBox[{"-", "12.708203932499332`"}], ",", 
-     RowBox[{"-", "12.708203932499352`"}], ",", 
-     RowBox[{"-", "2.2360679774998817`"}], ",", 
-     RowBox[{"-", "1.0000000000000089`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "9.47213595499963`"}], ",", 
-     RowBox[{"-", "1.0000000000000668`"}], ",", 
-     RowBox[{"-", "1.0000000000000635`"}], ",", 
-     RowBox[{"-", "9.472135954999635`"}], ",", 
-     RowBox[{"-", "14.708203932499417`"}], ",", 
-     RowBox[{"-", "12.70820393249935`"}], ",", 
-     RowBox[{"-", "4.236067977499777`"}], ",", "1.`", ",", 
-     RowBox[{"-", "4.236067977499784`"}], ",", 
-     RowBox[{"-", "12.70820393249937`"}], ",", 
-     RowBox[{"-", "2.2360679774998853`"}], ",", 
-     RowBox[{"-", "1.0000000000000102`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "14.708203932499408`"}], ",", 
-     RowBox[{"-", "9.472135954999642`"}], ",", 
-     RowBox[{"-", "1.000000000000064`"}], ",", 
-     RowBox[{"-", "1.0000000000000648`"}], ",", 
-     RowBox[{"-", "9.472135954999626`"}], ",", 
-     RowBox[{"-", "12.708203932499341`"}], ",", 
-     RowBox[{"-", "12.708203932499332`"}], ",", 
-     RowBox[{"-", "4.236067977499784`"}], ",", "1.000000000000001`", ",", 
-     RowBox[{"-", "4.2360679774997845`"}], ",", 
-     RowBox[{"-", "2.236067977499885`"}], ",", 
-     RowBox[{"-", "1.0000000000000089`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "9.472135954999644`"}], ",", 
-     RowBox[{"-", "14.70820393249945`"}], ",", 
-     RowBox[{"-", "9.472135954999635`"}], ",", 
-     RowBox[{"-", "1.0000000000000657`"}], ",", 
-     RowBox[{"-", "1.0000000000000673`"}], ",", 
-     RowBox[{"-", "4.236067977499785`"}], ",", 
-     RowBox[{"-", "12.708203932499352`"}], ",", 
-     RowBox[{"-", "12.70820393249937`"}], ",", 
-     RowBox[{"-", "4.2360679774997845`"}], ",", "1.0000000000000002`", ",", 
-     RowBox[{"-", "2.2360679774998875`"}], ",", 
-     RowBox[{"-", "1.0000000000000107`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1.0000000000000089`"}], ",", 
-     RowBox[{"-", "1.0000000000000098`"}], ",", 
-     RowBox[{"-", "1.0000000000000084`"}], ",", 
-     RowBox[{"-", "1.0000000000000093`"}], ",", 
-     RowBox[{"-", "1.0000000000000093`"}], ",", 
-     RowBox[{"-", "2.236067977499885`"}], ",", 
-     RowBox[{"-", "2.2360679774998817`"}], ",", 
-     RowBox[{"-", "2.2360679774998853`"}], ",", 
-     RowBox[{"-", "2.236067977499885`"}], ",", 
-     RowBox[{"-", "2.2360679774998875`"}], ",", "1.`", ",", 
-     RowBox[{"-", "1.7639320225002568`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "2.236067977499884`"}], ",", 
-     RowBox[{"-", "2.236067977499888`"}], ",", 
-     RowBox[{"-", "2.236067977499882`"}], ",", 
-     RowBox[{"-", "2.236067977499884`"}], ",", 
-     RowBox[{"-", "2.236067977499884`"}], ",", 
-     RowBox[{"-", "1.0000000000000089`"}], ",", 
-     RowBox[{"-", "1.0000000000000089`"}], ",", 
-     RowBox[{"-", "1.0000000000000102`"}], ",", 
-     RowBox[{"-", "1.0000000000000089`"}], ",", 
-     RowBox[{"-", "1.0000000000000107`"}], ",", 
-     RowBox[{"-", "1.7639320225002568`"}], ",", "0.9999999999999997`"}], 
-    "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
-  3.8341795446742983`*^9, 3.8341796342153883`*^9, 3.8341797131672173`*^9, 
-   3.834179811383936*^9, {3.834501061390765*^9, 3.834501076103367*^9}, 
-   3.834501229114954*^9, 3.834502882776107*^9, 3.834568960544511*^9, 
-   3.83456904188068*^9, {3.83460821719843*^9, 3.8346082773639317`*^9}, 
-   3.8346132595491343`*^9},
- CellLabel->
-  "Out[292]=",ExpressionUUID->"00f58963-1bec-4f17-b581-aff807028e0f"]
-}, Open  ]],
+  3.834179796934347*^9, 3.834179809094207*^9}, {3.834619683964849*^9, 
+  3.834619687892744*^9}, {3.834619738219818*^9, 3.834619742471016*^9}},
+ CellLabel->"In[38]:=",ExpressionUUID->"2acb2df6-0250-4f93-a487-d393ec6948a7"],
 
 Cell[CellGroupData[{
 
@@ -1134,35 +961,67 @@ Cell[BoxData[
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", 
+      RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", 
       RowBox[{"-", "1"}], ",", 
-      RowBox[{"-", "3"}], ",", 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], ",", 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", "1", ",", 
       RowBox[{"-", "1"}], ",", 
-      RowBox[{"-", "3"}]}], "}"}], ",", 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], ",", 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
-      RowBox[{"-", "3"}], ",", 
+      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[{"-", "3"}], ",", 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], ",", 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]], "Input",
  CellChangeTimes->{{3.834501067162672*^9, 3.8345010680342617`*^9}, 
-   3.83460821356898*^9, 3.834608254494473*^9, 3.834613256684762*^9},
- CellLabel->
-  "In[293]:=",ExpressionUUID->"1616f30b-f817-4bed-8186-0f3e4b738bac"],
+   3.83460821356898*^9, 3.834608254494473*^9, 3.834613256684762*^9, 
+   3.834619701731597*^9},
+ CellLabel->"In[39]:=",ExpressionUUID->"1616f30b-f817-4bed-8186-0f3e4b738bac"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -1172,37 +1031,69 @@ Cell[BoxData[
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", 
+     RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1", ",", 
      RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
+     RowBox[{
+      RowBox[{"-", "2"}], "-", 
+      SqrtBox["5"]}], ",", 
+     RowBox[{
+      RowBox[{"-", "2"}], "-", 
+      SqrtBox["5"]}], ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", "1", ",", 
      RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}]}], "}"}], ",", 
+     RowBox[{
+      RowBox[{"-", "2"}], "-", 
+      SqrtBox["5"]}], ",", 
+     RowBox[{
+      RowBox[{"-", "2"}], "-", 
+      SqrtBox["5"]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
-     RowBox[{"-", "3"}], ",", 
+     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[{"-", "3"}], ",", 
+     RowBox[{
+      RowBox[{"-", "2"}], "-", 
+      SqrtBox["5"]}], ",", 
+     RowBox[{
+      RowBox[{"-", "2"}], "-", 
+      SqrtBox["5"]}], ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
  CellChangeTimes->{{3.8345010712331038`*^9, 3.834501076129974*^9}, 
    3.834501229130864*^9, 3.834502882798918*^9, 3.8345689605886927`*^9, 
    3.834569041895773*^9, {3.83460821722288*^9, 3.834608277378764*^9}, 
-   3.834613259571035*^9},
- CellLabel->
-  "Out[293]=",ExpressionUUID->"71b7f1a7-5e88-4605-9406-a449116256ae"]
+   3.834613259571035*^9, 3.8346197096397047`*^9, 3.8346197456640778`*^9, 
+   3.834619781398299*^9},
+ CellLabel->"Out[39]=",ExpressionUUID->"d4886bba-f5a9-4546-a097-33ce9d228c74"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1223,10 +1114,9 @@ Cell[BoxData[
    3.832075225240695*^9, 3.832075250655039*^9}, 3.832154275791316*^9, {
    3.834150652562565*^9, 3.8341506602368183`*^9}, {3.834179514150607*^9, 
    3.834179527454651*^9}},
- CellLabel->
-  "In[294]:=",ExpressionUUID->"ced1cd28-39c9-46f3-906f-472b911c83b5"],
+ CellLabel->"In[40]:=",ExpressionUUID->"ced1cd28-39c9-46f3-906f-472b911c83b5"],
 
-Cell[BoxData["5"], "Output",
+Cell[BoxData["6"], "Output",
  CellChangeTimes->{
   3.8311389995758657`*^9, 3.8311390332247753`*^9, {3.831139077841172*^9, 
    3.8311390946047153`*^9}, {3.831139139540516*^9, 3.8311391502889767`*^9}, {
@@ -1243,9 +1133,9 @@ Cell[BoxData["5"], "Output",
    3.8341797131884813`*^9, 3.834179811405641*^9, {3.834501061407423*^9, 
    3.834501076151882*^9}, 3.8345012291462593`*^9, 3.834502882817725*^9, 
    3.834568960611871*^9, 3.834569041953014*^9, {3.834608217314954*^9, 
-   3.83460827739392*^9}, 3.8346132595933733`*^9},
- CellLabel->
-  "Out[294]=",ExpressionUUID->"7d1068cd-4185-4697-a370-98c58525919d"]
+   3.83460827739392*^9}, 3.8346132595933733`*^9, 3.834619709653597*^9, 
+   3.8346197456802607`*^9, 3.834619781410372*^9},
+ CellLabel->"Out[40]=",ExpressionUUID->"86850e86-0d9a-4d04-9f00-ec892f30e1b0"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1254,8 +1144,7 @@ Cell[BoxData[
  RowBox[{"MatrixForm", "[", "G", "]"}]], "Input",
  CellChangeTimes->{{3.8310684245019207`*^9, 3.831068430589032*^9}, 
    3.831070943176569*^9},
- CellLabel->
-  "In[295]:=",ExpressionUUID->"c3856cfc-8a90-4b2e-a7f8-03f066ea4f67"],
+ CellLabel->"In[41]:=",ExpressionUUID->"c3856cfc-8a90-4b2e-a7f8-03f066ea4f67"],
 
 Cell[BoxData[
  TagBox[
@@ -1264,26 +1153,57 @@ Cell[BoxData[
       RowBox[{"-", "1"}], 
       RowBox[{"-", "1"}], 
       RowBox[{"-", "1"}], 
+      RowBox[{"-", "1"}], 
       RowBox[{"-", "1"}]},
      {
       RowBox[{"-", "1"}], "1", 
       RowBox[{"-", "1"}], 
-      RowBox[{"-", "3"}], 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], 
       RowBox[{"-", "1"}]},
      {
       RowBox[{"-", "1"}], 
       RowBox[{"-", "1"}], "1", 
       RowBox[{"-", "1"}], 
-      RowBox[{"-", "3"}]},
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}]},
      {
       RowBox[{"-", "1"}], 
-      RowBox[{"-", "3"}], 
+      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[{"-", "3"}], 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], 
+      RowBox[{
+       RowBox[{"-", "2"}], "-", 
+       SqrtBox["5"]}], 
       RowBox[{"-", "1"}], "1"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
@@ -1321,17 +1241,17 @@ Cell[BoxData[
    3.834501061427705*^9, 3.834501076174374*^9}, 3.8345012291623507`*^9, 
    3.8345028828382463`*^9, 3.834568960652845*^9, {3.834569033461903*^9, 
    3.834569041971336*^9}, {3.834608217364354*^9, 3.834608277409753*^9}, 
-   3.834613259617034*^9},
+   3.834613259617034*^9, 3.834619709668024*^9, 3.834619745696979*^9, 
+   3.834619781423669*^9},
  CellLabel->
-  "Out[295]//MatrixForm=",ExpressionUUID->"45374975-4620-44a5-bf25-\
-34b9631e9eef"]
+  "Out[41]//MatrixForm=",ExpressionUUID->"aaac5f71-64ec-4550-aa90-\
+1e258e041bd8"]
 }, Open  ]],
 
 Cell[BoxData[""], "Input",
  CellChangeTimes->{{3.8310924022859507`*^9, 3.831092406878796*^9}, {
    3.8311137278056173`*^9, 3.8311137280579557`*^9}, 3.831552904141026*^9},
- CellLabel->
-  "In[296]:=",ExpressionUUID->"c0fe9f2e-e239-4938-84cd-0e217d1ee57c"],
+ CellLabel->"In[42]:=",ExpressionUUID->"c0fe9f2e-e239-4938-84cd-0e217d1ee57c"],
 
 Cell[CellGroupData[{
 
@@ -1344,8 +1264,7 @@ Cell[BoxData[
   3.831126153456332*^9}, {3.831138701611702*^9, 3.831138701838715*^9}, {
   3.831139071114275*^9, 3.8311390712579117`*^9}, {3.831139182740775*^9, 
   3.831139182989287*^9}, {3.8315534621430817`*^9, 3.8315534622203608`*^9}},
- CellLabel->
-  "In[297]:=",ExpressionUUID->"0fcfbb19-b2bd-4a52-925c-ac50bcdaec4f"],
+ CellLabel->"In[43]:=",ExpressionUUID->"0fcfbb19-b2bd-4a52-925c-ac50bcdaec4f"],
 
 Cell[BoxData["4"], "Output",
  CellChangeTimes->{{3.831077658967082*^9, 3.831077690109293*^9}, 
@@ -1415,9 +1334,9 @@ Cell[BoxData["4"], "Output",
    3.8341798115140533`*^9, {3.8345010614473867`*^9, 3.834501076200571*^9}, 
    3.834501229181724*^9, 3.834502882864852*^9, 3.834568960687703*^9, 
    3.834569041992879*^9, {3.8346082174024277`*^9, 3.834608277428707*^9}, 
-   3.8346132596494503`*^9},
- CellLabel->
-  "Out[297]=",ExpressionUUID->"c7ca20bd-4c9c-483c-b50b-5698dafd9f80"]
+   3.8346132596494503`*^9, 3.834619709684678*^9, 3.8346197457179537`*^9, 
+   3.8346197814400587`*^9},
+ CellLabel->"Out[43]=",ExpressionUUID->"a881aebc-065c-4ee5-b482-321ac8b46d3a"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1429,8 +1348,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.8310687914533653`*^9, 3.831068852426504*^9}, {
   3.831069579236924*^9, 3.831069580068521*^9}, {3.831077557179717*^9, 
   3.8310775573141937`*^9}, {3.831077610720077*^9, 3.8310776304729652`*^9}},
- CellLabel->
-  "In[298]:=",ExpressionUUID->"66dee78e-384d-4588-9d25-04b3c7b1aea7"],
+ CellLabel->"In[44]:=",ExpressionUUID->"66dee78e-384d-4588-9d25-04b3c7b1aea7"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -1530,9 +1448,9 @@ Cell[BoxData[
    3.834179811535512*^9, {3.834501061468029*^9, 3.83450107622572*^9}, 
    3.8345012291977587`*^9, 3.834502882881853*^9, 3.834568960712244*^9, 
    3.834569042005877*^9, {3.834608217439719*^9, 3.834608277444111*^9}, 
-   3.83461325967183*^9},
- CellLabel->
-  "Out[298]=",ExpressionUUID->"4d944208-efd8-4bf9-8571-ed7c9065db41"]
+   3.83461325967183*^9, 3.8346197096982527`*^9, {3.834619745735023*^9, 
+   3.834619750445147*^9}, 3.834619781454649*^9},
+ CellLabel->"Out[44]=",ExpressionUUID->"8ff17e09-3f3f-467f-8160-bff8ef3042de"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1544,13 +1462,12 @@ Cell[BoxData[
   3.831068864549449*^9, {3.831068913060398*^9, 3.831068913704132*^9}, {
    3.831070982047958*^9, 3.8310709823617363`*^9}, {3.8341797067716312`*^9, 
    3.8341797075825768`*^9}},
- CellLabel->
-  "In[299]:=",ExpressionUUID->"6c7429b3-1587-4d20-991f-d99f45021537"],
+ CellLabel->"In[45]:=",ExpressionUUID->"6c7429b3-1587-4d20-991f-d99f45021537"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
-   RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "0"}], 
+   RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "0", ",", "0"}], 
   "}"}]], "Output",
  CellChangeTimes->{
   3.831069655368197*^9, {3.831069731555151*^9, 3.8310697423741207`*^9}, 
@@ -1642,9 +1559,9 @@ Cell[BoxData[
    3.834179635038335*^9, 3.834179714041378*^9, 3.834179811582711*^9, {
    3.8345010615381107`*^9, 3.834501076421116*^9}, 3.8345012292720633`*^9, 
    3.8345028829639797`*^9, 3.834568961033568*^9, 3.834569042385539*^9, {
-   3.834608217835533*^9, 3.83460827747479*^9}, 3.8346132596995*^9},
- CellLabel->
-  "Out[299]=",ExpressionUUID->"b86716b8-cefa-481e-bf7a-e62f17d96863"]
+   3.834608217835533*^9, 3.83460827747479*^9}, 3.8346132596995*^9, 
+   3.8346197097744637`*^9, 3.834619745758875*^9, 3.834619781487938*^9},
+ CellLabel->"Out[45]=",ExpressionUUID->"8641f3f1-8ea5-48a4-ac9a-aef301c58a8a"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -1680,8 +1597,7 @@ Cell[BoxData[
    3.831139083258071*^9, 3.831139092421317*^9}, {3.831139192060491*^9, 
    3.831139212300468*^9}, {3.831553470591372*^9, 3.831553478545971*^9}, 
    3.83417970530786*^9},
- CellLabel->
-  "In[300]:=",ExpressionUUID->"dd7b3324-1ab6-43b0-9e24-406f40fb34ba"],
+ CellLabel->"In[46]:=",ExpressionUUID->"dd7b3324-1ab6-43b0-9e24-406f40fb34ba"],
 
 Cell[BoxData[{
  RowBox[{
@@ -1730,8 +1646,7 @@ Cell[BoxData[{
    3.8310843677991743`*^9, 3.8310843903198833`*^9}, {3.831084590240316*^9, 
    3.8310845937558413`*^9}, {3.831084628215064*^9, 3.831084651458681*^9}, {
    3.8341797019320917`*^9, 3.834179704491941*^9}},
- CellLabel->
-  "In[301]:=",ExpressionUUID->"9e97f31a-ffaa-4f35-bb49-127a66bb73f7"],
+ CellLabel->"In[47]:=",ExpressionUUID->"9e97f31a-ffaa-4f35-bb49-127a66bb73f7"],
 
 Cell[BoxData[{
  RowBox[{
@@ -1806,8 +1721,7 @@ Vg0Vl8GJ3tYsEVG/6pLCm32ZHA635VEV2o89mC/+pW6rxJ7oHrJ3q8YL1aXl
 afjS+0pVpgo5HOLSZBMPsh3O21DzgyRI+k1V+q5ZMcRprp4NLb6BkDWi253A
 ghFjM2eQO846h39Zj/tn
   "],
- CellLabel->
-  "In[306]:=",ExpressionUUID->"0209d30a-517c-4664-b87b-84799191f438"],
+ CellLabel->"In[52]:=",ExpressionUUID->"0209d30a-517c-4664-b87b-84799191f438"],
 
 Cell[CellGroupData[{
 
@@ -2019,23 +1933,27 @@ Cell[BoxData[{
    3.831126219196403*^9, 3.831126229413628*^9}, {3.8346082657844973`*^9, 
    3.8346082869679623`*^9}},
  NumberMarks->False,
- CellLabel->
-  "In[315]:=",ExpressionUUID->"3a5095fb-bef7-4905-a187-ccc481ddd9ee"],
+ CellLabel->"In[61]:=",ExpressionUUID->"3a5095fb-bef7-4905-a187-ccc481ddd9ee"],
 
 Cell[BoxData[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
-     {"1.9486311405059253`", "0.8071494464601062`", "0.8071494464601062`", 
-      "0.8071494464601062`", "0.8071494464601062`"},
+     {"1.8143598172869573`", "1.2724134731462617`", "1.2724134731462617`", 
+      "1.2724134731462617`", "1.2724134731462617`", "1.2724134731462617`"},
      {
-      RowBox[{"-", "0.5131807550506294`"}], "1.2389279387920946`", 
-      "1.2389279387920946`", "1.2389279387920946`", "1.2389279387920946`"},
-     {"0.`", "0.`", 
-      RowBox[{"-", "1.4142135623730951`"}], "0.`", "1.4142135623730951`"},
-     {"0.`", 
-      RowBox[{"-", "1.4142135623730951`"}], "0.`", "1.4142135623730951`", 
-      "0.`"},
-     {"0", "0", "0", "0", "0"}
+      RowBox[{"-", "0.5511585907448705`"}], "1.4888455922394608`", 
+      "1.4888455922394608`", "1.4888455922394608`", "1.4888455922394608`", 
+      "1.4888455922394608`"},
+     {
+      RowBox[{"-", "2.769102509824876`*^-117"}], "1.0000000000000002`", 
+      RowBox[{"-", "1.0000000000000002`"}], 
+      RowBox[{"-", "1.618033988749895`"}], 
+      RowBox[{"-", "6.0530414692259196`*^-117"}], "1.618033988749895`"},
+     {"3.890992197379559`*^-116", 
+      RowBox[{"-", "1.3763819204711736`"}], 
+      RowBox[{"-", "1.3763819204711736`"}], "0.5257311121191336`", 
+      "1.70130161670408`", "0.5257311121191336`"},
+     {"0", "0", "0", "0", "0", "0"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
@@ -2097,17 +2015,18 @@ Cell[BoxData[
    3.834150722393003*^9, 3.834179638862646*^9, 3.83417971760988*^9, 
    3.834179811662073*^9, {3.83450106170175*^9, 3.834501078858068*^9}, 
    3.834502885610161*^9, 3.834568964784423*^9, 3.834569045834074*^9, {
-   3.834608221545703*^9, 3.834608287914912*^9}, 3.834613259816371*^9},
+   3.834608221545703*^9, 3.834608287914912*^9}, 3.834613259816371*^9, 
+   3.834619710098199*^9, 3.8346197459725227`*^9, 3.8346197817356377`*^9},
  CellLabel->
-  "Out[315]//MatrixForm=",ExpressionUUID->"e0ad8c18-1b83-4146-ae6d-\
-44a1abd94479"],
+  "Out[61]//MatrixForm=",ExpressionUUID->"ab3c1b2c-b9bf-410b-bdc3-\
+8c3ef889c390"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
-   RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", 
-   "1.2389279387920946`", ",", "1.2389279387920946`", ",", 
-   "1.2389279387920946`"}], "}"}]], "Output",
+   RowBox[{"-", "0.5511585907448705`"}], ",", "1.4888455922394608`", ",", 
+   "1.4888455922394608`", ",", "1.4888455922394608`", ",", 
+   "1.4888455922394608`", ",", "1.4888455922394608`"}], "}"}]], "Output",
  CellChangeTimes->{
   3.8310808181124763`*^9, 3.831080860753619*^9, {3.8310809469470253`*^9, 
    3.831080964993269*^9}, {3.831081004545352*^9, 3.8310810231079683`*^9}, {
@@ -2158,16 +2077,20 @@ Cell[BoxData[
    3.834150722393003*^9, 3.834179638862646*^9, 3.83417971760988*^9, 
    3.834179811662073*^9, {3.83450106170175*^9, 3.834501078858068*^9}, 
    3.834502885610161*^9, 3.834568964784423*^9, 3.834569045834074*^9, {
-   3.834608221545703*^9, 3.834608287914912*^9}, 3.834613259822506*^9},
- CellLabel->
-  "Out[316]=",ExpressionUUID->"bd55e7f1-e7ed-4687-b2e0-1b4acec683a0"],
+   3.834608221545703*^9, 3.834608287914912*^9}, 3.834613259816371*^9, 
+   3.834619710098199*^9, 3.8346197459725227`*^9, 3.834619781739894*^9},
+ CellLabel->"Out[62]=",ExpressionUUID->"f14ecbea-5a12-446d-8cef-862d9d63cc15"],
 
 Cell[BoxData[
- GraphicsBox[{CircleBox[{0., 0.}, 1.9486311405059256], 
-   CircleBox[{0., -1.1414816940458192}, 0.8071494464601066], 
-   CircleBox[{-1.1414816940458192, 0.}, 0.8071494464601066], 
-   CircleBox[{0., 1.1414816940458192}, 0.8071494464601066], 
-   CircleBox[{1.1414816940458192, 0.}, 0.8071494464601066]},
+ GraphicsBox[{
+   CircleBox[{5.024148323774716*^-117, -7.059659892302553*^-116}, 
+    1.814359817286957], 
+   CircleBox[{0.6716613228480202, -0.9244625014477668}, 0.67166132284802], 
+   CircleBox[{-0.6716613228480202, -0.9244625014477668}, 0.67166132284802], 
+   CircleBox[{-1.086770849296813, 0.35311325422829803}, 0.67166132284802], 
+   CircleBox[{-4.065593840474204*^-117, 1.1426984944389376}, 
+    0.67166132284802], 
+   CircleBox[{1.086770849296813, 0.35311325422829803}, 0.67166132284802]},
   ImageSize->{443.87890625, Automatic}]], "Output",
  CellChangeTimes->{
   3.8310808181124763`*^9, 3.831080860753619*^9, {3.8310809469470253`*^9, 
@@ -2219,9 +2142,9 @@ Cell[BoxData[
    3.834150722393003*^9, 3.834179638862646*^9, 3.83417971760988*^9, 
    3.834179811662073*^9, {3.83450106170175*^9, 3.834501078858068*^9}, 
    3.834502885610161*^9, 3.834568964784423*^9, 3.834569045834074*^9, {
-   3.834608221545703*^9, 3.834608287914912*^9}, 3.834613259845879*^9},
- CellLabel->
-  "Out[317]=",ExpressionUUID->"666c0c41-6bfc-4847-a5d2-14880c7266f6"]
+   3.834608221545703*^9, 3.834608287914912*^9}, 3.834613259816371*^9, 
+   3.834619710098199*^9, 3.8346197459725227`*^9, 3.834619781751107*^9},
+ CellLabel->"Out[63]=",ExpressionUUID->"9e378847-40a9-421b-bf5a-f6c77804a057"]
 }, Open  ]]
 },
 WindowSize->{1425., 776.25},
@@ -2241,46 +2164,43 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 318, 8, 58, "Text",ExpressionUUID->"73b90f40-aa75-45cc-9624-86406ff3f05e"],
-Cell[879, 30, 1102, 29, 29, "Input",ExpressionUUID->"42bda541-275e-4fa8-ad0f-dff973087409"],
-Cell[1984, 61, 28640, 879, 1293, "Input",ExpressionUUID->"c77ea1b4-464a-475d-935a-6ddd3139e407"],
+Cell[558, 20, 318, 8, 81, "Text",ExpressionUUID->"73b90f40-aa75-45cc-9624-86406ff3f05e"],
+Cell[879, 30, 1097, 28, 51, "Input",ExpressionUUID->"42bda541-275e-4fa8-ad0f-dff973087409"],
+Cell[1979, 60, 28635, 878, 2208, "Input",ExpressionUUID->"c77ea1b4-464a-475d-935a-6ddd3139e407"],
+Cell[30617, 940, 483, 10, 29, "Input",ExpressionUUID->"2acb2df6-0250-4f93-a487-d393ec6948a7"],
 Cell[CellGroupData[{
-Cell[30649, 944, 370, 9, 29, "Input",ExpressionUUID->"2acb2df6-0250-4f93-a487-d393ec6948a7"],
-Cell[31022, 955, 7643, 167, 261, "Output",ExpressionUUID->"00f58963-1bec-4f17-b581-aff807028e0f"]
+Cell[31125, 954, 2034, 69, 79, "Input",ExpressionUUID->"1616f30b-f817-4bed-8186-0f3e4b738bac"],
+Cell[33162, 1025, 2097, 70, 81, "Output",ExpressionUUID->"d4886bba-f5a9-4546-a097-33ce9d228c74"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[38702, 1127, 1191, 37, 29, "Input",ExpressionUUID->"1616f30b-f817-4bed-8186-0f3e4b738bac"],
-Cell[39896, 1166, 1238, 38, 33, "Output",ExpressionUUID->"71b7f1a7-5e88-4605-9406-a449116256ae"]
+Cell[35296, 1100, 1064, 16, 29, "Input",ExpressionUUID->"ced1cd28-39c9-46f3-906f-472b911c83b5"],
+Cell[36363, 1118, 1330, 19, 33, "Output",ExpressionUUID->"86850e86-0d9a-4d04-9f00-ec892f30e1b0"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[41171, 1209, 1068, 17, 29, "Input",ExpressionUUID->"ced1cd28-39c9-46f3-906f-472b911c83b5"],
-Cell[42242, 1228, 1262, 19, 33, "Output",ExpressionUUID->"7d1068cd-4185-4697-a370-98c58525919d"]
+Cell[37730, 1142, 236, 4, 29, "Input",ExpressionUUID->"c3856cfc-8a90-4b2e-a7f8-03f066ea4f67"],
+Cell[37969, 1148, 3734, 99, 145, "Output",ExpressionUUID->"aaac5f71-64ec-4550-aa90-1e258e041bd8"]
+}, Open  ]],
+Cell[41718, 1250, 249, 3, 29, "Input",ExpressionUUID->"c0fe9f2e-e239-4938-84cd-0e217d1ee57c"],
+Cell[CellGroupData[{
+Cell[41992, 1257, 636, 9, 29, "Input",ExpressionUUID->"0fcfbb19-b2bd-4a52-925c-ac50bcdaec4f"],
+Cell[42631, 1268, 5091, 70, 33, "Output",ExpressionUUID->"a881aebc-065c-4ee5-b482-321ac8b46d3a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[43541, 1252, 240, 5, 29, "Input",ExpressionUUID->"c3856cfc-8a90-4b2e-a7f8-03f066ea4f67"],
-Cell[43784, 1259, 2933, 67, 113, "Output",ExpressionUUID->"45374975-4620-44a5-bf25-34b9631e9eef"]
-}, Open  ]],
-Cell[46732, 1329, 253, 4, 29, "Input",ExpressionUUID->"c0fe9f2e-e239-4938-84cd-0e217d1ee57c"],
-Cell[CellGroupData[{
-Cell[47010, 1337, 640, 10, 29, "Input",ExpressionUUID->"0fcfbb19-b2bd-4a52-925c-ac50bcdaec4f"],
-Cell[47653, 1349, 5021, 70, 33, "Output",ExpressionUUID->"c7ca20bd-4c9c-483c-b50b-5698dafd9f80"]
+Cell[47759, 1343, 419, 7, 29, "Input",ExpressionUUID->"66dee78e-384d-4588-9d25-04b3c7b1aea7"],
+Cell[48181, 1352, 7176, 100, 33, "Output",ExpressionUUID->"8ff17e09-3f3f-467f-8160-bff8ef3042de"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[52711, 1424, 423, 8, 29, "Input",ExpressionUUID->"66dee78e-384d-4588-9d25-04b3c7b1aea7"],
-Cell[53137, 1434, 7084, 100, 33, "Output",ExpressionUUID->"4d944208-efd8-4bf9-8571-ed7c9065db41"]
+Cell[55394, 1457, 371, 7, 29, "Input",ExpressionUUID->"6c7429b3-1587-4d20-991f-d99f45021537"],
+Cell[55768, 1466, 6880, 97, 33, "Output",ExpressionUUID->"8641f3f1-8ea5-48a4-ac9a-aef301c58a8a"]
 }, Open  ]],
+Cell[62663, 1566, 1912, 33, 29, "Input",ExpressionUUID->"dd7b3324-1ab6-43b0-9e24-406f40fb34ba"],
+Cell[64578, 1601, 1944, 47, 133, "Input",ExpressionUUID->"9e97f31a-ffaa-4f35-bb49-127a66bb73f7"],
+Cell[66525, 1650, 2599, 73, 216, "Input",ExpressionUUID->"0209d30a-517c-4664-b87b-84799191f438"],
 Cell[CellGroupData[{
-Cell[60258, 1539, 375, 8, 29, "Input",ExpressionUUID->"6c7429b3-1587-4d20-991f-d99f45021537"],
-Cell[60636, 1549, 6802, 97, 33, "Output",ExpressionUUID->"b86716b8-cefa-481e-bf7a-e62f17d96863"]
-}, Open  ]],
-Cell[67453, 1649, 1916, 34, 29, "Input",ExpressionUUID->"dd7b3324-1ab6-43b0-9e24-406f40fb34ba"],
-Cell[69372, 1685, 1948, 48, 113, "Input",ExpressionUUID->"9e97f31a-ffaa-4f35-bb49-127a66bb73f7"],
-Cell[71323, 1735, 2603, 74, 195, "Input",ExpressionUUID->"0209d30a-517c-4664-b87b-84799191f438"],
-Cell[CellGroupData[{
-Cell[73951, 1813, 8586, 209, 408, "Input",ExpressionUUID->"3a5095fb-bef7-4905-a187-ccc481ddd9ee"],
-Cell[82540, 2024, 4709, 78, 113, "Output",ExpressionUUID->"e0ad8c18-1b83-4146-ae6d-44a1abd94479"],
-Cell[87252, 2104, 3956, 58, 56, "Output",ExpressionUUID->"bd55e7f1-e7ed-4687-b2e0-1b4acec683a0"],
-Cell[91211, 2164, 4103, 59, 460, "Output",ExpressionUUID->"666c0c41-6bfc-4847-a5d2-14880c7266f6"]
+Cell[69149, 1727, 8582, 208, 498, "Input",ExpressionUUID->"3a5095fb-bef7-4905-a187-ccc481ddd9ee"],
+Cell[77734, 1937, 5082, 84, 117, "Output",ExpressionUUID->"ab3c1b2c-b9bf-410b-bdc3-8c3ef889c390"],
+Cell[82819, 2023, 4052, 58, 56, "Output",ExpressionUUID->"f14ecbea-5a12-446d-8cef-862d9d63cc15"],
+Cell[86874, 2083, 4366, 63, 460, "Output",ExpressionUUID->"9e378847-40a9-421b-bf5a-f6c77804a057"]
 }, Open  ]]
 }
 ]
diff --git a/fractal_dimension/circle_counting_new/octahedron.txt b/fractal_dimension/circle_counting_new/octahedron.txt
index c7c83ad..c89ba16 100644
--- a/fractal_dimension/circle_counting_new/octahedron.txt
+++ b/fractal_dimension/circle_counting_new/octahedron.txt
@@ -1,5 +1,25 @@
-{{{1., 0., 0., 0., 0.}, {0., 1., 0., 0., 0.}, {4., 3., 0., -1., 3.}, {4., 2., 0., -1., 4.}, {0., 0., 0., 0., 1.}}, {{1., 0., 0., 0., 0.}, {0., 1., 0., 0., 0.}, {0., 0., 1., 0., 0.}, {4., 3., 3., 0., -1.}, {4., 4., 2., 0., -1.}}, {{1., 0., 0., 0., 0.}, {4., -1., 4., 2., 0.}, {0., 0., 1., 0., 0.}, {0., 0., 0., 1., 0.}, {4., -1., 3., 3., 0.}}, {{1., 0., 0., 0., 0.}, {4., 0., -1., 3., 3.}, {4., 0., -1., 4., 2.}, {0., 0., 0., 1., 0.}, {0., 0., 0., 0., 1.}}, {{-1., 1., 0., 1., 0.}, {0., 1., 0., 0., 0.}, {0., 1., 0., 1., -1.}, {0., 0., 0., 1., 0.}, {0., 0., 0., 0., 1.}}}
+{{{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0.}, {4., 3., 0., -1., 3., 0.}, {4., 2., 0., -1., 4., 0.}, {0., 0., 0., 0., 1., 
+   0.}, {3., 3., 0., -1., 4., 0.}}, {{1., 0., 0., 0., 0., 0.}, {0., 
+   1., 0., 0., 0., 0.}, {0., 0., 1., 0., 0., 0.}, {4., 2., 4., -1., 
+   0., 0.}, {4., 3., 3., -1., 0., 0.}, {3., 3., 4., -1., 0., 
+   0.}}, {{1., 0., 0., 0., 0., 0.}, {3., 0., 4., 3., 0., -1.}, {0., 
+   0., 1., 0., 0., 0.}, {0., 0., 0., 1., 0., 0.}, {3., 0., 3., 4., 
+   0., -1.}, {2., 0., 4., 4., 0., -1.}}, {{1., 0., 0., 0., 0., 
+   0.}, {3., 0., 0., 3., 4., -1.}, {3., 0., 0., 4., 3., -1.}, {0., 0.,
+    0., 1., 0., 0.}, {0., 0., 0., 0., 1., 0.}, {2., 0., 0., 4., 
+   4., -1.}}, {{-1., 4., 4., 0., 0., 2.}, {0., 1., 0., 0., 0., 
+   0.}, {0., 0., 1., 0., 0., 0.}, {-1., 3., 4., 0., 0., 3.}, {-1., 4.,
+    3., 0., 0., 3.}, {0., 0., 0., 0., 0., 1.}}, {{0., 3., 0., -1., 4.,
+    3.}, {0., 1., 0., 0., 0., 0.}, {0., 3., 0., -1., 3., 4.}, {0., 2.,
+    0., -1., 4., 4.}, {0., 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 0., 
+   1.}}, {{0., -1., 4., 3., 0., 3.}, {0., -1., 4., 2., 0., 4.}, {0., 
+   0., 1., 0., 0., 0.}, {0., 0., 0., 1., 0., 0.}, {0., -1., 3., 3., 
+   0., 4.}, {0., 0., 0., 0., 0., 1.}}, {{0., 0., -1., 4., 3., 
+   3.}, {0., 0., -1., 3., 3., 4.}, {0., 0., -1., 4., 2., 4.}, {0., 0.,
+    0., 1., 0., 0.}, {0., 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 0., 
+   1.}}}
 
-{-0.513181, 1.23893, 1.23893, 1.23893, 1.23893}
+{-1, 2, 2, 4, 4, 7}
 
-{{0, 1, 4}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {1, 2, 3, 4}}
+{{0, 1, 4}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {1, 2, 5}, {1, 5, 4}, {2,
+   3, 5}, {3, 4, 5}}
diff --git a/fractal_dimension/circle_counting_new/pentagonal_pyramid.txt b/fractal_dimension/circle_counting_new/pentagonal_pyramid.txt
new file mode 100644
index 0000000..f19f2a5
--- /dev/null
+++ b/fractal_dimension/circle_counting_new/pentagonal_pyramid.txt
@@ -0,0 +1,25 @@
+{{{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0.}, {5.23607, 
+   4.23607, 0., -0.618034, 0., 2.61803}, {8.47214, 5.23607, 0., -1., 
+   0., 5.23607}, {5.23607, 2.61803, 0., -0.618034, 0., 4.23607}, {0., 
+   0., 0., 0., 0., 1.}}, {{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 
+   0., 0.}, {0., 0., 1., 0., 0., 0.}, {5.23607, 3.61803, 3.61803, 0., 
+   0., -1.}, {8.47214, 6.8541, 4.23607, 0., 0., -1.61803}, {5.23607, 
+   5.23607, 2., 0., 0., -1.}}, {{1., 0., 0., 0., 0., 0.}, {5.23607, 
+   0., 4.23607, 2.61803, 0., -0.618034}, {0., 0., 1., 0., 0., 
+   0.}, {0., 0., 0., 1., 0., 0.}, {5.23607, 0., 2.61803, 4.23607, 
+   0., -0.618034}, {8.47214, 0., 5.23607, 5.23607, 0., -1.}}, {{1., 
+   0., 0., 0., 0., 0.}, {8.47214, -1., 0., 5.23607, 5.23607, 
+   0.}, {5.23607, -0.618034, 0., 4.23607, 2.61803, 0.}, {0., 0., 0., 
+   1., 0., 0.}, {0., 0., 0., 0., 1., 0.}, {5.23607, -0.618034, 0., 
+   2.61803, 4.23607, 0.}}, {{1., 0., 0., 0., 0., 0.}, {5.23607, -1., 
+   0., 0., 2., 5.23607}, {8.47214, -1.61803, 0., 0., 4.23607, 
+   6.8541}, {5.23607, -1., 0., 0., 3.61803, 3.61803}, {0., 0., 0., 0.,
+    1., 0.}, {0., 0., 0., 0., 0., 1.}}, {{-1., 0.763932, 0., 0., 
+   0.763932, -0.472136}, {0., 1., 0., 0., 0., 0.}, {0., 1.61803, 0., 
+   0., 1., -1.61803}, {0., 1., 0., 0., 1.61803, -1.61803}, {0., 0., 
+   0., 0., 1., 0.}, {0., 0., 0., 0., 0., 1.}}}
+
+{-0.551159, 1.48885, 1.48885, 1.48885, 1.48885, 1.48885}
+
+{{0, 1, 5}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {1, 2, 3, 4, 
+  5}}
diff --git a/fractal_dimension/circle_counting_new/square_pyramid.txt b/fractal_dimension/circle_counting_new/square_pyramid.txt
new file mode 100644
index 0000000..c7ff3d2
--- /dev/null
+++ b/fractal_dimension/circle_counting_new/square_pyramid.txt
@@ -0,0 +1,5 @@
+{{{1., 0., 0., 0., 0.}, {0., 1., 0., 0., 0.}, {4., 3., 0., -1., 3.}, {4., 2., 0., -1., 4.}, {0., 0., 0., 0., 1.}}, {{1., 0., 0., 0., 0.}, {0., 1., 0., 0., 0.}, {0., 0., 1., 0., 0.}, {4., 3., 3., 0., -1.}, {4., 4., 2., 0., -1.}}, {{1., 0., 0., 0., 0.}, {4., -1., 4., 2., 0.}, {0., 0., 1., 0., 0.}, {0., 0., 0., 1., 0.}, {4., -1., 3., 3., 0.}}, {{1., 0., 0., 0., 0.}, {4., 0., -1., 3., 3.}, {4., 0., -1., 4., 2.}, {0., 0., 0., 1., 0.}, {0., 0., 0., 0., 1.}}, {{-1., 1., 0., 1., 0.}, {0., 1., 0., 0., 0.}, {0., 1., 0., 1., -1.}, {0., 0., 0., 1., 0.}, {0., 0., 0., 0., 1.}}}
+
+{-1, 2, 2, 4, 4}
+
+{{0, 1, 4}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {1, 2, 3, 4}}
diff --git a/fractal_dimension/circle_counting_new/src/lib.rs b/fractal_dimension/circle_counting_new/src/lib.rs
index 321e3f7..99e4176 100644
--- a/fractal_dimension/circle_counting_new/src/lib.rs
+++ b/fractal_dimension/circle_counting_new/src/lib.rs
@@ -9,6 +9,7 @@ pub fn fractal_dimension(
     upper_bound: f64,
     n: usize,
     debug: bool,
+    generations: usize
 ) -> Result<f64, linregress::Error> {
     let mut totals = vec![root.len(); n];
     let mut current = vec![(root, std::usize::MAX)];
@@ -54,7 +55,11 @@ pub fn fractal_dimension(
         }
         std::mem::swap(&mut current, &mut next);
 
+        
         i += 1;
+        if generations != 0 && i > generations {
+            break;
+        }
         if debug {
             println!("Generation {}:", i);
             println!("\tnumber of leaves:\t{}", current.len());
diff --git a/fractal_dimension/circle_counting_new/src/main.rs b/fractal_dimension/circle_counting_new/src/main.rs
index b599f9c..7bfb46f 100644
--- a/fractal_dimension/circle_counting_new/src/main.rs
+++ b/fractal_dimension/circle_counting_new/src/main.rs
@@ -32,12 +32,17 @@ struct Opt {
     /// Whether or not to time excecution (automatically enabled by --debug)
     #[structopt(short, long)]
     time: bool,
+
+    /// Cap on the number of generations (0 means no cap)
+    #[structopt(short, long, default_value = "0")]
+    generations: usize,
 }
 
 fn main() {
     let opt = Opt::from_args();
     let debug = opt.debug;
     let time = debug || opt.time;
+    let generations = opt.generations;
 
     let beginning = std::time::Instant::now();
 
@@ -92,7 +97,7 @@ fn main() {
         println!("{:?}\n", faces);
     }
 
-    let delta = fractal_dimension(generators, root, faces, opt.max, opt.n, debug).unwrap();
+    let delta = fractal_dimension(generators, root, faces, opt.max, opt.n, debug, generations).unwrap();
     let after_computing = std::time::Instant::now();
     if time {
         let duration1 = after_computing.duration_since(after_parsing);
diff --git a/fractal_dimension/fractal_dimension.nb b/fractal_dimension/fractal_dimension.nb
index 9fad8bf..b124f7d 100644
--- a/fractal_dimension/fractal_dimension.nb
+++ b/fractal_dimension/fractal_dimension.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    350173,       9762]
-NotebookOptionsPosition[    339655,       9594]
-NotebookOutlinePosition[    340150,       9612]
-CellTagsIndexPosition[    340107,       9609]
+NotebookDataLength[    285085,       8794]
+NotebookOptionsPosition[    272222,       8587]
+NotebookOutlinePosition[    272717,       8605]
+CellTagsIndexPosition[    272674,       8602]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -27,7 +27,7 @@ Cell[BoxData[
     RowBox[{"Transpose", "[", "A", "]"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.831194837404834*^9, 3.8311948924696903`*^9}, {
   3.831194930347896*^9, 3.831194932848599*^9}},
- CellLabel->"In[1]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
+ CellLabel->"In[69]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
 
 Cell[BoxData[
  RowBox[{
@@ -56,7 +56,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831107414093502*^9, 3.83110748040809*^9}, {
   3.831107557920609*^9, 3.8311075805621977`*^9}, {3.8311076270925627`*^9, 
   3.831107722019619*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
+ CellLabel->"In[70]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
 
 Cell[BoxData[
  RowBox[{
@@ -69,7 +69,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831107486071478*^9, 3.831107546093779*^9}, {
   3.831109392242589*^9, 3.831109394639595*^9}, {3.831110190169511*^9, 
   3.831110193792735*^9}},
- CellLabel->"In[3]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
+ CellLabel->"In[71]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
 
 Cell[BoxData[
  RowBox[{
@@ -82,7 +82,7 @@ Cell[BoxData[
       RowBox[{"MatrixRank", "[", "G", "]"}]}], "]"}], "]"}], "//", 
    "Transpose"}]}]], "Input",
  CellChangeTimes->{{3.831109396818718*^9, 3.831109426888632*^9}},
- CellLabel->"In[4]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
+ CellLabel->"In[72]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
 
 Cell[BoxData[
  RowBox[{
@@ -117,7 +117,7 @@ Cell[BoxData[
   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[5]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
+ CellLabel->"In[73]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
 
 Cell[BoxData[
  RowBox[{
@@ -127,7 +127,7 @@ Cell[BoxData[
   ";"}]], "Input",
  CellChangeTimes->{{3.831110103314905*^9, 3.831110162272215*^9}, 
    3.831206070230084*^9},
- CellLabel->"In[6]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
+ CellLabel->"In[74]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
 
 Cell[BoxData[
  RowBox[{
@@ -162,7 +162,7 @@ Cell[BoxData[
         "]"}]}], ")"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.831194278291965*^9, 3.831194298458626*^9}, 
    3.831195204231324*^9},
- CellLabel->"In[7]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
+ CellLabel->"In[75]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
 
 Cell[BoxData[
  RowBox[{
@@ -184,7 +184,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831195055004586*^9, 3.83119507699967*^9}, {
   3.831195107195753*^9, 3.831195121990181*^9}, {3.831195208095559*^9, 
   3.831195214781535*^9}},
- CellLabel->"In[8]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
+ CellLabel->"In[76]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
 
 Cell[BoxData[
  RowBox[{
@@ -205,7 +205,7 @@ Cell[BoxData[
       RowBox[{"v", ".", "Q", ".", "v"}], "\[Equal]", "0"}], "]"}]}], 
    "]"}]}]], "Input",
  CellChangeTimes->{{3.831195241841057*^9, 3.831195289590564*^9}},
- CellLabel->"In[9]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
+ CellLabel->"In[77]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
 
 Cell[BoxData[
  RowBox[{
@@ -226,7 +226,7 @@ Cell[BoxData[
          RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}], 
    "]"}]}]], "Input",
  CellChangeTimes->{{3.831195337159152*^9, 3.831195396279203*^9}},
- CellLabel->"In[10]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
+ CellLabel->"In[78]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
 
 Cell[BoxData[
  RowBox[{
@@ -242,7 +242,7 @@ Cell[BoxData[
        RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}]], "Input",\
 
  CellChangeTimes->{{3.8312049925958433`*^9, 3.8312050200596113`*^9}},
- CellLabel->"In[11]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
+ CellLabel->"In[79]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
 
 Cell[BoxData[
  RowBox[{
@@ -263,7 +263,7 @@ Cell[BoxData[
    "]"}]}]], "Input",
  CellChangeTimes->{{3.8315843493182087`*^9, 3.831584372878718*^9}, {
   3.831584545556731*^9, 3.831584563248426*^9}},
- CellLabel->"In[12]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
+ CellLabel->"In[80]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
 
 Cell[BoxData[
  RowBox[{
@@ -293,7 +293,7 @@ Cell[BoxData[
          RowBox[{"[", "pos", "]"}], "]"}]}], "}"}]}]}], "]"}]}], 
   ";"}]], "Input",
  CellChangeTimes->{3.831210886725911*^9},
- CellLabel->"In[13]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
+ CellLabel->"In[81]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
 
 Cell[BoxData[{
  RowBox[{
@@ -311,7 +311,7 @@ Cell[BoxData[{
        "\[IndentingNewLine]", 
        RowBox[{"FindFace", "[", 
         RowBox[{"g", ",", "emb"}], "]"}]}]}], "]"}]}], ";"}], 
-  "\n"}], "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}], "\n", 
  RowBox[{
   RowBox[{"FindFace", "[", 
    RowBox[{
@@ -401,7 +401,7 @@ Cell[BoxData[{
        RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}]}], "Input",
  CellChangeTimes->{{3.8312108953940573`*^9, 3.831210895411563*^9}, 
    3.8312119634327393`*^9, 3.831542420732052*^9},
- CellLabel->"In[14]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
+ CellLabel->"In[82]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
 
 Cell[BoxData[
  RowBox[{
@@ -633,7 +633,7 @@ Cell[BoxData[
    3.831725440268997*^9}, {3.8317255156810293`*^9, 3.8317256205301943`*^9}, {
    3.831725829008904*^9, 3.831725851322979*^9}, {3.831726730605854*^9, 
    3.8317267923612432`*^9}, 3.833968804473505*^9},
- CellLabel->"In[16]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
+ CellLabel->"In[84]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
 
 Cell[BoxData[
  RowBox[{
@@ -811,7 +811,7 @@ Cell[BoxData[
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "faces", "]"}]}], "}"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.833981987629899*^9, 3.83398199939977*^9}},
- CellLabel->"In[17]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
+ CellLabel->"In[85]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
 
 Cell[BoxData[
  RowBox[{
@@ -837,7 +837,7 @@ Cell[BoxData[
      RowBox[{"Length", "[", "G", "]"}], "]"}], ",", "G"}], "]"}]}]], "Input",
  CellChangeTimes->{{3.831554845925479*^9, 3.8315548977219877`*^9}, 
    3.833982029038528*^9},
- CellLabel->"In[18]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
+ CellLabel->"In[86]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
 
 Cell[BoxData[
  RowBox[{
@@ -941,7 +941,7 @@ Cell[BoxData[
    3.834270430502697*^9}, {3.834271267146653*^9, 3.834271275112032*^9}, {
    3.834351949243196*^9, 3.834351950526677*^9}, {3.834352089916841*^9, 
    3.834352127810135*^9}},
- CellLabel->"In[19]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
+ CellLabel->"In[87]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
 
 Cell[CellGroupData[{
 
@@ -950,7 +950,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.833893222127377*^9, 3.833893227672316*^9}, {
   3.83397931096562*^9, 3.833979311902438*^9}, {3.833982525256192*^9, 
   3.833982529177711*^9}, {3.833982918567665*^9, 3.8339829240001698`*^9}},
- CellLabel->"In[20]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
+ CellLabel->"In[88]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
 
 Cell[BoxData["16384"], "Output",
  CellChangeTimes->{
@@ -983,8 +983,9 @@ Cell[BoxData["16384"], "Output",
    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},
- CellLabel->"Out[20]=",ExpressionUUID->"208bb6f3-5571-4419-a56b-3d6d78e931b5"]
+   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[
@@ -1054,7 +1055,7 @@ Cell[BoxData[
   3.8342709184846773`*^9}, {3.834271399281299*^9, 3.834271400142085*^9}, {
   3.8345760352900133`*^9, 3.834576035855191*^9}, {3.834594490350781*^9, 
   3.834594498152722*^9}},
- CellLabel->"In[86]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
+ CellLabel->"In[89]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
 
 Cell[BoxData[
  RowBox[{
@@ -1090,7 +1091,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.833978075492923*^9, 3.833978098104927*^9}, {
   3.833978140873678*^9, 3.833978187704298*^9}, {3.833979750071292*^9, 
   3.833979764905096*^9}, {3.833980891992284*^9, 3.833980904095957*^9}},
- CellLabel->"In[22]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
+ CellLabel->"In[90]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
 
 Cell[CellGroupData[{
 
@@ -1100,7 +1101,7 @@ Cell[BoxData[
    RowBox[{"pyramidG", "[", "5", "]"}], "//", "Simplify"}], "//", 
   "MatrixForm"}]], "Input",
  CellChangeTimes->{{3.834589971082777*^9, 3.834589977737949*^9}},
- CellLabel->"In[81]:=",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"],
+ CellLabel->"In[91]:=",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"],
 
 Cell[BoxData[
  TagBox[
@@ -1172,10 +1173,12 @@ Cell[BoxData[
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]]], "Output",
- CellChangeTimes->{3.834589978025352*^9},
+ CellChangeTimes->{
+  3.834589978025352*^9, 3.8346191110031843`*^9, {3.834619146536714*^9, 
+   3.834619200920805*^9}, 3.834620064478142*^9},
  CellLabel->
-  "Out[81]//MatrixForm=",ExpressionUUID->"04e15236-2789-4451-a36b-\
-e8e337d93be5"]
+  "Out[91]//MatrixForm=",ExpressionUUID->"31a9b1db-7c74-441a-aff6-\
+83692603abe7"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -1212,7 +1215,7 @@ Cell[BoxData[
   3.833979410979437*^9}, {3.8339798534902363`*^9, 3.833979853676499*^9}, {
   3.8339800331837673`*^9, 3.833980033963599*^9}, {3.833981434488759*^9, 
   3.8339814414612226`*^9}, {3.833981948527481*^9, 3.8339819534472733`*^9}},
- CellLabel->"In[23]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
+ CellLabel->"In[92]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
 
 Cell[CellGroupData[{
 
@@ -2545,8 +2548,7 @@ Cell[BoxData[
    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[108]:=",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"],
+ CellLabel->"In[93]:=",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -3874,74 +3876,38 @@ Cell[BoxData[
  CellChangeTimes->{
   3.834577475644277*^9, 3.834587976288975*^9, {3.834589015445696*^9, 
    3.8345890313170013`*^9}, 3.834589551887248*^9, 3.8345966690039873`*^9, 
-   3.83459710893034*^9},
- CellLabel->
-  "Out[108]=",ExpressionUUID->"baec0d9f-c58b-49f1-ad4c-951daa0af331"]
+   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[CellGroupData[{
-
 Cell[BoxData[
- RowBox[{"fractalDimensionFromG", "[", 
-  RowBox[{"G", ",", "1000", ",", "20", ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "4", ",", "4", ",", "7"}], 
-    "}"}]}], "]"}]], "Input",
- CellChangeTimes->{{3.8345945020265207`*^9, 3.8345945253251333`*^9}},
- CellLabel->"In[88]:=",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"],
-
-Cell[BoxData["0.999890808238594`"], "Print",
- CellChangeTimes->{3.834594528900813*^9},
- CellLabel->
-  "During evaluation of \
-In[88]:=",ExpressionUUID->"6e1592f8-e5a2-4293-bcdd-c93f7ba1e232"],
-
-Cell[BoxData["1.3267588934965395`"], "Output",
- CellChangeTimes->{{3.834594517199829*^9, 3.834594528904014*^9}},
- CellLabel->"Out[88]=",ExpressionUUID->"434a5a99-de6b-4f65-8134-4260eebf9b68"]
-}, Open  ]],
+ 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[110]:=",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"],
+ CellLabel->"In[95]:=",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"],
 
 Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"0", ",", "13", ",", "8", ",", "9", ",", "14"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "14", ",", "3", ",", "7", ",", "15"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "15", ",", "6", ",", "2", ",", "13"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "4", ",", "10", ",", "11", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "5", ",", "19", ",", "17", ",", "12"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "12", ",", "16", ",", "18", ",", "4"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "6", ",", "10", ",", "4", ",", "18"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"2", ",", "18", ",", "16", ",", "8", ",", "13"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"3", ",", "14", ",", "9", ",", "17", ",", "19"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"3", ",", "19", ",", "5", ",", "11", ",", "7"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"6", ",", "15", ",", "7", ",", "11", ",", "10"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"8", ",", "16", ",", "12", ",", "17", ",", "9"}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{3.834588043391036*^9, 3.834589015470923*^9, 
-  3.834589556494358*^9, 3.8345966939861794`*^9, 3.834597118683176*^9},
- CellLabel->
-  "Out[110]=",ExpressionUUID->"c350efc6-b76d-4198-9896-c285ab500b24"]
+ 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[{
@@ -3964,8 +3930,7 @@ Cell[BoxData[
       RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}], "]"}], 
    "]"}]}]], "Input",
  CellChangeTimes->{{3.834583137581257*^9, 3.834583138213504*^9}},
- CellLabel->
-  "In[109]:=",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"],
+ CellLabel->"In[96]:=",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -3998,1884 +3963,19 @@ Cell[BoxData[
  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},
- CellLabel->
-  "Out[109]=",ExpressionUUID->"397017da-212d-4511-b251-a48ff7956925"]
+   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[CellGroupData[{
-
 Cell[BoxData[
- RowBox[{"sigmas", "=", 
-  RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}]], "Input",
+ RowBox[{"(*", 
+  RowBox[{"sigmas", "=", 
+   RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}], "*)"}]], "Input",
  CellChangeTimes->{{3.834577451985367*^9, 3.8345774708567953`*^9}, 
-   3.834577518160853*^9, {3.8345831405903873`*^9, 3.834583141558793*^9}},
- CellLabel->
-  "In[111]:=",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "1.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", 
-       RowBox[{"-", "8.47213595499958`"}], ",", "11.090169943749473`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "10.47213595499958`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", 
-       RowBox[{"-", "3.236067977499789`"}], ",", "3.618033988749894`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", 
-       RowBox[{"-", "5.854101966249684`"}], ",", "6.236067977499789`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", 
-       RowBox[{"-", "8.47213595499958`"}], ",", "10.47213595499958`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "11.090169943749473`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", 
-       RowBox[{"-", "10.090169943749473`"}], ",", "12.090169943749473`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "11.090169943749473`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", 
-       RowBox[{"-", "6.854101966249685`"}], ",", "6.854101966249685`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "8.47213595499958`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", 
-       RowBox[{"-", "8.47213595499958`"}], ",", "8.47213595499958`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "8.47213595499958`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", 
-       RowBox[{"-", "10.090169943749473`"}], ",", "11.090169943749473`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "12.090169943749473`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", 
-       RowBox[{"-", "11.090169943749473`"}], ",", "12.090169943749473`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "12.090169943749473`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", 
-       RowBox[{"-", "4.23606797749979`"}], ",", "6.854101966249685`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "5.854101966249685`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "1.618033988749895`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", 
-       RowBox[{"-", "5.854101966249684`"}], ",", "5.236067977499789`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "6.236067977499789`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", 
-       RowBox[{"-", "1.6180339887498945`"}], ",", "3.618033988749894`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "3.618033988749894`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", 
-       RowBox[{"-", "3.236067977499789`"}], ",", "5.236067977499789`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "3.618033988749894`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", 
-       RowBox[{"-", "4.23606797749979`"}], ",", "5.854101966249685`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249685`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", 
-       RowBox[{"-", "6.854101966249685`"}], ",", "8.47213595499958`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249685`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], 
-    "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "6.472135954999578`", ",", "0.`", ",", "0.`", ",", "4.618033988749894`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.9999999999999998`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "1.618033988749895`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.6180339887498947`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "6.854101966249683`", ",", "0.`", ",", "0.`", ",", 
-       "3.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.618033988749894`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "3.6180339887498945`", ",", "0.`", ",", "0.`", ",", 
-       "3.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.6180339887498947`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "3.236067977499789`", ",", "0.`", ",", "0.`", ",", 
-       "0.3819660112501051`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999998`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "5.236067977499789`", ",", "0.`", ",", "0.`", ",", 
-       "3.2360679774997894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "3.236067977499789`", ",", "0.`", ",", "0.`", ",", 
-       "2.9999999999999996`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "4.236067977499789`", ",", "0.`", ",", "0.`", ",", "1.618033988749895`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "2.236067977499789`", ",", "0.`", ",", "0.`", ",", 
-       "1.3819660112501047`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999998`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "3.854101966249684`", ",", "0.`", ",", "0.`", ",", 
-       "1.3819660112501049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.38196601125010504`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.6180339887498948`", ",", "0.`", ",", "0.`", ",", 
-       "0.9999999999999999`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.6180339887498949`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "7.472135954999578`", ",", "0.`", ",", "0.`", ",", "4.618033988749894`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "4.236067977499789`", ",", "0.`", ",", "0.`", ",", "4.23606797749979`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "7.472135954999578`", ",", "0.`", ",", "0.`", ",", 
-       "3.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999998`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "2.236067977499789`", ",", "0.`", ",", "0.`", ",", 
-       "2.9999999999999996`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.38196601125010504`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "1.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "8.47213595499958`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "4.854101966249685`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "8.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "4.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "7.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "1.9999999999999996`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "4.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "7.854101966249685`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "4.854101966249685`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "9.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "2.618033988749895`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "1.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "4.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "4.47213595499958`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "6.854101966249684`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "6.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "7.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "2.618033988749895`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "0.23606797749978936`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "2.9999999999999996`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "4.236067977499789`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "1.9999999999999996`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "5.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "9.47213595499958`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "6.47213595499958`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "9.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "4.23606797749979`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "4.47213595499958`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "6.854101966249684`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "4.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "5.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "9.47213595499958`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "7.47213595499958`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "10.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "4.23606797749979`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "1.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "2.9999999999999996`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.38196601125010515`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "8.47213595499958`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", 
-       RowBox[{"-", "6.47213595499958`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "10.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "11.090169943749473`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "4.854101966249684`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "7.854101966249683`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "5.854101966249683`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "4.236067977499789`", ",", "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "8.472135954999578`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "5.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "5.854101966249684`", ",", "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.2360679774997898`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "3.618033988749895`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "4.618033988749895`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "11.090169943749473`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.2360679774997894`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "6.236067977499789`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "12.090169943749473`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "4.854101966249684`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249683`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.618033988749895`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.2360679774997898`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "10.472135954999578`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.2360679774997894`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249683`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "12.090169943749473`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "5.854101966249684`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "7.854101966249683`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "6.854101966249683`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "5.854101966249684`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "6.854101966249683`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "3.2360679774997894`", ",", "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "8.472135954999578`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "4.236067977499789`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", ",", 
-       "0.3819660112501051`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "2.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "6.23606797749979`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.8541019662496847`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "3.618033988749895`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "11.090169943749473`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "11.70820393249937`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "14.70820393249937`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "12.090169943749473`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "11.70820393249937`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "13.70820393249937`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "3.8541019662496856`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "6.236067977499791`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "3.8541019662496856`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.618033988749896`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "11.090169943749473`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "10.090169943749475`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "13.090169943749476`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "5.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "5.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "8.47213595499958`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "8.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "9.47213595499958`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "10.090169943749475`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "5.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "6.4721359549995805`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "7.236067977499791`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "5.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "7.4721359549995805`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "2.2360679774997907`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.618033988749896`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "12.090169943749473`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "12.70820393249937`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "14.70820393249937`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "7.854101966249685`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "10.090169943749475`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "10.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "10.090169943749475`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "13.70820393249937`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "6.23606797749979`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "6.4721359549995805`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "6.236067977499791`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.618033988749895`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "8.472135954999578`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", 
-       RowBox[{"-", "7.854101966249685`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "8.47213595499958`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "6.236067977499788`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249683`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`",
-        ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.9999999999999998`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.6180339887498949`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.381966011250105`", 
-       ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "2.2360679774997894`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.3819660112501049`", 
-       ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "7.23606797749979`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "7.472135954999578`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498945`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "3.2360679774997894`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.2360679774997896`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.854101966249685`", 
-       ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.618033988749894`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.6180339887498949`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "7.854101966249683`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249683`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498945`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.3819660112501055`", 
-       ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "3.2360679774997894`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.3819660112501049`", 
-       ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.2360679774997902`", 
-       ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.6180339887498949`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "2.2360679774997894`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.23606797749978958`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.854101966249684`", 
-       ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.236067977499789`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.9999999999999996`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.2360679774997902`", 
-       ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.236067977499789`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.618033988749895`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "6.236067977499788`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "7.472135954999578`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.38196601125010554`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "7.23606797749979`", 
-       ",", 
-       RowBox[{"-", "2.6180339887498945`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "6.472135954999578`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.38196601125010554`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.6180339887498949`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.381966011250105`", 
-       ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "3.8541019662496843`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.23606797749978958`"}], ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "1.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.854101966249684`", 
-       ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.9999999999999996`"}], ",", "0.`"}], "}"}]}], "}"}], 
-   ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.23606797749979`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.236067977499789`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.3819660112501049`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "2.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "3.236067977499789`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.6180339887498949`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.618033988749894`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "2.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "6.472135954999578`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.6180339887498949`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.6180339887498945`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.6180339887498945`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "4.236067977499789`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.2360679774997894`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "1.618033988749895`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "3.618033988749894`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.2360679774997894`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499789`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.618033988749894`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "1.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "7.472135954999578`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.3819660112501047`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "2.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "2.236067977499789`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.6180339887498945`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "1.618033988749895`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "5.236067977499789`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.9999999999999996`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.236067977499789`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499789`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "1.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "6.854101966249683`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.9999999999999996`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-       "0.38196601125010515`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.236067977499789`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.3819660112501047`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-       "0.38196601125010515`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.854101966249684`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.618033988749894`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "2.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "7.472135954999578`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "1.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.618033988749894`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", 
-       "2.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "6.854101966249683`", ",", 
-       "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", 
-       ",", "2.6180339887498945`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "4.23606797749979`", ",", "0.`", ",", "0.`", 
-       ",", "6.854101966249685`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", 
-       ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "6.854101966249684`", ",", "0.`", ",", "0.`", 
-       ",", "7.854101966249683`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499789`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "6.854101966249684`", ",", "0.`", ",", "0.`", ",", 
-       "9.472135954999578`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "4.618033988749894`", ",", "0.`", ",", "0.`", ",", 
-       "4.23606797749979`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "3.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "7.854101966249683`", ",", "0.`", ",", "0.`", ",", 
-       "8.472135954999578`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.9999999999999999`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "1.9999999999999998`", ",", "0.`", ",", 
-       "0.`", ",", "2.6180339887498945`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "4.23606797749979`"}], ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "5.854101966249685`", ",", "0.`", ",", "0.`", ",", 
-       "6.854101966249685`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "4.236067977499789`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "7.854101966249683`", ",", "0.`", ",", "0.`", 
-       ",", "9.472135954999578`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "1.9999999999999998`", ",", "0.`", ",", "0.`", 
-       ",", "4.23606797749979`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "4.23606797749979`", ",", "0.`", ",", "0.`", ",", 
-       "4.23606797749979`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "5.854101966249685`", ",", "0.`", ",", "0.`", 
-       ",", "5.23606797749979`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "3.23606797749979`", ",", "0.`", ",", "0.`", ",", 
-       "5.23606797749979`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "1.618033988749895`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "6.236067977499789`", ",", "0.`", ",", "0.`", 
-       ",", "8.472135954999578`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`"}], 
-      "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "3.2360679774997894`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499788`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "2.618033988749895`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.9999999999999991`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.9999999999999996`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "5.854101966249684`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "6.236067977499788`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "3.2360679774997894`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999991`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.38196601125010515`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.6180339887498945`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.38196601125010515`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "5.854101966249684`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499788`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "2.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "4.236067977499789`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.6180339887498947`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "1.6180339887498945`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999993`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.9999999999999996`", ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "3.2360679774997894`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.6180339887498948`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`",
-        ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`"}], "}"}], 
-     ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "4.23606797749979`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.236067977499789`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.6180339887498947`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "4.854101966249684`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "6.236067977499788`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "2.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.6180339887498949`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",",
-        "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "4.23606797749979`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.236067977499789`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999998`", ",", "0.`", ",", "1.6180339887498945`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "1.9999999999999993`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999998`", ",", "0.`", ",", "5.854101966249684`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "5.236067977499788`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", 
-       "0.6180339887498949`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`",
-        ",", "0.`", ",", "1.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "0.`", ",", "3.2360679774997894`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.6180339887498947`", ",", "0.`", ",", "4.23606797749979`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.9999999999999999`", ",", "0.`", ",", "5.236067977499789`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "6.854101966249683`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "3.2360679774997894`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499789`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999998`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.9999999999999991`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.9999999999999998`", ",", "0.`", ",", "0.6180339887498949`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.6180339887498947`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "4.236067977499789`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.9999999999999999`", ",", "0.`", ",", "5.854101966249684`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "6.236067977499788`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "3.618033988749894`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.3819660112501051`", ",", "0.`", ",", "3.236067977499789`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "1.9999999999999993`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999998`", ",", "0.`", ",", "4.854101966249684`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "6.236067977499788`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.3819660112501051`", ",", "0.`", ",", "1.6180339887498945`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "3.618033988749894`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "0.`", ",", "5.236067977499789`", ",", 
-       "0.`", ",", 
-       RowBox[{"-", "1.6180339887498947`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "5.236067977499788`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "1.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "2.23606797749979`",
-        ",", "3.9999999999999996`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.2360679774997897`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "3.2360679774997894`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "3.23606797749979`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-       "2.8541019662496843`", ",", "2.381966011250105`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.7639320225002103`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-       "1.2360679774997896`", ",", "3.9999999999999996`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.7639320225002103`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-       "2.2360679774997894`", ",", "1.381966011250105`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "2.381966011250105`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", 
-       "1.2360679774997896`", ",", "2.381966011250105`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "2.381966011250105`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "4.854101966249684`", ",", "7.236067977499788`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "2.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "4.236067977499789`", ",", "7.854101966249683`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "2.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.6180339887498948`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "4.236067977499789`", ",", "6.236067977499789`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "3.618033988749895`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "3.6180339887498945`", ",", "4.854101966249684`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.6180339887498949`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "2.6180339887498945`", ",", "5.854101966249684`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.6180339887498949`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.6180339887498948`", ",", "0.9999999999999998`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 
-      "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "4.854101966249684`", ",", "6.236067977499789`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "3.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "2.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "3.8541019662496843`", ",", "7.236067977499788`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "3.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "3.6180339887498945`", ",", "3.2360679774997894`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "2.23606797749979`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999998`", ",", "4.854101966249684`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "2.23606797749979`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`"}], "}"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.236067977499789`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "3.2360679774997894`", ",", "0.`", ",", 
-       "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.9999999999999996`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", 
-       "2.6180339887498945`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.236067977499789`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "1.618033988749895`", ",", "2.6180339887498945`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.236067977499789`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "4.23606797749979`", ",", "0.`", ",", "0.`"}],
-       "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "2.6180339887498945`", ",", "3.2360679774997894`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.6180339887498945`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "1.618033988749895`", ",", "4.23606797749979`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "6.236067977499788`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", 
-       "4.854101966249684`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "6.236067977499788`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "5.854101966249684`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.6180339887498949`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499788`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.618033988749895`", ",", 
-       "5.236067977499789`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "5.236067977499788`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", 
-       "5.854101966249684`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",",
-        "0.6180339887498949`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.38196601125010515`", ",", 
-       "1.6180339887498945`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "3.618033988749894`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       RowBox[{"-", "0.6180339887498948`"}], ",", "2.6180339887498945`", ",", 
-       "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "6.854101966249683`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", 
-       "5.236067977499789`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-      "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
-        "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", 
-       ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999993`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", 
-       "1.6180339887498945`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"-", "0.6180339887498948`"}], ",", "0.`", ",", "0.`", ",", 
-       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
-       "1.9999999999999993`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", 
-       ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.38196601125010515`", ",", 
-       "3.2360679774997894`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}]}], 
-  "}"}]], "Output",
- CellChangeTimes->{{3.834577460237266*^9, 3.834577477549699*^9}, 
-   3.8345775184818087`*^9, 3.8345831419694033`*^9, 3.834587993652399*^9, {
-   3.8345890157569647`*^9, 3.834589034942012*^9}, {3.8345895636675*^9, 
-   3.8345895772888193`*^9}, 3.8345967354136267`*^9, 3.834597218064508*^9},
- CellLabel->
-  "Out[111]=",ExpressionUUID->"4dbd9253-74a6-4357-b2ea-e75805b62d3f"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{
-   RowBox[{"(", 
-    RowBox[{
-     RowBox[{"search", "[", 
-      RowBox[{"sigmas", ",", 
-       RowBox[{"{", 
-        RowBox[{
-         RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "4", ",", "4", ",", 
-         "7"}], "}"}], ",", 
-       RowBox[{"{", "}"}], ",", "#", ",", "faces"}], "]"}], "+", "6"}], ")"}],
-    "&"}], "/@", 
-  RowBox[{"Range", "[", "10", "]"}]}]], "Input",
- CellChangeTimes->{{3.834583150043461*^9, 3.834583232630286*^9}, {
-   3.834583265095345*^9, 3.8345833022552357`*^9}, {3.8345838134486094`*^9, 
-   3.8345838135255938`*^9}, {3.834584141048933*^9, 3.834584141796047*^9}, {
-   3.8345844097038393`*^9, 3.834584409832789*^9}, {3.834587293769405*^9, 
-   3.834587294305735*^9}, {3.834587379160037*^9, 3.8345873792725563`*^9}, {
-   3.8345874362670803`*^9, 3.8345874564778223`*^9}, {3.834589010394644*^9, 
-   3.834589053926815*^9}, {3.8345897644780483`*^9, 3.834589764543467*^9}, {
-   3.834590095301745*^9, 3.834590124536216*^9}, {3.834594703477231*^9, 
-   3.834594704937993*^9}, {3.8345952026195*^9, 3.834595203291347*^9}, 
-   3.8345952614375153`*^9, {3.8345958699677258`*^9, 3.8345959694786386`*^9}},
- CellLabel->
-  "In[102]:=",ExpressionUUID->"ff7a6f7d-b85f-4b08-948d-bc33a208b4e8"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-  "6", ",", "6", ",", "6", ",", "8", ",", "8", ",", "8", ",", "9", ",", "9", 
-   ",", "9", ",", "21"}], "}"}]], "Output",
- CellChangeTimes->{
-  3.834589054255107*^9, 3.8345897651119423`*^9, {3.834590096119974*^9, 
-   3.834590125310545*^9}, 3.834590360464699*^9, 3.834594773633574*^9, 
-   3.8345952042537527`*^9, 3.8345952618059893`*^9, {3.834595870514305*^9, 
-   3.834595969813435*^9}},
- CellLabel->
-  "Out[102]=",ExpressionUUID->"7bf37d67-04a1-4451-977f-184b5deda825"]
-}, Open  ]],
-
-Cell[BoxData["2"], "Input",
- CellChangeTimes->{
-  3.83459610276672*^9},ExpressionUUID->"70ac3852-ef72-4f07-9725-056d8c89031b"],
+   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[{"(*", 
@@ -5903,7 +4003,7 @@ nCuFkXw+edthQg2tfv4mw5TxoimmvyyF1FrpFkAvHz6pibdYP81csdmeLE5e
 2wotFzaSMstzjb+YV1xlpMepL2MGt0Y9YxWDJHfh+BIuc+B+AhkVXTdhxDwz
 xJmCv+1PhBkzH5blkx0O5QWwpFZD/gdS9J8/
   "],
- CellLabel->"In[29]:=",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"],
+ CellLabel->"In[98]:=",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"],
 
 Cell[CellGroupData[{
 
@@ -7232,7 +5332,7 @@ Cell[BoxData[
          RowBox[{"-", "2"}], "-", 
          RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1"}], "}"}]}], 
    "}"}]}]], "Input",
- CellLabel->"In[30]:=",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"],
+ CellLabel->"In[99]:=",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -8558,8 +6658,9 @@ Cell[BoxData[
         RowBox[{"-", "2"}], "-", 
         SqrtBox["5"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]], "Output",
  CellChangeTimes->{3.834569733781122*^9, 3.8345750830053596`*^9, 
-  3.8345774480010633`*^9, 3.834589015844344*^9},
- CellLabel->"Out[30]=",ExpressionUUID->"57a026c0-3553-4b54-8ef1-dfc635475a5a"]
+  3.8345774480010633`*^9, 3.834589015844344*^9, 3.834619201132711*^9, 
+  3.8346200646459208`*^9},
+ CellLabel->"Out[99]=",ExpressionUUID->"c362ca4a-b04d-4383-96b3-61d66b80e032"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -8582,7 +6683,8 @@ Cell[BoxData[
    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[31]:=",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"],
+ CellLabel->
+  "In[100]:=",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"],
 
 Cell[BoxData[
  RowBox[{"(*", 
@@ -8599,7 +6701,8 @@ TJcKCB42BdIV1xvA9Emb+mOWQHpa7FcwPWPLnCueQFos+ymYzr/WvsEPZF7+
 2o0g+rXFW/YiIG32UpkDRAeoPTQG0bstvExAtNU+HpUKIM3ikwum7yj2194B
 0nVrJ9aDaBX/8zL3gfTbMG5ZEA0A/HzVxA==
   "],
- CellLabel->"In[32]:=",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"],
+ CellLabel->
+  "In[101]:=",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"],
 
 Cell[BoxData[
  RowBox[{
@@ -8613,7 +6716,8 @@ Cell[BoxData[
     }]}], ";"}]], "Input",
  CellChangeTimes->{{3.8342676567311163`*^9, 3.83426770251457*^9}, {
   3.83436362090779*^9, 3.834363621444234*^9}},
- CellLabel->"In[33]:=",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"],
+ CellLabel->
+  "In[102]:=",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"],
 
 Cell[BoxData[
  RowBox[{
@@ -8628,7 +6732,8 @@ Cell[BoxData[
      {"0", "0", "0", "1"}
     }]}], ";"}]], "Input",
  CellChangeTimes->{{3.8342676843163633`*^9, 3.8342677012142773`*^9}},
- CellLabel->"In[34]:=",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"],
+ CellLabel->
+  "In[103]:=",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"],
 
 Cell[BoxData[
  RowBox[{
@@ -8653,7 +6758,8 @@ Cell[BoxData[
  CellChangeTimes->{{3.834255719098699*^9, 3.834255752266445*^9}, {
    3.834255803667136*^9, 3.834255822215041*^9}, 3.834267713596407*^9, {
    3.834363641553152*^9, 3.834363648776113*^9}},
- CellLabel->"In[35]:=",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"],
+ CellLabel->
+  "In[104]:=",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"],
 
 Cell[CellGroupData[{
 
@@ -8662,7 +6768,8 @@ Cell[BoxData[
   RowBox[{"W", ".", "P", ".", 
    RowBox[{"Transpose", "[", "W", "]"}]}], "//", "MatrixForm"}]], "Input",
  CellChangeTimes->{{3.8343633434683943`*^9, 3.8343633944968452`*^9}},
- CellLabel->"In[36]:=",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"],
+ CellLabel->
+  "In[105]:=",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"],
 
 Cell[BoxData[
  TagBox[
@@ -8697,10 +6804,10 @@ Cell[BoxData[
  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.834589015904508*^9, 3.834619201182929*^9, 3.8346200646835327`*^9},
  CellLabel->
-  "Out[36]//MatrixForm=",ExpressionUUID->"cac5a00b-999e-46da-a490-\
-742406c40b81"]
+  "Out[105]//MatrixForm=",ExpressionUUID->"fa744ce7-df42-4c5e-ace8-\
+b2000738a824"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -8713,7 +6820,8 @@ Cell[BoxData[
     RowBox[{"{", 
      RowBox[{"i", ",", "4"}], "}"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.834267747292341*^9, 3.8342677548359013`*^9}},
- CellLabel->"In[37]:=",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"],
+ CellLabel->
+  "In[106]:=",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -8731,8 +6839,10 @@ Cell[BoxData[
    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},
- CellLabel->"Out[37]=",ExpressionUUID->"7d6b07cd-6f61-47b9-a291-783f25ec86b6"]
+   3.8345774481382933`*^9, 3.834589015933384*^9, 3.8346192012130213`*^9, 
+   3.8346200647015047`*^9},
+ CellLabel->
+  "Out[106]=",ExpressionUUID->"d499779c-5b7a-4f58-9ac7-5a43ab49042e"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -8745,7 +6855,8 @@ Cell[BoxData[
      RowBox[{"Inverse", "[", "G", "]"}], ".", "v"}], "]"}], "\[Equal]", 
    "0"}]}]], "Input",
  CellChangeTimes->{{3.834267725468601*^9, 3.8342677925075703`*^9}},
- CellLabel->"In[38]:=",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"],
+ CellLabel->
+  "In[107]:=",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"],
 
 Cell[BoxData[
  RowBox[{
@@ -8778,8 +6889,10 @@ Cell[BoxData[
    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},
- CellLabel->"Out[38]=",ExpressionUUID->"67cd614c-4268-488b-a193-4f6671507bf9"]
+   3.834577448173585*^9, 3.834589015963715*^9, 3.834619201243526*^9, 
+   3.834620064722768*^9},
+ CellLabel->
+  "Out[107]=",ExpressionUUID->"678ba049-5256-437d-96b6-fb8886ab326f"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -8798,7 +6911,8 @@ Cell[BoxData[
  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[39]:=",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"],
+ CellLabel->
+  "In[108]:=",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"],
 
 Cell[BoxData[
  RowBox[{
@@ -8817,8 +6931,10 @@ Cell[BoxData[
    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},
- CellLabel->"Out[39]=",ExpressionUUID->"3bbae71c-fb23-4709-acd8-386ff5507428"]
+   3.834577448258504*^9, 3.8345890159941797`*^9, 3.834619201273468*^9, 
+   3.834620064804543*^9},
+ CellLabel->
+  "Out[108]=",ExpressionUUID->"ea191bd8-62b5-449c-ad86-8a309f852993"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -8853,7 +6969,8 @@ Cell[BoxData[
  CellChangeTimes->{{3.834268212750614*^9, 3.834268282815816*^9}, {
   3.834363829310417*^9, 3.834363843669476*^9}, {3.8345750674014187`*^9, 
   3.834575069172274*^9}},
- CellLabel->"In[40]:=",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"],
+ CellLabel->
+  "In[109]:=",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"],
 
 Cell[BoxData[
  RowBox[{
@@ -8869,7 +6986,8 @@ Cell[BoxData[
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], ";"}]], "Input",
  CellChangeTimes->{{3.8342682912805243`*^9, 3.8342683139154463`*^9}},
- CellLabel->"In[41]:=",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"],
+ CellLabel->
+  "In[110]:=",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"],
 
 Cell[BoxData[
  RowBox[{
@@ -8886,7 +7004,8 @@ Cell[BoxData[
    3.834272002098583*^9}, {3.83436385669696*^9, 3.834363858881136*^9}, {
    3.8343646210101*^9, 3.834364623031375*^9}, {3.834482222055552*^9, 
    3.834482227036398*^9}},
- CellLabel->"In[42]:=",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"],
+ CellLabel->
+  "In[111]:=",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"],
 
 Cell[CellGroupData[{
 
@@ -8898,7 +7017,8 @@ Cell[BoxData[
  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[43]:=",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"],
+ CellLabel->
+  "In[112]:=",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"],
 
 Cell[BoxData[
  RowBox[{
@@ -8917,8 +7037,9 @@ Cell[BoxData[
    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},
- CellLabel->"Out[43]=",ExpressionUUID->"d21b34dc-b15a-4d52-aa97-64f2b690b80a"]
+   3.834589016036188*^9, 3.8346192013142357`*^9, 3.834620064835174*^9},
+ CellLabel->
+  "Out[112]=",ExpressionUUID->"bd06ccdb-7db7-4884-88fe-575ea5d8b20c"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -8940,7 +7061,8 @@ Cell[BoxData[
   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[44]:=",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"],
+ CellLabel->
+  "In[113]:=",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"],
 
 Cell[BoxData[
  RowBox[{
@@ -8954,8 +7076,9 @@ Cell[BoxData[
    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},
- CellLabel->"Out[44]=",ExpressionUUID->"82ed7f2c-3ee7-4e3c-a922-3b11168e5232"]
+   3.8345890160646973`*^9, 3.8346192013428164`*^9, 3.8346200648542023`*^9},
+ CellLabel->
+  "Out[113]=",ExpressionUUID->"c3b0541b-fd2c-451d-b4e5-598414d580c3"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -8973,7 +7096,8 @@ Cell[BoxData[
   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[45]:=",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"],
+ CellLabel->
+  "In[114]:=",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"],
 
 Cell[CellGroupData[{
 
@@ -9043,16 +7167,18 @@ Cell[BoxData[{
    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[46]:=",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"],
+ CellLabel->
+  "In[115]:=",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"],
 
 Cell[BoxData[
  RowBox[{"{", 
-  RowBox[{"0.035273`", ",", "794"}], "}"}]], "Output",
+  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},
- CellLabel->"Out[49]=",ExpressionUUID->"851fdadc-8b37-48f5-b586-7492a2cec6f4"]
+   3.834589016134952*^9, 3.8346192014126596`*^9, 3.834620064913557*^9},
+ CellLabel->
+  "Out[118]=",ExpressionUUID->"be5b9f37-dd7e-4ca9-b86f-715c76a65e1e"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9077,7 +7203,8 @@ Cell[BoxData[
      RowBox[{"-", "1"}], "1"}
    }]}]], "Input",
  CellChangeTimes->{{3.8345759946467247`*^9, 3.834576008309001*^9}},
- CellLabel->"In[50]:=",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"],
+ CellLabel->
+  "In[119]:=",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9103,8 +7230,9 @@ Cell[BoxData[
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
  CellChangeTimes->{3.834576009019684*^9, 3.834577448424959*^9, 
-  3.834589016163299*^9},
- CellLabel->"Out[50]=",ExpressionUUID->"8a8ff7e8-257e-4818-ac64-f640430a001d"]
+  3.834589016163299*^9, 3.834619201440893*^9, 3.834620064932081*^9},
+ CellLabel->
+  "Out[119]=",ExpressionUUID->"d55a8c7b-2938-4b5b-adb0-4e0b59073014"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9113,12 +7241,21 @@ Cell[BoxData[
  RowBox[{"fractalDimensionFromG", "[", 
   RowBox[{"G", ",", "1000", ",", "100", ",", "root"}], "]"}]], "Input",
  CellChangeTimes->{{3.834575932192585*^9, 3.834575982803146*^9}},
- CellLabel->"In[51]:=",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"],
+ 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},
- CellLabel->"Out[51]=",ExpressionUUID->"53661af6-3452-48f0-9710-be07368fd73c"]
+   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[{
@@ -9131,7 +7268,8 @@ Cell[BoxData[
   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[52]:=",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"],
+ CellLabel->
+  "In[121]:=",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9141,8 +7279,10 @@ Cell[BoxData[
    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},
- CellLabel->"Out[52]=",ExpressionUUID->"cdf5520d-02b3-4f18-a2c3-2601cc9d84c1"]
+   3.834577448707432*^9, 3.83458901641998*^9, 3.83461920190914*^9, 
+   3.83462006510275*^9},
+ CellLabel->
+  "Out[121]=",ExpressionUUID->"51c54558-df57-4bc9-8281-8e5ff7b90dd9"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9158,13 +7298,16 @@ Cell[BoxData[
    ".", "root"}], "//", "Total"}]], "Input",
  CellChangeTimes->{{3.8343649661668367`*^9, 3.8343650190653057`*^9}, {
   3.834365063719788*^9, 3.834365066037496*^9}},
- CellLabel->"In[53]:=",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"],
+ 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},
- CellLabel->"Out[53]=",ExpressionUUID->"5d2f3140-ff92-49a2-be88-721ed7e25161"]
+   3.834577448737156*^9, 3.8345890164491863`*^9, 3.834619201936276*^9, 
+   3.834620065121768*^9},
+ CellLabel->
+  "Out[122]=",ExpressionUUID->"982890cb-9b9b-49e7-b982-cc9764229ef4"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9172,13 +7315,15 @@ Cell[CellGroupData[{
 Cell[BoxData[
  RowBox[{"Total", "[", "root", "]"}]], "Input",
  CellChangeTimes->{{3.834364511566435*^9, 3.83436451570404*^9}},
- CellLabel->"In[54]:=",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"],
+ 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},
- CellLabel->"Out[54]=",ExpressionUUID->"13090f9e-b58e-4203-b483-8b96b4f0e5b2"]
+   3.834589016478706*^9, 3.83461920196589*^9, 3.834620065141079*^9},
+ CellLabel->
+  "Out[123]=",ExpressionUUID->"35cceac5-c6b2-4fa2-a20a-d2bba3fac866"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9196,7 +7341,8 @@ Cell[BoxData[
   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[55]:=",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"],
+ CellLabel->
+  "In[124]:=",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"],
 
 Cell[BoxData["78"], "Output",
  CellChangeTimes->{{3.83435263841041*^9, 3.834352641587645*^9}, 
@@ -9204,8 +7350,9 @@ Cell[BoxData["78"], "Output",
    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},
- CellLabel->"Out[55]=",ExpressionUUID->"cbe40bb5-882a-4c6c-921b-6b14501a552e"]
+   3.834589016508092*^9, 3.8346192019954576`*^9, 3.834620065159852*^9},
+ CellLabel->
+  "Out[124]=",ExpressionUUID->"5d5d94b9-1b6b-49fb-a0f1-2cc81a3dba25"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -9254,7 +7401,8 @@ Cell[BoxData[
   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[56]:=",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"],
+ CellLabel->
+  "In[125]:=",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"],
 
 Cell[CellGroupData[{
 
@@ -9264,7 +7412,8 @@ Cell[BoxData[
   ".", "root"}]], "Input",
  CellChangeTimes->{{3.834272021760499*^9, 3.83427203146054*^9}, 
    3.834364154564042*^9},
- CellLabel->"In[57]:=",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"],
+ CellLabel->
+  "In[126]:=",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9274,8 +7423,9 @@ Cell[BoxData[
    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},
- CellLabel->"Out[57]=",ExpressionUUID->"e5bffa13-519d-464b-a741-71994acac1fd"]
+   3.8345890165423117`*^9, 3.834619202028728*^9, 3.8346200651817904`*^9},
+ CellLabel->
+  "Out[126]=",ExpressionUUID->"61f0b93b-6c00-4f56-b397-60afac7f76d2"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -9287,7 +7437,8 @@ Cell[BoxData[
  CellChangeTimes->{{3.834363921051414*^9, 3.834363950761215*^9}, {
   3.834364012856628*^9, 3.834364015468774*^9}, {3.834364134655746*^9, 
   3.834364136951743*^9}},
- CellLabel->"In[58]:=",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"],
+ CellLabel->
+  "In[127]:=",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"],
 
 Cell[BoxData[
  RowBox[{"(*", 
@@ -9337,14 +7488,16 @@ Cell[BoxData[
    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[59]:=",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"],
+ 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[60]:=",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"],
+ CellLabel->
+  "In[129]:=",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"],
 
 Cell[BoxData[
  RowBox[{"nlm", "[", "\<\"RSquared\"\>", "]"}]], "Output",
@@ -9352,8 +7505,9 @@ Cell[BoxData[
   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},
- CellLabel->"Out[60]=",ExpressionUUID->"6e2e3721-e282-48df-a844-3aa50721fc2d"]
+   3.834589016580224*^9, 3.8346192020658092`*^9, 3.834620065208219*^9},
+ CellLabel->
+  "Out[129]=",ExpressionUUID->"7f9b8f0a-874b-4fc3-9422-12a987494490"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9365,7 +7519,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.834608147157591*^9, 3.834608157699215*^9}, {
   3.834613211433923*^9, 3.834613211481103*^9}},
  CellLabel->
-  "In[118]:=",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"],
+  "In[130]:=",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9401,9 +7555,9 @@ Cell[BoxData[
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output",
  CellChangeTimes->{{3.83460815064884*^9, 3.834608158044807*^9}, 
-   3.834613212108568*^9},
+   3.834613212108568*^9, 3.834619202095937*^9, 3.834620065226191*^9},
  CellLabel->
-  "Out[118]=",ExpressionUUID->"955b5761-309e-4eb5-aec6-746417857d5b"]
+  "Out[130]=",ExpressionUUID->"49110fde-c70a-4cf4-a8d4-2e603dcfecc5"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9414,7 +7568,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.83460815911386*^9, 3.8346081672942*^9}, {
   3.834613489173396*^9, 3.834613494745154*^9}},
  CellLabel->
-  "In[123]:=",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"],
+  "In[131]:=",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9459,8 +7613,8 @@ Cell[BoxData[
       RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
      ",", 
      RowBox[{"{", 
-      RowBox[{"4.`", ",", "0.`", ",", "3.`", ",", "3.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}], ",", 
+      RowBox[{"4.`", ",", 
+       RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], 
      ",", 
@@ -9468,19 +7622,20 @@ Cell[BoxData[
       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
      ",", 
      RowBox[{"{", 
-      RowBox[{"4.`", ",", "0.`", ",", "2.`", ",", "4.`", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
+      RowBox[{"4.`", ",", 
+       RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`", ",", "0.`"}], "}"}]}], 
+    "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], 
      ",", 
      RowBox[{"{", 
-      RowBox[{"4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`", ",", "4.`"}], "}"}], ",", 
+      RowBox[{"4.`", ",", "0.`", ",", 
+       RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"4.`", ",", 
-       RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "3.`"}], "}"}], ",", 
+      RowBox[{"4.`", ",", "0.`", ",", 
+       RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], 
      ",", 
@@ -9507,15 +7662,15 @@ Cell[BoxData[
       "}"}]}], "}"}]}], "}"}]], "Output",
  CellChangeTimes->{
   3.834608167997654*^9, 3.834613222979426*^9, {3.8346134917935543`*^9, 
-   3.834613495128717*^9}},
+   3.834613495128717*^9}, 3.834619202247882*^9, 3.834620065275806*^9},
  CellLabel->
-  "Out[123]=",ExpressionUUID->"53d189bd-6c90-47eb-b77e-840f0c83fa0b"]
+  "Out[131]=",ExpressionUUID->"fce856bb-cf1c-44e6-a5f9-84bb9451b447"]
 }, Open  ]],
 
 Cell[BoxData[""], "Input",
- CellChangeTimes->{{3.834608303636486*^9, 
-  3.834608313792286*^9}},ExpressionUUID->"94a19936-4029-4bf5-b55a-\
-bd9d0f39fac8"],
+ CellChangeTimes->{{3.834608303636486*^9, 3.834608313792286*^9}},
+ CellLabel->
+  "In[132]:=",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"],
 
 Cell[CellGroupData[{
 
@@ -9526,7 +7681,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.834608357467698*^9, 3.8346083684669456`*^9}, {
   3.8346135174422903`*^9, 3.834613517507605*^9}},
  CellLabel->
-  "In[125]:=",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"],
+  "In[133]:=",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9542,9 +7697,10 @@ Cell[BoxData[
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output",
  CellChangeTimes->{{3.834608359833349*^9, 3.834608368853426*^9}, 
-   3.834613239830826*^9, 3.834613517923314*^9},
+   3.834613239830826*^9, 3.834613517923314*^9, 3.834619202287201*^9, 
+   3.8346200653000317`*^9},
  CellLabel->
-  "Out[125]=",ExpressionUUID->"3adbb776-bb7b-4f0a-a932-ff2afd5b1357"]
+  "Out[133]=",ExpressionUUID->"708710fb-18f7-4e74-a13d-2bfc60343c8f"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9558,7 +7714,7 @@ Cell[BoxData[
     "1.2389279387920946`"}], "}"}]}]], "Input",
  CellChangeTimes->{{3.834613483657979*^9, 3.8346134846307297`*^9}},
  CellLabel->
-  "In[121]:=",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"],
+  "In[134]:=",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9566,9 +7722,10 @@ Cell[BoxData[
    RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", 
    "1.2389279387920946`", ",", "1.2389279387920946`", ",", 
    "1.2389279387920946`"}], "}"}]], "Output",
- CellChangeTimes->{3.8346134850696898`*^9},
+ CellChangeTimes->{3.8346134850696898`*^9, 3.834619202305229*^9, 
+  3.834620065319126*^9},
  CellLabel->
-  "Out[121]=",ExpressionUUID->"2bc158eb-d166-480d-8a2d-fa951dfbc389"]
+  "Out[134]=",ExpressionUUID->"29ee0936-3209-44a7-b6fe-4d84f0630f57"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9579,7 +7736,7 @@ Cell[BoxData[
   ".", "root"}]], "Input",
  CellChangeTimes->{{3.834613496502672*^9, 3.834613501324523*^9}},
  CellLabel->
-  "In[124]:=",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"],
+  "In[135]:=",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9587,12 +7744,848 @@ Cell[BoxData[
    RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", 
    "4.141916673757955`", ",", "4.141916673757955`", ",", 
    "1.2389279387920946`"}], "}"}]], "Output",
- CellChangeTimes->{3.83461350172188*^9},
+ CellChangeTimes->{3.83461350172188*^9, 3.83461920232476*^9, 
+  3.834620065339077*^9},
  CellLabel->
-  "Out[124]=",ExpressionUUID->"db812af6-f952-4a3a-b332-558c0f31c92d"]
+  "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->{1425., 776.25},
+WindowSize->{736.5, 776.25},
 WindowMargins->{{7.5, Automatic}, {7.5, Automatic}},
 TaggingRules->{
  "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
@@ -9611,158 +8604,197 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 418, 9, 29, "Input",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
-Cell[979, 31, 1053, 27, 92, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
-Cell[2035, 60, 509, 11, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
-Cell[2547, 73, 439, 11, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
-Cell[2989, 86, 1406, 33, 51, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
-Cell[4398, 121, 342, 8, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
-Cell[4743, 131, 1140, 33, 29, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
-Cell[5886, 166, 740, 20, 29, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
-Cell[6629, 188, 671, 19, 29, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
-Cell[7303, 209, 708, 19, 29, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
-Cell[8014, 230, 548, 14, 29, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
-Cell[8565, 246, 702, 19, 29, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
-Cell[9270, 267, 996, 28, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
-Cell[10269, 297, 3990, 106, 298, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
-Cell[14262, 405, 10810, 230, 422, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
-Cell[25075, 637, 6823, 176, 422, "Input",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
-Cell[31901, 815, 912, 24, 29, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
-Cell[32816, 841, 4816, 102, 133, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
+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[37657, 947, 357, 5, 29, "Input",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
-Cell[38017, 954, 2283, 32, 33, "Output",ExpressionUUID->"208bb6f3-5571-4419-a56b-3d6d78e931b5"]
+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[40315, 989, 2787, 67, 262, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
-Cell[43105, 1058, 1277, 34, 66, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
+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[44407, 1096, 274, 6, 29, "Input",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"],
-Cell[44684, 1104, 1918, 73, 145, "Output",ExpressionUUID->"04e15236-2789-4451-a36b-e8e337d93be5"]
+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[46617, 1180, 1383, 34, 65, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
+Cell[46819, 1183, 1383, 34, 116, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
 Cell[CellGroupData[{
-Cell[48025, 1218, 41803, 1330, 834, "Input",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"],
-Cell[89831, 2550, 34306, 1328, 464, "Output",ExpressionUUID->"baec0d9f-c58b-49f1-ad4c-951daa0af331"]
+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[124174, 3883, 385, 8, 29, "Input",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"],
-Cell[124562, 3893, 191, 4, 23, "Print",ExpressionUUID->"6e1592f8-e5a2-4293-bcdd-c93f7ba1e232"],
-Cell[124756, 3899, 191, 2, 33, "Output",ExpressionUUID->"434a5a99-de6b-4f65-8134-4260eebf9b68"]
+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[124984, 3906, 202, 4, 29, "Input",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"],
-Cell[125189, 3912, 1372, 31, 55, "Output",ExpressionUUID->"c350efc6-b76d-4198-9896-c285ab500b24"]
+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[126598, 3948, 668, 19, 29, "Input",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"],
-Cell[127269, 3969, 1459, 33, 55, "Output",ExpressionUUID->"397017da-212d-4511-b251-a48ff7956925"]
+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[128765, 4007, 325, 6, 29, "Input",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"],
-Cell[129093, 4015, 93619, 1814, 4097, "Output",ExpressionUUID->"4dbd9253-74a6-4357-b2ea-e75805b62d3f"]
+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[222749, 5834, 1236, 25, 29, "Input",ExpressionUUID->"ff7a6f7d-b85f-4b08-948d-bc33a208b4e8"],
-Cell[223988, 5861, 509, 11, 33, "Output",ExpressionUUID->"7bf37d67-04a1-4451-977f-184b5deda825"]
+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[224512, 5875, 126, 2, 29, "Input",ExpressionUUID->"70ac3852-ef72-4f07-9725-056d8c89031b"],
-Cell[224641, 5879, 1379, 26, 29, "Input",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"],
+Cell[220691, 7083, 920, 16, 29, "Input",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"],
 Cell[CellGroupData[{
-Cell[226045, 5909, 41539, 1325, 834, "Input",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"],
-Cell[267587, 7236, 34227, 1325, 464, "Output",ExpressionUUID->"57a026c0-3553-4b54-8ef1-dfc635475a5a"]
-}, Open  ]],
-Cell[301829, 8564, 1076, 20, 71, "Input",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"],
-Cell[302908, 8586, 741, 15, 29, "Input",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"],
-Cell[303652, 8603, 419, 12, 82, "Input",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"],
-Cell[304074, 8617, 436, 13, 78, "Input",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"],
-Cell[304513, 8632, 718, 23, 78, "Input",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"],
-Cell[CellGroupData[{
-Cell[305256, 8659, 278, 5, 29, "Input",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"],
-Cell[305537, 8666, 1152, 36, 95, "Output",ExpressionUUID->"cac5a00b-999e-46da-a490-742406c40b81"]
+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[306726, 8707, 327, 8, 29, "Input",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"],
-Cell[307056, 8717, 910, 17, 33, "Output",ExpressionUUID->"7d6b07cd-6f61-47b9-a291-783f25ec86b6"]
+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[308003, 8739, 339, 8, 29, "Input",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"],
-Cell[308345, 8749, 1422, 32, 48, "Output",ExpressionUUID->"67cd614c-4268-488b-a193-4f6671507bf9"]
+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[309804, 8786, 575, 14, 29, "Input",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"],
-Cell[310382, 8802, 1054, 18, 33, "Output",ExpressionUUID->"3bbae71c-fb23-4709-acd8-386ff5507428"]
-}, Open  ]],
-Cell[311451, 8823, 1048, 32, 143, "Input",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"],
-Cell[312502, 8857, 541, 14, 29, "Input",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"],
-Cell[313046, 8873, 773, 15, 29, "Input",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"],
-Cell[CellGroupData[{
-Cell[313844, 8892, 453, 8, 29, "Input",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"],
-Cell[314300, 8902, 905, 18, 33, "Output",ExpressionUUID->"d21b34dc-b15a-4d52-aa97-64f2b690b80a"]
+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[315242, 8925, 686, 17, 29, "Input",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"],
-Cell[315931, 8944, 829, 13, 33, "Output",ExpressionUUID->"82ed7f2c-3ee7-4e3c-a922-3b11168e5232"]
-}, Open  ]],
-Cell[316775, 8960, 916, 15, 29, "Input",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"],
-Cell[CellGroupData[{
-Cell[317716, 8979, 2532, 66, 205, "Input",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"],
-Cell[320251, 9047, 353, 7, 33, "Output",ExpressionUUID->"851fdadc-8b37-48f5-b586-7492a2cec6f4"]
+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[320641, 9059, 563, 20, 78, "Input",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"],
-Cell[321207, 9081, 789, 25, 33, "Output",ExpressionUUID->"8a8ff7e8-257e-4818-ac64-f640430a001d"]
+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[322033, 9111, 270, 4, 29, "Input",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"],
-Cell[322306, 9117, 266, 3, 33, "Output",ExpressionUUID->"53661af6-3452-48f0-9710-be07368fd73c"]
+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[322609, 9125, 467, 8, 29, "Input",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"],
-Cell[323079, 9135, 537, 9, 33, "Output",ExpressionUUID->"cdf5520d-02b3-4f18-a2c3-2601cc9d84c1"]
+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[323653, 9149, 529, 11, 29, "Input",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"],
-Cell[324185, 9162, 298, 4, 33, "Output",ExpressionUUID->"5d2f3140-ff92-49a2-be88-721ed7e25161"]
+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[324520, 9171, 205, 3, 29, "Input",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"],
-Cell[324728, 9176, 274, 4, 33, "Output",ExpressionUUID->"13090f9e-b58e-4203-b483-8b96b4f0e5b2"]
+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[325039, 9185, 679, 13, 29, "Input",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"],
-Cell[325721, 9200, 493, 7, 33, "Output",ExpressionUUID->"cbe40bb5-882a-4c6c-921b-6b14501a552e"]
-}, Open  ]],
-Cell[326229, 9210, 1885, 46, 51, "Input",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"],
-Cell[CellGroupData[{
-Cell[328139, 9260, 297, 6, 29, "Input",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"],
-Cell[328439, 9268, 513, 9, 33, "Output",ExpressionUUID->"e5bffa13-519d-464b-a741-71994acac1fd"]
-}, Open  ]],
-Cell[328967, 9280, 444, 9, 29, "Input",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"],
-Cell[329414, 9291, 1859, 48, 176, "Input",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"],
-Cell[CellGroupData[{
-Cell[331298, 9343, 218, 3, 29, "Input",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"],
-Cell[331519, 9348, 415, 7, 33, "Output",ExpressionUUID->"6e2e3721-e282-48df-a844-3aa50721fc2d"]
+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[331971, 9360, 314, 7, 29, "Input",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"],
-Cell[332288, 9369, 1092, 36, 33, "Output",ExpressionUUID->"955b5761-309e-4eb5-aec6-746417857d5b"]
+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[333417, 9410, 295, 6, 29, "Input",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"],
-Cell[333715, 9418, 3355, 93, 117, "Output",ExpressionUUID->"53d189bd-6c90-47eb-b77e-840f0c83fa0b"]
-}, Open  ]],
-Cell[337085, 9514, 152, 3, 29, "Input",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"],
-Cell[CellGroupData[{
-Cell[337262, 9521, 324, 7, 29, "Input",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"],
-Cell[337589, 9530, 605, 16, 82, "Output",ExpressionUUID->"3adbb776-bb7b-4f0a-a932-ff2afd5b1357"]
+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[338231, 9551, 400, 9, 29, "Input",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"],
-Cell[338634, 9562, 347, 8, 33, "Output",ExpressionUUID->"2bc158eb-d166-480d-8a2d-fa951dfbc389"]
+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[339018, 9575, 276, 6, 29, "Input",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"],
-Cell[339297, 9583, 342, 8, 33, "Output",ExpressionUUID->"db812af6-f952-4a3a-b332-558c0f31c92d"]
+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  ]]
 }
 ]