(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 22909, 821] NotebookOptionsPosition[ 22135, 802] NotebookOutlinePosition[ 22574, 819] CellTagsIndexPosition[ 22531, 816] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox["H", FontWeight->"Bold"]}], " ", "=", " ", RowBox[{"J", " ", "+", " ", StyleBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", StyleBox["D", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], StyleBox[ RowBox[{"/", "*"}]], StyleBox["rot", FontSlant->"Italic"]}], FontWeight->"Plain"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["H", FontWeight->"Bold"]}], " ", "=", " ", RowBox[{ RowBox[{ StyleBox["grad", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["div", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain", FontSlant->"Italic"], "H"}], " ", "-", " ", RowBox[{"\[CapitalDelta]", " ", "H"}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["div", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain", FontSlant->"Italic"], "H"}], StyleBox[" ", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["=", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["0", FontWeight->"Plain", FontSlant->"Italic"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"-", " ", "\[CapitalDelta]"}], " ", "H"}], "=", " ", RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", "J"}], " ", "+", RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox["D", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"-", " ", "\[CapitalDelta]"}], " ", "H"}], "=", " ", RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", "\[Gamma]", " ", "E"}], " ", "+", RowBox[{"rot", " ", StyleBox[ FractionBox[ RowBox[{ RowBox[{"\[PartialD]", "\[Epsilon]"}], " ", StyleBox["E", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox["E", FontWeight->"Bold"]}], " ", "=", " ", RowBox[{"-", " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox["B", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"-", " ", "\[CapitalDelta]"}], " ", "H"}], "=", " ", RowBox[{ RowBox[{"\[Gamma]", " ", StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", "E"}], " ", "+", RowBox[{"\[Epsilon]", " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", " "}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"], " ", StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox["E", FontWeight->"Bold"]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"-", " ", "\[CapitalDelta]"}], " ", "H"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"-", "\[Gamma]"}], " ", StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox["B", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}], " ", "+", RowBox[{"\[Epsilon]", " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", " "}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}], " ", "-", " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox["B", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"-", " ", "\[CapitalDelta]"}], " ", "H"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"-", "\[Gamma]"}], " ", StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox["B", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}], " ", "-", RowBox[{"\[Epsilon]", " ", StyleBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "2"], StyleBox["B", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", SuperscriptBox["t", "2"]}]], StyleBox[ RowBox[{"/", "*"}]], RowBox[{"-", "1"}]}], FontWeight->"Plain"]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalDelta]", " ", "H"}], "=", " ", RowBox[{ RowBox[{"\[Gamma]", " ", StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox["B", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}], " ", "+", RowBox[{"\[Epsilon]", " ", StyleBox[ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "2"], StyleBox["B", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", SuperscriptBox["t", "2"]}]], FontWeight->"Plain"]}]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalDelta]", " ", "H"}], "=", " ", RowBox[{ RowBox[{"\[Gamma]", " ", StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox[ FractionBox[ RowBox[{ RowBox[{"\[PartialD]", "\[Mu]"}], " ", StyleBox["H", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}], " ", "+", RowBox[{"\[Epsilon]", " ", StyleBox[ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["\[PartialD]", "2"], StyleBox["\[Mu]", FontWeight->"Bold"]}], StyleBox[" ", FontWeight->"Bold"], StyleBox["H", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", SuperscriptBox["t", "2"]}]], FontWeight->"Plain"]}]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{" ", RowBox[{ RowBox[{"\[CapitalDelta]", " ", "H"}], "=", " ", RowBox[{ RowBox[{"\[Gamma]", " ", "\[Mu]", " ", StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", " ", StyleBox["H", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}], " ", "+", RowBox[{"\[Epsilon]", " ", "\[Mu]", " ", StyleBox[ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "2"], StyleBox["H", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", SuperscriptBox["t", "2"]}]], FontWeight->"Plain"]}]}]}], StyleBox["\[IndentingNewLine]", FontWeight->"Plain"], StyleBox["\[IndentingNewLine]", FontWeight->"Plain"], StyleBox["\[IndentingNewLine]", FontWeight->"Plain"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox["E", FontWeight->"Bold"]}], " ", "=", " ", RowBox[{"-", " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox["B", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ StyleBox["B", FontWeight->"Bold"], StyleBox["=", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Plain"], RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox["E", FontWeight->"Bold"]}], " ", StyleBox["=", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Plain"], RowBox[{ RowBox[{ StyleBox["-", FontWeight->"Plain"], " ", StyleBox[ FractionBox[ RowBox[{ RowBox[{"\[PartialD]", " ", StyleBox["rot", FontSlant->"Italic"]}], StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}], StyleBox["=", FontWeight->"Plain"], StyleBox[ RowBox[{ RowBox[{"-", StyleBox["rot", FontSlant->"Italic"]}], FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], FontWeight->"Plain"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox["E", FontWeight->"Bold"]}], StyleBox["+", FontWeight->"Plain"], StyleBox[ RowBox[{ StyleBox["rot", FontSlant->"Italic"], FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], FontWeight->"Plain"]}], StyleBox["=", FontWeight->"Plain"], StyleBox["0", FontWeight->"Plain"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["E", FontWeight->"Bold"], StyleBox["+", FontWeight->"Plain"], StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}], StyleBox["=", FontWeight->"Plain"], StyleBox[ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], FontWeight->"Plain"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ StyleBox["E", FontWeight->"Bold"], StyleBox["=", FontWeight->"Plain"], StyleBox[ RowBox[{ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], FontWeight->"Plain"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox["H", FontWeight->"Bold"]}], " ", "=", " ", RowBox[{"J", " ", "+", " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", StyleBox["D", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox[ FractionBox["1", "\[Mu]"], FontWeight->"Plain"], StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], " ", "=", " ", RowBox[{ RowBox[{ StyleBox["\[Gamma]", FontWeight->"Plain"], " ", StyleBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], ")"}], FontWeight->"Plain"]}], " ", "+", RowBox[{ StyleBox["\[Epsilon]", FontWeight->"Plain"], " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", " "}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"], " ", StyleBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], ")"}], FontWeight->"Plain"]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], " ", StyleBox["rot", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], " ", StyleBox["=", FontWeight->"Plain"], " ", RowBox[{ RowBox[{ StyleBox["\[Gamma]\[Mu]", FontWeight->"Plain"], " ", StyleBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], ")"}], FontWeight->"Plain"]}], " ", "+", RowBox[{ StyleBox["\[Mu]\[Epsilon]", FontWeight->"Plain"], " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", " "}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"], " ", StyleBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], ")"}], FontWeight->"Plain"]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ StyleBox["grad", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["div", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Plain", FontSlant->"Italic"], "A"}], " ", "-", " ", RowBox[{"\[CapitalDelta]", " ", "A"}]}], StyleBox["=", FontWeight->"Plain"], RowBox[{ RowBox[{ StyleBox["\[Gamma]\[Mu]", FontWeight->"Plain"], " ", StyleBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], ")"}], FontWeight->"Plain"]}], " ", "+", RowBox[{ StyleBox["\[Mu]\[Epsilon]", FontWeight->"Plain"], " ", StyleBox[ FractionBox[ RowBox[{"\[PartialD]", " "}], RowBox[{"\[PartialD]", "t"}]], FontWeight->"Plain"], " ", StyleBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], ")"}], FontWeight->"Plain"]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]", " ", "A"}], StyleBox["=", FontWeight->"Plain"], RowBox[{ StyleBox["\[Gamma]\[Mu]", FontWeight->"Plain"], " ", StyleBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], ")"}], FontWeight->"Plain"]}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"\[CapitalDelta]", " ", "A"}], StyleBox["=", FontWeight->"Plain"], StyleBox[ RowBox[{ RowBox[{"\[Gamma]\[Mu]", " ", StyleBox["grad", FontSlant->"Italic"], " ", "\[CurlyPhi]"}], "-", RowBox[{"\[Gamma]\[Mu]", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}]}], FontWeight->"Plain"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"\[CapitalDelta]", " ", "A"}], StyleBox["=", FontWeight->"Plain"], RowBox[{ RowBox[{ StyleBox["\[Mu]", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Bold"], SubscriptBox[ StyleBox["J", FontWeight->"Bold"], "v"]}], StyleBox["-", FontWeight->"Plain"], StyleBox[ RowBox[{"\[Gamma]\[Mu]", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], FontWeight->"Plain"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ StyleBox["\[Mu]", FontWeight->"Plain"], StyleBox[" ", FontWeight->"Bold"], SubscriptBox[ StyleBox["J", FontWeight->"Bold"], "v"]}], StyleBox["=", FontWeight->"Plain"], RowBox[{ RowBox[{"\[CapitalDelta]", " ", "A"}], StyleBox["+", FontWeight->"Plain"], StyleBox[ RowBox[{"\[Gamma]\[Mu]", FractionBox[ RowBox[{"\[PartialD]", StyleBox[" ", FontWeight->"Plain"], StyleBox["A", FontWeight->"Bold"]}], RowBox[{"\[PartialD]", "t"}]]}], FontWeight->"Plain"]}]}], TraditionalForm], "\[IndentingNewLine]" FormBox[, TraditionalForm]}], "Input", CellChangeTimes->{{3.8563364868312607`*^9, 3.8563368090011697`*^9}, { 3.8563368420752926`*^9, 3.8563368867328653`*^9}, {3.8563369227806025`*^9, 3.8563371178838377`*^9}, {3.8563373268491855`*^9, 3.856337417421795*^9}, { 3.8563383527164984`*^9, 3.856338421355798*^9}, {3.8563384559470153`*^9, 3.856338456317526*^9}, {3.856341062553646*^9, 3.856341117228983*^9}, { 3.856341155811952*^9, 3.8563413924306154`*^9}, {3.856341422835885*^9, 3.8563415323541512`*^9}, {3.8563415661266336`*^9, 3.856341582613662*^9}, { 3.8563416991987915`*^9, 3.8563418300034227`*^9}},ExpressionUUID->"8451804a-16de-4bc3-9f08-\ d2aac37be2f9"], Cell[BoxData[ FormBox[ TemplateBox[{"x", "x"}, "Curl"], TraditionalForm]], "Input", CellChangeTimes->{{3.8563419083998866`*^9, 3.856341939471759*^9}},ExpressionUUID->"e69b3402-a689-49f2-93ca-\ 05a4a9f36b7d"], Cell[BoxData[ FormBox[ TemplateBox[{"x", "x"}, "Curl"], TraditionalForm]], "Input",ExpressionUUID->"7e8218f7-6cf0-4af4-\ 936e-30ea1bf0f20b"], Cell[BoxData[{ RowBox[{ RowBox[{"Curl", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Grad", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.8563420626140013`*^9, 3.8563421127278013`*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"7df2e391-e8d9-4c8a-94c2-7fd9369a1562"], Cell[BoxData[{ FormBox[ TemplateBox[{"x", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}, "Curl"], TraditionalForm], "\n", FormBox[ TemplateBox[{"x", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}, "Grad"], TraditionalForm]}], "Input", CellChangeTimes->{ 3.8563421051978765`*^9},ExpressionUUID->"127afc42-9f12-47b9-bdcb-\ f84d36149de7"] }, WindowSize->{1111.5, 914.25}, WindowMargins->{{Automatic, -1137}, {Automatic, 6}}, Magnification:>1.9 Inherited, FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"59804a3d-279c-4da0-a4ea-204850fd2d2d" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 20327, 735, 1789, "Input",ExpressionUUID->"8451804a-16de-4bc3-9f08-d2aac37be2f9"], Cell[20888, 757, 217, 6, 52, "Input",ExpressionUUID->"e69b3402-a689-49f2-93ca-05a4a9f36b7d"], Cell[21108, 765, 146, 4, 52, "Input",ExpressionUUID->"7e8218f7-6cf0-4af4-936e-30ea1bf0f20b"], Cell[21257, 771, 479, 14, 113, "Input",ExpressionUUID->"7df2e391-e8d9-4c8a-94c2-7fd9369a1562"], Cell[21739, 787, 392, 13, 93, "Input",ExpressionUUID->"127afc42-9f12-47b9-bdcb-f84d36149de7"] } ] *)