(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 23146, 725] NotebookOptionsPosition[ 21104, 667] NotebookOutlinePosition[ 21531, 683] CellTagsIndexPosition[ 21488, 680] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["Divergence", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.5206944506354303`*^9, 3.5206944850566444`*^9}, 3.7315293301747265`*^9, 3.7315293646216965`*^9}, TextAlignment->Center, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]], "Input", FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[{ RowBox[{ RowBox[{"Element", "[", RowBox[{"x", ",", "Reals"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Element", "[", RowBox[{"y", ",", "Reals"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Element", "[", RowBox[{"z", ",", "Reals"}], "]"}], ";"}]}], "Input", FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"v1", "=", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]], "Input", CellChangeTimes->{{3.520694575867401*^9, 3.520694583054763*^9}, { 3.520701009331929*^9, 3.520701015488061*^9}, {3.520701071221366*^9, 3.520701071518235*^9}, {3.520701150219849*^9, 3.52070115148545*^9}, { 3.5207011834379616`*^9, 3.520701183734831*^9}, {3.520701299560732*^9, 3.5207013021856813`*^9}, {3.520701355544032*^9, 3.5207013819497747`*^9}, { 3.520701420902152*^9, 3.5207014285270057`*^9}, {3.5207039633220863`*^9, 3.5207039634627085`*^9}, {3.5207824050565033`*^9, 3.5207824063221035`*^9}}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot", "[", RowBox[{"v1", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "10"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5206945965701284`*^9, 3.5206946571939645`*^9}, { 3.520694817019021*^9, 3.5206948939081697`*^9}, {3.520701075018168*^9, 3.5207011467199163`*^9}, {3.520701187172265*^9, 3.5207012230778255`*^9}, { 3.5207039570097075`*^9, 3.520703960587764*^9}, {3.5207040074462395`*^9, 3.520704028539584*^9}, 3.520782408806431*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"f1", "=", RowBox[{"Div", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5207010280659447`*^9, 3.5207010578466225`*^9}, { 3.5207011584228168`*^9, 3.5207011648601933`*^9}, {3.5207013934808035`*^9, 3.5207014001525507`*^9}, {3.520701442057996*^9, 3.5207014535733995`*^9}, { 3.5207039825404673`*^9, 3.5207039882747326`*^9}, {3.5207048156807213`*^9, 3.5207048171963167`*^9}, 3.731706813693201*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["Now try another vector field:", "Text", CellChangeTimes->{{3.520707599783515*^9, 3.520707610720805*^9}, 3.5213111926872683`*^9, 3.7317067860686207`*^9}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"v2", "=", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]], "Input", CellChangeTimes->{{3.5207033913174443`*^9, 3.520703400926635*^9}, { 3.5207036301566086`*^9, 3.520703630484727*^9}, {3.5207039998370104`*^9, 3.5207040012276087`*^9}, 3.520782411009514*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot", "[", RowBox[{"v2", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "10"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5207034123014164`*^9, 3.520703484925022*^9}, { 3.5207035477050667`*^9, 3.5207035655797234`*^9}, {3.520703633875287*^9, 3.5207036418595085`*^9}, 3.52070400482129*^9, {3.5207040415080853`*^9, 3.520704062773302*^9}, 3.5207824128844776`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"f2", "=", RowBox[{"Div", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "0"}], "}"}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5207035754389095`*^9, 3.5207036242660966`*^9}, { 3.520703893917169*^9, 3.5207039313070765`*^9}, {3.520704069398175*^9, 3.520704071523134*^9}, {3.5207048224149666`*^9, 3.520704824008686*^9}, 3.731706816548364*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["Now try another field:", "Text", CellChangeTimes->{{3.520704132428215*^9, 3.5207041384280996`*^9}, 3.521311201155855*^9, 3.7317067847165437`*^9}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"v3", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"y", "^", "2"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.520704141006175*^9, 3.5207041567714972`*^9}, 3.5207824157594223`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot", "[", RowBox[{"v3", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "10"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5207041726930666`*^9, 3.520704195786373*^9}, 3.520782419790595*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"f3", "=", RowBox[{"Div", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"y", "^", "2"}]}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5207042308482*^9, 3.520704286878374*^9}}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"f3", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.520704289909566*^9, 3.520704354908318*^9}, 3.7317068180124483`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["Now try another vector field:", "Text", CellChangeTimes->{{3.520704457765718*^9, 3.520704465953061*^9}, 3.521311229405313*^9, 3.7317067832134576`*^9}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"v4", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"x", "^", "2"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.52070448682766*^9, 3.520704505155433*^9}, 3.5207824247748747`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot", "[", RowBox[{"v4", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "10"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5207045084522448`*^9, 3.52070453320177*^9}, 3.520782427665444*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"f4", "=", RowBox[{"Div", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"x", "^", "2"}]}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.520704546357767*^9, 3.520704587185108*^9}, 3.731706819060508*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["Now try another vector field:", "Text", CellChangeTimes->{{3.520707621220604*^9, 3.520707627048617*^9}, 3.521311254357959*^9, 3.731706782325407*^9}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"v5", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "y"}], ",", "x"}], "}"}]}]], "Input", CellChangeTimes->{{3.5207046287936845`*^9, 3.5207046391841097`*^9}, 3.5207824311653767`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot", "[", RowBox[{"v5", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "10"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5207046496682835`*^9, 3.5207046515432477`*^9}, { 3.5207046959642696`*^9, 3.5207047191669493`*^9}, 3.5207824327903457`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"f5", "=", RowBox[{"Div", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "y"}], ",", "x", ",", "0"}], "}"}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.520704750213228*^9, 3.520704773072164*^9}, { 3.5207048074308796`*^9, 3.520704808758979*^9}, 3.731706819837552*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["Now try another vector field:", "Text", CellChangeTimes->{{3.5207047910249443`*^9, 3.520704800227893*^9}, 3.5213112787012415`*^9, 3.7317067811493397`*^9}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"v6", "=", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", "*", "y"}], "]"}], ",", "y"}], "}"}]}]], "Input", CellChangeTimes->{{3.5207048022747283`*^9, 3.520704803805949*^9}, { 3.5207048349303513`*^9, 3.520704853117502*^9}, 3.520782437134012*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot", "[", RowBox[{"v6", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "10"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.520704886335614*^9, 3.5207048993041153`*^9}, { 3.5207049325534773`*^9, 3.5207049373815093`*^9}, 3.520782438962102*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"f6", "=", RowBox[{"Div", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", "*", "y"}], "]"}], ",", "y", ",", "0"}], "}"}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5207049831931295`*^9, 3.520705022426751*^9}, 3.7317068206525993`*^9, 3.7317068677562933`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"f6", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5207048777732787`*^9, 3.520704880898219*^9}, { 3.5207050558636093`*^9, 3.520705094222248*^9}, 3.520707644235787*^9, { 3.520707858309801*^9, 3.520707863575325*^9}, {3.520707900668363*^9, 3.5207079069338675`*^9}, 3.731706779813263*^9, 3.7317068669562473`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["Now try another vector field:", "Text", CellChangeTimes->{{3.5207076595479927`*^9, 3.520707666250989*^9}, { 3.521311338371971*^9, 3.5213113395906973`*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"v7", "=", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}]], "Input", CellChangeTimes->{{3.5207051566272993`*^9, 3.5207051667208557`*^9}, 3.520707649579434*^9, 3.52078244480574*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot3D", "[", RowBox[{"v7", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "5"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.520705170673905*^9, 3.520705172298874*^9}, { 3.520705233969565*^9, 3.520705302796368*^9}, 3.520782446665079*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"f7", "=", RowBox[{"Div", "[", RowBox[{"v7", ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5207053887790923`*^9, 3.5207054193097563`*^9}, 3.520782449711896*^9, 3.731706822140684*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["Now try another vector field.", "Text", CellChangeTimes->{{3.520705428747075*^9, 3.5207054338719764`*^9}, 3.5213113362938857`*^9, 3.731706778253174*^9}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"v8", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]], "Input", CellChangeTimes->{{3.5207054374656577`*^9, 3.520705445840497*^9}, 3.520782453180579*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot3D", "[", RowBox[{"v8", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "5"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.520705449059185*^9, 3.5207054709181404`*^9}, { 3.5207055156360316`*^9, 3.520705542713637*^9}, 3.5207824547742987`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"f8", "=", RowBox[{"Div", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5207055619476423`*^9, 3.520705584150341*^9}, 3.7317068236847725`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["Now try another vector field:", "Text", CellChangeTimes->{{3.520707711453246*^9, 3.520707717718751*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"v9", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.5207056007593975`*^9, 3.520705624212072*^9}, 3.5207077022034235`*^9, 3.520782457133628*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"Efield", "=", RowBox[{"Grad", "[", RowBox[{ RowBox[{"-", "v9"}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.520705633899386*^9, 3.5207056885077124`*^9}, 3.5207081000395355`*^9, 3.520782459492958*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"VectorPlot3D", "[", RowBox[{"Efield", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"VectorPoints", "\[Rule]", "5"}], ",", RowBox[{"VectorScale", "\[Rule]", "Small"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.520705718304015*^9, 3.520705723210171*^9}, { 3.5207058969412107`*^9, 3.520705928362482*^9}}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"f9", "=", RowBox[{"Div", "[", RowBox[{"Efield", ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5207060243293896`*^9, 3.520706059922456*^9}, { 3.520706516054323*^9, 3.520706516788684*^9}}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{"Simplify", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.520706071719105*^9, 3.52070607665651*^9}, { 3.5207062694184337`*^9, 3.520706271121526*^9}}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ RowBox[{ RowBox[{"Div", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"r", "^", "2"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Spherical", "[", RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5207065304915457`*^9, 3.5207065990527296`*^9}, 3.7315293424444284`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell["\<\ By Corinne Manogue Copyright 1997 Corinne Manogue\ \>", "Text", CellChangeTimes->{3.7315293405073175`*^9}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, WindowSize->{2560, 1388}, WindowMargins->{{-9, Automatic}, {Automatic, -9}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 289, 8, 56, "Text"], Cell[837, 30, 152, 5, 43, "Input"], Cell[992, 37, 141, 4, 43, "Input"], Cell[1136, 43, 383, 12, 114, "Input"], Cell[1522, 57, 671, 13, 43, "Input"], Cell[2196, 72, 917, 22, 43, "Input"], Cell[3116, 96, 701, 17, 79, "Input"], Cell[3820, 115, 248, 5, 57, "Text"], Cell[4071, 122, 354, 9, 43, "Input"], Cell[4428, 133, 840, 21, 43, "Input"], Cell[5271, 156, 591, 16, 79, "Input"], Cell[5865, 174, 241, 5, 57, "Text"], Cell[6109, 181, 334, 11, 43, "Input"], Cell[6446, 194, 663, 19, 43, "Input"], Cell[7112, 215, 450, 14, 43, "Input"], Cell[7565, 231, 611, 19, 79, "Input"], Cell[8179, 252, 246, 5, 57, "Text"], Cell[8428, 259, 331, 11, 43, "Input"], Cell[8762, 272, 662, 19, 43, "Input"], Cell[9427, 293, 526, 17, 79, "Input"], Cell[9956, 312, 244, 5, 57, "Text"], Cell[10203, 319, 276, 9, 43, "Input"], Cell[10482, 330, 717, 19, 43, "Input"], Cell[11202, 351, 508, 15, 79, "Input"], Cell[11713, 368, 250, 5, 57, "Text"], Cell[11966, 375, 358, 10, 43, "Input"], Cell[12327, 387, 713, 19, 43, "Input"], Cell[13043, 408, 482, 14, 43, "Input"], Cell[13528, 424, 864, 22, 79, "Input"], Cell[14395, 448, 249, 5, 57, "Text"], Cell[14647, 455, 285, 8, 43, "Input"], Cell[14935, 465, 808, 22, 43, "Input"], Cell[15746, 489, 401, 12, 79, "Input"], Cell[16150, 503, 248, 5, 57, "Text"], Cell[16401, 510, 262, 8, 43, "Input"], Cell[16666, 520, 814, 22, 43, "Input"], Cell[17483, 544, 441, 14, 79, "Input"], Cell[17927, 560, 196, 4, 57, "Text"], Cell[18126, 566, 501, 16, 43, "Input"], Cell[18630, 584, 383, 11, 43, "Input"], Cell[19016, 597, 791, 22, 43, "Input"], Cell[19810, 621, 361, 10, 43, "Input"], Cell[20174, 633, 238, 6, 43, "Input"], Cell[20415, 641, 480, 15, 79, "Input"], Cell[20898, 658, 202, 7, 87, "Text"] } ] *)