(* 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[ 25929, 767] NotebookOptionsPosition[ 24547, 724] NotebookOutlinePosition[ 24904, 740] CellTagsIndexPosition[ 24861, 737] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["Visualizing Scalar Potentials\n", FontFamily->"Times New Roman", FontSize->28], StyleBox["By Corinne Manogue and Kerry Browne\n", FontFamily->"Times New Roman", FontSize->20, FontSlant->"Italic"], StyleBox["Copyright 2007 Corinne A. Manogue", FontFamily->"Times New Roman", FontSize->20] }], "Text", CellChangeTimes->{{3.520188795592322*^9, 3.520188842185177*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"PlotSection", "[", RowBox[{ "fieldfn_", ",", "xrange_", ",", "yrange_", ",", "zrange_", ",", "numsections_", ",", "frange_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "zmax", ",", "zmin", ",", "sectionsep", ",", "sectionplot", ",", "fmax", ",", "fmin", ",", "zval", ",", "Color", ",", "i", ",", "seqsectionplot"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fmax", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{ "frange", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "frange", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fmin", "=", RowBox[{"Min", "[", RowBox[{ RowBox[{ "frange", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "frange", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"zmax", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{ "zrange", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "zrange", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"zmin", "=", RowBox[{"Min", "[", RowBox[{ RowBox[{ "zrange", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "zrange", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sectionsep", "=", RowBox[{ RowBox[{"(", RowBox[{"zmax", "-", "zmin"}], ")"}], "/", RowBox[{"(", RowBox[{"numsections", "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sectionplot", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"zmin", "+", RowBox[{"sectionsep", "*", RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ "xrange", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "xrange", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{ "yrange", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "yrange", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{".2", "*", "V"}], "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numsections"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"sectionplot", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"xrange", ",", "yrange", ",", "zrange"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.527815481252951*^9, 3.527815604635943*^9}, { 3.527815649725509*^9, 3.527815658755467*^9}, {3.527815693138226*^9, 3.527815713556091*^9}, {3.527815841055865*^9, 3.52781592130096*^9}, { 3.52781620838882*^9, 3.527816271338883*^9}, {3.527816316759461*^9, 3.527816322949725*^9}, {3.527816503652218*^9, 3.527816639423428*^9}, { 3.527816698386111*^9, 3.527816702876912*^9}, {3.527816771472487*^9, 3.527816812143376*^9}, {3.527817141430217*^9, 3.527817249727494*^9}, { 3.527817311161284*^9, 3.527817415270029*^9}, {3.527817681907822*^9, 3.527817721015576*^9}, {3.527817754823106*^9, 3.527817826942315*^9}, { 3.527818044199036*^9, 3.527818044914375*^9}, {3.527818278258038*^9, 3.527818304906249*^9}, {3.527818391412691*^9, 3.527818423543285*^9}, { 3.527818524620878*^9, 3.527818541621481*^9}, {3.527818967500373*^9, 3.527818969965114*^9}, {3.527819026807386*^9, 3.527819043892985*^9}, { 3.527819084039958*^9, 3.527819096711892*^9}, {3.527819396249549*^9, 3.527819400099584*^9}, {3.527819458241029*^9, 3.527819627833174*^9}, { 3.527819937090487*^9, 3.527819949893068*^9}, {3.527821511266669*^9, 3.527821540531955*^9}, {3.527822543174913*^9, 3.527822587176508*^9}, { 3.527823260304032*^9, 3.52782326229087*^9}, 3.527823415189917*^9, { 3.527869427066291*^9, 3.527869438885971*^9}}, FontSize->18], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"PlotMovie", "[", RowBox[{"fieldfn_", ",", "xrange_", ",", "yrange_", ",", "zrange_"}], "]"}], ":=", RowBox[{"Animate", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ "xrange", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "xrange", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{ "yrange", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "yrange", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{".2", "*", "V"}], "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"xrange", ",", "yrange", ",", "zrange"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}]}], FontFamily->"Courier New", FontSize->18]], "Input", InitializationCell->True, CellChangeTimes->{{3.5278204502875*^9, 3.527820450344816*^9}, { 3.527822503641776*^9, 3.527822509001181*^9}, {3.527822598750567*^9, 3.527822702108472*^9}, {3.527823305313439*^9, 3.527823305707566*^9}, 3.527823487728403*^9, {3.527869453256411*^9, 3.5278694616075706`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.520603893691433*^9, 3.5206038942695465`*^9}}], Cell[TextData[{ StyleBox["Here are the potentials due to several different simple charge \ configurations (with ", FontFamily->"Times New Roman", FontSize->22], Cell[BoxData[ FormBox[ StyleBox[ FractionBox[ RowBox[{"|", "q", "|"}], RowBox[{"4", "\[Pi]\[Epsilon]"}]], FontWeight->"Bold"], TraditionalForm]], FontFamily->"Times New Roman", FontSize->22], StyleBox["=1):\n\n1) The potential V around a point charge with Q=4\[Pi]\ \[Epsilon] located at the origin is V= ", FontFamily->"Times New Roman", FontSize->22], Cell[BoxData[ FormBox[ StyleBox[ FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]], FontFamily->"Times New Roman", FontSize->22, FontWeight->"Bold"], TraditionalForm]], FontSize->22], StyleBox[".", FontSize->22] }], "Text", CellChangeTimes->{{3.5206039240502253`*^9, 3.5206040852815046`*^9}, { 3.520604185310834*^9, 3.5206042547782497`*^9}, 3.520604581225107*^9}], Cell[BoxData[ StyleBox[ RowBox[{"V", "=", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}], FontFamily->"Courier New", FontSize->18]], "Input", CellChangeTimes->{ 3.5206042736685123`*^9, {3.520604334214225*^9, 3.5206043535107293`*^9}}], Cell[TextData[{ StyleBox["2) The potential due to a negative point charge with Q=4\[Pi]\ \[Epsilon] located at (5,0,0) is V= ", FontFamily->"Times New Roman", FontSize->22], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"-", "1"}], SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]], TraditionalForm]], FontSize->22] }], "Text", CellChangeTimes->{{3.5206046010528517`*^9, 3.52060474070642*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"V", "=", RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}], FontFamily->"Courier New", FontSize->18]], "Input", CellChangeTimes->{{3.520604745081336*^9, 3.520604776096366*^9}, { 3.5206057663742266`*^9, 3.5206057685616846`*^9}}], Cell[TextData[{ StyleBox["3) The potential due to two positive charges located at (.5,0,0) \ and (-.5,0,0) is V= ", FontFamily->"Times New Roman", FontSize->22], Cell[BoxData[ FormBox[ FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]], TraditionalForm]], FontFamily->"Times New Roman", FontSize->22], StyleBox[" + ", FontFamily->"Times New Roman", FontSize->22], Cell[BoxData[ FormBox[ FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", ".5"}], ")"}], "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]], TraditionalForm]], FontFamily->"Times New Roman", FontSize->22] }], "Text", CellChangeTimes->{{3.520604837892054*^9, 3.5206050691219893`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"V", "=", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], FontFamily->"Courier New", FontSize->18], StyleBox["\[IndentingNewLine]", FontFamily->"Courier New", FontSize->18], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5206050949964924`*^9, 3.5206051314020433`*^9}, { 3.5206070733491325`*^9, 3.5206070746303577`*^9}, 3.5206081336881485`*^9}], Cell[TextData[{ StyleBox["4) A dipole. The potential due to a positive charge at x=.5 and a \ negative charge at x=-.5 is \n V= ", FontFamily->"Times New Roman", FontSize->22], Cell[BoxData[ FormBox[ FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]], TraditionalForm]], FontFamily->"Times New Roman", FontSize->22, FontWeight->"Plain"], StyleBox[" - ", FontFamily->"Times New Roman", FontSize->22], Cell[BoxData[ FormBox[ FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", ".5"}], ")"}], "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]], TraditionalForm]], FontFamily->"Times New Roman", FontSize->22, FontWeight->"Plain"] }], "Text", CellChangeTimes->{{3.52060516437016*^9, 3.520605166104502*^9}, { 3.520605302726879*^9, 3.520605437755536*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"V", "=", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], "-", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], FontFamily->"Courier New", FontSize->18], "\n"}]], "Input", CellChangeTimes->{{3.5206054587238836`*^9, 3.5206054927388554`*^9}}], Cell[TextData[{ StyleBox["5) The Potential due to four positive charges arranged in a \ square.\nV= ", FontFamily->"Times New Roman", FontSize->22], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "2"], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", ".5"}], ")"}], "2"], SuperscriptBox["z", "2"]}]}]]], "+", FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", ".5"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", ".5"}], ")"}], "2"], "+", SuperscriptBox["z", "2"]}]]], "+", FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "2"], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"y", "+", ".5"}], ")"}], "2"], SuperscriptBox["z", "2"]}]}]]], "+", FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", ".5"}], ")"}], "2"], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"y", "+", ".5"}], ")"}], "2"], SuperscriptBox["z", "2"]}]}]]]}], TraditionalForm]], FontFamily->"Times New Roman", FontSize->22] }], "Text", CellChangeTimes->{{3.52019256931674*^9, 3.5201926106753206`*^9}, 3.520605169463813*^9, {3.520607457935498*^9, 3.5206074961066403`*^9}, { 3.5206075408401566`*^9, 3.520607540949529*^9}, {3.5206075763082256`*^9, 3.520607757054755*^9}, {3.5206077898978744`*^9, 3.520607820319165*^9}, { 3.520607869146353*^9, 3.520607869349474*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"V", "=", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "-", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", ".5"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "-", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", ".5"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "+", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", ".5"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "+", ".5"}], ")"}], "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], FontFamily->"Courier New", FontSize->18]], "Input", CellChangeTimes->{{3.520188886168708*^9, 3.5201890402594995`*^9}, 3.520189336878804*^9, {3.520189432017602*^9, 3.520189433642571*^9}}], Cell[TextData[StyleBox["A) Cross-Sections which use color to display the \ value of the potential.", FontFamily->"Times New Roman", FontSize->22]], "Text", CellChangeTimes->{{3.5209578330780363`*^9, 3.5209578363279743`*^9}, { 3.520957882030222*^9, 3.5209579210919714`*^9}, 3.5209579720909925`*^9}], Cell[BoxData[ RowBox[{"PlotSection", "[", RowBox[{"V", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", "5", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527819669207603*^9, 3.527819694794036*^9}, { 3.527819748971609*^9, 3.527819761289881*^9}, {3.52781982238054*^9, 3.52781982294179*^9}}, FontSize->18], Cell["", "Text"], Cell[TextData[StyleBox["B) A horizontal cross-section which shows a contour \ plot of the values of the potential: (You can change which cross-section you \ are displaying by changing the value of z)", FontFamily->"Times New Roman", FontSize->22]], "Text", CellChangeTimes->{{3.520192782218902*^9, 3.5201928451551933`*^9}, { 3.520958002215414*^9, 3.5209580050747337`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"V", "/.", RowBox[{"z", "\[Rule]", "0"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->18]], "Input", CellChangeTimes->{{3.520189051571782*^9, 3.520189071993265*^9}, { 3.52018919255345*^9, 3.5201892345057697`*^9}, {3.5201893444724083`*^9, 3.520189393158973*^9}, {3.520189454470296*^9, 3.5201894886258907`*^9}, { 3.5201896063736296`*^9, 3.5201896395448675`*^9}, {3.5201896821846743`*^9, 3.5201896843408823`*^9}, {3.520189762855*^9, 3.5201897770266027`*^9}, { 3.5201898123852987`*^9, 3.5201898151352463`*^9}, {3.520192860592397*^9, 3.520192898669791*^9}, {3.5201929677934637`*^9, 3.520192978840127*^9}, { 3.520605996510433*^9, 3.520605999729121*^9}, 3.520607976425543*^9, { 3.520958273538329*^9, 3.520958327256048*^9}, {3.527820119683645*^9, 3.527820120233031*^9}, {3.527820177113023*^9, 3.527820182130351*^9}, 3.527820328408436*^9}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.520958295178539*^9, 3.5209583188968334`*^9}}], Cell[TextData[StyleBox["C) A horizontal cross-section which uses the vertical \ axis to display the value of the potential: (Notice that you can change which \ cross-section you are displaying by changing the value of z)", FontFamily->"Times New Roman", FontSize->22]], "Text", CellChangeTimes->{{3.520193256287925*^9, 3.5201933245209894`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5201931692583456`*^9, 3.5201932237104254`*^9}, { 3.5201933391613336`*^9, 3.520193340505058*^9}, 3.5206079790036182`*^9, 3.5206081722186584`*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"V", "/.", RowBox[{"z", "\[Rule]", "0"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], FontFamily->"Courier New", FontSize->18]], "Input", CellChangeTimes->{{3.520189622857688*^9, 3.520189622951436*^9}, 3.5201898703216867`*^9, {3.520189948320189*^9, 3.520189951085761*^9}, { 3.520190057208723*^9, 3.520190083770713*^9}, {3.520190230877264*^9, 3.5201902367052765`*^9}, {3.5201902701421347`*^9, 3.5201903229848704`*^9}, {3.5201903847336845`*^9, 3.520190386655523*^9}, { 3.520193099822179*^9, 3.520193100884659*^9}, {3.520608174702986*^9, 3.520608177531057*^9}, {3.520958940103656*^9, 3.52095910111619*^9}, { 3.520959354830068*^9, 3.520959355376933*^9}, {3.520959438234717*^9, 3.520959453484424*^9}, {3.527820229271602*^9, 3.527820241862883*^9}}], Cell["", "Text"], Cell[TextData[StyleBox["D) Animated cross-sections which use color to display \ the value of the potential:", FontFamily->"Times New Roman", FontSize->22]], "Text", CellChangeTimes->{{3.5209584899404244`*^9, 3.5209585193304853`*^9}}], Cell[BoxData[ RowBox[{"PlotMovie", "[", RowBox[{"V", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.527823466970646*^9, 3.52782347042057*^9}, { 3.527823501829291*^9, 3.527823513670924*^9}}, FontSize->18], Cell[TextData[StyleBox["E) Equipotential surfaces: (Notice that you can \ change the surface you are displaying by changing the value of V in the \ command)", FontFamily->"Times New Roman", FontSize->22]], "Text", CellChangeTimes->{{3.520603822036559*^9, 3.5206038694418983`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"V", "\[Equal]", RowBox[{"-", "4"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->18]], "Input", CellChangeTimes->{{3.5201914011516695`*^9, 3.520191445447694*^9}, { 3.5201922984000664`*^9, 3.52019229900943*^9}, {3.520599988938281*^9, 3.520599990860119*^9}, {3.5206000209376664`*^9, 3.520600068077386*^9}, 3.520600165809885*^9, {3.520605690500684*^9, 3.520605705656643*^9}, 3.5206058154045353`*^9, {3.520605863341115*^9, 3.520605909277733*^9}, 3.5206069424453955`*^9, 3.520958847886677*^9, {3.5209591480059147`*^9, 3.5209591575994797`*^9}, {3.520960523737085*^9, 3.52096052425268*^9}, { 3.527820314545019*^9, 3.527820316956406*^9}, {3.527820640049811*^9, 3.527820663567208*^9}, {3.527820862394862*^9, 3.527820925358515*^9}, { 3.527821107120158*^9, 3.527821134271429*^9}}] }, WindowSize->{836, 676}, WindowMargins->{{18, Automatic}, {16, Automatic}}, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \ 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 408, 12, 95, "Text"], Cell[956, 34, 5014, 116, 404, "Input", InitializationCell->True], Cell[5973, 152, 1812, 48, 163, "Input", InitializationCell->True], Cell[7788, 202, 94, 1, 27, "Input"], Cell[7885, 205, 1059, 35, 189, "Text"], Cell[8947, 242, 451, 15, 35, "Input"], Cell[9401, 259, 556, 18, 88, "Text"], Cell[9960, 279, 555, 18, 35, "Input"], Cell[10518, 299, 938, 33, 88, "Text"], Cell[11459, 334, 1064, 33, 64, "Input"], Cell[12526, 369, 1046, 36, 116, "Text"], Cell[13575, 407, 886, 29, 49, "Input"], Cell[14464, 438, 1829, 58, 88, "Text"], Cell[16296, 498, 1819, 59, 111, "Input"], Cell[18118, 559, 303, 5, 39, "Text"], Cell[18424, 566, 584, 18, 73, "Input"], Cell[19011, 586, 16, 0, 49, "Text"], Cell[19030, 588, 377, 6, 114, "Text"], Cell[19410, 596, 1146, 24, 47, "Input"], Cell[20559, 622, 94, 1, 52, "Input"], Cell[20656, 625, 347, 5, 114, "Text"], Cell[21006, 632, 200, 3, 52, "Input"], Cell[21209, 637, 1162, 26, 78, "Input"], Cell[22374, 665, 16, 0, 49, "Text"], Cell[22393, 667, 236, 4, 81, "Text"], Cell[22632, 673, 444, 14, 73, "Input"], Cell[23079, 689, 283, 5, 81, "Text"], Cell[23365, 696, 1178, 26, 47, "Input"] } ] *) (* End of internal cache information *)