Add files via upload
This commit is contained in:
dylantorrance
GitHub
parent
1fb574f1b3
commit
f856a065be
4 changed files with 6284 additions and 0 deletions
640
7v8f1.nb
Normal file
640
7v8f1.nb
Normal file
|
|
@ -0,0 +1,640 @@
|
|||
(* 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[ 23173, 632]
|
||||
NotebookOptionsPosition[ 22502, 613]
|
||||
NotebookOutlinePosition[ 22893, 629]
|
||||
CellTagsIndexPosition[ 22850, 626]
|
||||
WindowFrame->Normal*)
|
||||
|
||||
(* Beginning of Notebook Content *)
|
||||
Notebook[{
|
||||
|
||||
Cell[CellGroupData[{
|
||||
Cell[BoxData[{
|
||||
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[{
|
||||
RowBox[{"NSolve", "[",
|
||||
RowBox[{
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "2"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "4"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "5"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "6"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "9"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "10"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "3"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "5"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "6"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "7"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "8"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "9"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"3", ",", "5"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"3", ",", "7"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"3", ",", "8"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"4", ",", "5"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"4", ",", "10"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"4", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"5", ",", "6"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"5", ",", "7"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"5", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"6", ",", "7"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"6", ",", "9"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"6", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"7", ",", "8"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"9", ",", "10"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"10", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"a1", ">", "0"}], "&&",
|
||||
RowBox[{"a11", ">", "0"}], "&&",
|
||||
RowBox[{"a12", ">", "0"}]}], "]"}],
|
||||
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
||||
RowBox[{"Solve", "[",
|
||||
RowBox[{
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "2"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "4"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "5"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "6"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "9"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "10"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"1", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "3"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "5"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "6"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "7"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "8"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"2", ",", "9"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"3", ",", "5"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"3", ",", "7"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"3", ",", "8"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"4", ",", "5"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"4", ",", "10"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"4", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"5", ",", "6"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"5", ",", "7"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"5", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"6", ",", "7"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"6", ",", "9"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"6", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"7", ",", "8"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"9", ",", "10"}], "]"}], "&&",
|
||||
RowBox[{"bil", "[",
|
||||
RowBox[{"10", ",", "11"}], "]"}], "&&",
|
||||
RowBox[{"a1", ">", "0"}], "&&",
|
||||
RowBox[{"a11", ">", "0"}], "&&",
|
||||
RowBox[{"a12", ">", "0"}]}], "]"}], "\[IndentingNewLine]",
|
||||
RowBox[{"matzeros", " ", "=", " ",
|
||||
TagBox[
|
||||
RowBox[{"(", "\[NoBreak]", GridBox[{
|
||||
{"\[Placeholder]", "1", "\[Placeholder]", "1", "1", "0",
|
||||
"\[Placeholder]", "\[Placeholder]", "0", "0", "0"},
|
||||
{"1", "\[Placeholder]", "1", "\[Placeholder]", "1", "0", "0", "0", "0",
|
||||
"\[Placeholder]", "\[Placeholder]"},
|
||||
{"\[Placeholder]", "1", "\[Placeholder]", "\[Placeholder]", "1",
|
||||
"\[Placeholder]", "0", "0", "\[Placeholder]", "\[Placeholder]",
|
||||
"\[Placeholder]"},
|
||||
{"1", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "1",
|
||||
"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]",
|
||||
"0", "0"},
|
||||
{"1", "1", "1", "1", "\[Placeholder]", "0", "0", "\[Placeholder]",
|
||||
"\[Placeholder]", "\[Placeholder]", "0"},
|
||||
{"0", "0", "\[Placeholder]", "\[Placeholder]", "0", "\[Placeholder]",
|
||||
"1", "\[Placeholder]", "1", "\[Placeholder]", "1"},
|
||||
{"\[Placeholder]", "0", "0", "\[Placeholder]", "0", "1",
|
||||
"\[Placeholder]", "1", "\[Placeholder]", "\[Placeholder]",
|
||||
"\[Placeholder]"},
|
||||
{"\[Placeholder]", "0", "0", "\[Placeholder]", "\[Placeholder]",
|
||||
"\[Placeholder]", "1", "\[Placeholder]", "\[Placeholder]",
|
||||
"\[Placeholder]", "\[Placeholder]"},
|
||||
{"0", "0", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "1",
|
||||
"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "1",
|
||||
"\[Placeholder]"},
|
||||
{"0", "\[Placeholder]", "\[Placeholder]", "0", "\[Placeholder]",
|
||||
"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "1",
|
||||
"\[Placeholder]", "1"},
|
||||
{"0", "\[Placeholder]", "\[Placeholder]", "0", "0", "1",
|
||||
"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "1",
|
||||
"\[Placeholder]"}
|
||||
},
|
||||
GridBoxAlignment->{
|
||||
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
|
||||
"RowsIndexed" -> {}},
|
||||
GridBoxSpacings->{"Columns" -> {
|
||||
Offset[0.27999999999999997`], {
|
||||
Offset[0.7]},
|
||||
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
|
||||
Offset[0.2], {
|
||||
Offset[0.4]},
|
||||
Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
|
||||
Function[BoxForm`e$,
|
||||
MatrixForm[BoxForm`e$]]]}], "\[IndentingNewLine]",
|
||||
RowBox[{"vars", " ", "=",
|
||||
TagBox[
|
||||
RowBox[{"(", "\[NoBreak]", GridBox[{
|
||||
{"a1", "1", "a15"},
|
||||
{"1", "1", "a16"},
|
||||
{"1", "a9", "0"},
|
||||
{"a2", "1", "0"},
|
||||
{"a3", "a10", "0"},
|
||||
{"a4", "a11", "a17"},
|
||||
{"a5", "a12", "1"},
|
||||
{"0", "a13", "1"},
|
||||
{"a6", "0", "a18"},
|
||||
{"a7", "0", "1"},
|
||||
{"a8", "a14", "1"}
|
||||
},
|
||||
GridBoxAlignment->{
|
||||
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
|
||||
"RowsIndexed" -> {}},
|
||||
GridBoxSpacings->{"Columns" -> {
|
||||
Offset[0.27999999999999997`], {
|
||||
Offset[0.7]},
|
||||
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
|
||||
Offset[0.2], {
|
||||
Offset[0.4]},
|
||||
Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
|
||||
Function[BoxForm`e$,
|
||||
MatrixForm[BoxForm`e$]]]}], "\[IndentingNewLine]",
|
||||
RowBox[{"MatrixForm", "[",
|
||||
TagBox[
|
||||
RowBox[{"(", "\[NoBreak]", GridBox[{
|
||||
{
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"1", "-",
|
||||
RowBox[{"5", " ", "#1"}], "-",
|
||||
RowBox[{"7", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], "1",
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"2", "-",
|
||||
RowBox[{"4", " ", "#1"}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}]},
|
||||
{"1", "1",
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"-", "8"}], "-",
|
||||
RowBox[{"4", " ", "#1"}], "+",
|
||||
RowBox[{"6", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}]},
|
||||
{"1",
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"23", "+",
|
||||
RowBox[{"19", " ", "#1"}], "-",
|
||||
RowBox[{"11", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], "0"},
|
||||
{
|
||||
RowBox[{"-", "1"}], "1", "0"},
|
||||
{"1",
|
||||
RowBox[{"-", "1"}], "0"},
|
||||
{
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"1", "+",
|
||||
RowBox[{"19", " ", "#1"}], "-",
|
||||
RowBox[{"13", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], "1", "0"},
|
||||
{
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"23", "+",
|
||||
RowBox[{"19", " ", "#1"}], "-",
|
||||
RowBox[{"11", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}],
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"-", "31"}], "+",
|
||||
RowBox[{"67", " ", "#1"}], "-",
|
||||
RowBox[{"29", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], "0"},
|
||||
{
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"-", "4"}], "+",
|
||||
RowBox[{"12", " ", "#1"}], "-",
|
||||
RowBox[{"8", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}],
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"32", "-",
|
||||
RowBox[{"8", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}],
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"5", "+",
|
||||
RowBox[{"3", " ", "#1"}], "-",
|
||||
RowBox[{"5", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}]},
|
||||
{
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"-", "8"}], "-",
|
||||
RowBox[{"12", " ", "#1"}], "+",
|
||||
RowBox[{"2", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}],
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"32", "-",
|
||||
RowBox[{"64", " ", "#1"}], "+",
|
||||
RowBox[{"12", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], "1"},
|
||||
{"0",
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"-", "8"}], "-",
|
||||
RowBox[{"12", " ", "#1"}], "+",
|
||||
RowBox[{"2", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], "1"},
|
||||
{"0", "0", "1"},
|
||||
{
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"-", "4"}], "-",
|
||||
RowBox[{"8", " ", "#1"}], "-",
|
||||
RowBox[{"2", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], "0",
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"5", "+",
|
||||
RowBox[{"3", " ", "#1"}], "-",
|
||||
RowBox[{"5", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}]},
|
||||
{
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"8", "-",
|
||||
RowBox[{"4", " ", "#1"}], "-",
|
||||
RowBox[{"10", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], "0", "1"},
|
||||
{
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"-", "32"}], "+",
|
||||
RowBox[{"48", " ", "#1"}], "-",
|
||||
RowBox[{"16", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}],
|
||||
RowBox[{"Root", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"32", "-",
|
||||
RowBox[{"8", " ",
|
||||
SuperscriptBox["#1", "2"]}], "+",
|
||||
SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], "1"},
|
||||
{"0", "0",
|
||||
RowBox[{"-", "1"}]}
|
||||
},
|
||||
GridBoxAlignment->{
|
||||
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
|
||||
"RowsIndexed" -> {}},
|
||||
GridBoxSpacings->{"Columns" -> {
|
||||
Offset[0.27999999999999997`], {
|
||||
Offset[0.7]},
|
||||
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
|
||||
Offset[0.2], {
|
||||
Offset[0.4]},
|
||||
Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
|
||||
Function[BoxForm`e$,
|
||||
MatrixForm[BoxForm`e$]]], "]"}]}], "Input",
|
||||
CellChangeTimes->{{3.8320755296452913`*^9, 3.832075533049665*^9},
|
||||
3.832075917191489*^9, {3.832075957182329*^9, 3.832075957556839*^9}, {
|
||||
3.832076356936453*^9, 3.832076364105147*^9}, {3.8320766712965517`*^9,
|
||||
3.8320766772817507`*^9}, {3.832076763127453*^9, 3.8320768169168787`*^9}, {
|
||||
3.832077551745839*^9, 3.832077689854657*^9}, {3.832077751960526*^9,
|
||||
3.832078043266715*^9}, {3.8320782472439737`*^9, 3.832078257104299*^9}, {
|
||||
3.832078290717417*^9, 3.832078402685297*^9}, {3.832078445115466*^9,
|
||||
3.8320784954449987`*^9}, {3.832078850354298*^9, 3.832078916491396*^9}, {
|
||||
3.832078985636363*^9, 3.8320791095876703`*^9}, {3.832079196080068*^9,
|
||||
3.832079222279956*^9}, {3.8320794000835953`*^9, 3.832079408474498*^9}, {
|
||||
3.832079442403521*^9, 3.8320794635713997`*^9}},
|
||||
CellLabel->"In[66]:=",ExpressionUUID->"feadb8ac-6efa-48d8-85ae-3d5def9c0bd4"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"{",
|
||||
RowBox[{"{",
|
||||
RowBox[{
|
||||
RowBox[{"a1", "\[Rule]", "7.637519478750682`"}], ",",
|
||||
RowBox[{"a10", "\[Rule]", "1.8509690495304543`"}], ",",
|
||||
RowBox[{"a11", "\[Rule]", "2.387873132949264`"}], ",",
|
||||
RowBox[{"a12", "\[Rule]", "3.5369040834187953`"}], ",",
|
||||
RowBox[{"a13", "\[Rule]", "2.9623886081840296`"}], ",",
|
||||
RowBox[{"a14", "\[Rule]", "2.387873132949264`"}], ",",
|
||||
RowBox[{"a15", "\[Rule]", "1.6751308705666448`"}], ",",
|
||||
RowBox[{"a16", "\[Rule]", "1.350261741133286`"}], ",",
|
||||
RowBox[{"a17", "\[Rule]", "1.8060634335253696`"}], ",",
|
||||
RowBox[{"a18", "\[Rule]", "1.8060634335253696`"}], ",",
|
||||
RowBox[{"a2", "\[Rule]", "11.312650349317327`"}], ",",
|
||||
RowBox[{"a3", "\[Rule]", "3.387873132949261`"}], ",",
|
||||
RowBox[{"a4", "\[Rule]", "6.156325174658665`"}], ",",
|
||||
RowBox[{"a5", "\[Rule]", "2.9623886081840296`"}], ",",
|
||||
RowBox[{"a6", "\[Rule]", "4.156325174658662`"}], ",",
|
||||
RowBox[{"a7", "\[Rule]", "10.312650349317328`"}], ",",
|
||||
RowBox[{"a8", "\[Rule]", "12.31265034931733`"}], ",",
|
||||
RowBox[{"a9", "\[Rule]", "3.387873132949261`"}]}], "}"}], "}"}]], "Output",\
|
||||
|
||||
CellChangeTimes->{
|
||||
3.832075984860526*^9, 3.832076756346835*^9, {3.832079116126001*^9,
|
||||
3.832079122378861*^9}, 3.8320794108572807`*^9, 3.83207946592073*^9},
|
||||
CellLabel->"Out[67]=",ExpressionUUID->"3573540e-d1df-4324-a3a4-3eafc2074fe6"]
|
||||
}, Open ]],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"MatrixForm", "[",
|
||||
RowBox[{
|
||||
TagBox[
|
||||
RowBox[{"(", "\[NoBreak]", GridBox[{
|
||||
{"a1", "1", "a15"},
|
||||
{"1", "1", "a16"},
|
||||
{"1", "a9", "0"},
|
||||
{"a2", "1", "0"},
|
||||
{"a3", "a10", "0"},
|
||||
{"a4", "a11", "a17"},
|
||||
{"a5", "a12", "1"},
|
||||
{"0", "a13", "1"},
|
||||
{"a6", "0", "a18"},
|
||||
{"a7", "0", "1"},
|
||||
{"a8", "a14", "1"}
|
||||
},
|
||||
GridBoxAlignment->{
|
||||
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
|
||||
"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
|
||||
GridBoxSpacings->{"Columns" -> {
|
||||
Offset[0.27999999999999997`], {
|
||||
Offset[0.7]},
|
||||
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
|
||||
Offset[0.2], {
|
||||
Offset[0.4]},
|
||||
Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
|
||||
Function[BoxForm`e$,
|
||||
MatrixForm[BoxForm`e$]]], "/.",
|
||||
RowBox[{"{",
|
||||
RowBox[{
|
||||
RowBox[{"a1", "\[Rule]", "7.637519478750682`"}], ",",
|
||||
RowBox[{"a10", "\[Rule]", "1.8509690495304543`"}], ",",
|
||||
RowBox[{"a11", "\[Rule]", "2.387873132949264`"}], ",",
|
||||
RowBox[{"a12", "\[Rule]", "3.5369040834187953`"}], ",",
|
||||
RowBox[{"a13", "\[Rule]", "2.9623886081840296`"}], ",",
|
||||
RowBox[{"a14", "\[Rule]", "2.387873132949264`"}], ",",
|
||||
RowBox[{"a15", "\[Rule]", "1.6751308705666448`"}], ",",
|
||||
RowBox[{"a16", "\[Rule]", "1.350261741133286`"}], ",",
|
||||
RowBox[{"a17", "\[Rule]", "1.8060634335253696`"}], ",",
|
||||
RowBox[{"a18", "\[Rule]", "1.8060634335253696`"}], ",",
|
||||
RowBox[{"a2", "\[Rule]", "11.312650349317327`"}], ",",
|
||||
RowBox[{"a3", "\[Rule]", "3.387873132949261`"}], ",",
|
||||
RowBox[{"a4", "\[Rule]", "6.156325174658665`"}], ",",
|
||||
RowBox[{"a5", "\[Rule]", "2.9623886081840296`"}], ",",
|
||||
RowBox[{"a6", "\[Rule]", "4.156325174658662`"}], ",",
|
||||
RowBox[{"a7", "\[Rule]", "10.312650349317328`"}], ",",
|
||||
RowBox[{"a8", "\[Rule]", "12.31265034931733`"}], ",",
|
||||
RowBox[{"a9", "\[Rule]", "3.387873132949261`"}]}], "}"}]}],
|
||||
"]"}]], "Input",
|
||||
CellChangeTimes->{{3.8320792380626707`*^9, 3.8320792671482487`*^9}, {
|
||||
3.8320793085365543`*^9, 3.832079334976665*^9}, 3.8320794235879393`*^9},
|
||||
CellLabel->"In[60]:=",ExpressionUUID->"fded3599-e17c-46f1-b2bb-352a088274cf"],
|
||||
|
||||
Cell[BoxData[
|
||||
TagBox[
|
||||
RowBox[{"(", "\[NoBreak]", GridBox[{
|
||||
{"7.637519478750682`", "1", "1.6751308705666448`"},
|
||||
{"1", "1", "1.350261741133286`"},
|
||||
{"1", "3.387873132949261`", "0"},
|
||||
{"11.312650349317327`", "1", "0"},
|
||||
{"3.387873132949261`", "1.8509690495304543`", "0"},
|
||||
{"6.156325174658665`", "2.387873132949264`", "1.8060634335253696`"},
|
||||
{"2.9623886081840296`", "3.5369040834187953`", "1"},
|
||||
{"0", "2.9623886081840296`", "1"},
|
||||
{"4.156325174658662`", "0", "1.8060634335253696`"},
|
||||
{"10.312650349317328`", "0", "1"},
|
||||
{"12.31265034931733`", "2.387873132949264`", "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$]]]], "Input",
|
||||
CellChangeTimes->{3.832079427766121*^9},
|
||||
CellLabel->
|
||||
"Out[60]//MatrixForm=",ExpressionUUID->"dc2615a4-cad1-4194-8b2a-\
|
||||
5b697a27bf53"]
|
||||
},
|
||||
WindowSize->{1436, 747},
|
||||
WindowMargins->{{Automatic, 0}, {Automatic, 4}},
|
||||
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
|
||||
StyleDefinitions->"Default.nb",
|
||||
ExpressionUUID->"81c78ba0-1b38-41e3-961c-299c1b78bfc3"
|
||||
]
|
||||
(* End of Notebook Content *)
|
||||
|
||||
(* Internal cache information *)
|
||||
(*CellTagsOutline
|
||||
CellTagsIndex->{}
|
||||
*)
|
||||
(*CellTagsIndex
|
||||
CellTagsIndex->{}
|
||||
*)
|
||||
(*NotebookFileOutline
|
||||
Notebook[{
|
||||
Cell[CellGroupData[{
|
||||
Cell[580, 22, 17069, 476, 1005, "Input",ExpressionUUID->"feadb8ac-6efa-48d8-85ae-3d5def9c0bd4"],
|
||||
Cell[17652, 500, 1400, 26, 56, "Output",ExpressionUUID->"3573540e-d1df-4324-a3a4-3eafc2074fe6"]
|
||||
}, Open ]],
|
||||
Cell[19067, 529, 2286, 52, 281, "Input",ExpressionUUID->"fded3599-e17c-46f1-b2bb-352a088274cf"],
|
||||
Cell[21356, 583, 1142, 28, 220, "Input",ExpressionUUID->"dc2615a4-cad1-4194-8b2a-5b697a27bf53"]
|
||||
}
|
||||
]
|
||||
*)
|
||||
|
||||
Loading…
Reference in a new issue