diff --git a/fractal_dimension.nb b/fractal_dimension.nb new file mode 100644 index 0000000..56985d1 --- /dev/null +++ b/fractal_dimension.nb @@ -0,0 +1,1295 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 12.2' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 50224, 1287] +NotebookOptionsPosition[ 47007, 1233] +NotebookOutlinePosition[ 47410, 1249] +CellTagsIndexPosition[ 47367, 1246] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"pivots", "[", "A_", "]"}], ":=", + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{"FirstPosition", "[", "1", "]"}], "/@", + RowBox[{"Transpose", "[", "A", "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831194837404834*^9, 3.8311948924696903`*^9}, { + 3.831194930347896*^9, 3.831194932848599*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"pMatrix", "[", "n_", "]"}], ":=", + RowBox[{"Table", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Which", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"i", "\[Equal]", "2"}], "&&", + RowBox[{"j", "\[Equal]", "1"}]}], "||", + RowBox[{ + RowBox[{"i", "\[Equal]", "1"}], "&&", + RowBox[{"j", "\[Equal]", "2"}]}]}], ",", + RowBox[{ + RowBox[{"-", "1"}], "/", "2"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"i", "\[Equal]", "j"}], "&&", + RowBox[{"i", ">", "2"}]}], ",", "1", ",", "\[IndentingNewLine]", + "True", ",", "0"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", " ", "n"}], "}"}], ",", + RowBox[{"{", + RowBox[{"j", ",", "n"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831107414093502*^9, 3.83110748040809*^9}, { + 3.831107557920609*^9, 3.8311075805621977`*^9}, {3.8311076270925627`*^9, + 3.831107722019619*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"gramMatrix", "[", "W_", "]"}], ":=", + RowBox[{"Simplify", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"pMatrix", "[", + RowBox[{"Length", "[", "W", "]"}], "]"}], ".", "W"}], "]"}]}]], "Input", + CellChangeTimes->{{3.831107486071478*^9, 3.831107546093779*^9}, { + 3.831109392242589*^9, 3.831109394639595*^9}, {3.831110190169511*^9, + 3.831110193792735*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelationsMatrix", "[", "G_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"RowReduce", "[", "G", "]"}], "[", + RowBox[{"[", + RowBox[{"1", ";;", + RowBox[{"MatrixRank", "[", "G", "]"}]}], "]"}], "]"}], "//", + "Transpose"}]}]], "Input", + CellChangeTimes->{{3.831109396818718*^9, 3.831109426888632*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelations", "[", "L_", "]"}], ":=", + RowBox[{"Select", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Equal", "[", + RowBox[{ + SubscriptBox["b", "i"], ",", + RowBox[{ + RowBox[{"L", "[", + RowBox[{"[", "i", "]"}], "]"}], ".", + RowBox[{"Table", "[", + RowBox[{ + SubscriptBox["b", "i"], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}]}]}], "]"}], + ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"Length", "[", "L", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{ + RowBox[{"Not", "[", + RowBox[{"BooleanQ", "[", "#", "]"}], "]"}], "&"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831109446192391*^9, 3.831109495064299*^9}, { + 3.8311095335606937`*^9, 3.831109534992022*^9}, {3.831109584393684*^9, + 3.831109833956565*^9}, {3.8311098747139893`*^9, 3.8311099163122053`*^9}, { + 3.831110035487195*^9, 3.83111004405739*^9}, {3.831110077358601*^9, + 3.831110081551445*^9}, {3.831194643897842*^9, 3.8311946492229443`*^9}, { + 3.831194680087949*^9, 3.831194680680228*^9}, {3.831194956352386*^9, + 3.831195002875142*^9}, {3.831205178380069*^9, 3.831205187846324*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelationsFromW", "=", + RowBox[{ + "linearRelations", "@*", "linearRelationsMatrix", "@*", "gramMatrix"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.831110103314905*^9, 3.831110162272215*^9}, + 3.831206070230084*^9}, + CellLabel->"In[31]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"inverseLinearRelations", "[", "G_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"i", "\[Equal]", "#"}], ",", "1", ",", "0"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"Length", "[", + RowBox[{"G", "[", + RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "&"}], "/@", + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{ + RowBox[{"FirstPosition", "[", + RowBox[{"#", ",", "1"}], "]"}], "&"}], "/@", + RowBox[{"(", + RowBox[{ + RowBox[{"RowReduce", "[", "G", "]"}], "//", + RowBox[{"Select", "[", + RowBox[{ + RowBox[{"Not", "[", + RowBox[{"AllTrue", "[", + RowBox[{"#", ",", + RowBox[{ + RowBox[{"#", "\[Equal]", "0"}], "&"}]}], "]"}], "]"}], "&"}], + "]"}]}], ")"}]}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.831194278291965*^9, 3.831194298458626*^9}, + 3.831195204231324*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadraticFormMatrix", "[", + RowBox[{"G_", ",", "L_"}], "]"}], ":=", + RowBox[{"Inverse", "[", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"i", ",", " ", "j"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"pivots", "[", "L", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.831195055004586*^9, 3.83119507699967*^9}, { + 3.831195107195753*^9, 3.831195121990181*^9}, {3.831195208095559*^9, + 3.831195214781535*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadraticForm", "[", + RowBox[{"Q_", ",", "L_"}], "]"}], ":=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"v", "=", + RowBox[{"Table", "[", + RowBox[{ + SubscriptBox["b", "i"], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}]}], "}"}], ",", + RowBox[{"Simplify", "[", + RowBox[{ + RowBox[{"v", ".", "Q", ".", "v"}], "\[Equal]", "0"}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.831195241841057*^9, 3.831195289590564*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadform", "[", "W_", "]"}], ":=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"G", "=", + RowBox[{"gramMatrix", "[", "W", "]"}]}], "}"}], ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"L", "=", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "}"}], ",", + RowBox[{"quadraticForm", "[", + RowBox[{ + RowBox[{"quadraticFormMatrix", "[", + RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.831195337159152*^9, 3.831195396279203*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadformFromG", "[", "G_", "]"}], ":=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"L", "=", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "}"}], ",", + RowBox[{"quadraticForm", "[", + RowBox[{ + RowBox[{"quadraticFormMatrix", "[", + RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.8312049925958433`*^9, 3.8312050200596113`*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"graphFromG", "[", "G_", "]"}], ":=", + RowBox[{"PlanarGraph", "[", + RowBox[{"AdjacencyGraph", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"#", "\[Equal]", + RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", + "#"}], "&"}], "/@", "G"}], ",", + RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], + "]"}]}]], "Input", + CellChangeTimes->{{3.8315843493182087`*^9, 3.831584372878718*^9}, { + 3.831584545556731*^9, 3.831584563248426*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"nextCandidate", "[", + RowBox[{"s_", ",", "t_", ",", "adj_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"length", ",", "pos"}], "}"}], ",", + RowBox[{ + RowBox[{"length", "=", + RowBox[{"Length", "[", "adj", "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"pos", "=", + RowBox[{"Mod", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Position", "[", + RowBox[{"adj", ",", "s"}], "]"}], "[", + RowBox[{"[", + RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", "1"}], ",", "length", + ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"adj", "[", + RowBox[{"[", "pos", "]"}], "]"}]}], "}"}]}]}], "]"}]}], + ";"}]], "Input", + CellChangeTimes->{3.831210886725911*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{"g_", "?", "PlanarGraphQ"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", "emb", "}"}], ",", + RowBox[{ + RowBox[{"emb", "=", + RowBox[{"GraphEmbedding", "[", + RowBox[{"g", ",", "\"\\""}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"FindFace", "[", + RowBox[{"g", ",", "emb"}], "]"}]}]}], "]"}]}], ";"}], + "\[IndentingNewLine]"}], "\n", + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{ + RowBox[{"g_", "?", "PlanarGraphQ"}], ",", "emb_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "m", ",", "orderings", ",", "pAdj", ",", "rightF", ",", "s", ",", "t", + ",", "initial", ",", "face"}], "}"}], ",", + RowBox[{ + RowBox[{"m", "=", + RowBox[{"AdjacencyMatrix", "[", "g", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"pAdj", "[", "v", "]"}], "=", + RowBox[{"SortBy", "[", + RowBox[{ + RowBox[{"Pick", "[", + RowBox[{ + RowBox[{"VertexList", "[", "g", "]"}], ",", + RowBox[{"m", "[", + RowBox[{"[", "v", "]"}], "]"}], ",", "1"}], "]"}], ",", + RowBox[{ + RowBox[{"ArcTan", "@@", + RowBox[{"(", + RowBox[{ + RowBox[{"emb", "[", + RowBox[{"[", "v", "]"}], "]"}], "-", + RowBox[{"emb", "[", + RowBox[{"[", "#", "]"}], "]"}]}], ")"}]}], "&"}]}], "]"}]}], + ",", + RowBox[{"{", + RowBox[{"v", ",", + RowBox[{"VertexList", "[", "g", "]"}]}], "}"}]}], "]"}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"rightF", "[", "_", "]"}], ":=", "False"}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Reap", "[", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"!", + RowBox[{"rightF", "[", "e", "]"}]}], ",", + RowBox[{ + RowBox[{"s", "=", + RowBox[{"e", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"t", "=", + RowBox[{"e", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"initial", "=", "s"}], ";", "\[IndentingNewLine]", + RowBox[{"face", "=", + RowBox[{"{", "s", "}"}]}], ";", "\[IndentingNewLine]", + RowBox[{"While", "[", + RowBox[{ + RowBox[{"t", "=!=", "initial"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"rightF", "[", + RowBox[{"UndirectedEdge", "[", + RowBox[{"s", ",", "t"}], "]"}], "]"}], "=", "True"}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{"s", ",", "t"}], "}"}], "=", + RowBox[{"nextCandidate", "[", + RowBox[{"s", ",", "t", ",", + RowBox[{"pAdj", "[", "t", "]"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"face", "=", + RowBox[{"Join", "[", + RowBox[{"face", ",", + RowBox[{"{", "s", "}"}]}], "]"}]}], ";"}]}], "]"}], ";", + "\[IndentingNewLine]", + RowBox[{"Sow", "[", "face", "]"}], ";"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"e", ",", + RowBox[{"EdgeList", "[", "g", "]"}]}], "}"}]}], "]"}], "]"}], "[", + + RowBox[{"[", + RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}]}], "Input", + CellChangeTimes->{{3.8312108953940573`*^9, 3.831210895411563*^9}, + 3.8312119634327393`*^9, 3.831542420732052*^9}, + CellLabel->"In[39]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"findGenerators", "[", + RowBox[{"faces_", ",", "vertices_", ",", "G_"}], "]"}], ":=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "face", ",", "otherVertex", ",", "verticesOnFace", ",", "allVertices", + ",", "Gp", ",", "P", ",", "Gnew", ",", "L", ",", "Q", ",", "Qform", + ",", "sol1", ",", "sol2", ",", "sols", ",", "coeff", ",", + "coeffTable", ",", "small", ",", "Li", ",", "P2"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"face", "=", + RowBox[{"faces", "[", + RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"verticesOnFace", "=", + RowBox[{"Sort", "[", + RowBox[{"RandomSample", "[", + RowBox[{"face", ",", "3"}], "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"otherVertex", "=", + RowBox[{"RandomChoice", "[", + RowBox[{"Select", "[", + RowBox[{"vertices", ",", + RowBox[{ + RowBox[{"Not", "[", + RowBox[{"MemberQ", "[", + RowBox[{"face", ",", "#"}], "]"}], "]"}], "&"}]}], "]"}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"allVertices", "=", + RowBox[{"Append", "[", + RowBox[{"verticesOnFace", ",", "otherVertex"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"P", "=", + RowBox[{"Transpose", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"IdentityMatrix", "[", + RowBox[{"Length", "[", "vertices", "]"}], "]"}], "[", + RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", + RowBox[{"DeleteDuplicates", "[", + RowBox[{"Join", "[", + RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], "]"}]}], + ";", "\[IndentingNewLine]", + RowBox[{"Gnew", "=", + RowBox[{ + RowBox[{"Transpose", "[", "P", "]"}], ".", "G", ".", "P"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"L", "=", + RowBox[{"linearRelationsMatrix", "[", "Gnew", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Gp", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", "allVertices"}], "}"}], ",", + RowBox[{"{", + RowBox[{"j", ",", "allVertices"}], "}"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Q", "=", + RowBox[{"Inverse", "[", "Gp", "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"Qform", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"#", ".", "Q", ".", "#"}], "&"}], "[", + RowBox[{"Table", "[", + RowBox[{ + SubscriptBox["b", "j"], ",", + RowBox[{"{", + RowBox[{"j", ",", "allVertices"}], "}"}]}], "]"}], "]"}], ")"}], + "\[Equal]", "0"}]}], ";", "\[IndentingNewLine]", + RowBox[{"sols", "=", + RowBox[{"Expand", "[", + RowBox[{"FullSimplify", "[", + RowBox[{"Total", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"#", "[", + RowBox[{"[", "1", "]"}], "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", + RowBox[{"Solve", "[", + RowBox[{"Qform", ",", + SubscriptBox["b", "otherVertex"]}], "]"}]}], "]"}], "]"}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"coeff", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"sols", "/.", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + SubscriptBox["b", "i"], "\[Rule]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{"i", "\[Equal]", "curr"}], ",", "1", ",", "0"}], + "]"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "allVertices"}], "}"}]}], "]"}]}], ",", + RowBox[{"{", + RowBox[{"curr", ",", "allVertices"}], "}"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"small", "=", + RowBox[{"IdentityMatrix", "[", + RowBox[{"Length", "[", "allVertices", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"small", "[", + RowBox[{"[", + RowBox[{"-", "1"}], "]"}], "]"}], "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"j", "\[Equal]", "4"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"If", "[", + RowBox[{ + RowBox[{"MemberQ", "[", + RowBox[{"verticesOnFace", ",", + RowBox[{"allVertices", "[", + RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", + RowBox[{"coeff", "[", + RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}]}], "]"}], + ",", + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"Length", "[", "allVertices", "]"}]}], "}"}]}], "]"}]}], + ";", "\[IndentingNewLine]", + RowBox[{"Li", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], + ",", + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"Length", "[", "vertices", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"k", ",", "allVertices"}], "}"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"P2", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], ",", + + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"Length", "[", "vertices", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"DeleteDuplicates", "[", + RowBox[{"Join", "[", + RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], + "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"P2", ".", "L", ".", "small", ".", "Li"}]}]}], + "\[IndentingNewLine]", "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"Length", "[", "faces", "]"}]}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831211980673108*^9, 3.831212009547978*^9}, { + 3.831212047936781*^9, 3.831212064698745*^9}, {3.831212136824675*^9, + 3.8312121924739923`*^9}, {3.83121282873549*^9, 3.831212895555662*^9}, { + 3.8312129593096933`*^9, 3.831213052703521*^9}, {3.8312133826923237`*^9, + 3.831213512078041*^9}, {3.831213579312004*^9, 3.831213607562201*^9}, { + 3.8312136458477*^9, 3.8312136689119587`*^9}, {3.831213699813815*^9, + 3.831213723704392*^9}, {3.8312138140717983`*^9, 3.831213889152441*^9}, { + 3.831213941035733*^9, 3.831213957988277*^9}, {3.831213991504438*^9, + 3.831214049771612*^9}, {3.8312142057843103`*^9, 3.831214227198838*^9}, { + 3.8313934326708517`*^9, 3.83139343995124*^9}, {3.831393489506013*^9, + 3.831393506386162*^9}, {3.831393555227632*^9, 3.8313935602186413`*^9}, { + 3.8313936045286083`*^9, 3.83139367389612*^9}, {3.831393815407503*^9, + 3.8313939935486803`*^9}, {3.83139404462208*^9, 3.831394092415612*^9}, { + 3.831394131767799*^9, 3.831394217388193*^9}, {3.831394341420259*^9, + 3.831394342312114*^9}, {3.83139445920255*^9, 3.8313945442248793`*^9}, { + 3.8313945973518257`*^9, 3.831394680082652*^9}, {3.8313947347981873`*^9, + 3.831394898892132*^9}, {3.83139493417336*^9, 3.831395053557044*^9}, { + 3.831395100567893*^9, 3.83139518418989*^9}, {3.831395217466712*^9, + 3.831395241186327*^9}, {3.831395355721635*^9, 3.8313954066678057`*^9}, { + 3.831395475153723*^9, 3.831395516960009*^9}, {3.83139559485061*^9, + 3.8313956385922327`*^9}, {3.831395769312038*^9, 3.8313958340021877`*^9}, { + 3.831395865647847*^9, 3.83139610784988*^9}, {3.831396182381921*^9, + 3.831396202527211*^9}, {3.8313962730948772`*^9, 3.8313963875560293`*^9}, { + 3.831396427697093*^9, 3.8313965616329517`*^9}, {3.831396608167254*^9, + 3.83139664360338*^9}, {3.83139670106045*^9, 3.8313967846470547`*^9}, { + 3.8313968308609743`*^9, 3.8313969389717007`*^9}, 3.831396972519156*^9, { + 3.831397018773802*^9, 3.831397020188629*^9}, {3.831397062011731*^9, + 3.831397076917077*^9}, {3.8313971287749977`*^9, 3.8313971288803463`*^9}, { + 3.831397158974574*^9, 3.831397164029716*^9}, {3.831451905653893*^9, + 3.831451941106399*^9}, {3.8314519809069433`*^9, 3.831452094855884*^9}, { + 3.831542443369563*^9, 3.83154246854852*^9}, {3.831542595276044*^9, + 3.8315426013894053`*^9}, {3.831542828964487*^9, 3.831542862477805*^9}, + 3.8315429215303297`*^9, {3.831543065147149*^9, 3.831543089933201*^9}, { + 3.8315431288434877`*^9, 3.831543129636121*^9}, {3.83154323687431*^9, + 3.831543260658288*^9}, {3.831543295045744*^9, 3.831543299689423*^9}, + 3.831543486496207*^9, {3.831543653211835*^9, 3.831543654095707*^9}, { + 3.831544292671633*^9, 3.8315442949499702`*^9}, {3.831544329733664*^9, + 3.831544394563963*^9}, {3.831544636528879*^9, 3.831544663053648*^9}, + 3.831544723323721*^9, 3.831546276666531*^9, {3.8315463223978786`*^9, + 3.831546322569023*^9}, {3.831546446056045*^9, 3.83154644840313*^9}, { + 3.8315465437277803`*^9, 3.8315465842454453`*^9}, {3.8315466426699533`*^9, + 3.831546646606488*^9}, {3.831546727818715*^9, 3.831546788772341*^9}, { + 3.831546839246593*^9, 3.8315468396090813`*^9}, {3.83154706753721*^9, + 3.8315471373421164`*^9}, {3.831549700570283*^9, 3.831549703647592*^9}, { + 3.8315497447736797`*^9, 3.831549761864801*^9}, {3.831549996792459*^9, + 3.831550026202232*^9}, {3.831550732962453*^9, 3.831550735264537*^9}, { + 3.8315509704443493`*^9, 3.8315509727254343`*^9}, {3.831551320669722*^9, + 3.831551407002722*^9}, 3.831551438305327*^9, {3.8315518862869797`*^9, + 3.831551891551553*^9}, {3.831552338431473*^9, 3.8315523578513947`*^9}, { + 3.8315524412649384`*^9, 3.831552441791979*^9}, {3.831552847687746*^9, + 3.8315528556641293`*^9}, {3.83172514482829*^9, 3.831725228085017*^9}, { + 3.831725320892393*^9, 3.8317253386411657`*^9}, {3.8317254340311728`*^9, + 3.831725440268997*^9}, {3.8317255156810293`*^9, 3.8317256205301943`*^9}, { + 3.831725829008904*^9, 3.831725851322979*^9}, {3.831726730605854*^9, + 3.8317267923612432`*^9}}, + CellLabel->"In[88]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"findGeneratorsFromG", "[", "G_", "]"}], ":=", + RowBox[{"findGenerators", "[", + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{"PlanarGraph", "[", + RowBox[{"AdjacencyGraph", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"#", "\[Equal]", + RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", + "#"}], "&"}], "/@", "G"}], ",", + RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], "]"}], + "]"}], ",", + RowBox[{"Range", "[", + RowBox[{"Length", "[", "G", "]"}], "]"}], ",", "G"}], "]"}]}]], "Input", + CellChangeTimes->{{3.831554845925479*^9, 3.8315548977219877`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"root", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "4", ",", "4"}], + "}"}]}]], "Input", + CellChangeTimes->{{3.8315844779296722`*^9, 3.83158448503473*^9}, + 3.8315845350751143`*^9}, + CellLabel->"In[43]:=",ExpressionUUID->"0dee5c81-bf5b-4a3d-b97a-365d1fa22054"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "4", ",", "4"}], + "}"}]], "Output", + CellChangeTimes->{ + 3.831584639282403*^9, 3.831593478548482*^9, 3.831722045325165*^9, { + 3.831724196424776*^9, 3.831724219608436*^9}}, + CellLabel->"Out[43]=",ExpressionUUID->"24045598-9e03-4154-b5b4-26618438a52d"] +}, 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.831722838476529*^9, 3.8317228391121197`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"965146b1-1c31-406b-b3be-b3243e13b724"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "5", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "3", ",", "6"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "6", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "5", ",", "6"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "6", ",", "5"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.8317228363662443`*^9, 3.831722839557581*^9}, { + 3.831724196503327*^9, 3.831724219637782*^9}}, + CellLabel->"Out[44]=",ExpressionUUID->"82e35b12-74ea-4d56-949a-5542e272f403"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"PlanarGraph", "[", + RowBox[{"AdjacencyGraph", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"#", "\[Equal]", + RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", + "#"}], "&"}], "/@", "G"}], ",", + RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], + "]"}]], "Input", + CellLabel->"In[45]:=",ExpressionUUID->"7d7a9baa-1ee2-4551-818f-a3bee7a7be15"], + +Cell[BoxData[ + GraphicsBox[ + NamespaceBox["NetworkGraphics", + DynamicModuleBox[{Typeset`graph = HoldComplete[ + Graph[{1, 2, 3, 4, 5, 6}, { + Null, {{1, 2}, {1, 3}, {1, 4}, {1, 5}, {2, 3}, {2, 4}, {2, 6}, {3, 5}, { + 3, 6}, {4, 5}, {4, 6}, {5, 6}}}, { + GraphLayout -> "TutteEmbedding", VertexLabels -> {"Name"}}]]}, + TagBox[GraphicsGroupBox[{ + {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.], + ArrowBox[CompressedData[" +1:eJxTTMoPSmVmYGDgAWImKObqmudjWblqDwMYfLBf7RPxomrba/vf/0Hg/n50 +ee5wnR8rtI/Zs66Q0fk2c6c9uvxKiP79LGD+Awz9fzfxCHdqH9v/wzDl4RWg +fnT70M1Hl0c3H12egUFiifzT9XaHnvjPa5t5EsM8dPvR5dH1o9uHrh9dHl0/ +unp0eQAbe76Z + "], 0.020399597244776385`]}, + {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ + 0.7]}], { + DiskBox[{-1.8369701987210297*^-16, 1.}, 0.020399597244776385], + InsetBox["1", + Offset[{2, 2}, {0.0203995972447762, 1.0203995972447764}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{0.8660254037844387, -0.4999999999999997}, + 0.020399597244776385], + InsetBox["2", + Offset[{2, 2}, {0.8864250010292151, -0.4796004027552233}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{0.1732073985846728, 0.10000551773978834}, + 0.020399597244776385], + InsetBox["3", + Offset[{2, 2}, {0.19360699582944918, 0.12040511498456473}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{-0.8660254037844385, -0.5000000000000004}, + 0.020399597244776385], + InsetBox["4", + Offset[{2, 2}, {-0.8456258065396621, -0.4796004027552241}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{-0.17320359640270758, 0.1000035333892767}, + 0.020399597244776385], + InsetBox["5", + Offset[{2, 2}, {-0.1528039991579312, 0.12040313063405308}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{9.505454913738554*^-7, -0.19999773721773378}, + 0.020399597244776385], + InsetBox["6", + Offset[{2, 2}, {0.02040054779026776, -0.1795981399729574}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}}}], + MouseAppearanceTag["NetworkGraphics"]], + AllowKernelInitialization->False]], + DefaultBaseStyle->{ + "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, + FormatType->TraditionalForm, + FrameTicks->None]], "Output", + CellChangeTimes->{ + 3.831722925131528*^9, {3.831724196527287*^9, 3.831724219672398*^9}}, + CellLabel->"Out[45]=",ExpressionUUID->"438f541f-8f14-4521-9286-7c37bf8f25d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"G", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.8315845959939213`*^9, 3.8315846175243464`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"99762d4d-02fa-4c52-a966-81c24a88ebe5"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.831584619265588*^9, 3.831593478575108*^9, 3.831722045339559*^9, + 3.831722535861471*^9, {3.83172419654003*^9, 3.831724219683917*^9}}, + CellLabel->"Out[46]=",ExpressionUUID->"a1a41bbc-b560-4098-a8cc-10e65cdf87bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"sigmas", "=", + RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}]], "Input", + CellChangeTimes->{{3.831584622572513*^9, 3.8315846353858*^9}, { + 3.831722772670558*^9, 3.8317227745157413`*^9}, {3.8317228053569736`*^9, + 3.8317228076356153`*^9}}, + CellLabel->"In[89]:=",ExpressionUUID->"b9f41909-31ad-46a1-b81f-600b23bb57a4"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "4", ",", "0", ",", "3", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "3", ",", "0", ",", "4", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "4", ",", "0", ",", "4", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "4", ",", "3", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "3", ",", "4", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "4", ",", "4", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", + RowBox[{"-", "1"}], ",", "3", ",", "3", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", + RowBox[{"-", "1"}], ",", "2", ",", "4", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "0", ",", + RowBox[{"-", "1"}], ",", "3", ",", "4", ",", "0"}], "}"}]}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", "3", ",", + RowBox[{"-", "1"}], ",", "3", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", "2", ",", + RowBox[{"-", "1"}], ",", "4", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "0", ",", "3", ",", + RowBox[{"-", "1"}], ",", "4", ",", "0"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "0", ",", "0", ",", "2"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "4", ",", "3", ",", "0", ",", "0", ",", "3"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "3", ",", "4", ",", "0", ",", "0", ",", "3"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "4", ",", + RowBox[{"-", "1"}], ",", "3", ",", "0", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "4", ",", + RowBox[{"-", "1"}], ",", "2", ",", "0", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "3", ",", + RowBox[{"-", "1"}], ",", "3", ",", "0", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "3", ",", + RowBox[{"-", "1"}], ",", "4", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "3", ",", + RowBox[{"-", "1"}], ",", "3", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "2", ",", + RowBox[{"-", "1"}], ",", "4", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "4", ",", "4", ",", "2"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "4", ",", "3", ",", "3"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "3", ",", "4", ",", "3"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.831584636401613*^9, 3.831593478609365*^9, 3.8317220453547983`*^9, { + 3.83172253814844*^9, 3.8317225451713*^9}, 3.83172280836547*^9, { + 3.83172419666632*^9, 3.831724219741164*^9}, {3.831725157114129*^9, + 3.831725180750599*^9}, 3.831725231417803*^9, {3.831725328775733*^9, + 3.831725342671924*^9}, 3.831725443833132*^9, {3.8317256038104*^9, + 3.831725624058765*^9}, 3.831725836047076*^9, {3.8317267386952133`*^9, + 3.831726796778412*^9}}, + CellLabel->"Out[89]=",ExpressionUUID->"0ceb7310-0d12-4a75-afd2-772d1d577420"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"search", "[", + RowBox[{ + "generators_", ",", "current_", ",", "previous_", ",", "lastgen_", ",", + "upperBound_", ",", "faces_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"totals", ",", "invalid"}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Print", "[", "current", "]"}], ";", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"invalid", "[", + RowBox[{"\[Sigma]_", ",", "face_"}], "]"}], ":=", + RowBox[{ + RowBox[{"\[Sigma]", "\[Equal]", "lastgen"}], "||", + RowBox[{"AllTrue", "[", + RowBox[{ + RowBox[{"Delete", "[", + RowBox[{ + RowBox[{"\[Sigma]", ".", "current"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"{", "#", "}"}], "&"}], "/@", "face"}]}], "]"}], ",", + RowBox[{ + RowBox[{"#", ">", "upperBound"}], "&"}]}], "]"}]}]}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"totals", "[", "i_", "]"}], ":=", + RowBox[{"If", "[", + RowBox[{ + RowBox[{"invalid", "[", + RowBox[{ + RowBox[{"generators", "[", + RowBox[{"[", "i", "]"}], "]"}], ",", + RowBox[{"faces", "[", + RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "0", ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Length", "[", "current", "]"}], "-", + RowBox[{"Length", "[", + RowBox[{"faces", "[", + RowBox[{"[", "i", "]"}], "]"}], "]"}], "-", + RowBox[{"Length", "[", + RowBox[{"Select", "[", + RowBox[{ + RowBox[{"Delete", "[", + RowBox[{"current", ",", + RowBox[{ + RowBox[{ + RowBox[{"{", "#", "}"}], "&"}], "/@", + RowBox[{"faces", "[", + RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", + RowBox[{ + RowBox[{"#", ">", "upperBound"}], "&"}]}], "]"}], "]"}], "+", + RowBox[{"search", "[", + RowBox[{"generators", ",", + RowBox[{ + RowBox[{"generators", "[", + RowBox[{"[", "i", "]"}], "]"}], ".", "current"}], ",", "current", + ",", + RowBox[{"generators", "[", + RowBox[{"[", "i", "]"}], "]"}], ",", "upperBound", ",", "faces"}], + "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"Total", "[", + RowBox[{"totals", "/@", + RowBox[{"Range", "[", + RowBox[{"Length", "[", "generators", "]"}], "]"}]}], "]"}]}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.831585478390266*^9, 3.831585832096991*^9}, { + 3.831585873047202*^9, 3.831585884320414*^9}, {3.8315859333563128`*^9, + 3.83158598633525*^9}, {3.831586158378029*^9, 3.831586222152265*^9}, { + 3.831586295582384*^9, 3.831586377705759*^9}, {3.8315864822120523`*^9, + 3.831586554779951*^9}, {3.8315866296308203`*^9, 3.831586667667411*^9}, { + 3.831586741340292*^9, 3.831586755993217*^9}, {3.831592107164525*^9, + 3.831592113959847*^9}, {3.831592169716857*^9, 3.831592280561895*^9}, { + 3.831593557409717*^9, 3.8315935576894217`*^9}, {3.831593848468913*^9, + 3.8315939374159*^9}, {3.831593976921562*^9, 3.831594001541377*^9}, { + 3.8315940487580757`*^9, 3.8315940927666388`*^9}, {3.831594365932665*^9, + 3.831594522762847*^9}, {3.831594614138864*^9, 3.831594754985476*^9}, { + 3.8315949767507057`*^9, 3.831594980589171*^9}, {3.8316319386522493`*^9, + 3.8316319392747498`*^9}, {3.831641985178143*^9, 3.831642038615139*^9}, + 3.8316436263727818`*^9, {3.831643663092218*^9, 3.8316436694418087`*^9}, { + 3.831643837833714*^9, 3.831643845617309*^9}, {3.8316438865181704`*^9, + 3.831643933219273*^9}, {3.831643991735036*^9, 3.831644005728479*^9}, { + 3.831718518985198*^9, 3.831718538584508*^9}, {3.831718573982415*^9, + 3.831718579591817*^9}, {3.831718638646072*^9, 3.83171867240186*^9}, { + 3.8317201135527287`*^9, 3.831720118218873*^9}, {3.831720321587966*^9, + 3.831720325967662*^9}, {3.831721027895946*^9, 3.831721065838575*^9}, { + 3.831721143231716*^9, 3.831721181846493*^9}, {3.831721396838306*^9, + 3.83172139923806*^9}, {3.831721668116399*^9, 3.831721676695764*^9}, { + 3.831723288861394*^9, 3.831723291074202*^9}, {3.83172431511852*^9, + 3.831724317665661*^9}},ExpressionUUID->"4186f080-27d0-474f-9433-\ +7cdeb3a7a49d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"sigmas", "[", + RowBox[{"[", "2", "]"}], "]"}], ".", + RowBox[{"sigmas", "[", + RowBox[{"[", "1", "]"}], "]"}], ".", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "4", ",", "4", ",", "7"}], + "}"}]}]], "Input", + CellChangeTimes->{{3.831724234689178*^9, 3.831724283457025*^9}, { + 3.831724972343956*^9, 3.8317249758606863`*^9}, {3.831725070698852*^9, + 3.831725103084877*^9}, {3.8317256361313677`*^9, 3.831725651843144*^9}, { + 3.831726812833735*^9, 3.8317268240881433`*^9}}, + CellLabel->"In[92]:=",ExpressionUUID->"ed668427-5774-4eea-a66a-f4ee3f6d5b22"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "2", ",", "10", ",", "20", ",", "28", ",", "31"}], + "}"}]], "Output", + CellChangeTimes->{{3.831724241702208*^9, 3.8317242837322893`*^9}, + 3.831724976289991*^9, {3.831725071460204*^9, 3.8317251039026957`*^9}, { + 3.831725630971492*^9, 3.831725652646872*^9}, 3.831725840720372*^9, { + 3.831726799523673*^9, 3.831726824574212*^9}}, + CellLabel->"Out[92]=",ExpressionUUID->"f67f478c-5848-4791-8910-cf38c6b66079"] +}, Open ]] +}, +WindowSize->{1419., 770.25}, +WindowMargins->{{10.5, Automatic}, {10.5, Automatic}}, +FrontEndVersion->"12.2 for Linux x86 (64-bit) (December 12, 2020)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e8622aad-0bd2-483b-a68b-2a26bc5485be" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 419, 9, 29, "Input",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], +Cell[980, 31, 1054, 27, 92, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], +Cell[2037, 60, 510, 11, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], +Cell[2550, 73, 440, 11, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], +Cell[2993, 86, 1407, 33, 51, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], +Cell[4403, 121, 343, 8, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], +Cell[4749, 131, 1141, 33, 29, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], +Cell[5893, 166, 741, 20, 29, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], +Cell[6637, 188, 672, 19, 29, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], +Cell[7312, 209, 708, 19, 29, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], +Cell[8023, 230, 548, 14, 29, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], +Cell[8574, 246, 702, 19, 29, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], +Cell[9279, 267, 996, 28, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], +Cell[10278, 297, 3990, 106, 298, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], +Cell[14271, 405, 10788, 230, 422, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], +Cell[25062, 637, 885, 23, 29, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], +Cell[CellGroupData[{ +Cell[25972, 664, 327, 8, 29, "Input",ExpressionUUID->"0dee5c81-bf5b-4a3d-b97a-365d1fa22054"], +Cell[26302, 674, 343, 8, 33, "Output",ExpressionUUID->"24045598-9e03-4154-b5b4-26618438a52d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26682, 687, 666, 18, 29, "Input",ExpressionUUID->"965146b1-1c31-406b-b3be-b3243e13b724"], +Cell[27351, 707, 801, 21, 33, "Output",ExpressionUUID->"82e35b12-74ea-4d56-949a-5542e272f403"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28189, 733, 510, 15, 29, "Input",ExpressionUUID->"7d7a9baa-1ee2-4551-818f-a3bee7a7be15"], +Cell[28702, 750, 2722, 61, 338, "Output",ExpressionUUID->"438f541f-8f14-4521-9286-7c37bf8f25d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31461, 816, 1491, 47, 29, "Input",ExpressionUUID->"99762d4d-02fa-4c52-a966-81c24a88ebe5"], +Cell[32955, 865, 1516, 48, 33, "Output",ExpressionUUID->"a1a41bbc-b560-4098-a8cc-10e65cdf87bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[34508, 918, 347, 6, 29, "Input",ExpressionUUID->"b9f41909-31ad-46a1-b81f-600b23bb57a4"], +Cell[34858, 926, 6608, 178, 178, "Output",ExpressionUUID->"0ceb7310-0d12-4a75-afd2-772d1d577420"] +}, Open ]], +Cell[41481, 1107, 4372, 94, 154, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], +Cell[CellGroupData[{ +Cell[45878, 1205, 628, 14, 29, "Input",ExpressionUUID->"ed668427-5774-4eea-a66a-f4ee3f6d5b22"], +Cell[46509, 1221, 482, 9, 56, "Output",ExpressionUUID->"f67f478c-5848-4791-8910-cf38c6b66079"] +}, Open ]] +} +] +*) + diff --git a/gram_matrix_to_quadform.nb b/gram_matrix_to_quadform.nb new file mode 100644 index 0000000..7a13dd1 --- /dev/null +++ b/gram_matrix_to_quadform.nb @@ -0,0 +1,4510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 12.2' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 156433, 4502] +NotebookOptionsPosition[ 143508, 4289] +NotebookOutlinePosition[ 144005, 4307] +CellTagsIndexPosition[ 143962, 4304] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"pivots", "[", "A_", "]"}], ":=", + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{"FirstPosition", "[", "1", "]"}], "/@", + RowBox[{"Transpose", "[", "A", "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831194837404834*^9, 3.8311948924696903`*^9}, { + 3.831194930347896*^9, 3.831194932848599*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"6afae59f-4ed7-45fe-af4f-8b2b99977aa0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"pMatrix", "[", "n_", "]"}], ":=", + RowBox[{"Table", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Which", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"i", "\[Equal]", "2"}], "&&", + RowBox[{"j", "\[Equal]", "1"}]}], "||", + RowBox[{ + RowBox[{"i", "\[Equal]", "1"}], "&&", + RowBox[{"j", "\[Equal]", "2"}]}]}], ",", + RowBox[{ + RowBox[{"-", "1"}], "/", "2"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"i", "\[Equal]", "j"}], "&&", + RowBox[{"i", ">", "2"}]}], ",", "1", ",", "\[IndentingNewLine]", + "True", ",", "0"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", " ", "n"}], "}"}], ",", + RowBox[{"{", + RowBox[{"j", ",", "n"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831107414093502*^9, 3.83110748040809*^9}, { + 3.831107557920609*^9, 3.8311075805621977`*^9}, {3.8311076270925627`*^9, + 3.831107722019619*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"89bc4f4e-9b7e-4800-9ecd-24531052a727"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"gramMatrix", "[", "W_", "]"}], ":=", + RowBox[{"Simplify", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"pMatrix", "[", + RowBox[{"Length", "[", "W", "]"}], "]"}], ".", "W"}], "]"}]}]], "Input", + CellChangeTimes->{{3.831107486071478*^9, 3.831107546093779*^9}, { + 3.831109392242589*^9, 3.831109394639595*^9}, {3.831110190169511*^9, + 3.831110193792735*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"0366738a-6f35-482c-b716-8ce9d936093f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelationsMatrix", "[", "G_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"RowReduce", "[", "G", "]"}], "[", + RowBox[{"[", + RowBox[{"1", ";;", + RowBox[{"MatrixRank", "[", "G", "]"}]}], "]"}], "]"}], "//", + "Transpose"}]}]], "Input", + CellChangeTimes->{{3.831109396818718*^9, 3.831109426888632*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"b6ed0b19-08a4-42a8-a0f9-f244b6935f62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelations", "[", "L_", "]"}], ":=", + RowBox[{"Select", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Equal", "[", + RowBox[{ + SubscriptBox["b", "i"], ",", + RowBox[{ + RowBox[{"L", "[", + RowBox[{"[", "i", "]"}], "]"}], ".", + RowBox[{"Table", "[", + RowBox[{ + SubscriptBox["b", "i"], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}]}]}], "]"}], + ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"Length", "[", "L", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{ + RowBox[{"Not", "[", + RowBox[{"BooleanQ", "[", "#", "]"}], "]"}], "&"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831109446192391*^9, 3.831109495064299*^9}, { + 3.8311095335606937`*^9, 3.831109534992022*^9}, {3.831109584393684*^9, + 3.831109833956565*^9}, {3.8311098747139893`*^9, 3.8311099163122053`*^9}, { + 3.831110035487195*^9, 3.83111004405739*^9}, {3.831110077358601*^9, + 3.831110081551445*^9}, {3.831194643897842*^9, 3.8311946492229443`*^9}, { + 3.831194680087949*^9, 3.831194680680228*^9}, {3.831194956352386*^9, + 3.831195002875142*^9}, {3.831205178380069*^9, 3.831205187846324*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"8245e75c-2d76-48ce-a004-a171152928d8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelationsFromW", "=", + RowBox[{ + "linearRelations", "@*", "linearRelationsMatrix", "@*", "gramMatrix"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.831110103314905*^9, 3.831110162272215*^9}, + 3.831206070230084*^9}, + CellLabel->"In[6]:=",ExpressionUUID->"ae4cbf02-ecda-41d9-b954-c47ca42f6458"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"inverseLinearRelations", "[", "G_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"i", "\[Equal]", "#"}], ",", "1", ",", "0"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"Length", "[", + RowBox[{"G", "[", + RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "&"}], "/@", + RowBox[{"Flatten", "[", + RowBox[{ + RowBox[{ + RowBox[{"FirstPosition", "[", + RowBox[{"#", ",", "1"}], "]"}], "&"}], "/@", + RowBox[{"(", + RowBox[{ + RowBox[{"RowReduce", "[", "G", "]"}], "//", + RowBox[{"Select", "[", + RowBox[{ + RowBox[{"Not", "[", + RowBox[{"AllTrue", "[", + RowBox[{"#", ",", + RowBox[{ + RowBox[{"#", "\[Equal]", "0"}], "&"}]}], "]"}], "]"}], "&"}], + "]"}]}], ")"}]}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.831194278291965*^9, 3.831194298458626*^9}, + 3.831195204231324*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"e879feeb-c143-431d-b60f-65791d8ad5a4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadraticFormMatrix", "[", + RowBox[{"G_", ",", "L_"}], "]"}], ":=", + RowBox[{"Inverse", "[", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"i", ",", " ", "j"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"pivots", "[", "L", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.831195055004586*^9, 3.83119507699967*^9}, { + 3.831195107195753*^9, 3.831195121990181*^9}, {3.831195208095559*^9, + 3.831195214781535*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f4dd8840-fc29-4515-8843-21d6b5328192"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadraticForm", "[", + RowBox[{"Q_", ",", "L_"}], "]"}], ":=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"v", "=", + RowBox[{"Table", "[", + RowBox[{ + SubscriptBox["b", "i"], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"pivots", "[", "L", "]"}]}], "}"}]}], "]"}]}], "}"}], ",", + RowBox[{"Simplify", "[", + RowBox[{ + RowBox[{"v", ".", "Q", ".", "v"}], "\[Equal]", "0"}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.831195241841057*^9, 3.831195289590564*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"f415d590-d64f-4449-a487-145c6f7994a0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadform", "[", "W_", "]"}], ":=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"G", "=", + RowBox[{"gramMatrix", "[", "W", "]"}]}], "}"}], ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"L", "=", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "}"}], ",", + RowBox[{"quadraticForm", "[", + RowBox[{ + RowBox[{"quadraticFormMatrix", "[", + RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.831195337159152*^9, 3.831195396279203*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"8d447c09-3a46-47da-8902-1542001af8cb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadformFromG", "[", "G_", "]"}], ":=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"L", "=", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "}"}], ",", + RowBox[{"quadraticForm", "[", + RowBox[{ + RowBox[{"quadraticFormMatrix", "[", + RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.8312049925958433`*^9, 3.8312050200596113`*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"60159612-8269-4730-81d3-7733c61a595c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"getAlphasFromGext", "[", + RowBox[{"Gext_", ",", "n_"}], "]"}], ":=", + RowBox[{"Gext", "[", + RowBox[{"[", + RowBox[{ + RowBox[{ + RowBox[{"n", "+", "1"}], ";;", + RowBox[{"-", "1"}]}], ",", + RowBox[{"1", ";;", "n"}]}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.831215264500795*^9, 3.831215272170022*^9}, { + 3.831215316671402*^9, 3.83121545636821*^9}, {3.8312155441030188`*^9, + 3.831215591183241*^9}, {3.831215641147872*^9, 3.831215672638311*^9}, { + 3.83121645458947*^9, 3.831216467874423*^9}, {3.831218161790608*^9, + 3.831218164869608*^9}, {3.8312183025496597`*^9, 3.8312183431105633`*^9}, + 3.831218417422567*^9}, + CellLabel->"In[12]:=",ExpressionUUID->"4e2ca172-3a40-440d-be33-c82ada769fb4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"generators", "[", + RowBox[{"Gext_", ",", "n_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"alphas", ",", "BigQ", ",", "G", ",", "Q", ",", "L", ",", "Li"}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"alphas", "=", + RowBox[{"getAlphasFromGext", "[", + RowBox[{"Gext", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"G", "=", + RowBox[{"Gext", "[", + RowBox[{"[", + RowBox[{ + RowBox[{"1", ";;", "n"}], ",", + RowBox[{"1", ";;", "n"}]}], "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"L", "=", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Q", "=", + RowBox[{"quadraticFormMatrix", "[", + RowBox[{"G", ",", "L"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"Li", "=", + RowBox[{"inverseLinearRelations", "[", "G", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"BigQ", "=", + RowBox[{ + RowBox[{"Transpose", "[", "Li", "]"}], ".", "Q", ".", "Li"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"alphas", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", "#", "}"}], "&"}], "/@", "alpha"}], ",", + RowBox[{"{", + RowBox[{"alpha", ",", "alphas"}], "}"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"IdentityMatrix", "[", "n", "]"}], "-", + RowBox[{"2", + RowBox[{ + RowBox[{"(", + RowBox[{"#", ".", + RowBox[{"Transpose", "[", "#", "]"}]}], ")"}], ".", "BigQ"}]}]}], + ")"}], "&"}], "/@", "alphas"}]}]}], "]"}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJwdxVsoQwEABuDxcmob1jpqW4ttjBG5hDRlbeLFyiUU51AuS5SWVszLag+8 +aCVqCk9b5kVCbkOzVhKNsSaj4xaxpCml2BLn38PXJ+8xNhuSORyOhIXzbSnH +I5Pv2lLvbRibpgMM1tVyX3CLaDmKIwLqAzvcpi/s56/Gcd2C9w/fyMbSRtl3 +ZVIRju+rJPhZXZOJm7KOcvGSQlSEk5SBKiycKdNitytdj9fsoUYcpQ2duN1O +3mEdc/qAY9a3V3xRfRjBO+HBb7weJH4Skz7CzD53Py/EW5+zckxuiBV4M2os +xFJxfwkeP+/S4G3VQRsu+PXT2LMX7MMum3UAC6+pIaymXcO40lBuwUxvR84E ++1RGqwqnyskrB3sx7WRwNm/xEa8IqCdslvJ5TvaTBkKJfRpPHqYtsQqs7z6r +x9zLUOJ/WTrYGA== + "], + CellLabel->"In[13]:=",ExpressionUUID->"fac793b9-dd04-4cc1-b981-5915e7ad443d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"G", "=", + RowBox[{"gramMatrix", "[", "W", "]"}]}]], "Input", + CellChangeTimes->{{3.831724598311686*^9, 3.831724604521737*^9}}, + CellLabel->"In[63]:=",ExpressionUUID->"60b582da-ce47-4ec8-a0a8-cbb68490e605"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.831724604899865*^9, {3.831733906361644*^9, 3.831733931101406*^9}}, + CellLabel->"Out[63]=",ExpressionUUID->"e6433845-7bdd-4bb6-a3c6-e23ad168a62e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"sigmas", "=", + RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}]], "Input", + CellChangeTimes->{{3.831733944711832*^9, 3.831733952854465*^9}}, + CellLabel->"In[64]:=",ExpressionUUID->"14f7bbaf-929f-468e-8da0-bfa642027480"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "4", ",", "0", ",", "3", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "3", ",", "0", ",", "4", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "4", ",", "0", ",", "4", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "4", ",", "2", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "3", ",", "3", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "4", ",", "3", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", + RowBox[{"-", "1"}], ",", "3", ",", "3", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", + RowBox[{"-", "1"}], ",", "2", ",", "4", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "0", ",", + RowBox[{"-", "1"}], ",", "3", ",", "4", ",", "0"}], "}"}]}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", "3", ",", + RowBox[{"-", "1"}], ",", "3", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", "2", ",", + RowBox[{"-", "1"}], ",", "4", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"3", ",", "0", ",", "3", ",", + RowBox[{"-", "1"}], ",", "4", ",", "0"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "3", ",", "4", ",", "0", ",", + RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "3", ",", "3", ",", "0", ",", + RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "2", ",", "4", ",", "0", ",", + RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "4", ",", + RowBox[{"-", "1"}], ",", "3", ",", "0", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "4", ",", + RowBox[{"-", "1"}], ",", "2", ",", "0", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "3", ",", + RowBox[{"-", "1"}], ",", "3", ",", "0", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}], ",", "4", ",", "0", ",", "3", ",", "3"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}], ",", "4", ",", "0", ",", "2", ",", "4"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}], ",", "3", ",", "0", ",", "3", ",", "4"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "4", ",", "3", ",", "3"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "4", ",", "2", ",", "4"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "3", ",", "3", ",", "4"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.8317339540070066`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"42353ebc-e5e0-4797-874a-1724f0bf39b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"MatrixForm", "[", + RowBox[{"L", "=", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "]"}]], "Input", + CellChangeTimes->{{3.831724511552237*^9, 3.831724523201714*^9}, { + 3.831724573081215*^9, 3.83172457630226*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"2b0e9c94-8bfb-48d1-b4b6-7b61e59a2c2a"], + +Cell[BoxData[ + TemplateBox[{ + "Part", "span", + "\"\\!\\(\\*RowBox[{\\\"1\\\", \\\";;\\\", RowBox[{\\\"MatrixRank\\\", \ +\\\"[\\\", RowBox[{RowBox[{\\\"Transpose\\\", \\\"[\\\", \\\"W\\\", \ +\\\"]\\\"}], \\\".\\\", RowBox[{\\\"{\\\", \\\"}\\\"}], \\\".\\\", \ +\\\"W\\\"}], \\\"]\\\"}]}]\\) is not a valid Span specification. A Span \ +specification should be 1, 2, or 3 machine-sized integers separated by ;;. \ +(Any of the integers can be omitted or replaced with All.)\"", 2, 15, 1, + 26202881777548931360, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.831733906478146*^9}, + CellLabel-> + "During evaluation of \ +In[15]:=",ExpressionUUID->"d8e03790-f06d-4d95-92ed-8b2bf9f54269"], + +Cell[BoxData[ + TagBox[ + RowBox[{"Transpose", "[", + RowBox[{ + RowBox[{"RowReduce", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"{", "}"}], ".", "W"}], "]"}], "\[LeftDoubleBracket]", + RowBox[{"1", ";;", + RowBox[{"MatrixRank", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"{", "}"}], ".", "W"}], "]"}]}], "\[RightDoubleBracket]"}], + "]"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.831724511858034*^9, 3.831724523644824*^9}, + 3.8317245766248417`*^9, 3.831724608106183*^9, 3.8317339065335693`*^9}, + CellLabel-> + "Out[15]//MatrixForm=",ExpressionUUID->"63b78641-f103-43b2-9be7-\ +6b968e0f1be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"MatrixForm", "[", + RowBox[{"Li", "=", + RowBox[{"inverseLinearRelations", "[", "G", "]"}]}], "]"}]], "Input", + CellChangeTimes->{{3.8317245258461647`*^9, 3.831724528521544*^9}, { + 3.831724643944642*^9, 3.831724647557269*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"fb4de4d1-8a77-484f-b05d-b8426caa1cc9"], + +Cell[BoxData[ + TemplateBox[{ + "RowReduce", "argx", + "\"\\!\\(\\*RowBox[{\\\"RowReduce\\\"}]\\) called with \\!\\(\\*RowBox[{\\\ +\"0\\\"}]\\) arguments; 1 argument is expected.\"", 2, 16, 2, + 26202881777548931360, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.831733906600644*^9}, + CellLabel-> + "During evaluation of \ +In[16]:=",ExpressionUUID->"34aef24b-ddc0-44af-9366-3eeb3f4f6263"], + +Cell[BoxData[ + TagBox[ + RowBox[{"RowReduce", "[", "]"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.831724528941494*^9, 3.8317246479121304`*^9, + 3.831733906607299*^9}, + CellLabel-> + "Out[16]//MatrixForm=",ExpressionUUID->"d53bbe28-77ce-42ca-ae67-\ +cbd0aa584691"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", ".", "Li", ".", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "2", ",", "4", ",", "10", ",", "12", ",", "15"}], + "}"}]}]], "Input", + CellChangeTimes->{{3.8317248465152807`*^9, 3.831724851236409*^9}, { + 3.831724886448069*^9, 3.83172490037088*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"6f212e3d-48a4-420c-b0a9-b24d1d64e19b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Transpose", "[", + RowBox[{ + RowBox[{"RowReduce", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"{", "}"}], ".", "W"}], "]"}], "\[LeftDoubleBracket]", + RowBox[{"1", ";;", + RowBox[{"MatrixRank", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"{", "}"}], ".", "W"}], "]"}]}], "\[RightDoubleBracket]"}], + "]"}], ".", + RowBox[{"RowReduce", "[", "]"}], ".", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "2", ",", "4", ",", "10", ",", "12", ",", "15"}], + "}"}]}]], "Output", + CellChangeTimes->{3.8317248516088257`*^9, 3.8317249009883947`*^9, + 3.831733906642334*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"4de97c17-9a2a-4c69-b4b2-a5d9ae77d610"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"L", ".", "Li"}], "//", "MatrixForm"}]], "Input", + CellChangeTimes->{{3.831724757229838*^9, 3.8317247606225367`*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"ea1d0153-4f54-4a30-a400-c74e5ea10596"], + +Cell[BoxData[ + TagBox[ + RowBox[{ + RowBox[{"Transpose", "[", + RowBox[{ + RowBox[{"RowReduce", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"{", "}"}], ".", "W"}], "]"}], "\[LeftDoubleBracket]", + RowBox[{"1", ";;", + RowBox[{"MatrixRank", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"{", "}"}], ".", "W"}], "]"}]}], "\[RightDoubleBracket]"}], + "]"}], ".", + RowBox[{"RowReduce", "[", "]"}]}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.8317247609196253`*^9, 3.8317339066785927`*^9}, + CellLabel-> + "Out[18]//MatrixForm=",ExpressionUUID->"db4546a4-6513-493e-b9ab-\ +aee7a0249c64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Li", ".", "L"}], "//", "MatrixForm"}]], "Input", + CellChangeTimes->{{3.8317245325290956`*^9, 3.83172453757395*^9}, { + 3.8317247128536367`*^9, 3.8317247144385443`*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"25e1f91b-c002-4733-923a-0caf3aaa7dd5"], + +Cell[BoxData[ + TagBox[ + RowBox[{ + RowBox[{"RowReduce", "[", "]"}], ".", + RowBox[{"Transpose", "[", + RowBox[{ + RowBox[{"RowReduce", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"{", "}"}], ".", "W"}], "]"}], "\[LeftDoubleBracket]", + RowBox[{"1", ";;", + RowBox[{"MatrixRank", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", + RowBox[{"{", "}"}], ".", "W"}], "]"}]}], "\[RightDoubleBracket]"}], + "]"}]}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.831724533818581*^9, 3.831724537864985*^9}, + 3.8317247151819553`*^9, 3.831733906716614*^9}, + CellLabel-> + "Out[19]//MatrixForm=",ExpressionUUID->"63cad9cf-5f43-4a56-be82-\ +01b6493dfe2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"sigmas", "=", + RowBox[{"generators", "[", + RowBox[{GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "0", "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0"}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", "0"}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0"}, + {"0", "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + {"0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + {"0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + {"0", "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", "0", + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0", + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }], ",", "6"}], "]"}]}]], "Input", + CellChangeTimes->{{3.831215459988925*^9, 3.831215535693565*^9}, { + 3.831215605159486*^9, 3.8312156052930803`*^9}, {3.831215925810574*^9, + 3.8312159267849092`*^9}, {3.831216893992444*^9, 3.831217012779044*^9}, { + 3.831217565608238*^9, 3.8312176084077463`*^9}, {3.831217668572101*^9, + 3.831217848093937*^9}, {3.8312179575295467`*^9, 3.831217958560624*^9}, { + 3.831218454434473*^9, 3.831218461070653*^9}, {3.8312192995653343`*^9, + 3.831219345234679*^9}, {3.8312193796955023`*^9, 3.831219382369019*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"1e7275d7-0881-44f4-ab52-53a98494f405"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "2", ",", "4", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "2", ",", "4", ",", + RowBox[{"-", "2"}], ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "2", ",", "4", ",", + RowBox[{"-", "2"}], ",", "0", ",", "1"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "3", ",", + RowBox[{"-", "4"}], ",", "6", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "2", ",", + RowBox[{"-", "3"}], ",", "6", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "2", ",", + RowBox[{"-", "4"}], ",", "6", ",", "0", ",", "1"}], "}"}]}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", + RowBox[{"-", "1"}], ",", "4", ",", "2", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", + RowBox[{"-", "2"}], ",", "4", ",", "2", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", + RowBox[{"-", "2"}], ",", "4", ",", "2", ",", "0", ",", "1"}], "}"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", "2", ",", "4", ",", "6", ",", "0", ",", "0"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", "3", ",", "4", ",", "6", ",", "0", ",", "0"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", "2", ",", "4", ",", "6", ",", "1", ",", "0"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", "6", ",", "4", ",", "2", ",", "0", ",", "0"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", "6", ",", "4", ",", "3", ",", "0", ",", "0"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", "6", ",", "4", ",", "2", ",", "1", ",", "0"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "6", ",", + RowBox[{"-", "3"}], ",", "2", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "6", ",", + RowBox[{"-", "4"}], ",", "3", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"4", ",", "6", ",", + RowBox[{"-", "4"}], ",", "2", ",", "0", ",", "1"}], "}"}]}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", "6", ",", + RowBox[{"-", "4"}], ",", "10", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", "7", ",", + RowBox[{"-", "4"}], ",", "10", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", "6", ",", + RowBox[{"-", "3"}], ",", "10", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", "10", ",", + RowBox[{"-", "4"}], ",", "6", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", "10", ",", + RowBox[{"-", "3"}], ",", "6", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", "10", ",", + RowBox[{"-", "4"}], ",", "7", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], + "}"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.831215539591612*^9, 3.831215549639584*^9}, { + 3.8312155950701323`*^9, 3.8312156057647333`*^9}, 3.8312156446265163`*^9, + 3.831215675042502*^9, 3.831215927317412*^9, 3.831215997401908*^9, + 3.831216048770994*^9, {3.831216084829075*^9, 3.831216096263542*^9}, { + 3.8312161418097563`*^9, 3.8312162545331297`*^9}, {3.8312163273658447`*^9, + 3.83121633526165*^9}, {3.831216382699875*^9, 3.8312164183492107`*^9}, { + 3.83121646155829*^9, 3.8312164715382433`*^9}, {3.831216539046227*^9, + 3.8312166087211246`*^9}, {3.831216675025569*^9, 3.831216690811761*^9}, { + 3.831216723223968*^9, 3.831216739376601*^9}, {3.8312168086183233`*^9, + 3.831216829390913*^9}, {3.8312168615588007`*^9, 3.831216877208156*^9}, + 3.831217851972715*^9, {3.8312179092594213`*^9, 3.8312179594293222`*^9}, + 3.831217992472834*^9, 3.83121807487899*^9, 3.831218126270625*^9, { + 3.831218170027605*^9, 3.831218193016197*^9}, 3.8312182488539658`*^9, + 3.831218283692891*^9, {3.831218327478571*^9, 3.8312183498905983`*^9}, + 3.8312184226869307`*^9, 3.831218461600767*^9, {3.831218550108727*^9, + 3.8312185744010983`*^9}, {3.8312187859142523`*^9, 3.831218984402486*^9}, + 3.831219026475367*^9, {3.831219099586753*^9, 3.831219187758944*^9}, { + 3.831219363076357*^9, 3.831219382952488*^9}, {3.831247163836287*^9, + 3.831247174777843*^9}, 3.831305920065256*^9, 3.8313059599357023`*^9, { + 3.831306006180064*^9, 3.8313060226567*^9}, 3.831306336011465*^9, { + 3.831306381271515*^9, 3.831306430141878*^9}, 3.831306464840537*^9, { + 3.831306497690711*^9, 3.831306538269595*^9}, {3.831306586124851*^9, + 3.83130668163654*^9}, 3.83130685112145*^9, 3.831542392381619*^9, + 3.831542424887939*^9, 3.8317197020614653`*^9, 3.831733906772625*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"1622d249-8481-4a64-8703-748bdf00228f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Print", "[", + RowBox[{"MatrixForm", "[", "#", "]"}], "]"}], "&"}], "/@", "sigmas"}], + ";"}]], "Input", + CellChangeTimes->{{3.831247080537026*^9, 3.831247090264936*^9}, + 3.831306865635144*^9}, + CellLabel->"In[21]:=",ExpressionUUID->"dacce9b4-387a-4f10-a77b-20ec4eb98f2d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", "0", "0", "0", "0", "0"}, + {"0", "1", "0", "0", "0", "0"}, + {"0", "0", "1", "0", "0", "0"}, + {"4", "2", "4", + RowBox[{"-", "1"}], "0", "0"}, + {"4", "2", "4", + RowBox[{"-", "2"}], "1", "0"}, + {"4", "2", "4", + RowBox[{"-", "2"}], "0", "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$]]]], "Print", + CellChangeTimes->{ + 3.831247090841385*^9, {3.83130661326173*^9, 3.831306684004347*^9}, { + 3.83130685565565*^9, 3.831306866477697*^9}, 3.831542392401094*^9, + 3.831542424907632*^9, 3.831719702090219*^9, 3.831733906819706*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"91297213-498c-48fd-8add-66721dc17151"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", "0", "0", "0", "0", "0"}, + {"4", "3", + RowBox[{"-", "4"}], "6", "0", "0"}, + {"4", "2", + RowBox[{"-", "3"}], "6", "0", "0"}, + {"0", "0", "0", "1", "0", "0"}, + {"0", "0", "0", "0", "1", "0"}, + {"4", "2", + RowBox[{"-", "4"}], "6", "0", "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$]]]], "Print", + CellChangeTimes->{ + 3.831247090841385*^9, {3.83130661326173*^9, 3.831306684004347*^9}, { + 3.83130685565565*^9, 3.831306866477697*^9}, 3.831542392401094*^9, + 3.831542424907632*^9, 3.831719702090219*^9, 3.831733906822586*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"3425a986-973b-42de-84ed-eb3aeb0b4de1"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", "0", "0", "0", "0", "0"}, + {"4", + RowBox[{"-", "1"}], "4", "2", "0", "0"}, + {"0", "0", "1", "0", "0", "0"}, + {"0", "0", "0", "1", "0", "0"}, + {"4", + RowBox[{"-", "2"}], "4", "2", "1", "0"}, + {"4", + RowBox[{"-", "2"}], "4", "2", "0", "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$]]]], "Print", + CellChangeTimes->{ + 3.831247090841385*^9, {3.83130661326173*^9, 3.831306684004347*^9}, { + 3.83130685565565*^9, 3.831306866477697*^9}, 3.831542392401094*^9, + 3.831542424907632*^9, 3.831719702090219*^9, 3.831733906826713*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"dd0b02f8-81a2-4f44-9994-1740a018ee61"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + { + RowBox[{"-", "3"}], "2", "4", "6", "0", "0"}, + { + RowBox[{"-", "4"}], "3", "4", "6", "0", "0"}, + {"0", "0", "1", "0", "0", "0"}, + {"0", "0", "0", "1", "0", "0"}, + { + RowBox[{"-", "4"}], "2", "4", "6", "1", "0"}, + {"0", "0", "0", "0", "0", "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$]]]], "Print", + CellChangeTimes->{ + 3.831247090841385*^9, {3.83130661326173*^9, 3.831306684004347*^9}, { + 3.83130685565565*^9, 3.831306866477697*^9}, 3.831542392401094*^9, + 3.831542424907632*^9, 3.831719702090219*^9, 3.831733906827991*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"d2d05bf0-b6d5-450c-aed2-d371f2cbedfd"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + { + RowBox[{"-", "3"}], "6", "4", "2", "0", "0"}, + {"0", "1", "0", "0", "0", "0"}, + {"0", "0", "1", "0", "0", "0"}, + { + RowBox[{"-", "4"}], "6", "4", "3", "0", "0"}, + { + RowBox[{"-", "4"}], "6", "4", "2", "1", "0"}, + {"0", "0", "0", "0", "0", "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$]]]], "Print", + CellChangeTimes->{ + 3.831247090841385*^9, {3.83130661326173*^9, 3.831306684004347*^9}, { + 3.83130685565565*^9, 3.831306866477697*^9}, 3.831542392401094*^9, + 3.831542424907632*^9, 3.831719702090219*^9, 3.831733906829281*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"290a1136-abeb-480e-9bdc-8905acfbf15e"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", "0", "0", "0", "0", "0"}, + {"0", "1", "0", "0", "0", "0"}, + {"4", "6", + RowBox[{"-", "3"}], "2", "0", "0"}, + {"4", "6", + RowBox[{"-", "4"}], "3", "0", "0"}, + {"0", "0", "0", "0", "1", "0"}, + {"4", "6", + RowBox[{"-", "4"}], "2", "0", "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$]]]], "Print", + CellChangeTimes->{ + 3.831247090841385*^9, {3.83130661326173*^9, 3.831306684004347*^9}, { + 3.83130685565565*^9, 3.831306866477697*^9}, 3.831542392401094*^9, + 3.831542424907632*^9, 3.831719702090219*^9, 3.831733906830665*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"f15772b8-9d8b-445e-96c5-cff6b5226c3a"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + { + RowBox[{"-", "3"}], "6", + RowBox[{"-", "4"}], "10", "0", "0"}, + { + RowBox[{"-", "4"}], "7", + RowBox[{"-", "4"}], "10", "0", "0"}, + { + RowBox[{"-", "4"}], "6", + RowBox[{"-", "3"}], "10", "0", "0"}, + {"0", "0", "0", "1", "0", "0"}, + {"0", "0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "0", "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$]]]], "Print", + CellChangeTimes->{ + 3.831247090841385*^9, {3.83130661326173*^9, 3.831306684004347*^9}, { + 3.83130685565565*^9, 3.831306866477697*^9}, 3.831542392401094*^9, + 3.831542424907632*^9, 3.831719702090219*^9, 3.8317339068321457`*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"3433cbb1-8a48-432e-8bd9-858739c7e722"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + { + RowBox[{"-", "3"}], "10", + RowBox[{"-", "4"}], "6", "0", "0"}, + {"0", "1", "0", "0", "0", "0"}, + { + RowBox[{"-", "4"}], "10", + RowBox[{"-", "3"}], "6", "0", "0"}, + { + RowBox[{"-", "4"}], "10", + RowBox[{"-", "4"}], "7", "0", "0"}, + {"0", "0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "0", "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$]]]], "Print", + CellChangeTimes->{ + 3.831247090841385*^9, {3.83130661326173*^9, 3.831306684004347*^9}, { + 3.83130685565565*^9, 3.831306866477697*^9}, 3.831542392401094*^9, + 3.831542424907632*^9, 3.831719702090219*^9, 3.8317339068337793`*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"ef572e16-e211-4795-9cba-acb1d2ca1202"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"sigmas", "[", + RowBox[{"[", "5", "]"}], "]"}], ".", + RowBox[{"{", + RowBox[{"2", ",", "2", ",", "7", ",", "4", ",", + RowBox[{"-", "1"}], ",", "4"}], "}"}]}]], "Input", + CellChangeTimes->{{3.831219277376383*^9, 3.83121929137999*^9}, { + 3.8312193870037107`*^9, 3.831219414222094*^9}, {3.831219467486017*^9, + 3.8312194772628403`*^9}, {3.831219526673534*^9, 3.83121953945252*^9}, { + 3.831306706024736*^9, 3.83130679878345*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"688e7e89-2335-43ab-bf07-49551244c00a"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"42", ",", "2", ",", "7", ",", "44", ",", "39", ",", "4"}], + "}"}]], "Output", + CellChangeTimes->{{3.831219389495224*^9, 3.831219415075218*^9}, { + 3.831219468264454*^9, 3.831219477898222*^9}, {3.8312195276698523`*^9, + 3.8312195401776533`*^9}, {3.831306693771055*^9, 3.831306799524205*^9}, + 3.831306874610914*^9, 3.831542392429064*^9, 3.831542424934133*^9, + 3.831719702122438*^9, 3.8317339068757057`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"48cccd6d-91f8-40d9-ad8a-7e2b3a0b7ca1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"allData", "[", "G_", "]"}], ":=", + RowBox[{"{", + RowBox[{ + RowBox[{"quadformFromG", "[", "G", "]"}], ",", + RowBox[{"linearRelations", "[", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}], "]"}]}], + "}"}]}]], "Input", + CellChangeTimes->{{3.831205683122826*^9, 3.831205703101096*^9}, { + 3.831306883180922*^9, 3.831306885928121*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cdb5988-583a-4889-8b21-7e9d007cfc7f"], + +Cell["Not my code; no clue how it works", "Text", + CellChangeTimes->{{3.8312108712095747`*^9, + 3.831210876577606*^9}},ExpressionUUID->"5aaecebe-3db7-415d-bc8a-\ +6a7a8474be62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"nextCandidate", "[", + RowBox[{"s_", ",", "t_", ",", "adj_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"length", ",", "pos"}], "}"}], ",", + RowBox[{ + RowBox[{"length", "=", + RowBox[{"Length", "[", "adj", "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"pos", "=", + RowBox[{"Mod", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Position", "[", + RowBox[{"adj", ",", "s"}], "]"}], "[", + RowBox[{"[", + RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", "1"}], ",", "length", + ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"t", ",", + RowBox[{"adj", "[", + RowBox[{"[", "pos", "]"}], "]"}]}], "}"}]}]}], "]"}]}], + ";"}]], "Input", + CellChangeTimes->{3.831210886725911*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"26cccec1-dcb3-4ea2-a1fd-cd8f1833a2f5"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{"g_", "?", "PlanarGraphQ"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", "emb", "}"}], ",", + RowBox[{ + RowBox[{"emb", "=", + RowBox[{"GraphEmbedding", "[", + RowBox[{"g", ",", "\"\\""}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"FindFace", "[", + RowBox[{"g", ",", "emb"}], "]"}]}]}], "]"}]}], ";"}], + "\[IndentingNewLine]"}], "\n", + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{ + RowBox[{"g_", "?", "PlanarGraphQ"}], ",", "emb_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "m", ",", "orderings", ",", "pAdj", ",", "rightF", ",", "s", ",", "t", + ",", "initial", ",", "face"}], "}"}], ",", + RowBox[{ + RowBox[{"m", "=", + RowBox[{"AdjacencyMatrix", "[", "g", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"pAdj", "[", "v", "]"}], "=", + RowBox[{"SortBy", "[", + RowBox[{ + RowBox[{"Pick", "[", + RowBox[{ + RowBox[{"VertexList", "[", "g", "]"}], ",", + RowBox[{"m", "[", + RowBox[{"[", "v", "]"}], "]"}], ",", "1"}], "]"}], ",", + RowBox[{ + RowBox[{"ArcTan", "@@", + RowBox[{"(", + RowBox[{ + RowBox[{"emb", "[", + RowBox[{"[", "v", "]"}], "]"}], "-", + RowBox[{"emb", "[", + RowBox[{"[", "#", "]"}], "]"}]}], ")"}]}], "&"}]}], "]"}]}], + ",", + RowBox[{"{", + RowBox[{"v", ",", + RowBox[{"VertexList", "[", "g", "]"}]}], "}"}]}], "]"}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"rightF", "[", "_", "]"}], ":=", "False"}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Reap", "[", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"!", + RowBox[{"rightF", "[", "e", "]"}]}], ",", + RowBox[{ + RowBox[{"s", "=", + RowBox[{"e", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"t", "=", + RowBox[{"e", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"initial", "=", "s"}], ";", "\[IndentingNewLine]", + RowBox[{"face", "=", + RowBox[{"{", "s", "}"}]}], ";", "\[IndentingNewLine]", + RowBox[{"While", "[", + RowBox[{ + RowBox[{"t", "=!=", "initial"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"rightF", "[", + RowBox[{"UndirectedEdge", "[", + RowBox[{"s", ",", "t"}], "]"}], "]"}], "=", "True"}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{"s", ",", "t"}], "}"}], "=", + RowBox[{"nextCandidate", "[", + RowBox[{"s", ",", "t", ",", + RowBox[{"pAdj", "[", "t", "]"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"face", "=", + RowBox[{"Join", "[", + RowBox[{"face", ",", + RowBox[{"{", "s", "}"}]}], "]"}]}], ";"}]}], "]"}], ";", + "\[IndentingNewLine]", + RowBox[{"Sow", "[", "face", "]"}], ";"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"e", ",", + RowBox[{"EdgeList", "[", "g", "]"}]}], "}"}]}], "]"}], "]"}], "[", + + RowBox[{"[", + RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}]}], "Input", + CellChangeTimes->{{3.8312108953940573`*^9, 3.831210895411563*^9}, + 3.8312119634327393`*^9, 3.831542420732052*^9}, + CellLabel->"In[25]:=",ExpressionUUID->"759a5754-3daf-472d-882e-9ec14e276fb5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"MatrixForm", "[", + RowBox[{"W", "=", GridBox[{ + {"2", "2", + RowBox[{"-", "1"}], "7", "4", "4"}, + {"0", "0", "1", "1", "2", "2"}, + {"0", "0", "0", + RowBox[{"2", + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{"2", + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{"2", + RowBox[{"Sqrt", "[", "2", "]"}]}]}, + {"1", + RowBox[{"-", "1"}], "0", "0", "1", + RowBox[{"-", "1"}]} + }]}], "]"}]], "Input", + CellChangeTimes->{{3.8311082672815933`*^9, 3.831108356286454*^9}}, + CellLabel->"In[62]:=",ExpressionUUID->"f34a66d9-d092-4a23-b3f2-2fabe4238e9d"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"2", "2", + RowBox[{"-", "1"}], "7", "4", "4"}, + {"0", "0", "1", "1", "2", "2"}, + {"0", "0", "0", + RowBox[{"2", " ", + SqrtBox["2"]}], + RowBox[{"2", " ", + SqrtBox["2"]}], + RowBox[{"2", " ", + SqrtBox["2"]}]}, + {"1", + RowBox[{"-", "1"}], "0", "0", "1", + RowBox[{"-", "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.83110834128862*^9, 3.8311083567098637`*^9}, + 3.831195430923443*^9, 3.831196366350925*^9, 3.831207370852112*^9, + 3.83121100187215*^9, 3.831542392496663*^9, 3.831542424974165*^9, + 3.8317197021620693`*^9, 3.831724591999769*^9, {3.831733906946054*^9, + 3.831733924173818*^9}}, + CellLabel-> + "Out[62]//MatrixForm=",ExpressionUUID->"71688902-8aec-47a9-8a29-\ +ba1bf1bcf1d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"bt", "=", + RowBox[{"2", + RowBox[{"(", + RowBox[{"2", "+", + RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}]}], "\[IndentingNewLine]", + RowBox[{"b", "=", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2", "+", + RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}]}]}], "Input", + CellChangeTimes->{{3.8309606106520023`*^9, 3.830960697855505*^9}, { + 3.8309608963092813`*^9, 3.830960898060483*^9}, 3.830963193751027*^9, { + 3.830982500480443*^9, 3.830982500714365*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"340ebd40-7f28-4e16-8720-5b3bfc9dabe0"], + +Cell[BoxData[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}]], "Output", + CellChangeTimes->{3.831194379932521*^9, 3.831196066703268*^9, + 3.831206087181739*^9, 3.831207370954013*^9, 3.8315423925114193`*^9, + 3.8315424249947243`*^9, 3.8317197021845512`*^9, 3.83173390698477*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"30cd84d4-7aa8-4662-b8db-21538cb0541a"], + +Cell[BoxData[ + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]]], "Output", + CellChangeTimes->{3.831194379932521*^9, 3.831196066703268*^9, + 3.831206087181739*^9, 3.831207370954013*^9, 3.8315423925114193`*^9, + 3.8315424249947243`*^9, 3.8317197021845512`*^9, 3.8317339069866037`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"a12c6b18-af53-4004-91e4-4372488a9df2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"W", " ", "=", " ", GridBox[{ + {"2", "2", "2", "2", "2", "2", "2", "2", "bt", "bt", "bt", "bt", "bt", + "bt", "bt", "bt"}, + {"1", "1", "1", "1", "1", "1", "1", "1", "b", "b", "b", "b", "b", "b", + "b", "b"}, + {"1", "1", "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", "1", "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + {"1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + {"1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]} + }]}]], "Input", + CellChangeTimes->{{3.83096052402245*^9, 3.8309605349829683`*^9}, { + 3.830960644959939*^9, 3.8309607266845617`*^9}, {3.830960971416868*^9, + 3.830960996016148*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"f681ec66-6355-4920-bbf6-f06d5a3d4a87"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", + ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", + ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.831194390295527*^9, {3.8311960685225687`*^9, 3.831196081778158*^9}, + 3.8312060886930237`*^9, 3.8312073710129147`*^9, 3.831542392529861*^9, + 3.831542425015565*^9, 3.8317197022084923`*^9, 3.83173390705995*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"07e29fa2-067d-48ed-9337-8e3cca8ca706"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"b", "=."}], ";", + RowBox[{"bt", "=."}]}]], "Input", + CellChangeTimes->{{3.8311960962880583`*^9, 3.831196113655105*^9}, { + 3.831196161181222*^9, 3.831196162331032*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"1c3f997e-d820-495f-8ca7-90b29275d826"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"MatrixForm", "[", + RowBox[{"G", "=", + RowBox[{"gramMatrix", "[", "W", "]"}]}], "]"}]], "Input", + CellChangeTimes->{{3.831194403315867*^9, 3.831194413926792*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"858777a7-5c14-4fa1-9028-76443866e688"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.831194407689033*^9, 3.831194414225404*^9}, + 3.8311961021207743`*^9, 3.831196371174876*^9, 3.831206092462121*^9, + 3.831207371078855*^9, 3.83154239257542*^9, 3.8315424250424643`*^9, + 3.831719702257909*^9, 3.8317339071279707`*^9}, + CellLabel-> + "Out[32]//MatrixForm=",ExpressionUUID->"fd922d4d-637d-4f51-a4b8-\ +dce99d620611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelationsMatrix", "[", "G", "]"}], "//", "pivots"}]], "Input",\ + + CellChangeTimes->{{3.831194529568935*^9, 3.831194544316592*^9}, { + 3.8311945872707644`*^9, 3.8311945928709927`*^9}, {3.831194902421624*^9, + 3.831194939402134*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"7709831e-9c42-45d2-8a41-356203765656"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3", ",", "5", ",", "9"}], "}"}]], "Output", + CellChangeTimes->{{3.831194534391061*^9, 3.831194544596918*^9}, + 3.831194593294497*^9, {3.831194903305241*^9, 3.831194909955353*^9}, + 3.831194940251837*^9, 3.831207371104538*^9, 3.831542392590426*^9, + 3.83154242506217*^9, 3.831719702277472*^9, 3.8317339071591587`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"e0ec0858-c1c6-419c-aae4-bebed3dc95ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"linearRelationsMatrix", "[", "G", "]"}], "//", + "linearRelations"}], "//", "Column"}]], "Input", + CellChangeTimes->{{3.831194419687883*^9, 3.8311944219515743`*^9}, { + 3.831194477393865*^9, 3.831194498442638*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"75ce78eb-e1e8-46bd-a62c-3aebd71d1af9"], + +Cell[BoxData[ + TagBox[GridBox[{ + { + RowBox[{ + SubscriptBox["b", "4"], "\[Equal]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "6"], "\[Equal]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "5"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "7"], "\[Equal]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "8"], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "10"], "\[Equal]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "9"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "11"], "\[Equal]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "9"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "12"], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "9"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "13"], "\[Equal]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "14"], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "15"], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "16"], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]}]} + }, + DefaultBaseStyle->"Column", + GridBoxAlignment->{"Columns" -> {{Left}}}, + GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], + "Column"]], "Output", + CellChangeTimes->{{3.831194422362702*^9, 3.8311944470278683`*^9}, { + 3.831194478390127*^9, 3.831194498831534*^9}, 3.831194770573347*^9, { + 3.831194964202739*^9, 3.83119500607583*^9}, 3.831207371131754*^9, + 3.831542392607411*^9, 3.831542425081668*^9, 3.831719702300045*^9, + 3.831733907184709*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"1f8ef813-7305-4eeb-9c41-a4f909d1bb12"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(", + RowBox[{"Q", "=", + RowBox[{"quadraticFormMatrix", "[", + RowBox[{"G", ",", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "]"}]}], ")"}], "//", + "MatrixForm"}]], "Input", + CellChangeTimes->{{3.8311951283695393`*^9, 3.8311951300489273`*^9}, { + 3.831195228238792*^9, 3.831195235760833*^9}, {3.831195302088871*^9, + 3.831195305855007*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"1a24af65-4444-4345-9190-3e9030065556"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + { + FractionBox["2", "3"], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}]}, + { + RowBox[{"-", + FractionBox["1", "12"]}], + FractionBox["1", "6"], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}]}, + { + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + FractionBox["1", "6"], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}]}, + { + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + FractionBox["1", "6"], + RowBox[{"-", + FractionBox["1", "12"]}]}, + { + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + RowBox[{"-", + FractionBox["1", "12"]}], + FractionBox["1", "6"]} + }, + 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.831195130444459*^9, {3.831195231603388*^9, 3.831195236033227*^9}, + 3.83119530755203*^9, 3.831207371158412*^9, 3.831542392624728*^9, + 3.831542425100697*^9, 3.831719702322307*^9, 3.831733907208432*^9}, + CellLabel-> + "Out[35]//MatrixForm=",ExpressionUUID->"9877bb8c-02f6-4d6b-8154-\ +c50f3775d4b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"quadraticForm", "[", + RowBox[{"Q", ",", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}]}], "]"}]], "Input", + CellChangeTimes->{{3.831195296570524*^9, 3.831195315175604*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"25682f5f-59ee-495a-999f-1d64c3564228"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"4", " ", + SubsuperscriptBox["b", "1", "2"]}], "+", + SubsuperscriptBox["b", "2", "2"], "+", + SubsuperscriptBox["b", "3", "2"], "+", + SubsuperscriptBox["b", "5", "2"], "+", + SubsuperscriptBox["b", "9", "2"]}], "\[Equal]", + RowBox[{ + RowBox[{ + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "5"]}], "+", + RowBox[{ + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "9"]}], "+", + RowBox[{ + SubscriptBox["b", "5"], " ", + SubscriptBox["b", "9"]}], "+", + RowBox[{ + SubscriptBox["b", "2"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}], ")"}]}], "+", + RowBox[{ + SubscriptBox["b", "1"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}], ")"}]}]}]}]], "Output", + CellChangeTimes->{3.831195315621129*^9, 3.831207371191777*^9, + 3.831542392655108*^9, 3.8315424251279583`*^9, 3.8317197023486834`*^9, + 3.831733907238909*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"ec2390b1-d380-4cc7-9d46-baa323b58104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"pivots", "[", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}], "]"}]}], "}"}], ",", + + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"pivots", "[", + RowBox[{"linearRelationsMatrix", "[", "G", "]"}], "]"}]}], "}"}]}], + "]"}], "//", "MatrixForm"}]], "Input", + CellChangeTimes->{{3.8311951506161537`*^9, 3.831195192661355*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"cd286a41-7226-4e9c-a896-90a76edcf34e"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], "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.831195162749529*^9, 3.8311951930978107`*^9}, + 3.8312073713296413`*^9, 3.8315423926703787`*^9, 3.8315424251476517`*^9, + 3.8317197023688498`*^9, 3.8317339072676086`*^9}, + CellLabel-> + "Out[37]//MatrixForm=",ExpressionUUID->"f6a18d3c-e2c4-47c5-a2bf-\ +836e90e72cde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"quadform", "[", "W", "]"}], "//", "Expand"}]], "Input", + CellChangeTimes->{{3.8311954001081743`*^9, 3.8311954038105183`*^9}, { + 3.831196139992606*^9, 3.831196141101583*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"54f16314-a3b1-47d1-8745-d78faebdbd6a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"4", " ", + SubsuperscriptBox["b", "1", "2"]}], "+", + SubsuperscriptBox["b", "2", "2"], "+", + SubsuperscriptBox["b", "3", "2"], "+", + SubsuperscriptBox["b", "5", "2"], "+", + SubsuperscriptBox["b", "9", "2"]}], "\[Equal]", + RowBox[{ + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "2"]}], "+", + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "3"]}], "+", + RowBox[{ + SubscriptBox["b", "2"], " ", + SubscriptBox["b", "3"]}], "+", + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "5"]}], "+", + RowBox[{ + SubscriptBox["b", "2"], " ", + SubscriptBox["b", "5"]}], "+", + RowBox[{ + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "5"]}], "+", + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "9"]}], "+", + RowBox[{ + SubscriptBox["b", "2"], " ", + SubscriptBox["b", "9"]}], "+", + RowBox[{ + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "9"]}], "+", + RowBox[{ + SubscriptBox["b", "5"], " ", + SubscriptBox["b", "9"]}]}]}]], "Output", + CellChangeTimes->{ + 3.831195404278631*^9, 3.831195434933387*^9, {3.831196106539036*^9, + 3.8311961413868437`*^9}, 3.8312073713550787`*^9, 3.831542392687602*^9, + 3.8315424251676903`*^9, 3.831719702389514*^9, 3.8317339072904787`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"90f65885-eed7-4f27-a0e3-65b8f1b0a5a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"AdjacencyGraph", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"#", "\[Equal]", + RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", + "#"}], "&"}], "/@", "G"}], "]"}]], "Input", + CellChangeTimes->{{3.831196238388823*^9, 3.831196277432535*^9}, { + 3.831196380902429*^9, 3.831196384915271*^9}, {3.831206102562517*^9, + 3.831206104294519*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"5a9306e8-9cea-49bb-8f27-2b91314d9a3a"], + +Cell[BoxData[ + GraphicsBox[ + NamespaceBox["NetworkGraphics", + DynamicModuleBox[{Typeset`graph = HoldComplete[ + Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}, {Null, + SparseArray[ + Automatic, {16, 16}, 0, { + 1, {{0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, + 64}, {{2}, {3}, {5}, {9}, {1}, {4}, {6}, {10}, {1}, {4}, {7}, { + 11}, {2}, {3}, {8}, {12}, {1}, {6}, {7}, {13}, {2}, {5}, {8}, { + 14}, {3}, {5}, {8}, {15}, {4}, {6}, {7}, {16}, {1}, {10}, {11}, { + 13}, {2}, {9}, {12}, {14}, {3}, {9}, {12}, {15}, {4}, {10}, {11}, { + 16}, {5}, {9}, {14}, {15}, {6}, {10}, {13}, {16}, {7}, {11}, {13}, { + 16}, {8}, {12}, {14}, {15}}}, Pattern}]}]]}, + TagBox[ + GraphicsGroupBox[ + GraphicsComplexBox[{{1.5570700282933845`, 1.8175702803485665`}, { + 0.7537938818479142, 2.3787933158342636`}, {2.462082564720662, + 1.6825168472383258`}, {1.717838435398217, 2.347472709972434}, { + 0.853864681517752, 1.0390722235627514`}, {0.07900578909477751, + 1.6914982415466815`}, {1.9004769236857144`, 0.9618604113422262}, { + 1.0426327053192588`, 1.662258853322355}, {1.4193491800498765`, + 0.717911363255552}, {0.562139187574346, 1.4179209725758513`}, { + 2.3816404790330514`, 0.688148858360405}, {1.6086442402636627`, + 1.3415838657321721`}, {0.7444448403869581, 0.03286405859435515}, {0., + 0.6963474867674411}, {1.7071636879743028`, 0.}, {0.9051814194960076, + 0.5635092082627097}}, { + {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.], + ArrowBox[{{1, 2}, {1, 3}, {1, 5}, {1, 9}, {2, 4}, {2, 6}, {2, 10}, { + 3, 4}, {3, 7}, {3, 11}, {4, 8}, {4, 12}, {5, 6}, {5, 7}, {5, 13}, { + 6, 8}, {6, 14}, {7, 8}, {7, 15}, {8, 16}, {9, 10}, {9, 11}, {9, + 13}, {10, 12}, {10, 14}, {11, 12}, {11, 15}, {12, 16}, {13, 14}, { + 13, 15}, {14, 16}, {15, 16}}, 0.026253571160087252`]}, + {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], + DiskBox[1, 0.026253571160087252], DiskBox[2, 0.026253571160087252], + DiskBox[3, 0.026253571160087252], DiskBox[4, 0.026253571160087252], + DiskBox[5, 0.026253571160087252], DiskBox[6, 0.026253571160087252], + DiskBox[7, 0.026253571160087252], DiskBox[8, 0.026253571160087252], + DiskBox[9, 0.026253571160087252], DiskBox[10, 0.026253571160087252], + DiskBox[11, 0.026253571160087252], DiskBox[12, 0.026253571160087252], + DiskBox[13, 0.026253571160087252], + DiskBox[14, 0.026253571160087252], DiskBox[15, 0.026253571160087252], + DiskBox[16, 0.026253571160087252]}}]], + MouseAppearanceTag["NetworkGraphics"]], + AllowKernelInitialization->False]], + DefaultBaseStyle->{ + "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, + FormatType->TraditionalForm, + FrameTicks->None, + ImageSize->{462., Automatic}]], "Output", + CellChangeTimes->{ + 3.831196278019039*^9, {3.8311963752275457`*^9, 3.831196385285953*^9}, { + 3.831206096651701*^9, 3.831206104665143*^9}, 3.831207373344346*^9, + 3.831542392714926*^9, 3.831542425267604*^9, 3.831719702418312*^9, + 3.831733907320828*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"5a7f36e7-9e83-4f68-9ef3-928c960d7285"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"quadformFromG", "[", "G", "]"}]], "Input", + CellChangeTimes->{{3.831205026500725*^9, 3.8312050352485657`*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"43d9bb93-b274-4c99-99d2-d8ab94c9309f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"4", " ", + SubsuperscriptBox["b", "1", "2"]}], "+", + SubsuperscriptBox["b", "2", "2"], "+", + SubsuperscriptBox["b", "3", "2"], "+", + SubsuperscriptBox["b", "5", "2"], "+", + SubsuperscriptBox["b", "9", "2"]}], "\[Equal]", + RowBox[{ + RowBox[{ + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "5"]}], "+", + RowBox[{ + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "9"]}], "+", + RowBox[{ + SubscriptBox["b", "5"], " ", + SubscriptBox["b", "9"]}], "+", + RowBox[{ + SubscriptBox["b", "2"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}], ")"}]}], "+", + RowBox[{ + SubscriptBox["b", "1"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}], ")"}]}]}]}]], "Output", + CellChangeTimes->{{3.831205027083984*^9, 3.831205035599906*^9}, + 3.831207373561529*^9, 3.831542392730818*^9, 3.831542425288987*^9, + 3.831719702427973*^9, 3.8317339073341618`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"1596e610-3a31-4bcc-a540-b7ef314115ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubscriptBox["G", + RowBox[{"triangular", " ", "bipyramidal"}]], "=", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "7"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "7"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }]}]], "Input", + CellChangeTimes->{{3.8312050545532827`*^9, 3.831205093968218*^9}, { + 3.8312056500751534`*^9, 3.831205654734494*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"9fe11fdf-be05-4827-b7ee-3632cb5d2841"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "7"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "7"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.831205095234825*^9, 3.83120737360776*^9, + 3.831542392747333*^9, 3.8315424252958527`*^9, 3.831719702452983*^9, + 3.8317339073584967`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"3fdedf6f-4544-424c-a921-90c82a49287a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"quadformFromG", "[", + SubscriptBox["G", + RowBox[{"triangular", " ", "bipyramidal"}]], "]"}]], "Input", + CellChangeTimes->{{3.8312050988114653`*^9, 3.831205101783531*^9}, { + 3.831205658239256*^9, 3.8312056586010427`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"510e41f3-3510-40b2-8833-d3bf1d87558d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["b", "1", "2"], "+", + SubsuperscriptBox["b", "2", "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "4"]}], ")"}], "2"]}], "\[Equal]", + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "2"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "4"]}], ")"}]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "1"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "4"]}], ")"}]}]}]}]], "Output", + CellChangeTimes->{3.83120510214622*^9, 3.8312073736490097`*^9, + 3.831542392766467*^9, 3.831542425323592*^9, 3.8317197024807167`*^9, + 3.831733907383543*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"baa0ad37-0969-46c2-b7af-7802a815179f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelations", "[", + RowBox[{"linearRelationsMatrix", "[", + SubscriptBox["G", + RowBox[{"triangular", " ", "bipyramidal"}]], "]"}], "]"}], "//", + "Column"}]], "Input", + CellChangeTimes->{{3.831205112050294*^9, 3.8312051208351917`*^9}, { + 3.831205212410445*^9, 3.831205216195744*^9}, {3.831205666392047*^9, + 3.8312056665974913`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"0d54c4c8-e27a-474a-9298-ada5fa42189c"], + +Cell[BoxData[ + TagBox[GridBox[{ + { + RowBox[{ + SubscriptBox["b", "5"], "\[Equal]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "2"]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "3"]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "4"]}]}]}]} + }, + DefaultBaseStyle->"Column", + GridBoxAlignment->{"Columns" -> {{Left}}}, + GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], + "Column"]], "Output", + CellChangeTimes->{{3.831205115320232*^9, 3.831205121352796*^9}, + 3.831205216579706*^9, 3.831207373688302*^9, 3.8315423927849827`*^9, + 3.831542425339525*^9, 3.8317197025008802`*^9, 3.831733907407769*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"12fbcb0e-49b5-4801-83a6-a55a3d15a0b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubscriptBox["G", + RowBox[{"6", "v7f2"}]], "=", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "7"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + FractionBox[ + RowBox[{"-", "5"}], "3"]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + FractionBox[ + RowBox[{"-", "5"}], "3"], + RowBox[{"-", "1"}], "1"} + }]}]], "Input", + CellChangeTimes->{{3.8312052950565577`*^9, 3.8312053664228907`*^9}, { + 3.831205611780993*^9, 3.8312056257460127`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"de41676f-2547-41f4-a5cd-994c645fcba8"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "7"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", + FractionBox["5", "3"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "7"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", + FractionBox["5", "3"]}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.831205376067292*^9, 3.83120737371931*^9, + 3.831542392801413*^9, 3.831542425359495*^9, 3.831719702523612*^9, + 3.831733907432741*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"8c20270e-42d7-48a2-b64c-017404824166"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"quadformFromG", "[", + SubscriptBox["G", + RowBox[{"6", "v7f2"}]], "]"}]], "Input", + CellChangeTimes->{{3.831205379278871*^9, 3.8312053829754057`*^9}, { + 3.831205635140277*^9, 3.831205635428679*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"ac7f7607-7f8a-4300-ba01-22e29c0020ef"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["b", "1", "2"], "+", + RowBox[{"9", " ", + SubsuperscriptBox["b", "2", "2"]}], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "3"], "-", + RowBox[{"3", " ", + SubscriptBox["b", "4"]}]}], ")"}], "2"]}], "\[Equal]", + RowBox[{ + RowBox[{"6", " ", + SubscriptBox["b", "2"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "4"]}], ")"}]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "1"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"3", " ", + SubscriptBox["b", "2"]}], "+", + SubscriptBox["b", "3"], "+", + RowBox[{"3", " ", + SubscriptBox["b", "4"]}]}], ")"}]}]}]}]], "Output", + CellChangeTimes->{3.8312053839007387`*^9, 3.831207373753183*^9, + 3.831542392820953*^9, 3.8315424253801947`*^9, 3.8317197025468597`*^9, + 3.831733907460184*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"05976bb0-d93b-4520-a09d-653cf2c76ed7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelations", "[", + RowBox[{"linearRelationsMatrix", "[", + SubscriptBox["G", + RowBox[{"6", "v7f2"}]], "]"}], "]"}], "//", "Column"}]], "Input", + CellChangeTimes->{{3.831205386962224*^9, 3.8312053947819357`*^9}, { + 3.831205641720022*^9, 3.831205641935877*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"4794f90c-f7eb-4a1f-9467-a18aaee448b3"], + +Cell[BoxData[ + TagBox[GridBox[{ + { + RowBox[{ + SubscriptBox["b", "5"], "\[Equal]", + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "1"]}], "-", + RowBox[{"2", " ", + SubscriptBox["b", "2"]}], "+", + SubscriptBox["b", "3"]}]}]}, + { + RowBox[{ + SubscriptBox["b", "6"], "\[Equal]", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SubscriptBox["b", "1"]}], "3"], "-", + FractionBox[ + RowBox[{"2", " ", + SubscriptBox["b", "2"]}], "3"], "+", + FractionBox[ + RowBox[{"2", " ", + SubscriptBox["b", "3"]}], "3"], "-", + SubscriptBox["b", "4"]}]}]} + }, + DefaultBaseStyle->"Column", + GridBoxAlignment->{"Columns" -> {{Left}}}, + GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], + "Column"]], "Output", + CellChangeTimes->{3.831205395107645*^9, 3.831207373786862*^9, + 3.8315423928378477`*^9, 3.831542425397616*^9, 3.8317197025671043`*^9, + 3.831733907484179*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"6e99cc1e-288a-4831-a139-71c5e8f13875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"quadformFromG", "[", 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.8312055186331463`*^9, 3.831205587691216*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"ccf2ff55-693c-4fef-8d53-91573eb862fb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["b", "1", "2"], "+", + SubsuperscriptBox["b", "2", "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "4"]}], ")"}], "2"]}], "\[Equal]", + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "2"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "4"]}], ")"}]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "1"], " ", + RowBox[{"(", + RowBox[{ + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "4"]}], ")"}]}]}]}]], "Output", + CellChangeTimes->{{3.831205562753481*^9, 3.831205588677614*^9}, + 3.831207373820695*^9, 3.831542392855438*^9, 3.83154242541956*^9, + 3.8317197025887947`*^9, 3.831733907511017*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"42abf5a0-2014-42fc-a19a-1a1286036a82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubscriptBox["G", + RowBox[{"hexagonal", " ", "pyramid"}]], "=", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], "1"}, + { + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }]}]], "Input", + CellChangeTimes->{{3.83120560179744*^9, 3.8312056073727407`*^9}, { + 3.83120570783545*^9, 3.8312057648417053`*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"973eb5ad-339b-4945-bf8f-fd36220bcedc"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "7"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "7"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "7"}], ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "7"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "7"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "7"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.8312057658560753`*^9, 3.83120737385758*^9, + 3.831542392874598*^9, 3.8315424254403267`*^9, 3.8317197026125517`*^9, + 3.831733907535767*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"33294d65-11d9-4edd-adfa-eeaa7741661c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"allData", "[", + SubscriptBox["G", + RowBox[{"hexagonal", " ", "pyramid"}]], "]"}], "[", + RowBox[{"[", "1", "]"}], "]"}], "//", "Expand"}]], "Input", + CellChangeTimes->{{3.831205767855706*^9, 3.831205848158939*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"4a283eb1-a2c2-4e9c-bc6a-d80e43244f01"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"6", " ", + SubsuperscriptBox["b", "2", "2"]}], "-", + RowBox[{"5", " ", + SubscriptBox["b", "2"], " ", + SubscriptBox["b", "3"]}], "+", + SubsuperscriptBox["b", "3", "2"], "+", + RowBox[{"9", " ", + SubscriptBox["b", "2"], " ", + SubscriptBox["b", "7"]}], "-", + RowBox[{"6", " ", + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "7"]}], "+", + RowBox[{"9", " ", + SubsuperscriptBox["b", "7", "2"]}]}], "\[Equal]", + RowBox[{ + RowBox[{"4", " ", + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "2"]}], "+", + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "3"]}], "+", + RowBox[{"3", " ", + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "7"]}]}]}]], "Output", + CellChangeTimes->{{3.831205837042835*^9, 3.8312058484620523`*^9}, + 3.831207373888626*^9, 3.8315423928954906`*^9, 3.8315424254606743`*^9, + 3.8317197026340733`*^9, 3.831733907559771*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"ffefa419-2170-4128-a2bc-9bf19c5fc9a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"allData", "[", + SubscriptBox["G", + RowBox[{"hexagonal", " ", "pyramid"}]], "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], "//", "Column"}]], "Input", + CellChangeTimes->{{3.8312058541978807`*^9, 3.8312058597572613`*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"b5fcdc33-685f-4f57-a7ae-0b41c2e701f7"], + +Cell[BoxData[ + TagBox[GridBox[{ + { + RowBox[{ + SubscriptBox["b", "4"], "\[Equal]", + RowBox[{ + SubscriptBox["b", "1"], "-", + RowBox[{"2", " ", + SubscriptBox["b", "2"]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "3"]}]}]}]}, + { + RowBox[{ + SubscriptBox["b", "5"], "\[Equal]", + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "1"]}], "-", + RowBox[{"3", " ", + SubscriptBox["b", "2"]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "3"]}]}]}]}, + { + RowBox[{ + SubscriptBox["b", "6"], "\[Equal]", + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "1"]}], "-", + RowBox[{"2", " ", + SubscriptBox["b", "2"]}], "+", + SubscriptBox["b", "3"]}]}]} + }, + DefaultBaseStyle->"Column", + GridBoxAlignment->{"Columns" -> {{Left}}}, + GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], + "Column"]], "Output", + CellChangeTimes->{3.831205860045238*^9, 3.8312073739225073`*^9, + 3.8315423929117193`*^9, 3.831542425479426*^9, 3.831719702655299*^9, + 3.831733907587859*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"ded494aa-7e49-413a-98a7-f5e1c2ecfdf6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"W", "=", GridBox[{ + {"2", "2", + RowBox[{"-", "1"}], "7", "4", "4"}, + {"0", "0", "1", "1", "2", "2"}, + {"0", "0", "0", + RowBox[{"2", + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{"2", + RowBox[{"Sqrt", "[", "2", "]"}]}], + RowBox[{"2", + RowBox[{"Sqrt", "[", "2", "]"}]}]}, + {"1", + RowBox[{"-", "1"}], "0", "0", "1", + RowBox[{"-", "1"}]} + }]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"402cb114-17f5-49f4-896a-b98bffc0bd94"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "2", ",", + RowBox[{"-", "1"}], ",", "7", ",", "4", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "2", ",", "2"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", + RowBox[{"2", " ", + SqrtBox["2"]}], ",", + RowBox[{"2", " ", + SqrtBox["2"]}], ",", + RowBox[{"2", " ", + SqrtBox["2"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.831542392930254*^9, 3.831542425497326*^9, 3.831550043943159*^9, + 3.831584496276239*^9, {3.8317197026764*^9, 3.831719727567832*^9}, + 3.8317339076081877`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"58e0936f-b619-420a-9492-22c7ba69b697"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"G", "=", + RowBox[{"gramMatrix", "[", "W", "]"}]}], ";"}]], "Input", + CellChangeTimes->{{3.831211015871591*^9, 3.831211019640984*^9}, { + 3.83139436002034*^9, 3.8313943711094522`*^9}}, + CellLabel->"In[52]:=",ExpressionUUID->"785b97d1-df45-4acf-be8c-f15e81c63a52"], + +Cell[CellGroupData[{ + +Cell[BoxData["G"], "Input", + CellChangeTimes->{3.831584606712674*^9}, + CellLabel->"In[53]:=",ExpressionUUID->"f882a2d2-9e95-4d18-ba41-a324a4ba4bbc"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.8315846072444763`*^9, 3.83158461140563*^9}, + 3.831719702701212*^9, 3.831733907632801*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"fb0f7f25-1d9d-49a4-a79f-f3ee9a5d8ac5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"G", "=", GridBox[{ + {"1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }]}]], "Input", + CellChangeTimes->{{3.831546098262713*^9, 3.831546195543068*^9}}, + CellLabel->"In[54]:=",ExpressionUUID->"12b991dd-9780-4f27-9cee-c9553d1ba85d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}], ",", "1", ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "3"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.831546196730113*^9, 3.831546456579155*^9, + 3.831552497483054*^9, 3.831719702722155*^9, 3.831719884467691*^9, + 3.831733907663001*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"705e58e5-bddb-406b-81cd-a56a6a1d1219"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"linearRelationsMatrix", "[", "G", "]"}], "//", + "MatrixForm"}]], "Input", + CellChangeTimes->{{3.8315481970603724`*^9, 3.8315482041913424`*^9}}, + CellLabel->"In[55]:=",ExpressionUUID->"cbdb9664-a317-4565-b793-624ba213ee58"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", "0", "0", "0"}, + {"0", "1", "0", "0"}, + {"0", "0", "1", "0"}, + {"0", "0", "0", "1"}, + {"1", "0", + RowBox[{"-", "1"}], "1"}, + {"1", "1", + RowBox[{"-", "1"}], "0"}, + {"0", "1", + RowBox[{"-", "1"}], "1"}, + {"1", "1", + RowBox[{"-", "2"}], "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.8315482004865723`*^9, 3.831548204447329*^9}, + 3.8317197027435627`*^9, 3.8317339076848793`*^9}, + CellLabel-> + "Out[55]//MatrixForm=",ExpressionUUID->"ed46a751-039e-4c4d-a4f2-\ +4853c43e84c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"g", "=", + 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.831211024119669*^9, 3.831211051358807*^9}, { + 3.8312110865308323`*^9, 3.831211099087179*^9}}, + CellLabel->"In[56]:=",ExpressionUUID->"2277b165-cb3b-4c4e-a60c-e2f6d8a782d4"], + +Cell[BoxData[ + GraphicsBox[ + NamespaceBox["NetworkGraphics", + DynamicModuleBox[{Typeset`graph = HoldComplete[ + Graph[{1, 2, 3, 4, 5, 6, 7, 8}, { + Null, {{1, 3}, {1, 5}, {1, 6}, {2, 3}, {2, 6}, {2, 7}, {3, 4}, {4, 5}, { + 4, 7}, {5, 8}, {6, 8}, {7, 8}}}, { + GraphLayout -> "TutteEmbedding", VertexLabels -> {"Name"}}]]}, + TagBox[GraphicsGroupBox[{ + {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.], + ArrowBox[CompressedData[" +1:eJxTTMoPSmVmYGDgAWImKObqmudjWblqDwMYfLCH0ewxIsZqyxba4JDfD5Hf +uAdDvsFE+ZvKe7tQMLhq/2Wf+ZFNQJrzwtF3Rh3tNujmY8gT0C+gb4osvx/d +PAg90QbVnQg+uvvR5XGYD1fPf3H7OW2gOER+6h5096LLo5uHLg8AQGiLyQ== + + "], 0.02261146496815286]}, + {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ + 0.7]}], {DiskBox[{-1.8369701987210297*^-16, 1.}, 0.02261146496815286], + InsetBox["1", + Offset[{2, 2}, {0.022611464968152677, 1.0226114649681528}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{0.33335560953035714, 4.082155997157844*^-17}, + 0.02261146496815286], + InsetBox["2", + Offset[{2, 2}, {0.35596707449851, 0.022611464968152903}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{1., 1.2246467991473532*^-16}, 0.02261146496815286], + InsetBox["3", + Offset[{2, 2}, {1.0226114649681528, 0.022611464968152983}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{6.123233995736766*^-17, -1.}, 0.02261146496815286], + InsetBox["4", + Offset[{2, 2}, {0.022611464968152924, -0.9773885350318472}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{-1., -2.4492935982947064*^-16}, 0.02261146496815286], + InsetBox["5", + Offset[{2, 2}, {-0.9773885350318472, 0.022611464968152615}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{0.00001485079801583078, 0.3333333333333333}, + 0.02261146496815286], + InsetBox["6", + Offset[{2, 2}, {0.022626315766168692, 0.3559447983014862}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{0.0000148507980159067, -0.3333333333333333}, + 0.02261146496815286], + InsetBox["7", + Offset[{2, 2}, {0.02262631576616877, -0.31072186836518045}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{-0.33332343280132276, -7.401486830834377*^-17}, + 0.02261146496815286], + InsetBox["8", + Offset[{2, 2}, {-0.3107119678331699, 0.02261146496815279}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}}}], + MouseAppearanceTag["NetworkGraphics"]], + AllowKernelInitialization->False]], + DefaultBaseStyle->{ + "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, + FormatType->TraditionalForm, + FrameTicks->None]], "Output", + CellChangeTimes->{{3.8312110441523523`*^9, 3.831211051836257*^9}, + 3.831211099939444*^9, {3.831542392968464*^9, 3.83154242555717*^9}, + 3.8315461997012577`*^9, 3.8315464584106913`*^9, 3.831550048418048*^9, + 3.831550752983672*^9, 3.831552500274372*^9, 3.8315845020336857`*^9, { + 3.831719702778846*^9, 3.831719731749542*^9}, 3.83171988803187*^9, + 3.831733907733406*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"ac0ad11c-af45-4286-bc2e-a5d7de8451c2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.831546202281266*^9, 3.8315462033754187`*^9}}, + CellLabel->"In[57]:=",ExpressionUUID->"0155681f-224f-4d1f-81c7-b361a6a3bb9f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"faces", "=", + RowBox[{"FindFace", "[", "g", "]"}]}]], "Input", + CellChangeTimes->{{3.83121106031896*^9, 3.831211066776128*^9}}, + CellLabel->"In[58]:=",ExpressionUUID->"23a7ac4c-2e19-4242-b389-3017f75bddce"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "3", ",", "4", ",", "5"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "5", ",", "8", ",", "6"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "6", ",", "2", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "6", ",", "8", ",", "7"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "7", ",", "4", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "7", ",", "8", ",", "5"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.8312110671487427`*^9, {3.831542392989181*^9, 3.831542425567046*^9}, + 3.8315462065236588`*^9, 3.831546461268298*^9, 3.831550052652643*^9, + 3.831552503343704*^9, 3.83171970279709*^9, 3.831733907760252*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"f23c2530-3087-4b3f-88aa-1f3239530721"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"findGenerators", "[", + RowBox[{"faces_", ",", "vertices_", ",", "G_"}], "]"}], ":=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "face", ",", "otherVertex", ",", "verticesOnFace", ",", "allVertices", + ",", "Gp", ",", "P", ",", "Gnew", ",", "L", ",", "Q", ",", "Qform", + ",", "sol1", ",", "sol2", ",", "sols", ",", "coeff", ",", + "coeffTable", ",", "small", ",", "Li", ",", "P2"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"face", "=", + RowBox[{"faces", "[", + RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"verticesOnFace", "=", + RowBox[{"Sort", "[", + RowBox[{"RandomSample", "[", + RowBox[{"face", ",", "3"}], "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"otherVertex", "=", + RowBox[{"RandomChoice", "[", + RowBox[{"Select", "[", + RowBox[{"vertices", ",", + RowBox[{ + RowBox[{"Not", "[", + RowBox[{"MemberQ", "[", + RowBox[{"face", ",", "#"}], "]"}], "]"}], "&"}]}], "]"}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"allVertices", "=", + RowBox[{"Append", "[", + RowBox[{"verticesOnFace", ",", "otherVertex"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"P", "=", + RowBox[{"Transpose", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"IdentityMatrix", "[", + RowBox[{"Length", "[", "vertices", "]"}], "]"}], "[", + RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", + RowBox[{"DeleteDuplicates", "[", + RowBox[{"Join", "[", + RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], "]"}]}], + ";", "\[IndentingNewLine]", + RowBox[{"Gnew", "=", + RowBox[{ + RowBox[{"Transpose", "[", "P", "]"}], ".", "G", ".", "P"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"L", "=", + RowBox[{"linearRelationsMatrix", "[", "Gnew", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Gp", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", "allVertices"}], "}"}], ",", + RowBox[{"{", + RowBox[{"j", ",", "allVertices"}], "}"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"Q", "=", + RowBox[{"Inverse", "[", "Gp", "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"Qform", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"#", ".", "Q", ".", "#"}], "&"}], "[", + RowBox[{"Table", "[", + RowBox[{ + SubscriptBox["b", "j"], ",", + RowBox[{"{", + RowBox[{"j", ",", "allVertices"}], "}"}]}], "]"}], "]"}], ")"}], + "\[Equal]", "0"}]}], ";", "\[IndentingNewLine]", + RowBox[{"sols", "=", + RowBox[{"Expand", "[", + RowBox[{"FullSimplify", "[", + RowBox[{"Total", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"#", "[", + RowBox[{"[", "1", "]"}], "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", + RowBox[{"Solve", "[", + RowBox[{"Qform", ",", + SubscriptBox["b", "otherVertex"]}], "]"}]}], "]"}], "]"}], + "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"coeff", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"sols", "/.", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + SubscriptBox["b", "i"], "\[Rule]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{"i", "\[Equal]", "curr"}], ",", "1", ",", "0"}], + "]"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "allVertices"}], "}"}]}], "]"}]}], ",", + RowBox[{"{", + RowBox[{"curr", ",", "allVertices"}], "}"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"small", "=", + RowBox[{"IdentityMatrix", "[", + RowBox[{"Length", "[", "allVertices", "]"}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"small", "[", + RowBox[{"[", + RowBox[{"-", "1"}], "]"}], "]"}], "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"j", "\[Equal]", "4"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"If", "[", + RowBox[{ + RowBox[{"MemberQ", "[", + RowBox[{"verticesOnFace", ",", + RowBox[{"allVertices", "[", + RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", + RowBox[{"coeff", "[", + RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}]}], "]"}], + ",", + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"Length", "[", "allVertices", "]"}]}], "}"}]}], "]"}]}], + ";", "\[IndentingNewLine]", + RowBox[{"Li", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], + ",", + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"Length", "[", "vertices", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"k", ",", "allVertices"}], "}"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"P2", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", "0"}], "]"}], ",", + + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"Length", "[", "vertices", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"DeleteDuplicates", "[", + RowBox[{"Join", "[", + RowBox[{"allVertices", ",", "vertices"}], "]"}], "]"}]}], + "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"P2", ".", "L", ".", "small", ".", "Li"}]}]}], + "\[IndentingNewLine]", "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"Length", "[", "faces", "]"}]}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831211980673108*^9, 3.831212009547978*^9}, { + 3.831212047936781*^9, 3.831212064698745*^9}, {3.831212136824675*^9, + 3.8312121924739923`*^9}, {3.83121282873549*^9, 3.831212895555662*^9}, { + 3.8312129593096933`*^9, 3.831213052703521*^9}, {3.8312133826923237`*^9, + 3.831213512078041*^9}, {3.831213579312004*^9, 3.831213607562201*^9}, { + 3.8312136458477*^9, 3.8312136689119587`*^9}, {3.831213699813815*^9, + 3.831213723704392*^9}, {3.8312138140717983`*^9, 3.831213889152441*^9}, { + 3.831213941035733*^9, 3.831213957988277*^9}, {3.831213991504438*^9, + 3.831214049771612*^9}, {3.8312142057843103`*^9, 3.831214227198838*^9}, { + 3.8313934326708517`*^9, 3.83139343995124*^9}, {3.831393489506013*^9, + 3.831393506386162*^9}, {3.831393555227632*^9, 3.8313935602186413`*^9}, { + 3.8313936045286083`*^9, 3.83139367389612*^9}, {3.831393815407503*^9, + 3.8313939935486803`*^9}, {3.83139404462208*^9, 3.831394092415612*^9}, { + 3.831394131767799*^9, 3.831394217388193*^9}, {3.831394341420259*^9, + 3.831394342312114*^9}, {3.83139445920255*^9, 3.8313945442248793`*^9}, { + 3.8313945973518257`*^9, 3.831394680082652*^9}, {3.8313947347981873`*^9, + 3.831394898892132*^9}, {3.83139493417336*^9, 3.831395053557044*^9}, { + 3.831395100567893*^9, 3.83139518418989*^9}, {3.831395217466712*^9, + 3.831395241186327*^9}, {3.831395355721635*^9, 3.8313954066678057`*^9}, { + 3.831395475153723*^9, 3.831395516960009*^9}, {3.83139559485061*^9, + 3.8313956385922327`*^9}, {3.831395769312038*^9, 3.8313958340021877`*^9}, { + 3.831395865647847*^9, 3.83139610784988*^9}, {3.831396182381921*^9, + 3.831396202527211*^9}, {3.8313962730948772`*^9, 3.8313963875560293`*^9}, { + 3.831396427697093*^9, 3.8313965616329517`*^9}, {3.831396608167254*^9, + 3.83139664360338*^9}, {3.83139670106045*^9, 3.8313967846470547`*^9}, { + 3.8313968308609743`*^9, 3.8313969389717007`*^9}, 3.831396972519156*^9, { + 3.831397018773802*^9, 3.831397020188629*^9}, {3.831397062011731*^9, + 3.831397076917077*^9}, {3.8313971287749977`*^9, 3.8313971288803463`*^9}, { + 3.831397158974574*^9, 3.831397164029716*^9}, {3.831451905653893*^9, + 3.831451941106399*^9}, {3.8314519809069433`*^9, 3.831452094855884*^9}, { + 3.831542443369563*^9, 3.83154246854852*^9}, {3.831542595276044*^9, + 3.8315426013894053`*^9}, {3.831542828964487*^9, 3.831542862477805*^9}, + 3.8315429215303297`*^9, {3.831543065147149*^9, 3.831543089933201*^9}, { + 3.8315431288434877`*^9, 3.831543129636121*^9}, {3.83154323687431*^9, + 3.831543260658288*^9}, {3.831543295045744*^9, 3.831543299689423*^9}, + 3.831543486496207*^9, {3.831543653211835*^9, 3.831543654095707*^9}, { + 3.831544292671633*^9, 3.8315442949499702`*^9}, {3.831544329733664*^9, + 3.831544394563963*^9}, {3.831544636528879*^9, 3.831544663053648*^9}, + 3.831544723323721*^9, 3.831546276666531*^9, {3.8315463223978786`*^9, + 3.831546322569023*^9}, {3.831546446056045*^9, 3.83154644840313*^9}, { + 3.8315465437277803`*^9, 3.8315465842454453`*^9}, {3.8315466426699533`*^9, + 3.831546646606488*^9}, {3.831546727818715*^9, 3.831546788772341*^9}, { + 3.831546839246593*^9, 3.8315468396090813`*^9}, {3.83154706753721*^9, + 3.8315471373421164`*^9}, {3.831549700570283*^9, 3.831549703647592*^9}, { + 3.8315497447736797`*^9, 3.831549761864801*^9}, {3.831549996792459*^9, + 3.831550026202232*^9}, {3.831550732962453*^9, 3.831550735264537*^9}, { + 3.8315509704443493`*^9, 3.8315509727254343`*^9}, {3.831551320669722*^9, + 3.831551407002722*^9}, 3.831551438305327*^9, {3.8315518862869797`*^9, + 3.831551891551553*^9}, {3.831552338431473*^9, 3.8315523578513947`*^9}, { + 3.8315524412649384`*^9, 3.831552441791979*^9}, {3.831552847687746*^9, + 3.8315528556641293`*^9}, 3.831726852424152*^9}, + CellLabel->"In[59]:=",ExpressionUUID->"23afecd5-dcb1-4236-8386-1e0ecea0ee84"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"findGeneratorsFromG", "[", "G_", "]"}], ":=", + RowBox[{"findGenerators", "[", + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{"PlanarGraph", "[", + RowBox[{"AdjacencyGraph", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"#", "\[Equal]", + RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", + "#"}], "&"}], "/@", "G"}], ",", + RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], "]"}], + "]"}], ",", + RowBox[{"Range", "[", + RowBox[{"Length", "[", "G", "]"}], "]"}], ",", "G"}], "]"}]}]], "Input", + CellChangeTimes->{{3.831554845925479*^9, 3.8315548977219877`*^9}}, + CellLabel->"In[60]:=",ExpressionUUID->"d0340853-0ec5-4158-8d4e-e3eb7970ae3c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"Print", "[", + RowBox[{"MatrixForm", "[", "#", "]"}], "]"}], "&"}], "/@", + RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}]], "Input", + CellChangeTimes->{{3.83171975708283*^9, 3.831719771106359*^9}}, + CellLabel->"In[61]:=",ExpressionUUID->"84a6e091-4d71-409f-9a44-6125e08ae87d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", "0", "0", "0", "0", "0", "0", "0"}, + {"0", "0", "3", "0", "3", "0", "0", + RowBox[{"-", "1"}]}, + {"0", "0", "1", "0", "0", "0", "0", "0"}, + { + RowBox[{"-", "1"}], "0", "1", "0", "1", "0", "0", "0"}, + {"0", "0", "0", "0", "1", "0", "0", "0"}, + {"1", "0", "2", "0", "3", "0", "0", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], "0", "3", "0", "4", "0", "0", + RowBox[{"-", "1"}]}, + {"0", "0", "2", "0", "4", "0", "0", + RowBox[{"-", "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$]]]], "Print", + CellChangeTimes->{3.831719771447344*^9, 3.831719917488689*^9, + 3.831733907871355*^9}, + CellLabel-> + "During evaluation of \ +In[61]:=",ExpressionUUID->"da8f421d-f27b-4ea9-8a5d-e856fb51aa04"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", "0", "0", "0", "0", "0", "0", "0"}, + {"3", "0", "0", "0", + RowBox[{"-", "1"}], "0", + RowBox[{"-", "1"}], "4"}, + {"3", "0", "0", "0", "0", "0", + RowBox[{"-", "1"}], "3"}, + {"2", "0", "0", "0", "1", "0", + RowBox[{"-", "1"}], "3"}, + {"0", "0", "0", "0", "1", "0", "0", "0"}, + {"1", "0", "0", "0", + RowBox[{"-", "1"}], "0", "0", "1"}, + {"2", "0", "0", "0", "0", "0", + RowBox[{"-", "1"}], "4"}, + {"0", "0", "0", "0", "0", "0", "0", "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$]]]], "Print", + CellChangeTimes->{3.831719771447344*^9, 3.831719917488689*^9, + 3.831733907873125*^9}, + CellLabel-> + "During evaluation of \ +In[61]:=",ExpressionUUID->"95ba9f3c-6720-4c71-bf8b-6fc425bb6200"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", "0", "0", "0", "0", "0", "0", "0"}, + {"0", "1", "0", "0", "0", "0", "0", "0"}, + {"0", "0", "1", "0", "0", "0", "0", "0"}, + {"3", "2", "1", "0", + RowBox[{"-", "1"}], "0", "0", "0"}, + {"4", "2", "0", "0", + RowBox[{"-", "1"}], "0", "0", "0"}, + {"1", "1", + RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}, + {"3", "3", "0", "0", + RowBox[{"-", "1"}], "0", "0", "0"}, + {"4", "3", + RowBox[{"-", "1"}], "0", + RowBox[{"-", "1"}], "0", "0", "0"} + }, + 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$]]]], "Print", + CellChangeTimes->{3.831719771447344*^9, 3.831719917488689*^9, + 3.831733907876793*^9}, + CellLabel-> + "During evaluation of \ +In[61]:=",ExpressionUUID->"316f726f-8a2e-4bc3-816e-0a9a4bb2aaaf"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"0", "3", "0", + RowBox[{"-", "1"}], "0", "0", "0", "3"}, + {"0", "1", "0", "0", "0", "0", "0", "0"}, + {"0", "3", "0", + RowBox[{"-", "1"}], "0", "0", "1", "2"}, + {"0", "2", "0", + RowBox[{"-", "1"}], "0", "0", "2", "2"}, + {"0", "2", "0", + RowBox[{"-", "1"}], "0", "0", "1", "3"}, + {"0", "1", "0", "0", "0", "0", + RowBox[{"-", "1"}], "1"}, + {"0", "0", "0", "0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "0", "0", "0", "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$]]]], "Print", + CellChangeTimes->{3.831719771447344*^9, 3.831719917488689*^9, + 3.831733907878037*^9}, + CellLabel-> + "During evaluation of \ +In[61]:=",ExpressionUUID->"c354966a-3c8f-4123-ab0a-d63705d584de"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"0", + RowBox[{"-", "1"}], "4", "0", + RowBox[{"-", "1"}], "0", "3", "0"}, + {"0", "1", "0", "0", "0", "0", "0", "0"}, + {"0", "0", "1", "0", "0", "0", "0", "0"}, + {"0", + RowBox[{"-", "1"}], "1", "0", "0", "0", "1", "0"}, + {"0", + RowBox[{"-", "2"}], "4", "0", + RowBox[{"-", "1"}], "0", "4", "0"}, + {"0", "0", "3", "0", + RowBox[{"-", "1"}], "0", "3", "0"}, + {"0", "0", "0", "0", "0", "0", "1", "0"}, + {"0", + RowBox[{"-", "1"}], "3", "0", + RowBox[{"-", "1"}], "0", "4", "0"} + }, + 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$]]]], "Print", + CellChangeTimes->{3.831719771447344*^9, 3.831719917488689*^9, + 3.831733907879318*^9}, + CellLabel-> + "During evaluation of \ +In[61]:=",ExpressionUUID->"3cb3a9d0-a815-4ba9-b939-83361b1233c5"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"0", "0", "0", "3", "0", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "4"}, + {"0", "0", "0", "2", "0", + RowBox[{"-", "1"}], "1", "3"}, + {"0", "0", "0", "3", "0", + RowBox[{"-", "1"}], "0", "3"}, + {"0", "0", "0", "1", "0", "0", "0", "0"}, + {"0", "0", "0", "1", "0", "0", + RowBox[{"-", "1"}], "1"}, + {"0", "0", "0", "2", "0", + RowBox[{"-", "1"}], "0", "4"}, + {"0", "0", "0", "0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "0", "0", "0", "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$]]]], "Print", + CellChangeTimes->{3.831719771447344*^9, 3.831719917488689*^9, + 3.831733907880615*^9}, + CellLabel-> + "During evaluation of \ +In[61]:=",ExpressionUUID->"bd7e22c1-1f5c-46a8-abed-01deefa12f35"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + "Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null"}], + "}"}]], "Output", + CellChangeTimes->{{3.831719760897254*^9, 3.8317197714549294`*^9}, + 3.8317199174956703`*^9, 3.831733907881818*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"c18df578-33cc-4e51-8487-ae05bf2bb409"] +}, Open ]] +}, +WindowSize->{1419., 770.25}, +WindowMargins->{{10.5, Automatic}, {10.5, Automatic}}, +TaggingRules->{ + "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False}, +FrontEndVersion->"12.2 for Linux x86 (64-bit) (December 12, 2020)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e040e796-8bff-4db9-a60c-0104a3118602" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 418, 9, 29, "Input",ExpressionUUID->"6afae59f-4ed7-45fe-af4f-8b2b99977aa0"], +Cell[979, 31, 1053, 27, 92, "Input",ExpressionUUID->"89bc4f4e-9b7e-4800-9ecd-24531052a727"], +Cell[2035, 60, 509, 11, 29, "Input",ExpressionUUID->"0366738a-6f35-482c-b716-8ce9d936093f"], +Cell[2547, 73, 439, 11, 29, "Input",ExpressionUUID->"b6ed0b19-08a4-42a8-a0f9-f244b6935f62"], +Cell[2989, 86, 1406, 33, 51, "Input",ExpressionUUID->"8245e75c-2d76-48ce-a004-a171152928d8"], +Cell[4398, 121, 342, 8, 29, "Input",ExpressionUUID->"ae4cbf02-ecda-41d9-b954-c47ca42f6458"], +Cell[4743, 131, 1140, 33, 29, "Input",ExpressionUUID->"e879feeb-c143-431d-b60f-65791d8ad5a4"], +Cell[5886, 166, 740, 20, 29, "Input",ExpressionUUID->"f4dd8840-fc29-4515-8843-21d6b5328192"], +Cell[6629, 188, 671, 19, 29, "Input",ExpressionUUID->"f415d590-d64f-4449-a487-145c6f7994a0"], +Cell[7303, 209, 708, 19, 29, "Input",ExpressionUUID->"8d447c09-3a46-47da-8902-1542001af8cb"], +Cell[8014, 230, 548, 14, 29, "Input",ExpressionUUID->"60159612-8269-4730-81d3-7733c61a595c"], +Cell[8565, 246, 773, 17, 29, "Input",ExpressionUUID->"4e2ca172-3a40-440d-be33-c82ada769fb4"], +Cell[9341, 265, 2396, 63, 195, "Input",ExpressionUUID->"fac793b9-dd04-4cc1-b981-5915e7ad443d"], +Cell[CellGroupData[{ +Cell[11762, 332, 231, 4, 29, "Input",ExpressionUUID->"60b582da-ce47-4ec8-a0a8-cbb68490e605"], +Cell[11996, 338, 1447, 47, 33, "Output",ExpressionUUID->"e6433845-7bdd-4bb6-a3c6-e23ad168a62e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13480, 390, 245, 4, 29, "Input",ExpressionUUID->"14f7bbaf-929f-468e-8da0-bfa642027480"], +Cell[13728, 396, 6172, 171, 227, "Output",ExpressionUUID->"42353ebc-e5e0-4797-874a-1724f0bf39b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19937, 572, 328, 6, 29, "Input",ExpressionUUID->"2b0e9c94-8bfb-48d1-b4b6-7b61e59a2c2a"], +Cell[20268, 580, 710, 14, 22, "Message",ExpressionUUID->"d8e03790-f06d-4d95-92ed-8b2bf9f54269"], +Cell[20981, 596, 737, 20, 46, "Output",ExpressionUUID->"63b78641-f103-43b2-9be7-6b968e0f1be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21755, 621, 333, 6, 29, "Input",ExpressionUUID->"fb4de4d1-8a77-484f-b05d-b8426caa1cc9"], +Cell[22091, 629, 417, 10, 22, "Message",ExpressionUUID->"34aef24b-ddc0-44af-9366-3eeb3f4f6263"], +Cell[22511, 641, 308, 9, 46, "Output",ExpressionUUID->"d53bbe28-77ce-42ca-ae67-cbd0aa584691"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22856, 655, 369, 8, 29, "Input",ExpressionUUID->"6f212e3d-48a4-420c-b0a9-b24d1d64e19b"], +Cell[23228, 665, 788, 21, 33, "Output",ExpressionUUID->"4de97c17-9a2a-4c69-b4b2-a5d9ae77d610"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24053, 691, 230, 4, 29, "Input",ExpressionUUID->"ea1d0153-4f54-4a30-a400-c74e5ea10596"], +Cell[24286, 697, 732, 21, 46, "Output",ExpressionUUID->"db4546a4-6513-493e-b9ab-aee7a0249c64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25055, 723, 282, 5, 29, "Input",ExpressionUUID->"25e1f91b-c002-4733-923a-0caf3aaa7dd5"], +Cell[25340, 730, 780, 22, 46, "Output",ExpressionUUID->"63cad9cf-5f43-4a56-be82-01b6493dfe2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26157, 757, 7819, 256, 284, "Input",ExpressionUUID->"1e7275d7-0881-44f4-ab52-53a98494f405"], +Cell[33979, 1015, 8054, 204, 178, "Output",ExpressionUUID->"1622d249-8481-4a64-8703-748bdf00228f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[42070, 1224, 340, 9, 29, "Input",ExpressionUUID->"dacce9b4-387a-4f10-a77b-20ec4eb98f2d"], +Cell[CellGroupData[{ +Cell[42435, 1237, 1071, 29, 106, "Print",ExpressionUUID->"91297213-498c-48fd-8add-66721dc17151"], +Cell[43509, 1268, 1071, 29, 106, "Print",ExpressionUUID->"3425a986-973b-42de-84ed-eb3aeb0b4de1"], +Cell[44583, 1299, 1071, 29, 106, "Print",ExpressionUUID->"dd0b02f8-81a2-4f44-9994-1740a018ee61"], +Cell[45657, 1330, 1071, 29, 106, "Print",ExpressionUUID->"d2d05bf0-b6d5-450c-aed2-d371f2cbedfd"], +Cell[46731, 1361, 1071, 29, 106, "Print",ExpressionUUID->"290a1136-abeb-480e-9bdc-8905acfbf15e"], +Cell[47805, 1392, 1071, 29, 106, "Print",ExpressionUUID->"f15772b8-9d8b-445e-96c5-cff6b5226c3a"], +Cell[48879, 1423, 1142, 32, 106, "Print",ExpressionUUID->"3433cbb1-8a48-432e-8bd9-858739c7e722"], +Cell[50024, 1457, 1142, 32, 106, "Print",ExpressionUUID->"ef572e16-e211-4795-9cba-acb1d2ca1202"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[51215, 1495, 552, 11, 29, "Input",ExpressionUUID->"688e7e89-2335-43ab-bf07-49551244c00a"], +Cell[51770, 1508, 534, 9, 33, "Output",ExpressionUUID->"48cccd6d-91f8-40d9-ad8a-7e2b3a0b7ca1"] +}, Open ]], +Cell[52319, 1520, 467, 11, 29, "Input",ExpressionUUID->"7cdb5988-583a-4889-8b21-7e9d007cfc7f"], +Cell[52789, 1533, 177, 3, 35, "Text",ExpressionUUID->"5aaecebe-3db7-415d-bc8a-6a7a8474be62"], +Cell[52969, 1538, 996, 28, 71, "Input",ExpressionUUID->"26cccec1-dcb3-4ea2-a1fd-cd8f1833a2f5"], +Cell[53968, 1568, 3990, 106, 298, "Input",ExpressionUUID->"759a5754-3daf-472d-882e-9ec14e276fb5"], +Cell[CellGroupData[{ +Cell[57983, 1678, 633, 18, 78, "Input",ExpressionUUID->"f34a66d9-d092-4a23-b3f2-2fabe4238e9d"], +Cell[58619, 1698, 1196, 34, 147, "Output",ExpressionUUID->"71688902-8aec-47a9-8a29-ba1bf1bcf1d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[59852, 1737, 580, 14, 51, "Input",ExpressionUUID->"340ebd40-7f28-4e16-8720-5b3bfc9dabe0"], +Cell[60435, 1753, 397, 8, 36, "Output",ExpressionUUID->"30cd84d4-7aa8-4662-b8db-21538cb0541a"], +Cell[60835, 1763, 373, 7, 51, "Output",ExpressionUUID->"a12c6b18-af53-4004-91e4-4372488a9df2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61245, 1775, 1270, 37, 95, "Input",ExpressionUUID->"f681ec66-6355-4920-bbf6-f06d5a3d4a87"], +Cell[62518, 1814, 3227, 101, 108, "Output",ExpressionUUID->"07e29fa2-067d-48ed-9337-8e3cca8ca706"] +}, Open ]], +Cell[65760, 1918, 284, 6, 29, "Input",ExpressionUUID->"1c3f997e-d820-495f-8ca7-90b29275d826"], +Cell[CellGroupData[{ +Cell[66069, 1928, 269, 5, 29, "Input",ExpressionUUID->"858777a7-5c14-4fa1-9028-76443866e688"], +Cell[66341, 1935, 7475, 276, 302, "Output",ExpressionUUID->"fd922d4d-637d-4f51-a4b8-dce99d620611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73853, 2216, 352, 7, 29, "Input",ExpressionUUID->"7709831e-9c42-45d2-8a41-356203765656"], +Cell[74208, 2225, 461, 7, 33, "Output",ExpressionUUID->"e0ec0858-c1c6-419c-aae4-bebed3dc95ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74706, 2237, 342, 7, 29, "Input",ExpressionUUID->"75ce78eb-e1e8-46bd-a62c-3aebd71d1af9"], +Cell[75051, 2246, 3305, 111, 202, "Output",ExpressionUUID->"1f8ef813-7305-4eeb-9c41-a4f909d1bb12"] +}, Open ]], +Cell[CellGroupData[{ +Cell[78393, 2362, 482, 11, 29, "Input",ExpressionUUID->"1a24af65-4444-4345-9190-3e9030065556"], +Cell[78878, 2375, 2039, 70, 153, "Output",ExpressionUUID->"9877bb8c-02f6-4d6b-8154-c50f3775d4b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80954, 2450, 283, 5, 29, "Input",ExpressionUUID->"25682f5f-59ee-495a-999f-1d64c3564228"], +Cell[81240, 2457, 1220, 37, 33, "Output",ExpressionUUID->"ec2390b1-d380-4cc7-9d46-baa323b58104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[82497, 2499, 646, 18, 29, "Input",ExpressionUUID->"cd286a41-7226-4e9c-a896-90a76edcf34e"], +Cell[83146, 2519, 1340, 44, 113, "Output",ExpressionUUID->"f6a18d3c-e2c4-47c5-a2bf-836e90e72cde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[84523, 2568, 288, 5, 29, "Input",ExpressionUUID->"54f16314-a3b1-47d1-8745-d78faebdbd6a"], +Cell[84814, 2575, 1441, 44, 33, "Output",ExpressionUUID->"90f65885-eed7-4f27-a0e3-65b8f1b0a5a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86292, 2624, 538, 14, 29, "Input",ExpressionUUID->"5a9306e8-9cea-49bb-8f27-2b91314d9a3a"], +Cell[86833, 2640, 3312, 55, 463, "Output",ExpressionUUID->"5a7f36e7-9e83-4f68-9ef3-928c960d7285"] +}, Open ]], +Cell[CellGroupData[{ +Cell[90182, 2700, 213, 3, 29, "Input",ExpressionUUID->"43d9bb93-b274-4c99-99d2-d8ab94c9309f"], +Cell[90398, 2705, 1244, 37, 33, "Output",ExpressionUUID->"1596e610-3a31-4bcc-a540-b7ef314115ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[91679, 2747, 898, 32, 95, "Input",ExpressionUUID->"9fe11fdf-be05-4827-b7ee-3632cb5d2841"], +Cell[92580, 2781, 1158, 36, 33, "Output",ExpressionUUID->"3fdedf6f-4544-424c-a921-90c82a49287a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[93775, 2822, 329, 6, 30, "Input",ExpressionUUID->"510e41f3-3510-40b2-8833-d3bf1d87558d"], +Cell[94107, 2830, 905, 27, 33, "Output",ExpressionUUID->"baa0ad37-0969-46c2-b7af-7802a815179f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[95049, 2862, 465, 10, 30, "Input",ExpressionUUID->"0d54c4c8-e27a-474a-9298-ada5fa42189c"], +Cell[95517, 2874, 838, 22, 33, "Output",ExpressionUUID->"12fbcb0e-49b5-4801-83a6-a55a3d15a0b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[96392, 2901, 1200, 45, 129, "Input",ExpressionUUID->"de41676f-2547-41f4-a5cd-994c645fcba8"], +Cell[97595, 2948, 1563, 50, 48, "Output",ExpressionUUID->"8c20270e-42d7-48a2-b64c-017404824166"] +}, Open ]], +Cell[CellGroupData[{ +Cell[99195, 3003, 306, 6, 29, "Input",ExpressionUUID->"ac7f7607-7f8a-4300-ba01-22e29c0020ef"], +Cell[99504, 3011, 1017, 31, 33, "Output",ExpressionUUID->"05976bb0-d93b-4520-a09d-653cf2c76ed7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[100558, 3047, 390, 8, 29, "Input",ExpressionUUID->"4794f90c-f7eb-4a1f-9467-a18aaee448b3"], +Cell[100951, 3057, 1096, 33, 58, "Output",ExpressionUUID->"6e99cc1e-288a-4831-a139-71c5e8f13875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[102084, 3095, 580, 20, 78, "Input",ExpressionUUID->"ccf2ff55-693c-4fef-8d53-91573eb862fb"], +Cell[102667, 3117, 929, 27, 33, "Output",ExpressionUUID->"42abf5a0-2014-42fc-a19a-1a1286036a82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[103633, 3149, 1464, 55, 130, "Input",ExpressionUUID->"973eb5ad-339b-4945-bf8f-fd36220bcedc"], +Cell[105100, 3206, 1919, 61, 55, "Output",ExpressionUUID->"33294d65-11d9-4edd-adfa-eeaa7741661c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[107056, 3272, 351, 8, 30, "Input",ExpressionUUID->"4a283eb1-a2c2-4e9c-bc6a-d80e43244f01"], +Cell[107410, 3282, 1055, 30, 33, "Output",ExpressionUUID->"ffefa419-2170-4128-a2bc-9bf19c5fc9a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[108502, 3317, 355, 8, 30, "Input",ExpressionUUID->"b5fcdc33-685f-4f57-a7ae-0b41c2e701f7"], +Cell[108860, 3327, 1221, 38, 65, "Output",ExpressionUUID->"ded494aa-7e49-413a-98a7-f5e1c2ecfdf6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[110118, 3370, 514, 16, 78, "Input",ExpressionUUID->"402cb114-17f5-49f4-896a-b98bffc0bd94"], +Cell[110635, 3388, 908, 25, 36, "Output",ExpressionUUID->"58e0936f-b619-420a-9492-22c7ba69b697"] +}, Open ]], +Cell[111558, 3416, 300, 6, 29, "Input",ExpressionUUID->"785b97d1-df45-4acf-be8c-f15e81c63a52"], +Cell[CellGroupData[{ +Cell[111883, 3426, 148, 2, 29, "Input",ExpressionUUID->"f882a2d2-9e95-4d18-ba41-a324a4ba4bbc"], +Cell[112034, 3430, 1471, 47, 33, "Output",ExpressionUUID->"fb0f7f25-1d9d-49a4-a79f-f3ee9a5d8ac5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[113542, 3482, 1749, 68, 147, "Input",ExpressionUUID->"12b991dd-9780-4f27-9cee-c9553d1ba85d"], +Cell[115294, 3552, 2418, 78, 55, "Output",ExpressionUUID->"705e58e5-bddb-406b-81cd-a56a6a1d1219"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117749, 3635, 259, 5, 29, "Input",ExpressionUUID->"cbdb9664-a317-4565-b793-624ba213ee58"], +Cell[118011, 3642, 968, 30, 164, "Output",ExpressionUUID->"ed46a751-039e-4c4d-a4f2-4853c43e84c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[119016, 3677, 663, 18, 29, "Input",ExpressionUUID->"2277b165-cb3b-4c4e-a60c-e2f6d8a782d4"], +Cell[119682, 3697, 3450, 73, 383, "Output",ExpressionUUID->"ac0ad11c-af45-4286-bc2e-a5d7de8451c2"] +}, Open ]], +Cell[123147, 3773, 173, 2, 29, "Input",ExpressionUUID->"0155681f-224f-4d1f-81c7-b361a6a3bb9f"], +Cell[CellGroupData[{ +Cell[123345, 3779, 232, 4, 29, "Input",ExpressionUUID->"23a7ac4c-2e19-4242-b389-3017f75bddce"], +Cell[123580, 3785, 840, 19, 33, "Output",ExpressionUUID->"f23c2530-3087-4b3f-88aa-1f3239530721"] +}, Open ]], +Cell[124435, 3807, 10509, 226, 422, "Input",ExpressionUUID->"23afecd5-dcb1-4236-8386-1e0ecea0ee84"], +Cell[134947, 4035, 885, 23, 29, "Input",ExpressionUUID->"d0340853-0ec5-4158-8d4e-e3eb7970ae3c"], +Cell[CellGroupData[{ +Cell[135857, 4062, 330, 7, 29, "Input",ExpressionUUID->"84a6e091-4d71-409f-9a44-6125e08ae87d"], +Cell[CellGroupData[{ +Cell[136212, 4073, 1149, 32, 139, "Print",ExpressionUUID->"da8f421d-f27b-4ea9-8a5d-e856fb51aa04"], +Cell[137364, 4107, 1149, 32, 139, "Print",ExpressionUUID->"95ba9f3c-6720-4c71-bf8b-6fc425bb6200"], +Cell[138516, 4141, 1149, 32, 139, "Print",ExpressionUUID->"316f726f-8a2e-4bc3-816e-0a9a4bb2aaaf"], +Cell[139668, 4175, 1127, 31, 139, "Print",ExpressionUUID->"c354966a-3c8f-4123-ab0a-d63705d584de"], +Cell[140798, 4208, 1193, 34, 139, "Print",ExpressionUUID->"3cb3a9d0-a815-4ba9-b939-83361b1233c5"], +Cell[141994, 4244, 1149, 32, 139, "Print",ExpressionUUID->"bd7e22c1-1f5c-46a8-abed-01deefa12f35"] +}, Open ]], +Cell[143158, 4279, 334, 7, 33, "Output",ExpressionUUID->"c18df578-33cc-4e51-8487-ae05bf2bb409"] +}, Open ]] +} +] +*) + diff --git a/scratchpad.nb b/scratchpad.nb new file mode 100644 index 0000000..229f9b3 --- /dev/null +++ b/scratchpad.nb @@ -0,0 +1,2187 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 12.2' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 76018, 2179] +NotebookOptionsPosition[ 69066, 2059] +NotebookOutlinePosition[ 69563, 2077] +CellTagsIndexPosition[ 69520, 2074] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"abbc", "[", + RowBox[{"b_", ",", " ", "h1_", ",", " ", "h2_", ",", " ", "h3_"}], "]"}], + " ", ":=", " ", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"h1", "^", "2"}], "+", + RowBox[{"h2", "^", "2"}], "+", + RowBox[{"h3", "^", "2"}], "-", "1"}], ")"}], "/", "b"}]}]], "Input", + CellChangeTimes->{{3.8309470446761513`*^9, 3.830947092424356*^9}, { + 3.830947131539153*^9, 3.830947134829529*^9}, {3.8309511024410057`*^9, + 3.830951112765336*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"ebaf5259-9228-4eff-be3b-0a282ffa9621"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"W", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"1", "/", "2"}], ",", " ", + RowBox[{"1", "/", "2"}], ",", " ", + RowBox[{"1", "/", "2"}], ",", " ", + RowBox[{"1", "/", "2"}], ",", " ", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"Sqrt", "[", "6", "]"}], "/", "2"}]}]}], "}"}], ",", + "\[IndentingNewLine]", " ", + RowBox[{"{", + RowBox[{"1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", + RowBox[{"2", "-", + RowBox[{"Sqrt", "[", "6", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", + " ", + RowBox[{"{", + RowBox[{"1", ",", " ", + RowBox[{"-", "1"}], ",", " ", "0", ",", " ", "0", ",", " ", "0"}], + "}"}], ",", "\[IndentingNewLine]", " ", + RowBox[{"{", + RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", + RowBox[{"-", "1"}], ",", " ", "0"}], "}"}], ",", "\[IndentingNewLine]", + " ", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Sqrt", "[", "2", "]"}]}], "/", "2"}], ",", " ", + RowBox[{ + RowBox[{"-", + RowBox[{"Sqrt", "[", "2", "]"}]}], "/", "2"}], ",", " ", + RowBox[{ + RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}], ",", " ", + RowBox[{ + RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}], ",", " ", "0"}], "}"}]}], + "}"}]}]], "Input", + CellChangeTimes->{{3.830947276275155*^9, 3.830947384743595*^9}, { + 3.830947434759898*^9, 3.8309474375451317`*^9}, {3.830951135283235*^9, + 3.830951144374601*^9}, {3.830952708925666*^9, 3.8309527404114656`*^9}, { + 3.8309528841556587`*^9, 3.8309528851474*^9}, {3.830952939968109*^9, + 3.830952941162726*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"1dd84f34-927b-45d4-b99a-771415caa06f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "2"], ",", + FractionBox["1", "2"], ",", + FractionBox["1", "2"], ",", + FractionBox["1", "2"], ",", + RowBox[{"1", "+", + SqrtBox[ + FractionBox["3", "2"]]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", + RowBox[{"2", "-", + SqrtBox["6"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", + RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", + FractionBox["1", + SqrtBox["2"]]}], ",", + RowBox[{"-", + FractionBox["1", + SqrtBox["2"]]}], ",", + FractionBox["1", + SqrtBox["2"]], ",", + FractionBox["1", + SqrtBox["2"]], ",", "0"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.830951146734996*^9, 3.830952382322977*^9, 3.8309527410240192`*^9, + 3.830952839121285*^9, 3.830952886305524*^9, 3.830952941523387*^9, { + 3.830974190921438*^9, 3.830974206886554*^9}, 3.831022487895164*^9, + 3.831040214860196*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"77c33dea-69f3-43e9-bfa6-a9c437c24fb3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"P", " ", "=", " ", GridBox[{ + {"0", + RowBox[{ + RowBox[{"-", "1"}], "/", "2"}], "0", "0", "0"}, + { + RowBox[{ + RowBox[{"-", "1"}], "/", "2"}], "0", "0", "0", "0"}, + {"0", "0", "1", "0", "0"}, + {"0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "1"} + }]}]], "Input", + CellChangeTimes->{{3.830947445165049*^9, 3.830947485603795*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"fa297213-8061-4657-96d5-605be3831218"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", + FractionBox["1", "2"]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", + FractionBox["1", "2"]}], ",", "0", ",", "0", ",", "0", ",", "0"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]}], + "}"}]], "Output", + CellChangeTimes->{{3.8309474761520567`*^9, 3.830947486383827*^9}, { + 3.830974190944866*^9, 3.830974206903517*^9}, 3.831022487925536*^9, + 3.831040214900378*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"cd3af104-540c-4a60-a8e1-8f9da0497585"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"MatrixForm", "[", "W", "]"}]], "Input", + CellChangeTimes->{{3.8309487164500437`*^9, 3.8309487217743*^9}, + 3.831040195405674*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"2eef3868-3a96-4078-9112-2fd646b3a1a1"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + { + FractionBox["1", "2"], + FractionBox["1", "2"], + FractionBox["1", "2"], + FractionBox["1", "2"], + RowBox[{"1", "+", + SqrtBox[ + FractionBox["3", "2"]]}]}, + {"1", "1", "1", "1", + RowBox[{"2", "-", + SqrtBox["6"]}]}, + {"1", + RowBox[{"-", "1"}], "0", "0", "0"}, + {"0", "0", "1", + RowBox[{"-", "1"}], "0"}, + { + RowBox[{"-", + FractionBox["1", + SqrtBox["2"]]}], + RowBox[{"-", + FractionBox["1", + SqrtBox["2"]]}], + FractionBox["1", + SqrtBox["2"]], + FractionBox["1", + SqrtBox["2"]], "0"} + }, + 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.8309487221497583`*^9, 3.830952066609838*^9, {3.830974190971157*^9, + 3.830974206918887*^9}, 3.831022487958446*^9, {3.83104019841435*^9, + 3.831040214942532*^9}}, + CellLabel-> + "Out[4]//MatrixForm=",ExpressionUUID->"4455ceac-8dd0-4f17-97e4-\ +beddf1d2c3a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"G", "=", + RowBox[{"Simplify", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", "P", ".", "W"}], + "]"}]}], "\[IndentingNewLine]", + RowBox[{"MatrixForm", "[", "G", "]"}]}], "Input", + CellChangeTimes->{{3.830947501781493*^9, 3.830947515459256*^9}, { + 3.8309476160010967`*^9, 3.830947622676052*^9}, {3.83094766156601*^9, + 3.83094766818581*^9}, {3.830948772001751*^9, 3.830948798583189*^9}, { + 3.830952277747951*^9, 3.830952280536543*^9}, {3.830952318145986*^9, + 3.830952320780724*^9}, {3.830953146215901*^9, 3.830953167016383*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"ffe171ff-a358-4802-bf10-fa8ba0a01522"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.830947508523581*^9, 3.830947515891265*^9}, + 3.830947623481641*^9, 3.830947671432518*^9, {3.830948694144877*^9, + 3.8309487400071173`*^9}, {3.830948778506513*^9, 3.830948799232411*^9}, + 3.8309511872015553`*^9, 3.8309522809566517`*^9, 3.8309523219447536`*^9, + 3.830952749052834*^9, 3.830952891988205*^9, 3.830952947724679*^9, { + 3.830953149983018*^9, 3.830953167387594*^9}, {3.830974191000333*^9, + 3.8309742069345503`*^9}, 3.831022487992968*^9, 3.8310402149722967`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"eb3224b0-afc1-48bc-b26f-d55c0a8a3558"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.830947508523581*^9, 3.830947515891265*^9}, + 3.830947623481641*^9, 3.830947671432518*^9, {3.830948694144877*^9, + 3.8309487400071173`*^9}, {3.830948778506513*^9, 3.830948799232411*^9}, + 3.8309511872015553`*^9, 3.8309522809566517`*^9, 3.8309523219447536`*^9, + 3.830952749052834*^9, 3.830952891988205*^9, 3.830952947724679*^9, { + 3.830953149983018*^9, 3.830953167387594*^9}, {3.830974191000333*^9, + 3.8309742069345503`*^9}, 3.831022487992968*^9, 3.831040214979601*^9}, + CellLabel-> + "Out[6]//MatrixForm=",ExpressionUUID->"2415e6b4-d337-4c44-9275-\ +3926228715d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"MatrixForm", "[", + RowBox[{"Simplify", "[", + RowBox[{"W", ".", + RowBox[{"Inverse", "[", "G", "]"}], ".", + RowBox[{"Transpose", "[", "W", "]"}]}], "]"}], + "]"}], "\[IndentingNewLine]", + RowBox[{"Q", "=", + RowBox[{"6", " ", + RowBox[{"Simplify", "[", + RowBox[{"Inverse", "[", "G", "]"}], "]"}]}]}]}], "Input", + CellChangeTimes->{{3.8309531507752438`*^9, 3.8309532495336018`*^9}, { + 3.830953459937415*^9, 3.830953466986145*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"a4a77638-e66e-4fb2-b3c9-2dce83fd728c"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"0", + RowBox[{"-", "2"}], "0", "0", "0"}, + { + RowBox[{"-", "2"}], "0", "0", "0", "0"}, + {"0", "0", "1", "0", "0"}, + {"0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "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.830953179543133*^9, 3.830953249851911*^9}, + 3.830953467431407*^9, {3.830974191064271*^9, 3.830974206969034*^9}, + 3.831022488044999*^9, 3.831040215013074*^9}, + CellLabel-> + "Out[7]//MatrixForm=",ExpressionUUID->"e24e10e5-ee56-408b-8e77-\ +5438d7fe1ca7"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "2", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "2", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "2", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.830953179543133*^9, 3.830953249851911*^9}, + 3.830953467431407*^9, {3.830974191064271*^9, 3.830974206969034*^9}, + 3.831022488044999*^9, 3.831040215021541*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"a52006eb-ab43-4a68-8ee5-09e969a3b8db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v", " ", "=", " ", + RowBox[{"{", + RowBox[{ + "b1", ",", " ", "b2", ",", " ", "b3", ",", " ", "b4", ",", " ", "b5"}], + "}"}]}]], "Input", + CellChangeTimes->{{3.8309534291876993`*^9, 3.830953488146636*^9}, { + 3.830953574444665*^9, 3.830953577258304*^9}, {3.830963122919181*^9, + 3.830963123666355*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"85010b49-a746-4e75-a1dc-6ebe4d56b358"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"b1", ",", "b2", ",", "b3", ",", "b4", ",", "b5"}], "}"}]], "Output",\ + + CellChangeTimes->{{3.8309534710983143`*^9, 3.830953488545705*^9}, + 3.830953577559716*^9, 3.830963135866448*^9, {3.830974191087308*^9, + 3.830974206987363*^9}, 3.8310224880890017`*^9, 3.831040215051868*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"ec73b939-e947-41e3-921c-a78f5c580c25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Q2", "=", + RowBox[{"Factor", "[", + RowBox[{"Simplify", "[", + RowBox[{ + RowBox[{"v", ".", "Q", ".", "v"}], "\[Equal]", "0"}], "]"}], + "]"}]}]], "Input", + CellChangeTimes->{{3.83096312694731*^9, 3.830963133069828*^9}, { + 3.8309860465777473`*^9, 3.830986048333253*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"01473760-9db2-462d-8f69-4bc46efbd5e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SuperscriptBox["b1", "2"], "+", + SuperscriptBox["b2", "2"], "+", + SuperscriptBox["b3", "2"], "+", + SuperscriptBox["b4", "2"], "+", + SuperscriptBox["b5", "2"]}], "\[Equal]", + RowBox[{ + RowBox[{"b1", " ", "b2"}], "+", + RowBox[{"b1", " ", "b3"}], "+", + RowBox[{"b2", " ", "b3"}], "+", + RowBox[{"b1", " ", "b4"}], "+", + RowBox[{"b2", " ", "b4"}], "+", + RowBox[{"b3", " ", "b4"}], "+", + RowBox[{"b1", " ", "b5"}], "+", + RowBox[{"b2", " ", "b5"}], "+", + RowBox[{"b3", " ", "b5"}], "+", + RowBox[{"b4", " ", "b5"}]}]}]], "Output", + CellChangeTimes->{ + 3.8309631295573*^9, {3.830974191123665*^9, 3.8309742070132236`*^9}, + 3.830986048749626*^9, 3.83102248813725*^9, 3.8310402150876493`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"f2f9a3df-8251-4e5b-a280-d67d93215b58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"{", + RowBox[{"sol1", ",", "sol2"}], "}"}], "=", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"#", "[", + RowBox[{"[", "1", "]"}], "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", + RowBox[{"Solve", "[", + RowBox[{"Q2", ",", " ", "b5"}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.8309539778299103`*^9, 3.830953987792296*^9}, { + 3.830963160260315*^9, 3.8309631649085693`*^9}, {3.830986031566009*^9, + 3.8309860527678213`*^9}, {3.830986104245249*^9, 3.8309861469826403`*^9}, { + 3.830986381872149*^9, 3.8309864160767593`*^9}, {3.830986452175939*^9, + 3.830986475427602*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"a03f641a-2aaa-4dbf-8105-78aaac1d1374"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{"b1", "+", "b2", "+", "b3", "+", "b4", "-", + RowBox[{ + SqrtBox["3"], " ", + SqrtBox[ + RowBox[{ + RowBox[{"-", + SuperscriptBox["b1", "2"]}], "+", + RowBox[{"2", " ", "b1", " ", "b2"}], "-", + SuperscriptBox["b2", "2"], "+", + RowBox[{"2", " ", "b1", " ", "b3"}], "+", + RowBox[{"2", " ", "b2", " ", "b3"}], "-", + SuperscriptBox["b3", "2"], "+", + RowBox[{"2", " ", "b1", " ", "b4"}], "+", + RowBox[{"2", " ", "b2", " ", "b4"}], "+", + RowBox[{"2", " ", "b3", " ", "b4"}], "-", + SuperscriptBox["b4", "2"]}]]}]}], ")"}]}], ",", + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{"b1", "+", "b2", "+", "b3", "+", "b4", "+", + RowBox[{ + SqrtBox["3"], " ", + SqrtBox[ + RowBox[{ + RowBox[{"-", + SuperscriptBox["b1", "2"]}], "+", + RowBox[{"2", " ", "b1", " ", "b2"}], "-", + SuperscriptBox["b2", "2"], "+", + RowBox[{"2", " ", "b1", " ", "b3"}], "+", + RowBox[{"2", " ", "b2", " ", "b3"}], "-", + SuperscriptBox["b3", "2"], "+", + RowBox[{"2", " ", "b1", " ", "b4"}], "+", + RowBox[{"2", " ", "b2", " ", "b4"}], "+", + RowBox[{"2", " ", "b3", " ", "b4"}], "-", + SuperscriptBox["b4", "2"]}]]}]}], ")"}]}]}], "}"}]], "Output", + CellChangeTimes->{{3.830953981797381*^9, 3.830953988224197*^9}, + 3.8309631674309893`*^9, {3.830974191280891*^9, 3.830974207093878*^9}, { + 3.8309860327062693`*^9, 3.830986053868499*^9}, 3.8309861088337603`*^9, { + 3.830986139309249*^9, 3.8309861478128443`*^9}, 3.830986179886456*^9, { + 3.830986392241535*^9, 3.8309864172171164`*^9}, {3.83098645337318*^9, + 3.830986475858822*^9}, 3.831022488175324*^9, 3.831040215120077*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"6acfef8c-1f2b-4205-b24c-ca21a0fa26b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Simplify", "[", + RowBox[{"sol1", "+", "sol2"}], "]"}]], "Input", + CellChangeTimes->{{3.830986257442643*^9, 3.8309862591077833`*^9}, { + 3.830986322525525*^9, 3.8309863429205627`*^9}, {3.8309863875390472`*^9, + 3.830986390421296*^9}, {3.830986481332108*^9, 3.830986485413068*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"7cdb5337-8fe0-46bc-8ed4-b3fa5a9d4e4c"], + +Cell[BoxData[ + RowBox[{"b1", "+", "b2", "+", "b3", "+", "b4"}]], "Output", + CellChangeTimes->{ + 3.8309862594226017`*^9, {3.830986327733527*^9, 3.830986343335147*^9}, + 3.8309863942551193`*^9, 3.830986486072028*^9, 3.831022488208653*^9, + 3.831040215149364*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"b5bb8ed3-f441-4587-bf02-72e74865a030"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"\[IndentingNewLine]", + RowBox[{ + RowBox[{ + SubscriptBox["\[Sigma]", "1"], "=", GridBox[{ + { + RowBox[{"-", "1"}], "1", "1", "1", "1"}, + {"0", "1", "0", "0", "0"}, + {"0", "0", "1", "0", "0"}, + {"0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "1"} + }]}], "\[IndentingNewLine]", + RowBox[{ + SubscriptBox["\[Sigma]", "2"], "=", GridBox[{ + {"1", "0", "0", "0", "0"}, + {"1", + RowBox[{"-", "1"}], "1", "1", "1"}, + {"0", "0", "1", "0", "0"}, + {"0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "1"} + }]}], "\[IndentingNewLine]", + RowBox[{ + SubscriptBox["\[Sigma]", "3"], "=", GridBox[{ + {"1", "0", "0", "0", "0"}, + {"0", "1", "0", "0", "0"}, + {"1", "1", + RowBox[{"-", "1"}], "1", "1"}, + {"0", "0", "0", "1", "0"}, + {"0", "0", "0", "0", "1"} + }]}], "\[IndentingNewLine]", + RowBox[{ + SubscriptBox["\[Sigma]", "4"], "=", GridBox[{ + {"1", "0", "0", "0", "0"}, + {"0", "1", "0", "0", "0"}, + {"0", "0", "1", "0", "0"}, + {"1", "1", "1", + RowBox[{"-", "1"}], "1"}, + {"0", "0", "0", "0", "1"} + }]}], "\[IndentingNewLine]", + RowBox[{ + SubscriptBox["\[Sigma]", "5"], "=", GridBox[{ + {"1", "0", "0", "0", "0"}, + {"0", "1", "0", "0", "0"}, + {"0", "0", "1", "0", "0"}, + {"0", "0", "0", "1", "0"}, + {"1", "1", "1", "1", + RowBox[{"-", "1"}]} + }]}]}]}]], "Input", + CellChangeTimes->{{3.830953988856737*^9, 3.830954028779512*^9}, { + 3.830954092033749*^9, 3.830954100723678*^9}, {3.830954287058003*^9, + 3.830954366324284*^9}, {3.830954497204771*^9, 3.830954539589019*^9}, { + 3.8309546459357357`*^9, 3.830954657491111*^9}, {3.830955007880506*^9, + 3.83095506167262*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"26a7006a-8653-47c7-b64a-3a0c0a03fc59"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]}], + "}"}]], "Output", + CellChangeTimes->{{3.830953994713046*^9, 3.830954021564913*^9}, + 3.830954367052228*^9, 3.830954650183359*^9, {3.8309550327220488`*^9, + 3.830955062599132*^9}, {3.830974191304635*^9, 3.830974207109747*^9}, + 3.831022488237535*^9, 3.831040215179731*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"66cb7af9-662d-482c-b272-68eb12dcc176"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", "1", ",", "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.830953994713046*^9, 3.830954021564913*^9}, + 3.830954367052228*^9, 3.830954650183359*^9, {3.8309550327220488`*^9, + 3.830955062599132*^9}, {3.830974191304635*^9, 3.830974207109747*^9}, + 3.831022488237535*^9, 3.831040215187422*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"34d876a4-331a-4af8-ac9f-6098ac3ad6d3"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]}], + "}"}]], "Output", + CellChangeTimes->{{3.830953994713046*^9, 3.830954021564913*^9}, + 3.830954367052228*^9, 3.830954650183359*^9, {3.8309550327220488`*^9, + 3.830955062599132*^9}, {3.830974191304635*^9, 3.830974207109747*^9}, + 3.831022488237535*^9, 3.831040215195092*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"813f50db-b9af-428d-84b5-cb3039df2a69"], + +Cell[BoxData[ + 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[{"1", ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]}], + "}"}]], "Output", + CellChangeTimes->{{3.830953994713046*^9, 3.830954021564913*^9}, + 3.830954367052228*^9, 3.830954650183359*^9, {3.8309550327220488`*^9, + 3.830955062599132*^9}, {3.830974191304635*^9, 3.830974207109747*^9}, + 3.831022488237535*^9, 3.831040215202794*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"11ca74d5-4143-4221-9193-a0ad3e9f8a5e"], + +Cell[BoxData[ + 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[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.830953994713046*^9, 3.830954021564913*^9}, + 3.830954367052228*^9, 3.830954650183359*^9, {3.8309550327220488`*^9, + 3.830955062599132*^9}, {3.830974191304635*^9, 3.830974207109747*^9}, + 3.831022488237535*^9, 3.831040215210778*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"ebbe1a63-a71a-4f35-8a83-3fd68dabfba5"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{"bt", "=", + RowBox[{"2", + RowBox[{"(", + RowBox[{"2", "+", + RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}]}], "\[IndentingNewLine]", + RowBox[{"b", "=", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2", "+", + RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}]}]}], "Input", + CellChangeTimes->{{3.8309606106520023`*^9, 3.830960697855505*^9}, { + 3.8309608963092813`*^9, 3.830960898060483*^9}, 3.830963193751027*^9, { + 3.830982500480443*^9, 3.830982500714365*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"606394ca-736e-49ec-a0c1-44810c2e75f6"], + +Cell[BoxData[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}]], "Output", + CellChangeTimes->{ + 3.830960956089313*^9, 3.8309631961036997`*^9, {3.8309741924315243`*^9, + 3.830974207140854*^9}, 3.830982505911087*^9, 3.831022488296418*^9, + 3.831040215240288*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"9e33b573-a1a5-48df-ab9a-dff0e8a13265"], + +Cell[BoxData[ + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]]], "Output", + CellChangeTimes->{ + 3.830960956089313*^9, 3.8309631961036997`*^9, {3.8309741924315243`*^9, + 3.830974207140854*^9}, 3.830982505911087*^9, 3.831022488296418*^9, + 3.8310402152478237`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"989e4e52-3b55-47f3-8f37-c5a985da1614"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"W", " ", "=", " ", GridBox[{ + {"2", "2", "2", "2", "2", "2", "2", "2", "bt", "bt", "bt", "bt", "bt", + "bt", "bt", "bt"}, + {"1", "1", "1", "1", "1", "1", "1", "1", "b", "b", "b", "b", "b", "b", + "b", "b"}, + {"1", "1", "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", "1", "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + {"1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + {"1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]} + }]}]], "Input", + CellChangeTimes->{{3.83096052402245*^9, 3.8309605349829683`*^9}, { + 3.830960644959939*^9, 3.8309607266845617`*^9}, {3.830960971416868*^9, + 3.830960996016148*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"a0ecdd19-ef77-4c6b-958a-c2427f71f963"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", + ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["3"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", + ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]], ",", + FractionBox["1", + RowBox[{"2", "+", + SqrtBox["3"]}]]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.830960727819442*^9, 3.8309609969695597`*^9, + 3.830974207165202*^9, 3.8310224883163*^9, 3.831040215277072*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"e18ebab6-d068-4676-b109-508250471225"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"G", "=", + RowBox[{"Simplify", "[", + RowBox[{ + RowBox[{"Transpose", "[", "W", "]"}], ".", "P", ".", "W"}], "]"}]}], ";", + " ", + RowBox[{"MatrixForm", "[", "G", "]"}]}]], "Input", + CellChangeTimes->{{3.8309607444088583`*^9, 3.830960764357709*^9}, { + 3.830982520744038*^9, 3.830982525266604*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"8fe09c1d-bcaf-47c3-9ce9-0a0718bdcc04"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "7"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "7"}], + RowBox[{"-", "5"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.830960748057701*^9, 3.830960764792261*^9}, + 3.830961003674218*^9, 3.8309742071940536`*^9, 3.830982525764956*^9, + 3.831022488364326*^9, 3.831040215321554*^9}, + CellLabel-> + "Out[21]//MatrixForm=",ExpressionUUID->"7d0ad4a1-0a02-4d9a-b4d8-\ +15ad9f093bd7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"NullSpace", "[", "G", "]"}]], "Input", + CellChangeTimes->{{3.830964268470579*^9, 3.8309642787614307`*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"b116c292-1139-40f9-b5d9-091f4a16299d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"3", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", + ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", + ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", + ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", + RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", + RowBox[{"-", "1"}], ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", + RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", "0", ",", "0", ",", + RowBox[{"-", "1"}], ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.8309642741890793`*^9, 3.830964280298211*^9}, + 3.8309742072314863`*^9, 3.831022488391993*^9, 3.8310402153500834`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"f7ef904c-fa06-4b66-af6f-a062e18fd470"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b", "=."}]], "Input", + CellChangeTimes->{{3.8309754956190643`*^9, 3.830975496233571*^9}, { + 3.830983086899509*^9, 3.830983087850746*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"941190c1-cbb2-4020-9051-e9ae444a7b02"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"relations", "=", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"#", ".", + RowBox[{"(", + RowBox[{ + RowBox[{ + SubscriptBox["b", "#"], "&"}], "/@", + RowBox[{"Range", "[", "16", "]"}]}], ")"}]}], "\[Equal]", "0"}], + ")"}], "&"}], "/@", + RowBox[{"NullSpace", "[", "G", "]"}]}]}], ";", + RowBox[{"relations", " ", "//", " ", "Column"}]}]], "Input", + CellChangeTimes->{{3.8309710249464397`*^9, 3.8309710437635736`*^9}, { + 3.83097107380369*^9, 3.8309711405875387`*^9}, {3.8309712012098207`*^9, + 3.83097123107973*^9}, {3.830975402475944*^9, 3.830975430430142*^9}, { + 3.830975502253934*^9, 3.830975507529561*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"fd26d6aa-60a6-45eb-9a6c-3768d0c8a09b"], + +Cell[BoxData[ + TagBox[GridBox[{ + { + RowBox[{ + RowBox[{ + RowBox[{"3", " ", + SubscriptBox["b", "1"]}], "-", + SubscriptBox["b", "2"], "-", + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "5"], "-", + SubscriptBox["b", "9"], "+", + SubscriptBox["b", "16"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "1"]}], "-", + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "5"], "-", + SubscriptBox["b", "9"], "+", + SubscriptBox["b", "15"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "1"]}], "-", + SubscriptBox["b", "2"], "-", + SubscriptBox["b", "5"], "-", + SubscriptBox["b", "9"], "+", + SubscriptBox["b", "14"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + SubscriptBox["b", "1"], "-", + SubscriptBox["b", "5"], "-", + SubscriptBox["b", "9"], "+", + SubscriptBox["b", "13"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "1"]}], "-", + SubscriptBox["b", "2"], "-", + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "9"], "+", + SubscriptBox["b", "12"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + SubscriptBox["b", "1"], "-", + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "9"], "+", + SubscriptBox["b", "11"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + SubscriptBox["b", "1"], "-", + SubscriptBox["b", "2"], "-", + SubscriptBox["b", "9"], "+", + SubscriptBox["b", "10"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + RowBox[{"2", " ", + SubscriptBox["b", "1"]}], "-", + SubscriptBox["b", "2"], "-", + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "8"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + SubscriptBox["b", "1"], "-", + SubscriptBox["b", "3"], "-", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "7"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + SubscriptBox["b", "1"], "-", + SubscriptBox["b", "2"], "-", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "6"]}], "\[Equal]", "0"}]}, + { + RowBox[{ + RowBox[{ + SubscriptBox["b", "1"], "-", + SubscriptBox["b", "2"], "-", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "4"]}], "\[Equal]", "0"}]} + }, + DefaultBaseStyle->"Column", + GridBoxAlignment->{"Columns" -> {{Left}}}, + GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], + "Column"]], "Output", + CellChangeTimes->{ + 3.830972275399312*^9, 3.830974207249462*^9, {3.830975405095324*^9, + 3.830975411858678*^9}, 3.830975445846313*^9, 3.830975507954597*^9, + 3.8310224884264097`*^9, 3.8310402153833933`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"3bd75ac7-05de-452e-abce-321f4837faf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vars", "=", + RowBox[{"Last", "/@", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"#", "[", + RowBox[{"[", "1", "]"}], "]"}], ")"}], "&"}], "/@", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"#", "/.", + RowBox[{"(", + RowBox[{"Equal", "\[Rule]", "List"}], ")"}]}], ")"}], "&"}], "/@", + "relations"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.8309829749555483`*^9, 3.830983178458509*^9}, { + 3.830983262317135*^9, 3.8309833784966383`*^9}, {3.8309834113801603`*^9, + 3.830983504703998*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"78e4e595-51b5-43a8-9f85-7c81400c24ca"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "16"], ",", + SubscriptBox["b", "15"], ",", + SubscriptBox["b", "14"], ",", + SubscriptBox["b", "13"], ",", + SubscriptBox["b", "12"], ",", + SubscriptBox["b", "11"], ",", + SubscriptBox["b", "10"], ",", + SubscriptBox["b", "8"], ",", + SubscriptBox["b", "7"], ",", + SubscriptBox["b", "6"], ",", + SubscriptBox["b", "4"]}], "}"}]], "Output", + CellChangeTimes->{{3.830983082542054*^9, 3.83098309080835*^9}, + 3.830983321181198*^9, {3.830983352663274*^9, 3.830983380381652*^9}, { + 3.830983416234806*^9, 3.830983507847308*^9}, 3.831022488456304*^9, + 3.8310402154125137`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"6840bbd4-2120-4fc9-882f-1c8efee09a5c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"relations", "'"}], "=", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{"relations", "[", + RowBox[{"[", "#", "]"}], "]"}], ",", + RowBox[{"vars", "[", + RowBox[{"[", "#", "]"}], "]"}]}], "]"}], "&"}], "/@", + RowBox[{"Range", "[", "11", "]"}]}], "//", "Reverse"}]}], ";", + RowBox[{"Column", "[", + RowBox[{"relations", "'"}], "]"}]}]], "Input", + CellChangeTimes->{{3.83098352153461*^9, 3.830983609022644*^9}, { + 3.830983639294963*^9, 3.830983660243698*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"116e6e1f-d55f-410b-826e-cf0689a663f5"], + +Cell[BoxData[ + TagBox[GridBox[{ + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "4"], "\[Rule]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "6"], "\[Rule]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "5"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "7"], "\[Rule]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "8"], "\[Rule]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "10"], "\[Rule]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "9"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "11"], "\[Rule]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "9"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "12"], "\[Rule]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "9"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "13"], "\[Rule]", + RowBox[{ + RowBox[{"-", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "14"], "\[Rule]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "15"], "\[Rule]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]}], "}"}], "}"}]}, + { + RowBox[{"{", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "16"], "\[Rule]", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], " ", + SubscriptBox["b", "1"]}], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]}], "}"}], "}"}]} + }, + DefaultBaseStyle->"Column", + GridBoxAlignment->{"Columns" -> {{Left}}}, + GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], + "Column"]], "Output", + CellChangeTimes->{{3.8309835568334017`*^9, 3.83098360937055*^9}, { + 3.83098364398193*^9, 3.8309836605408983`*^9}, 3.831022488539063*^9, + 3.83104021546391*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"5933a1f4-1b24-4176-bb1a-53bd902c69a3"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"rewrite", "[", "stmt_", "]"}], ":=", + RowBox[{ + RowBox[{ + RowBox[{"Fold", "[", + RowBox[{ + RowBox[{ + RowBox[{"Flatten", "[", + RowBox[{"#1", "/.", "#2"}], "]"}], "&"}], ",", "stmt", ",", + RowBox[{"relations", "'"}]}], "]"}], "[", + RowBox[{"[", "1", "]"}], "]"}], "//", "Simplify"}]}]], "Input", + CellChangeTimes->{{3.830983677424632*^9, 3.830983689553441*^9}, { + 3.8309838104749947`*^9, 3.830983870318524*^9}, {3.8309842458995647`*^9, + 3.8309842759332733`*^9}, {3.830984384796857*^9, 3.83098439763198*^9}, { + 3.8309844764679117`*^9, 3.830984490830873*^9}, {3.8309845283287687`*^9, + 3.830984529389566*^9}, 3.830984695947771*^9, {3.83098478075791*^9, + 3.830984783303505*^9}, {3.830984986408448*^9, 3.830984992385425*^9}, { + 3.830985079240252*^9, 3.830985164125845*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"4ec10bce-39dd-4019-9b77-347a917ce727"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"rewrite", "[", + RowBox[{ + SubscriptBox["b", "1"], "+", + SubscriptBox["b", "7"], "+", + SubscriptBox["b", "8"], "-", + RowBox[{"5", + SubscriptBox["b", "4"]}]}], "]"}]], "Input", + CellChangeTimes->{{3.830983875058815*^9, 3.830983990560267*^9}, { + 3.830984296790543*^9, 3.830984302253373*^9}, {3.83098433822814*^9, + 3.8309843613631067`*^9}, {3.830984400817832*^9, 3.830984523961071*^9}, { + 3.830984586437319*^9, 3.8309846200747967`*^9}, {3.8309847879771442`*^9, + 3.830984830254342*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"f7b78ce2-412f-4a2f-a90a-d8d0f3898580"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"3", " ", + SubscriptBox["b", "1"]}], "-", + RowBox[{"4", " ", + SubscriptBox["b", "2"]}], "-", + RowBox[{"3", " ", + SubscriptBox["b", "3"]}], "+", + RowBox[{"2", " ", + SubscriptBox["b", "5"]}]}]], "Output", + CellChangeTimes->{ + 3.8309843026615887`*^9, 3.830984346235505*^9, 3.830984402592491*^9, { + 3.8309844437531433`*^9, 3.830984470406767*^9}, {3.830984502023106*^9, + 3.830984524432549*^9}, 3.830984613756876*^9, {3.830984806907918*^9, + 3.8309848313713627`*^9}, {3.830985122919108*^9, 3.8309851666512423`*^9}, { + 3.831022476176325*^9, 3.8310224885758247`*^9}, 3.831040216325221*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"4c0f74bb-55d4-47d0-8c11-e0fb0949cef4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Qform", "=", + RowBox[{"6", + RowBox[{"(", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", " ", + RowBox[{"{", + RowBox[{"i", ",", " ", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3", ",", "5", ",", "9"}], "}"}]}], + "}"}], ",", " ", + RowBox[{"{", + RowBox[{"j", ",", " ", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3", ",", "5", ",", "9"}], "}"}]}], + "}"}]}], "]"}], " ", "//", " ", "Inverse"}], ")"}]}]}], ";", + RowBox[{"MatrixForm", "[", "Qform", "]"}]}]], "Input", + CellChangeTimes->{{3.830973661697838*^9, 3.8309736631018677`*^9}, { + 3.830973756557568*^9, 3.830973777401106*^9}, {3.830973857618156*^9, + 3.830973898240068*^9}, {3.830973937549712*^9, 3.830973960753314*^9}, { + 3.830982172441782*^9, 3.830982252492113*^9}, {3.830982314579771*^9, + 3.830982316403522*^9}, {3.831018311997764*^9, 3.8310183412791767`*^9}, { + 3.831018506099593*^9, 3.8310185228865023`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"4a12b141-b7aa-49d5-a26e-c3b74817069b"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"4", + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}]}, + { + RowBox[{"-", + FractionBox["1", "2"]}], "1", + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}]}, + { + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], "1", + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}]}, + { + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], "1", + RowBox[{"-", + FractionBox["1", "2"]}]}, + { + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"-", + FractionBox["1", "2"]}], "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.830975344960146*^9, {3.830982187377171*^9, 3.830982253573946*^9}, + 3.830982317125771*^9, 3.8310183416307907`*^9, {3.831018506672258*^9, + 3.831018523602216*^9}, 3.831022488604998*^9, 3.831040216447686*^9}, + CellLabel-> + "Out[29]//MatrixForm=",ExpressionUUID->"83a32122-0e22-4cc0-a3f8-\ +7a4af3ed2c07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qform2", "=", + RowBox[{ + RowBox[{"Expand", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "1"], ",", + SubscriptBox["b", "2"], ",", + SubscriptBox["b", "3"], ",", + SubscriptBox["b", "5"], ",", + SubscriptBox["b", "9"]}], "}"}], ".", "Qform", ".", + RowBox[{"{", + RowBox[{ + SubscriptBox["b", "1"], ",", + SubscriptBox["b", "2"], ",", + SubscriptBox["b", "3"], ",", + SubscriptBox["b", "5"], ",", + SubscriptBox["b", "9"]}], "}"}]}], "]"}], "\[Equal]", "0"}]}]], "Input",\ + + CellChangeTimes->{{3.831018372417974*^9, 3.831018502461995*^9}, { + 3.831018607911312*^9, 3.831018609128851*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"cdfca6cd-7111-4fa4-b283-6fb55034f420"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"4", " ", + SubsuperscriptBox["b", "1", "2"]}], "-", + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "2"]}], "+", + SubsuperscriptBox["b", "2", "2"], "-", + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "3"]}], "-", + RowBox[{ + SubscriptBox["b", "2"], " ", + SubscriptBox["b", "3"]}], "+", + SubsuperscriptBox["b", "3", "2"], "-", + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "5"]}], "-", + RowBox[{ + SubscriptBox["b", "2"], " ", + SubscriptBox["b", "5"]}], "-", + RowBox[{ + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "5"]}], "+", + SubsuperscriptBox["b", "5", "2"], "-", + RowBox[{ + SubscriptBox["b", "1"], " ", + SubscriptBox["b", "9"]}], "-", + RowBox[{ + SubscriptBox["b", "2"], " ", + SubscriptBox["b", "9"]}], "-", + RowBox[{ + SubscriptBox["b", "3"], " ", + SubscriptBox["b", "9"]}], "-", + RowBox[{ + SubscriptBox["b", "5"], " ", + SubscriptBox["b", "9"]}], "+", + SubsuperscriptBox["b", "9", "2"]}], "\[Equal]", "0"}]], "Output", + CellChangeTimes->{{3.831018402106757*^9, 3.831018495935853*^9}, + 3.8310185269604483`*^9, 3.83101860949566*^9, 3.831022488635118*^9, + 3.831040216475511*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"237e751c-c7d3-40da-a929-4418d1f53cbd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"diff", "[", "var_", "]"}], ":=", + RowBox[{"Total", "[", + RowBox[{ + RowBox[{ + RowBox[{"Expand", "[", + RowBox[{ + RowBox[{"#", "[", + RowBox[{"[", "1", "]"}], "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}], "/@", + RowBox[{"Solve", "[", + RowBox[{"Qform2", ",", "var"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.831018557302939*^9, 3.8310186183822107`*^9}, { + 3.8310186696788387`*^9, 3.831018671041464*^9}, {3.831018849378345*^9, + 3.8310188782084303`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"590629ea-990b-4826-93da-293a098b5927"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"diff", "[", + SubscriptBox["b", "1"], "]"}], "\[IndentingNewLine]", + RowBox[{"diff", "[", + SubscriptBox["b", "2"], "]"}], "\[IndentingNewLine]", + RowBox[{"diff", "[", + SubscriptBox["b", "3"], "]"}], "\[IndentingNewLine]", + RowBox[{"diff", "[", + SubscriptBox["b", "5"], "]"}], "\[IndentingNewLine]", + RowBox[{"diff", "[", + SubscriptBox["b", "9"], "]"}]}], "Input", + CellChangeTimes->{{3.831018679815137*^9, 3.831018761657374*^9}, { + 3.831018840023087*^9, 3.831018902949369*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"42db92b0-a409-46b8-a5a8-148baa224d1c"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SubscriptBox["b", "2"], "4"], "+", + FractionBox[ + SubscriptBox["b", "3"], "4"], "+", + FractionBox[ + SubscriptBox["b", "5"], "4"], "+", + FractionBox[ + SubscriptBox["b", "9"], "4"]}]], "Output", + CellChangeTimes->{{3.831018683467249*^9, 3.831018762091023*^9}, { + 3.831018844641247*^9, 3.8310189033465242`*^9}, 3.831022488672192*^9, + 3.831040216510825*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"c46c551e-3ccd-44af-8d9b-9258215b1cf0"], + +Cell[BoxData[ + RowBox[{ + SubscriptBox["b", "1"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]], "Output", + CellChangeTimes->{{3.831018683467249*^9, 3.831018762091023*^9}, { + 3.831018844641247*^9, 3.8310189033465242`*^9}, 3.831022488672192*^9, + 3.831040216520383*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"1689a01e-3059-4e66-a729-441493a71b13"], + +Cell[BoxData[ + RowBox[{ + SubscriptBox["b", "1"], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "5"], "+", + SubscriptBox["b", "9"]}]], "Output", + CellChangeTimes->{{3.831018683467249*^9, 3.831018762091023*^9}, { + 3.831018844641247*^9, 3.8310189033465242`*^9}, 3.831022488672192*^9, + 3.8310402165309277`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"75dce957-dbb0-478d-b5aa-0b3ec4ae746e"], + +Cell[BoxData[ + RowBox[{ + SubscriptBox["b", "1"], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "9"]}]], "Output", + CellChangeTimes->{{3.831018683467249*^9, 3.831018762091023*^9}, { + 3.831018844641247*^9, 3.8310189033465242`*^9}, 3.831022488672192*^9, + 3.831040216539523*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"4dbf5c85-d317-449f-935a-762430a4ea20"], + +Cell[BoxData[ + RowBox[{ + SubscriptBox["b", "1"], "+", + SubscriptBox["b", "2"], "+", + SubscriptBox["b", "3"], "+", + SubscriptBox["b", "5"]}]], "Output", + CellChangeTimes->{{3.831018683467249*^9, 3.831018762091023*^9}, { + 3.831018844641247*^9, 3.8310189033465242`*^9}, 3.831022488672192*^9, + 3.831040216547989*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"aa32acc9-c229-4a64-b7b6-395acefe17c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"MatrixRank", "/@", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{ + RowBox[{"i", ";;", + RowBox[{"i", "+", "4"}]}], ",", + RowBox[{"i", ";;", + RowBox[{"i", "+", "4"}]}]}], "]"}], "]"}], ",", " ", + RowBox[{"{", + RowBox[{"i", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.8309743120334377`*^9, 3.8309744259769993`*^9}, { + 3.8309746099807043`*^9, 3.830974793260971*^9}, {3.830974848592719*^9, + 3.830974883218074*^9}, {3.8309749703128023`*^9, 3.830975022230929*^9}, { + 3.830975199507407*^9, 3.8309752092028646`*^9}, {3.830975618687058*^9, + 3.830975641149274*^9}, {3.830975727464127*^9, 3.830975773487855*^9}, { + 3.830975837599153*^9, 3.830975841604639*^9}, {3.8309758843549633`*^9, + 3.8309759057699623`*^9}, {3.830976213770171*^9, 3.8309762448275003`*^9}, { + 3.8309826892007732`*^9, 3.83098271885714*^9}, {3.83098275969457*^9, + 3.8309827610335407`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"3664c452-0c6b-458d-8f36-69ce738c5c72"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", + ",", "4", ",", "4", ",", "4"}], "}"}]], "Output", + CellChangeTimes->{ + 3.830974797580974*^9, {3.830974978344734*^9, 3.8309750250880013`*^9}, { + 3.830975210357704*^9, 3.83097522743637*^9}, {3.830975621516451*^9, + 3.830975646108433*^9}, {3.830975760612741*^9, 3.8309757777458277`*^9}, + 3.830975843412057*^9, 3.830975906250333*^9, {3.830976217416759*^9, + 3.830976245527808*^9}, 3.8309826999788017`*^9, 3.8309827625381517`*^9, + 3.831022488738913*^9, 3.8310402165776243`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"a0007b65-40e0-4697-843b-a1ca28224fe1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"Table", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Table", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Table", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Table", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Table", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", " ", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"i", ",", " ", "j"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"{", + RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"{", + RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], + "}"}]}], "}"}]}], "]"}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"e", ",", "d", ",", "15"}], "}"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"d", ",", "c", ",", "15"}], "}"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"c", ",", "b", ",", "15"}], "}"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"b", ",", "a", ",", "15"}], "}"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"a", ",", "1", ",", "15"}], "}"}]}], "]"}], "//", + RowBox[{ + RowBox[{"Flatten", "[", + RowBox[{"#", ",", "4"}], "]"}], "&"}]}], "//", + RowBox[{ + RowBox[{"Select", "[", + RowBox[{"#", ",", + RowBox[{ + RowBox[{ + RowBox[{"MatrixRank", "[", + RowBox[{"Last", "[", "#", "]"}], "]"}], "\[Equal]", "5"}], "&"}]}], + "]"}], "&"}]}], ")"}], "//", "Length"}]], "Input", + CellChangeTimes->{{3.830976007227116*^9, 3.830976050401889*^9}, { + 3.830976091687634*^9, 3.8309762085934153`*^9}, {3.8309762493428183`*^9, + 3.830976334124701*^9}, {3.8309763897553587`*^9, 3.830976391190031*^9}, { + 3.830976428107082*^9, 3.8309764291023417`*^9}, {3.830981786107956*^9, + 3.8309817952818737`*^9}, {3.830981875532165*^9, 3.830981901933734*^9}, { + 3.830982126133546*^9, 3.8309821464464827`*^9}, {3.8309823923592863`*^9, + 3.8309823944524813`*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"6f81ad54-e004-4d74-88e0-767fb95640e8"], + +Cell[BoxData["2068"], "Output", + CellChangeTimes->{{3.830976138380005*^9, 3.8309762099088173`*^9}, { + 3.830976252536645*^9, 3.830976260938087*^9}, {3.830976305027199*^9, + 3.830976335007917*^9}, {3.830976424570159*^9, 3.8309764317501297`*^9}, + 3.830981903561406*^9, {3.830982135695609*^9, 3.830982147650242*^9}, + 3.830982395268599*^9, 3.831022489244718*^9, 3.83104021805667*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"93999db1-c1ff-4ae3-909b-0a14879ab1e5"] +}, Open ]] +}, +WindowSize->{1419., 770.25}, +WindowMargins->{{10.5, Automatic}, {10.5, Automatic}}, +TaggingRules->{ + "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False}, +FrontEndVersion->"12.2 for Linux x86 (64-bit) (December 12, 2020)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"47b39004-f6c6-4975-87f2-80350747a22c" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 579, 14, 29, "Input",ExpressionUUID->"ebaf5259-9228-4eff-be3b-0a282ffa9621"], +Cell[CellGroupData[{ +Cell[1162, 38, 1777, 45, 113, "Input",ExpressionUUID->"1dd84f34-927b-45d4-b99a-771415caa06f"], +Cell[2942, 85, 1289, 39, 57, "Output",ExpressionUUID->"77c33dea-69f3-43e9-bfa6-a9c437c24fb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4268, 129, 465, 13, 95, "Input",ExpressionUUID->"fa297213-8061-4657-96d5-605be3831218"], +Cell[4736, 144, 842, 22, 47, "Output",ExpressionUUID->"cd3af104-540c-4a60-a8e1-8f9da0497585"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5615, 171, 233, 4, 29, "Input",ExpressionUUID->"2eef3868-3a96-4078-9112-2fd646b3a1a1"], +Cell[5851, 177, 1368, 46, 139, "Output",ExpressionUUID->"4455ceac-8dd0-4f17-97e4-beddf1d2c3a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7256, 228, 658, 12, 51, "Input",ExpressionUUID->"ffe171ff-a358-4802-bf10-fa8ba0a01522"], +Cell[7917, 242, 1502, 40, 33, "Output",ExpressionUUID->"eb3224b0-afc1-48bc-b26f-d55c0a8a3558"], +Cell[9422, 284, 1647, 48, 113, "Output",ExpressionUUID->"2415e6b4-d337-4c44-9275-3926228715d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11106, 337, 553, 13, 51, "Input",ExpressionUUID->"a4a77638-e66e-4fb2-b3c9-2dce83fd728c"], +Cell[11662, 352, 933, 26, 113, "Output",ExpressionUUID->"e24e10e5-ee56-408b-8e77-5438d7fe1ca7"], +Cell[12598, 380, 1182, 36, 33, "Output",ExpressionUUID->"a52006eb-ab43-4a68-8ee5-09e969a3b8db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13817, 421, 413, 9, 29, "Input",ExpressionUUID->"85010b49-a746-4e75-a1dc-6ebe4d56b358"], +Cell[14233, 432, 400, 7, 33, "Output",ExpressionUUID->"ec73b939-e947-41e3-921c-a78f5c580c25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14670, 444, 386, 9, 29, "Input",ExpressionUUID->"01473760-9db2-462d-8f69-4bc46efbd5e7"], +Cell[15059, 455, 844, 22, 33, "Output",ExpressionUUID->"f2f9a3df-8251-4e5b-a280-d67d93215b58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15940, 482, 721, 17, 29, "Input",ExpressionUUID->"a03f641a-2aaa-4dbf-8105-78aaac1d1374"], +Cell[16664, 501, 2003, 47, 82, "Output",ExpressionUUID->"6acfef8c-1f2b-4205-b24c-ca21a0fa26b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18704, 553, 385, 6, 29, "Input",ExpressionUUID->"7cdb5337-8fe0-46bc-8ed4-b3fa5a9d4e4c"], +Cell[19092, 561, 344, 6, 33, "Output",ExpressionUUID->"b5bb8ed3-f441-4587-bf02-72e74865a030"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19473, 572, 1855, 53, 527, "Input",ExpressionUUID->"26a7006a-8653-47c7-b64a-3a0c0a03fc59"], +Cell[21331, 627, 861, 19, 33, "Output",ExpressionUUID->"66cb7af9-662d-482c-b272-68eb12dcc176"], +Cell[22195, 648, 861, 19, 33, "Output",ExpressionUUID->"34d876a4-331a-4af8-ac9f-6098ac3ad6d3"], +Cell[23059, 669, 861, 19, 33, "Output",ExpressionUUID->"813f50db-b9af-428d-84b5-cb3039df2a69"], +Cell[23923, 690, 861, 19, 33, "Output",ExpressionUUID->"11ca74d5-4143-4221-9193-a0ad3e9f8a5e"], +Cell[24787, 711, 858, 18, 33, "Output",ExpressionUUID->"ebbe1a63-a71a-4f35-8a83-3fd68dabfba5"] +}, Open ]], +Cell[25660, 732, 580, 14, 51, InheritFromParent,ExpressionUUID->"606394ca-736e-49ec-a0c1-44810c2e75f6"], +Cell[26243, 748, 381, 9, 36, "Output",ExpressionUUID->"9e33b573-a1a5-48df-ab9a-dff0e8a13265"], +Cell[26627, 759, 356, 8, 51, "Output",ExpressionUUID->"989e4e52-3b55-47f3-8f37-c5a985da1614"], +Cell[CellGroupData[{ +Cell[27008, 771, 1270, 37, 95, "Input",ExpressionUUID->"a0ecdd19-ef77-4c6b-958a-c2427f71f963"], +Cell[28281, 810, 3122, 99, 108, "Output",ExpressionUUID->"e18ebab6-d068-4676-b109-508250471225"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31440, 914, 423, 10, 29, "Input",ExpressionUUID->"8fe09c1d-bcaf-47c3-9ce9-0a0718bdcc04"], +Cell[31866, 926, 7402, 275, 302, "Output",ExpressionUUID->"7d0ad4a1-0a02-4d9a-b4d8-15ad9f093bd7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[39305, 1206, 209, 3, 29, "Input",ExpressionUUID->"b116c292-1139-40f9-b5d9-091f4a16299d"], +Cell[39517, 1211, 3141, 70, 96, "Output",ExpressionUUID->"f7ef904c-fa06-4b66-af6f-a062e18fd470"] +}, Open ]], +Cell[42673, 1284, 241, 4, 29, "Input",ExpressionUUID->"941190c1-cbb2-4020-9051-e9ae444a7b02"], +Cell[CellGroupData[{ +Cell[42939, 1292, 807, 20, 29, "Input",ExpressionUUID->"fd26d6aa-60a6-45eb-9a6c-3768d0c8a09b"], +Cell[43749, 1314, 3068, 99, 202, "Output",ExpressionUUID->"3bd75ac7-05de-452e-abce-321f4837faf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46854, 1418, 717, 20, 29, "Input",ExpressionUUID->"78e4e595-51b5-43a8-9f85-7c81400c24ca"], +Cell[47574, 1440, 739, 18, 33, "Output",ExpressionUUID->"6840bbd4-2120-4fc9-882f-1c8efee09a5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[48350, 1463, 669, 18, 29, "Input",ExpressionUUID->"116e6e1f-d55f-410b-826e-cf0689a663f5"], +Cell[49022, 1483, 3911, 131, 202, "Output",ExpressionUUID->"5933a1f4-1b24-4176-bb1a-53bd902c69a3"] +}, Open ]], +Cell[52948, 1617, 935, 19, 29, "Input",ExpressionUUID->"4ec10bce-39dd-4019-9b77-347a917ce727"], +Cell[CellGroupData[{ +Cell[53908, 1640, 607, 13, 29, "Input",ExpressionUUID->"f7b78ce2-412f-4a2f-a90a-d8d0f3898580"], +Cell[54518, 1655, 722, 16, 33, "Output",ExpressionUUID->"4c0f74bb-55d4-47d0-8c11-e0fb0949cef4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[55277, 1676, 1205, 28, 29, "Input",ExpressionUUID->"4a12b141-b7aa-49d5-a26e-c3b74817069b"], +Cell[56485, 1706, 1899, 65, 153, "Output",ExpressionUUID->"83a32122-0e22-4cc0-a3f8-7a4af3ed2c07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[58421, 1776, 789, 22, 29, "Input",ExpressionUUID->"cdfca6cd-7111-4fa4-b283-6fb55034f420"], +Cell[59213, 1800, 1362, 42, 33, "Output",ExpressionUUID->"237e751c-c7d3-40da-a929-4418d1f53cbd"] +}, Open ]], +Cell[60590, 1845, 635, 16, 29, "Input",ExpressionUUID->"590629ea-990b-4826-93da-293a098b5927"], +Cell[CellGroupData[{ +Cell[61250, 1865, 595, 13, 113, "Input",ExpressionUUID->"42db92b0-a409-46b8-a5a8-148baa224d1c"], +Cell[61848, 1880, 491, 13, 48, "Output",ExpressionUUID->"c46c551e-3ccd-44af-8d9b-9258215b1cf0"], +Cell[62342, 1895, 403, 9, 33, "Output",ExpressionUUID->"1689a01e-3059-4e66-a729-441493a71b13"], +Cell[62748, 1906, 405, 9, 33, "Output",ExpressionUUID->"75dce957-dbb0-478d-b5aa-0b3ec4ae746e"], +Cell[63156, 1917, 403, 9, 33, "Output",ExpressionUUID->"4dbf5c85-d317-449f-935a-762430a4ea20"], +Cell[63562, 1928, 403, 9, 33, "Output",ExpressionUUID->"aa32acc9-c229-4a64-b7b6-395acefe17c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[64002, 1942, 1064, 22, 29, "Input",ExpressionUUID->"3664c452-0c6b-458d-8f36-69ce738c5c72"], +Cell[65069, 1966, 685, 12, 33, "Output",ExpressionUUID->"a0007b65-40e0-4697-843b-a1ca28224fe1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[65791, 1983, 2789, 65, 236, "Input",ExpressionUUID->"6f81ad54-e004-4d74-88e0-767fb95640e8"], +Cell[68583, 2050, 467, 6, 33, "Output",ExpressionUUID->"93999db1-c1ff-4ae3-909b-0a14879ab1e5"] +}, Open ]] +} +] +*) +