(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 275711, 6582] NotebookOptionsPosition[ 253835, 6035] NotebookOutlinePosition[ 254176, 6050] CellTagsIndexPosition[ 254133, 6047] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"LineGaussRuleInfo", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"rule_", ",", " ", "numer_"}], " ", "}"}], ",", " ", "point_"}], " ", "]"}], " ", ":=", " ", RowBox[{"Module", " ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"g2", " ", "=", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "/", RowBox[{"Sqrt", "[", "3", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"w3", "=", RowBox[{"{", RowBox[{ RowBox[{"5", "/", "9"}], ",", RowBox[{"8", "/", "9"}], ",", RowBox[{"5", "/", "9"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"g3", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"3", "/", "5"}], "]"}]}], ",", "0", ",", RowBox[{"Sqrt", "[", RowBox[{"3", "/", "5"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"w4", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "-", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"5", "/", "6"}], "]"}], "/", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "+", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"5", "/", "6"}], "]"}], "/", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "+", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"5", "/", "6"}], "]"}], "/", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "-", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"5", "/", "6"}], "]"}], "/", "6"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"g4", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"6", "/", "5"}], "]"}]}]}], ")"}], "/", "7"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"6", "/", "5"}], "]"}]}]}], ")"}], "/", "7"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"6", "/", "5"}], "]"}]}]}], ")"}], "/", "7"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"6", "/", "5"}], "]"}]}]}], ")"}], "/", "7"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"g5", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"5", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"10", "/", "7"}], "]"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"5", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"10", "/", "7"}], "]"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{"5", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"10", "/", "7"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{"5", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"10", "/", "7"}], "]"}]}]}], "]"}]}], "}"}], "/", "3"}]}], ",", "\[IndentingNewLine]", RowBox[{"w5", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"322", "-", RowBox[{"13", "*", RowBox[{"Sqrt", "[", "70", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"322", "+", RowBox[{"13", "*", RowBox[{"Sqrt", "[", "70", "]"}]}]}], ",", "\[IndentingNewLine]", "512", ",", "\[IndentingNewLine]", RowBox[{"322", "+", RowBox[{"13", "*", RowBox[{"Sqrt", "[", "70", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"322", "-", RowBox[{"13", "*", RowBox[{"Sqrt", "[", "70", "]"}]}]}]}], "}"}], "/", "900"}]}], ",", "\[IndentingNewLine]", RowBox[{"i", "=", "point"}], ",", RowBox[{"p", "=", "rule"}], ",", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{"Null", ",", "0"}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "1"}], ",", RowBox[{"info", " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "2"}], ",", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"g2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "1"}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "3"}], ",", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"g3", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"w3", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "4"}], ",", " ", RowBox[{"info", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"g4", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"w4", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "5"}], ",", " ", RowBox[{"info", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"g5", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"w5", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{"numer", ",", " ", RowBox[{"Return", " ", "[", " ", RowBox[{"N", "[", RowBox[{"info", ",", "20"}], "]"}], "]"}], ",", " ", RowBox[{"Return", " ", "[", " ", RowBox[{"Simplify", "[", "info", "]"}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input",\ CellChangeTimes->{{3.417537333136281*^9, 3.417537880845438*^9}, 3.447753700809819*^9, {3.4477540421644297`*^9, 3.447754042708858*^9}, { 3.447754205711628*^9, 3.44775420603259*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"HexaGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule_", ",", "numer_"}], "}"}], ",", "point_"}], "]"}], " ", ":=", " ", RowBox[{"Module", " ", "[", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "h", ",", "m", ",", "p1", ",", "p2", ",", "p3", ",", "p12", ",", "i", ",", "j", ",", "jj", ",", "k", ",", "mm", ",", "w1", ",", "w2", ",", "w3", ",", "\n", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Null", ",", "Null", ",", "Null"}], "}"}], ",", "0"}], "}"}]}]}], "}"}], ",", "\n", " ", RowBox[{ RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{ RowBox[{"Length", "[", "rule", "]"}], " ", "==", " ", "3"}], ",", " ", RowBox[{ RowBox[{"{", RowBox[{"p1", ",", "p2", ",", "p3"}], "}"}], " ", "=", " ", "rule"}], ",", " ", RowBox[{"p1", "=", RowBox[{"p2", "=", RowBox[{"p3", "=", "rule"}]}]}]}], "]"}], ";", "\n", " ", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{ RowBox[{"Length", "[", "point", "]"}], " ", "==", " ", "3"}], ",", " ", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "k"}], "}"}], "=", "point"}], ",", " ", RowBox[{ RowBox[{"mm", "=", " ", "point"}], ";", "\n", " ", RowBox[{"p12", "=", RowBox[{"p1", "*", "p2"}]}], ";", " ", RowBox[{"k", "=", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"mm", "-", "1"}], ")"}], "/", "p12"}], "]"}], "+", "1"}]}], ";", " ", RowBox[{"jj", "=", RowBox[{"mm", "-", RowBox[{"p12", "*", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]}]}], ";", "\n", " ", RowBox[{"j", "=", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", "p1"}], "]"}], "+", "1"}]}], ";", " ", RowBox[{"i", "=", RowBox[{"jj", "-", RowBox[{"p1", "*", RowBox[{"(", RowBox[{"j", "-", "1"}], ")"}]}]}]}]}]}], "]"}], ";", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "w1"}], "}"}], " ", "=", " ", RowBox[{"LineGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"p1", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "w2"}], "}"}], " ", "=", " ", RowBox[{"LineGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"p2", ",", "numer"}], "}"}], ",", "j"}], "]"}]}], ";", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "w3"}], "}"}], " ", "=", " ", RowBox[{"LineGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"p3", ",", "numer"}], "}"}], ",", "k"}], "]"}]}], ";", "\n", " ", RowBox[{"info", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "h", ",", "m"}], "}"}], ",", RowBox[{"w1", "*", "w2", "*", "w3"}]}], "}"}]}], ";", "\n", " ", RowBox[{"If", " ", "[", " ", RowBox[{"numer", ",", " ", RowBox[{"Return", "[", RowBox[{"N", "[", RowBox[{"info", ",", "20"}], "]"}], "]"}], ",", " ", RowBox[{"Return", "[", RowBox[{"Simplify", "[", "info", "]"}], "]"}]}], "]"}], ";"}]}], "\n", "]"}]}], ";"}], "\n"}]], "Input", CellChangeTimes->{{3.447769839144136*^9, 3.447769852575042*^9}, 3.447769958909247*^9, {3.447770038365614*^9, 3.447770065731346*^9}, { 3.447770147251655*^9, 3.44777017812186*^9}, {3.447770272948657*^9, 3.447770280455694*^9}, {3.447770311565734*^9, 3.4477703190844383`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< Mathematica version\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< Test the quadrature rules for a unit hexahedron,\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< returned as {{x,y,z},w} = HexaGaussRuleInfo[{rule,numer},i]\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< INPUT:\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< RULE is 1, 2, 3, 4, 5, the order in both dimensions,\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< or RULE = { order1, order2, order3 }, allowing the user to\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< specify different orders in each dimension.\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< NUMER is True to return numerical values for the output, or\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< False to return symbolic values.\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< I is the index, between 1 and RULE*RULE*RULE, of the point.\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< The index can also be specified as {I,J,K}.\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< OUTPUT:\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< {X,Y,Z} are the coordinates of the abscissas,\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< For the unit hexahedron, -1 <= X, Y, Z <= 1.\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< W is the weight of the quadrature point.\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< The following cells print out each rule, and the sum\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< of the weights.\>\"", "]"}]}], "Input", CellChangeTimes->{{3.413820383448031*^9, 3.413820964218034*^9}, { 3.4138210017963247`*^9, 3.413821002539048*^9}, {3.447764076349494*^9, 3.4477641163346148`*^9}, {3.447764149127795*^9, 3.4477643226290693`*^9}, { 3.447764493951338*^9, 3.447764538866349*^9}, {3.447767802666604*^9, 3.4477678328120327`*^9}, {3.44776789969915*^9, 3.4477680299511414`*^9}, { 3.44776935704628*^9, 3.447769422640592*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447769461292932*^9}], Cell[BoxData["\<\"HexaGaussRuleInfoTest.nb\"\>"], "Print", CellChangeTimes->{3.4477694613370943`*^9}], Cell[BoxData["\<\" Mathematica version\"\>"], "Print", CellChangeTimes->{3.447769461387225*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447769461437993*^9}], Cell[BoxData["\<\" Test the quadrature rules for a unit hexahedron,\"\>"], \ "Print", CellChangeTimes->{3.447769461486368*^9}], Cell[BoxData["\<\" returned as {{x,y,z},w} = \ HexaGaussRuleInfo[{rule,numer},i]\"\>"], "Print", CellChangeTimes->{3.447769461518847*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477694615528307`*^9}], Cell[BoxData["\<\" INPUT:\"\>"], "Print", CellChangeTimes->{3.447769461585615*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477694616194267`*^9}], Cell[BoxData["\<\" RULE is 1, 2, 3, 4, 5, the order in both \ dimensions,\"\>"], "Print", CellChangeTimes->{3.4477694616533127`*^9}], Cell[BoxData["\<\" or RULE = { order1, order2, order3 }, allowing the user \ to\"\>"], "Print", CellChangeTimes->{3.447769461686028*^9}], Cell[BoxData["\<\" specify different orders in each dimension.\"\>"], "Print", CellChangeTimes->{3.4477694617188063`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447769461763936*^9}], Cell[BoxData["\<\" NUMER is True to return numerical values for the output, \ or\"\>"], "Print", CellChangeTimes->{3.447769461802758*^9}], Cell[BoxData["\<\" False to return symbolic values.\"\>"], "Print", CellChangeTimes->{3.44776946185277*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447769461903675*^9}], Cell[BoxData["\<\" I is the index, between 1 and RULE*RULE*RULE, of the \ point.\"\>"], "Print", CellChangeTimes->{3.447769461935541*^9}], Cell[BoxData["\<\" The index can also be specified as {I,J,K}.\"\>"], "Print", CellChangeTimes->{3.447769461986638*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447769462036583*^9}], Cell[BoxData["\<\" OUTPUT:\"\>"], "Print", CellChangeTimes->{3.447769462086034*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447769462118635*^9}], Cell[BoxData["\<\" {X,Y,Z} are the coordinates of the abscissas,\"\>"], \ "Print", CellChangeTimes->{3.447769462152238*^9}], Cell[BoxData["\<\" For the unit hexahedron, -1 <= X, Y, Z <= 1.\"\>"], \ "Print", CellChangeTimes->{3.447769462202834*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477694622531843`*^9}], Cell[BoxData["\<\" W is the weight of the quadrature point.\"\>"], "Print", CellChangeTimes->{3.4477694623132133`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477694623696747`*^9}], Cell[BoxData["\<\" The following cells print out each rule, and the \ sum\"\>"], "Print", CellChangeTimes->{3.447769462419621*^9}], Cell[BoxData["\<\" of the weights.\"\>"], "Print", CellChangeTimes->{3.447769462469771*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"rule", " ", "=", " ", "1"}], ",", " ", RowBox[{"rule", " ", "\[LessEqual]", " ", "5"}], ",", " ", RowBox[{"rule", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"rule", " ", "*", " ", "rule", " ", "*", " ", "rule"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"x", ",", " ", "y", ",", " ", "z"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"HexaGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"rule", " ", "*", " ", "rule", " ", "*", " ", "rule"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"x", ",", " ", "y", ",", " ", "z"}], " ", "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"HexaGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", RowBox[{ "x", ",", "\"\< \>\"", ",", " ", "y", ",", " ", "\"\< \>\"", ",", " ", "z"}], " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655056153854*^9, 3.4136550564604473`*^9}, {3.41365560416474*^9, 3.4136556090032673`*^9}, {3.4138136887636223`*^9, 3.413813699871728*^9}, { 3.414673677845633*^9, 3.4146737578261414`*^9}, {3.4146737973797894`*^9, 3.414673820186462*^9}, {3.4152015668451138`*^9, 3.4152015975359373`*^9}, { 3.447764351388976*^9, 3.4477644158263407`*^9}, {3.447764557562503*^9, 3.4477645685519657`*^9}, {3.447765023864978*^9, 3.4477650260555763`*^9}, { 3.4477680525307198`*^9, 3.4477681633083277`*^9}, {3.447768359192473*^9, 3.447768382414741*^9}, {3.447768421157832*^9, 3.4477684451256237`*^9}, { 3.4477690226994677`*^9, 3.447769065786736*^9}, {3.447769138985135*^9, 3.447769139407412*^9}, {3.4477694815568733`*^9, 3.4477695166109667`*^9}, { 3.4477695529798813`*^9, 3.447769553271381*^9}, {3.447769929780758*^9, 3.447769930047176*^9}, {3.447770335951211*^9, 3.447770336630734*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703384700193`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Hexahedron rule number \"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Hexahedron rule number ", 1], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703384747458`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703385229*^9}}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703385739193`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703386048822`*^9}}], Cell[BoxData["8.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777033863863*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "8.`19.522878745280337"}], SequenceForm["sum(w) = ", 8.`19.522878745280337], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770338672903*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703387055473`*^9}}], Cell[BoxData["\<\"X, Y, Z\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770338739058*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770338772345*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770338806304*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770338839672*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Hexahedron rule number \"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Hexahedron rule number ", 2], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703388724413`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770338909301*^9}}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770338939157*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770338967737*^9}}], Cell[BoxData["1.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339000586*^9}}], Cell[BoxData["1.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339038975*^9}}], Cell[BoxData["1.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339067651*^9}}], Cell[BoxData["1.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339101021*^9}}], Cell[BoxData["1.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703391346207`*^9}}], Cell[BoxData["1.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339172504*^9}}], Cell[BoxData["1.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703392059393`*^9}}], Cell[BoxData["1.`19.522878745280337"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339234375*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "8.`19.522878745280334"}], SequenceForm["sum(w) = ", 8.`19.522878745280334], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339272984*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339305682*^9}}], Cell[BoxData["\<\"X, Y, Z\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339339644*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703393831997`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.57735026918962576450914878050194182194`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.57735026918962576450914878050194182194`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.57735026918962576450914878050194182194`20."}]}], SequenceForm[-0.577350269189625764509`20., " ", -0.577350269189625764509`20., " ", -0.577350269189625764509`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339422802*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.57735026918962576450914878050194182194`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.57735026918962576450914878050194182194`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.57735026918962576450914878050194182194`20."}]}], SequenceForm[ 0.577350269189625764509`20., " ", -0.577350269189625764509`20., " ", -0.577350269189625764509`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339455811*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.57735026918962576450914878050194182194`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.57735026918962576450914878050194182194`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.57735026918962576450914878050194182194`20."}]}], SequenceForm[-0.577350269189625764509`20., " ", 0.577350269189625764509`20., " ", -0.577350269189625764509`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339489601*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.57735026918962576450914878050194182194`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.57735026918962576450914878050194182194`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.57735026918962576450914878050194182194`20."}]}], SequenceForm[ 0.577350269189625764509`20., " ", 0.577350269189625764509`20., " ", -0.577350269189625764509`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703395212383`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.57735026918962576450914878050194182194`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.57735026918962576450914878050194182194`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.57735026918962576450914878050194182194`20."}], SequenceForm[-0.577350269189625764509`20., " ", -0.577350269189625764509`20., " ", 0.577350269189625764509`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339555978*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.57735026918962576450914878050194182194`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.57735026918962576450914878050194182194`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.57735026918962576450914878050194182194`20."}], SequenceForm[ 0.577350269189625764509`20., " ", -0.577350269189625764509`20., " ", 0.577350269189625764509`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703395897093`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.57735026918962576450914878050194182194`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.57735026918962576450914878050194182194`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.57735026918962576450914878050194182194`20."}], SequenceForm[-0.577350269189625764509`20., " ", 0.577350269189625764509`20., " ", 0.577350269189625764509`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339622571*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.57735026918962576450914878050194182194`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.57735026918962576450914878050194182194`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.57735026918962576450914878050194182194`20."}], SequenceForm[ 0.577350269189625764509`20., " ", 0.577350269189625764509`20., " ", 0.577350269189625764509`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339654963*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339688517*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Hexahedron rule number \"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Hexahedron rule number ", 3], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339721437*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339754676*^9}}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703398057833`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703398495083`*^9}}], Cell[BoxData["0.17146776406035665294924554183813443072`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339889092*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703399227047`*^9}}], Cell[BoxData["0.17146776406035665294924554183813443072`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703399560547`*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770339988742*^9}}], Cell[BoxData["0.43895747599451303155006858710562414266`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340021081*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340054841*^9}}], Cell[BoxData["0.17146776406035665294924554183813443072`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034008884*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703401392193`*^9}}], Cell[BoxData["0.17146776406035665294924554183813443072`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340170869*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340204674*^9}}], Cell[BoxData["0.43895747599451303155006858710562414266`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703402376204`*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340271804*^9}}], Cell[BoxData["0.43895747599451303155006858710562414266`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340315343*^9}}], Cell[BoxData["0.70233196159122085048010973936899862826`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340355755*^9}}], Cell[BoxData["0.43895747599451303155006858710562414266`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340387478*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340421392*^9}}], Cell[BoxData["0.43895747599451303155006858710562414266`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340454664*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340487521*^9}}], Cell[BoxData["0.17146776406035665294924554183813443072`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703405391073`*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703405715523`*^9}}], Cell[BoxData["0.17146776406035665294924554183813443072`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340604154*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340637539*^9}}], Cell[BoxData["0.43895747599451303155006858710562414266`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340671389*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340705724*^9}}], Cell[BoxData["0.17146776406035665294924554183813443072`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340739209*^9}}], Cell[BoxData["0.27434842249657064471879286694101508916`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034077218*^9}}], Cell[BoxData["0.17146776406035665294924554183813443072`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340831945*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "7.99999999999999999999999999987`19.52287874528034"}], SequenceForm["sum(w) = ", 8.`19.52287874528034], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703408727016`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703409056807`*^9}}], Cell[BoxData["\<\"X, Y, Z\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340938933*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770340972048*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[-0.774596669241483377036`20., " ", -0.774596669241483377036`20., " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341006299*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[ 0, " ", -0.774596669241483377036`20., " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703410390577`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[ 0.774596669241483377036`20., " ", -0.774596669241483377036`20., " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341071466*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[-0.774596669241483377036`20., " ", 0, " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341105349*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[0, " ", 0, " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703411387157`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[ 0.774596669241483377036`20., " ", 0, " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703411729803`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[-0.774596669241483377036`20., " ", 0.774596669241483377036`20., " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703412051067`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[ 0, " ", 0.774596669241483377036`20., " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703412384872`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]}], SequenceForm[ 0.774596669241483377036`20., " ", 0.774596669241483377036`20., " ", -0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341289144*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.774596669241483377036`20., " ", -0.774596669241483377036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034133219*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", -0.774596669241483377036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341371861*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.774596669241483377036`20., " ", -0.774596669241483377036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703414038754`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.774596669241483377036`20., " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341438068*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341471531*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0.774596669241483377036`20., " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341504938*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.774596669241483377036`20., " ", 0.774596669241483377036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703415555153`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", 0.774596669241483377036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703416057796`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.774596669241483377036`20., " ", 0.774596669241483377036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703416552277`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[-0.774596669241483377036`20., " ", -0.774596669241483377036`20., " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341705236*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[ 0, " ", -0.774596669241483377036`20., " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703417553177`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[ 0.774596669241483377036`20., " ", -0.774596669241483377036`20., " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341805759*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[-0.774596669241483377036`20., " ", 0, " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703418631563`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[0, " ", 0, " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341905838*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[ 0.774596669241483377036`20., " ", 0, " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770341954791*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[-0.774596669241483377036`20., " ", 0.774596669241483377036`20., " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034200492*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[ 0, " ", 0.774596669241483377036`20., " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703420554743`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.77459666924148337703585307995647992217`20."}], SequenceForm[ 0.774596669241483377036`20., " ", 0.774596669241483377036`20., " ", 0.774596669241483377036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342105241*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034215484*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Hexahedron rule number \"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Hexahedron rule number ", 4], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342205311*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342255698*^9}}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703423049507`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342362564*^9}}], Cell[BoxData["0.04209147749053145454306333111145324541`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342405012*^9}}], Cell[BoxData["0.07891151579507055097814876625869430998`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034245533*^9}}], Cell[BoxData["0.07891151579507055097814876625869430998`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342505762*^9}}], Cell[BoxData["0.04209147749053145454306333111145324541`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342554566*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342604741*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342654977*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034270507*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342755146*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342805331*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703428461113`*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703428884478`*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342938443*^9}}], Cell[BoxData["0.04209147749053145454306333111145324541`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770342971019*^9}}], Cell[BoxData["0.07891151579507055097814876625869430998`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034300412*^9}}], Cell[BoxData["0.07891151579507055097814876625869430998`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343037081*^9}}], Cell[BoxData["0.04209147749053145454306333111145324541`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343071142*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343104375*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034313798*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343171515*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703432052603`*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343238894*^9}}], Cell[BoxData["0.27735296695391298990138111333299119904`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703432715*^9}}], Cell[BoxData["0.27735296695391298990138111333299119904`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343313436*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343355155*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034338826*^9}}], Cell[BoxData["0.27735296695391298990138111333299119904`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343421947*^9}}], Cell[BoxData["0.27735296695391298990138111333299119904`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343454611*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703434877157`*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703435216227`*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343555291*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343587935*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703436216507`*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034365479*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343688484*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703437211113`*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343754731*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343796973*^9}}], Cell[BoxData["0.27735296695391298990138111333299119904`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343837962*^9}}], Cell[BoxData["0.27735296695391298990138111333299119904`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343870083*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343904698*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703439379797`*^9}}], Cell[BoxData["0.27735296695391298990138111333299119904`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770343971058*^9}}], Cell[BoxData["0.27735296695391298990138111333299119904`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703440049887`*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703440386744`*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034407192*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344105212*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344138317*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344171698*^9}}], Cell[BoxData["0.04209147749053145454306333111145324541`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703442045403`*^9}}], Cell[BoxData["0.07891151579507055097814876625869430998`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703442380753`*^9}}], Cell[BoxData["0.07891151579507055097814876625869430998`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344279937*^9}}], Cell[BoxData["0.04209147749053145454306333111145324541`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703443209553`*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344354807*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034438822*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034442124*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344455056*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034448853*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034452201*^9}}], Cell[BoxData["0.14794033605678130087370308559315754188`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344554718*^9}}], Cell[BoxData["0.07891151579507055097814876625869430997`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344588222*^9}}], Cell[BoxData["0.04209147749053145454306333111145324541`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344621356*^9}}], Cell[BoxData["0.07891151579507055097814876625869430998`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344654142*^9}}], Cell[BoxData["0.07891151579507055097814876625869430998`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344687797*^9}}], Cell[BoxData["0.04209147749053145454306333111145324541`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034472086*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "7.99999999999999999999999999985`19.52287874528034"}], SequenceForm["sum(w) = ", 8.`19.52287874528034], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344763873*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344805057*^9}}], Cell[BoxData["\<\"X, Y, Z\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344838436*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344870083*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[-0.861136311594052575224`20., " ", -0.861136311594052575224`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344905115*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[-0.339981043584856264803`20., " ", -0.861136311594052575224`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344937652*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[ 0.339981043584856264803`20., " ", -0.861136311594052575224`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770344971847*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[ 0.861136311594052575224`20., " ", -0.861136311594052575224`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345005147*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[-0.861136311594052575224`20., " ", -0.339981043584856264803`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345038238*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[-0.339981043584856264803`20., " ", -0.339981043584856264803`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345071644*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[ 0.339981043584856264803`20., " ", -0.339981043584856264803`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703451036797`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[ 0.861136311594052575224`20., " ", -0.339981043584856264803`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345155116*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[-0.861136311594052575224`20., " ", 0.339981043584856264803`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345187193*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[-0.339981043584856264803`20., " ", 0.339981043584856264803`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703452289352`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[ 0.339981043584856264803`20., " ", 0.339981043584856264803`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345271945*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[ 0.861136311594052575224`20., " ", 0.339981043584856264803`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345321682*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[-0.861136311594052575224`20., " ", 0.861136311594052575224`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345371448*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[-0.339981043584856264803`20., " ", 0.861136311594052575224`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345421596*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[ 0.339981043584856264803`20., " ", 0.861136311594052575224`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703454716997`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]}], SequenceForm[ 0.861136311594052575224`20., " ", 0.861136311594052575224`20., " ", -0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703455217733`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[-0.861136311594052575224`20., " ", -0.861136311594052575224`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703455712957`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[-0.339981043584856264803`20., " ", -0.861136311594052575224`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703456218863`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[ 0.339981043584856264803`20., " ", -0.861136311594052575224`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703456709538`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[ 0.861136311594052575224`20., " ", -0.861136311594052575224`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703457289057`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[-0.861136311594052575224`20., " ", -0.339981043584856264803`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345771278*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[-0.339981043584856264803`20., " ", -0.339981043584856264803`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345822277*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[ 0.339981043584856264803`20., " ", -0.339981043584856264803`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703458711023`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[ 0.861136311594052575224`20., " ", -0.339981043584856264803`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345921475*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[-0.861136311594052575224`20., " ", 0.339981043584856264803`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770345971401*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[-0.339981043584856264803`20., " ", 0.339981043584856264803`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346021222*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[ 0.339981043584856264803`20., " ", 0.339981043584856264803`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346071501*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[ 0.861136311594052575224`20., " ", 0.339981043584856264803`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703461213713`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[-0.861136311594052575224`20., " ", 0.861136311594052575224`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346171475*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[-0.339981043584856264803`20., " ", 0.861136311594052575224`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346229515*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[ 0.339981043584856264803`20., " ", 0.861136311594052575224`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346271818*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]}], SequenceForm[ 0.861136311594052575224`20., " ", 0.861136311594052575224`20., " ", -0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346321012*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[-0.861136311594052575224`20., " ", -0.861136311594052575224`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346371191*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[-0.339981043584856264803`20., " ", -0.861136311594052575224`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346420897*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[ 0.339981043584856264803`20., " ", -0.861136311594052575224`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346471505*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[ 0.861136311594052575224`20., " ", -0.861136311594052575224`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346521091*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[-0.861136311594052575224`20., " ", -0.339981043584856264803`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346571475*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[-0.339981043584856264803`20., " ", -0.339981043584856264803`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346621162*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[ 0.339981043584856264803`20., " ", -0.339981043584856264803`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346672028*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[ 0.861136311594052575224`20., " ", -0.339981043584856264803`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703467293663`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[-0.861136311594052575224`20., " ", 0.339981043584856264803`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346771268*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[-0.339981043584856264803`20., " ", 0.339981043584856264803`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703468217297`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[ 0.339981043584856264803`20., " ", 0.339981043584856264803`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770346870998*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[ 0.861136311594052575224`20., " ", 0.339981043584856264803`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777034692142*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[-0.861136311594052575224`20., " ", 0.861136311594052575224`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703469715023`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[-0.339981043584856264803`20., " ", 0.861136311594052575224`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347020854*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[ 0.339981043584856264803`20., " ", 0.861136311594052575224`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347071143*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20."}], SequenceForm[ 0.861136311594052575224`20., " ", 0.861136311594052575224`20., " ", 0.339981043584856264803`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703471210327`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[-0.861136311594052575224`20., " ", -0.861136311594052575224`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703471710243`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[-0.339981043584856264803`20., " ", -0.861136311594052575224`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347229336*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[ 0.339981043584856264803`20., " ", -0.861136311594052575224`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347271676*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[ 0.861136311594052575224`20., " ", -0.861136311594052575224`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347320784*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[-0.861136311594052575224`20., " ", -0.339981043584856264803`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703473709803`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[-0.339981043584856264803`20., " ", -0.339981043584856264803`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347421022*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[ 0.339981043584856264803`20., " ", -0.339981043584856264803`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347471786*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[ 0.861136311594052575224`20., " ", -0.339981043584856264803`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347521164*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[-0.861136311594052575224`20., " ", 0.339981043584856264803`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347571437*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[-0.339981043584856264803`20., " ", 0.339981043584856264803`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703476211443`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[ 0.339981043584856264803`20., " ", 0.339981043584856264803`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347671185*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[ 0.861136311594052575224`20., " ", 0.339981043584856264803`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703477290277`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[-0.861136311594052575224`20., " ", 0.861136311594052575224`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703477709513`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[-0.339981043584856264803`20., " ", 0.861136311594052575224`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347820971*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.3399810435848562648026657591032446872`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[ 0.339981043584856264803`20., " ", 0.861136311594052575224`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703478708973`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.8611363115940525752239464888928095051`20."}], SequenceForm[ 0.861136311594052575224`20., " ", 0.861136311594052575224`20., " ", 0.861136311594052575224`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703479209433`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770347971259*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Hexahedron rule number \"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Hexahedron rule number ", 5], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348021022*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348070414*^9}}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703481205063`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703481705627`*^9}}], Cell[BoxData["0.01329973642063264809232173085892471424`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348229302*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348287323*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348337332*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703483879623`*^9}}], Cell[BoxData["0.01329973642063264809232173085892471424`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348437563*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703484875402`*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348537922*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348587966*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348637677*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703486876097`*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348745882*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703488041267`*^9}}], Cell[BoxData["0.07667773006934522488560399097590529228`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348853745*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348904469*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703489368668`*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770348970337*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349003951*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349036607*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349070568*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349103033*^9}}], Cell[BoxData["0.01329973642063264809232173085892471424`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349136614*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349171132*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349212266*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349253749*^9}}], Cell[BoxData["0.01329973642063264809232173085892471424`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349287384*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703493206*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349353842*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349386902*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349420497*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349454204*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703494872217`*^9}}], Cell[BoxData["0.10964684245453881967173862579402201798`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703495210037`*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703495540533`*^9}}], Cell[BoxData["0.10964684245453881967173862579402201798`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349586844*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349620225*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349653607*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703496954412`*^9}}], Cell[BoxData["0.15490078296220484370150163316675588724`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349737468*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349770817*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349803931*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349837916*^9}}], Cell[BoxData["0.10964684245453881967173862579402201798`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349870957*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349904355*^9}}], Cell[BoxData["0.10964684245453881967173862579402201798`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770349937745*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703499706306`*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350003729*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703500369043`*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350070385*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350103715*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350136915*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350178651*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350220867*^9}}], Cell[BoxData["0.07667773006934522488560399097590529228`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350254203*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350286643*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350321065*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703503536158`*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350386956*^9}}], Cell[BoxData["0.15490078296220484370150163316675588724`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350421378*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703504534283`*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350487012*^9}}], Cell[BoxData["0.07667773006934522488560399097590529228`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350519712*^9}}], Cell[BoxData["0.15490078296220484370150163316675588724`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350553776*^9}}], Cell[BoxData["0.18411210973936899862825788751714677641`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350587129*^9}}], Cell[BoxData["0.15490078296220484370150163316675588724`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703506203403`*^9}}], Cell[BoxData["0.07667773006934522488560399097590529228`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350662093*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350704247*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703507371407`*^9}}], Cell[BoxData["0.15490078296220484370150163316675588724`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350770021*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703508036947`*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350837987*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350871182*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350903783*^9}}], Cell[BoxData["0.07667773006934522488560399097590529228`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703509371977`*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770350970632*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351004056*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351037203*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351070876*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351103569*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703511449947`*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351187387*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351220705*^9}}], Cell[BoxData["0.10964684245453881967173862579402201798`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703512541027`*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703512868013`*^9}}], Cell[BoxData["0.10964684245453881967173862579402201798`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703513207693`*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351353939*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351386978*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351420458*^9}}], Cell[BoxData["0.15490078296220484370150163316675588724`19.522878745280337"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703514534817`*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351487186*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351520092*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351553121*^9}}], Cell[BoxData["0.10964684245453881967173862579402201798`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351586706*^9}}], Cell[BoxData["0.13032414106964827996829502296755947339`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351629087*^9}}], Cell[BoxData["0.10964684245453881967173862579402201798`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351670733*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351703843*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703517372704`*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351770726*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351804139*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351836617*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351870923*^9}}], Cell[BoxData["0.01329973642063264809232173085892471424`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351903119*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351936996*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770351970675*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352003757*^9}}], Cell[BoxData["0.01329973642063264809232173085892471424`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703520372868`*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352070204*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352112733*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703521539793`*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352186782*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352220489*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703522532053`*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352286978*^9}}], Cell[BoxData["0.07667773006934522488560399097590529228`19.522878745280334"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352320705*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352353629*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703523872843`*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703524204893`*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352453662*^9}}], Cell[BoxData["0.06451200000000000000000000000000066588`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352487341*^9}}], Cell[BoxData["0.05427649123462815747588245778236138202`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703525198402`*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703525539103`*^9}}], Cell[BoxData["0.01329973642063264809232173085892471424`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352594858*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352637188*^9}}], Cell[BoxData["0.03193420735284829067642376989938020949`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352670211*^9}}], Cell[BoxData["0.02686750876537184252411754221763945547`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352703751*^9}}], Cell[BoxData["0.01329973642063264809232173085892471424`19.52287874528034"], \ "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352737287*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "7.99999999999999999999999999948`19.522878745280334"}], SequenceForm["sum(w) = ", 8.`19.522878745280334], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777035277072*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703528040447`*^9}}], Cell[BoxData["\<\"X, Y, Z\"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703528372803`*^9}}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352870228*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703529034033`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352937147*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0, " ", -0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770352970615*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353003356*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703530373497`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353077668*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353120845*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0, " ", -0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353152215*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353186054*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353237499*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", 0, " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353269895*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", 0, " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353302891*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[0, " ", 0, " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353353909*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", 0, " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703534039516`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", 0, " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353453821*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353504081*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353561902*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0, " ", 0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353603489*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703536534348`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703537039537`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353753469*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353803739*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0, " ", 0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703538538723`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353903242*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", -0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770353953515*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703540042*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354062519*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0, " ", -0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354120203*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354170292*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703542204313`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354270238*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354320909*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0, " ", -0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703543705597`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354419963*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354470449*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", 0, " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354519816*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", 0, " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703545781183`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[0, " ", 0, " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354620572*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", 0, " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777035467006*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", 0, " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354720399*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703547701893`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354820696*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0, " ", 0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770354870193*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703549199743`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703549705467`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355020362*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[-0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355078396*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0, " ", 0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703551364813`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703551871758`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]}], SequenceForm[ 0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", -0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355236277*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355286564*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355337139*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", -0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355386964*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355437104*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703554871607`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355537161*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703555946207`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", -0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355636788*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355686675*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703557371473`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.906179845938663992798`20., " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355786984*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.538469310105683091036`20., " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770355837804*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703558866577`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0.538469310105683091036`20., " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703559370327`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0.906179845938663992798`20., " ", 0, " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703559867983`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356036318*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356094651*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", 0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703561361313`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703561869993`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777035623656*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703562862587`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[-0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703563368483`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[0, " ", 0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356386709*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703564362583`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0"}], SequenceForm[ 0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", 0], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356486623*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356536499*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356594474*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0, " ", -0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703566363497`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356686615*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356736671*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703567874002`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356836569*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0, " ", -0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356886301*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356936553*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770356987007*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.906179845938663992798`20., " ", 0, " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703570365057`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.538469310105683091036`20., " ", 0, " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.44777035709489*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[0, " ", 0, " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703571526623`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.538469310105683091036`20., " ", 0, " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357202978*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.906179845938663992798`20., " ", 0, " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357253525*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703573029833`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357353443*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0, " ", 0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357403636*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703574529753`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357502761*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703575531883`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[-0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357610441*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0, " ", 0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703576533947`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357703367*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20."}], SequenceForm[ 0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", 0.538469310105683091036`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357752857*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357803061*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357853253*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0, " ", -0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357902955*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.538469310105683091036`20., " ", -0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.447770357952857*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.906179845938663992798`20., " ", -0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{ 3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, { 3.447770328041901*^9, 3.4477703580027237`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358052998*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358111451*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0, " ", -0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358169775*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.538469310105683091036`20., " ", -0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.4477703582192717`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.906179845938663992798`20., " ", -0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.4477703582696047`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.906179845938663992798`20., " ", 0, " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.4477703583198433`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.538469310105683091036`20., " ", 0, " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358370152*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[0, " ", 0, " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358419058*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.538469310105683091036`20., " ", 0, " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358470067*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.906179845938663992798`20., " ", 0, " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.4477703585193157`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.4477703585698433`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358628105*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0, " ", 0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358686542*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.538469310105683091036`20., " ", 0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358735836*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.906179845938663992798`20., " ", 0.538469310105683091036`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358785872*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358836068*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[-0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358886832*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0, " ", 0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.4477703589363327`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.53846931010568309103631442070020880497`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.538469310105683091036`20., " ", 0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770358986374*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.90617984593866399279762687829939296512`20."}], SequenceForm[ 0.906179845938663992798`20., " ", 0.906179845938663992798`20., " ", 0.906179845938663992798`20.], Editable->False]], "Print", CellChangeTimes->{3.447769519940383*^9, 3.44776987374802*^9, 3.4477699787302103`*^9, 3.447770091073525*^9, 3.447770200108683*^9, 3.44777029407909*^9, 3.447770328041901*^9, 3.447770359036557*^9}] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{Automatic, 249}, {Automatic, 97}}, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 8242, 219, 478, "Input"], Cell[8813, 242, 4261, 115, 223, "Input"], Cell[CellGroupData[{ Cell[13099, 361, 3470, 85, 448, "Input"], Cell[CellGroupData[{ Cell[16594, 450, 77, 1, 20, "Print"], Cell[16674, 453, 102, 1, 20, "Print"], Cell[16779, 456, 97, 1, 20, "Print"], Cell[16879, 459, 77, 1, 20, "Print"], Cell[16959, 462, 128, 2, 20, "Print"], Cell[17090, 466, 139, 2, 20, "Print"], Cell[17232, 470, 79, 1, 20, "Print"], Cell[17314, 473, 84, 1, 20, "Print"], Cell[17401, 476, 79, 1, 20, "Print"], Cell[17483, 479, 134, 2, 20, "Print"], Cell[17620, 483, 138, 2, 20, "Print"], Cell[17761, 487, 123, 1, 20, "Print"], Cell[17887, 490, 77, 1, 20, "Print"], Cell[17967, 493, 139, 2, 20, "Print"], Cell[18109, 497, 109, 1, 20, "Print"], Cell[18221, 500, 77, 1, 20, "Print"], Cell[18301, 503, 139, 2, 20, "Print"], Cell[18443, 507, 120, 1, 20, "Print"], Cell[18566, 510, 77, 1, 20, "Print"], Cell[18646, 513, 85, 1, 20, "Print"], Cell[18734, 516, 77, 1, 20, "Print"], Cell[18814, 519, 125, 2, 20, "Print"], Cell[18942, 523, 124, 2, 20, "Print"], Cell[19069, 527, 79, 1, 20, "Print"], Cell[19151, 530, 120, 1, 20, "Print"], Cell[19274, 533, 79, 1, 20, "Print"], Cell[19356, 536, 132, 2, 20, "Print"], Cell[19491, 540, 93, 1, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19633, 547, 4404, 88, 373, "Input"], Cell[CellGroupData[{ Cell[24062, 639, 246, 4, 20, "Print"], Cell[24311, 645, 393, 8, 20, "Print"], Cell[24707, 655, 242, 4, 20, "Print"], Cell[24952, 661, 246, 4, 20, "Print"], Cell[25201, 667, 246, 4, 20, "Print"], Cell[25450, 673, 255, 4, 20, "Print"], Cell[25708, 679, 406, 9, 20, "Print"], Cell[26117, 690, 246, 4, 20, "Print"], Cell[26366, 696, 250, 4, 20, "Print"], Cell[26619, 702, 244, 4, 20, "Print"], Cell[26866, 708, 455, 10, 20, "Print"], Cell[27324, 720, 244, 4, 20, "Print"], Cell[27571, 726, 393, 8, 20, "Print"], Cell[27967, 736, 244, 4, 20, "Print"], Cell[28214, 742, 244, 4, 20, "Print"], Cell[28461, 748, 244, 4, 20, "Print"], Cell[28708, 754, 256, 4, 20, "Print"], Cell[28967, 760, 256, 4, 20, "Print"], Cell[29226, 766, 256, 4, 20, "Print"], Cell[29485, 772, 256, 4, 20, "Print"], Cell[29744, 778, 258, 4, 20, "Print"], Cell[30005, 784, 256, 4, 20, "Print"], Cell[30264, 790, 258, 4, 20, "Print"], Cell[30525, 796, 256, 4, 20, "Print"], Cell[30784, 802, 406, 9, 20, "Print"], Cell[31193, 813, 244, 4, 20, "Print"], Cell[31440, 819, 250, 4, 20, "Print"], Cell[31693, 825, 246, 4, 20, "Print"], Cell[31942, 831, 727, 14, 20, "Print"], Cell[32672, 847, 713, 15, 20, "Print"], Cell[33388, 864, 711, 14, 20, "Print"], Cell[34102, 880, 699, 15, 20, "Print"], Cell[34804, 897, 711, 14, 20, "Print"], Cell[35518, 913, 699, 15, 20, "Print"], Cell[36220, 930, 695, 14, 20, "Print"], Cell[36918, 946, 681, 15, 20, "Print"], Cell[37602, 963, 244, 4, 20, "Print"], Cell[37849, 969, 391, 8, 20, "Print"], Cell[38243, 979, 244, 4, 20, "Print"], Cell[38490, 985, 246, 4, 20, "Print"], Cell[38739, 991, 246, 4, 20, "Print"], Cell[38988, 997, 295, 5, 20, "Print"], Cell[39286, 1004, 297, 5, 20, "Print"], Cell[39586, 1011, 297, 5, 20, "Print"], Cell[39886, 1018, 295, 5, 20, "Print"], Cell[40184, 1025, 296, 5, 20, "Print"], Cell[40483, 1032, 295, 5, 20, "Print"], Cell[40781, 1039, 294, 5, 20, "Print"], Cell[41078, 1046, 297, 5, 20, "Print"], Cell[41378, 1053, 295, 5, 20, "Print"], Cell[41676, 1060, 295, 5, 20, "Print"], Cell[41974, 1067, 298, 5, 20, "Print"], Cell[42275, 1074, 295, 5, 20, "Print"], Cell[42573, 1081, 296, 5, 20, "Print"], Cell[42872, 1088, 296, 5, 20, "Print"], Cell[43171, 1095, 296, 5, 20, "Print"], Cell[43470, 1102, 295, 5, 20, "Print"], Cell[43768, 1109, 296, 5, 20, "Print"], Cell[44067, 1116, 295, 5, 20, "Print"], Cell[44365, 1123, 297, 5, 20, "Print"], Cell[44665, 1130, 297, 5, 20, "Print"], Cell[44965, 1137, 295, 5, 20, "Print"], Cell[45263, 1144, 295, 5, 20, "Print"], Cell[45561, 1151, 296, 5, 20, "Print"], Cell[45860, 1158, 295, 5, 20, "Print"], Cell[46158, 1165, 295, 5, 20, "Print"], Cell[46456, 1172, 294, 5, 20, "Print"], Cell[46753, 1179, 295, 5, 20, "Print"], Cell[47051, 1186, 436, 9, 20, "Print"], Cell[47490, 1197, 246, 4, 20, "Print"], Cell[47739, 1203, 250, 4, 20, "Print"], Cell[47992, 1209, 244, 4, 20, "Print"], Cell[48239, 1215, 727, 14, 20, "Print"], Cell[48969, 1231, 635, 12, 20, "Print"], Cell[49607, 1245, 713, 15, 20, "Print"], Cell[50323, 1262, 638, 13, 20, "Print"], Cell[50964, 1277, 546, 11, 20, "Print"], Cell[51513, 1290, 622, 13, 20, "Print"], Cell[52138, 1305, 713, 14, 20, "Print"], Cell[52854, 1321, 622, 13, 20, "Print"], Cell[53479, 1336, 697, 15, 20, "Print"], Cell[54179, 1353, 637, 13, 20, "Print"], Cell[54819, 1368, 541, 10, 20, "Print"], Cell[55363, 1380, 622, 13, 20, "Print"], Cell[55988, 1395, 545, 11, 20, "Print"], Cell[56536, 1408, 455, 10, 20, "Print"], Cell[56994, 1420, 528, 11, 20, "Print"], Cell[57525, 1433, 624, 13, 20, "Print"], Cell[58152, 1448, 530, 11, 20, "Print"], Cell[58685, 1461, 606, 13, 20, "Print"], Cell[59294, 1476, 711, 14, 20, "Print"], Cell[60008, 1492, 619, 12, 20, "Print"], Cell[60630, 1506, 697, 15, 20, "Print"], Cell[61330, 1523, 624, 13, 20, "Print"], Cell[61957, 1538, 528, 11, 20, "Print"], Cell[62488, 1551, 604, 13, 20, "Print"], Cell[63095, 1566, 694, 14, 20, "Print"], Cell[63792, 1582, 606, 13, 20, "Print"], Cell[64401, 1597, 681, 15, 20, "Print"], Cell[65085, 1614, 243, 4, 20, "Print"], Cell[65331, 1620, 391, 8, 20, "Print"], Cell[65725, 1630, 244, 4, 20, "Print"], Cell[65972, 1636, 246, 4, 20, "Print"], Cell[66221, 1642, 244, 4, 20, "Print"], Cell[66468, 1648, 296, 5, 20, "Print"], Cell[66767, 1655, 295, 5, 20, "Print"], Cell[67065, 1662, 296, 5, 20, "Print"], Cell[67364, 1669, 296, 5, 20, "Print"], Cell[67663, 1676, 296, 5, 20, "Print"], Cell[67962, 1683, 296, 5, 20, "Print"], Cell[68261, 1690, 295, 5, 20, "Print"], Cell[68559, 1697, 296, 5, 20, "Print"], Cell[68858, 1704, 296, 5, 20, "Print"], Cell[69157, 1711, 298, 5, 20, "Print"], Cell[69458, 1718, 298, 5, 20, "Print"], Cell[69759, 1725, 296, 5, 20, "Print"], Cell[70058, 1732, 296, 5, 20, "Print"], Cell[70357, 1739, 295, 5, 20, "Print"], Cell[70655, 1746, 296, 5, 20, "Print"], Cell[70954, 1753, 296, 5, 20, "Print"], Cell[71253, 1760, 296, 5, 20, "Print"], Cell[71552, 1767, 295, 5, 20, "Print"], Cell[71850, 1774, 296, 5, 20, "Print"], Cell[72149, 1781, 298, 5, 20, "Print"], Cell[72450, 1788, 296, 5, 20, "Print"], Cell[72749, 1795, 294, 5, 20, "Print"], Cell[73046, 1802, 296, 5, 20, "Print"], Cell[73345, 1809, 296, 5, 20, "Print"], Cell[73644, 1816, 295, 5, 20, "Print"], Cell[73942, 1823, 296, 5, 20, "Print"], Cell[74241, 1830, 296, 5, 20, "Print"], Cell[74540, 1837, 298, 5, 20, "Print"], Cell[74841, 1844, 298, 5, 20, "Print"], Cell[75142, 1851, 296, 5, 20, "Print"], Cell[75441, 1858, 296, 5, 20, "Print"], Cell[75740, 1865, 298, 5, 20, "Print"], Cell[76041, 1872, 295, 5, 20, "Print"], Cell[76339, 1879, 296, 5, 20, "Print"], Cell[76638, 1886, 298, 5, 20, "Print"], Cell[76939, 1893, 296, 5, 20, "Print"], Cell[77238, 1900, 296, 5, 20, "Print"], Cell[77537, 1907, 296, 5, 20, "Print"], Cell[77836, 1914, 296, 5, 20, "Print"], Cell[78135, 1921, 296, 5, 20, "Print"], Cell[78434, 1928, 298, 5, 20, "Print"], Cell[78735, 1935, 296, 5, 20, "Print"], Cell[79034, 1942, 298, 5, 20, "Print"], Cell[79335, 1949, 298, 5, 20, "Print"], Cell[79636, 1956, 295, 5, 20, "Print"], Cell[79934, 1963, 296, 5, 20, "Print"], Cell[80233, 1970, 296, 5, 20, "Print"], Cell[80532, 1977, 296, 5, 20, "Print"], Cell[80831, 1984, 298, 5, 20, "Print"], Cell[81132, 1991, 298, 5, 20, "Print"], Cell[81433, 1998, 296, 5, 20, "Print"], Cell[81732, 2005, 298, 5, 20, "Print"], Cell[82033, 2012, 296, 5, 20, "Print"], Cell[82332, 2019, 295, 5, 20, "Print"], Cell[82630, 2026, 295, 5, 20, "Print"], Cell[82928, 2033, 296, 5, 20, "Print"], Cell[83227, 2040, 295, 5, 20, "Print"], Cell[83525, 2047, 295, 5, 20, "Print"], Cell[83823, 2054, 296, 5, 20, "Print"], Cell[84122, 2061, 296, 5, 20, "Print"], Cell[84421, 2068, 296, 5, 20, "Print"], Cell[84720, 2075, 296, 5, 20, "Print"], Cell[85019, 2082, 296, 5, 20, "Print"], Cell[85318, 2089, 295, 5, 20, "Print"], Cell[85616, 2096, 434, 9, 20, "Print"], Cell[86053, 2107, 244, 4, 20, "Print"], Cell[86300, 2113, 250, 4, 20, "Print"], Cell[86553, 2119, 244, 4, 20, "Print"], Cell[86800, 2125, 724, 14, 20, "Print"], Cell[87527, 2141, 724, 14, 20, "Print"], Cell[88254, 2157, 710, 15, 20, "Print"], Cell[88967, 2174, 710, 15, 20, "Print"], Cell[89680, 2191, 724, 14, 20, "Print"], Cell[90407, 2207, 724, 14, 20, "Print"], Cell[91134, 2223, 712, 15, 20, "Print"], Cell[91849, 2240, 710, 15, 20, "Print"], Cell[92562, 2257, 708, 14, 20, "Print"], Cell[93273, 2273, 710, 14, 20, "Print"], Cell[93986, 2289, 694, 15, 20, "Print"], Cell[94683, 2306, 694, 15, 20, "Print"], Cell[95380, 2323, 708, 14, 20, "Print"], Cell[96091, 2339, 708, 14, 20, "Print"], Cell[96802, 2355, 696, 15, 20, "Print"], Cell[97501, 2372, 696, 15, 20, "Print"], Cell[98200, 2389, 726, 14, 20, "Print"], Cell[98929, 2405, 726, 14, 20, "Print"], Cell[99658, 2421, 712, 15, 20, "Print"], Cell[100373, 2438, 712, 15, 20, "Print"], Cell[101088, 2455, 724, 14, 20, "Print"], Cell[101815, 2471, 724, 14, 20, "Print"], Cell[102542, 2487, 712, 15, 20, "Print"], Cell[103257, 2504, 710, 15, 20, "Print"], Cell[103970, 2521, 708, 14, 20, "Print"], Cell[104681, 2537, 708, 14, 20, "Print"], Cell[105392, 2553, 694, 15, 20, "Print"], Cell[106089, 2570, 696, 15, 20, "Print"], Cell[106788, 2587, 708, 14, 20, "Print"], Cell[107499, 2603, 708, 14, 20, "Print"], Cell[108210, 2619, 694, 15, 20, "Print"], Cell[108907, 2636, 694, 15, 20, "Print"], Cell[109604, 2653, 708, 14, 20, "Print"], Cell[110315, 2669, 708, 14, 20, "Print"], Cell[111026, 2685, 694, 15, 20, "Print"], Cell[111723, 2702, 694, 15, 20, "Print"], Cell[112420, 2719, 708, 14, 20, "Print"], Cell[113131, 2735, 708, 14, 20, "Print"], Cell[113842, 2751, 694, 15, 20, "Print"], Cell[114539, 2768, 696, 15, 20, "Print"], Cell[115238, 2785, 692, 14, 20, "Print"], Cell[115933, 2801, 694, 14, 20, "Print"], Cell[116630, 2817, 678, 15, 20, "Print"], Cell[117311, 2834, 677, 15, 20, "Print"], Cell[117991, 2851, 694, 14, 20, "Print"], Cell[118688, 2867, 692, 14, 20, "Print"], Cell[119383, 2883, 678, 15, 20, "Print"], Cell[120064, 2900, 680, 15, 20, "Print"], Cell[120747, 2917, 710, 14, 20, "Print"], Cell[121460, 2933, 708, 14, 20, "Print"], Cell[122171, 2949, 694, 15, 20, "Print"], Cell[122868, 2966, 694, 15, 20, "Print"], Cell[123565, 2983, 710, 14, 20, "Print"], Cell[124278, 2999, 708, 14, 20, "Print"], Cell[124989, 3015, 694, 15, 20, "Print"], Cell[125686, 3032, 694, 15, 20, "Print"], Cell[126383, 3049, 692, 14, 20, "Print"], Cell[127078, 3065, 694, 14, 20, "Print"], Cell[127775, 3081, 678, 15, 20, "Print"], Cell[128456, 3098, 680, 15, 20, "Print"], Cell[129139, 3115, 694, 14, 20, "Print"], Cell[129836, 3131, 692, 14, 20, "Print"], Cell[130531, 3147, 680, 15, 20, "Print"], Cell[131214, 3164, 680, 15, 20, "Print"], Cell[131897, 3181, 244, 4, 20, "Print"], Cell[132144, 3187, 391, 8, 20, "Print"], Cell[132538, 3197, 244, 4, 20, "Print"], Cell[132785, 3203, 246, 4, 20, "Print"], Cell[133034, 3209, 246, 4, 20, "Print"], Cell[133283, 3215, 295, 5, 20, "Print"], Cell[133581, 3222, 295, 5, 20, "Print"], Cell[133879, 3229, 295, 5, 20, "Print"], Cell[134177, 3236, 297, 5, 20, "Print"], Cell[134477, 3243, 295, 5, 20, "Print"], Cell[134775, 3250, 297, 5, 20, "Print"], Cell[135075, 3257, 295, 5, 20, "Print"], Cell[135373, 3264, 295, 5, 20, "Print"], Cell[135671, 3271, 295, 5, 20, "Print"], Cell[135969, 3278, 297, 5, 20, "Print"], Cell[136269, 3285, 295, 5, 20, "Print"], Cell[136567, 3292, 297, 5, 20, "Print"], Cell[136867, 3299, 296, 5, 20, "Print"], Cell[137166, 3306, 295, 5, 20, "Print"], Cell[137464, 3313, 297, 5, 20, "Print"], Cell[137764, 3320, 295, 5, 20, "Print"], Cell[138062, 3327, 295, 5, 20, "Print"], Cell[138360, 3334, 295, 5, 20, "Print"], Cell[138658, 3341, 295, 5, 20, "Print"], Cell[138956, 3348, 295, 5, 20, "Print"], Cell[139254, 3355, 295, 5, 20, "Print"], Cell[139552, 3362, 295, 5, 20, "Print"], Cell[139850, 3369, 295, 5, 20, "Print"], Cell[140148, 3376, 295, 5, 20, "Print"], Cell[140446, 3383, 295, 5, 20, "Print"], Cell[140744, 3390, 293, 5, 20, "Print"], Cell[141040, 3397, 295, 5, 20, "Print"], Cell[141338, 3404, 295, 5, 20, "Print"], Cell[141636, 3411, 295, 5, 20, "Print"], Cell[141934, 3418, 295, 5, 20, "Print"], Cell[142232, 3425, 297, 5, 20, "Print"], Cell[142532, 3432, 297, 5, 20, "Print"], Cell[142832, 3439, 297, 5, 20, "Print"], Cell[143132, 3446, 295, 5, 20, "Print"], Cell[143430, 3453, 295, 5, 20, "Print"], Cell[143728, 3460, 295, 5, 20, "Print"], Cell[144026, 3467, 297, 5, 20, "Print"], Cell[144326, 3474, 296, 5, 20, "Print"], Cell[144625, 3481, 295, 5, 20, "Print"], Cell[144923, 3488, 295, 5, 20, "Print"], Cell[145221, 3495, 295, 5, 20, "Print"], Cell[145519, 3502, 295, 5, 20, "Print"], Cell[145817, 3509, 295, 5, 20, "Print"], Cell[146115, 3516, 295, 5, 20, "Print"], Cell[146413, 3523, 297, 5, 20, "Print"], Cell[146713, 3530, 295, 5, 20, "Print"], Cell[147011, 3537, 297, 5, 20, "Print"], Cell[147311, 3544, 295, 5, 20, "Print"], Cell[147609, 3551, 295, 5, 20, "Print"], Cell[147907, 3558, 295, 5, 20, "Print"], Cell[148205, 3565, 295, 5, 20, "Print"], Cell[148503, 3572, 295, 5, 20, "Print"], Cell[148801, 3579, 296, 5, 20, "Print"], Cell[149100, 3586, 295, 5, 20, "Print"], Cell[149398, 3593, 295, 5, 20, "Print"], Cell[149696, 3600, 297, 5, 20, "Print"], Cell[149996, 3607, 295, 5, 20, "Print"], Cell[150294, 3614, 296, 5, 20, "Print"], Cell[150593, 3621, 297, 5, 20, "Print"], Cell[150893, 3628, 295, 5, 20, "Print"], Cell[151191, 3635, 296, 5, 20, "Print"], Cell[151490, 3642, 296, 5, 20, "Print"], Cell[151789, 3649, 296, 5, 20, "Print"], Cell[152088, 3656, 298, 5, 20, "Print"], Cell[152389, 3663, 296, 5, 20, "Print"], Cell[152688, 3670, 295, 5, 20, "Print"], Cell[152986, 3677, 297, 5, 20, "Print"], Cell[153286, 3684, 296, 5, 20, "Print"], Cell[153585, 3691, 297, 5, 20, "Print"], Cell[153885, 3698, 295, 5, 20, "Print"], Cell[154183, 3705, 295, 5, 20, "Print"], Cell[154481, 3712, 295, 5, 20, "Print"], Cell[154779, 3719, 298, 5, 20, "Print"], Cell[155080, 3726, 295, 5, 20, "Print"], Cell[155378, 3733, 295, 5, 20, "Print"], Cell[155676, 3740, 295, 5, 20, "Print"], Cell[155974, 3747, 295, 5, 20, "Print"], Cell[156272, 3754, 295, 5, 20, "Print"], Cell[156570, 3761, 297, 5, 20, "Print"], Cell[156870, 3768, 295, 5, 20, "Print"], Cell[157168, 3775, 295, 5, 20, "Print"], Cell[157466, 3782, 297, 5, 20, "Print"], Cell[157766, 3789, 297, 5, 20, "Print"], Cell[158066, 3796, 297, 5, 20, "Print"], Cell[158366, 3803, 295, 5, 20, "Print"], Cell[158664, 3810, 295, 5, 20, "Print"], Cell[158962, 3817, 295, 5, 20, "Print"], Cell[159260, 3824, 298, 5, 20, "Print"], Cell[159561, 3831, 295, 5, 20, "Print"], Cell[159859, 3838, 295, 5, 20, "Print"], Cell[160157, 3845, 295, 5, 20, "Print"], Cell[160455, 3852, 295, 5, 20, "Print"], Cell[160753, 3859, 295, 5, 20, "Print"], Cell[161051, 3866, 295, 5, 20, "Print"], Cell[161349, 3873, 295, 5, 20, "Print"], Cell[161647, 3880, 297, 5, 20, "Print"], Cell[161947, 3887, 295, 5, 20, "Print"], Cell[162245, 3894, 295, 5, 20, "Print"], Cell[162543, 3901, 295, 5, 20, "Print"], Cell[162841, 3908, 295, 5, 20, "Print"], Cell[163139, 3915, 295, 5, 20, "Print"], Cell[163437, 3922, 295, 5, 20, "Print"], Cell[163735, 3929, 295, 5, 20, "Print"], Cell[164033, 3936, 295, 5, 20, "Print"], Cell[164331, 3943, 297, 5, 20, "Print"], Cell[164631, 3950, 295, 5, 20, "Print"], Cell[164929, 3957, 295, 5, 20, "Print"], Cell[165227, 3964, 297, 5, 20, "Print"], Cell[165527, 3971, 295, 5, 20, "Print"], Cell[165825, 3978, 295, 5, 20, "Print"], Cell[166123, 3985, 297, 5, 20, "Print"], Cell[166423, 3992, 295, 5, 20, "Print"], Cell[166721, 3999, 296, 5, 20, "Print"], Cell[167020, 4006, 295, 5, 20, "Print"], Cell[167318, 4013, 297, 5, 20, "Print"], Cell[167618, 4020, 297, 5, 20, "Print"], Cell[167918, 4027, 295, 5, 20, "Print"], Cell[168216, 4034, 295, 5, 20, "Print"], Cell[168514, 4041, 297, 5, 20, "Print"], Cell[168814, 4048, 297, 5, 20, "Print"], Cell[169114, 4055, 295, 5, 20, "Print"], Cell[169412, 4062, 295, 5, 20, "Print"], Cell[169710, 4069, 295, 5, 20, "Print"], Cell[170008, 4076, 295, 5, 20, "Print"], Cell[170306, 4083, 295, 5, 20, "Print"], Cell[170604, 4090, 435, 9, 20, "Print"], Cell[171042, 4101, 246, 4, 20, "Print"], Cell[171291, 4107, 252, 4, 20, "Print"], Cell[171546, 4113, 244, 4, 20, "Print"], Cell[171793, 4119, 729, 14, 20, "Print"], Cell[172525, 4135, 727, 14, 20, "Print"], Cell[173255, 4151, 633, 12, 20, "Print"], Cell[173891, 4165, 713, 15, 20, "Print"], Cell[174607, 4182, 715, 15, 20, "Print"], Cell[175325, 4199, 727, 14, 20, "Print"], Cell[176055, 4215, 727, 14, 20, "Print"], Cell[176785, 4231, 633, 12, 20, "Print"], Cell[177421, 4245, 713, 15, 20, "Print"], Cell[178137, 4262, 713, 15, 20, "Print"], Cell[178853, 4279, 638, 13, 20, "Print"], Cell[179494, 4294, 638, 13, 20, "Print"], Cell[180135, 4309, 544, 11, 20, "Print"], Cell[180682, 4322, 622, 13, 20, "Print"], Cell[181307, 4337, 620, 13, 20, "Print"], Cell[181930, 4352, 711, 14, 20, "Print"], Cell[182644, 4368, 711, 14, 20, "Print"], Cell[183358, 4384, 620, 13, 20, "Print"], Cell[183981, 4399, 699, 15, 20, "Print"], Cell[184683, 4416, 699, 15, 20, "Print"], Cell[185385, 4433, 711, 14, 20, "Print"], Cell[186099, 4449, 711, 14, 20, "Print"], Cell[186813, 4465, 622, 13, 20, "Print"], Cell[187438, 4480, 697, 15, 20, "Print"], Cell[188138, 4497, 697, 15, 20, "Print"], Cell[188838, 4514, 725, 14, 20, "Print"], Cell[189566, 4530, 727, 14, 20, "Print"], Cell[190296, 4546, 633, 12, 20, "Print"], Cell[190932, 4560, 713, 15, 20, "Print"], Cell[191648, 4577, 715, 15, 20, "Print"], Cell[192366, 4594, 727, 14, 20, "Print"], Cell[193096, 4610, 727, 14, 20, "Print"], Cell[193826, 4626, 635, 12, 20, "Print"], Cell[194464, 4640, 713, 15, 20, "Print"], Cell[195180, 4657, 713, 15, 20, "Print"], Cell[195896, 4674, 638, 13, 20, "Print"], Cell[196537, 4689, 640, 13, 20, "Print"], Cell[197180, 4704, 544, 11, 20, "Print"], Cell[197727, 4717, 619, 13, 20, "Print"], Cell[198349, 4732, 620, 13, 20, "Print"], Cell[198972, 4747, 713, 14, 20, "Print"], Cell[199688, 4763, 711, 14, 20, "Print"], Cell[200402, 4779, 620, 13, 20, "Print"], Cell[201025, 4794, 699, 15, 20, "Print"], Cell[201727, 4811, 699, 15, 20, "Print"], Cell[202429, 4828, 711, 14, 20, "Print"], Cell[203143, 4844, 711, 14, 20, "Print"], Cell[203857, 4860, 622, 13, 20, "Print"], Cell[204482, 4875, 699, 15, 20, "Print"], Cell[205184, 4892, 697, 15, 20, "Print"], Cell[205884, 4909, 638, 13, 20, "Print"], Cell[206525, 4924, 638, 13, 20, "Print"], Cell[207166, 4939, 541, 10, 20, "Print"], Cell[207710, 4951, 620, 13, 20, "Print"], Cell[208333, 4966, 622, 13, 20, "Print"], Cell[208958, 4981, 638, 13, 20, "Print"], Cell[209599, 4996, 640, 13, 20, "Print"], Cell[210242, 5011, 541, 10, 20, "Print"], Cell[210786, 5023, 620, 13, 20, "Print"], Cell[211409, 5038, 622, 13, 20, "Print"], Cell[212034, 5053, 545, 11, 20, "Print"], Cell[212582, 5066, 545, 11, 20, "Print"], Cell[213130, 5079, 457, 10, 20, "Print"], Cell[213590, 5091, 530, 11, 20, "Print"], Cell[214123, 5104, 530, 11, 20, "Print"], Cell[214656, 5117, 622, 13, 20, "Print"], Cell[215281, 5132, 622, 13, 20, "Print"], Cell[215906, 5147, 530, 11, 20, "Print"], Cell[216439, 5160, 606, 13, 20, "Print"], Cell[217048, 5175, 603, 13, 20, "Print"], Cell[217654, 5190, 624, 13, 20, "Print"], Cell[218281, 5205, 624, 13, 20, "Print"], Cell[218908, 5220, 528, 11, 20, "Print"], Cell[219439, 5233, 606, 13, 20, "Print"], Cell[220048, 5248, 604, 13, 20, "Print"], Cell[220655, 5263, 711, 14, 20, "Print"], Cell[221369, 5279, 711, 14, 20, "Print"], Cell[222083, 5295, 619, 12, 20, "Print"], Cell[222705, 5309, 697, 15, 20, "Print"], Cell[223405, 5326, 697, 15, 20, "Print"], Cell[224105, 5343, 713, 14, 20, "Print"], Cell[224821, 5359, 711, 14, 20, "Print"], Cell[225535, 5375, 617, 12, 20, "Print"], Cell[226155, 5389, 697, 15, 20, "Print"], Cell[226855, 5406, 697, 15, 20, "Print"], Cell[227555, 5423, 624, 13, 20, "Print"], Cell[228182, 5438, 621, 13, 20, "Print"], Cell[228806, 5453, 530, 11, 20, "Print"], Cell[229339, 5466, 604, 13, 20, "Print"], Cell[229946, 5481, 604, 13, 20, "Print"], Cell[230553, 5496, 697, 14, 20, "Print"], Cell[231253, 5512, 695, 14, 20, "Print"], Cell[231951, 5528, 604, 13, 20, "Print"], Cell[232558, 5543, 683, 15, 20, "Print"], Cell[233244, 5560, 681, 15, 20, "Print"], Cell[233928, 5577, 697, 14, 20, "Print"], Cell[234628, 5593, 695, 14, 20, "Print"], Cell[235326, 5609, 606, 13, 20, "Print"], Cell[235935, 5624, 681, 15, 20, "Print"], Cell[236619, 5641, 681, 15, 20, "Print"], Cell[237303, 5658, 711, 14, 20, "Print"], Cell[238017, 5674, 711, 14, 20, "Print"], Cell[238731, 5690, 617, 12, 20, "Print"], Cell[239351, 5704, 697, 15, 20, "Print"], Cell[240051, 5721, 699, 15, 20, "Print"], Cell[240753, 5738, 704, 13, 20, "Print"], Cell[241460, 5753, 704, 13, 20, "Print"], Cell[242167, 5768, 610, 11, 20, "Print"], Cell[242780, 5781, 692, 14, 20, "Print"], Cell[243475, 5797, 692, 14, 20, "Print"], Cell[244170, 5813, 617, 12, 20, "Print"], Cell[244790, 5827, 615, 12, 20, "Print"], Cell[245408, 5841, 521, 10, 20, "Print"], Cell[245932, 5853, 597, 12, 20, "Print"], Cell[246532, 5867, 599, 12, 20, "Print"], Cell[247134, 5881, 690, 13, 20, "Print"], Cell[247827, 5896, 688, 13, 20, "Print"], Cell[248518, 5911, 597, 12, 20, "Print"], Cell[249118, 5925, 674, 14, 20, "Print"], Cell[249795, 5941, 674, 14, 20, "Print"], Cell[250472, 5957, 688, 13, 20, "Print"], Cell[251163, 5972, 688, 13, 20, "Print"], Cell[251854, 5987, 599, 12, 20, "Print"], Cell[252456, 6001, 674, 14, 20, "Print"], Cell[253133, 6017, 674, 14, 20, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)