(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 158524, 4577]*) (*NotebookOutlinePosition[ 164065, 4704]*) (* CellTagsIndexPosition[ 163945, 4697]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Electrodynamica", "Title"], Cell["a program for simulating electromagnetic fields", "Subtitle"], Cell["Terje Vold", "Author"], Cell["Continuum Technology, Inc.", "Affiliation"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Why Write An Electrodynamics Simulation Program? \ \>", "Section"], Cell["Personal Professional Need", "Text", FontSize->18], Cell["Market Need", "Text", FontSize->18], Cell["Beautiful Physics and Mathematics", "Text", FontSize->18], Cell["An Unexploited Method Exists", "Text", FontSize->18], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ What Electrodynamica can Simulate \ \>", "Section"], Cell["\<\ Space filled with piecewise homogeneous volumes with linear electromagnetic response (permittivity \[Epsilon] and \ permeability \[Mu]) \ \>", "Text", FontSize->18], Cell["\<\ Complicated irregularly shaped volumes, mixed types of materials, any \ frequency \ \>", "Text", FontSize->18], Cell["\<\ Input = Shapes, perms \[Epsilon] and \[Mu], and source charge and current Fundamental output = fields Secondary output = impedance, energy, power\ \>", "Text", FontSize->18], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["The unexploited method: Geometric Algebra", "Section"], Cell[TextData[{ StyleBox["Geometric algebra is a Clifford algebra with a geometric \ interpretation.\n", FontSize->16], StyleBox["\nIt contains conventional (Gibbs') vector algebra as a \ subsystem.\n\nElements of the algebra, called multivectors, \nare sums of \ scalars, vectors, pseudovectors, and pseudoscalars, \nmuch as complex numbers \ are sums of scalars and imaginary number. \n\nThe geometric product is \ associative but not commutative (like matrix multiplication).\n\nThe \ symmetric part of the geometric product of two vectors is the same as the \ conventional dot product. \n\nThe antisymmetric part of the geometric product \ of two vectors corresponds to the cross product. \n\nThe product's \ associativity allows important results from real analysis to apply.\n\nThe \ square of any pseudoscalar or any pseudovector equals -1.\n\nThe algebra has \ an 8x8 matrix representation. \n", FontSize->16] }], "Text", FontSize->18], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Maxwell's equations", "Section"], Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", StyleBox["\t\t", FontSize->24], StyleBox[\(\((\(\[Del]\& \[RightVector] \)\ \(+\ \ \ \[PartialD]\_t\))\) F\ = \ S\), FontSize->24]}], TraditionalForm]], "DisplayFormula", FormatType->StandardForm], Cell[TextData[StyleBox["where", FontSize->16]], "Text"], Cell[BoxData[ FormBox[ RowBox[{"\t\t\t\t", StyleBox[\(F\ = \(E\& \[RightVector] \)\ + \(\(I\) \( B\& \[RightVector] \)\(\ \)\)\), FontSize->16]}], TraditionalForm]], "DisplayFormula", FormatType->StandardForm], Cell[TextData[StyleBox["and", FontSize->16]], "Text"], Cell[BoxData[ FormBox[ RowBox[{"\t\t\t\t", StyleBox[\(S\ = \(\(\(\[Rho]\)\(\ \)\)\(-\)\(j\& \[RightVector] \)\(\ \ \)\)\), FontSize->16]}], TraditionalForm]], "DisplayFormula", FormatType->StandardForm], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Maxwell's equations expanded", "Section"], Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{ StyleBox[\(Explicitly\ write\ all\ four\ grades\), FontSize->18], StyleBox["\[IndentingNewLine]", FontSize->16], StyleBox["\[IndentingNewLine]", FontSize->16], StyleBox[ RowBox[{"\t", StyleBox["\t\t\t", FontSize->16]}]], StyleBox[\(\(\[Del]\& \[RightVector] \)\(\(\[CenterDot]\)\(E\& \ \[RightVector] \)\) = \[Rho]\), FontSize->16], StyleBox["\n", FontSize->16], StyleBox[ RowBox[{"\t", StyleBox["\t\t\t", FontSize->16]}]], StyleBox[\(\(\(\(\(\[Del]\& \[RightVector] \)\(\(\[CenterDot]\)\((I\ \ \(B\& \[RightVector] \))\)\)\)\(\ \)\)\(+\)\(\ \)\(\[PartialD]\_t\( E\& \[RightVector] \)\)\(\ \)\) = \ \(-\(j\& \ \[RightVector] \)\)\), FontSize->16], StyleBox["\n", FontSize->16], StyleBox[ RowBox[{"\t", StyleBox["\t\t\t", FontSize->16]}]], StyleBox[\(\(\(\(\(\[Del]\& \[RightVector] \)\(\[Wedge]\(E\& \ \[RightVector] \)\)\)\(\ \)\)\(+\)\(\ \)\(\[PartialD]\_t\((I\ \(B\& \ \[RightVector] \))\)\)\(\ \)\) = \ 0\), FontSize->16], StyleBox["\n", FontSize->16], StyleBox[ RowBox[{"\t", StyleBox["\t\t\t", FontSize->16]}]], StyleBox[\(\(\[Del]\& \[RightVector] \)\(\[Wedge]\((I\ \(B\& \ \[RightVector] \))\)\)\ = \ 0\), FontSize->16]}]}], TraditionalForm]], "DisplayFormula", FormatType->StandardForm], Cell[BoxData[{ FormBox[ StyleBox[\(Use\ the\ identities\), FontSize->18], TraditionalForm], "\n", FormBox[ StyleBox[ RowBox[{"\t\t\t\t", FormBox[\(\(a\& \[RightVector] \)\[CenterDot]\((I\ \(b\& \ \[RightVector] \))\)\ = \ I\ \((\(a\& \[RightVector] \)\[Wedge]\(b\& \[RightVector] \))\)\ \), "TraditionalForm"]}], FontSize->16], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{"\t\t\t\t", FormBox[ StyleBox[\(\(a\& \[RightVector] \)\[Wedge]\((I\ \(b\& \ \[RightVector] \))\)\ = \ I\ \((\(a\& \[RightVector] \)\[CenterDot]\(b\& \[RightVector] \ \))\)\), FontFamily->"Times"], "TraditionalForm"]}], FontSize->16], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[\(and\ the\ relationship\), FontSize->18], TraditionalForm], "\n", FormBox[ StyleBox[ RowBox[{"\t\t\t\t", FormBox[\(\(I\ \(a\& \[RightVector] \)\)\[Times]\(b\& \ \[RightVector] \)\ = \ \(a\& \[RightVector] \)\[Wedge]\(b\& \[RightVector] \ \)\), "TraditionalForm"]}], FontSize->16], TraditionalForm]}], "DisplayFormula", FormatType->StandardForm], Cell[BoxData[{ FormBox[ StyleBox[\(to\ rewrite\ as\), FontSize->18], TraditionalForm], "\[IndentingNewLine]", FormBox[ StyleBox[ RowBox[{"\t\t\t\t", FormBox[\(\(\(\[Del]\& \[RightVector] \)\(\(\[CenterDot]\)\(E\& \ \[RightVector] \)\) = \[Rho]\)\n\t\t\t\t\(\(\(\(\[Del]\& \[RightVector] \ \)\(\(\(\[Times]\)\(\ \)\) \(B\& \[RightVector] \)\)\)\(\ \)\(-\)\(\ \)\(\ \[PartialD]\_t\( E\& \[RightVector] \)\)\(\ \)\) = \ \(j\& \ \[RightVector] \)\)\n\t\t\t\t\(\(\(\(\[Del]\& \[RightVector] \)\(\(\[Times]\)\ \(E\& \[RightVector] \)\)\)\(\ \)\(+\)\(\ \)\(\[PartialD]\_t\( B\& \[RightVector] \)\)\(\ \)\) = \ 0\)\n\t\t\t\t\(\(\[Del]\& \[RightVector] \)\(\(\(\[CenterDot]\ \)\(\ \)\) \(B\& \[RightVector] \)\)\ = \ 0\)\), "TraditionalForm"]}], FontSize->16], TraditionalForm]}], "DisplayFormula"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Maxwell's equations in homogeneous linear media", "Section"], Cell[TextData[{ StyleBox["\n\t\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\((\(\[Del]\& \[RightVector] \)\ \(+\ \(1\/v\)\) \ \[PartialD]\_t)\)\ f = s\)], FontFamily->"Times", FontSize->18], StyleBox[" ", FontSize->18], StyleBox["\n\n", FontFamily->"Times", FontSize->18], StyleBox["where", FontSize->16], StyleBox["\n", FontFamily->"Times", FontSize->16], StyleBox["\t\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`f\ = \ \(e\& \[RightVector] \)\ + \ \(\(\(I\)\(\ \ \)\) \(b\& \[RightVector] \)\(\ \)\)\)], FontFamily->"Times", FontSize->16], StyleBox[" \n", FontFamily->"Times", FontSize->16], StyleBox["with\n", FontSize->16], StyleBox["\t\t\t ", FontFamily->"Times", FontSize->18], Cell[BoxData[ StyleBox[\(\(e\& \[RightVector] \) = \(\@\[Epsilon]\) \(E\& \ \[RightVector] \)\), FontSlant->"Italic"]], FontFamily->"Times", FontSize->16], StyleBox["\n", FontSize->16], StyleBox["and\n", FontSize->16], "\t\t\t ", Cell[BoxData[ StyleBox[\(\(b\& \[RightVector] \)\ \ = \(\@\(1\/\[Mu]\)\) \(B\& \ \[RightVector] \)\), FontSlant->"Italic"]], FontFamily->"Times", FontSize->16], StyleBox[" \n", FontFamily->"Times", FontSize->16], StyleBox["and\n", FontSize->16], StyleBox["\t\t ", FontSize->18], Cell[BoxData[ FormBox[ StyleBox[\(s\ \ \[Congruent] \ \ \(1\/\@\[Epsilon]\) \[Rho]\ \ \ - \ \ \ \ \(\(\@\[Mu]\) \(j\& \[RightVector] \)\(\ \)\)\), FontFamily->"Times"], TraditionalForm]], FontSize->16], StyleBox[" .\n\n", FontSize->16], StyleBox["Or, using", FontSize->16], StyleBox["\n", FontFamily->"Times", FontSize->16], StyleBox["\t\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\(\(\ \)\(f[r, t] = f[r] Exp[\(-\[ImaginaryI]\)\ \[Omega]\ t]\)\)\)], FontFamily->"Times", FontSize->16], StyleBox["\n\n", FontSize->16], StyleBox["we have\n", FontSize->16], StyleBox["\t", FontSize->24], StyleBox["\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\((\(\[Del]\& \[RightVector] \)\ \(-\ \ \[ImaginaryI]\)\ \[Kappa])\)\ f = s\)], FontFamily->"Times", FontSize->18], StyleBox["\n", FontSize->18] }], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Maxwell's equations at boundaries", "Section"], Cell[TextData[{ StyleBox["\n", FontFamily->"Times", FontSize->18], StyleBox["\t\t", FontFamily->"Times", FontSize->24], Cell[BoxData[ \(TraditionalForm\`\(\(\(\[Rho]\_r\%R[\ \(f\^R\)[\(r\& \[RightVector] \ \)]]\)\(\ \)\)\(-\)\(\ \)\(\[Rho]\_r\%L[\ \(f\^L\)[\(r\& \[RightVector] \ \)]]\)\(\ \)\) = \ \(1\/2\) \((\(u\&^\)\_r\%R\ - \ \(u\&^\)\_r\%L)\)\ \ \[Theta]\_r\)], FontFamily->"Times", FontSize->18], StyleBox[" \n\n", FontFamily->"Times", FontSize->18], StyleBox["where", FontSize->16], StyleBox["\n", FontFamily->"Times", FontSize->16], StyleBox["\t\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\[Theta]\_r\ \[Congruent] \ \[Sigma]\_r\ - \ \ \[InvisiblePrefixScriptBase]\(\(\[Kappa]\& \[RightVector] \)\_r\)\)], FontFamily->"Times", FontSize->18], StyleBox["\n", FontFamily->"Times", FontSize->18] }], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Statement of the Problem: ", "Section"], Cell[TextData[{ StyleBox["\n\t", FontFamily->"Times", FontSize->24], StyleBox["find field values that satisfy Maxwell's equation everywhere", FontSize->18] }], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Green's Theorem", "Section"], Cell[TextData[{ StyleBox["\n", FontFamily->"Times", FontSize->18], StyleBox["Maxwell's equation in a volume V is equivalent to", FontSize->18], StyleBox["\n", FontSize->16], "\n", StyleBox["\t\t", FontSize->24], Cell[BoxData[ FormBox[ StyleBox[\(f[\(r\& \[RightVector] \)\^\[Prime]] = \ \[ContourIntegral]\_\(\[PartialD]V\)g[\(r\& \[RightVector] \) - \(r\& \ \[RightVector] \)\^\[Prime]] d \( \[Sigma]\& \[RightVector] \)\ f[\(r\& \[RightVector] \ \)]\ + \ \[Integral]\_V\ g[\(r\& \[RightVector] \) - \(r\& \[RightVector] \)']\ \ d\ \[Tau]\ s[\(r\& \[RightVector] \)]\), FontFamily->"Times"], TraditionalForm]], FontSize->18], StyleBox["\n\non the boundary \[PartialD]V of the volume,\n\nwhere ", FontSize->18], StyleBox["\n\t\t\t\t", FontSize->14], Cell[BoxData[ FormBox[ RowBox[{ StyleBox[\(g[\(r\& \[RightVector] \)]\), FontFamily->"Times"], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{\(\[Del]\& \[RightVector] \), StyleBox[" ", FontWeight->"Bold"], \(-\ \ \[ImaginaryI]\)}], " ", "\[Kappa]"}], ")"}], RowBox[{"\[Phi]", StyleBox["[", FontFamily->"Times"], StyleBox[\(r\& \[RightVector] \), FontFamily->"Times"], StyleBox["]", FontFamily->"Times"]}]}]}], TraditionalForm]], FontSize->18], StyleBox["\n\t\t\t\t\n\t\t\t", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\[Phi][\(r\& \[RightVector] \)] = \ \(-\(1\/\(4\ \ \[Pi]\ r\)\)\)\ Exp[\[ImaginaryI]\ \[Kappa]\ r]\)], FontFamily->"Times", FontSize->18], StyleBox[" \n", FontFamily->"Times", FontSize->18], StyleBox["\t\t\n", FontSize->14], StyleBox["and", FontSize->18], StyleBox[" ", FontSize->36], Cell[BoxData[ FormBox[ StyleBox["s", FontFamily->"Times"], TraditionalForm]], FontSize->18], StyleBox[" is the density of charge and current sources in volume V. ", FontSize->18] }], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Green's Theorem Expressions Compared ", "Section"], Cell[TextData[{ StyleBox["\n", FontFamily->"Times", FontSize->18], StyleBox["Conventional (Gibbs') Vector Algebra", FontSize->18], StyleBox["\t\t\n\t\n\n\t\t ", FontFamily->"Times"], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{\(\(E\& \[RightVector] \)[\(r\& \[RightVector] \)']\), StyleBox["=", FontFamily->"Times"], RowBox[{ StyleBox[\(\[ContourIntegral]\_\(\[PartialD]V\)\), FontFamily->"Times"], RowBox[{ RowBox[{ StyleBox["[", FontFamily->"Times"], RowBox[{ RowBox[{ StyleBox[\(-\[ImaginaryI]\), FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["\[Omega]", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["\[Mu]", FontFamily->"Times"], StyleBox[" ", FontFamily-> "Times"], \((\(n\& \[RightVector] \)\[Times]\(H\& \ \[RightVector] \))\), "\[Phi]"}], " ", "+", \(\(\((\(n\& \[RightVector] \)\[Times]\(E\& \ \[RightVector] \))\)\[Times]\(\[Del]\& \[RightVector] \)\) \[Phi]\), " ", "+", " ", \(\((\(n\& \[RightVector] \)\[CenterDot]\(E\& \ \[RightVector] \))\) \(\[Del]\& \[RightVector] \)\[Phi]\)}], "]"}], " ", StyleBox[ RowBox[{"d", StyleBox["\[Sigma]", FontFamily->"Times"]}]]}]}]}], StyleBox[" ", FontFamily->"Times"]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"\t"}], TraditionalForm]}], FontFamily->"Times", FontSize->18], "\n\t\t", Cell[BoxData[ FormBox[ RowBox[{\(\(H\& \[RightVector] \)[\(r\& \[RightVector] \)']\), StyleBox["=", FontFamily->"Times"], RowBox[{ StyleBox[\(\[ContourIntegral]\_\(\[PartialD]V\)\), FontFamily->"Times"], RowBox[{ RowBox[{ StyleBox["[", FontFamily->"Times"], RowBox[{ RowBox[{ StyleBox["\[ImaginaryI]", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["\[Omega]", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["\[Epsilon]", FontFamily->"Times"], StyleBox[" ", FontFamily-> "Times"], \((\(n\& \[RightVector] \)\[Times]\(E\& \ \[RightVector] \))\), "\[Phi]"}], " ", "+", " ", \(\(\((\(n\& \[RightVector] \)\[Times]\(H\& \ \[RightVector] \))\)\[Times]\(\[Del]\& \[RightVector] \)\) \[Phi]\), " ", "+", " ", \(\((\(n\& \[RightVector] \)\[CenterDot]\(H\& \ \[RightVector] \))\) \(\[Del]\& \[RightVector] \)\[Phi]\)}], "]"}], " ", StyleBox[ RowBox[{"d", StyleBox["\[Sigma]", FontFamily->"Times"]}]], StyleBox[" ", FontFamily->"Times"]}]}]}], TraditionalForm]], FontFamily->"Times", FontSize->18], StyleBox["\n", FontSize->18], StyleBox["\n\n", FontSize->16], StyleBox["Geometric Algebra\n\n", FontSize->18], StyleBox["\t\t\t\t", FontSize->16], Cell[BoxData[ FormBox[ StyleBox[\(f[\(r\& \[RightVector] \)'] = \[ContourIntegral]\_\(\(\ \)\ \(\[PartialD]V\)\)\ g\ d \( \[Sigma]\& \[RightVector] \)\ f\), FontFamily->"Times"], TraditionalForm]], FontSize->18], StyleBox[" . \n", FontSize->18] }], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Restatement of the Problem", "Section"], Cell[TextData[{ StyleBox["Satisfy\n", FontSize->18], StyleBox["\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\(\(\(\(\(f\^\(\(\(\ \)\(h\)\)\(\ \)\)\)[\(r\& \ \[RightVector] \)]\)\(\ \)\)\(\ \)\)\(-\)\(\ \)\(\ \)\(\[ContourIntegral]\_\(\ \[PartialD]V\)\ \(g\^V\)[\(r\& \[RightVector] \)\^\[Prime] - \(r\& \ \[RightVector] \)]\ \ d \( \[Sigma]\& \[RightVector] \)\^\[Prime]\ \ \(f\^\(\(\(\ \)\(H[r\^\[Prime], V]\)\)\(\ \)\)\)[\(r\& \[RightVector] \)\^\[Prime]]\)\(\ \ \)\(\ \)\) = \ \[Integral]\_V\ \(\(\(g\^V\)[\(r\& \[RightVector] \)\^\ \[Prime] - \(r\& \[RightVector] \)]\) \(\(\ \)\(\ \)\) \ \(d\[Tau]\^\[Prime]\)\(\ \)\(\(s\^V\)[\(r\& \[RightVector] \)\^\[Prime]]\)\(\ \ \)\)\)], FontFamily->"Times", FontSize->18], StyleBox["\n", FontSize->18], StyleBox["and\n", FontSize->18], StyleBox["\t\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\(\(\(\[Rho]\_r\%R[\ \(f\^R\)[\(r\& \[RightVector] \ \)]]\)\(\ \)\)\(-\)\(\ \)\(\[Rho]\_r\%L[\ \(f\^L\)[\(r\& \[RightVector] \ \)]]\)\(\ \)\) = \ \(1\/2\) \((u\_r\%R\ - \ u\_r\%L)\)\ \[Theta]\_r\)], FontFamily->"Times", FontSize->18], StyleBox[" \n", FontFamily->"Times", FontSize->18], StyleBox["\t\t\t\n", FontFamily->"Times", FontSize->16], StyleBox["on all boundaries. \n", FontSize->18] }], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Discretization", "Section"], Cell[TextData[{ StyleBox["\nFind surface field values f that satisfy \n\n\n\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\(\(\(\[Sum]\_\(j = 1\)\%N\(\[Sum]\_\(g = R, \ L\)\(M\_\(\(\ \)\(i\ j\)\)\%\(\(\ \)\(h\ g\)\)\) f\_j\%\(\(\ \)\(g\)\)\)\)\(\ \)\)\(=\)\(\ \)\(B\_i\%\(\(\ \)\(h\ \)\)\)\(\ \)\)\)], FontFamily->"Times", FontSize->18], StyleBox[",\t\t\ti \[Epsilon] {1,2,...,N}, h \[Epsilon] {R, L}\n\n", FontFamily->"Times", FontSize->18], StyleBox["and\n\n", FontSize->18], StyleBox["\t\t", FontFamily->"Times", FontSize->18], Cell[BoxData[ \(TraditionalForm\`\(\(\(N\_i\%R\) f\_i\%R\)\(-\)\(\(N\_i\%L\) f\_i\%L\)\(\ \)\) = \ C\_i\%R - C\_i\%L\)], FontFamily->"Times", FontSize->18], StyleBox[",\t\t\ti \[Epsilon] {1,2,...,N}. \n", FontFamily->"Times", FontSize->18] }], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Solution", "Section"], Cell[TextData[StyleBox["\nWe have 3N multivector equations and 2N unknown \ multivectors;\n\neither make these numbers equal and solve, or minimize total \ squared error", FontSize->18]], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Example 1: Some Simple Shapes", "Section"], Cell[CellGroupData[{ Cell["Description of Shapes and Sources for Example 1", "Subsubsection", FontSize->16], Cell["\<\ Simple Shapes to test and demonstrate the simultaneous exercise of a number \ of capabilities of Electrodynamica: \ta sphere with a permittivity \[Epsilon] = 3 and permeability \[Mu]=10 \ta cube with both permittivity \[Epsilon]=1 and permeability \[Mu]=1, \t\tand with a dipole surface charge and current distribution. \ta pair of ring-shapes surfaces with current (Helmholz coils) \ta cylindrical standing wave generating a small oscillating electric field \t \tAll sources are oscillating at a low frequency of 1/1000, \tin units such that the sphere's radius is 1 and the speed of light is c=1. \ \ \>", "Text", FontSize->18], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[{ StyleBox["The sphere is a ", FontSize->14], StyleBox["Mathematica", FontSize->14, FontSlant->"Italic"], StyleBox[" Shape: ", FontSize->14] }], "Text"], Cell[BoxData[ \(<< Graphics`Shapes`\)], "Input", InitializationCell->True], Cell[BoxData[ \(testSphere = \ Sphere[1, 6, 5]\ ; \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Show[Graphics3D[testSphere]]\)], "Input"], Cell[BoxData[ TagBox[\(\(\[SkeletonIndicator] Graphics3D\) \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[StyleBox["We set its permittivity to 3 and permeability to 10: \ ", FontSize->14]], "Text"], Cell[BoxData[ \(testSpherePerm = {3, 10}; \)], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["We also define a pair of rings and a cube; a plot of \ all surfaces in this example 1 is below. ", FontSize->14]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Show[\(Graphics3D[\ surfaceList[ testu]\ ]\)\(,\)\(PlotRange \[Rule] {{\(-15\), 15}, {\(-12\), 12}, {\(-12\), 12}}\)\(,\)\(ViewPoint \[Rule] {1, \(-6\), 1.5}\)\(\ \)]\)], "Input"], Cell[BoxData[ TagBox[\(\(\[SkeletonIndicator] Graphics3D\) \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["Before solving, we look at the applied field due to \ the Helmholz coils.", FontSize->14]], "Text"], Cell[BoxData[ \(Show[\ helmholzPVFListMagneticPlot, Graphics3D[\ surfaceList[testu]\ ], DisplayFunction \[Rule] $DisplayFunction, PlotRange \[Rule] {{\(-30\), 30}, {\(-30\), 30}, {\(-30\), 30}}, ViewPoint \[Rule] {1, \(-5\), 2}]; \)], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["For the electric field, we have", FontSize->14]], "Text"], Cell[BoxData[ \(Show[Graphics3D[\ surfaceList[testu]\ ], helmholzPVFListElectricPlot, DisplayFunction \[Rule] $DisplayFunction, PlotRange \[Rule] {{\(-30\), 30}, {\(-30\), 30}, {\(-30\), 30}}, ViewPoint \[Rule] {1, \(-5\), 2}]; \)], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["Now we back way out, and Show a PlotRange of the \ field due to the Helmholz coils that is approximately 100 times larger: ", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ "helmholzPVFBigListMagneticPlot", ",", \(Graphics3D[\ surfaceList[testu]\ ]\), ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-1000\), 1000}, {\(-800\), 800}, {\(-1000\), 1000}}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"2", ",", \(-10\), StyleBox[",", "MR"], " ", "3"}], "}"}]}]}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["This shows the beginnings of a radiated \ electromagnetic wave. We can plot the magnetic and electric fields \ together: ", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\(Graphics3D[\ surfaceList[testu]\ ]\), ",", "helmholzPVFBigListMagneticPlot", ",", "helmholzPVFBigListElectricPlot", ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"2", ",", \(-10\), StyleBox[",", "MR"], " ", "3"}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-1000\), 1000}, {\(-800\), 800}, {\(-1000\), 1000}}\)}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["We can also check just the nearly-uniform applied \ oscillating electric field: \nactually a cylinder wave, since uniform \ oscillating fields are prohibited by Maxwel's equations. \nWith a PlotRange \ equal to about 100 times the width of the Helmholz coils, we have the \ following plot: ", FontSize->14]], "Text"], Cell[BoxData[ \(helmholzPVFBigListElectricPlot = calcFieldListPlot[testuHelmPVFieldBigList, 1, 0, 5]; \)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\(Graphics3D[\ surfaceList[testu]\ ]\), ",", "helmholzPVFBigListElectricPlot", ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"2", ",", \(-10\), StyleBox[",", "MR"], " ", "5"}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-1000\), 1000}, {\(-1000\), 1000}, {\(-1000\), 1000}}\)}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["We back out still a bit further, to about 500 times \ the size of the Helmholz coils, \nand plot the field along one horizonal line \ passing through the Helmholz coils: ", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\(Graphics3D[\ surfaceList[testu]\ ]\), ",", "helmholzPvf3kListElectricPlot", ",", "helmholzPvf3kListMagneticPlot", ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"2", ",", \(-10\), StyleBox[",", "MR"], " ", "4"}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-500\), 3000}, {\(-1000\), 1000}, {\(-1000\), 1000}}\)}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["We next solve for the field that results when all \ sources are active - \nHelmholz magnetic field, electric dipole cube, and the \ nearly-homogeneous small applied electric field - \nand both volumes are \ responding. ", FontSize->14]], "Text"], Cell[TextData[StyleBox["Below is a plot of the magnetic field on a square \ array of points:", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\({Graphics3D[\ surfaceList[testu]\ ], testuPVFieldPlotPlane}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"0", ",", \(-4\), StyleBox[",", "MR"], " ", "1"}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-15\), 15}, {\(-12\), 12}, {\(-10\), 15}}\)}], "]"}], ";"}]], "Input"], Cell[TextData[StyleBox["This shows nothing surprising, but just a nearly \ uniform magnetic field, smoothly changing with no irregularities near either \ band of current, being applied to a weakly magnetic sphere - as it should. ", FontSize->14]], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["To look more closely at the calculated response of \ the magnetic sphere, \nwe plot magnetic field values along a horizontal line \ that runs through the center of the sphere: ", FontSize->14]], "Text"], Cell[BoxData[ \(Show[Graphics3D[\(boundarySurfaceList[testu]\)[\([\)\(1\)\(]\)]], plotxAxisBList, ViewPoint \[Rule] {0, \(-4\), 0}]; \)], "Input"], Cell[TextData[StyleBox["Again, this shows nothing surprising. The value \ inside the sphere larger than the exact result for a sphere by about 1% for \ algorithm c) above, and by about 3% for the algorithm used in this figure. ", FontSize->14]], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["Now we examine the electric field. \nRecall that a \ small, essentially homogeneous electric field is being applied, while the \ cube has a dipole surface charge: ", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\({Graphics3D[\ surfaceList[testu]\ ], testuPVElectricFieldPlotPlane}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"0", ",", \(-4\), StyleBox[",", "MR"], " ", "1"}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-15\), 15}, {\(-12\), 12}, {\(-10\), 15}}\)}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell[TextData[{ StyleBox["In the plot above, the displayed field is too large near the cube \ and too small elsewhere, \nso we look close to the sphere, and then close to \ the cube, with different scales for the field. \n", FontSize->14], StyleBox["\n", FontSize->10], StyleBox["First we plot the electric field near the sphere: ", FontSize->14] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{\({Graphics3D[\ surfaceList[testu]\ ], testuPVElectricFieldPlotPlane}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"3", ",", \(-4\), StyleBox[",", "MR"], " ", "2"}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-6\), 6}, {\(-6\), 6}, {\(-6\), 6}}\)}], "]"}]], "Input"], Cell[BoxData[ TagBox[\(\(\[SkeletonIndicator] Graphics3D\) \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[StyleBox["This is (at least qualitatively) as we expect: the \ weakly dielectric sphere (\[Epsilon] = 3) is drawing the field in a bit, and \ the dipole field from the cube to the upper right of the sphere is weakly \ modifying the applied electric field. ", FontSize->14]], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 1", "Subsubsection", FontSize->16], Cell["\<\ Near the cube, the field is dominated by the field due to the charge on the \ cube: \ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\({Graphics3D[\ surfaceList[testu]\ ], testuPVFieldPlanePointsPlot}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"3", ",", \(-5\), StyleBox[",", "MR"], " ", "2"}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{10, 16}, {\(-2\), 2}, {0, 5}}\)}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Summary of Results for Example 1", "Subsubsection", FontSize->16], Cell[TextData[{ "\n", StyleBox["No surprises: \n\nWith some simple volumes and applied fields \ for which we know ahead of time what to expect, \n\nthe numerical solution \ gives what we expect with small errors. ", FontSize->18] }], "Text", FontSize->16], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Example 2: Shielding", "Section"], Cell[CellGroupData[{ Cell["Description of Shapes and Sources for Example 2", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["\nA cylindrical shell of material with permeability \ \[Mu]=100 and permittivity \[Epsilon]=1, \n\nwith a uniform magnetic field \ applied by Helmholz coils. \n \nThere are no other volumes or free field \ sources. \nWe look at two orientations of the shell relative to the applied \ field. ", FontSize->18]], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 2", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["First we show a plot of solution field values on a \ square array of points for a cylinder with its axis parallel to the applied \ field. ", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\({Graphics3D[\ surfaceList[testu]\ ], testuPVFieldPlotPlane}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"0", ",", \(-4\), StyleBox[",", "MR"], " ", \(1/3\)}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-15\), 15}, {\(-12\), 12}, {\(-10\), 15}}\)}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 2", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["Looking more closely at the field near the cylinder, \ we have the following plot: ", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\({Graphics3D[\ cs1\ ], testuPVFieldPlotSmallPlane}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"0", ",", \(-4\), StyleBox[",", "MR"], " ", \(1/3\)}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-4\), 4}, {\(-4\), 4}, {\(-4\), 4}}\)}], "]"}], ";"}]], "Input"], Cell["This was a graphics cell with 14514 lines.", "Text", FontColor->RGBColor[0, 0, 1], CellTags->"GraphicsDeleted"], Cell[TextData[StyleBox["This shows both the known correct qualitative \ response of such a cylinder to an applied field, \nand also errors due to the \ large discrete surface segments \nand the approximation of a uniform field on \ each segment. ", FontSize->16]], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["This was a graphics cell with 1631 lines.", "Text", FontColor->RGBColor[0, 0, 1], CellTags->"GraphicsDeleted"], Cell[CellGroupData[{ Cell["Plots for Example 2", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["We plot the magnetic field with the shield axis \ perpendicular to the applied field. \nWe display the \"cut Shape\" cs1 \ instead of the entire cylindrical surface:", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\({Graphics3D[\ {SurfaceColor[GrayLevel[0.6]], cs1}\ ], testuPVFieldPlotSmallPlane}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"1", ",", \(-4\), StyleBox[",", "MR"], " ", \(1/3\)}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-4\), 4}, {\(-4\), 4}, {\(-4\), 4}}\)}], "]"}], ";"}]], "Input"], Cell[TextData[StyleBox["Errors due to the choice of large surface segments \ remain, though they are probably smaller. ", FontSize->14]], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Summary of Results for Example 2", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["\nThe predicted response of a magnetic cylindrical \ shield \nto a uniform applied magnetic field \nis at least qualitatively as \ expected; \n\nbut in this example, \nwith surface segment dimensions chosen \ to be nearly as large as the radius of the cylinder, \nthere are significant \ errors \nassociated with the approximation of a constant field on each \ surface segment. ", FontSize->18]], "Text", FontSize->16], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Example 3: A Simple Circuit", "Section"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Description of Shapes and Sources", FontSize->18]], "Subsubsection", FontSize->16], Cell[TextData[StyleBox["\nA simple electrical circuit \nconsisting of an \ oscillating current source connected to a small wire loop. \n\nThe current \ source is modeled as a cube of material with \[Epsilon]=1 and \[Mu]=1, \n\ surface charge of opposite signs on two opposing faces, \nand surface current \ flowing between these faces on the four faces between them. \n\nA small wire \ loop with electrical conductivity \[Sigma] \nis modeled with complex \ permittivity \[Epsilon] = 1 + \[ImaginaryI]\[Sigma]/\[Omega] , \nand its \ surface is modeled with a small number of square surface segments. ", FontSize->18]], "Text", FontSize->16], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 3", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["The assembled simple circuit is plotted below: ", FontSize->16]], "Text"], Cell[BoxData[ \(Show[\ Graphics3D[{SurfaceColor[RGBColor[1, 0, 0]], batterySurface}], Graphics3D[wireSurface], ViewPoint \[Rule] {\(-2\), \(-4\), 3}\ , PlotRange \[Rule] {{\(-1\), 8}, {\(-3\), 3}, {\(-1\), 1}}]\)], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 3", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["A plot of electric field values in the plane through \ the middle of the circuit: ", FontSize->16]], "Text"], Cell[BoxData[ \(planeFieldList = calcPointVolumeFieldList[\ ex2, \ planeOfPoints]; \)], "Input"], Cell[BoxData[ \(planeFieldERePlot = calcFieldListPlot[planeFieldList, 1, 0, 2.5]; \)], "Input"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{\({Graphics3D[\ cutWire\ ], planeFieldERePlot}\), ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"1", ",", \(-2\), StyleBox[",", "MR"], " ", "5"}], "}"}]}], ",", \(DisplayFunction \[Rule] $DisplayFunction\), ",", \(PlotRange \[Rule] {{\(-3\), 11}, {\(-5\), 5}, {\(-10\), 10}}\)}], "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 3", "Subsubsection", FontSize->16], Cell[BoxData[ \(showAnimationWithViewOscillation[ ex2, {electricFieldAnimation, magneticFieldAnimation}, {{\(-3\), 11}, {\(-6\), 6}, {\(-5\), 5}}, 5, 1]\)], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 3", "Subsubsection", FontSize->16], Cell[TextData[{ StyleBox["We plot the field values along one axis with a range of about 3 \ ", FontSize->16], Cell[BoxData[ \(TraditionalForm\`10\^6\)], FontSize->16], StyleBox[" (about ", FontSize->16], Cell[BoxData[ \(TraditionalForm\`10\^6\)], FontSize->16], StyleBox[" times the wire loop radius). \nWe see a snapshot of radiated \ waves: ", FontSize->16] }], "Text"], Cell[BoxData[ TagBox[\(\(\[SkeletonIndicator] Graphics3D\) \[SkeletonIndicator]\), False, Editable->False]], "Output"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 3", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["These fields can be animated, too (again, click or \ double-click on the plot to animate it): ", FontSize->14]], "Text"], Cell[BoxData[ \(showAnimationWithViewOscillation[ ex2, {farElectricFieldAnimation, farMagneticFieldAnimation}, {{0, 3}, {\(-1\), 1}, {\(-1\), 1}}*10^6, 5, 1]\)], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Summary of Results for Example 3", FontSize->18]], "Subsubsection", FontSize->16], Cell[TextData[StyleBox["\nThis simple circuit shows that expected features \ are predicted \nover at least 6 orders of magnitude of length scale, \nfrom \ details in and around the wire loop \nto the radiation field at a distance of \ about a million loop radii, \n\nalthough we expect quantitative errors due to \ the use of surface segments \nthat are nearly as large as the dimensions of \ the structure being modeled. ", FontSize->18]], "Text", FontSize->16], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Example 4: A Dielectric Waveguide", "Subsection", FontSize->24], Cell[CellGroupData[{ Cell[TextData[StyleBox["Description of Shapes and Sources", FontSize->18]], "Subsubsection", FontSize->16], Cell[TextData[StyleBox["A short segment of a dielectric waveguide with a \ square cross section, \nwith an electric dipole point source on the axis of \ the waveguide, one wavelength from one end. \n\nWaveguide index of \ refraction equals 2. \nThe waveguide surface is modeled with \napproximately \ 6 segments per interior wavelength in the axial direction, \nand one segment \ per side of the waveguide. \n\nWith these dimensions, the waveguide allows \ only two longitudinal modes. ", FontSize->18]], "Text", FontSize->16], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 4", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["First we show a plot of the waveguide segments \nand \ of a sphere that represents the point dipole source: ", FontSize->16]], "Text", FontSize->14], Cell[BoxData[ \(dipoleSource = Sphere[1/4, 8, 6]; \)], "Input"], Cell[BoxData[ \(waveguide = TranslateShape[\ rectangularPrism[10, 1, 1, 60, 1, 1], {7, 0, 0}]; \)], "Input"], Cell[BoxData[ \(Show[\ Graphics3D[\ dipoleSource\ ], Graphics3D[waveguide], PlotRange \[Rule] {{\(-1\), 15}, {\(-2\), 2}, {\(-2\), 2}}\ ]\)], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Plots for Example 3", "Subsubsection", FontSize->16], Cell[TextData[StyleBox["Below is an animated plot of the solution fields, \n\ with an outline of the waveguide and again a sphere representing the dipole \ source. \nThe fields are plotted on the axis of the waveguide on both sides \ of the dipole. ", FontSize->16]], "Text"], Cell[BoxData[ \(showAnimationWithViewOscillation[ ex4, {xPosElectricAnimation, xPosMagneticAnimation, xNegElectricAnimation, xNegMagneticAnimation}, {{\(-15\), 15}, {\(-6\), 6}, {\(-8\), 8}}, 5, 1/2]\)], "Input"], Cell[TextData[StyleBox["We see poor coupling at the input face, \na mix of a \ traveling and standing waves inside the waveguide, \nand a wave traveling \ away from the exit face that appears to be largely due to the source wave \ scattering around the outside of the waveguide. ", FontSize->16]], "Text"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Summary of Results for Example 4", FontSize->18]], "Subsubsection", FontSize->16], Cell[TextData[{ "\n", StyleBox["As with the other examples, \nthe surface segments are chosen to \ be about as large as is possible \nwhile still getting at least a \ qualitatively correct simulation. \n\nThis simulation demonstrates that \n\ when surface segment dimensions are chosen to be comparable to the wavelength \ \nelectromagnetic waves traveling between media with different indices of \ refraction \nare simulated at least qualitatively correctly. \n\nBetter \ characterization will require using an example with a known analytic \ solution, \nand using a finer surface segmentation.", FontSize->18] }], "Text", FontSize->16], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox[ "SlideShowNavigationBar"], \(\(\(\ \)\(of\)\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Summary Remarks", "Section"], Cell[TextData[{ StyleBox["Everything works as desired.\nErrors are large if surface \ segments are as large as the volumes. \n\nPlanned development includes\n\t\ improved performance when using large surface segments\n\tbetter \ characterization of performance \n\tpackaging as a user-friendly ", FontSize->24], StyleBox["Mathematica", FontSize->24, FontSlant->"Italic"], StyleBox[" application", FontSize->24] }], "Text", FontSize->16], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Previous Slide"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlidePreviousNextLink", ButtonFrame->"None", ButtonNote->"Next Slide"] }], "PreviousNext"] }, Open ]] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1280}, {0, 941}}, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", WindowSize->{674, 568}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, TaggingRules:>{"Salvaged" -> True} ] (******************************************************************* 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->{ "SlideShowHeader"->{ Cell[1754, 51, 1654, 43, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[4322, 124, 1702, 45, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[7081, 209, 1702, 45, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[10079, 304, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[13545, 393, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[16951, 495, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[23498, 679, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[28474, 847, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[31917, 952, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[34592, 1030, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[39283, 1171, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[45924, 1353, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[49838, 1465, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[53236, 1564, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[55906, 1639, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[59196, 1733, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[62485, 1842, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[65591, 1935, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[68527, 2019, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[71419, 2102, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[74700, 2195, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[78017, 2289, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[81585, 2388, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[84947, 2482, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[88675, 2586, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[91866, 2675, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[95159, 2768, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[99031, 2880, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[102189, 2973, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[104988, 3054, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[107966, 3139, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[111229, 3232, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[114809, 3333, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[118388, 3434, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[121366, 3515, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[124673, 3605, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[127556, 3687, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[130906, 3785, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[133637, 3865, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[136731, 3961, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[139617, 4045, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[142673, 4129, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[145904, 4220, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[148999, 4312, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[152377, 4405, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[155592, 4492, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]}, "GraphicsDeleted"->{ Cell[113660, 3301, 121, 2, 33, "Text", CellTags->"GraphicsDeleted"], Cell[116514, 3380, 120, 2, 33, "Text", CellTags->"GraphicsDeleted"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 159224, 4595}, {"GraphicsDeleted", 163761, 4688} } *) (*NotebookFileOutline Notebook[{ Cell[1754, 51, 1654, 43, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[3433, 98, 32, 0, 95, "Title"], Cell[3468, 100, 67, 0, 51, "Subtitle"], Cell[3538, 102, 28, 0, 25, "Author"], Cell[3569, 104, 49, 0, 25, "Affiliation"], Cell[3621, 106, 698, 16, 25, "PreviousNext"], Cell[4322, 124, 1702, 45, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[6049, 173, 78, 3, 99, "Section"], Cell[6130, 178, 58, 1, 38, "Text"], Cell[6191, 181, 43, 1, 38, "Text"], Cell[6237, 184, 65, 1, 38, "Text"], Cell[6305, 187, 60, 1, 38, "Text"], Cell[6368, 190, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[7081, 209, 1702, 45, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[8808, 258, 61, 3, 99, "Section"], Cell[8872, 263, 178, 6, 86, "Text"], Cell[9053, 271, 122, 5, 62, "Text"], Cell[9178, 278, 185, 5, 86, "Text"], Cell[9366, 285, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[10079, 304, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[11806, 353, 61, 0, 73, "Section"], Cell[11870, 355, 959, 17, 520, "Text"], Cell[12832, 374, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[13545, 393, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[15272, 442, 38, 0, 73, "Section"], Cell[15313, 444, 301, 8, 58, "DisplayFormula"], Cell[15617, 454, 57, 1, 37, "Text"], Cell[15677, 457, 263, 6, 29, "DisplayFormula"], Cell[15943, 465, 55, 1, 37, "Text"], Cell[16001, 468, 234, 6, 28, "DisplayFormula"], Cell[16238, 476, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[16951, 495, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[18678, 544, 47, 0, 73, "Section"], Cell[18728, 546, 1792, 51, 171, "DisplayFormula"], Cell[20523, 599, 1320, 38, 127, "DisplayFormula"], Cell[21846, 639, 936, 19, 121, "DisplayFormula"], Cell[22785, 660, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[23498, 679, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[25225, 728, 66, 0, 73, "Section"], Cell[25294, 730, 2464, 96, 476, "Text"], Cell[27761, 828, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[28474, 847, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[30201, 896, 52, 0, 73, "Section"], Cell[30256, 898, 945, 33, 164, "Text"], Cell[31204, 933, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[31917, 952, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[33644, 1001, 46, 0, 73, "Section"], Cell[33693, 1003, 183, 6, 76, "Text"], Cell[33879, 1011, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[34592, 1030, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[36319, 1079, 34, 0, 73, "Section"], Cell[36356, 1081, 2211, 69, 346, "Text"], Cell[38570, 1152, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[39283, 1171, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[41010, 1220, 56, 0, 73, "Section"], Cell[41069, 1222, 4139, 110, 339, "Text"], Cell[45211, 1334, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[45924, 1353, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[47651, 1402, 45, 0, 73, "Section"], Cell[47699, 1404, 1423, 40, 207, "Text"], Cell[49125, 1446, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[49838, 1465, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[51565, 1514, 33, 0, 73, "Section"], Cell[51601, 1516, 919, 27, 314, "Text"], Cell[52523, 1545, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[53236, 1564, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[54963, 1613, 27, 0, 73, "Section"], Cell[54993, 1615, 197, 3, 134, "Text"], Cell[55193, 1620, 698, 16, 25, "PreviousNext"] }, Open ]], Cell[55906, 1639, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[57633, 1688, 49, 0, 73, "Section"], Cell[CellGroupData[{ Cell[57707, 1692, 88, 1, 33, "Subsubsection"], Cell[57798, 1695, 648, 14, 326, "Text"], Cell[58449, 1711, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59196, 1733, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[60923, 1782, 60, 1, 33, "Subsubsection"], Cell[60986, 1785, 188, 8, 34, "Text"], Cell[61177, 1795, 80, 2, 30, "Input", InitializationCell->True], Cell[61260, 1799, 67, 1, 30, "Input"], Cell[CellGroupData[{ Cell[61352, 1804, 61, 1, 30, "Input"], Cell[61416, 1807, 135, 3, 29, "Output"] }, Open ]], Cell[61566, 1813, 107, 2, 34, "Text"], Cell[61676, 1817, 59, 1, 30, "Input"], Cell[61738, 1820, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62485, 1842, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[64212, 1891, 60, 1, 33, "Subsubsection"], Cell[64275, 1894, 149, 2, 34, "Text"], Cell[CellGroupData[{ Cell[64449, 1900, 242, 5, 50, "Input"], Cell[64694, 1907, 135, 3, 29, "Output"] }, Open ]], Cell[64844, 1913, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65591, 1935, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[67318, 1984, 60, 1, 33, "Subsubsection"], Cell[67381, 1987, 125, 2, 34, "Text"], Cell[67509, 1991, 268, 4, 70, "Input"], Cell[67780, 1997, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68527, 2019, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[70254, 2068, 60, 1, 33, "Subsubsection"], Cell[70317, 2071, 83, 1, 34, "Text"], Cell[70403, 2074, 266, 4, 70, "Input"], Cell[70672, 2080, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[71419, 2102, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[73146, 2151, 60, 1, 33, "Subsubsection"], Cell[73209, 2154, 176, 2, 54, "Text"], Cell[73388, 2158, 562, 13, 90, "Input"], Cell[73953, 2173, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74700, 2195, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[76427, 2244, 60, 1, 33, "Subsubsection"], Cell[76490, 2247, 176, 3, 54, "Text"], Cell[76669, 2252, 598, 13, 90, "Input"], Cell[77270, 2267, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78017, 2289, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[79744, 2338, 60, 1, 33, "Subsubsection"], Cell[79807, 2341, 346, 5, 114, "Text"], Cell[80156, 2348, 126, 2, 50, "Input"], Cell[80285, 2352, 550, 12, 70, "Input"], Cell[80838, 2366, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[81585, 2388, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[83312, 2437, 60, 1, 33, "Subsubsection"], Cell[83375, 2440, 222, 3, 54, "Text"], Cell[83600, 2445, 597, 13, 90, "Input"], Cell[84200, 2460, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84947, 2482, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[86674, 2531, 60, 1, 33, "Subsubsection"], Cell[86737, 2534, 273, 4, 94, "Text"], Cell[87013, 2540, 120, 2, 34, "Text"], Cell[87136, 2544, 525, 12, 70, "Input"], Cell[87664, 2558, 261, 4, 74, "Text"], Cell[87928, 2564, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[88675, 2586, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[90402, 2635, 60, 1, 33, "Subsubsection"], Cell[90465, 2638, 228, 3, 74, "Text"], Cell[90696, 2643, 157, 2, 50, "Input"], Cell[90856, 2647, 260, 4, 74, "Text"], Cell[91119, 2653, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[91866, 2675, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[93593, 2724, 60, 1, 33, "Subsubsection"], Cell[93656, 2727, 217, 3, 74, "Text"], Cell[93876, 2732, 533, 12, 70, "Input"], Cell[94412, 2746, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[95159, 2768, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[96886, 2817, 60, 1, 33, "Subsubsection"], Cell[96949, 2820, 377, 9, 90, "Text"], Cell[CellGroupData[{ Cell[97351, 2833, 477, 11, 70, "Input"], Cell[97831, 2846, 135, 3, 29, "Output"] }, Open ]], Cell[97981, 2852, 300, 4, 74, "Text"], Cell[98284, 2858, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[99031, 2880, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[100758, 2929, 60, 1, 33, "Subsubsection"], Cell[100821, 2932, 108, 3, 33, "Text"], Cell[100932, 2937, 507, 12, 70, "Input"], Cell[101442, 2951, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102189, 2973, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[103916, 3022, 73, 1, 33, "Subsubsection"], Cell[103992, 3025, 268, 7, 181, "Text"], Cell[104263, 3034, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[104988, 3054, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[106715, 3103, 40, 0, 73, "Section"], Cell[CellGroupData[{ Cell[106780, 3107, 88, 1, 33, "Subsubsection"], Cell[106871, 3110, 345, 5, 206, "Text"], Cell[107219, 3117, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[107966, 3139, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[109693, 3188, 60, 1, 33, "Subsubsection"], Cell[109756, 3191, 191, 3, 54, "Text"], Cell[109950, 3196, 529, 12, 70, "Input"], Cell[110482, 3210, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[111229, 3232, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[112956, 3281, 60, 1, 33, "Subsubsection"], Cell[113019, 3284, 135, 2, 34, "Text"], Cell[113157, 3288, 500, 11, 70, "Input"], Cell[113660, 3301, 121, 2, 33, "Text", CellTags->"GraphicsDeleted"], Cell[113784, 3305, 275, 4, 106, "Text"], Cell[114062, 3311, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[114809, 3333, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[116514, 3380, 120, 2, 33, "Text", CellTags->"GraphicsDeleted"], Cell[CellGroupData[{ Cell[116659, 3386, 60, 1, 33, "Subsubsection"], Cell[116722, 3389, 217, 3, 54, "Text"], Cell[116942, 3394, 545, 12, 70, "Input"], Cell[117490, 3408, 148, 2, 54, "Text"], Cell[117641, 3412, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[118388, 3434, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[120115, 3483, 73, 1, 33, "Subsubsection"], Cell[120191, 3486, 447, 7, 278, "Text"], Cell[120641, 3495, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[121366, 3515, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[123093, 3564, 47, 0, 73, "Section"], Cell[CellGroupData[{ Cell[123165, 3568, 110, 2, 34, "Subsubsection"], Cell[123278, 3572, 645, 9, 326, "Text"], Cell[123926, 3583, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124673, 3605, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[126400, 3654, 60, 1, 33, "Subsubsection"], Cell[126463, 3657, 99, 1, 37, "Text"], Cell[126565, 3660, 241, 3, 70, "Input"], Cell[126809, 3665, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[127556, 3687, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[129283, 3736, 60, 1, 33, "Subsubsection"], Cell[129346, 3739, 134, 2, 37, "Text"], Cell[129483, 3743, 107, 2, 30, "Input"], Cell[129593, 3747, 106, 2, 30, "Input"], Cell[129702, 3751, 454, 10, 70, "Input"], Cell[130159, 3763, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[130906, 3785, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[132633, 3834, 60, 1, 33, "Subsubsection"], Cell[132696, 3837, 191, 4, 70, "Input"], Cell[132890, 3843, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[133637, 3865, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[135364, 3914, 60, 1, 33, "Subsubsection"], Cell[135427, 3917, 416, 15, 83, "Text"], Cell[135846, 3934, 135, 3, 29, "Output"], Cell[135984, 3939, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136731, 3961, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[138458, 4010, 60, 1, 33, "Subsubsection"], Cell[138521, 4013, 147, 2, 34, "Text"], Cell[138671, 4017, 196, 4, 70, "Input"], Cell[138870, 4023, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[139617, 4045, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[141344, 4094, 109, 2, 34, "Subsubsection"], Cell[141456, 4098, 467, 7, 254, "Text"], Cell[141926, 4107, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[142673, 4129, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[144400, 4178, 72, 1, 51, "Subsection"], Cell[CellGroupData[{ Cell[144497, 4183, 110, 2, 34, "Subsubsection"], Cell[144610, 4187, 532, 8, 278, "Text"], Cell[145145, 4197, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[145904, 4220, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[147631, 4269, 60, 1, 33, "Subsubsection"], Cell[147694, 4272, 177, 3, 60, "Text"], Cell[147874, 4277, 67, 1, 30, "Input"], Cell[147944, 4280, 128, 3, 30, "Input"], Cell[148075, 4285, 174, 3, 50, "Input"], Cell[148252, 4290, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[148999, 4312, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[150726, 4361, 60, 1, 33, "Subsubsection"], Cell[150789, 4364, 277, 4, 83, "Text"], Cell[151069, 4370, 247, 5, 70, "Input"], Cell[151319, 4377, 308, 4, 106, "Text"], Cell[151630, 4383, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[152377, 4405, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[154104, 4454, 109, 2, 34, "Subsubsection"], Cell[154216, 4458, 648, 12, 373, "Text"], Cell[154867, 4472, 698, 16, 25, "PreviousNext"] }, Open ]] }, Open ]], Cell[155592, 4492, 1702, 45, 28, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[157319, 4541, 34, 0, 73, "Section"], Cell[157356, 4543, 461, 12, 324, "Text"], Cell[157820, 4557, 676, 16, 25, "PreviousNext"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)