(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 151696, 3446] NotebookOptionsPosition[ 130876, 3012] NotebookOutlinePosition[ 148664, 3349] CellTagsIndexPosition[ 148328, 3337] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Dipole Antenna Radiation Pattern", "DemoTitle", CellChangeTimes->{ 3.35696210375764*^9, {3.436360303359375*^9, 3.436360329109375*^9}, { 3.43636038403125*^9, 3.436360427984375*^9}, {3.436754319953125*^9, 3.43675434746875*^9}}], Cell[CellGroupData[{ Cell["", "InitializationSection"], Cell[BoxData[ RowBox[{ RowBox[{"RadiationPattern", "[", RowBox[{"Lpwl_", ",", "mesh_", ",", "opac_", ",", "step_", ",", "pg_"}], "]"}], ":=", RowBox[{"Quiet", "[", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "fun", ",", "max", ",", "xy", ",", "yz", ",", "zx", ",", "box", ",", "ci", ",", "sf", ",", "cf"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"Pi", " ", "Lpwl"}], ")"}], " ", RowBox[{"Cos", "[", "t", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"Pi", " ", "Lpwl"}], "]"}]}], ")"}], "]"}], "/", RowBox[{"Sin", "[", "t", "]"}]}], "===", "Indeterminate"}], ",", RowBox[{"Abs", "[", RowBox[{"Pi", " ", "Lpwl", " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", "Lpwl", " ", RowBox[{"Cos", "[", "t", "]"}]}], "]"}], " ", RowBox[{ RowBox[{"Sin", "[", "t", "]"}], "/", RowBox[{"Cos", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"Pi", " ", "Lpwl"}], ")"}], " ", RowBox[{"Cos", "[", "t", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"Pi", " ", "Lpwl"}], "]"}]}], ")"}], "]"}], "/", RowBox[{"Sin", "[", "t", "]"}]}]}], " ", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", "Pi", ",", RowBox[{"Pi", "/", "180"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"max", "=", RowBox[{"Max", "[", "fun", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EE", "[", RowBox[{"Len_", ",", "t_"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"Pi", " ", "Len"}], ")"}], " ", RowBox[{"Cos", "[", "t", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"Pi", " ", "Len"}], "]"}]}], ")"}], "]"}], "/", RowBox[{"Sin", "[", "t", "]"}]}], "===", "Indeterminate"}], ",", RowBox[{"Abs", "[", RowBox[{"Pi", " ", "Len", " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", "Len", " ", RowBox[{"Cos", "[", "t", "]"}]}], "]"}], " ", RowBox[{ RowBox[{"Sin", "[", "t", "]"}], "/", RowBox[{"Cos", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"Pi", " ", "Len"}], ")"}], " ", RowBox[{"Cos", "[", "t", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"Pi", " ", "Len"}], "]"}]}], ")"}], "]"}], "/", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sf", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"Sin", "[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", RowBox[{"2", "Pi"}], ",", " ", RowBox[{"Pi", "/", "180"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"cf", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"Cos", "[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", RowBox[{"2", "Pi"}], ",", " ", RowBox[{"Pi", "/", "180"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xy", "=", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sf", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "91", "]"}], "]"}], "/", "max"}]}], ",", RowBox[{ RowBox[{"cf", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "91", "]"}], "]"}], "/", "max"}]}], ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "361"}], "}"}]}], "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"yz", "=", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ RowBox[{"sf", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "max"}]}], ",", RowBox[{ RowBox[{"cf", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "max"}]}]}], " ", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "181"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", RowBox[{"sf", "[", RowBox[{"[", "i", "]"}], "]"}]}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "max"}]}], ",", RowBox[{ RowBox[{"cf", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "max"}]}]}], " ", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "181"}], "}"}]}], "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"zx", "=", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sf", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "max"}]}], ",", "0", ",", RowBox[{ RowBox[{"cf", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "max"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "181"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"sf", "[", RowBox[{"[", "i", "]"}], "]"}]}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "max"}]}], ",", "0", ",", RowBox[{ RowBox[{"cf", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "max"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "181"}], "}"}]}], "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"box", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ci", "=", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "f", "]"}], ",", RowBox[{"Sin", "[", "f", "]"}], ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"f", ",", "0", ",", " ", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "36"}]}], "}"}]}], "]"}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.5", "]"}], ",", RowBox[{"Translate", "[", RowBox[{"ci", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"Translate", "[", RowBox[{ RowBox[{"Rotate", "[", RowBox[{"ci", ",", RowBox[{"Pi", "/", "2"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "2"}], ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Translate", "[", RowBox[{ RowBox[{"Rotate", "[", RowBox[{"ci", ",", RowBox[{"Pi", "/", "2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Thin", ",", RowBox[{"GrayLevel", "[", "0.5", "]"}], ",", RowBox[{"GraphicsComplex", "[", RowBox[{"box", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "8", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6", ",", "2"}], "}"}]}], "}"}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.", ",", "0", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.", ",", RowBox[{"-", "2"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1."}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1."}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1.", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "1."}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "2"}], ",", "1."}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"-", "1."}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "1."}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"EE", "[", RowBox[{"Lpwl", ",", "t"}], "]"}], "/", "max"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"f", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"180", "/", "step"}], ")"}], "+", "1"}], ",", RowBox[{ RowBox[{"(", RowBox[{"360", "/", "step"}], ")"}], "+", "1"}]}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "mesh"}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"GrayLevel", "[", "0.75", "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "opac", "]"}], ",", RowBox[{"GrayLevel", "[", "0.25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}]}], "]"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "pg"}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}]}], "]"}], ",", RowBox[{"Arrowheads", "[", ".05", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.8", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "0.015"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}]}], "]"}], ",", RowBox[{"Arrowheads", "[", ".05", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.8", ",", "0"}], "}"}]}], "}"}], ",", "0.015"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}]}], "]"}], ",", RowBox[{"Arrowheads", "[", ".05", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1.8"}], "}"}]}], "}"}], ",", "0.015"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}]}], "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "0.05"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"mesh", "=!=", "None"}], ",", " ", "Thick", ",", "Thin"}], "]"}], ",", "xy", ",", "yz", ",", "zx"}], "}"}], ",", RowBox[{"Translate", "[", RowBox[{"xy", ",", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"Translate", "[", RowBox[{"yz", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Translate", "[", RowBox[{"zx", ",", " ", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "2"}], ",", "0"}], "}"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Lighting", "\[Rule]", "\"\\""}], ",", RowBox[{"Boxed", "->", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", "2.1"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"400", ",", "400"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}]}], "]"}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.435167686953125*^9, 3.43516778003125*^9}, { 3.43516781484375*^9, 3.435167839390625*^9}, {3.4351678748125*^9, 3.435168130265625*^9}, {3.435168169828125*^9, 3.43516824296875*^9}, { 3.4351682829375*^9, 3.435168567953125*^9}, {3.4351686456875*^9, 3.43516876565625*^9}, {3.43516885409375*^9, 3.43516887696875*^9}, { 3.435168977796875*^9, 3.435168980234375*^9}, {3.4351690779375*^9, 3.435169264484375*^9}, {3.4352022239375*^9, 3.435202266328125*^9}, { 3.435202403203125*^9, 3.4352024366875*^9}, {3.435202467703125*^9, 3.435202491015625*^9}, {3.435202647421875*^9, 3.435202652421875*^9}, { 3.435202751703125*^9, 3.435202796109375*^9}, {3.43520535946875*^9, 3.4352053686875*^9}, {3.43520601759375*^9, 3.43520601934375*^9}, { 3.43520717325*^9, 3.435207195625*^9}, {3.435207254234375*^9, 3.435207260078125*^9}, {3.435209789671875*^9, 3.43520986209375*^9}, { 3.435209927703125*^9, 3.4352099281875*^9}, {3.43521303275*^9, 3.435213068609375*^9}, {3.435213266265625*^9, 3.43521326784375*^9}, { 3.435215710390625*^9, 3.435215714828125*^9}, 3.43521584265625*^9, { 3.4352925170625*^9, 3.43529255559375*^9}, {3.435292618296875*^9, 3.435292630953125*^9}, {3.4363651466875*^9, 3.436365180625*^9}, { 3.43637231340625*^9, 3.436372314171875*^9}, 3.43637463825*^9, { 3.436374798375*^9, 3.4363748000625*^9}, {3.436374857609375*^9, 3.43637490296875*^9}, {3.43642451140625*^9, 3.436424623328125*^9}, { 3.4364246689375*^9, 3.436424685421875*^9}, {3.43642489884375*^9, 3.436424912515625*^9}, {3.43645356625*^9, 3.436453566828125*^9}, { 3.436453964625*^9, 3.436453967203125*^9}, 3.436545799671875*^9, 3.436615642203125*^9, {3.436676100203125*^9, 3.4366761294375*^9}, { 3.43667793909375*^9, 3.43667799546875*^9}, {3.43668961428125*^9, 3.4366897020625*^9}, {3.436689756265625*^9, 3.436689757859375*^9}, { 3.43670173121875*^9, 3.436701754484375*^9}, {3.4398117945625*^9, 3.439811797796875*^9}, {3.439813004765625*^9, 3.439813015109375*^9}, { 3.4398241908125*^9, 3.439824195859375*^9}, {3.4398243828125*^9, 3.439824391484375*^9}, {3.439909391390625*^9, 3.43990939825*^9}, { 3.439991795796875*^9, 3.439991805171875*^9}}, CellID->30239376] }, Open ]], Cell[CellGroupData[{ Cell["", "ManipulateSection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"RadiationPattern", "[", RowBox[{"Lpwl", ",", "mesh", ",", "opac", ",", "step", ",", "pg"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Lpwl", ",", "0.1", ",", "\"\\""}], "}"}], ",", "0.1", ",", "10.", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ControlPlacement", "\[Rule]", "Top"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"mesh", ",", "None", ",", "\"\\""}], " ", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"None", "\[Rule]", "\"\\""}], ",", RowBox[{"15", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"Full", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "RadioButtonBar"}], ",", RowBox[{"ControlPlacement", "\[Rule]", "Top"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"opac", ",", "1", ",", "\"\\""}], "}"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", "\"\<\>\"", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"step", ",", "3", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "10", ",", "9", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", "\"\<\>\"", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"pg", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Center", ",", "Center"}], "}"}]}], ",", RowBox[{"ContinuousAction", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", RowBox[{"AutorunSequencing", "\[Rule]", RowBox[{"{", "1", "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{ 3.35696210375764*^9, 3.439909566984375*^9, {3.439991850109375*^9, 3.43999185715625*^9}, {3.43999334821875*^9, 3.43999335265625*^9}}, CellID->155207050], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`Lpwl$$ = 0.1, $CellContext`mesh$$ = None, $CellContext`opac$$ = 1, $CellContext`pg$$ = "Speed", $CellContext`step$$ = 3, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`Lpwl$$], 0.1, "L/\[Lambda]:"}, 0.1, 10., 0.1}, {{ Hold[$CellContext`mesh$$], None, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}}, {{ Hold[$CellContext`opac$$], 1, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`step$$], 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`pg$$], "Speed"}, {"Speed", "Quality"}}}, Typeset`size$$ = {400., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`Lpwl$910$$ = 0, $CellContext`mesh$911$$ = False, $CellContext`opac$912$$ = 0, $CellContext`step$913$$ = 0, $CellContext`pg$914$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`Lpwl$$ = 0.1, $CellContext`mesh$$ = None, $CellContext`opac$$ = 1, $CellContext`pg$$ = "Speed", $CellContext`step$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`Lpwl$$, $CellContext`Lpwl$910$$, 0], Hold[$CellContext`mesh$$, $CellContext`mesh$911$$, False], Hold[$CellContext`opac$$, $CellContext`opac$912$$, 0], Hold[$CellContext`step$$, $CellContext`step$913$$, 0], Hold[$CellContext`pg$$, $CellContext`pg$914$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> $CellContext`RadiationPattern[$CellContext`Lpwl$$, \ $CellContext`mesh$$, $CellContext`opac$$, $CellContext`step$$, \ $CellContext`pg$$], "Specifications" :> {{{$CellContext`Lpwl$$, 0.1, "L/\[Lambda]:"}, 0.1, 10., 0.1, Appearance -> "Labeled", ControlPlacement -> Top}, {{$CellContext`mesh$$, None, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}, ControlType -> RadioButtonBar, ControlPlacement -> Top}, {{$CellContext`opac$$, 1, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, "", {{$CellContext`step$$, 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, "", {{$CellContext`pg$$, "Speed"}, {"Speed", "Quality"}, ControlType -> PopupMenu}}, "Options" :> { FrameMargins -> None, Alignment -> {Center, Center}, ContinuousAction -> False, ControlPlacement -> Left, AutorunSequencing -> {1}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{550., {247., 254.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> "Speed"], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]], Pattern[$CellContext`pg, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> $CellContext`pg], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = Abs[-Cos[$CellContext`Len Pi] + Cos[($CellContext`Len Pi) Cos[$CellContext`t]]] Csc[$CellContext`t]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->148118825] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "ManipulateCaptionSection"], Cell["\<\ This Demonstration plots the normalized E-Radiation Pattern of a center-fed \ linear dipole antenna with sinusoidal current distribution on the z axis. On \ the three sides of the cube are shown the corresponding main plane xOy, yOz \ and zOx cuts. There is a 1\[LeftRightArrow]1 correspondence between letters \ x, y, z and R, G, B colors. The length/wavelength (Lpwl) of the dipole ranges \ from 0.1 to 10 in steps of 0.1. The default 3D evaluation is every \ 3\[Degree]. 2D evaluation is carried out in 1\[Degree], always. A small delay \ may be needed to get a smooth overall picture.\ \>", "ManipulateCaption", CellChangeTimes->{ 3.35696210375764*^9, {3.43636076515625*^9, 3.436360901203125*^9}, { 3.436361345078125*^9, 3.43636141615625*^9}, {3.43636172534375*^9, 3.436361726453125*^9}, 3.43636201259375*^9, {3.4363750698125*^9, 3.43637527884375*^9}, {3.436375347390625*^9, 3.4363753765625*^9}, { 3.436423307359375*^9, 3.436423316453125*^9}, {3.436423438171875*^9, 3.4364234615625*^9}, {3.4364257079375*^9, 3.436425712546875*^9}, { 3.436425758171875*^9, 3.436425772546875*^9}, {3.436453593453125*^9, 3.43645359390625*^9}, {3.436676236375*^9, 3.43667626340625*^9}, { 3.43670249646875*^9, 3.436702530109375*^9}, {3.43675367075*^9, 3.436753671625*^9}, {3.4367537499375*^9, 3.436753785765625*^9}, { 3.436753844453125*^9, 3.43675393646875*^9}, {3.436753967609375*^9, 3.436753998015625*^9}, {3.436754043546875*^9, 3.436754133671875*^9}, { 3.436754196140625*^9, 3.43675423765625*^9}, {3.43982442428125*^9, 3.4398244359375*^9}, {3.439909716265625*^9, 3.43990971671875*^9}}, CellID->87128791] }, Open ]], Cell[CellGroupData[{ Cell["", "ThumbnailSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`Lpwl$$ = 1.4, $CellContext`mesh$$ = None, $CellContext`opac$$ = 1, $CellContext`pg$$ = "Speed", $CellContext`step$$ = 3, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`Lpwl$$], 1.4, "L/\[Lambda]:"}, 0.1, 10., 0.1}, {{ Hold[$CellContext`mesh$$], None, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}}, {{ Hold[$CellContext`opac$$], 1, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`step$$], 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`pg$$], "Speed"}, {"Speed", "Quality"}}}, Typeset`size$$ = {400., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`Lpwl$989$$ = 0, $CellContext`mesh$990$$ = False, $CellContext`opac$991$$ = 0, $CellContext`step$992$$ = 0, $CellContext`pg$993$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`Lpwl$$ = 1.4, $CellContext`mesh$$ = None, $CellContext`opac$$ = 1, $CellContext`pg$$ = "Speed", $CellContext`step$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`Lpwl$$, $CellContext`Lpwl$989$$, 0], Hold[$CellContext`mesh$$, $CellContext`mesh$990$$, False], Hold[$CellContext`opac$$, $CellContext`opac$991$$, 0], Hold[$CellContext`step$$, $CellContext`step$992$$, 0], Hold[$CellContext`pg$$, $CellContext`pg$993$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> $CellContext`RadiationPattern[$CellContext`Lpwl$$, \ $CellContext`mesh$$, $CellContext`opac$$, $CellContext`step$$, \ $CellContext`pg$$], "Specifications" :> {{{$CellContext`Lpwl$$, 1.4, "L/\[Lambda]:"}, 0.1, 10., 0.1, Appearance -> "Labeled", ControlPlacement -> Top}, {{$CellContext`mesh$$, None, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}, ControlType -> RadioButtonBar, ControlPlacement -> Top}, {{$CellContext`opac$$, 1, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, "", {{$CellContext`step$$, 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, "", {{$CellContext`pg$$, "Speed"}, {"Speed", "Quality"}, ControlType -> PopupMenu}}, "Options" :> { FrameMargins -> None, Alignment -> {Center, Center}, ContinuousAction -> False, ControlPlacement -> Left, AutorunSequencing -> {1}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{550., {247., 254.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> "Speed"], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]], Pattern[$CellContext`pg, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> $CellContext`pg], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = Abs[-Cos[$CellContext`Len Pi] + Cos[($CellContext`Len Pi) Cos[$CellContext`t]]] Csc[$CellContext`t]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->544871857] }, Open ]], Cell[CellGroupData[{ Cell["", "SnapshotsSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`Lpwl$$ = 0.1, $CellContext`mesh$$ = None, $CellContext`opac$$ = 1, $CellContext`pg$$ = "Speed", $CellContext`step$$ = 3, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`Lpwl$$], 0.1, "L/\[Lambda]:"}, 0.1, 10., 0.1}, {{ Hold[$CellContext`mesh$$], None, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}}, {{ Hold[$CellContext`opac$$], 1, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`step$$], 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`pg$$], "Speed"}, {"Speed", "Quality"}}}, Typeset`size$$ = {400., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`Lpwl$1066$$ = 0, $CellContext`mesh$1067$$ = False, $CellContext`opac$1068$$ = 0, $CellContext`step$1069$$ = 0, $CellContext`pg$1070$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`Lpwl$$ = 0.1, $CellContext`mesh$$ = None, $CellContext`opac$$ = 1, $CellContext`pg$$ = "Speed", $CellContext`step$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`Lpwl$$, $CellContext`Lpwl$1066$$, 0], Hold[$CellContext`mesh$$, $CellContext`mesh$1067$$, False], Hold[$CellContext`opac$$, $CellContext`opac$1068$$, 0], Hold[$CellContext`step$$, $CellContext`step$1069$$, 0], Hold[$CellContext`pg$$, $CellContext`pg$1070$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> $CellContext`RadiationPattern[$CellContext`Lpwl$$, \ $CellContext`mesh$$, $CellContext`opac$$, $CellContext`step$$, \ $CellContext`pg$$], "Specifications" :> {{{$CellContext`Lpwl$$, 0.1, "L/\[Lambda]:"}, 0.1, 10., 0.1, Appearance -> "Labeled", ControlPlacement -> Top}, {{$CellContext`mesh$$, None, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}, ControlType -> RadioButtonBar, ControlPlacement -> Top}, {{$CellContext`opac$$, 1, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, "", {{$CellContext`step$$, 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, "", {{$CellContext`pg$$, "Speed"}, {"Speed", "Quality"}, ControlType -> PopupMenu}}, "Options" :> { FrameMargins -> None, Alignment -> {Center, Center}, ContinuousAction -> False, ControlPlacement -> Left, AutorunSequencing -> {1}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{550., {247., 254.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> "Speed"], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]], Pattern[$CellContext`pg, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> $CellContext`pg], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = Abs[-Cos[$CellContext`Len Pi] + Cos[($CellContext`Len Pi) Cos[$CellContext`t]]] Csc[$CellContext`t]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->106444001], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`Lpwl$$ = 2.4, $CellContext`mesh$$ = 15, $CellContext`opac$$ = 0.5, $CellContext`pg$$ = "Speed", $CellContext`step$$ = 3, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`Lpwl$$], 2.4, "L/\[Lambda]:"}, 0.1, 10., 0.1}, {{ Hold[$CellContext`mesh$$], 15, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}}, {{ Hold[$CellContext`opac$$], 0.5, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`step$$], 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`pg$$], "Speed"}, {"Speed", "Quality"}}}, Typeset`size$$ = {400., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`Lpwl$1143$$ = 0, $CellContext`mesh$1144$$ = False, $CellContext`opac$1145$$ = 0, $CellContext`step$1146$$ = 0, $CellContext`pg$1147$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`Lpwl$$ = 2.4, $CellContext`mesh$$ = 15, $CellContext`opac$$ = 0.5, $CellContext`pg$$ = "Speed", $CellContext`step$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`Lpwl$$, $CellContext`Lpwl$1143$$, 0], Hold[$CellContext`mesh$$, $CellContext`mesh$1144$$, False], Hold[$CellContext`opac$$, $CellContext`opac$1145$$, 0], Hold[$CellContext`step$$, $CellContext`step$1146$$, 0], Hold[$CellContext`pg$$, $CellContext`pg$1147$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> $CellContext`RadiationPattern[$CellContext`Lpwl$$, \ $CellContext`mesh$$, $CellContext`opac$$, $CellContext`step$$, \ $CellContext`pg$$], "Specifications" :> {{{$CellContext`Lpwl$$, 2.4, "L/\[Lambda]:"}, 0.1, 10., 0.1, Appearance -> "Labeled", ControlPlacement -> Top}, {{$CellContext`mesh$$, 15, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}, ControlType -> RadioButtonBar, ControlPlacement -> Top}, {{$CellContext`opac$$, 0.5, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, "", {{$CellContext`step$$, 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, "", {{$CellContext`pg$$, "Speed"}, {"Speed", "Quality"}, ControlType -> PopupMenu}}, "Options" :> { FrameMargins -> None, Alignment -> {Center, Center}, ContinuousAction -> False, ControlPlacement -> Left, AutorunSequencing -> {1}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{550., {247., 254.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> "Speed"], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]], Pattern[$CellContext`pg, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> $CellContext`pg], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = Abs[-Cos[$CellContext`Len Pi] + Cos[($CellContext`Len Pi) Cos[$CellContext`t]]] Csc[$CellContext`t]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->555123176], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`Lpwl$$ = 10., $CellContext`mesh$$ = None, $CellContext`opac$$ = 1, $CellContext`pg$$ = "Quality", $CellContext`step$$ = 3, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`Lpwl$$], 10., "L/\[Lambda]:"}, 0.1, 10., 0.1}, {{ Hold[$CellContext`mesh$$], None, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}}, {{ Hold[$CellContext`opac$$], 1, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`step$$], 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`pg$$], "Quality"}, {"Speed", "Quality"}}}, Typeset`size$$ = {400., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`Lpwl$1220$$ = 0, $CellContext`mesh$1221$$ = False, $CellContext`opac$1222$$ = 0, $CellContext`step$1223$$ = 0, $CellContext`pg$1224$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`Lpwl$$ = 10., $CellContext`mesh$$ = None, $CellContext`opac$$ = 1, $CellContext`pg$$ = "Quality", $CellContext`step$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`Lpwl$$, $CellContext`Lpwl$1220$$, 0], Hold[$CellContext`mesh$$, $CellContext`mesh$1221$$, False], Hold[$CellContext`opac$$, $CellContext`opac$1222$$, 0], Hold[$CellContext`step$$, $CellContext`step$1223$$, 0], Hold[$CellContext`pg$$, $CellContext`pg$1224$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> $CellContext`RadiationPattern[$CellContext`Lpwl$$, \ $CellContext`mesh$$, $CellContext`opac$$, $CellContext`step$$, \ $CellContext`pg$$], "Specifications" :> {{{$CellContext`Lpwl$$, 10., "L/\[Lambda]:"}, 0.1, 10., 0.1, Appearance -> "Labeled", ControlPlacement -> Top}, {{$CellContext`mesh$$, None, "mesh"}, { None -> "none", 15 -> "automatic", Full -> "full"}, ControlType -> RadioButtonBar, ControlPlacement -> Top}, {{$CellContext`opac$$, 1, "opacity"}, {0., 0.1, 0.2, 0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 0.8, 0.9, 1.}}, "", {{$CellContext`step$$, 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 2, 1}}, "", {{$CellContext`pg$$, "Quality"}, {"Speed", "Quality"}, ControlType -> PopupMenu}}, "Options" :> { FrameMargins -> None, Alignment -> {Center, Center}, ContinuousAction -> False, ControlPlacement -> Left, AutorunSequencing -> {1}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{550., {247., 254.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> "Speed"], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`RadiationPattern[ Pattern[$CellContext`Lpwl, Blank[]], Pattern[$CellContext`mesh, Blank[]], Pattern[$CellContext`opac, Blank[]], Pattern[$CellContext`step, Blank[]], Pattern[$CellContext`pg, Blank[]]] := Quiet[ Module[{$CellContext`fun, $CellContext`max, $CellContext`xy, \ $CellContext`yz, $CellContext`zx, $CellContext`box, $CellContext`ci, \ $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[ If[ Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Lpwl) Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Lpwl]]/Sin[$CellContext`t]], {$CellContext`t, 0, Pi, Pi/180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = If[Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t] === Indeterminate, Abs[((Pi $CellContext`Len) Sin[(Pi $CellContext`Len) Cos[$CellContext`t]]) ( Sin[$CellContext`t]/Cos[$CellContext`t])], Abs[Cos[(Pi $CellContext`Len) Cos[$CellContext`t]] - Cos[ Pi $CellContext`Len]]/Sin[$CellContext`t]]; $CellContext`sf = Table[ N[ Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`cf = Table[ N[ Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/ 180}]; $CellContext`xy = { RGBColor[0, 0, 1], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, 91]/$CellContext`max), 0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = { RGBColor[1, 0, 0], Line[ Table[{0, Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{0, (-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`zx = { RGBColor[0, 1, 0], Line[ Table[{Part[$CellContext`sf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]], Line[ Table[{(-Part[$CellContext`sf, $CellContext`i]) ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max), 0, Part[$CellContext`cf, $CellContext`i] ( Part[$CellContext`fun, $CellContext`i]/$CellContext`max)}, \ {$CellContext`i, 1, 181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, { 2, 2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, { 2, -2, 2}}; $CellContext`ci = { Line[ Table[{ Cos[$CellContext`f], Sin[$CellContext`f], 0}, {$CellContext`f, 0, 2 Pi, Pi/36}]]}; Show[ Graphics3D[{{ GrayLevel[0.5], Translate[$CellContext`ci, {0, 0, -2}], Translate[ Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], Translate[ Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, GrayLevel[0.5], GraphicsComplex[$CellContext`box, Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, { RGBColor[1, 0, 0], Line[{{-1, 0, -2}, {1., 0, -2}}], Line[{{-1, -2, 0}, {1., -2, 0}}]}, { RGBColor[0, 1, 0], Line[{{0, -1., -2}, {0, 1., -2}}], Line[{{-2, -1., 0}, {-2, 1., 0}}]}, { RGBColor[0, 0, 1], Line[{{0, -2, -1.}, {0, -2, 1.}}], Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], SphericalPlot3D[ Evaluate[$CellContext`EE[$CellContext`Lpwl, \ $CellContext`t]/$CellContext`max], {$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, PlotPoints -> { 180/$CellContext`step + 1, 360/$CellContext`step + 1}, Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], PlotStyle -> Directive[ Opacity[$CellContext`opac], GrayLevel[0.25], Specularity[White, 10]], PerformanceGoal -> $CellContext`pg], Graphics3D[{{ Directive[Red, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, { Directive[Green, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, { Directive[Blue, Specularity[White, 10]], Arrowheads[0.05], Arrow[ Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, { Directive[Yellow, Specularity[White, 10]], EdgeForm[], Sphere[{0, 0, 0}, 0.05]}, {{ If[$CellContext`mesh =!= None, Thick, Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, Translate[$CellContext`xy, {0, 0, -2}], Translate[$CellContext`yz, {-2, 0, 0}], Translate[$CellContext`zx, {0, -2, 0}]}}], Lighting -> "Neutral", Boxed -> False, Axes -> False, PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, ImageSize -> {400, 400}, ViewPoint -> {1, 1, 1}]]], $CellContext`EE[ Pattern[$CellContext`Len, Blank[]], Pattern[$CellContext`t, Blank[]]] = Abs[-Cos[$CellContext`Len Pi] + Cos[($CellContext`Len Pi) Cos[$CellContext`t]]] Csc[$CellContext`t]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->346973069] }, Open ]], Cell[CellGroupData[{ Cell["", "DetailsSection"], Cell["\<\ The normalized Radiation Pattern of Electric Field is given by:\ \>", "DetailNotes", CellChangeTimes->{ 3.35696210375764*^9, {3.436376069671875*^9, 3.43637611246875*^9}, { 3.436545968078125*^9, 3.436546024640625*^9}, {3.43654631565625*^9, 3.436546319953125*^9}, {3.436546490453125*^9, 3.436546494953125*^9}, { 3.4365465256875*^9, 3.4365465868125*^9}, 3.43667822803125*^9, { 3.436753266578125*^9, 3.436753307453125*^9}, {3.436754490859375*^9, 3.436754503796875*^9}}, CellID->28710086], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ StyleBox["E", FontFamily->"Mathematica5", FontSize->11, FontSlant->"Plain"], StyleBox[" ", FontFamily->"Mathematica5", FontSize->11, FontSlant->"Plain"], "=", " ", FractionBox[ StyleBox["E", FontFamily->"Mathematica7", FontSize->11, FontSlant->"Plain"], SubscriptBox[ StyleBox["E", FontFamily->"Mathematica7", FontSize->11, FontSlant->"Plain"], "max"]]}], TraditionalForm]], "InlineMath", FormatType->"TraditionalForm"], ", where ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ StyleBox["E", FontFamily->"Mathematica7", FontSize->11, FontSlant->"Plain"], StyleBox[" ", FontFamily->"Mathematica7", FontSize->11, FontSlant->"Plain"], StyleBox["=", FontFamily->"Mathematica7", FontSize->11, FontSlant->"Plain"], StyleBox[" ", FontFamily->"Mathematica7", FontSize->11, FontSlant->"Plain"], FractionBox[ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"cos", "(", FractionBox[ RowBox[{ RowBox[{ StyleBox["\[Pi]", FontSlant->"Plain"], " ", StyleBox["L", FontSlant->"Plain"], " ", "cos", RowBox[{"(", "\[Theta]"}]}], ")"}], "\[Lambda]"], ")"}], "-", RowBox[{"cos", "(", FractionBox[ RowBox[{ StyleBox["\[Pi]", FontSlant->"Plain"], " ", StyleBox["L", FontSlant->"Plain"]}], "\[Lambda]"], ")"}]}], "\[RightBracketingBar]"}], RowBox[{"sin", "(", "\[Theta]", ")"}]]}]}], TraditionalForm]], "InlineMath", FormatType->"TraditionalForm"], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"0", "\[LessEqual]", "\[Theta]", "\[LessEqual]", StyleBox["\[Pi]", FontSlant->"Plain"]}], StyleBox[";", FontSlant->"Plain"], " ", RowBox[{"0.1", "\[LessEqual]", FormBox[ FractionBox[ StyleBox["L", FontSlant->"Plain"], "\[Lambda]"], TraditionalForm], "\[LessEqual]", "10"}]}], TraditionalForm]], "InlineMath", FormatType->"TraditionalForm"], "." }], "DetailNotes", CellChangeTimes->{ 3.35696210375764*^9, {3.439824473375*^9, 3.439824500484375*^9}}, CellID->3921407], Cell[TextData[{ StyleBox["Mesh", "MR"], " and O", StyleBox["pacity", "MR"], " controls correspond to the well known options of ", StyleBox["Mathematica", FontSlant->"Italic"], " 7, while pg control stands for PerformanceGoal. " }], "DetailNotes", CellChangeTimes->{ 3.35696210375764*^9, 3.436702857*^9, 3.436753593484375*^9, { 3.439814487859375*^9, 3.439814489171875*^9}, {3.439992028671875*^9, 3.439992146*^9}, 3.43999363821875*^9}, CellID->185198083], Cell[TextData[{ "The \"step [\[Degree]]\" control changes the number of ", StyleBox["PlotPoints", "MR"], " for the 3D Radiation Pattern. The initial value of 3\[Degree] results in a \ smooth object." }], "DetailNotes", CellChangeTimes->{ 3.35696210375764*^9, {3.43661617159375*^9, 3.436616195703125*^9}, { 3.436616247484375*^9, 3.436616283*^9}, {3.436677055703125*^9, 3.436677235671875*^9}, 3.4366782401875*^9, {3.436678273109375*^9, 3.43667828859375*^9}, {3.436702859921875*^9, 3.43670286509375*^9}, { 3.43675298303125*^9, 3.43675298703125*^9}, {3.43675360621875*^9, 3.436753609359375*^9}, {3.436754603*^9, 3.436754603015625*^9}, { 3.439824555078125*^9, 3.43982455515625*^9}, {3.43990984140625*^9, 3.439909841640625*^9}}, CellID->4236952], Cell[TextData[{ StyleBox["SphericalPlot3D", "MR"], " was chosen, instead of ", StyleBox["RevolutionPlot3D", "MR"], " or ", StyleBox["ParametricPlot3D", "MR"], ", since it was faster." }], "DetailNotes", CellChangeTimes->{ 3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, { 3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}}, CellID->775104838], Cell[TextData[ButtonBox["AVI and VRML production based on Mathematica 4", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.antennas.gr/mathematica/"], None}, ButtonNote->"http://www.antennas.gr/mathematica/"]], "DetailNotes", CellChangeTimes->{ 3.35696210375764*^9, {3.4399930596875*^9, 3.4399930596875*^9}}, CellID->763367491] }, Open ]], Cell[CellGroupData[{ Cell["", "ControlSuggestionsSection", CellID->219210516], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[" Resize Images"]}], "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \ the orange resize handles to resize the image.\"", TooltipDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.439824590875*^9}, FontFamily->"Verdana", CellTags->"ResizeImages", CellID->172151905], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[" Rotate and Zoom in 3D"]}], RowBox[{ "\"Drag a 3D graphic to rotate it. Starting the drag near the center \ tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \ of the screen.\\nHold down \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" (or \"", FrameBox[ "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" on Mac) and drag up and down to zoom.\""}], TooltipDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.439899998390625*^9}, FontFamily->"Verdana", CellTags->"RotateAndZoomIn3D", CellID->5778304], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Drag Locators"]}], RowBox[{"\"Drag any locator (\"", GraphicsBox[ LocatorBox[ Scaled[{0.5, 0.5}]], ImageSize -> 20], "\", etc.) to move it around.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"DragLocators", CellID->344069041], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Create and Delete Locators"]}], RowBox[{"\"Insert a new locator in the graphic by holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key\\nand clicking where you want it to be. Delete a locator by \ clicking it\\nwhile holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"CreateAndDeleteLocators", CellID->173469883], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Slider Zoom"]}], RowBox[{"\"Hold down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key while moving a slider to make fine adjustments in the slider \ value.\\nHold \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" and/or \"", FrameBox[ "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" at the same time as \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" to make ever finer adjustments.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"SliderZoom", CellID->6859011], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Gamepad Controls"]}], "\"Control this Demonstration with a gamepad or other\\nhuman interface \ device connected to your computer.\"", TooltipDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.3895522232313623`*^9}, FontFamily->"Verdana", CellTags->"GamepadControls", CellID->228314672], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Automatic Animation"]}], RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\ /4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\ IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"button\\nnext to the slider, and then clicking the play button that \ appears.\\nAnimate all controls by selecting \"", StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"AutomaticAnimation", CellID->110804094], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Bookmark Animation"]}], RowBox[{ "\"See a prepared animation of this Demonstration by selecting\\n\"", StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"BookmarkAnimation", CellID->400564261] }, Open ]], Cell[CellGroupData[{ Cell["", "SearchTermsSection"], Cell["antenna", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.436361307421875*^9, 3.436361312640625*^9}, 3.4363620320625*^9, 3.4367545334375*^9, {3.439824597171875*^9, 3.439824597265625*^9}}, CellID->32258044], Cell["radiation pattern", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.436361314171875*^9, 3.43636131921875*^9}, 3.4363620346875*^9, {3.436546609296875*^9, 3.436546609921875*^9}, { 3.439824598515625*^9, 3.4398246005*^9}}, CellID->539760898], Cell["dipole", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.436361335828125*^9, 3.436361336953125*^9}, { 3.43636144890625*^9, 3.43636144890625*^9}, 3.436362036265625*^9, { 3.439824601734375*^9, 3.439824601859375*^9}}, CellID->89534291], Cell["sinusoidal current", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.436361450203125*^9, 3.436361457515625*^9}, 3.43636203846875*^9, {3.436453921734375*^9, 3.4364539244375*^9}, { 3.43675454159375*^9, 3.436754543671875*^9}, {3.439824602828125*^9, 3.439824605*^9}}, CellID->103377250] }, Open ]], Cell[CellGroupData[{ Cell["", "RelatedLinksSection"], Cell[TextData[ButtonBox["Virtual Antennas, Volume 1, 1999", BaseStyle->"Hyperlink", ButtonData->{ URL["http://library.wolfram.com/infocenter/MathSource/868/"], None}]], "RelatedLinks", CellChangeTimes->{ 3.35696210375764*^9, 3.43642239646875*^9, {3.4364224350625*^9, 3.4364224550625*^9}}, CellID->5579609] }, Open ]], Cell[CellGroupData[{ Cell["", "AuthorSection"], Cell["\<\ Contributed by: Nikolitsa Yannopoulou and Petros Zimourtopoulos, Antennas \ Research Group, Xanthi, Thrace, Hellas, EU.\ \>", "Author", CellChangeTimes->{ 3.35696210375764*^9, {3.436361914921875*^9, 3.436361944734375*^9}, 3.43636199015625*^9, 3.436755201640625*^9, {3.43675524546875*^9, 3.43675527425*^9}, {3.439824642890625*^9, 3.439824650546875*^9}, { 3.43990271315625*^9, 3.43990271421875*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1270, 770}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXlYU9e27/fe++Pe9757be9tax1AkUGQAMokiLMWB9Q60Dreaq2tA1Zb LaJ1wjrVjg44KyKCAzIj8zwFSBjCkDCEBAjIKELRKhqSvJ3ssNmckxNGxX7d v+/od7LPPmuvtWJ+a++19jnqbdy5fON/v/XWWybgz//811tvKc9FA4RQmDVv AVdnbMpy5+KEBNgm7kT6t3uleuMbxxrVsqbI7T6WTVsrn7paNvPTRs87VUUC cNREx7e67HlpOVNhYt0x3qJ11LiaS1cGqhIBAQEBwWtHzg0vro5eps5Yjv74 /E9WC27fEeXmivLzM8+eZxtYKsYayMaMe2Y+U+a0S7b8oMz5kHzpfrnjVy+W 7nzh9EWHzbIO8w87TB1emDk817doHG1QFRM71AYREBAQEPQBcPIvSE8vMDQW 6Ojl6+oV6Izj6RrwLOx5do6RJrP4rKkKvTGKMWM7DFjta09Jt17r2HpV+qWH 7LOzslUnpEu+kzp+JbVb9XLS/OesqfW6E+qMLcuzOENtFgEBAQFBHwBjQXlp abb91OLRY4vG6BeNHc83sMgzss+fuCTefnXTBGtlLNA36NAf92TGCrHbrao9 ng/3eDV/6/lsx+WOLz2kq49L5++UOqxsmzBDomsumTRFxOMNtVkEBAQEBL0F KgqA87yNm0Sjxlbqm/KMJ2bOcWQvWpa6Ym2881q+48ziD2cK5s8VLFrIn+WQ vv6LxO2uydt2sbd/m73dNX/rbv7nXwvWbSlyXpuz4COuiW2x9YzygoKhtoyA gICAoFcQY1B+PORerWPEs5hceuFoTcDl6oBrVUFekkDPOr+Ldfcv1gVcrgu8 Wud/ufb+JUnYrapwH8kDn+oHPjXhPg/DbtWGeD8MvFETdE3sezZ2ynRBarr2 octLSrL9A4TpPXQjICAgIHilAPxf0Ql1MPjukGScde5XX9QG3mgIDquLSJTE pLeFR/4REvokLKItMrYtJq4tNq4tLKwlKrohh9eQV9CYndfIyW1iZz9OZIP+ 1YHhkrDwIo+LkSs3Zoc+KBcK8RFLBQJuYmLU6dMRn2/irFojuXCpoqhoiKwn +OtCGBIi9PYeai0ICIYYaCEAo0ClCspwIBKVLFsrMZ+Xf9i1NiywKTGnNjWv IT6Nf/Fic0zis6z8p5m8p5m5Tzh5T9I5TxKS29LYLUWlzcWipkJhU1ZBXSK3 Ijq9PCKlIiGjPDQueJzdzeFjr1ja+i1c4rXc+ecFC/c4TNltPP63d98LGz6i Zt16SWrqUHuC4K8IEAj4b70FDoGODjh/RaOkD9GCNzw83MXF5eTJk3w+f0gU IPgTAY8FIApUqSAuLc0/fKzUdK5w5voc971VUQ+q0/IakjJaElNCJk9JsZ/O v+7VnFPQmlvYkp3fks1rYXPApZa4+OaU1EcpqfVxiVVRCeWhMSWh0WUxifyQ 8O8/GLln2Du/Dnv/0N//8fXf/vf0P4dFvvd+wwjdjgkT6695DrUPCP7SKN28 uWTVKmU4GDasPClp0OXn5ORcuHBh0MX2BiAGBQQE7Nu3z9OT/MoIqBCks1Nu 3ky+dSs3MbEkPx/M/8uFwjI+v4TDKYqN5QcE8c56ZC1emWU4NdPOOWOhC9fd reJBYH1M0u+xSY/SOckLFj3UMc4bZZC0co0gKLQuO7+Ry6tncxpSMhrjkxoj ImtDgiVBASJ/v5K7t/N9bhUEB2beu/PV8A/OjxzvM1zHb/jIsrF6ckMjhZ5e h4VVddiDofYHAYESICKAcFDs4DDokocwFkD4+vqCcDCEChC8mRALBNX3Ajkr Pz2vb3hk5Ae/WVl62NoGWtukWdlmTrLhWNvzJ08rsbARmjlUWs5usJ7J27e9 +r53U0RMU2Law/Ss2PlO5QbmFaY2pXqmKfoTEnd8LQiPrmJzq5LYkrgkSWS0 JChY7O9fcvdOka9Pzs0bOf5+/Lv3ci1mSEwdpJNmyFl2cpOJCv3xHRYTq6Oj X6mlQm/vwcoDl+fmKqW9shwCwZADrAhgsmjQawdDHgvA6sDFxWWo8lQEbz4k Sanir77JMbVINxgfbTSeYz6xzX66YrKDwmKSwshQoT9GYTBOMX5CjpuL+N6t h5HxkvhUUUp6xDynIiOLIpYNn2VbYmqTO9YkYpJt8vEfBFHx5XEpwvCoMv+g 0jv3Cn198ry9Mjyv8e/fb4xKlq8/IluyQzZtldxmvtzERmZq9TA4uPeqAiqG v1NwgHPUDhb1Gn+/cI6HDvARXQITP3z6R/kIoL5lzx7UUnb8OBoI9ASX0C3w nN/50g+gBkUfujRcrFIOi4UPrUxTdBoIExdIeWQUaAfEBRQABwpP4ESgo4Py 3vBeJBwRXdm5c8iloA+0C9xSsnAh1BlqhfxMvxGOArUCfaADgRxgI5AAtaK7 DmpC0QqqDYZW+5bFgo7qugsY6O0NxgInoJHuQ1wZCiia4/4BosCh/Cq734i+ 4m5yGBxF9wwTtMcCwNLh4eGURpjnpwg5efKkiwru7u7x8fGo/bffftu1axdo x3NBuFjQB3wEqwMtOkAAOUAaRR+kDBgUDA17AmVQcAEdoAIBAQF0i9BHmK1C QnArcOGwD/gbSqPI5/P5wJlIVdATnMNqCBwINMKreFqM4g2NntT+pYAhoA6o BZiP5ODeoDtE44javaFFOFzlQUfh3ynFRqAAuJFumhaIU9PEn216PMmm1ca+ berMduspcj0DxVgdhZGR3GySgmWb5ba95M4tcUScMCaxJCHZ33F+qqF5Bsua rToyzGwyTCzDdQzuz56bcsajKCS8ODCI7+PD8/LiXL/Gvnq5LDpRkpT5cs8F 2WcnZU7bZVOWKVjTms5c7JOSiGNxmsUDBE62iDPBCX4Or/YjFiA2A41dxDXg WICqloj8KZ3VQUfFnIiiwUcwND0IIsUgLaP+XVZA2uwUDg2HhkCBQIJI0/SY cqOaz1Xmw3O1EBYLaUVxHdRKyerd3QXG6gqyKrvAgRQA40LFYB+NPoRWMyV2 cM3VgWDYMKVMHR0Ua+hfB2VqweQoumeY0GMsQKSHAFpw2oE/bUAXASoAuoMk AAkKcgJoB3+DPnSxUJoWZgBXgYZIOPgI/kblZqQMoBrUDQwEhoZ9gAJAOGiE lEWxCH2EcsBdUFs4ELwFGgKFgKs4kVLkAwWQBNCI8zMKEEgIHhkRLWv0ZI9f CugGmRn/RqBWSBPQSFeYaUQt3tAiHKoB7ALt4G88xCOdgTPBcECHfmwYEIvF VWc8nk+bLbObLrWdJTWbIRunr9DTlZvbyCd/yHZ1KfLxKg2L4ofHFEbFes2Z e0fP2N/Y4j52BJhY3NMzvjJqzO3lzhmXrxT4+OZd90y5dDHH905hbHJpXGrL gcuy7WdlKw/Kp69tX7ZJ1H1zaY9AHIL/9PAAgX6eKEBQGBVRbl9jARoFMTZg rUGJBegq7Ny1oaWzgomkoYEA+agH6uxM4XYYOJQZrc4OlGAB1aZfhcPBEwr3 UvgWNxkOCiIC5RLV/M5FBGVc1B+NBXNxaoernABaIOVqJHyK/ynANVfP4TsX Fyh04uZD5+NjaXeU9kiEMPBYAG7X+NMGbMD0k8fFAjKBM0kmcqDoACaokFQ1 KgMBRKGJKBP5Uz5COfglQFnQM3DpgbgUfkQ98XNInkgCnDyjbni8g+GAIoHJ k9odAkMVnMDDFigHvwV8RN8yfjvTiFq8oUU4xXyNNsJ1InJmX1FZWVkTFS39 cJHCbGqHnbN03jappb1cV0duYZfqui3P+3pR4ANecHheWMT5mbN+Ga13Tt/4 bPcDtHjoG/8yQveUrt7djRsTzpzJuno1OzQqLzK+KDrxofuVl67nZRuOy2du qL/Xh+wQhPpHpyJhCvOocxSdJAkW7DiTiGhr+T7HAtrsfbByRGh0eBXnImQj kkZXA87JURBUB4thw5gMwTvgUYZJKybJXTaGhOArFwiNqw8kiqIVE5NDJ6Dc C1zj4KYh0B2OA9cc/hNCy8Ou5U9nkk2dslNN/rsCtFZH0X2uEQOPBUwbgQB7 MG0QwmeJkLQ1JqOYdIAKoGwGPRbA5Azs0KdYgLMijGUah9ASC3Dh+I2UcWFm jLJU6eWWKoooSLn4WHQ5yBbK7UwjavEGk3BY98FJnm4j6AlUHUhtqKKioqqq qjY5tWP6Yrntx7IV3z3acrpt2gLFOEO267aiOzdLH0QXRUQXRsZemj3nrK7B RcMJGo9LRqYX9E1+fW/UVXOLhGNH86LiBIlpJXGpVe6Xn7iel288Lpu/tTqp z3pChqEk2NXpdDTtV5G/RnrB+acfOSJ1DFq4EPLGIMYCmMKCVAnvRVwEzYFD w9tRsl2d2FdFPURE9CBI4WGcw9E5kEw5RPQ1SPeJOm6Usl7QGaDVzsEsQh+R KFH3pQRTLEDkD4wCQ6C1nsbavRYPdzM5JAStd+i+RcoAzaEn1QsorY7C5Wv8 fiEGHgvwHA4EmpBT2gEgVyCxMAoAzgFzZjTV740OgFKg2hRlAM+gPJLG27XE AjSJpZjZ+1gAc0TAKMiilFhASf7TVy5MntTiELgogJkcprhD1wRXXuOIWrzB JFxjUMZNg6skpojfS8BYAFYH9UGhcqslsmX7WlzOFu4+1zxlTrabi9DftyIm sSw2qSQ+6bbj/FBDswiWlYbD1CrceGKUuWXmcqe0vS7xly6UxCWJ2dyKtCyJ +6XHbuc6tvykmLez4YZfn3RDVIBOYDv8LSvrlaoTOI18FbEAVg/5WDF6sGKB ms9VVAkJUEmqKiGQLdWTf2wpBMMifqBcCr97KZPOw3wsT0IR0iUNz9LA8jFN Mr5Aw0ur6NCwTEOrKkwrevzCPQNHwQ+N5WOUsoMUDcMH+uLwG/E6NTq6fKtS DC8uwC9Ri6Mo8pkwKLGADqZ2xAwoYwAzJ3Ty0a4DuAtWH3BlYN0WZr+Zbn+l sUCkmiTDMgHuChFDLKB4g8mTWhyC8jD9jgUaR3wVsQDGHbo5vYdYLK7sBDh/ tn6XfOHOZy6nha4X8r/5Ofu7r8QBvtVxyeLEtLLk9MD5C9INzTlmNlks1dF5 kmlixZlgWeg4u8BtS8KFX3kRUVXZ+ZVpmVVsjoTNrfn+8iPXM9LNp+RLvpU6 bqrK6kMuS508UbEHvn5HJIwWCKLByxEhiuimiWpGjRdPBxgLkG7gBIrCAxZo VM+QMT4XoQ2u3t7q5RJlh0/nWBpWCnAmrMqTUDYpdc29vb2ZyJ+yowlPDUFb wL0U8qdXovF9SspaAHNdGLlU6fPuGR4c9DCtXFB0kjNFc7VM1fdISXDh+TqU L9LuKFH34hETeowF+LwRru7pOSI8Sxyg2oJCbxdhfIgoAmWYYT6BadsMPRZA 2seVgXkhes/exwIKlfUjR4QAHAX0gfVTjd1we9ElJk8yWYQWBRQl+5Qj0jii Fm/0O0cE12sDWRegh45hLGg9cEo+98uXX/xUu9uDd+Ay96hbdeDtuoTU6pQM UWpG5DynYgOLElObElNr1d82JSZWJcaTKqY6iF3WZXicSvb1zfa7X8fNrc/m 1Wdw67Jy6tjZdQc9Wveel244IlvqqrBb2b5sS2VOXi/V65aT6Zy8qTMqqh8y 3mGwasdw3wtsAYSGT1whL1GyHJB8ENGp58woDDHPG1FuHI8FaGlAKRMoNcG3 1FJ2+HQvZaLRUcYGJy54FW1hpVCculzLYqmdprpR6RMsEdQVAbEMiYZtSN3Z XmP5GEnGgbfg8ZcC/CtAkRoFMsqNuEzKVis8FiC1lZFRq6PQcFrCWY+xAAee lkG8DRrRBiERNtWnFBlROkjUSUeQvVH2mCl33ctYQN/pqvF2Fyx9JKLFApyp gFGwZ59iAZ5jpxRPKbVjijdEzJ5ksgiXT1kf9b52rHFELd4YSO1Ye2FIO/AX UCjfRFQmbP9og2z2RtmG4627z5fsu5B98kBt6L3mhJSGtKxqdlbcfKcKffOK CdbKw8Sqwmhi9SSb2nVL8391z/T3KwoNLwh9UBQU3MDJfZSd35yR08LNa8nI btlxom3Hz9L17rIF2+TT1ynMHF8sWCNJSu6NhvQJG/gBohMRVnWF/Xu5pxTu MFfvG1dtNcSTJygVA+elkFHxPaWwMyIi9WbFTmnKjywWEqLlzQbIOjwWiLCl Ac48cBMmRROU5Ee7H1FCu0sfHR2UckGhAdVfkDTkQ/QRv1FtV+coXaWK48eV G+9XrVLq0NkZsC5c7KBd/XCnq4hhn5LSLihBta1UpIpH6swPerACq0EjoLUY WsWoBaoWU5SFGxhCaS/4hwEU63QOvKRxCgGDiBZHodoKfZMqQv9yRLtUADcC Psc3GUKKhmEC368IaYGSw6ewCj537VEHuPtIhHEgvvMTjgjfcYGWNmiCCjdV QtaixAKNuyiZYgFdPgCSAE3GGRiGoYCe9pTSPanRIfiigKIk07ZPusJMI2rx xgD3lNKjTC9BeTddXVCYzGxmx/RVspWH2refqXHzyPvxUENEwO/xiY/Tsuqz suMXqGOB2GhSJcuybum80qO7Mm57C+KTHqamP4yNKwwJyw8KauTkNXF5j9jZ LTkFTzLznn5+4I/Ve+Qf75PN+Uxut1xuvURhvVDqML/c06tHDfFdJXBWCX/O +C+XQrngKr6zXeOzZvg+VZwHELGgeoTywa7uueuubAk2KUUjwkeZ0Eft+88R 50DFEKGhpQFlvkrJeCuZE5u64wfwFSofIzrF1zsiVR4JdxRav6D8STe7zp3r Zhe2J0ejf/AHQPDwQd9cRKmDoDiLlyG0vDuOog/KU+FVclRwxwfCTaYEFMr8 n8lRaB6CatN09foXC9AjV/Be9PARZSMNeo4JsiKaM0Ox+GRV1Jnkoe821KgD 5HNR9+UAPhzcKo8vasBHuG0JDATJTdT9WTN4if50FX3FAe+iyxdhD1vRTQaX mJ41QwYyeZLuEBhQ6M9ZUOS4YI+DaVRY44havMEkHELLs2Z4jaMf4QCPBVV8 wfN5S2WsqVK7RS8Xbm1fd+SRyy/5PxxsjPB/EhvXmpL+KJMbscCpYByLb2Ip mjND6PoF58bFvLAIcXxyfWp6fXJyXUxM2YOwvMDA+rSshoycxjROMze/NTPv 0X/2PV228/msTR32q6VWS2Rmc+TmMxQWs+QTpzVv/bqSncGkHn3vH+JAPp6I 6NxohN+r8R0UPeaIKBK6NOnM0jOqquqAFy5hHGHqD4G2A1EsEmGcSZ8SQ5bD hXfbHbR5M9QE3/QI8/l4igk3s2e78LEY7IJy8CHw58tgDgdpojEpRNeQqTMO ypdI4X96RKZ/lailm/J0J9MchYui/ANA6EcsGDj6JJbemak0MJCxNJY+B1G+ lm59dTKkcUpCpvf692a4fntjIIP2CBQOWj//smOC5Qsz+w6ruVIH5xeLdzSu OZh7dF9d6N3WqKjHcQlNySl+cx2TzCcWfrmae/7HnKAgUUx8dUKiKCauIjqm Njq66sGDsuBg7n2/h7GJDxPZkti0OnZOMzuvddOxp8572ud8/txmkdT8Q5mZ o3zCNIWxrcJ4svKJBoupTZ9uqggIFJWWUnRDczzUgnIUeKOW2iIFfYoFrwFd j9l2JqjRJWQ7npTQDsojGPTtoK8f9M02Gol3IKDUL1AOX13e7f5A3OvHny4W wDwMnuUelLH+XLEAf7Aa4q8QCyBKN2+VjjOWmlg+NTRvGm9TbzZbYr+Kt3Br 1hG3Kv+bDcGBDaGhteERwYvmp363I8v3ZnFQqCgiUhgeWRwWXhQaxgsOLggM LLp/n3f3Tuqtm+XBEcKY1LLI5MqkrMZk7vP1x54v2tFuvVxq+uFzm3mt67Y9 3n+08bRHw5Xr9ddvNnpcbtn//eNde+vOUn8yeNq2U0/1Dx/fx0LvxgSNsYCy Uec1A89aUKad+KXe8DksntKfwu7xnTmvFCAKwBoHRSvt2bM+yacko/B/Hhp3 Pb1O9Gkf0QA3h+Ni+xQLKO+gAEyIaBAVkZmQo4J24aIBsJ92+fhAgxgLXGhv cOq9/r1R+M2MBWI+v9Flp3S0XvtovWYd/VpdA/E408oJU/iWC7jzN7MPfyv0 vVJx20d8927F3bvsX37i3fIpuOdX6Ocn9A8QBgQU3L2bdutW0s2b4Ei/cSPj +vWYy5cKfe4JQuMFgTFVCRlNqdkvlu6S2q9qc97SePZKZRaXURVhOaUB/MxR zVHdRZV2oDTCMmVvuIUSC1AGA3DFUE0d4bvX1G/j6T5VVpYtOi/17y2pvXxn zmsG1GqwHA4rI/gBn4ODVylv23v96NM+osF6uXRfYwEaHZYs8as9xoIehQ8w FvR+oEGMBZRFgYh5G1X/8AbGgjqfuy8dZreN1qscz6qcZFNmaSOynsw3NM3V Mc4yskudtSZu6xf8O54lt31L/O6V3vcT+N8vDwoSx8RWZXCqc/Ml3LyatIyq 6LiywED2bd+YG54xntcjr1/NuOldFhYnikx6XF4lCY95OWXNHyu2iAXFg2V4 vwGJF88moULzEE4dXx3o9r4JgKn41/MOcBQphuqV40Pyzup+lA5fNQaXS+nQ YvJfwRsDsVFcUCD0uBS2YWPAvn25AYFlXK6wsFBUVCQqKChLSuKdv5D00epQ qwVBk6eyf/lRxMmqKytrEoubJNVNdfWPGpqaG1VHfcPj2vqW2rpHNbWNVTX1 5aLK0tIygaC8WNAkrnjyuLW5srJg9vJnJrNqb98fRMMJCP4sGPL/v4CAQDvK i4ryORx6Oyoll2Rnh9rM9dU3uG1sFD53Lm/95kK3E5n7T7L3Hc84cDz7yClw cA6dyHU7LNj1XdZ2t+RN38R/4Rqzcfcdp6UHpzlEzV+Yu3RNkdWcJvMZTwys qkPJf2FG8FcE/C8GhloLAoL+AIUD/9mOv777rzMjxwpt5sk2n355wKvu2C3h cW/hiZuiH33EP90S/ehddeTKHztPijYfzV13IH3992mrD+ev2ONtbLv5nbfL jFgS44l1hmaPdA0qfe8MtVkEBAQEBH1GcWrqiVEj3N9+98Jw/fYpzrLl+2Vb zj1zvfJ4v2fDYa8ad6+qIzcq3a/XHLjSvPlEw/rvK1YeKll7VLB8j8Dxy/Ip n0TomcWN1i0bZ1iuZ1Sto1d67MRQG0RAQEBA0EcIhYk//XT83Q8O/t/bybrj ZfYfyeZuki3fK/vsZ9n2Cy++vfJ07/W2vdceuV19vPvi75+ffLrm2O/Lv2te sf/h3M2Vk53LTGcUG1lmjtFLGT2mYIxe8Sjd4sXLROXUbUIEBAQEBG8yyoXC 7ISEI6N03P/x9gsTK/mkWbLJS2TT1ypmb1UsOSBf+4Ns028dm890bDn9cv0P L1cdaV+877mjS9usjU8sltRPW1ppO1swxpA7YnTsiFFxo3TYI3W5hsalmsoT BAQEBARvMtJDQjb+7e/JI0bJTSbKJ9gqTKfLbJ3anbf9sfXwi09c5bO2yRbv lS12kznt7nDc8Xzqhj+sVzw3mdN44ldxfoEIHIFBhavWJI8dF/De8Ij3R8Z+ MCrbq+e3DxEQEBAQvFG4fvDA4X/+U6GvrzAYL2dZtbl8I0lRvyJJXFLa6n5G YbtSPvU/8qmfdtiueG7u1G44/ffPvqII4cfExC9zvv7Ov/3+/X6E02KSJiIg ICD4E6FcKNxuZSkcMUqhp9f+oWNNVDS9T9s37grrJfJJ82TWTs+Mp7cbO1TH JWqUxr569byO7uVh71RpkkNAQEBA8GYiMynpxL/+pdDRa/n6G3H3Z7ERKvIL pbOXKV83ajb9hZHdkyWrRUIhk8CCpKRTxkaxM2aQpQEBAQHBnwW/bNvaNHJM ncdF7d3q7/grJtgpWA5SQ8um33p4ARqfw/nFwlx89drgqUlAQEBA8KrAZbOv vj+i6ezl3nT+Y8knCqOJcmOryti4HjsLcnKiXbZXcLMHrCMBAQEBwavF1W93 N+4/2svODVc9FcbWbVYOpTxeb/qX8HilJBYQEBAQvNnITE8XnPq19/3FZWUd 9rMfLVz66lQiICAgIHjNKC0o6Gt599mqTZyPh+z/jSIgICAg0Ij/B4IFulc= "], {{0, 0}, {516, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {516, 41}, PlotRange -> {{0, 516}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "ResizeImages"->{ Cell[122972, 2788, 391, 10, 22, "ControlSuggestions", CellTags->"ResizeImages", CellID->172151905]}, "RotateAndZoomIn3D"->{ Cell[123366, 2800, 758, 18, 22, "ControlSuggestions", CellTags->"RotateAndZoomIn3D", CellID->5778304]}, "DragLocators"->{ Cell[124127, 2820, 360, 12, 22, "ControlSuggestions", CellTags->"DragLocators", CellID->344069041]}, "CreateAndDeleteLocators"->{ Cell[124490, 2834, 657, 16, 22, "ControlSuggestions", CellTags->"CreateAndDeleteLocators", CellID->173469883]}, "SliderZoom"->{ Cell[125150, 2852, 862, 22, 22, "ControlSuggestions", CellTags->"SliderZoom", CellID->6859011]}, "GamepadControls"->{ Cell[126015, 2876, 389, 10, 22, "ControlSuggestions", CellTags->"GamepadControls", CellID->228314672]}, "AutomaticAnimation"->{ Cell[126407, 2888, 1484, 32, 22, "ControlSuggestions", CellTags->"AutomaticAnimation", CellID->110804094]}, "BookmarkAnimation"->{ Cell[127894, 2922, 928, 22, 22, "ControlSuggestions", CellTags->"BookmarkAnimation", CellID->400564261]} } *) (*CellTagsIndex CellTagsIndex->{ {"ResizeImages", 147247, 3302}, {"RotateAndZoomIn3D", 147380, 3306}, {"DragLocators", 147511, 3310}, {"CreateAndDeleteLocators", 147650, 3314}, {"SliderZoom", 147787, 3318}, {"GamepadControls", 147914, 3322}, {"AutomaticAnimation", 148051, 3326}, {"BookmarkAnimation", 148191, 3330} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 241, 4, 74, "DemoTitle"], Cell[CellGroupData[{ Cell[833, 30, 33, 0, 266, "InitializationSection"], Cell[869, 32, 23835, 591, 1032, "Input", InitializationCell->True, CellID->30239376] }, Open ]], Cell[CellGroupData[{ Cell[24741, 628, 29, 0, 230, "ManipulateSection"], Cell[CellGroupData[{ Cell[24795, 632, 2451, 59, 249, "Input", CellID->155207050], Cell[27249, 693, 17737, 375, 513, "Output", CellID->148118825] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45035, 1074, 36, 0, 166, "ManipulateCaptionSection"], Cell[45074, 1076, 1648, 25, 67, "ManipulateCaption", CellID->87128791] }, Open ]], Cell[CellGroupData[{ Cell[46759, 1106, 28, 0, 168, "ThumbnailSection"], Cell[46790, 1108, 17737, 375, 513, "Output", CellID->544871857] }, Open ]], Cell[CellGroupData[{ Cell[64564, 1488, 28, 0, 138, "SnapshotsSection"], Cell[64595, 1490, 17747, 375, 513, "Output", CellID->106444001], Cell[82345, 1867, 17747, 375, 513, "Output", CellID->555123176], Cell[100095, 2244, 17740, 374, 513, "Output", CellID->346973069] }, Open ]], Cell[CellGroupData[{ Cell[117872, 2623, 26, 0, 332, "DetailsSection"], Cell[117901, 2625, 514, 10, 22, "DetailNotes", CellID->28710086], Cell[118418, 2637, 2403, 88, 47, "DetailNotes", CellID->3921407], Cell[120824, 2727, 471, 13, 23, "DetailNotes", CellID->185198083], Cell[121298, 2742, 771, 15, 23, "DetailNotes", CellID->4236952], Cell[122072, 2759, 458, 12, 23, "DetailNotes", CellID->775104838], Cell[122533, 2773, 342, 7, 22, "DetailNotes", CellID->763367491] }, Open ]], Cell[CellGroupData[{ Cell[122912, 2785, 57, 1, 120, "ControlSuggestionsSection", CellID->219210516], Cell[122972, 2788, 391, 10, 22, "ControlSuggestions", CellTags->"ResizeImages", CellID->172151905], Cell[123366, 2800, 758, 18, 22, "ControlSuggestions", CellTags->"RotateAndZoomIn3D", CellID->5778304], Cell[124127, 2820, 360, 12, 22, "ControlSuggestions", CellTags->"DragLocators", CellID->344069041], Cell[124490, 2834, 657, 16, 22, "ControlSuggestions", CellTags->"CreateAndDeleteLocators", CellID->173469883], Cell[125150, 2852, 862, 22, 22, "ControlSuggestions", CellTags->"SliderZoom", CellID->6859011], Cell[126015, 2876, 389, 10, 22, "ControlSuggestions", CellTags->"GamepadControls", CellID->228314672], Cell[126407, 2888, 1484, 32, 22, "ControlSuggestions", CellTags->"AutomaticAnimation", CellID->110804094], Cell[127894, 2922, 928, 22, 22, "ControlSuggestions", CellTags->"BookmarkAnimation", CellID->400564261] }, Open ]], Cell[CellGroupData[{ Cell[128859, 2949, 30, 0, 152, "SearchTermsSection"], Cell[128892, 2951, 233, 5, 22, "SearchTerms", CellID->32258044], Cell[129128, 2958, 264, 5, 22, "SearchTerms", CellID->539760898], Cell[129395, 2965, 258, 5, 22, "SearchTerms", CellID->89534291], Cell[129656, 2972, 313, 6, 22, "SearchTerms", CellID->103377250] }, Open ]], Cell[CellGroupData[{ Cell[130006, 2983, 31, 0, 138, "RelatedLinksSection"], Cell[130040, 2985, 322, 8, 22, "RelatedLinks", CellID->5579609] }, Open ]], Cell[CellGroupData[{ Cell[130399, 2998, 25, 0, 136, "AuthorSection"], Cell[130427, 3000, 421, 8, 22, "Author"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature yvDPqSLvoOdH0A1YdNQeD@L5 *)