(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 322540, 6017]*) (*NotebookOutlinePosition[ 323186, 6039]*) (* CellTagsIndexPosition[ 323142, 6035]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{\(Clear[U, V, T]\), "\[IndentingNewLine]", \(U = {u1, u2, u3};\), "\[IndentingNewLine]", \(V = {v1, v2, v3};\), "\[IndentingNewLine]", RowBox[{\(T = {t1[u1, u2, u3], t2[u1, u2, u3], t3[u1, u2, u3]};\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Fhat := Transpose[{\[PartialD]\_u1\ T, \[PartialD]\_u2\ T, \[PartialD]\_u3\ T}];\), "\[IndentingNewLine]", \(MatrixForm[ Fhat]\), "\[IndentingNewLine]", RowBox[{\(Eigensystem[Fhat]\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Eigensystem", "[", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "1", "0", "0"}, {"0", "0", "0", "0", "1", "0"}, {"0", "0", "0", "0", "0", "1"}, {"1", "0", "0", "0", "0", "0"}, {"0", "1", "0", "0", "0", "0"}, {"0", "0", "1", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(F = {v1, v2, v3, t1[u1, u2, u3], t2[u1, u2, u3], t3[u1, u2, u3]};\), "\[IndentingNewLine]", \(FluxMatrix = Transpose[{\[PartialD]\_u1\ F, \[PartialD]\_u2\ F, \[PartialD]\_u3\ F, \[PartialD]\_v1\ F, \[PartialD]\_v2\ F, \[PartialD]\_v3\ F}];\), "\[IndentingNewLine]", \(MatrixForm[ FluxMatrix]\), "\[IndentingNewLine]", \({EVal1, EVal2, EVal3, EVal4, EVal5, EVal6} = Eigenvalues[FluxMatrix]\), "\[IndentingNewLine]", \({EVec1, EVec2, EVec3, EVec4, EVec5, EVec6} = Eigenvectors[FluxMatrix]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}, { RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}, { RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "1"}], "]"}], ",", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "2"}], "]"}], ",", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "1"}], "]"}]}], "+", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "1"}], "]"}]}], "+", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], ")"}]}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "1"}], "]"}]}], "+", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], ")"}]}], ")"}]}]}], ",", RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "1"}], "]"}]}], "+", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], ")"}]}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "1"}], "]"}]}], "+", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], ")"}]}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["t1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}]}], "&"}], ",", "2"}], "]"}]}], "+", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{\(#1\^3\), "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "-", RowBox[{\(#1\^2\), " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "+", RowBox[{"#1", " ", RowBox[{ SuperscriptBox["t3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}], " ", RowBox[{ SuperscriptBox["t1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(u1, u2, u3\), "]"}]}], "