(* 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 ]] } ] *)