wball/Circle-Packings
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
Circle-Packings/scratchpad.nb

2188 lines
74 KiB
Mathematica
Raw Normal View History

mathematica
2021-06-03 11:57:57 -07:00
(* 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 ]]
}
]
*)
Reference in a new issue Copy permalink