diff --git a/Presentation.nb b/Presentation.nb index 90d9817..c10b357 100644 --- a/Presentation.nb +++ b/Presentation.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 117072, 3050] -NotebookOptionsPosition[ 114087, 2994] -NotebookOutlinePosition[ 114488, 3010] -CellTagsIndexPosition[ 114445, 3007] +NotebookDataLength[ 98276, 2280] +NotebookOptionsPosition[ 95330, 2226] +NotebookOutlinePosition[ 95731, 2242] +CellTagsIndexPosition[ 95688, 2239] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -57,7 +57,7 @@ Cell[BoxData[ 3.830974193183652*^9, 3.8309745378615713`*^9}, {3.831070955808754*^9, 3.831070961297104*^9}, {3.834179746565708*^9, 3.8341797491247168`*^9}}, CellLabel-> - "In[185]:=",ExpressionUUID->"42bda541-275e-4fa8-ad0f-dff973087409"], + "In[255]:=",ExpressionUUID->"42bda541-275e-4fa8-ad0f-dff973087409"], Cell[BoxData[{ RowBox[{ @@ -938,7 +938,7 @@ Cell[BoxData[{ ".", "cFin"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.834179528431576*^9, 3.8341796307976007`*^9}}, CellLabel-> - "In[186]:=",ExpressionUUID->"c77ea1b4-464a-475d-935a-6ddd3139e407"], + "In[256]:=",ExpressionUUID->"c77ea1b4-464a-475d-935a-6ddd3139e407"], Cell[CellGroupData[{ @@ -951,7 +951,7 @@ Cell[BoxData[ CellChangeTimes->{{3.8341795407019453`*^9, 3.834179541264065*^9}, { 3.834179796934347*^9, 3.834179809094207*^9}}, CellLabel-> - "In[222]:=",ExpressionUUID->"2acb2df6-0250-4f93-a487-d393ec6948a7"], + "In[292]:=",ExpressionUUID->"2acb2df6-0250-4f93-a487-d393ec6948a7"], Cell[BoxData[ RowBox[{"{", @@ -1116,9 +1116,11 @@ Cell[BoxData[ 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.834501229114954*^9, 3.834502882776107*^9, 3.834568960544511*^9, + 3.83456904188068*^9, {3.83460821719843*^9, 3.8346082773639317`*^9}, + 3.8346132595491343`*^9}, CellLabel-> - "Out[222]=",ExpressionUUID->"03f12bc9-7a27-471f-bddc-c0858dc385e9"] + "Out[292]=",ExpressionUUID->"00f58963-1bec-4f17-b581-aff807028e0f"] }, Open ]], Cell[CellGroupData[{ @@ -1129,616 +1131,78 @@ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"1", ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "3"}], ",", RowBox[{"-", "1"}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1"}], "}"}]}], - "}"}]}]], "Input", - CellChangeTimes->{{3.834501067162672*^9, 3.8345010680342617`*^9}}, + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.834501067162672*^9, 3.8345010680342617`*^9}, + 3.83460821356898*^9, 3.834608254494473*^9, 3.834613256684762*^9}, CellLabel-> - "In[223]:=",ExpressionUUID->"1616f30b-f817-4bed-8186-0f3e4b738bac"], + "In[293]:=",ExpressionUUID->"1616f30b-f817-4bed-8186-0f3e4b738bac"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", "1", ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", "1", ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", + RowBox[{"-", "3"}], ",", RowBox[{"-", "1"}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", "1", ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", - RowBox[{"-", "1"}], ",", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], ",", "1"}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8345010712331038`*^9, 3.834501076129974*^9}, - 3.834501229130864*^9, 3.834502882798918*^9}, + 3.834501229130864*^9, 3.834502882798918*^9, 3.8345689605886927`*^9, + 3.834569041895773*^9, {3.83460821722288*^9, 3.834608277378764*^9}, + 3.834613259571035*^9}, CellLabel-> - "Out[223]=",ExpressionUUID->"5eccc42d-a331-461b-8d74-78a9e537f2d9"] + "Out[293]=",ExpressionUUID->"71b7f1a7-5e88-4605-9406-a449116256ae"] }, Open ]], Cell[CellGroupData[{ @@ -1760,9 +1224,9 @@ Cell[BoxData[ 3.834150652562565*^9, 3.8341506602368183`*^9}, {3.834179514150607*^9, 3.834179527454651*^9}}, CellLabel-> - "In[224]:=",ExpressionUUID->"ced1cd28-39c9-46f3-906f-472b911c83b5"], + "In[294]:=",ExpressionUUID->"ced1cd28-39c9-46f3-906f-472b911c83b5"], -Cell[BoxData["12"], "Output", +Cell[BoxData["5"], "Output", CellChangeTimes->{ 3.8311389995758657`*^9, 3.8311390332247753`*^9, {3.831139077841172*^9, 3.8311390946047153`*^9}, {3.831139139540516*^9, 3.8311391502889767`*^9}, { @@ -1777,9 +1241,11 @@ Cell[BoxData["12"], "Output", 3.832075261919179*^9, 3.832154278676079*^9, 3.832154312567971*^9, 3.8341506641986094`*^9, 3.834150717757927*^9, 3.834179634237877*^9, 3.8341797131884813`*^9, 3.834179811405641*^9, {3.834501061407423*^9, - 3.834501076151882*^9}, 3.8345012291462593`*^9, 3.834502882817725*^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[224]=",ExpressionUUID->"442a4abd-126e-437e-923d-a3efae1aeccd"] + "Out[294]=",ExpressionUUID->"7d1068cd-4185-4697-a370-98c58525919d"] }, Open ]], Cell[CellGroupData[{ @@ -1789,299 +1255,36 @@ Cell[BoxData[ CellChangeTimes->{{3.8310684245019207`*^9, 3.831068430589032*^9}, 3.831070943176569*^9}, CellLabel-> - "In[225]:=",ExpressionUUID->"c3856cfc-8a90-4b2e-a7f8-03f066ea4f67"], + "In[295]:=",ExpressionUUID->"c3856cfc-8a90-4b2e-a7f8-03f066ea4f67"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], RowBox[{"-", "1"}], RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}]}, - { - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], "1", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], RowBox[{"-", "1"}], RowBox[{"-", "1"}]}, { - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], "1", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}]}, - { - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], "1", - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{"-", "1"}]}, - { - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], RowBox[{"-", "1"}], "1", RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}]}, + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], RowBox[{"-", "1"}], "1", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}]}, + RowBox[{"-", "3"}]}, { - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], "1", - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}]}, - { - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], + RowBox[{"-", "3"}], RowBox[{"-", "1"}], "1", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], "1", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}]}, - { - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], "1", - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}]}, - { - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], "1", - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}]}, - { - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "2"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], - RowBox[{"-", "1"}], - RowBox[{ - RowBox[{"-", "4"}], "-", - SqrtBox["5"]}], "1"} + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { @@ -2116,17 +1319,19 @@ Cell[BoxData[ 3.832154312584054*^9, 3.834150664215773*^9, 3.834150717774004*^9, 3.834179634265574*^9, 3.834179713243734*^9, 3.8341798114593563`*^9, { 3.834501061427705*^9, 3.834501076174374*^9}, 3.8345012291623507`*^9, - 3.8345028828382463`*^9}, + 3.8345028828382463`*^9, 3.834568960652845*^9, {3.834569033461903*^9, + 3.834569041971336*^9}, {3.834608217364354*^9, 3.834608277409753*^9}, + 3.834613259617034*^9}, CellLabel-> - "Out[225]//MatrixForm=",ExpressionUUID->"4e601467-6803-434f-b0f5-\ -e715fcbb5185"] + "Out[295]//MatrixForm=",ExpressionUUID->"45374975-4620-44a5-bf25-\ +34b9631e9eef"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8310924022859507`*^9, 3.831092406878796*^9}, { 3.8311137278056173`*^9, 3.8311137280579557`*^9}, 3.831552904141026*^9}, CellLabel-> - "In[226]:=",ExpressionUUID->"c0fe9f2e-e239-4938-84cd-0e217d1ee57c"], + "In[296]:=",ExpressionUUID->"c0fe9f2e-e239-4938-84cd-0e217d1ee57c"], Cell[CellGroupData[{ @@ -2140,7 +1345,7 @@ Cell[BoxData[ 3.831139071114275*^9, 3.8311390712579117`*^9}, {3.831139182740775*^9, 3.831139182989287*^9}, {3.8315534621430817`*^9, 3.8315534622203608`*^9}}, CellLabel-> - "In[227]:=",ExpressionUUID->"0fcfbb19-b2bd-4a52-925c-ac50bcdaec4f"], + "In[297]:=",ExpressionUUID->"0fcfbb19-b2bd-4a52-925c-ac50bcdaec4f"], Cell[BoxData["4"], "Output", CellChangeTimes->{{3.831077658967082*^9, 3.831077690109293*^9}, @@ -2208,9 +1413,11 @@ Cell[BoxData["4"], "Output", 3.832154278741716*^9, 3.8321543126328583`*^9, 3.8341506642636967`*^9, 3.8341507178212643`*^9, 3.834179634318242*^9, 3.834179713300296*^9, 3.8341798115140533`*^9, {3.8345010614473867`*^9, 3.834501076200571*^9}, - 3.834501229181724*^9, 3.834502882864852*^9}, + 3.834501229181724*^9, 3.834502882864852*^9, 3.834568960687703*^9, + 3.834569041992879*^9, {3.8346082174024277`*^9, 3.834608277428707*^9}, + 3.8346132596494503`*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"966dd123-c031-4177-b94b-2299f2a21c1e"] + "Out[297]=",ExpressionUUID->"c7ca20bd-4c9c-483c-b50b-5698dafd9f80"] }, Open ]], Cell[CellGroupData[{ @@ -2223,7 +1430,7 @@ Cell[BoxData[ 3.831069579236924*^9, 3.831069580068521*^9}, {3.831077557179717*^9, 3.8310775573141937`*^9}, {3.831077610720077*^9, 3.8310776304729652`*^9}}, CellLabel-> - "In[228]:=",ExpressionUUID->"66dee78e-384d-4588-9d25-04b3c7b1aea7"], + "In[298]:=",ExpressionUUID->"66dee78e-384d-4588-9d25-04b3c7b1aea7"], Cell[BoxData[ RowBox[{"{", @@ -2321,9 +1528,11 @@ Cell[BoxData[ 3.832154278782291*^9, 3.832154312670209*^9, 3.834150664304747*^9, 3.8341507178610277`*^9, 3.8341796343412113`*^9, 3.834179713320942*^9, 3.834179811535512*^9, {3.834501061468029*^9, 3.83450107622572*^9}, - 3.8345012291977587`*^9, 3.834502882881853*^9}, + 3.8345012291977587`*^9, 3.834502882881853*^9, 3.834568960712244*^9, + 3.834569042005877*^9, {3.834608217439719*^9, 3.834608277444111*^9}, + 3.83461325967183*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"5d7d84c2-9380-4bb3-a45b-0c12fd78b216"] + "Out[298]=",ExpressionUUID->"4d944208-efd8-4bf9-8571-ed7c9065db41"] }, Open ]], Cell[CellGroupData[{ @@ -2336,15 +1545,12 @@ Cell[BoxData[ 3.831070982047958*^9, 3.8310709823617363`*^9}, {3.8341797067716312`*^9, 3.8341797075825768`*^9}}, CellLabel-> - "In[229]:=",ExpressionUUID->"6c7429b3-1587-4d20-991f-d99f45021537"], + "In[299]:=",ExpressionUUID->"6c7429b3-1587-4d20-991f-d99f45021537"], Cell[BoxData[ RowBox[{"{", RowBox[{ - RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", - - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0"}], + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.831069655368197*^9, {3.831069731555151*^9, 3.8310697423741207`*^9}, @@ -2435,9 +1641,10 @@ Cell[BoxData[ 3.832154312683844*^9, 3.83415066502416*^9, 3.834150718573269*^9, 3.834179635038335*^9, 3.834179714041378*^9, 3.834179811582711*^9, { 3.8345010615381107`*^9, 3.834501076421116*^9}, 3.8345012292720633`*^9, - 3.8345028829639797`*^9}, + 3.8345028829639797`*^9, 3.834568961033568*^9, 3.834569042385539*^9, { + 3.834608217835533*^9, 3.83460827747479*^9}, 3.8346132596995*^9}, CellLabel-> - "Out[229]=",ExpressionUUID->"c7751070-01f8-4024-b8e7-b223a36da7be"] + "Out[299]=",ExpressionUUID->"b86716b8-cefa-481e-bf7a-e62f17d96863"] }, Open ]], Cell[BoxData[ @@ -2474,7 +1681,7 @@ Cell[BoxData[ 3.831139212300468*^9}, {3.831553470591372*^9, 3.831553478545971*^9}, 3.83417970530786*^9}, CellLabel-> - "In[230]:=",ExpressionUUID->"dd7b3324-1ab6-43b0-9e24-406f40fb34ba"], + "In[300]:=",ExpressionUUID->"dd7b3324-1ab6-43b0-9e24-406f40fb34ba"], Cell[BoxData[{ RowBox[{ @@ -2524,9 +1731,7 @@ Cell[BoxData[{ 3.8310845937558413`*^9}, {3.831084628215064*^9, 3.831084651458681*^9}, { 3.8341797019320917`*^9, 3.834179704491941*^9}}, CellLabel-> - "In[231]:=",ExpressionUUID->"9e97f31a-ffaa-4f35-bb49-127a66bb73f7"], - -Cell[CellGroupData[{ + "In[301]:=",ExpressionUUID->"9e97f31a-ffaa-4f35-bb49-127a66bb73f7"], Cell[BoxData[{ RowBox[{ @@ -2602,38 +1807,25 @@ afjS+0pVpgo5HOLSZBMPsh3O21DzgyRI+k1V+q5ZMcRprp4NLb6BkDWi253A ghFjM2eQO846h39Zj/tn "], CellLabel-> - "In[236]:=",ExpressionUUID->"0209d30a-517c-4664-b87b-84799191f438"], - -Cell[BoxData[ - TemplateBox[{ - "N", "meprec", - "\"Internal precision limit $MaxExtraPrecision = \\!\\(\\*RowBox[{\\\"50.`\ -\\\"}]\\) reached while evaluating \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"}\\\"}]\\).\"", 2, 237, 1, 26221014139644137965, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.834502885497574*^9}, - CellLabel-> - "During evaluation of \ -In[236]:=",ExpressionUUID->"4b8e3482-7de8-46ff-964e-b784bf19ec01"] -}, Open ]], + "In[306]:=",ExpressionUUID->"0209d30a-517c-4664-b87b-84799191f438"], Cell[CellGroupData[{ Cell[BoxData[{ - RowBox[{ - RowBox[{"MatrixForm", "[", - RowBox[{"c", "=", - RowBox[{"If", "[", + RowBox[{"MatrixForm", "[", + RowBox[{"c", "=", + RowBox[{"If", "[", + RowBox[{ RowBox[{ - RowBox[{ - RowBox[{"Length", "[", "c", "]"}], "\[Equal]", "4"}], ",", - RowBox[{"Join", "[", - RowBox[{"c", ",", - RowBox[{"{", - RowBox[{"ConstantArray", "[", - RowBox[{"0", ",", "vertices"}], "]"}], "}"}]}], "]"}], ",", "c"}], - "]"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", + RowBox[{"Length", "[", "c", "]"}], "\[Equal]", "4"}], ",", + RowBox[{"Join", "[", + RowBox[{"c", ",", + RowBox[{"{", + RowBox[{"ConstantArray", "[", + RowBox[{"0", ",", "vertices"}], "]"}], "}"}]}], "]"}], ",", "c"}], + "]"}]}], "]"}], "\[IndentingNewLine]", + RowBox[{"c", "\[LeftDoubleBracket]", + RowBox[{"2", ",", "All"}], "\[RightDoubleBracket]"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ @@ -2824,40 +2016,26 @@ Cell[BoxData[{ 3.8310912484893436`*^9}, {3.831092078411395*^9, 3.831092093658761*^9}, { 3.8310921287931747`*^9, 3.83109214914692*^9}, {3.831113743889797*^9, 3.831113768930172*^9}, {3.831114593194087*^9, 3.831114593783296*^9}, { - 3.831126219196403*^9, 3.831126229413628*^9}}, + 3.831126219196403*^9, 3.831126229413628*^9}, {3.8346082657844973`*^9, + 3.8346082869679623`*^9}}, NumberMarks->False, CellLabel-> - "In[245]:=",ExpressionUUID->"3a5095fb-bef7-4905-a187-ccc481ddd9ee"], + "In[315]:=",ExpressionUUID->"3a5095fb-bef7-4905-a187-ccc481ddd9ee"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ - {"3.546430678000464`", - RowBox[{"-", "0.36372734005442253`"}], "2.3768355879417165`", - "1.012856398189994`", "2.2926401396282015`", "2.57551915892222`", - "0.6071841790238219`", "0.9085551300901141`", "2.3768355879417165`", - "2.2926401396282015`", "0.9085551300901141`", "1.012856398189994`"}, + {"1.9486311405059253`", "0.8071494464601062`", "0.8071494464601062`", + "0.8071494464601062`", "0.8071494464601062`"}, { - RowBox[{"-", "0.2834798580148514`"}], "3.56510764715264`", - "0.8788612744365893`", "2.4021801173827617`", "0.7431613515250001`", - "0.6583453761027523`", "2.623282413035036`", "2.337684756018828`", - "0.8788612744365893`", "0.7431613515250001`", "2.337684756018828`", - "2.4021801173827617`"}, - { - RowBox[{"-", "0.10541211236465554`"}], "0.13947427183635003`", - RowBox[{"-", "1.3944888185343116`"}], "1.5093374557383679`", - "0.39972317293674914`", "1.6393224334908487`", - RowBox[{"-", "1.6052602740191542`"}], - RowBox[{"-", "0.5966814676345231`"}], - RowBox[{"-", "1.3944888185343116`"}], "0.39972317293674914`", - RowBox[{"-", "0.5966814676345231`"}], "1.5093374557383679`"}, - {"0.`", "0.`", "1.0053630881229512`", - RowBox[{"-", "1.2324749033650693`"}], - RowBox[{"-", "1.3995998323753724`"}], "0.`", "0.`", - "1.6030340178370865`", - RowBox[{"-", "1.0053630881229512`"}], "1.3995998323753724`", - RowBox[{"-", "1.6030340178370865`"}], "1.2324749033650693`"}, - {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"} + 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"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { @@ -2918,25 +2096,78 @@ Cell[BoxData[ 3.8320752622828913`*^9, 3.832154278985277*^9, 3.832154312852416*^9, 3.834150722393003*^9, 3.834179638862646*^9, 3.83417971760988*^9, 3.834179811662073*^9, {3.83450106170175*^9, 3.834501078858068*^9}, - 3.834502885610161*^9}, + 3.834502885610161*^9, 3.834568964784423*^9, 3.834569045834074*^9, { + 3.834608221545703*^9, 3.834608287914912*^9}, 3.834613259816371*^9}, CellLabel-> - "Out[245]//MatrixForm=",ExpressionUUID->"f4fe93d1-1451-4efd-afba-\ -c3cd1be008f9"], + "Out[315]//MatrixForm=",ExpressionUUID->"e0ad8c18-1b83-4146-ae6d-\ +44a1abd94479"], Cell[BoxData[ - GraphicsBox[{CircleBox[{0.37185044857449107, 0.}, 3.527587487177344], - CircleBox[{0.039122036594812094, 0.}, 0.28049643909032435], - CircleBox[{-1.5866995839909717, 1.143938318100838}, 1.13783600334543], - CircleBox[{0.6283198519613219, -0.5130651504633562}, 0.4162885175694178], - CircleBox[{0.5378686231684404, -1.8833054618668363}, 1.3456028061038907], - CircleBox[{2.4900644752686603, 0.}, 1.5189595557270585], - CircleBox[{-0.611928119535529, 0.}, 0.3812018084789578], - CircleBox[{-0.25524462445085877, 0.6857357535954158}, 0.42777367539626715], - CircleBox[{-1.5866995839909717, -1.143938318100838}, 1.13783600334543], - CircleBox[{0.5378686231684404, 1.8833054618668363}, 1.3456028061038907], - CircleBox[{-0.25524462445085877, -0.6857357535954158}, - 0.42777367539626715], - CircleBox[{0.6283198519613219, 0.5130651504633562}, 0.4162885175694178]}, + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", + "1.2389279387920946`", ",", "1.2389279387920946`", ",", + "1.2389279387920946`"}], "}"}]], "Output", + CellChangeTimes->{ + 3.8310808181124763`*^9, 3.831080860753619*^9, {3.8310809469470253`*^9, + 3.831080964993269*^9}, {3.831081004545352*^9, 3.8310810231079683`*^9}, { + 3.831081057456705*^9, 3.8310810835298233`*^9}, {3.831081138060302*^9, + 3.831081152082024*^9}, {3.831081228011375*^9, 3.8310813133718987`*^9}, { + 3.831081351183011*^9, 3.831081375990341*^9}, {3.831081436575982*^9, + 3.831081459114427*^9}, 3.8310815067955008`*^9, 3.831081552992103*^9, { + 3.83108166276462*^9, 3.831081748301043*^9}, 3.831081787574188*^9, + 3.831081918210712*^9, {3.831082148360456*^9, 3.831082160262785*^9}, + 3.831082839195043*^9, {3.831082952781499*^9, 3.831083055035534*^9}, { + 3.831083090755866*^9, 3.831083131568055*^9}, {3.8310831915345984`*^9, + 3.831083203976349*^9}, 3.831083520250152*^9, 3.831083591479097*^9, { + 3.831083638426196*^9, 3.831083733223453*^9}, 3.831083820433951*^9, { + 3.8310838540743637`*^9, 3.831083872688506*^9}, 3.831083931218514*^9, + 3.831083964991393*^9, {3.831084007446355*^9, 3.8310840240544577`*^9}, { + 3.831084126438016*^9, 3.8310841465491047`*^9}, 3.8310843794593287`*^9, { + 3.831084496467749*^9, 3.8310845160449467`*^9}, 3.831084597631049*^9, { + 3.83108464142036*^9, 3.831084683108674*^9}, 3.831084723554061*^9, + 3.8310853242106657`*^9, 3.831085358717671*^9, 3.831085411190071*^9, { + 3.8310854646012907`*^9, 3.8310855005741*^9}, {3.831085613523452*^9, + 3.831085633371294*^9}, 3.8310856714538593`*^9, 3.831085744893196*^9, + 3.8310857985908613`*^9, {3.83108586096107*^9, 3.8310858727632713`*^9}, + 3.831086178663618*^9, 3.831086284067205*^9, 3.8310863535520144`*^9, { + 3.83108641443573*^9, 3.831086438553163*^9}, 3.8310865100347013`*^9, { + 3.831086563691814*^9, 3.831086603192316*^9}, 3.831086675762972*^9, + 3.8310883982145433`*^9, 3.831089432472085*^9, 3.8310895538054*^9, { + 3.831090045452672*^9, 3.831090054373206*^9}, {3.831090106351191*^9, + 3.831090135089933*^9}, {3.831090195570376*^9, 3.8310902067729397`*^9}, + 3.831091158467819*^9, 3.831113732950795*^9, 3.831113774456149*^9, + 3.831114121816136*^9, 3.831114603012059*^9, {3.831114634767717*^9, + 3.831114647267293*^9}, 3.831114781459367*^9, {3.831116162343802*^9, + 3.831116182717697*^9}, 3.831116848790416*^9, 3.831116879481612*^9, { + 3.831122086375164*^9, 3.831122098811386*^9}, {3.8311221630541286`*^9, + 3.831122172288553*^9}, {3.831122219410223*^9, 3.831122257867687*^9}, + 3.831122302607841*^9, 3.8311224123907022`*^9, 3.831122463557585*^9, + 3.831122535424923*^9, 3.831122601531713*^9, {3.831122709456368*^9, + 3.831122729049098*^9}, 3.831125950159609*^9, {3.8311260810683107`*^9, + 3.831126101291016*^9}, {3.83112616116888*^9, 3.8311261732572937`*^9}, + 3.831126270136245*^9, 3.831139001383645*^9, 3.831139034894452*^9, { + 3.8311390797257853`*^9, 3.831139096495474*^9}, 3.8311391520341063`*^9, { + 3.831139187064781*^9, 3.8311392165042562`*^9}, 3.831552873355103*^9, { + 3.83155345791722*^9, 3.831553483767668*^9}, 3.8320681489121304`*^9, + 3.8320682380737886`*^9, 3.832068320428842*^9, 3.832069208784215*^9, + 3.8320692421395473`*^9, 3.832069416244701*^9, 3.832069465870864*^9, { + 3.832070659471138*^9, 3.832070682242206*^9}, 3.832071035748856*^9, + 3.832071175060895*^9, 3.8320712933509083`*^9, 3.832071656839703*^9, + 3.8320752622828913`*^9, 3.832154278985277*^9, 3.832154312852416*^9, + 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"], + +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]}, ImageSize->{443.87890625, Automatic}]], "Output", CellChangeTimes->{ 3.8310808181124763`*^9, 3.831080860753619*^9, {3.8310809469470253`*^9, @@ -2987,9 +2218,10 @@ Cell[BoxData[ 3.8320752622828913`*^9, 3.832154278985277*^9, 3.832154312852416*^9, 3.834150722393003*^9, 3.834179638862646*^9, 3.83417971760988*^9, 3.834179811662073*^9, {3.83450106170175*^9, 3.834501078858068*^9}, - 3.834502885616366*^9}, + 3.834502885610161*^9, 3.834568964784423*^9, 3.834569045834074*^9, { + 3.834608221545703*^9, 3.834608287914912*^9}, 3.834613259845879*^9}, CellLabel-> - "Out[246]=",ExpressionUUID->"a56c26f6-7e0d-4c48-864d-05474ddc395a"] + "Out[317]=",ExpressionUUID->"666c0c41-6bfc-4847-a5d2-14880c7266f6"] }, Open ]] }, WindowSize->{1425., 776.25}, @@ -3014,43 +2246,41 @@ Cell[879, 30, 1102, 29, 29, "Input",ExpressionUUID->"42bda541-275e-4fa8-ad0f-dff Cell[1984, 61, 28640, 879, 1293, "Input",ExpressionUUID->"c77ea1b4-464a-475d-935a-6ddd3139e407"], Cell[CellGroupData[{ Cell[30649, 944, 370, 9, 29, "Input",ExpressionUUID->"2acb2df6-0250-4f93-a487-d393ec6948a7"], -Cell[31022, 955, 7521, 165, 261, "Output",ExpressionUUID->"03f12bc9-7a27-471f-bddc-c0858dc385e9"] +Cell[31022, 955, 7643, 167, 261, "Output",ExpressionUUID->"00f58963-1bec-4f17-b581-aff807028e0f"] }, Open ]], Cell[CellGroupData[{ -Cell[38580, 1125, 9675, 307, 257, "Input",ExpressionUUID->"1616f30b-f817-4bed-8186-0f3e4b738bac"], -Cell[48258, 1434, 8028, 306, 148, "Output",ExpressionUUID->"5eccc42d-a331-461b-8d74-78a9e537f2d9"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[56323, 1745, 1068, 17, 29, "Input",ExpressionUUID->"ced1cd28-39c9-46f3-906f-472b911c83b5"], -Cell[57394, 1764, 1142, 17, 33, "Output",ExpressionUUID->"442a4abd-126e-437e-923d-a3efae1aeccd"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[58573, 1786, 240, 5, 29, "Input",ExpressionUUID->"c3856cfc-8a90-4b2e-a7f8-03f066ea4f67"], -Cell[58816, 1793, 9137, 328, 269, "Output",ExpressionUUID->"4e601467-6803-434f-b0f5-e715fcbb5185"] +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[67968, 2124, 253, 4, 29, "Input",ExpressionUUID->"c0fe9f2e-e239-4938-84cd-0e217d1ee57c"], +Cell[46732, 1329, 253, 4, 29, "Input",ExpressionUUID->"c0fe9f2e-e239-4938-84cd-0e217d1ee57c"], Cell[CellGroupData[{ -Cell[68246, 2132, 640, 10, 29, "Input",ExpressionUUID->"0fcfbb19-b2bd-4a52-925c-ac50bcdaec4f"], -Cell[68889, 2144, 4897, 68, 33, "Output",ExpressionUUID->"966dd123-c031-4177-b94b-2299f2a21c1e"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[73823, 2217, 423, 8, 29, "Input",ExpressionUUID->"66dee78e-384d-4588-9d25-04b3c7b1aea7"], -Cell[74249, 2227, 6965, 98, 33, "Output",ExpressionUUID->"5d7d84c2-9380-4bb3-a45b-0c12fd78b216"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[81251, 2330, 375, 8, 29, "Input",ExpressionUUID->"6c7429b3-1587-4d20-991f-d99f45021537"], -Cell[81629, 2340, 6801, 99, 33, "Output",ExpressionUUID->"c7751070-01f8-4024-b8e7-b223a36da7be"] +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[88445, 2442, 1916, 34, 29, "Input",ExpressionUUID->"dd7b3324-1ab6-43b0-9e24-406f40fb34ba"], -Cell[90364, 2478, 1948, 48, 113, "Input",ExpressionUUID->"9e97f31a-ffaa-4f35-bb49-127a66bb73f7"], +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[92337, 2530, 2603, 74, 195, "Input",ExpressionUUID->"0209d30a-517c-4664-b87b-84799191f438"], -Cell[94943, 2606, 516, 11, 22, "Message",ExpressionUUID->"4b8e3482-7de8-46ff-964e-b784bf19ec01"] -}, Open ]], -Cell[CellGroupData[{ -Cell[95496, 2622, 8460, 207, 408, "Input",ExpressionUUID->"3a5095fb-bef7-4905-a187-ccc481ddd9ee"], -Cell[103959, 2831, 5539, 92, 113, "Output",ExpressionUUID->"f4fe93d1-1451-4efd-afba-c3cd1be008f9"], -Cell[109501, 2925, 4570, 66, 476, "Output",ExpressionUUID->"a56c26f6-7e0d-4c48-864d-05474ddc395a"] +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"] }, Open ]] } ] diff --git a/fractal_dimension/circle_counting_new/Cargo.lock b/fractal_dimension/circle_counting_new/Cargo.lock index 45fc21b..ba1509d 100644 --- a/fractal_dimension/circle_counting_new/Cargo.lock +++ b/fractal_dimension/circle_counting_new/Cargo.lock @@ -2,6 +2,15 @@ # It is not intended for manual editing. version = 3 +[[package]] +name = "ansi_term" +version = "0.11.0" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "ee49baf6cb617b853aa8d93bf420db2383fab46d314482ca2803b40d5fde979b" +dependencies = [ + "winapi", +] + [[package]] name = "approx" version = "0.5.0" @@ -11,12 +20,29 @@ dependencies = [ "num-traits", ] +[[package]] +name = "atty" +version = "0.2.14" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "d9b39be18770d11421cdb1b9947a45dd3f37e93092cbf377614828a319d5fee8" +dependencies = [ + "hermit-abi", + "libc", + "winapi", +] + [[package]] name = "autocfg" version = "1.0.1" source = "registry+https://github.com/rust-lang/crates.io-index" checksum = "cdb031dd78e28731d87d56cc8ffef4a8f36ca26c38fe2de700543e627f8a464a" +[[package]] +name = "bitflags" +version = "1.2.1" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "cf1de2fe8c75bc145a2f577add951f8134889b4795d47466a54a5c846d691693" + [[package]] name = "cfg-if" version = "1.0.0" @@ -27,8 +53,25 @@ checksum = "baf1de4339761588bc0619e3cbc0120ee582ebb74b53b4efbf79117bd2da40fd" name = "circle_counting" version = "0.1.0" dependencies = [ + "ansi_term", "linregress", "nalgebra", + "structopt", +] + +[[package]] +name = "clap" +version = "2.33.3" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "37e58ac78573c40708d45522f0d80fa2f01cc4f9b4e2bf749807255454312002" +dependencies = [ + "ansi_term", + "atty", + "bitflags", + "strsim", + "textwrap", + "unicode-width", + "vec_map", ] [[package]] @@ -42,6 +85,24 @@ dependencies = [ "wasi", ] +[[package]] +name = "heck" +version = "0.3.3" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "6d621efb26863f0e9924c6ac577e8275e5e6b77455db64ffa6c65c904e9e132c" +dependencies = [ + "unicode-segmentation", +] + +[[package]] +name = "hermit-abi" +version = "0.1.19" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "62b467343b94ba476dcb2500d242dadbb39557df889310ac77c5d99100aaac33" +dependencies = [ + "libc", +] + [[package]] name = "lazy_static" version = "1.4.0" @@ -160,6 +221,30 @@ version = "0.2.10" source = "registry+https://github.com/rust-lang/crates.io-index" checksum = "ac74c624d6b2d21f425f752262f42188365d7b8ff1aff74c82e45136510a4857" +[[package]] +name = "proc-macro-error" +version = "1.0.4" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "da25490ff9892aab3fcf7c36f08cfb902dd3e71ca0f9f9517bea02a73a5ce38c" +dependencies = [ + "proc-macro-error-attr", + "proc-macro2", + "quote", + "syn", + "version_check", +] + +[[package]] +name = "proc-macro-error-attr" +version = "1.0.4" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "a1be40180e52ecc98ad80b184934baf3d0d29f979574e439af5a55274b35f869" +dependencies = [ + "proc-macro2", + "quote", + "version_check", +] + [[package]] name = "proc-macro2" version = "1.0.27" @@ -259,6 +344,36 @@ dependencies = [ "rand", ] +[[package]] +name = "strsim" +version = "0.8.0" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "8ea5119cdb4c55b55d432abb513a0429384878c15dde60cc77b1c99de1a95a6a" + +[[package]] +name = "structopt" +version = "0.3.22" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "69b041cdcb67226aca307e6e7be44c8806423d83e018bd662360a93dabce4d71" +dependencies = [ + "clap", + "lazy_static", + "structopt-derive", +] + +[[package]] +name = "structopt-derive" +version = "0.4.15" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "7813934aecf5f51a54775e00068c237de98489463968231a51746bbbc03f9c10" +dependencies = [ + "heck", + "proc-macro-error", + "proc-macro2", + "quote", + "syn", +] + [[package]] name = "syn" version = "1.0.73" @@ -270,20 +385,75 @@ dependencies = [ "unicode-xid", ] +[[package]] +name = "textwrap" +version = "0.11.0" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "d326610f408c7a4eb6f51c37c330e496b08506c9457c9d34287ecc38809fb060" +dependencies = [ + "unicode-width", +] + [[package]] name = "typenum" version = "1.13.0" source = "registry+https://github.com/rust-lang/crates.io-index" checksum = "879f6906492a7cd215bfa4cf595b600146ccfac0c79bcbd1f3000162af5e8b06" +[[package]] +name = "unicode-segmentation" +version = "1.8.0" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "8895849a949e7845e06bd6dc1aa51731a103c42707010a5b591c0038fb73385b" + +[[package]] +name = "unicode-width" +version = "0.1.8" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "9337591893a19b88d8d87f2cec1e73fad5cdfd10e5a6f349f498ad6ea2ffb1e3" + [[package]] name = "unicode-xid" version = "0.2.2" source = "registry+https://github.com/rust-lang/crates.io-index" checksum = "8ccb82d61f80a663efe1f787a51b16b5a51e3314d6ac365b08639f52387b33f3" +[[package]] +name = "vec_map" +version = "0.8.2" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "f1bddf1187be692e79c5ffeab891132dfb0f236ed36a43c7ed39f1165ee20191" + +[[package]] +name = "version_check" +version = "0.9.3" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "5fecdca9a5291cc2b8dcf7dc02453fee791a280f3743cb0905f8822ae463b3fe" + [[package]] name = "wasi" version = "0.10.2+wasi-snapshot-preview1" source = "registry+https://github.com/rust-lang/crates.io-index" checksum = "fd6fbd9a79829dd1ad0cc20627bf1ed606756a7f77edff7b66b7064f9cb327c6" + +[[package]] +name = "winapi" +version = "0.3.9" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "5c839a674fcd7a98952e593242ea400abe93992746761e38641405d28b00f419" +dependencies = [ + "winapi-i686-pc-windows-gnu", + "winapi-x86_64-pc-windows-gnu", +] + +[[package]] +name = "winapi-i686-pc-windows-gnu" +version = "0.4.0" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "ac3b87c63620426dd9b991e5ce0329eff545bccbbb34f3be09ff6fb6ab51b7b6" + +[[package]] +name = "winapi-x86_64-pc-windows-gnu" +version = "0.4.0" +source = "registry+https://github.com/rust-lang/crates.io-index" +checksum = "712e227841d057c1ee1cd2fb22fa7e5a5461ae8e48fa2ca79ec42cfc1931183f" diff --git a/fractal_dimension/circle_counting_new/Cargo.toml b/fractal_dimension/circle_counting_new/Cargo.toml index 70a3743..ebf9f71 100644 --- a/fractal_dimension/circle_counting_new/Cargo.toml +++ b/fractal_dimension/circle_counting_new/Cargo.toml @@ -1,6 +1,7 @@ [package] name = "circle_counting" version = "0.1.0" +authors = [ "William Ball "] edition = "2018" # See more keys and their definitions at https://doc.rust-lang.org/cargo/reference/manifest.html @@ -8,3 +9,5 @@ edition = "2018" [dependencies] nalgebra = "*" linregress = "*" +structopt = "*" +ansi_term = "*" diff --git a/fractal_dimension/circle_counting_new/octahedron.txt b/fractal_dimension/circle_counting_new/octahedron.txt new file mode 100644 index 0000000..c7c83ad --- /dev/null +++ b/fractal_dimension/circle_counting_new/octahedron.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.}}} + +{-0.513181, 1.23893, 1.23893, 1.23893, 1.23893} + +{{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 new file mode 100644 index 0000000..321e3f7 --- /dev/null +++ b/fractal_dimension/circle_counting_new/src/lib.rs @@ -0,0 +1,101 @@ +use linregress::{FormulaRegressionBuilder, RegressionDataBuilder}; +use nalgebra::{DMatrix, DVector}; +use ansi_term::Color::Yellow; + +pub fn fractal_dimension( + generators: Vec>, + root: DVector, + faces: Vec>, + upper_bound: f64, + n: usize, + debug: bool, +) -> Result { + let mut totals = vec![root.len(); n]; + let mut current = vec![(root, std::usize::MAX)]; + let mut next = vec![]; + + let xs: Vec = (1..=n) + .map(|x| (x as f64 * upper_bound / (n as f64))) + .collect(); + + let mut i = 0; + loop { + next.clear(); + for (tuple, previous_generator) in ¤t { + for (i, generator) in generators.iter().enumerate() { + if i != *previous_generator { + let new_tuple = generator * tuple; + let mut add = false; + for (j, curvature) in new_tuple.iter().enumerate() { + let mut skip = false; + for face in &faces[i] { + if j == *face { + skip = true; + break; + } + } + if skip { + continue; + } + for (k, max) in xs.iter().enumerate() { + if curvature <= max { + if k == n - 1 { + add = true; + } + totals[k] += 1; + } + } + } + if add { + next.push((new_tuple, i)); + } + } + } + } + std::mem::swap(&mut current, &mut next); + + i += 1; + if debug { + println!("Generation {}:", i); + println!("\tnumber of leaves:\t{}", current.len()); + if !current.is_empty() { + println!("\trandom tuple:\t\t{}", current[current.len() / 2].0); + } + println!(); + } + + if current.is_empty() { + break; + } + } + + if debug { + println!("{}", Yellow.paint("Done counting circles!")); + println!("sample points:\n{:?}", xs); + println!("\nnumber of circles fewer than each of those sample points:\n{:?}", totals); + } + + let xs: Vec = xs.iter().map(|x| x.ln()).collect(); + let ys: Vec = totals.iter().map(|x| (*x as f64).ln()).collect(); + let data = vec![("Y", ys), ("X", xs)]; + let data = RegressionDataBuilder::new().build_from(data)?; + + let formula = "Y ~ X"; + let model = FormulaRegressionBuilder::new() + .data(&data) + .formula(formula) + .fit()?; + + if debug { + println!("\n{}", Yellow.paint("Built regression model!")); + println!("Model info:"); + println!("\tr^2:\t\t{}", model.rsquared); + println!("\tp-value:\t{}", model.pvalues.pairs()[0].1); + println!("\tintercept:\t{}", model.parameters.intercept_value); + println!("\tslope:\t{}", model.parameters.regressor_values[0]); + } + + let parameters = model.parameters; + + Ok(parameters.regressor_values[0]) +} diff --git a/fractal_dimension/circle_counting_new/src/main.rs b/fractal_dimension/circle_counting_new/src/main.rs index 8cabe69..b599f9c 100644 --- a/fractal_dimension/circle_counting_new/src/main.rs +++ b/fractal_dimension/circle_counting_new/src/main.rs @@ -1,79 +1,107 @@ -use nalgebra::{SMatrix, SVector}; -use linregress::{FormulaRegressionBuilder, RegressionDataBuilder}; +#![allow(dead_code)] -type Matrix4 = SMatrix; -type Vector4 = SVector; +use crate::{lib::fractal_dimension, parser::read_file}; +use std::process; +use structopt::StructOpt; -fn search(generators: &Vec, root: Vector4, upper_bound: f64) -> usize { - let mut current = vec![(root, 5)]; - let mut next = vec![]; - let mut total = 0; - loop { - next.clear(); - for (tuple, previous_generator) in ¤t { - for (i, generator) in generators.iter().enumerate() { - let new_tuple = generator * tuple; - if !(i == 0 && *previous_generator == 3) && !(i == 1 && *previous_generator == 2) && i != *previous_generator && new_tuple[i] < upper_bound && new_tuple.iter().sum::() > tuple.iter().sum() { - next.push((new_tuple, i)); - } - } - } +use ansi_term::Color::Yellow; - if current.is_empty() { - break; - } - total += next.len(); - std::mem::swap(&mut current, &mut next); - } - 2 * (total + root.len()) -} +mod lib; +mod parser; -fn fractal_dimension(generators: Vec, root: Vector4, upper_bound: f64, n: isize) -> Result { - let xs: Vec = (1..=n).map(|x| (x as f64 * upper_bound / (n as f64)).ln()).collect(); - let ys: Vec = xs.iter().map(|upper_bound| (search(&generators, root, upper_bound.exp()) as f64).ln()).collect(); +/// Compute fractal dimension of crystallographic packings via the circle counting method +#[derive(StructOpt)] +#[structopt(name = "Circle Counter")] +struct Opt { + /// File containing data in the order generators, root, faces + #[structopt(name = "data file")] + data_file: String, - let data = vec![("Y", ys), ("X", xs)]; - let data = RegressionDataBuilder::new().build_from(data)?; + /// Activate debug mode + #[structopt(short, long)] + debug: bool, - let formula = "Y ~ X"; - let model = FormulaRegressionBuilder::new() - .data(&data) - .formula(formula) - .fit()?; + /// Number of sample points in linear regression + #[structopt(short, long, default_value = "50")] + n: usize, - let parameters = model.parameters; - Ok(parameters.regressor_values[0]) + /// Maximum curvature of circles + #[structopt(short, long, default_value = "1000000")] + max: f64, + + /// Whether or not to time excecution (automatically enabled by --debug) + #[structopt(short, long)] + time: bool, } fn main() { - let generators = vec![ - Matrix4::new( - -1.0, 2.0, 2.0, 0.0, - 0.0, 1.0, 0.0, 0.0, - 0.0, 0.0, 1.0, 0.0, - 0.0, 0.0, 0.0, 1.0, - ), - Matrix4::new( - 1.0, 0.0, 0.0, 0.0, - 2.0, -1.0, 0.0, 2.0, - 0.0, 0.0, 1.0, 0.0, - 0.0, 0.0, 0.0, 1.0, - ), - Matrix4::new( - 1.0, 0.0, 0.0, 0.0, - 0.0, 1.0, 0.0, 0.0, - 2.0, 0.0, -1.0, 2.0, - 0.0, 0.0, 0.0, 1.0, - ), - Matrix4::new( - 1.0, 0.0, 0.0, 0.0, - 0.0, 1.0, 0.0, 0.0, - 0.0, 0.0, 1.0, 0.0, - 0.0, 2.0, 2.0, -1.0, - ), - ]; + let opt = Opt::from_args(); + let debug = opt.debug; + let time = debug || opt.time; - let root = Vector4::new(-2., 4., 5., 9.); + let beginning = std::time::Instant::now(); - println!("{}", fractal_dimension(generators, root, 10_000_000.0, 50).unwrap()); + let (generators, root, faces) = read_file(&opt.data_file).unwrap_or_else(|err| { + eprintln!("{}", err); + process::exit(-1); + }); + + let after_parsing = std::time::Instant::now(); + if time { + let duration = after_parsing.duration_since(beginning); + println!( + "Took {}s to parse {}", + duration.as_secs_f64(), + opt.data_file + ); + } + + if debug { + println!( + "{} (parsed from command args):\t{}", + Yellow.paint("max"), + opt.max + ); + println!( + "{} (parsed from command args):\t{}", + Yellow.paint("n"), + opt.n + ); + } + + if debug { + println!( + "{} (parsed from file {})", + Yellow.paint("Generators"), + opt.data_file + ); + for generator in &generators { + println!("{}", generator); + } + println!( + "{} (parsed from file {}):", + Yellow.paint("Root Tuple"), + opt.data_file + ); + println!("{}", root); + println!( + "{} (parsed from file {}):", + Yellow.paint("Faces"), + opt.data_file + ); + println!("{:?}\n", faces); + } + + let delta = fractal_dimension(generators, root, faces, opt.max, opt.n, debug).unwrap(); + let after_computing = std::time::Instant::now(); + if time { + let duration1 = after_computing.duration_since(after_parsing); + let duration2 = after_computing.duration_since(beginning); + println!( + "\nTook {}s to compute fractal dimension; {}s total", + duration1.as_secs_f64(), + duration2.as_secs_f64() + ); + } + println!("\n{}", delta); } diff --git a/fractal_dimension/circle_counting_new/src/parser.rs b/fractal_dimension/circle_counting_new/src/parser.rs new file mode 100644 index 0000000..867d810 --- /dev/null +++ b/fractal_dimension/circle_counting_new/src/parser.rs @@ -0,0 +1,393 @@ +use std::fs; + +use nalgebra::{DMatrix, DVector}; + +#[derive(Debug, PartialEq)] +enum TokenType { + OpenBracket, + CloseBracket, + Number(f64), + Error(String), + Comma, +} + +#[derive(Debug, PartialEq)] +struct Token { + ttype: TokenType, + line: usize, +} + +impl Token { + #[allow(dead_code)] + fn new(ttype: TokenType, line: usize) -> Token { + Token { ttype, line } + } +} + +struct TokenIterator<'a> { + data: std::iter::Peekable>, + line: usize, +} + +impl<'a> Iterator for TokenIterator<'a> { + type Item = Token; + + fn next(&mut self) -> Option { + let mut current: char = self.data.next()?; + while current.is_whitespace() { + if current == '\n' { + self.line += 1; + } + current = self.data.next()?; + } + use TokenType::*; + match current { + '{' => { + return Some(Token { + ttype: OpenBracket, + line: self.line, + }) + } + '}' => { + return Some(Token { + ttype: CloseBracket, + line: self.line, + }) + } + ',' => { + return Some(Token { + ttype: Comma, + line: self.line, + }) + } + _ => (), + } + if current.is_numeric() || current == '-' { + let mut s: String = "".into(); + loop { + s.push(current); + if let Some(c) = self.data.peek() { + current = *c; + } else { + break; + } + if !current.is_numeric() && current != '.' { + break; + } + let _ = self.data.next(); + } + + Some(Token { + ttype: Number(s.parse().ok()?), + line: self.line, + }) + } else { + Some(Token { + ttype: Error(format!("Invalid token {} on line {}", current, self.line)), + line: self.line, + }) + } + } +} + +fn lex(data: &str) -> TokenIterator { + TokenIterator { + data: data.chars().peekable(), + line: 1, + } +} + +#[derive(Debug, PartialEq)] +enum Value { + List(Vec), + Number(f64), +} + +fn eval_full(data: String) -> Result, String> { + let mut data = lex(data.as_str()).peekable(); + let mut values = vec![]; + while data.peek().is_some() { + values.push(eval(&mut data)?); + } + Ok(values) +} + +fn eval(data: &mut std::iter::Peekable) -> Result { + let token = data + .next() + .unwrap_or_else(|| Token::new(TokenType::Error("Unable to parse!".to_string()), 0)); + match token.ttype { + TokenType::OpenBracket => { + let mut list = vec![]; + while let Some(token) = data.peek() { + match &token.ttype { + TokenType::CloseBracket => { + data.next(); + break; + } + TokenType::Comma => { + return Err(format!("Unexpected ',' on line {}", token.line)); + } + TokenType::Error(e) => return Err(e.into()), + _ => list.push(eval(data)?), + }; + match data.peek() { + Some(Token { + ttype: TokenType::Comma, + .. + }) => { + data.next(); + } + Some(Token { + ttype: TokenType::CloseBracket, + .. + }) => (), + Some(Token { ttype, line }) => { + return Err(format!( + "Expected ',' or '}}' near line {}; got {:?}", + line, ttype + )) + } + None => { + return Err("Unexpected end of file".into()); + } + } + } + Ok(Value::List(list)) + } + TokenType::CloseBracket => Err(format!("Unexpected '}}' on line {}", token.line)), + TokenType::Number(num) => Ok(Value::Number(num)), + TokenType::Error(err) => Err(err), + TokenType::Comma => Err(format!("Unexpected ',' on line {}", token.line)), + } +} + +fn vector_to_rust_value(value: &Value) -> Result, String> { + let mut result = vec![]; + + if let Value::List(data) = value { + for datapoint in data { + if let Value::Number(num) = datapoint { + result.push(*num); + } else { + return Err(format!("Expected a number, got {:?}", datapoint)); + } + } + } else { + return Err(format!("Expected a list, got {:?}", value)); + } + + Ok(result) +} + +fn matrix_to_rust_value(value: &Value) -> Result>, String> { + let mut result = vec![]; + + if let Value::List(data) = value { + for row in data { + if let Value::List(_) = row { + result.push(vector_to_rust_value(row)?); + } + } + } else { + return Err(format!("Expected a list, got {:?}", value)); + } + + Ok(result) +} + +fn matrix_to_rust_value_flat(value: &Value) -> Result, String> { + let mut result = vec![]; + + if let Value::List(data) = value { + for row in data { + if let Value::List(_) = row { + result.append(&mut vector_to_rust_value(row)?); + } + } + } else { + return Err(format!("Expected a list, got {:?}", value)); + } + + Ok(result) +} + +pub type Generator = DMatrix; +pub type Root = DVector; +pub type FaceList = Vec>; +pub type Data = (Vec, Root, FaceList); +pub fn read_file(filename: &str) -> Result { + let contents = match fs::read_to_string(filename) { + Ok(contents) => contents, + _ => return Err(format!("Something went wrong with reading {}", filename)), + }; + + let results = eval_full(contents)?; + + let mut generators = vec![]; + if let Value::List(gens) = &results[0] { + for val in gens { + let mat = matrix_to_rust_value(val)?; + let mat2 = matrix_to_rust_value_flat(val)?; + generators.push(DMatrix::from_row_slice(mat.len(), mat[0].len(), &mat2)); + } + } else { + return Err(format!( + "Expected first value in file to be the generators; got {:?}", + results[0] + )); + } + + let root = vector_to_rust_value(&results[1])?; + let faces = matrix_to_rust_value(&results[2])?; + let faces = faces + .iter() + .map(|v| v.iter().map(|x| x.round() as usize).collect()) + .collect(); + + Ok((generators, DVector::from_column_slice(&root), faces)) +} + +#[cfg(test)] +mod test { + use super::*; + use TokenType::*; + + fn tok(ttype: TokenType, line: usize) -> Option { + Some(Token::new(ttype, line)) + } + + #[test] + fn parens() { + let mut lex = lex("{}"); + assert_eq!(lex.next(), tok(OpenBracket, 1)); + assert_eq!(lex.next(), tok(CloseBracket, 1)); + assert_eq!(lex.next(), None); + } + + #[test] + fn nums() { + let mut lex = lex("1.12341\n3.1415926535"); + assert_eq!(lex.next(), tok(Number(1.12341), 1)); + assert_eq!(lex.next(), tok(Number(3.1415926535), 2)); + assert_eq!(lex.next(), None); + } + + #[test] + fn list() { + let mut lex = lex("{1, 2, 3, 4}"); + assert_eq!(lex.next(), tok(OpenBracket, 1)); + assert_eq!(lex.next(), tok(Number(1.), 1)); + assert_eq!(lex.next(), tok(Comma, 1)); + assert_eq!(lex.next(), tok(Number(2.), 1)); + assert_eq!(lex.next(), tok(Comma, 1)); + assert_eq!(lex.next(), tok(Number(3.), 1)); + assert_eq!(lex.next(), tok(Comma, 1)); + assert_eq!(lex.next(), tok(Number(4.), 1)); + assert_eq!(lex.next(), tok(CloseBracket, 1)); + } + + #[test] + fn nums_eval() { + let res = eval_full("1.23".into()).unwrap(); + assert_eq!(res, vec![Value::Number(1.23)]); + } + + #[test] + fn empty_list_eval() { + let res = eval_full("{}".into()).unwrap(); + assert_eq!(res, vec![Value::List(vec![])]); + } + + #[test] + fn simple_list_eval() { + let res = eval_full("{1.1}".into()).unwrap(); + assert_eq!(res, vec![Value::List(vec![Value::Number(1.1)])]); + } + + #[test] + fn list_eval() { + let res = eval_full("{\n1.23\n,\n2.3\n,\n1.5\n}".into()).unwrap(); + assert_eq!( + res, + vec![Value::List(vec![ + Value::Number(1.23), + Value::Number(2.3), + Value::Number(1.5), + ])] + ); + } + + #[test] + fn multiple_lines_eval() { + let res = eval_full("1.0 \n {1.0, 2.0}\n".into()).unwrap(); + assert_eq!( + res, + vec![ + Value::Number(1.0), + Value::List(vec![Value::Number(1.0), Value::Number(2.0)]) + ] + ); + } + + #[test] + fn nested_list_eval() { + let res = eval_full("{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}".into()).unwrap(); + assert_eq!( + res, + vec![Value::List(vec![ + Value::List(vec![ + Value::Number(1.0), + Value::Number(0.0), + Value::Number(0.0) + ]), + Value::List(vec![ + Value::Number(0.0), + Value::Number(1.0), + Value::Number(0.0) + ]), + Value::List(vec![ + Value::Number(0.0), + Value::Number(0.0), + Value::Number(1.0) + ]) + ])] + ); + } + + #[test] + fn vector() { + let test = Value::List(vec![Value::Number(1.0), Value::Number(2.0)]); + assert_eq!(vector_to_rust_value(&test).unwrap(), vec![1.0, 2.0]); + } + + #[test] + fn matrix() { + let val = Value::List(vec![ + Value::List(vec![ + Value::Number(1.0), + Value::Number(0.0), + Value::Number(0.0), + ]), + Value::List(vec![ + Value::Number(0.0), + Value::Number(1.0), + Value::Number(0.0), + ]), + Value::List(vec![ + Value::Number(0.0), + Value::Number(0.0), + Value::Number(1.0), + ]), + ]); + let res = matrix_to_rust_value(&val).unwrap(); + assert_eq!( + res, + vec![ + vec![1.0, 0.0, 0.0], + vec![0.0, 1.0, 0.0], + vec![0.0, 0.0, 1.0] + ] + ); + } +} diff --git a/fractal_dimension/circle_counting_new/tetrahedron.txt b/fractal_dimension/circle_counting_new/tetrahedron.txt new file mode 100644 index 0000000..f85ffa4 --- /dev/null +++ b/fractal_dimension/circle_counting_new/tetrahedron.txt @@ -0,0 +1,30 @@ +{ + { + {-1, 2, 2, 2}, + {0, 1, 0, 0}, + {0, 0, 1, 0}, + {0, 0, 0, 1} + }, + { + {1, 0, 0, 0}, + {2, -1, 2, 2}, + {0, 0, 1, 0}, + {0, 0, 0, 1} + }, + { + {1, 0, 0, 0}, + {0, 1, 0, 0}, + {2, 2, -1, 2}, + {0, 0, 0, 1} + }, + { + {1, 0, 0, 0}, + {0, 1, 0, 0}, + {0, 0, 1, 0}, + {2, 2, 2, -1} + } +} + +{-6, 11, 14, 23} + +{{1, 2, 3}, {0, 2, 3}, {0, 1, 3}, {0, 1, 2}} diff --git a/fractal_dimension/fractal_dimension.nb b/fractal_dimension/fractal_dimension.nb index 5cb1f42..9fad8bf 100644 --- a/fractal_dimension/fractal_dimension.nb +++ b/fractal_dimension/fractal_dimension.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 94342, 2247] -NotebookOptionsPosition[ 87618, 2144] -NotebookOutlinePosition[ 88113, 2162] -CellTagsIndexPosition[ 88070, 2159] +NotebookDataLength[ 350173, 9762] +NotebookOptionsPosition[ 339655, 9594] +NotebookOutlinePosition[ 340150, 9612] +CellTagsIndexPosition[ 340107, 9609] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -311,7 +311,7 @@ Cell[BoxData[{ "\[IndentingNewLine]", RowBox[{"FindFace", "[", RowBox[{"g", ",", "emb"}], "]"}]}]}], "]"}]}], ";"}], - "\[IndentingNewLine]"}], "\n", + "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FindFace", "[", RowBox[{ @@ -982,8 +982,9 @@ Cell[BoxData["16384"], "Output", 3.834271489584754*^9, 3.834271596271693*^9, 3.834272147258156*^9, 3.834351698339382*^9, {3.834351996635762*^9, 3.834352017390819*^9}, 3.834363957483852*^9, {3.834364187716065*^9, 3.834364198004562*^9}, - 3.8344822107164927`*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"01549ef8-b8be-4d3a-8e70-747610dfb968"] + 3.8344822107164927`*^9, 3.83456973372355*^9, 3.834575082919744*^9, + 3.834577447902966*^9, 3.8345890154068213`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"208bb6f3-5571-4419-a56b-3d6d78e931b5"] }, Open ]], Cell[BoxData[ @@ -999,7 +1000,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"xs", "=", RowBox[{"Range", "[", - RowBox[{"1", ",", "max", ",", "delta"}], "]"}]}], ";", + RowBox[{"delta", ",", "max", ",", "delta"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"graph", "=", RowBox[{"graphFromG", "[", "G", "]"}]}], ";", "\[IndentingNewLine]", @@ -1041,14 +1042,19 @@ Cell[BoxData[ RowBox[{"params", "=", RowBox[{"nlm", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"nlm", "[", "\"\\"", "]"}], "]"}], ";", + "\[IndentingNewLine]", RowBox[{"b", "/.", "params"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8339647725688353`*^9, 3.8339649328744087`*^9}, { 3.833965051157412*^9, 3.8339650578368483`*^9}, {3.833965560813403*^9, 3.8339655739990377`*^9}, {3.833965620539852*^9, 3.833965639062742*^9}, { 3.833965942784672*^9, 3.833965996602522*^9}, {3.8342709119109173`*^9, - 3.8342709184846773`*^9}, {3.834271399281299*^9, 3.834271400142085*^9}}, - CellLabel->"In[21]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], + 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"], Cell[BoxData[ RowBox[{ @@ -1086,6 +1092,92 @@ Cell[BoxData[ 3.833979764905096*^9}, {3.833980891992284*^9, 3.833980904095957*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"pyramidG", "[", "5", "]"}], "//", "Simplify"}], "//", + "MatrixForm"}]], "Input", + CellChangeTimes->{{3.834589971082777*^9, 3.834589977737949*^9}}, + CellLabel->"In[81]:=",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}, + { + RowBox[{"-", "1"}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}, + { + RowBox[{"-", "1"}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], + RowBox[{"-", "1"}], "1"} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.834589978025352*^9}, + CellLabel-> + "Out[81]//MatrixForm=",ExpressionUUID->"04e15236-2789-4451-a36b-\ +e8e337d93be5"] +}, Open ]], + Cell[BoxData[ RowBox[{ RowBox[{"pyramidFractalDimension", "[", @@ -1122,6 +1214,4669 @@ Cell[BoxData[ 3.8339814414612226`*^9}, {3.833981948527481*^9, 3.8339819534472733`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"G", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1"}], "}"}]}], + "}"}]}]], "Input", + CellChangeTimes->{{3.834576684278866*^9, 3.83457673658538*^9}, { + 3.834577368235077*^9, 3.83457741966676*^9}, {3.834587930515738*^9, + 3.8345879754426622`*^9}, 3.834596514186092*^9, {3.8345965717252493`*^9, + 3.8345966680116*^9}, 3.834597106557557*^9}, + CellLabel-> + "In[108]:=",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.834577475644277*^9, 3.834587976288975*^9, {3.834589015445696*^9, + 3.8345890313170013`*^9}, 3.834589551887248*^9, 3.8345966690039873`*^9, + 3.83459710893034*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"baec0d9f-c58b-49f1-ad4c-951daa0af331"] +}, 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 ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"faces", "-", "1"}]], "Input", + CellChangeTimes->{{3.834588042134763*^9, 3.834588042907105*^9}}, + CellLabel-> + "In[110]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"faces", "=", + RowBox[{"FindFace", "[", + RowBox[{"PlanarGraph", "[", + RowBox[{"AdjacencyGraph", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"#", "\[Equal]", + RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", + "#"}], "&"}], "/@", "G"}], ",", + RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], "]"}], + "]"}]}]], "Input", + CellChangeTimes->{{3.834583137581257*^9, 3.834583138213504*^9}}, + CellLabel-> + "In[109]:=",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "14", ",", "9", ",", "10", ",", "15"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "15", ",", "4", ",", "8", ",", "16"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "16", ",", "7", ",", "3", ",", "14"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "5", ",", "11", ",", "12", ",", "6"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "6", ",", "20", ",", "18", ",", "13"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "13", ",", "17", ",", "19", ",", "5"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "7", ",", "11", ",", "5", ",", "19"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "19", ",", "17", ",", "9", ",", "14"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "15", ",", "10", ",", "18", ",", "20"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "20", ",", "6", ",", "12", ",", "8"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "16", ",", "8", ",", "12", ",", "11"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "17", ",", "13", ",", "18", ",", "10"}], "}"}]}], + "}"}]], "Output", + CellChangeTimes->{ + 3.8345829667142353`*^9, 3.8345831386319103`*^9, 3.8345879905510902`*^9, { + 3.8345890155099287`*^9, 3.834589033262504*^9}, 3.834589555012388*^9, + 3.834596688916205*^9, 3.8345971158718147`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"397017da-212d-4511-b251-a48ff7956925"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + 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"], + Cell[BoxData[ RowBox[{"(*", RowBox[{"Timing", "[", @@ -1148,338 +5903,2703 @@ nCuFkXw+edthQg2tfv4mw5TxoimmvyyF1FrpFkAvHz6pibdYP81csdmeLE5e 2wotFzaSMstzjb+YV1xlpMepL2MGt0Y9YxWDJHfh+BIuc+B+AhkVXTdhxDwz xJmCv+1PhBkzH5blkx0O5QWwpFZD/gdS9J8/ "], - CellLabel->"In[24]:=",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"], + CellLabel->"In[29]:=",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{ - RowBox[{"G", "=", - RowBox[{"RootApproximant", "[", + RowBox[{"G", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ - RowBox[{"{", - RowBox[{"1.0000000000000004`", ",", - RowBox[{"-", "4.603875471609728`"}], ",", - RowBox[{"-", "17.195669358089372`"}], ",", - RowBox[{"-", "27.293504037134028`"}], ",", - RowBox[{"-", "27.293504037134024`"}], ",", - RowBox[{"-", "17.195669358089397`"}], ",", - RowBox[{"-", "4.603875471609722`"}], ",", - RowBox[{"-", "1.0000000000000415`"}], ",", - RowBox[{"-", "1.0000000000000464`"}], ",", - RowBox[{"-", "11.097834679044736`"}], ",", - RowBox[{"-", "23.68962856552439`"}], ",", - RowBox[{"-", "29.29350403713411`"}], ",", - RowBox[{"-", "23.689628565524348`"}], ",", - RowBox[{"-", "11.097834679044773`"}], ",", - RowBox[{"-", "1.0000000000000546`"}], ",", - RowBox[{"-", "2.1099162641748395`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1"}], "}"}]}], + "}"}]}]], "Input", + CellLabel->"In[30]:=",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "4.603875471609728`"}], ",", "0.9999999999999993`", ",", - - RowBox[{"-", "4.603875471609711`"}], ",", - RowBox[{"-", "17.195669358089315`"}], ",", - RowBox[{"-", "27.293504037133978`"}], ",", - RowBox[{"-", "27.29350403713407`"}], ",", - RowBox[{"-", "17.19566935808935`"}], ",", - RowBox[{"-", "11.09783467904471`"}], ",", - RowBox[{"-", "1.0000000000000389`"}], ",", - RowBox[{"-", "1.0000000000000369`"}], ",", - RowBox[{"-", "11.097834679044713`"}], ",", - RowBox[{"-", "23.689628565524337`"}], ",", - RowBox[{"-", "29.293504037134017`"}], ",", - RowBox[{"-", "23.689628565524426`"}], ",", - RowBox[{"-", "1.0000000000000546`"}], ",", - RowBox[{"-", "2.109916264174834`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "17.195669358089372`"}], ",", - RowBox[{"-", "4.603875471609711`"}], ",", "0.9999999999999978`", ",", - - RowBox[{"-", "4.603875471609712`"}], ",", - RowBox[{"-", "17.19566935808932`"}], ",", - RowBox[{"-", "27.293504037134067`"}], ",", - RowBox[{"-", "27.29350403713402`"}], ",", - RowBox[{"-", "23.689628565524316`"}], ",", - RowBox[{"-", "11.097834679044697`"}], ",", - RowBox[{"-", "1.0000000000000435`"}], ",", - RowBox[{"-", "1.0000000000000424`"}], ",", - RowBox[{"-", "11.097834679044714`"}], ",", - RowBox[{"-", "23.689628565524323`"}], ",", - RowBox[{"-", "29.293504037134156`"}], ",", - RowBox[{"-", "1.0000000000000537`"}], ",", - RowBox[{"-", "2.109916264174835`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "27.293504037134028`"}], ",", - RowBox[{"-", "17.195669358089315`"}], ",", - RowBox[{"-", "4.603875471609712`"}], ",", "0.999999999999999`", ",", - RowBox[{"-", "4.603875471609698`"}], ",", - RowBox[{"-", "17.195669358089347`"}], ",", - RowBox[{"-", "27.29350403713398`"}], ",", - RowBox[{"-", "29.293504037133978`"}], ",", - RowBox[{"-", "23.68962856552428`"}], ",", - RowBox[{"-", "11.097834679044709`"}], ",", - RowBox[{"-", "1.0000000000000397`"}], ",", - RowBox[{"-", "1.0000000000000369`"}], ",", - RowBox[{"-", "11.09783467904469`"}], ",", - RowBox[{"-", "23.68962856552439`"}], ",", - RowBox[{"-", "1.0000000000000524`"}], ",", - RowBox[{"-", "2.1099162641748315`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "27.293504037134024`"}], ",", - RowBox[{"-", "27.293504037133978`"}], ",", - RowBox[{"-", "17.19566935808932`"}], ",", - RowBox[{"-", "4.603875471609698`"}], ",", "0.9999999999999971`", ",", - - RowBox[{"-", "4.603875471609718`"}], ",", - RowBox[{"-", "17.195669358089315`"}], ",", - RowBox[{"-", "23.689628565524277`"}], ",", - RowBox[{"-", "29.293504037133978`"}], ",", - RowBox[{"-", "23.689628565524316`"}], ",", - RowBox[{"-", "11.097834679044704`"}], ",", - RowBox[{"-", "1.000000000000044`"}], ",", - RowBox[{"-", "1.0000000000000373`"}], ",", - RowBox[{"-", "11.097834679044743`"}], ",", - RowBox[{"-", "1.0000000000000517`"}], ",", - RowBox[{"-", "2.109916264174833`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "17.195669358089397`"}], ",", - RowBox[{"-", "27.29350403713407`"}], ",", - RowBox[{"-", "27.293504037134067`"}], ",", - RowBox[{"-", "17.195669358089347`"}], ",", - RowBox[{"-", "4.603875471609718`"}], ",", "1.000000000000002`", ",", - RowBox[{"-", "4.60387547160972`"}], ",", - RowBox[{"-", "11.097834679044714`"}], ",", - RowBox[{"-", "23.689628565524355`"}], ",", - RowBox[{"-", "29.29350403713411`"}], ",", - RowBox[{"-", "23.689628565524387`"}], ",", - RowBox[{"-", "11.09783467904475`"}], ",", - RowBox[{"-", "1.0000000000000386`"}], ",", - RowBox[{"-", "1.000000000000049`"}], ",", - RowBox[{"-", "1.000000000000056`"}], ",", - RowBox[{"-", "2.1099162641748386`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "4.603875471609722`"}], ",", - RowBox[{"-", "17.19566935808935`"}], ",", - RowBox[{"-", "27.29350403713402`"}], ",", - RowBox[{"-", "27.29350403713398`"}], ",", - RowBox[{"-", "17.195669358089315`"}], ",", - RowBox[{"-", "4.60387547160972`"}], ",", "0.9999999999999964`", ",", - RowBox[{"-", "1.0000000000000377`"}], ",", - RowBox[{"-", "11.09783467904471`"}], ",", - RowBox[{"-", "23.689628565524345`"}], ",", - RowBox[{"-", "29.293504037134056`"}], ",", - RowBox[{"-", "23.689628565524348`"}], ",", - RowBox[{"-", "11.097834679044695`"}], ",", - RowBox[{"-", "1.000000000000048`"}], ",", - RowBox[{"-", "1.0000000000000544`"}], ",", - RowBox[{"-", "2.109916264174834`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "1.0000000000000415`"}], ",", - RowBox[{"-", "11.09783467904471`"}], ",", - RowBox[{"-", "23.689628565524316`"}], ",", - RowBox[{"-", "29.293504037133978`"}], ",", - RowBox[{"-", "23.689628565524277`"}], ",", - RowBox[{"-", "11.097834679044714`"}], ",", - RowBox[{"-", "1.0000000000000377`"}], ",", "1.0000000000000029`", ",", - RowBox[{"-", "4.6038754716097054`"}], ",", - RowBox[{"-", "17.19566935808932`"}], ",", - RowBox[{"-", "27.293504037133985`"}], ",", - RowBox[{"-", "27.29350403713398`"}], ",", - RowBox[{"-", "17.195669358089283`"}], ",", - RowBox[{"-", "4.603875471609719`"}], ",", - RowBox[{"-", "2.1099162641748332`"}], ",", - RowBox[{"-", "1.0000000000000515`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "1.0000000000000464`"}], ",", - RowBox[{"-", "1.0000000000000389`"}], ",", - RowBox[{"-", "11.097834679044697`"}], ",", - RowBox[{"-", "23.68962856552428`"}], ",", - RowBox[{"-", "29.293504037133978`"}], ",", - RowBox[{"-", "23.689628565524355`"}], ",", - RowBox[{"-", "11.09783467904471`"}], ",", - RowBox[{"-", "4.6038754716097054`"}], ",", "0.9999999999999983`", ",", - RowBox[{"-", "4.603875471609701`"}], ",", - RowBox[{"-", "17.195669358089315`"}], ",", - RowBox[{"-", "27.293504037133978`"}], ",", - RowBox[{"-", "27.293504037133946`"}], ",", - RowBox[{"-", "17.195669358089383`"}], ",", - RowBox[{"-", "2.109916264174833`"}], ",", - RowBox[{"-", "1.000000000000051`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "11.097834679044736`"}], ",", - RowBox[{"-", "1.0000000000000369`"}], ",", - RowBox[{"-", "1.0000000000000435`"}], ",", - RowBox[{"-", "11.097834679044709`"}], ",", - RowBox[{"-", "23.689628565524316`"}], ",", - RowBox[{"-", "29.29350403713411`"}], ",", - RowBox[{"-", "23.689628565524345`"}], ",", - RowBox[{"-", "17.19566935808932`"}], ",", - RowBox[{"-", "4.603875471609701`"}], ",", "1.`", ",", - RowBox[{"-", "4.603875471609716`"}], ",", - RowBox[{"-", "17.19566935808934`"}], ",", - RowBox[{"-", "27.29350403713399`"}], ",", - RowBox[{"-", "27.293504037134106`"}], ",", - RowBox[{"-", "2.1099162641748364`"}], ",", - RowBox[{"-", "1.0000000000000524`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "23.68962856552439`"}], ",", - RowBox[{"-", "11.097834679044713`"}], ",", - RowBox[{"-", "1.0000000000000424`"}], ",", - RowBox[{"-", "1.0000000000000397`"}], ",", - RowBox[{"-", "11.097834679044704`"}], ",", - RowBox[{"-", "23.689628565524387`"}], ",", - RowBox[{"-", "29.293504037134056`"}], ",", - RowBox[{"-", "27.293504037133985`"}], ",", - RowBox[{"-", "17.195669358089315`"}], ",", - RowBox[{"-", "4.603875471609716`"}], ",", "0.9999999999999998`", ",", - - RowBox[{"-", "4.60387547160971`"}], ",", - RowBox[{"-", "17.195669358089326`"}], ",", - RowBox[{"-", "27.293504037134106`"}], ",", - RowBox[{"-", "2.1099162641748364`"}], ",", - RowBox[{"-", "1.0000000000000524`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "29.29350403713411`"}], ",", - RowBox[{"-", "23.689628565524337`"}], ",", - RowBox[{"-", "11.097834679044714`"}], ",", - RowBox[{"-", "1.0000000000000369`"}], ",", - RowBox[{"-", "1.000000000000044`"}], ",", - RowBox[{"-", "11.09783467904475`"}], ",", - RowBox[{"-", "23.689628565524348`"}], ",", - RowBox[{"-", "27.29350403713398`"}], ",", - RowBox[{"-", "27.293504037133978`"}], ",", - RowBox[{"-", "17.19566935808934`"}], ",", - RowBox[{"-", "4.60387547160971`"}], ",", "0.9999999999999984`", ",", - RowBox[{"-", "4.603875471609714`"}], ",", - RowBox[{"-", "17.195669358089404`"}], ",", - RowBox[{"-", "2.109916264174836`"}], ",", - RowBox[{"-", "1.0000000000000533`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "23.689628565524348`"}], ",", - RowBox[{"-", "29.293504037134017`"}], ",", - RowBox[{"-", "23.689628565524323`"}], ",", - RowBox[{"-", "11.09783467904469`"}], ",", - RowBox[{"-", "1.0000000000000373`"}], ",", - RowBox[{"-", "1.0000000000000386`"}], ",", - RowBox[{"-", "11.097834679044695`"}], ",", - RowBox[{"-", "17.195669358089283`"}], ",", - RowBox[{"-", "27.293504037133946`"}], ",", - RowBox[{"-", "27.29350403713399`"}], ",", - RowBox[{"-", "17.195669358089326`"}], ",", - RowBox[{"-", "4.603875471609714`"}], ",", "1.0000000000000047`", ",", - - RowBox[{"-", "4.60387547160972`"}], ",", - RowBox[{"-", "2.109916264174833`"}], ",", - RowBox[{"-", "1.0000000000000515`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "11.097834679044773`"}], ",", - RowBox[{"-", "23.689628565524426`"}], ",", - RowBox[{"-", "29.293504037134156`"}], ",", - RowBox[{"-", "23.68962856552439`"}], ",", - RowBox[{"-", "11.097834679044743`"}], ",", - RowBox[{"-", "1.000000000000049`"}], ",", - RowBox[{"-", "1.000000000000048`"}], ",", - RowBox[{"-", "4.603875471609719`"}], ",", - RowBox[{"-", "17.195669358089383`"}], ",", - RowBox[{"-", "27.293504037134106`"}], ",", - RowBox[{"-", "27.293504037134106`"}], ",", - RowBox[{"-", "17.195669358089404`"}], ",", - RowBox[{"-", "4.60387547160972`"}], ",", "1.0000000000000004`", ",", - RowBox[{"-", "2.109916264174844`"}], ",", - RowBox[{"-", "1.0000000000000555`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "1.0000000000000546`"}], ",", - RowBox[{"-", "1.0000000000000546`"}], ",", - RowBox[{"-", "1.0000000000000537`"}], ",", - RowBox[{"-", "1.0000000000000524`"}], ",", - RowBox[{"-", "1.0000000000000517`"}], ",", - RowBox[{"-", "1.000000000000056`"}], ",", - RowBox[{"-", "1.0000000000000544`"}], ",", - RowBox[{"-", "2.1099162641748332`"}], ",", - RowBox[{"-", "2.109916264174833`"}], ",", - RowBox[{"-", "2.1099162641748364`"}], ",", - RowBox[{"-", "2.1099162641748364`"}], ",", - RowBox[{"-", "2.109916264174836`"}], ",", - RowBox[{"-", "2.109916264174833`"}], ",", - RowBox[{"-", "2.109916264174844`"}], ",", "1.`", ",", - RowBox[{"-", "1.3418303776543883`"}]}], "}"}], ",", - RowBox[{"{", + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", RowBox[{ - RowBox[{"-", "2.1099162641748395`"}], ",", - RowBox[{"-", "2.109916264174834`"}], ",", - RowBox[{"-", "2.109916264174835`"}], ",", - RowBox[{"-", "2.1099162641748315`"}], ",", - RowBox[{"-", "2.109916264174833`"}], ",", - RowBox[{"-", "2.1099162641748386`"}], ",", - RowBox[{"-", "2.109916264174834`"}], ",", - RowBox[{"-", "1.0000000000000515`"}], ",", - RowBox[{"-", "1.000000000000051`"}], ",", - RowBox[{"-", "1.0000000000000524`"}], ",", - RowBox[{"-", "1.0000000000000524`"}], ",", - RowBox[{"-", "1.0000000000000533`"}], ",", - RowBox[{"-", "1.0000000000000515`"}], ",", - RowBox[{"-", "1.0000000000000555`"}], ",", - RowBox[{"-", "1.3418303776543883`"}], ",", "0.9999999999999996`"}], - "}"}]}], "}"}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8341807402994127`*^9, 3.834180742133628*^9}, { - 3.834181255097064*^9, 3.834181261469574*^9}, 3.8342265115681334`*^9, { - 3.834269547654948*^9, 3.83426955234289*^9}, {3.834279263308406*^9, - 3.834279266598548*^9}, 3.834312777485221*^9}, - CellLabel->"In[25]:=",ExpressionUUID->"6704429c-f8d8-488f-aa44-b58e4afb791d"], + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.834569733781122*^9, 3.8345750830053596`*^9, + 3.8345774480010633`*^9, 3.834589015844344*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"57a026c0-3553-4b54-8ef1-dfc635475a5a"] +}, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"root", "=", - RowBox[{"-", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "2.6755033759230464`"}], ",", - RowBox[{"-", "2.6755033759230358`"}], ",", - RowBox[{"-", "2.6755033759230473`"}], ",", - RowBox[{"-", "2.6755033759230344`"}], ",", - RowBox[{"-", "2.6755033759230398`"}], ",", - RowBox[{"-", "2.6755033759230433`"}], ",", - RowBox[{"-", "3.71077955633303`"}], ",", - RowBox[{"-", "3.7107795563330153`"}], ",", - RowBox[{"-", "3.7107795563330184`"}], ",", - RowBox[{"-", "3.71077955633302`"}], ",", - RowBox[{"-", "3.7107795563330255`"}], ",", - RowBox[{"-", "3.710779556333014`"}], ",", "0.6213743677192812`", ",", - RowBox[{"-", "1.6093357755815325`"}]}], "}"}]}]}], ";"}]], "Input", + RowBox[{"{", + RowBox[{ + "1.6838616297871791`", ",", "3.5522063477126107`", ",", + "0.5291610914079277`", ",", "3.5522063477126107`", ",", + "1.6838616297871791`", ",", "3.5522063477126107`", ",", + RowBox[{"-", "0.18448308813825243`"}], ",", "1.6838616297871791`", ",", + "3.5522063477126107`", ",", "4.706906886091862`", ",", + "0.5291610914079277`", ",", "1.6838616297871791`", ",", + "4.706906886091862`", ",", "1.6838616297871791`", ",", + "3.5522063477126107`", ",", "0.5291610914079277`", ",", + "3.5522063477126107`", ",", "5.420551065638042`", ",", + "1.6838616297871791`", ",", "4.706906886091862`"}], "}"}]}], + ";"}]], "Input", CellChangeTimes->{{3.834180875764398*^9, 3.834180877609824*^9}, 3.834181270520502*^9, 3.83422655699443*^9, {3.8342695416310997`*^9, - 3.83426954395999*^9}, {3.8342792723452053`*^9, 3.8342792750702457`*^9}}, - CellLabel->"In[26]:=",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"], + 3.83426954395999*^9}, {3.8342792723452053`*^9, 3.8342792750702457`*^9}, { + 3.8345696488890333`*^9, 3.8345696650351*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"], Cell[BoxData[ RowBox[{"(*", RowBox[{"fractalDimensionFromG", "[", - RowBox[{"G", ",", "100000", ",", "5000", ",", "root"}], "]"}], + RowBox[{"G", ",", "10000", ",", "100", ",", "root"}], "]"}], "*)"}]], "Input", CellChangeTimes->CompressedData[" -1:eJxTTMoPSmViYGCQBGIQbcVkM4V34htH44urpoFojaM8C0D0BPZ5i0D0oq6r +1:eJxTTMoPSmViYGCQBmIQbcVkM4V34htH44urpoFojaM8C0D0BPZ5i0D0oq6r t0D00+02t0H0uvfuU/iAtO2HxWDaT7z6B4j+t6oHTD8PsWIRANJHHpwE08e/ lHGC6EX2jWD6WLcVP4j+vb9aAET/b1/8DUR/LHoCplfxzykSAdmTfrAYRDP8 1VURA9Jxtk5gumSqUasckH4T5AOmtbbtXQSiLdJ3LwXRrSrcV0F0u3g6mA6K e9kiD/KX9JxWEL3ms/UEPSDNJXwDTIt4L9MyBtJnRIS0QXSCltgnEyD9rD0V TJcKCB42BdIV1xvA9Emb+mOWQHpa7FcwPWPLnCueQFos+ymYzr/WvsEPZF7+ -2o0g+rXFW/YiIG32UpkDRAeoPTQG0bstvExAtNU+HpUKIM3ikwumAUXbxEc= - +2o0g+rXFW/YiIG32UpkDRAeoPTQG0bstvExAtNU+HpUKIM3ikwum7yj2194B +0nVrJ9aDaBX/8zL3gfTbMG5ZEA0A/HzVxA== "], - CellLabel->"In[27]:=",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"], + CellLabel->"In[32]:=",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"], Cell[BoxData[ RowBox[{ @@ -1493,7 +8613,7 @@ Cell[BoxData[ }]}], ";"}]], "Input", CellChangeTimes->{{3.8342676567311163`*^9, 3.83426770251457*^9}, { 3.83436362090779*^9, 3.834363621444234*^9}}, - CellLabel->"In[28]:=",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"], + CellLabel->"In[33]:=",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"], Cell[BoxData[ RowBox[{ @@ -1508,7 +8628,7 @@ Cell[BoxData[ {"0", "0", "0", "1"} }]}], ";"}]], "Input", CellChangeTimes->{{3.8342676843163633`*^9, 3.8342677012142773`*^9}}, - CellLabel->"In[29]:=",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"], + CellLabel->"In[34]:=",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"], Cell[BoxData[ RowBox[{ @@ -1533,7 +8653,7 @@ 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[30]:=",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"], + CellLabel->"In[35]:=",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"], Cell[CellGroupData[{ @@ -1542,7 +8662,7 @@ Cell[BoxData[ RowBox[{"W", ".", "P", ".", RowBox[{"Transpose", "[", "W", "]"}]}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.8343633434683943`*^9, 3.8343633944968452`*^9}}, - CellLabel->"In[31]:=",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"], + CellLabel->"In[36]:=",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"], Cell[BoxData[ TagBox[ @@ -1576,10 +8696,11 @@ Cell[BoxData[ MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.834363345042426*^9, 3.834363394907709*^9}, 3.834363624185574*^9, 3.8343639801334887`*^9, 3.834364198424225*^9, - 3.8344822111507607`*^9}, + 3.8344822111507607`*^9, 3.834575083100013*^9, 3.834577448081056*^9, + 3.834589015904508*^9}, CellLabel-> - "Out[31]//MatrixForm=",ExpressionUUID->"e582e1b7-3a92-42e5-9860-\ -07dc5edd51c3"] + "Out[36]//MatrixForm=",ExpressionUUID->"cac5a00b-999e-46da-a490-\ +742406c40b81"] }, Open ]], Cell[CellGroupData[{ @@ -1592,7 +8713,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.834267747292341*^9, 3.8342677548359013`*^9}}, - CellLabel->"In[32]:=",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"], + CellLabel->"In[37]:=",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"], Cell[BoxData[ RowBox[{"{", @@ -1609,8 +8730,9 @@ Cell[BoxData[ 3.834271120588587*^9}, 3.834271489634482*^9, 3.834271596319798*^9, 3.834272147330011*^9, 3.83435169877804*^9, {3.834351997024363*^9, 3.83435201778999*^9}, 3.834363031990286*^9, 3.8343639822501802`*^9, - 3.834364198444326*^9, 3.834482211167481*^9}, - CellLabel->"Out[32]=",ExpressionUUID->"d97b2070-ad71-4943-811d-dbb00b08a905"] + 3.834364198444326*^9, 3.834482211167481*^9, 3.8345750831330767`*^9, + 3.8345774481382933`*^9, 3.834589015933384*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"7d6b07cd-6f61-47b9-a291-783f25ec86b6"] }, Open ]], Cell[CellGroupData[{ @@ -1623,7 +8745,7 @@ Cell[BoxData[ RowBox[{"Inverse", "[", "G", "]"}], ".", "v"}], "]"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.834267725468601*^9, 3.8342677925075703`*^9}}, - CellLabel->"In[33]:=",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"], + CellLabel->"In[38]:=",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"], Cell[BoxData[ RowBox[{ @@ -1655,8 +8777,9 @@ Cell[BoxData[ 3.8342714896514177`*^9, 3.8342715963354807`*^9, 3.834272147359429*^9, 3.834351698797674*^9, {3.834351997045382*^9, 3.834352017818926*^9}, 3.8343630336046457`*^9, 3.834363655137488*^9, 3.834363983393931*^9, - 3.834364198463523*^9, 3.834482211190282*^9}, - CellLabel->"Out[33]=",ExpressionUUID->"1f518cc9-445b-457c-87bb-e970a9f63962"] + 3.834364198463523*^9, 3.834482211190282*^9, 3.8345750832348633`*^9, + 3.834577448173585*^9, 3.834589015963715*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"67cd614c-4268-488b-a193-4f6671507bf9"] }, Open ]], Cell[CellGroupData[{ @@ -1675,7 +8798,7 @@ 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[34]:=",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"], + CellLabel->"In[39]:=",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"], Cell[BoxData[ RowBox[{ @@ -1693,8 +8816,9 @@ Cell[BoxData[ 3.834272147424893*^9, 3.834351698900364*^9, {3.834351997068961*^9, 3.8343520178647337`*^9}, 3.834363718053323*^9, {3.834363758388579*^9, 3.834363781827297*^9}, 3.834363813182411*^9, 3.834363984591229*^9, - 3.834364198514433*^9, 3.834482211280281*^9}, - CellLabel->"Out[34]=",ExpressionUUID->"f281d64e-2bd2-4404-a12b-91c481932e4f"] + 3.834364198514433*^9, 3.834482211280281*^9, 3.834575083299467*^9, + 3.834577448258504*^9, 3.8345890159941797`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"3bbae71c-fb23-4709-acd8-386ff5507428"] }, Open ]], Cell[BoxData[ @@ -1727,8 +8851,9 @@ Cell[BoxData[ RowBox[{"-", "1"}]} }]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.834268212750614*^9, 3.834268282815816*^9}, { - 3.834363829310417*^9, 3.834363843669476*^9}}, - CellLabel->"In[35]:=",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"], + 3.834363829310417*^9, 3.834363843669476*^9}, {3.8345750674014187`*^9, + 3.834575069172274*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"], Cell[BoxData[ RowBox[{ @@ -1744,7 +8869,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.8342682912805243`*^9, 3.8342683139154463`*^9}}, - CellLabel->"In[36]:=",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"], + CellLabel->"In[41]:=",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"], Cell[BoxData[ RowBox[{ @@ -1761,7 +8886,7 @@ 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[51]:=",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"], + CellLabel->"In[42]:=",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"], Cell[CellGroupData[{ @@ -1773,7 +8898,7 @@ 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[38]:=",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"], + CellLabel->"In[43]:=",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"], Cell[BoxData[ RowBox[{ @@ -1791,8 +8916,9 @@ Cell[BoxData[ 3.834271120685095*^9}, 3.834271489740806*^9, 3.834271596418852*^9, 3.834272147466762*^9, 3.83435169892546*^9, {3.834351997102436*^9, 3.834352017902173*^9}, 3.8343638625127087`*^9, 3.8343641985475082`*^9, - 3.834482211308651*^9}, - CellLabel->"Out[38]=",ExpressionUUID->"f32c4a39-1ea0-4bb6-92bb-6c5bd406b5f7"] + 3.834482211308651*^9, 3.8345750833323193`*^9, 3.8345774482991858`*^9, + 3.834589016036188*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"d21b34dc-b15a-4d52-aa97-64f2b690b80a"] }, Open ]], Cell[CellGroupData[{ @@ -1814,7 +8940,7 @@ 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[39]:=",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"], + CellLabel->"In[44]:=",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"], Cell[BoxData[ RowBox[{ @@ -1827,8 +8953,9 @@ Cell[BoxData[ 3.8343520179283743`*^9}, 3.834363005076951*^9, {3.834363037375724*^9, 3.83436304561241*^9}, {3.834363182886771*^9, 3.8343632500565157`*^9}, 3.834363852750724*^9, 3.834364198566584*^9, 3.834364495261963*^9, - 3.8344822113242693`*^9}, - CellLabel->"Out[39]=",ExpressionUUID->"f657ef8e-52a6-4528-993a-bd1335363ffa"] + 3.8344822113242693`*^9, 3.834575083355125*^9, 3.83457744832612*^9, + 3.8345890160646973`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"82ed7f2c-3ee7-4e3c-a922-3b11168e5232"] }, Open ]], Cell[BoxData[ @@ -1846,62 +8973,65 @@ 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[40]:=",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"], + CellLabel->"In[45]:=",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"], -Cell[BoxData[ - RowBox[{"(*", - RowBox[{ - RowBox[{"sigmas", "=", - RowBox[{"{", "\[IndentingNewLine]", - RowBox[{GridBox[{ - { - RowBox[{"-", "1"}], "2", "2", "2"}, - {"0", "1", "0", "0"}, - {"0", "0", "1", "0"}, - {"0", "0", "0", "1"} - }], ",", GridBox[{ - {"1", "0", "0", "0"}, - {"2", - RowBox[{"-", "1"}], "2", "2"}, - {"0", "0", "1", "0"}, - {"0", "0", "0", "1"} - }], ",", GridBox[{ - {"1", "0", "0", "0"}, - {"0", "1", "0", "0"}, - {"2", "2", - RowBox[{"-", "1"}], "2"}, - {"0", "0", "0", "1"} - }], ",", GridBox[{ - {"1", "0", "0", "0"}, - {"0", "1", "0", "0"}, - {"0", "0", "1", "0"}, - {"2", "2", "2", - RowBox[{"-", "1"}]} - }]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", - RowBox[{"faces", "=", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", - RowBox[{"{", - RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", - RowBox[{"{", - RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", - RowBox[{"{", - RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], ";", - "\[IndentingNewLine]", - RowBox[{"root", "=", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "6"}], ",", "11", ",", "14", ",", "23"}], "}"}]}], ";", - "\[IndentingNewLine]", - RowBox[{"Timing", "[", +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"sigmas", "=", + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{GridBox[{ + { + RowBox[{"-", "1"}], "2", "2", "2"}, + {"0", "1", "0", "0"}, + {"0", "0", "1", "0"}, + {"0", "0", "0", "1"} + }], ",", GridBox[{ + {"1", "0", "0", "0"}, + {"2", + RowBox[{"-", "1"}], "2", "2"}, + {"0", "0", "1", "0"}, + {"0", "0", "0", "1"} + }], ",", GridBox[{ + {"1", "0", "0", "0"}, + {"0", "1", "0", "0"}, + {"2", "2", + RowBox[{"-", "1"}], "2"}, + {"0", "0", "0", "1"} + }], ",", GridBox[{ + {"1", "0", "0", "0"}, + {"0", "1", "0", "0"}, + {"0", "0", "1", "0"}, + {"2", "2", "2", + RowBox[{"-", "1"}]} + }]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"faces", "=", + RowBox[{"{", RowBox[{ - RowBox[{"search", "[", - RowBox[{"sigmas", ",", - RowBox[{"N", "[", "root", "]"}], ",", - RowBox[{"{", "}"}], ",", "100000", ",", "faces"}], "]"}], "+", - RowBox[{"Length", "[", "root", "]"}]}], "]"}]}], "*)"}]], "Input", + RowBox[{"{", + RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"root", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "6"}], ",", "11", ",", "14", ",", "23"}], "}"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"Timing", "[", + RowBox[{ + RowBox[{"search", "[", + RowBox[{"sigmas", ",", + RowBox[{"N", "[", "root", "]"}], ",", + RowBox[{"{", "}"}], ",", "2000", ",", "faces"}], "]"}], "+", + RowBox[{"Length", "[", "root", "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.834270459190027*^9, 3.834270465193511*^9}, { 3.8342710715935173`*^9, 3.834271093607176*^9}, {3.834271316240868*^9, 3.834271321333003*^9}, {3.834271369315226*^9, 3.83427138415939*^9}, { @@ -1910,8 +9040,86 @@ Cell[BoxData[ 3.8343519374352407`*^9}, {3.834352192269598*^9, 3.834352205076268*^9}, { 3.834352403363192*^9, 3.834352415336894*^9}, 3.8343524567740088`*^9, 3.834352907817636*^9, 3.834352960448945*^9, {3.8343530134223633`*^9, - 3.8343530172572937`*^9}, {3.834364165786512*^9, 3.8343641678676987`*^9}}, - CellLabel->"In[41]:=",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"], + 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"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"0.035273`", ",", "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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"G", "=", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }]}]], "Input", + CellChangeTimes->{{3.8345759946467247`*^9, 3.834576008309001*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.834576009019684*^9, 3.834577448424959*^9, + 3.834589016163299*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"8a8ff7e8-257e-4818-ac64-f640430a001d"] +}, Open ]], + +Cell[CellGroupData[{ + +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"], + +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"] +}, Open ]], Cell[CellGroupData[{ @@ -1923,17 +9131,18 @@ 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[59]:=",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"], + CellLabel->"In[52]:=",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"], Cell[BoxData[ RowBox[{"{", - RowBox[{"20", ",", "4", ",", "5", ",", "9"}], "}"}]], "Output", + RowBox[{"102", ",", "11", ",", "14", ",", "23"}], "}"}]], "Output", CellChangeTimes->{ 3.8343643160127068`*^9, 3.8343645404411592`*^9, {3.834364572595468*^9, 3.834364589345014*^9}, {3.834364929126811*^9, 3.83436496307482*^9}, { 3.834365050324903*^9, 3.834365057204047*^9}, 3.8344822113732147`*^9, { - 3.8344822424974823`*^9, 3.83448226518806*^9}}, - CellLabel->"Out[59]=",ExpressionUUID->"a7002fed-b093-472a-bbbb-ebc8229073ed"] + 3.8344822424974823`*^9, 3.83448226518806*^9}, 3.834575083387231*^9, + 3.834577448707432*^9, 3.83458901641998*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"cdf5520d-02b3-4f18-a2c3-2601cc9d84c1"] }, Open ]], Cell[CellGroupData[{ @@ -1949,12 +9158,13 @@ Cell[BoxData[ ".", "root"}], "//", "Total"}]], "Input", CellChangeTimes->{{3.8343649661668367`*^9, 3.8343650190653057`*^9}, { 3.834365063719788*^9, 3.834365066037496*^9}}, - CellLabel->"In[43]:=",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"], + CellLabel->"In[53]:=",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"], -Cell[BoxData["11"], "Output", +Cell[BoxData["366"], "Output", CellChangeTimes->{{3.834364973587739*^9, 3.834365019369627*^9}, - 3.8343650663826017`*^9, 3.83448221142877*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"58d3d53f-f227-41ce-9a8a-dca7360934db"] + 3.8343650663826017`*^9, 3.83448221142877*^9, 3.8345750834170027`*^9, + 3.834577448737156*^9, 3.8345890164491863`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"5d2f3140-ff92-49a2-be88-721ed7e25161"] }, Open ]], Cell[CellGroupData[{ @@ -1962,12 +9172,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", "root", "]"}]], "Input", CellChangeTimes->{{3.834364511566435*^9, 3.83436451570404*^9}}, - CellLabel->"In[44]:=",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"], + CellLabel->"In[54]:=",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"], -Cell[BoxData["9"], "Output", +Cell[BoxData["42"], "Output", CellChangeTimes->{{3.834364516240282*^9, 3.8343645216357203`*^9}, - 3.834482211449671*^9}, - CellLabel->"Out[44]=",ExpressionUUID->"6eaa965f-e656-4ed0-b759-4f1b341fa927"] + 3.834482211449671*^9, 3.834575083439714*^9, 3.8345774487675343`*^9, + 3.834589016478706*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"13090f9e-b58e-4203-b483-8b96b4f0e5b2"] }, Open ]], Cell[CellGroupData[{ @@ -1985,15 +9196,16 @@ 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[45]:=",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"], + CellLabel->"In[55]:=",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"], -Cell[BoxData["15"], "Output", +Cell[BoxData["78"], "Output", CellChangeTimes->{{3.83435263841041*^9, 3.834352641587645*^9}, 3.834352704802144*^9, {3.834363994381441*^9, 3.834364000105105*^9}, { 3.8343641985951557`*^9, 3.834364300431389*^9}, {3.834364505914947*^9, 3.8343645599497337`*^9}, {3.834364601241448*^9, 3.8343646119022827`*^9}, - 3.834482211466435*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"9b807560-20bc-4a7e-bebd-7453d5203f23"] + 3.834482211466435*^9, 3.834575083463491*^9, 3.834577448796245*^9, + 3.834589016508092*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"cbe40bb5-882a-4c6c-921b-6b14501a552e"] }, Open ]], Cell[BoxData[ @@ -2042,7 +9254,7 @@ 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[46]:=",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"], + CellLabel->"In[56]:=",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"], Cell[CellGroupData[{ @@ -2052,17 +9264,18 @@ Cell[BoxData[ ".", "root"}]], "Input", CellChangeTimes->{{3.834272021760499*^9, 3.83427203146054*^9}, 3.834364154564042*^9}, - CellLabel->"In[47]:=",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"], + CellLabel->"In[57]:=",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"], Cell[BoxData[ RowBox[{"{", RowBox[{ - RowBox[{"-", "1"}], ",", "2", ",", "5", ",", "5"}], "}"}]], "Output", + RowBox[{"-", "6"}], ",", "11", ",", "42", ",", "23"}], "}"}]], "Output", CellChangeTimes->{{3.83427202674335*^9, 3.834272031860688*^9}, { 3.834272147704256*^9, 3.8342721600061007`*^9}, 3.8343516990324917`*^9, { 3.8343519972905912`*^9, 3.834352019090838*^9}, 3.8343641986173077`*^9, - 3.834482211493958*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"971b3d0b-d403-46b7-ae1b-695a880c1b54"] + 3.834482211493958*^9, 3.8345750834920177`*^9, 3.8345774488504753`*^9, + 3.8345890165423117`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"e5bffa13-519d-464b-a741-71994acac1fd"] }, Open ]], Cell[BoxData[ @@ -2074,7 +9287,7 @@ Cell[BoxData[ CellChangeTimes->{{3.834363921051414*^9, 3.834363950761215*^9}, { 3.834364012856628*^9, 3.834364015468774*^9}, {3.834364134655746*^9, 3.834364136951743*^9}}, - CellLabel->"In[48]:=",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"], + CellLabel->"In[58]:=",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"], Cell[BoxData[ RowBox[{"(*", @@ -2124,22 +9337,259 @@ 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[49]:=",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"], + CellLabel->"In[59]:=",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nlm", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.834272427241466*^9, 3.8342724326668386`*^9}}, - CellLabel->"In[50]:=",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"], + CellLabel->"In[60]:=",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"], Cell[BoxData[ RowBox[{"nlm", "[", "\<\"RSquared\"\>", "]"}]], "Output", CellChangeTimes->{ 3.834272432969537*^9, 3.834278750219996*^9, 3.834351699058116*^9, { 3.8343519973195133`*^9, 3.834352019121767*^9}, 3.83436419864568*^9, - 3.8344822115283613`*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"543bb6c3-d112-4d49-aa4f-d5cad3332b8a"] + 3.8344822115283613`*^9, 3.8345750835243597`*^9, 3.8345774489049597`*^9, + 3.834589016580224*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"6e2e3721-e282-48df-a844-3aa50721fc2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"G", "=", + RowBox[{ + RowBox[{"pyramidG", "[", "4", "]"}], "//", "Simplify"}]}]], "Input", + CellChangeTimes->{{3.834608147157591*^9, 3.834608157699215*^9}, { + 3.834613211433923*^9, 3.834613211481103*^9}}, + CellLabel-> + "In[118]:=",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.83460815064884*^9, 3.834608158044807*^9}, + 3.834613212108568*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"955b5761-309e-4eb5-aec6-746417857d5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"sigmas", "=", + RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}]], "Input", + CellChangeTimes->{{3.83460815911386*^9, 3.8346081672942*^9}, { + 3.834613489173396*^9, 3.834613494745154*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4.`", ",", "4.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.`", ",", "3.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4.`", ",", "2.`", ",", "4.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.`", ",", "3.`", ",", "3.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4.`", ",", "0.`", ",", "3.`", ",", "3.`", ",", + RowBox[{"-", "1.`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4.`", ",", "0.`", ",", "2.`", ",", "4.`", ",", + RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`", ",", "4.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "3.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.`"}], ",", "0.`", ",", "1.`", ",", "0.`", ",", "1.`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", + RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], + "}"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.834608167997654*^9, 3.834613222979426*^9, {3.8346134917935543`*^9, + 3.834613495128717*^9}}, + CellLabel-> + "Out[123]=",ExpressionUUID->"53d189bd-6c90-47eb-b77e-840f0c83fa0b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.834608303636486*^9, + 3.834608313792286*^9}},ExpressionUUID->"94a19936-4029-4bf5-b55a-\ +bd9d0f39fac8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{"graphFromG", "[", "G", "]"}], "]"}], "-", "1"}]], "Input", + CellChangeTimes->{{3.834608357467698*^9, 3.8346083684669456`*^9}, { + 3.8346135174422903`*^9, 3.834613517507605*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "3", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.834608359833349*^9, 3.834608368853426*^9}, + 3.834613239830826*^9, 3.834613517923314*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"3adbb776-bb7b-4f0a-a932-ff2afd5b1357"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"root", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", + "1.2389279387920946`", ",", "1.2389279387920946`", ",", + "1.2389279387920946`"}], "}"}]}]], "Input", + CellChangeTimes->{{3.834613483657979*^9, 3.8346134846307297`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", + "1.2389279387920946`", ",", "1.2389279387920946`", ",", + "1.2389279387920946`"}], "}"}]], "Output", + CellChangeTimes->{3.8346134850696898`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"2bc158eb-d166-480d-8a2d-fa951dfbc389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"sigmas", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], + ".", "root"}]], "Input", + CellChangeTimes->{{3.834613496502672*^9, 3.834613501324523*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.5131807550506294`"}], ",", "1.2389279387920946`", ",", + "4.141916673757955`", ",", "4.141916673757955`", ",", + "1.2389279387920946`"}], "}"}]], "Output", + CellChangeTimes->{3.83461350172188*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"db812af6-f952-4a3a-b332-558c0f31c92d"] }, Open ]] }, WindowSize->{1425., 776.25}, @@ -2181,73 +9631,138 @@ Cell[31901, 815, 912, 24, 29, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b Cell[32816, 841, 4816, 102, 133, "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, 2190, 31, 33, "Output",ExpressionUUID->"01549ef8-b8be-4d3a-8e70-747610dfb968"] +Cell[38017, 954, 2283, 32, 33, "Output",ExpressionUUID->"208bb6f3-5571-4419-a56b-3d6d78e931b5"] }, Open ]], -Cell[40222, 988, 2560, 62, 242, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], -Cell[42785, 1052, 1277, 34, 66, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], -Cell[44065, 1088, 1383, 34, 65, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], -Cell[45451, 1124, 1379, 26, 29, "Input",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"], -Cell[46833, 1152, 14056, 288, 876, "Input",ExpressionUUID->"6704429c-f8d8-488f-aa44-b58e4afb791d"], -Cell[60892, 1442, 1086, 22, 71, "Input",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"], -Cell[61981, 1466, 707, 15, 29, "Input",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"], -Cell[62691, 1483, 419, 12, 82, "Input",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"], -Cell[63113, 1497, 436, 13, 78, "Input",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"], -Cell[63552, 1512, 718, 23, 78, "Input",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"], +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[CellGroupData[{ -Cell[64295, 1539, 278, 5, 29, "Input",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"], -Cell[64576, 1546, 1082, 35, 95, "Output",ExpressionUUID->"e582e1b7-3a92-42e5-9860-07dc5edd51c3"] +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"] +}, Open ]], +Cell[46617, 1180, 1383, 34, 65, "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"] }, Open ]], Cell[CellGroupData[{ -Cell[65695, 1586, 327, 8, 29, "Input",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"], -Cell[66025, 1596, 836, 16, 33, "Output",ExpressionUUID->"d97b2070-ad71-4943-811d-dbb00b08a905"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[66898, 1617, 339, 8, 29, "Input",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"], -Cell[67240, 1627, 1350, 31, 48, "Output",ExpressionUUID->"1f518cc9-445b-457c-87bb-e970a9f63962"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[68627, 1663, 575, 14, 29, "Input",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"], -Cell[69205, 1679, 982, 17, 33, "Output",ExpressionUUID->"f281d64e-2bd2-4404-a12b-91c481932e4f"] -}, Open ]], -Cell[70202, 1699, 997, 31, 143, "Input",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"], -Cell[71202, 1732, 541, 14, 29, "Input",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"], -Cell[71746, 1748, 773, 15, 29, "Input",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"], -Cell[CellGroupData[{ -Cell[72544, 1767, 453, 8, 29, "Input",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"], -Cell[73000, 1777, 831, 17, 33, "Output",ExpressionUUID->"f32c4a39-1ea0-4bb6-92bb-6c5bd406b5f7"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[73868, 1799, 686, 17, 29, "Input",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"], -Cell[74557, 1818, 758, 12, 33, "Output",ExpressionUUID->"f657ef8e-52a6-4528-993a-bd1335363ffa"] -}, Open ]], -Cell[75330, 1833, 916, 15, 29, "Input",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"], -Cell[76249, 1850, 2447, 63, 205, "Input",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"], -Cell[CellGroupData[{ -Cell[78721, 1917, 467, 8, 29, "Input",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"], -Cell[79191, 1927, 464, 8, 56, "Output",ExpressionUUID->"a7002fed-b093-472a-bbbb-ebc8229073ed"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[79692, 1940, 529, 11, 29, "Input",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"], -Cell[80224, 1953, 223, 3, 33, "Output",ExpressionUUID->"58d3d53f-f227-41ce-9a8a-dca7360934db"] +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"] +}, 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[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"] }, Open ]], Cell[CellGroupData[{ -Cell[80484, 1961, 205, 3, 29, "Input",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"], -Cell[80692, 1966, 201, 3, 33, "Output",ExpressionUUID->"6eaa965f-e656-4ed0-b759-4f1b341fa927"] +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"] }, Open ]], Cell[CellGroupData[{ -Cell[80930, 1974, 679, 13, 29, "Input",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"], -Cell[81612, 1989, 423, 6, 33, "Output",ExpressionUUID->"9b807560-20bc-4a7e-bebd-7453d5203f23"] +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"] }, Open ]], -Cell[82050, 1998, 1885, 46, 51, "Input",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"], Cell[CellGroupData[{ -Cell[83960, 2048, 297, 6, 29, "Input",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"], -Cell[84260, 2056, 434, 8, 33, "Output",ExpressionUUID->"971b3d0b-d403-46b7-ae1b-695a880c1b54"] +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[84709, 2067, 444, 9, 29, "Input",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"], -Cell[85156, 2078, 1859, 48, 176, "Input",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"], +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[87040, 2130, 218, 3, 29, "Input",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"], -Cell[87261, 2135, 341, 6, 33, "Output",ExpressionUUID->"543bb6c3-d112-4d49-aa4f-d5cad3332b8a"] +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] }, Open ]] } ] diff --git a/fractal_dimension/fractaldimension.ipynb b/fractal_dimension/fractaldimension.ipynb index d46143f..df31cd5 100644 --- a/fractal_dimension/fractaldimension.ipynb +++ b/fractal_dimension/fractaldimension.ipynb @@ -2,7 +2,7 @@ "cells": [ { "cell_type": "code", - "execution_count": 1, + "execution_count": 2, "metadata": { "executionInfo": { "elapsed": 118, @@ -28,7 +28,7 @@ }, { "cell_type": "code", - "execution_count": 2, + "execution_count": 3, "metadata": { "id": "G01gxmY2QI64" }, @@ -95,7 +95,7 @@ }, { "cell_type": "code", - "execution_count": 5, + "execution_count": 6, "metadata": { "id": "xY_oNcRDl797" }, @@ -106,53 +106,35 @@ "text": [ "[1]\n", "[1, 2]\n", + "[1, 2, 1]\n", + "[1, 2, 3]\n", + "[1, 2, 4]\n", "[1, 3]\n", "[1, 3, 1]\n", + "[1, 3, 1, 2]\n", + "[1, 3, 1, 3]\n", + "[1, 3, 1, 4]\n", "[1, 3, 2]\n", "[1, 3, 4]\n", "[1, 4]\n", - "[1, 4, 1]\n", - "[1, 4, 2]\n", - "[1, 4, 3]\n", - "[1, 4, 3, 1]\n", - "[1, 4, 3, 2]\n", - "[1, 4, 3, 4]\n", "[2]\n", "[2, 1]\n", - "[2, 1, 2]\n", - "[2, 1, 2, 1]\n", - "[2, 1, 2, 3]\n", - "[2, 1, 2, 4]\n", - "[2, 1, 3]\n", - "[2, 1, 3, 1]\n", - "[2, 1, 3, 2]\n", - "[2, 1, 3, 4]\n", - "[2, 1, 4]\n", - "[2, 1, 4, 1]\n", - "[2, 1, 4, 2]\n", - "[2, 1, 4, 3]\n", "[2, 3]\n", + "[2, 3, 1]\n", + "[2, 3, 2]\n", + "[2, 3, 4]\n", + "[2, 3, 4, 1]\n", + "[2, 3, 4, 2]\n", + "[2, 3, 4, 3]\n", "[2, 4]\n", "[3]\n", "[3, 1]\n", "[3, 1, 2]\n", - "[3, 1, 2, 1]\n", - "[3, 1, 2, 3]\n", - "[3, 1, 2, 3, 1]\n", - "[3, 1, 2, 3, 1, 2]\n", - "[3, 1, 2, 3, 1, 3]\n", - "[3, 1, 2, 3, 1, 4]\n", - "[3, 1, 2, 3, 1, 4, 1]\n", - "[3, 1, 2, 3, 1, 4, 2]\n", - "[3, 1, 2, 3, 1, 4, 3]\n", - "[3, 1, 2, 3, 2]\n", - "[3, 1, 2, 3, 2, 1]\n", - "[3, 1, 2, 3, 2, 3]\n", - "[3, 1, 2, 3, 2, 4]\n", - "[3, 1, 2, 3, 4]\n", - "[3, 1, 2, 4]\n", "[3, 1, 3]\n", "[3, 1, 4]\n", + "[3, 1, 4, 1]\n", + "[3, 1, 4, 2]\n", + "[3, 1, 4, 3]\n", "[3, 2]\n", "[3, 2, 1]\n", "[3, 2, 1, 2]\n", @@ -162,42 +144,27 @@ "[3, 2, 4]\n", "[3, 4]\n", "[3, 4, 1]\n", - "[3, 4, 1, 2]\n", - "[3, 4, 1, 3]\n", - "[3, 4, 1, 3, 1]\n", - "[3, 4, 1, 3, 2]\n", - "[3, 4, 1, 3, 4]\n", - "[3, 4, 1, 3, 4, 1]\n", - "[3, 4, 1, 3, 4, 2]\n", - "[3, 4, 1, 3, 4, 3]\n", - "[3, 4, 1, 4]\n", "[3, 4, 2]\n", - "[3, 4, 2, 1]\n", - "[3, 4, 2, 3]\n", - "[3, 4, 2, 4]\n", "[3, 4, 3]\n", "[4]\n", "[4, 1]\n", "[4, 2]\n", "[4, 2, 1]\n", + "[4, 2, 1, 2]\n", + "[4, 2, 1, 3]\n", + "[4, 2, 1, 4]\n", + "[4, 2, 1, 4, 1]\n", + "[4, 2, 1, 4, 2]\n", + "[4, 2, 1, 4, 3]\n", "[4, 2, 3]\n", "[4, 2, 4]\n", - "[4, 3]\n", - "[4, 3, 1]\n", - "[4, 3, 2]\n", - "[4, 3, 2, 1]\n", - "[4, 3, 2, 3]\n", - "[4, 3, 2, 3, 1]\n", - "[4, 3, 2, 3, 2]\n", - "[4, 3, 2, 3, 2, 1]\n", - "[4, 3, 2, 3, 2, 1, 2]\n", - "[4, 3, 2, 3, 2, 1, 3]\n", - "[4, 3, 2, 3, 2, 1, 4]\n", - "[4, 3, 2, 3, 2, 3]\n", - "[4, 3, 2, 3, 2, 4]\n", - "[4, 3, 2, 3, 4]\n", - "[4, 3, 2, 4]\n", - "[4, 3, 4]\n" + "[4, 2, 4, 1]\n", + "[4, 2, 4, 2]\n", + "[4, 2, 4, 2, 1]\n", + "[4, 2, 4, 2, 3]\n", + "[4, 2, 4, 2, 4]\n", + "[4, 2, 4, 3]\n", + "[4, 3]\n" ] } ], @@ -215,7 +182,7 @@ }, { "cell_type": "code", - "execution_count": 4, + "execution_count": 5, "metadata": { "executionInfo": { "elapsed": 490, @@ -271,7 +238,7 @@ }, { "cell_type": "code", - "execution_count": 6, + "execution_count": 7, "metadata": { "executionInfo": { "elapsed": 3, @@ -307,7 +274,7 @@ }, { "cell_type": "code", - "execution_count": 7, + "execution_count": 9, "metadata": { "colab": { "base_uri": "https://localhost:8080/" @@ -331,18 +298,19 @@ "name": "stdout", "output_type": "stream", "text": [ - "158\n", - "fractal dimension: 1.2179534297610568\n" + "17\n", + "[-6, 11, 14, 23, 51, 95, 42, 71, 15, 86, 35, 74, 71, 26, 59, 47, 78]\n", + "fractal dimension: 0.9506030253442043\n" ] } ], "source": [ - "root = [-10, 18, 23, 27] #some base tuple, it will change as we go through the words since we are kinda only paying attention to the end of the word\n", + "root = [-6, 11, 14, 23] #some base tuple, it will change as we go through the words since we are kinda only paying attention to the end of the word\n", "circlelist = list(root) #list of the curvatures, it starts with the root stuff and we will add to it \n", "word = [1] #word that we are currently considering, it will change as we go through these, the first word we start with is just the word that consists of the first generator\n", "recentroot = [] #this will be an array of arrays. the recentroot[i] is the most recent tuple that wasn't too big for word of length i so that when we go back down we know which tuple to operate on\n", "recentroot.append(root) #the root thing will be our 0th element of this array\n", - "bound = 1000 #bound for what we want our curvatures to be under\n", + "bound = 100 #bound for what we want our curvatures to be under\n", "\n", "while word: #this runs until you get back to the empty word\n", " #print(\"root : \" + str(root))\n", @@ -365,8 +333,16 @@ "\n", "#print(circlelist)\n", "print(len(circlelist))\n", + "print(circlelist)\n", "curvefit(20,bound,circlelist) #this will print our fractal dimension once the circlelist has been made" ] + }, + { + "cell_type": "code", + "execution_count": null, + "metadata": {}, + "outputs": [], + "source": [] } ], "metadata": {