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

1005 lines
39 KiB
Mathematica
Raw Normal View History

Add files via upload
2021-06-08 12:44:33 -07:00
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 40105, 994]
NotebookOptionsPosition[ 39008, 969]
NotebookOutlinePosition[ 39399, 985]
CellTagsIndexPosition[ 39356, 982]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"biggermat", "=",
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"-", "1"}], "1", "\[Placeholder]", "1", "1", "\[Placeholder]",
"\[Placeholder]", "0", "0", "\[Placeholder]", "0", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"1",
RowBox[{"-", "1"}], "1", "1", "\[Placeholder]", "1", "1",
"\[Placeholder]", "0", "0", "0", "0", "0", "\[Placeholder]"},
{"\[Placeholder]", "1",
RowBox[{"-", "1"}], "1", "\[Placeholder]", "\[Placeholder]", "1",
"\[Placeholder]", "\[Placeholder]", "0", "\[Placeholder]", "0",
"\[Placeholder]", "0"},
{"1", "1", "1",
RowBox[{"-", "1"}], "1", "\[Placeholder]", "\[Placeholder]", "0",
"\[Placeholder]", "\[Placeholder]", "0", "0", "\[Placeholder]", "0"},
{"1", "\[Placeholder]", "\[Placeholder]", "1",
RowBox[{"-", "1"}], "1", "\[Placeholder]", "0", "0", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "0"},
{"\[Placeholder]", "1", "\[Placeholder]", "\[Placeholder]", "1",
RowBox[{"-", "1"}], "1", "\[Placeholder]", "0", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]", "0", "0"},
{"\[Placeholder]", "1", "1", "\[Placeholder]", "\[Placeholder]", "1",
RowBox[{"-", "1"}], "\[Placeholder]", "\[Placeholder]", "0",
"\[Placeholder]", "\[Placeholder]", "0", "0"},
{"0", "\[Placeholder]", "\[Placeholder]", "0", "0", "\[Placeholder]",
"\[Placeholder]",
RowBox[{"-", "1"}], "1", "\[Placeholder]", "1", "\[Placeholder]",
"\[Placeholder]", "1"},
{"0", "0", "\[Placeholder]", "\[Placeholder]", "0", "0",
"\[Placeholder]", "1",
RowBox[{"-", "1"}], "\[Placeholder]", "1", "\[Placeholder]", "1", "1"},
{"\[Placeholder]", "0", "0", "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "0", "\[Placeholder]", "\[Placeholder]",
RowBox[{"-", "1"}], "\[Placeholder]", "1", "1", "1"},
{"0", "0", "\[Placeholder]", "0", "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "1", "1", "\[Placeholder]",
RowBox[{"-", "1"}], "1", "\[Placeholder]", "\[Placeholder]"},
{"\[Placeholder]", "0", "0", "0", "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "1", "1",
RowBox[{"-", "1"}], "\[Placeholder]", "1"},
{"\[Placeholder]", "0", "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "0", "0", "\[Placeholder]", "1", "1",
"\[Placeholder]", "\[Placeholder]",
RowBox[{"-", "1"}], "1"},
{"\[Placeholder]", "\[Placeholder]", "0", "0", "0", "0", "0", "1", "1",
"1", "\[Placeholder]", "1", "1",
RowBox[{"-", "1"}]}
}], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]",
RowBox[{"matzeros", "=",
RowBox[{"(", "\[NoBreak]", GridBox[{
{"\[Placeholder]", "1", "1", "\[Placeholder]", "\[Placeholder]", "0",
"0", "\[Placeholder]", "0", "\[Placeholder]"},
{"1", "\[Placeholder]", "\[Placeholder]", "1", "1", "\[Placeholder]",
"0", "0", "0", "0"},
{"1", "\[Placeholder]", "\[Placeholder]", "1", "\[Placeholder]", "0",
"0", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
{"\[Placeholder]", "1", "1", "\[Placeholder]", "1", "\[Placeholder]",
"0", "\[Placeholder]", "\[Placeholder]", "0"},
{"\[Placeholder]", "1", "\[Placeholder]", "1", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]", "0", "\[Placeholder]", "0"},
{"0", "\[Placeholder]", "0", "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "1", "\[Placeholder]", "1", "\[Placeholder]"},
{"0", "0", "0", "0", "\[Placeholder]", "1", "\[Placeholder]",
"\[Placeholder]", "1", "1"},
{"\[Placeholder]", "0", "\[Placeholder]", "\[Placeholder]", "0",
"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]",
"1"},
{"0", "0", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "1",
"1", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
{"\[Placeholder]", "0", "\[Placeholder]", "0", "0", "\[Placeholder]",
"1", "1", "\[Placeholder]", "\[Placeholder]"}
}], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"vars", " ", "=", " ",
RowBox[{"(", "\[NoBreak]", GridBox[{
{"a31", "1", "a141"},
{"1", "1", "a142"},
{"a35", "1", "0"},
{"a36", "a46", "0"},
{"1", "a47", "0"},
{"a38", "0", "1"},
{"a39", "a49", "1"},
{"0", "a410", "1"},
{"a311", "0", "a1411"},
{"a313", "a413", "1"}
}], "\[NoBreak]", ")"}]}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"bil", "[",
RowBox[{"a_", ",", "b_"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"1", "/", "2"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"a", ",", "3"}], "]"}], "]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"a", ",", "2"}], "]"}], "]"}], "^", "2"}], "-", "1"}],
")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"b", ",", "1"}], "]"}], "]"}], "+",
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"b", ",", "2"}], "]"}], "]"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"a", ",", "1"}], "]"}], "]"}], "+",
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"a", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"b", ",", "3"}], "]"}], "]"}], "^", "2"}], "+",
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"b", ",", "2"}], "]"}], "]"}], "^", "2"}], "-", "1"}],
")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"a", ",", "1"}], "]"}], "]"}], "+",
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"a", ",", "2"}], "]"}], "]"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"b", ",", "1"}], "]"}], "]"}], "+",
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"b", ",", "2"}], "]"}], "]"}]}], ")"}]}]}]}], ")"}]}],
"-",
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"a", ",", "3"}], "]"}], "]"}], "*",
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"b", ",", "3"}], "]"}], "]"}]}], "-",
RowBox[{
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"a", ",", "2"}], "]"}], "]"}], "*",
RowBox[{"vars", "[",
RowBox[{"[",
RowBox[{"b", ",", "2"}], "]"}], "]"}]}]}], "==",
RowBox[{"matzeros", "[",
RowBox[{"[",
RowBox[{"a", ",", "b"}], "]"}], "]"}]}]}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{"bil", "[",
RowBox[{"1", ",", "2"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"1", ",", "3"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"1", ",", "6"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"1", ",", "7"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"1", ",", "9"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"2", ",", "4"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"2", ",", "5"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"2", ",", "7"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"2", ",", "8"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"2", ",", "9"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"2", ",", "10"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"3", ",", "4"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"3", ",", "6"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"3", ",", "7"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"4", ",", "5"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"4", ",", "7"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"4", ",", "10"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"5", ",", "8"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"5", ",", "10"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"6", ",", "7"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"6", ",", "9"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"7", ",", "9"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"7", ",", "10"}], "]"}], "&&",
RowBox[{"bil", "[",
RowBox[{"8", ",", "10"}], "]"}], "&&",
RowBox[{"a311", ">", "0"}], "&&",
RowBox[{"a49", ">", "0"}], "&&",
RowBox[{"a142", ">", "0"}], "&&",
RowBox[{"a1411", ">", "0"}], "&&",
RowBox[{"a36", ">", "0"}], "&&",
RowBox[{"a47", ">", "0"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.8321500432163486`*^9, 3.832150059840227*^9}, {
3.832150794285283*^9, 3.832150875560014*^9}, {3.832150916470787*^9,
3.83215101914321*^9}, {3.832151061102829*^9, 3.832151104539521*^9}, {
3.832151224028414*^9, 3.8321513209068947`*^9}, {3.832151365985897*^9,
3.8321513892653933`*^9}, {3.832151491683951*^9, 3.8321515338727283`*^9}, {
3.832151569899502*^9, 3.832151588812272*^9}, {3.8321516385135403`*^9,
3.832151639682611*^9}, {3.832151678327362*^9, 3.832151824409404*^9}, {
3.83215186998283*^9, 3.832151878535943*^9}, {3.83215192024076*^9,
3.83215203290609*^9}, {3.8321520967120647`*^9, 3.83215265960375*^9}, {
3.8321695818503227`*^9,
3.832169583972975*^9}},ExpressionUUID->"20dce438-8cdc-474f-858e-\
036756ff41fd"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1", ",", "\[Placeholder]", ",", "1", ",", "1",
",", "\[Placeholder]", ",", "\[Placeholder]", ",", "0", ",", "0", ",",
"\[Placeholder]", ",", "0", ",", "\[Placeholder]", ",", "\[Placeholder]",
",", "\[Placeholder]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "\[Placeholder]", ",", "1",
",", "1", ",", "\[Placeholder]", ",", "0", ",", "0", ",", "0", ",", "0",
",", "0", ",", "\[Placeholder]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Placeholder]", ",", "1", ",",
RowBox[{"-", "1"}], ",", "1", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "1", ",", "\[Placeholder]", ",", "\[Placeholder]",
",", "0", ",", "\[Placeholder]", ",", "0", ",", "\[Placeholder]", ",",
"0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "1", ",",
RowBox[{"-", "1"}], ",", "1", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "0", ",", "\[Placeholder]", ",", "\[Placeholder]",
",", "0", ",", "0", ",", "\[Placeholder]", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", "1", ",",
RowBox[{"-", "1"}], ",", "1", ",", "\[Placeholder]", ",", "0", ",", "0",
",", "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "1", ",", "\[Placeholder]", ",", "\[Placeholder]",
",", "1", ",",
RowBox[{"-", "1"}], ",", "1", ",", "\[Placeholder]", ",", "0", ",",
"\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", "0",
",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "1", ",", "1", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "1", ",",
RowBox[{"-", "1"}], ",", "\[Placeholder]", ",", "\[Placeholder]", ",",
"0", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", "0", ",", "0"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"0", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", "0", ",", "0",
",", "\[Placeholder]", ",", "\[Placeholder]", ",",
RowBox[{"-", "1"}], ",", "1", ",", "\[Placeholder]", ",", "1", ",",
"\[Placeholder]", ",", "\[Placeholder]", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0", ",", "0", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", "0",
",", "0", ",", "\[Placeholder]", ",", "1", ",",
RowBox[{"-", "1"}], ",", "\[Placeholder]", ",", "1", ",",
"\[Placeholder]", ",", "1", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "0", ",", "0", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "\[Placeholder]", ",", "0", ",", "\[Placeholder]",
",", "\[Placeholder]", ",",
RowBox[{"-", "1"}], ",", "\[Placeholder]", ",", "1", ",", "1", ",",
"1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0", ",", "0", ",", "\[Placeholder]", ",", "0", ",", "\[Placeholder]",
",", "\[Placeholder]", ",", "\[Placeholder]", ",", "1", ",", "1", ",",
"\[Placeholder]", ",",
RowBox[{"-", "1"}], ",", "1", ",", "\[Placeholder]", ",",
"\[Placeholder]"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "0", ",", "0", ",", "0", ",", "\[Placeholder]",
",", "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "1", ",", "1", ",",
RowBox[{"-", "1"}], ",", "\[Placeholder]", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "0", ",", "\[Placeholder]", ",", "\[Placeholder]",
",", "\[Placeholder]", ",", "0", ",", "0", ",", "\[Placeholder]", ",",
"1", ",", "1", ",", "\[Placeholder]", ",", "\[Placeholder]", ",",
RowBox[{"-", "1"}], ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "\[Placeholder]", ",", "0", ",", "0", ",", "0",
",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "\[Placeholder]",
",", "1", ",", "1", ",",
RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.832152667102006*^9},
CellLabel->"Out[19]=",ExpressionUUID->"2bacacb9-fa82-4024-bfa5-01abed5e7a1e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "1", ",", "1", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "0", ",", "0", ",", "\[Placeholder]", ",", "0",
",", "\[Placeholder]"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", "1", ",", "1",
",", "\[Placeholder]", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}],
",",
RowBox[{"{",
RowBox[{
"1", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", "1", ",",
"\[Placeholder]", ",", "0", ",", "0", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "\[Placeholder]"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "1", ",", "1", ",", "\[Placeholder]", ",", "1",
",", "\[Placeholder]", ",", "0", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "1", ",", "\[Placeholder]", ",", "1", ",",
"\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", "0",
",", "\[Placeholder]", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0", ",", "\[Placeholder]", ",", "0", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "\[Placeholder]", ",", "1", ",", "\[Placeholder]",
",", "1", ",", "\[Placeholder]"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0", ",", "0", ",", "0", ",", "0", ",", "\[Placeholder]", ",", "1", ",",
"\[Placeholder]", ",", "\[Placeholder]", ",", "1", ",", "1"}], "}"}],
",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "0", ",", "\[Placeholder]", ",", "\[Placeholder]",
",", "0", ",", "\[Placeholder]", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "\[Placeholder]", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0", ",", "0", ",", "\[Placeholder]", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "1", ",", "1", ",", "\[Placeholder]", ",",
"\[Placeholder]", ",", "\[Placeholder]"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"\[Placeholder]", ",", "0", ",", "\[Placeholder]", ",", "0", ",", "0",
",", "\[Placeholder]", ",", "1", ",", "1", ",", "\[Placeholder]", ",",
"\[Placeholder]"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.832152667108571*^9},
CellLabel->"Out[20]=",ExpressionUUID->"f871aabb-d6d6-428d-84d7-e863e0783e4b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"a31", ",", "1", ",", "a141"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "a142"}], "}"}], ",",
RowBox[{"{",
RowBox[{"a35", ",", "1", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"a36", ",", "a46", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "a47", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"a38", ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"a39", ",", "a49", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "a410", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"a311", ",", "0", ",", "a1411"}], "}"}], ",",
RowBox[{"{",
RowBox[{"a313", ",", "a413", ",", "1"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.832152667112417*^9},
CellLabel->"Out[21]=",ExpressionUUID->"099da394-2626-4330-b9e5-3ad8a130e4dd"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"a141", "\[Rule]", "2.4697275952269337`"}], ",",
RowBox[{"a1411", "\[Rule]", "2.049777197312833`"}], ",",
RowBox[{"a142", "\[Rule]", "1.2963318565217516`"}], ",",
RowBox[{"a31", "\[Rule]", "10.069648589016966`"}], ",",
RowBox[{"a311", "\[Rule]", "4.705241457994818`"}], ",",
RowBox[{"a313", "\[Rule]", "3.085629640185284`"}], ",",
RowBox[{"a35", "\[Rule]", "6.259316253508969`"}], ",",
RowBox[{"a36", "\[Rule]", "3.7605551381951643`"}], ",",
RowBox[{"a38", "\[Rule]", "8.964266836885285`"}], ",",
RowBox[{"a39", "\[Rule]", "4.259025378890466`"}], ",",
RowBox[{"a410", "\[Rule]", "3.085629640185284`"}], ",",
RowBox[{"a413", "\[Rule]", "4.259025378890466`"}], ",",
RowBox[{"a46", "\[Rule]", "2.810332335507997`"}], ",",
RowBox[{"a47", "\[Rule]", "3.7605551381951643`"}], ",",
RowBox[{"a49", "\[Rule]", "1.619611817809534`"}]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.8321526681142273`*^9},
CellLabel->"Out[23]=",ExpressionUUID->"cd9b271e-3740-4444-b6d8-c95c813908f3"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{
"a141", ",", "a1411", ",", "a142", ",", "a31", ",", "a311", ",", "a313",
",", "a35", ",", "a36", ",", "a38", ",", "a39", ",", "a410", ",", "a413",
",", "a46", ",", "a47", ",", "a49"}], "}"}], "/.", "\[VeryThinSpace]",
"%23"}]], "Input",
NumberMarks->False,
CellLabel->"In[24]:=",ExpressionUUID->"59acae29-7797-4b97-a80b-1f3c2530857e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"RootApproximant", "[",
RowBox[{"{",
RowBox[{
"2.4697275952269337`", ",", "2.049777197312833`", ",",
"1.2963318565217516`", ",", "10.069648589016966`", ",",
"4.705241457994818`", ",", "3.085629640185284`", ",",
"6.259316253508969`", ",", "3.7605551381951643`", ",",
"8.964266836885285`", ",", "4.259025378890466`", ",",
"3.085629640185284`", ",", "4.259025378890466`", ",",
"2.810332335507997`", ",", "3.7605551381951643`", ",",
"1.619611817809534`"}], "}"}], "]"}]], "Input",
CellChangeTimes->{{3.8321526959377203`*^9, 3.8321527021775637`*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"bb5d4c93-fb5c-4648-883a-02f121fe5328"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"2.47\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
2.46972759522705187507085611287038773298`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"2", " ", "#1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "3"]}], "-",
SuperscriptBox["#1", "4"], "+",
SuperscriptBox["#1", "5"], "-",
RowBox[{"3", " ",
SuperscriptBox["#1", "6"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "8"]}], "+",
SuperscriptBox["#1", "9"], "-",
SuperscriptBox["#1", "10"], "-",
RowBox[{"2", " ",
SuperscriptBox["#1", "11"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["#1", "12"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["#1", "14"]}], "+",
SuperscriptBox["#1", "15"]}], "&"}], ",", "1"}], "]"}],
Short[#, 7]& ], 2.469727595227052},
"NumericalApproximation"],
Root[-2 + 2 # + 2 #^3 - #^4 + #^5 - 3 #^6 + 2 #^8 + #^9 - #^10 - 2 #^11 -
2 #^12 - 2 #^14 + #^15& , 1, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"2.05\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
2.04977719731280938475492803263477981091`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{"17", "+",
RowBox[{"4", " ", "#1"}], "-",
RowBox[{"2", " ",
SuperscriptBox["#1", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["#1", "3"]}], "+",
SuperscriptBox["#1", "4"]}], "&"}], ",", "1"}], "]"}],
Short[#, 7]& ], 2.0497771973128094`},
"NumericalApproximation"],
Root[17 + 4 # - 2 #^2 - 4 #^3 + #^4& , 1, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"1.30\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
1.29633185652175098034888378606410697103`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{"2", "+",
RowBox[{"7", " ", "#1"}], "+",
RowBox[{"5", " ",
SuperscriptBox["#1", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["#1", "3"]}], "-",
SuperscriptBox["#1", "4"], "-",
RowBox[{"17", " ",
SuperscriptBox["#1", "6"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["#1", "7"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["#1", "8"]}]}], "&"}], ",", "3"}], "]"}],
Short[#, 7]& ], 1.296331856521751},
"NumericalApproximation"],
Root[2 + 7 # + 5 #^2 + 16 #^3 - #^4 - 17 #^6 - 16 #^7 + 16 #^8& , 3, 0]],
",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"10.1\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
10.06964858901710613281466066837310791016`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{"37", "+",
RowBox[{"8", " ", "#1"}], "-",
RowBox[{"22", " ",
SuperscriptBox["#1", "2"]}], "-",
RowBox[{"8", " ",
SuperscriptBox["#1", "3"]}], "+",
SuperscriptBox["#1", "4"]}], "&"}], ",", "2"}], "]"}],
Short[#, 7]& ], 10.069648589017106`},
"NumericalApproximation"],
Root[37 + 8 # - 22 #^2 - 8 #^3 + #^4& , 2, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"4.71\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
4.70524145799482340635222499258816242218`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "7"}], "+", "#1", "+",
SuperscriptBox["#1", "2"], "-",
RowBox[{"4", " ",
SuperscriptBox["#1", "3"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["#1", "4"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["#1", "6"]}], "-",
RowBox[{"3", " ",
SuperscriptBox["#1", "7"]}], "+",
RowBox[{"9", " ",
SuperscriptBox["#1", "8"]}], "+",
SuperscriptBox["#1", "10"], "-",
RowBox[{"5", " ",
SuperscriptBox["#1", "11"]}], "+",
SuperscriptBox["#1", "12"]}], "&"}], ",", "4"}], "]"}],
Short[#, 7]& ], 4.705241457994823},
"NumericalApproximation"],
Root[-7 + # + #^2 - 4 #^3 + 12 #^4 + 4 #^6 - 3 #^7 + 9 #^8 + #^10 -
5 #^11 + #^12& , 4, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"3.09\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
3.08562964018539576116495481983292847872`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"5", " ", "#1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "3"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["#1", "5"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["#1", "6"]}], "-",
RowBox[{"11", " ",
SuperscriptBox["#1", "7"]}], "+",
SuperscriptBox["#1", "8"], "+",
SuperscriptBox["#1", "9"]}], "&"}], ",", "3"}], "]"}],
Short[#, 7]& ], 3.0856296401853958`},
"NumericalApproximation"],
Root[-2 - 5 # + 2 #^2 + 2 #^3 + 3 #^5 - 6 #^6 - 11 #^7 + #^8 + #^9& , 3,
0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"6.26\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
6.25931625350906895022262688144110143185`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"10", " ", "#1"}], "-",
RowBox[{"6", " ",
SuperscriptBox["#1", "3"]}], "+",
SuperscriptBox["#1", "4"]}], "&"}], ",", "2"}], "]"}],
Short[#, 7]& ], 6.259316253509069},
"NumericalApproximation"],
Root[-1 - 10 # - 6 #^3 + #^4& , 2, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"3.76\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
3.76055513819522824192631560435984283686`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "13"}], "-",
RowBox[{"10", " ", "#1"}], "+",
RowBox[{"12", " ",
SuperscriptBox["#1", "2"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["#1", "3"]}], "+",
SuperscriptBox["#1", "4"]}], "&"}], ",", "2"}], "]"}],
Short[#, 7]& ], 3.7605551381952282`},
"NumericalApproximation"],
Root[-13 - 10 # + 12 #^2 - 6 #^3 + #^4& , 2, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"8.96\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
8.96426683688528491700253653107210993767`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "12"}], "+",
RowBox[{"17", " ", "#1"}], "-",
RowBox[{"10", " ",
SuperscriptBox["#1", "2"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["#1", "3"]}], "+",
RowBox[{"17", " ",
SuperscriptBox["#1", "4"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "5"]}], "-",
RowBox[{"7", " ",
SuperscriptBox["#1", "6"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["#1", "7"]}], "+",
RowBox[{"19", " ",
SuperscriptBox["#1", "8"]}], "-",
RowBox[{"11", " ",
SuperscriptBox["#1", "9"]}], "+",
SuperscriptBox["#1", "10"]}], "&"}], ",", "4"}], "]"}],
Short[#, 7]& ], 8.964266836885285},
"NumericalApproximation"],
Root[-12 + 17 # - 10 #^2 - 6 #^3 + 17 #^4 + 2 #^5 - 7 #^6 - 6 #^7 +
19 #^8 - 11 #^9 + #^10& , 4, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"4.26\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
4.25902537889046595154241003911010921001`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{"4", "-",
RowBox[{"10", " ", "#1"}], "+",
RowBox[{"21", " ",
SuperscriptBox["#1", "2"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["#1", "3"]}], "-",
RowBox[{"3", " ",
SuperscriptBox["#1", "4"]}], "+",
SuperscriptBox["#1", "5"], "-",
RowBox[{"4", " ",
SuperscriptBox["#1", "6"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["#1", "8"]}], "-",
RowBox[{"8", " ",
SuperscriptBox["#1", "9"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "10"]}]}], "&"}], ",", "2"}], "]"}],
Short[#, 7]& ], 4.259025378890466},
"NumericalApproximation"],
Root[4 - 10 # + 21 #^2 + 10 #^3 - 3 #^4 + #^5 - 4 #^6 - 2 #^8 - 8 #^9 +
2 #^10& , 2, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"3.09\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
3.08562964018539576116495481983292847872`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"5", " ", "#1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "3"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["#1", "5"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["#1", "6"]}], "-",
RowBox[{"11", " ",
SuperscriptBox["#1", "7"]}], "+",
SuperscriptBox["#1", "8"], "+",
SuperscriptBox["#1", "9"]}], "&"}], ",", "3"}], "]"}],
Short[#, 7]& ], 3.0856296401853958`},
"NumericalApproximation"],
Root[-2 - 5 # + 2 #^2 + 2 #^3 + 3 #^5 - 6 #^6 - 11 #^7 + #^8 + #^9& , 3,
0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"4.26\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
4.25902537889046595154241003911010921001`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{"4", "-",
RowBox[{"10", " ", "#1"}], "+",
RowBox[{"21", " ",
SuperscriptBox["#1", "2"]}], "+",
RowBox[{"10", " ",
SuperscriptBox["#1", "3"]}], "-",
RowBox[{"3", " ",
SuperscriptBox["#1", "4"]}], "+",
SuperscriptBox["#1", "5"], "-",
RowBox[{"4", " ",
SuperscriptBox["#1", "6"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["#1", "8"]}], "-",
RowBox[{"8", " ",
SuperscriptBox["#1", "9"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "10"]}]}], "&"}], ",", "2"}], "]"}],
Short[#, 7]& ], 4.259025378890466},
"NumericalApproximation"],
Root[4 - 10 # + 21 #^2 + 10 #^3 - 3 #^4 + #^5 - 4 #^6 - 2 #^8 - 8 #^9 +
2 #^10& , 2, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"2.81\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
2.81033233550803762668124363699462264776`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{"7", "-",
RowBox[{"18", " ", "#1"}], "-",
RowBox[{"8", " ",
SuperscriptBox["#1", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["#1", "3"]}], "+",
SuperscriptBox["#1", "4"]}], "&"}], ",", "2"}], "]"}],
Short[#, 7]& ], 2.8103323355080376`},
"NumericalApproximation"],
Root[7 - 18 # - 8 #^2 + 2 #^3 + #^4& , 2, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"3.76\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
3.76055513819522824192631560435984283686`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "13"}], "-",
RowBox[{"10", " ", "#1"}], "+",
RowBox[{"12", " ",
SuperscriptBox["#1", "2"]}], "-",
RowBox[{"6", " ",
SuperscriptBox["#1", "3"]}], "+",
SuperscriptBox["#1", "4"]}], "&"}], ",", "2"}], "]"}],
Short[#, 7]& ], 3.7605551381952282`},
"NumericalApproximation"],
Root[-13 - 10 # + 12 #^2 - 6 #^3 + #^4& , 2, 0]], ",",
InterpretationBox[
TemplateBox[{"Root",
InterpretationBox[
StyleBox[
TemplateBox[{"\"1.62\"",
DynamicBox[
FEPrivate`FrontEndResource[
"FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
ShowStringCharacters -> False],
1.61961181780922114370468989363871514797`15.954589770191003, Editable ->
False],
TagBox[
RowBox[{"Root", "[",
RowBox[{
RowBox[{
RowBox[{"1", "-", "#1", "+",
SuperscriptBox["#1", "4"], "+",
SuperscriptBox["#1", "5"], "-",
SuperscriptBox["#1", "6"], "-",
SuperscriptBox["#1", "10"], "-",
SuperscriptBox["#1", "12"], "-",
RowBox[{"2", " ",
SuperscriptBox["#1", "13"]}], "+",
SuperscriptBox["#1", "15"], "-",
SuperscriptBox["#1", "19"], "-",
SuperscriptBox["#1", "20"], "-",
SuperscriptBox["#1", "22"], "+",
SuperscriptBox["#1", "23"]}], "&"}], ",", "3"}], "]"}],
Short[#, 7]& ], 1.6196118178092211`},
"NumericalApproximation"],
Root[1 - # + #^4 + #^5 - #^6 - #^10 - #^12 -
2 #^13 + #^15 - #^19 - #^20 - #^22 + #^23& , 3, 0]]}], "}"}]], "Output",
CellChangeTimes->{3.8321527047525*^9},
CellLabel->"Out[25]=",ExpressionUUID->"2c6febbb-969d-4aa1-910e-a28aa615777a"]
}, Open ]]
},
WindowSize->{1440, 847},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"fc3224b1-0b49-402a-9b0e-fb170466e128"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 10100, 243, 827, "Input",ExpressionUUID->"20dce438-8cdc-474f-858e-036756ff41fd"],
Cell[10683, 267, 4345, 90, 98, "Output",ExpressionUUID->"2bacacb9-fa82-4024-bfa5-01abed5e7a1e"],
Cell[15031, 359, 2406, 54, 56, "Output",ExpressionUUID->"f871aabb-d6d6-428d-84d7-e863e0783e4b"],
Cell[17440, 415, 902, 24, 34, "Output",ExpressionUUID->"099da394-2626-4330-b9e5-3ad8a130e4dd"],
Cell[18345, 441, 1116, 21, 56, "Output",ExpressionUUID->"cd9b271e-3740-4444-b6d8-c95c813908f3"]
}, Open ]],
Cell[19476, 465, 404, 9, 30, "Input",ExpressionUUID->"59acae29-7797-4b97-a80b-1f3c2530857e"],
Cell[CellGroupData[{
Cell[19905, 478, 693, 13, 73, InheritFromParent,ExpressionUUID->"bb5d4c93-fb5c-4648-883a-02f121fe5328"],
Cell[20601, 493, 18391, 473, 42, "Output",ExpressionUUID->"2c6febbb-969d-4aa1-910e-a28aa615777a"]
}, Open ]]
}
]
*)
(* End of internal cache information *)
Reference in a new issue Copy permalink