(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. 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[ 48353, 1399]*) (*NotebookOutlinePosition[ 49133, 1426]*) (* CellTagsIndexPosition[ 49089, 1422]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[ \(SetDirectory["\"]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(<< continuous3DHomotopyOperator.m\)], "Input"], Cell[BoxData[ \("Multi-Dimensional Continuous Homotopy Operator loaded \ successfully."\)], "Print"] }, Open ]], Cell[BoxData[ \( (*\ Example\ 1\ involves\ one\ function\ u[1]\ of\ x, y, z\ and\ t\ is\ parameter\ *) \)], "Input"], Cell[BoxData[ \( (*\ Use\ of\ \(homotopyOperatorMD : \ \[IndentingNewLine]homotopyOperatorMD[ expression, \ head\ of\ dependent\ variables, \ number\ of\ dependent\ variables, \ list\ of\ independent\ variables]\)\ *) \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"example1", " ", "=", " ", RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(vector1\)\(=\)\(\ \)\(homotopyOperatorMD[example1, \ u, \ 1, \ {x, y, z}]\)\(\[IndentingNewLine]\)\)\)], "Input"], Cell[BoxData[ \("Applying the Total Homotopy Operator to "\)], "Print"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]], "Print"], Cell[BoxData[ InterpretationBox[\("with independent variable list, \ "\[InvisibleSpace]{x, y, z}\), SequenceForm[ "with independent variable list, ", {x, y, z}], Editable->False]], "Print"], Cell[BoxData[ \("The result of applying the Total Homotopy Operator is "\)], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{\(1\/3\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], ",", RowBox[{\(2\/3\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], ",", "0"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{\(1\/3\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], ",", RowBox[{\(2\/3\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], ",", "0"}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ \( (*\ Cross\ testing\ with\ divergence\ from\ Mathematica\ *) \)], "Input"], Cell[BoxData[ \(<< Calculus`VectorAnalysis`\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(SetCoordinates[Cartesian[x, y, z]]\)], "Input"], Cell[BoxData[ \(Cartesian[x, y, z]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(divvector1\)\(=\)\(\ \)\(Div[ vector1]\)\(\[IndentingNewLine]\)\)\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(testvector1\ = \ Factor[example1\ - \ divvector1]\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[BoxData[ \( (*\ Example\ 2 : \ involves\ two\ functions\ u[1]\ and\ [ 2]\ of\ dependent\ variables\ x, y, \ and\ z\ *) \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"example2", " ", "=", " ", RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{"2", " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 2}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "\[IndentingNewLine]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{"2", " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 2}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}]], "Output"] }, Open ]], Cell[BoxData[ \( (*\ Use\ of\ \(homotopyOperatorMD : \ \[IndentingNewLine]homotopyOperatorMD[ expression, \ head\ of\ dependent\ variables, \ number\ of\ dependent\ variables, \ list\ of\ independent\ variables]\)\ *) \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(vector2\ = \ homotopyOperatorMD[example2, \ u, \ 2, \ {x, y, z}]\)], "Input"], Cell[BoxData[ \("Applying the Total Homotopy Operator to "\)], "Print"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{"2", " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 2}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}]], "Print"], Cell[BoxData[ InterpretationBox[\("with independent variable list, \ "\[InvisibleSpace]{x, y, z}\), SequenceForm[ "with independent variable list, ", {x, y, z}], Editable->False]], "Print"], Cell[BoxData[ \("The result of applying the Total Homotopy Operator is "\)], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{\(1\/3\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 0, 2}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "2"]}], ",", RowBox[{"2", " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], ",", RowBox[{\(2\/3\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{\(1\/3\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 0, 2}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", SuperscriptBox[ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "2"]}], ",", RowBox[{"2", " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], ",", RowBox[{\(2\/3\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(divvector2\ = \ Div[vector2]\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{"2", " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 2}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(testvector2\ = \ Factor[example2\ - \ divvector2]\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[BoxData[ \( (*\ Example\ 3 : \ involves\ trigonometric\ functions\ of\ u[1]\ and\ u[2], \ both\ functions\ of\ x, \ y, \ z\ \ *) \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"example3", " ", "=", " ", RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "-", RowBox[{\(Sin[\(u[1]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "-", RowBox[{\(Sin[\(u[1]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(vector3\)\(\ \)\(=\)\(\ \)\(homotopyOperatorMD[example3, \ u, \ 2, \ {x, y, z}]\)\(\[IndentingNewLine]\)\)\)], "Input"], Cell[BoxData[ \("Applying the Total Homotopy Operator to "\)], "Print"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "-", RowBox[{\(Sin[\(u[1]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}]], "Print"], Cell[BoxData[ InterpretationBox[\("with independent variable list, \ "\[InvisibleSpace]{x, y, z}\), SequenceForm[ "with independent variable list, ", {x, y, z}], Editable->False]], "Print"], Cell[BoxData[ \("The result of applying the Total Homotopy Operator is "\)], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{\(-1\), "+", \(Cos[\(u[1]\)[{x, y, z}, t]]\), "+", FractionBox[ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], \(2\ \(u[2]\)[{x, y, z}, t]\)], "-", FractionBox[ RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\)], "-", FractionBox[ RowBox[{\(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\^2\)], "+", FractionBox[ RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\^2\)], "+", FractionBox[ RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\)]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], \(2\ \(u[2]\)[{x, y, z}, t]\)], "+", FractionBox[ RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\)], "+", FractionBox[ RowBox[{\(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\^2\)], "-", FractionBox[ RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\^2\)], "-", FractionBox[ RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\)]}], ",", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{\(-1\), "+", \(Cos[\(u[1]\)[{x, y, z}, t]]\), "+", FractionBox[ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], \(2\ \(u[2]\)[{x, y, z}, t]\)], "-", FractionBox[ RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\)], "-", FractionBox[ RowBox[{\(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\^2\)], "+", FractionBox[ RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\^2\)], "+", FractionBox[ RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\)]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], \(2\ \(u[2]\)[{x, y, z}, t]\)], "+", FractionBox[ RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\)], "+", FractionBox[ RowBox[{\(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\^2\)], "-", FractionBox[ RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\^2\)], "-", FractionBox[ RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", \(\(u[1]\)[{x, y, z}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], \(2\ \(u[2]\)[{x, y, z}, t]\)]}], ",", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(divvector3\ = \ Div[vector3]\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], "-", RowBox[{\(Sin[\(u[1]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Cos[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}], "+", RowBox[{\(Sin[\(u[2]\)[{x, y, z}, t]]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y, z}, t\), "]"}]}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(testvector3\ = \ Factor[example3\ - \ divvector3]\)\)\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\( (*\ Example\ 4 : \ one\ function\ u[1]\ of\ variables\ x\ and\ y\ only, \ with\ parameter\ t\ *) \)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"example4", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(vector4\)\(=\)\(\ \)\(homotopyOperatorMD[example4, \ u, \ 1, \ {x, y}]\)\(\[IndentingNewLine]\)\)\)], "Input"], Cell[BoxData[ \("Applying the Total Homotopy Operator to "\)], "Print"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]], "Print"], Cell[BoxData[ InterpretationBox[\("with independent variable list, \ "\[InvisibleSpace]{x, y}\), SequenceForm[ "with independent variable list, ", {x, y}], Editable->False]], "Print"], Cell[BoxData[ \("The result of applying the Total Homotopy Operator is "\)], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{\(1\/2\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(2\/3\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(1\/3\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{\(1\/2\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(2\/3\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(1\/3\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\( (*\ vector4\ has\ two\ components, \ so\ add\ a\ zero\ for\ the\ third\ component\ *) \)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(divvector4\ = \ Div[Flatten[{vector4, 0}]]\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({2, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(testvector4\ = \ Factor[example4\ - \ divvector4]\)\)\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\( (*\ Example\ 5 : \ two\ functions\ u[1]\ and\ u[2]\ of\ x\ and\ y, \ with\ t\ as\ parameter\ *) \)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"example5", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(vector5\)\(=\)\(\ \)\(homotopyOperatorMD[example5, \ u, \ 2, \ {x, y}]\)\(\[IndentingNewLine]\)\)\)], "Input"], Cell[BoxData[ \("Applying the Total Homotopy Operator to "\)], "Print"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]], "Print"], Cell[BoxData[ InterpretationBox[\("with independent variable list, \ "\[InvisibleSpace]{x, y}\), SequenceForm[ "with independent variable list, ", {x, y}], Editable->False]], "Print"], Cell[BoxData[ \("The result of applying the Total Homotopy Operator is "\)], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{\(1\/4\), " ", \(\(u[2]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(1\/2\), " ", SuperscriptBox[ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], "2"]}], "+", RowBox[{\(1\/4\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "-", RowBox[{\(1\/2\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 2}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}], ",", RowBox[{ RowBox[{\(-\(1\/4\)\), " ", \(\(u[2]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(3\/4\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(1\/2\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{\(1\/4\), " ", \(\(u[2]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(1\/2\), " ", SuperscriptBox[ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], "2"]}], "+", RowBox[{\(1\/4\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "-", RowBox[{\(1\/2\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 2}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}], ",", RowBox[{ RowBox[{\(-\(1\/4\)\), " ", \(\(u[2]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(3\/4\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(1\/2\), " ", \(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(divvector5\ = \ Div[Flatten[{vector5, 0}]]\)\)\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 0}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({0, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}], " ", RowBox[{ SuperscriptBox[\(u[1]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}], "+", RowBox[{\(\(u[1]\)[{x, y}, t]\), " ", RowBox[{ SuperscriptBox[\(u[2]\), TagBox[\(({1, 1}, 0)\), Derivative], MultilineFunction->None], "[", \({x, y}, t\), "]"}]}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(testvector5\ \ = \ Factor[example5 - \ divvector5]\)\)\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]] }, FrontEndVersion->"4.0 for Microsoft Windows", ScreenRectangle->{{0, 1280}, {0, 941}}, ScreenStyleEnvironment->"Presentation", WindowSize->{1028, 517}, WindowMargins->{{42, Automatic}, {Automatic, 100}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, Magnification->1.25 ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1717, 49, 68, 1, 48, "Input"], Cell[CellGroupData[{ Cell[1810, 54, 66, 1, 48, "Input"], Cell[1879, 57, 104, 2, 35, "Print"] }, Open ]], Cell[1998, 62, 127, 2, 48, "Input"], Cell[2128, 66, 280, 5, 106, "Input"], Cell[CellGroupData[{ Cell[2433, 75, 473, 13, 49, "Input"], Cell[2909, 90, 399, 11, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3345, 106, 146, 2, 77, "Input"], Cell[3494, 110, 75, 1, 35, "Print"], Cell[3572, 113, 398, 11, 36, "Print"], Cell[3973, 126, 205, 4, 35, "Print"], Cell[4181, 132, 89, 1, 35, "Print"], Cell[4273, 135, 797, 22, 101, "Print"], Cell[5073, 159, 798, 22, 113, "Output"] }, Open ]], Cell[5886, 184, 101, 2, 48, "Input"], Cell[5990, 188, 60, 1, 48, "Input"], Cell[CellGroupData[{ Cell[6075, 193, 67, 1, 48, "Input"], Cell[6145, 196, 52, 1, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6234, 202, 110, 2, 77, "Input"], Cell[6347, 206, 399, 11, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6783, 222, 84, 1, 48, "Input"], Cell[6870, 225, 35, 1, 47, "Output"] }, Open ]], Cell[6920, 229, 162, 3, 77, "Input"], Cell[CellGroupData[{ Cell[7107, 236, 1438, 36, 136, "Input"], Cell[8548, 274, 1306, 35, 104, "Output"] }, Open ]], Cell[9869, 312, 280, 5, 106, "Input"], Cell[CellGroupData[{ Cell[10174, 321, 105, 2, 48, "Input"], Cell[10282, 325, 75, 1, 35, "Print"], Cell[10360, 328, 1305, 35, 92, "Print"], Cell[11668, 365, 205, 4, 35, "Print"], Cell[11876, 371, 89, 1, 35, "Print"], Cell[11968, 374, 1105, 30, 129, "Print"], Cell[13076, 406, 1106, 30, 141, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14219, 441, 62, 1, 48, "Input"], Cell[14284, 444, 1306, 35, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15627, 484, 84, 1, 48, "Input"], Cell[15714, 487, 35, 1, 47, "Output"] }, Open ]], Cell[15764, 491, 167, 3, 77, "Input"], Cell[CellGroupData[{ Cell[15956, 498, 1265, 31, 136, "Input"], Cell[17224, 531, 1164, 30, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18425, 566, 152, 2, 77, "Input"], Cell[18580, 570, 75, 1, 35, "Print"], Cell[18658, 573, 1163, 30, 120, "Print"], Cell[19824, 605, 205, 4, 35, "Print"], Cell[20032, 611, 89, 1, 35, "Print"], Cell[20124, 614, 4595, 111, 670, "Print"], Cell[24722, 727, 4596, 111, 682, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29355, 843, 62, 1, 48, "Input"], Cell[29420, 846, 1164, 30, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30621, 881, 122, 2, 77, "Input"], Cell[30746, 885, 35, 1, 47, "Output"] }, Open ]], Cell[30796, 889, 176, 3, 106, "Input"], Cell[CellGroupData[{ Cell[30997, 896, 1021, 26, 106, "Input"], Cell[32021, 924, 835, 23, 76, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32893, 952, 143, 2, 77, "Input"], Cell[33039, 956, 75, 1, 35, "Print"], Cell[33117, 959, 834, 23, 64, "Print"], Cell[33954, 984, 199, 4, 35, "Print"], Cell[34156, 990, 89, 1, 35, "Print"], Cell[34248, 993, 1145, 30, 101, "Print"], Cell[35396, 1025, 1146, 30, 113, "Output"] }, Open ]], Cell[36557, 1058, 158, 2, 77, "Input"], Cell[CellGroupData[{ Cell[36740, 1064, 76, 1, 48, "Input"], Cell[36819, 1067, 835, 23, 76, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37691, 1095, 122, 2, 77, "Input"], Cell[37816, 1099, 35, 1, 47, "Output"] }, Open ]], Cell[37866, 1103, 175, 3, 106, "Input"], Cell[CellGroupData[{ Cell[38066, 1110, 1171, 31, 107, "Input"], Cell[39240, 1143, 1059, 29, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40336, 1177, 143, 2, 77, "Input"], Cell[40482, 1181, 75, 1, 35, "Print"], Cell[40560, 1184, 1058, 29, 92, "Print"], Cell[41621, 1215, 199, 4, 35, "Print"], Cell[41823, 1221, 89, 1, 35, "Print"], Cell[41915, 1224, 2504, 61, 341, "Print"], Cell[44422, 1287, 2505, 61, 353, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46964, 1353, 114, 2, 77, "Input"], Cell[47081, 1357, 1059, 29, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48177, 1391, 122, 2, 77, "Input"], Cell[48302, 1395, 35, 1, 47, "Output"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)