(*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 0, 0] NotebookDataLength[ 281896, 6714] NotebookOptionsPosition[ 274176, 6455] NotebookOutlinePosition[ 274655, 6474] CellTagsIndexPosition[ 274612, 6471] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "EE 30358: EMag-2 Illustrations\n", StyleBox["Debdeep Jena (djena@nd.edu), Electrical Engineering, University of \ Notre Dame\nLast Revised: 01/19/2012", "Subtitle"] }], "Title", CellChangeTimes->{{3.472441086148445*^9, 3.472441157316395*^9}, { 3.472483120122967*^9, 3.47248312751857*^9}, {3.472483221948595*^9, 3.472483224123279*^9}, 3.472876955593248*^9, {3.4740788410704193`*^9, 3.4740788480513353`*^9}, {3.4813762104797297`*^9, 3.481376213598689*^9}, { 3.504351965381998*^9, 3.504351976772973*^9}, {3.504523436400614*^9, 3.504523437016897*^9}, {3.523370321691099*^9, 3.523370324509242*^9}, { 3.535970383750205*^9, 3.535970387887981*^9}}], Cell["", "Text", Editable->False, Selectable->False, CellFrame->{{0, 0}, {0, 2}}, ShowCellBracket->False, CellMargins->{{0, 0}, {1, 1}}, CellElementSpacings->{"CellMinHeight"->1}, CellFrameMargins->0, CellFrameColor->RGBColor[0, 0, 1], CellSize->{Inherited, 4}], Cell[CellGroupData[{ Cell["Chapter 5 (Iskander): Plane Wave Reflection and Transmission", "Section", CellChangeTimes->{{3.472441344729312*^9, 3.472441364462521*^9}}], Cell["Section 5.1", "Subsection", CellChangeTimes->{{3.4724420969468517`*^9, 3.4724421002105017`*^9}}], Cell[CellGroupData[{ Cell["Section 5.2", "Subsection", CellChangeTimes->{{3.4724414703102903`*^9, 3.472441474811946*^9}}], Cell["EMag Wave Propagation", "Item", CellChangeTimes->{{3.472481965815267*^9, 3.472481969941991*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"EMag", " ", "Waves", " ", "in", " ", "Non"}], "-", RowBox[{"Conductive", " ", RowBox[{"Media", " ", ":", " ", RowBox[{ "Moves", " ", "to", " ", "the", " ", "right", " ", "or", " ", "left"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", "*", "t"}], "-", RowBox[{"2", "\[Pi]", "*", "z"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4724818803480053`*^9, 3.472481980751587*^9}, { 3.4728609506492863`*^9, 3.472861061682506*^9}, {3.504352013855898*^9, 3.504352048946159*^9}, {3.5045235753914213`*^9, 3.5045235803372803`*^9}, { 3.5045301160739717`*^9, 3.504530117068803*^9}, {3.535970455877736*^9, 3.535970497561947*^9}, {3.535970535950864*^9, 3.535970554695286*^9}, { 3.535980769177072*^9, 3.535980770049094*^9}, 3.536402125653894*^9, { 3.5364040200607557`*^9, 3.5364040351929092`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -10., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = { 360., {110., 117.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$755$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$755$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ Cos[ 2 $CellContext`t$$ - 2 Pi $CellContext`z], {$CellContext`z, -5, 5}, PlotRange -> {-1.2, 1.2}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) or \ \!\(\*SubscriptBox[\(H\), \(y\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, -10, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {167., 173.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.472481911506329*^9, 3.4724819378274097`*^9}, { 3.472482198076707*^9, 3.472482235631625*^9}, 3.472860945615098*^9, { 3.472861001898135*^9, 3.472861062104953*^9}, 3.4729159668237963`*^9, 3.4734771867509193`*^9, 3.47365137738516*^9, {3.504351987348007*^9, 3.504352002620571*^9}, {3.504352037388668*^9, 3.5043520619769793`*^9}, 3.504523583137031*^9, {3.504530104350779*^9, 3.5045301284859533`*^9}, { 3.5049614693767843`*^9, 3.504961472543621*^9}, {3.535970462980997*^9, 3.535970499021536*^9}, {3.535970537642086*^9, 3.535970555953992*^9}, 3.535980773114887*^9, {3.536402117484384*^9, 3.536402126394783*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Electric", " ", "Field", " ", "of", " ", "Linearly", " ", "Polarized", " ", "Light"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"VectorPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", RowBox[{"\[ImaginaryI]", "*", "0"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "x"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "t"}], "]"}]}], "]"}], ",", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", "1", ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "x"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "t"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"VectorScale", "\[Rule]", "Medium"}], ",", RowBox[{"VectorPoints", "\[Rule]", "6"}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.536173026511088*^9, 3.5361730275136757`*^9}, { 3.536173157477878*^9, 3.536173287184157*^9}, {3.5361733219958897`*^9, 3.536173351281961*^9}, {3.536173490395192*^9, 3.536173506181469*^9}, { 3.53617354530418*^9, 3.5361735483274097`*^9}, {3.536173582098578*^9, 3.536173694379643*^9}, {3.536173835190752*^9, 3.5361738411737556`*^9}, { 3.536173935482032*^9, 3.536173968657695*^9}, {3.536174031037105*^9, 3.536174077587821*^9}, {3.536174121666267*^9, 3.5361741573179626`*^9}, 3.536174245969355*^9, 3.5361743428045597`*^9, {3.536174440957733*^9, 3.536174446868791*^9}, 3.5361745187977257`*^9, {3.536174586473321*^9, 3.53617460137612*^9}, 3.5361746568346653`*^9, {3.536174734852502*^9, 3.53617475664426*^9}, {3.536174795500449*^9, 3.536174795660222*^9}, { 3.536402768786846*^9, 3.536402770508732*^9}, {3.5364028317683563`*^9, 3.536402865677391*^9}, {3.5364029511202707`*^9, 3.5364029569389277`*^9}, { 3.536403179537203*^9, 3.536403180119034*^9}, {3.536403227206869*^9, 3.536403234926938*^9}, {3.536403272533474*^9, 3.536403285310791*^9}, 3.536403320971301*^9, {3.536403364249482*^9, 3.536403404639577*^9}, { 3.53640385218012*^9, 3.536403875612298*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 5.342913156250068, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 1, 10}}, Typeset`size$$ = {360., {96., 100.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$7516$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$7516$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> VectorPlot3D[{0, Re[(I 0) Exp[(-I) $CellContext`x] Exp[I $CellContext`t$$]], Re[ 1 Exp[(-I) $CellContext`x] Exp[I $CellContext`t$$]]}, {$CellContext`x, -1, 9}, {$CellContext`y, -1, 1}, {$CellContext`z, -1, 1}, VectorScale -> Medium, VectorPoints -> 6, BoxRatios -> {5, 1, 1}], "Specifications" :> {{$CellContext`t$$, 1, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {151., 157.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.536402741818633*^9, 3.5364027728854*^9, {3.536402839762424*^9, 3.5364028669943953`*^9}, {3.5364029528907633`*^9, 3.536402958692005*^9}, 3.53640318135165*^9, {3.5364032294988937`*^9, 3.536403236110897*^9}, 3.53640328706903*^9, 3.536403322655451*^9, {3.536403367193757*^9, 3.536403405809825*^9}, {3.536403862610042*^9, 3.536403877725979*^9}, 3.5364039144932747`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Electric", " ", "Field", " ", "of", " ", "Circularly", " ", "Polarized", " ", "Light"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"VectorPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", RowBox[{"\[ImaginaryI]", "*", "1"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "x"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "t"}], "]"}]}], "]"}], ",", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", "1", ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "x"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "t"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"VectorScale", "\[Rule]", "Medium"}], ",", RowBox[{"VectorPoints", "\[Rule]", "6"}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.536403905293387*^9, 3.5364039115432863`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 1., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 1, 10}}, Typeset`size$$ = {360., {96., 100.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$7584$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$7584$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> VectorPlot3D[{0, Re[(I 1) Exp[(-I) $CellContext`x] Exp[I $CellContext`t$$]], Re[ 1 Exp[(-I) $CellContext`x] Exp[I $CellContext`t$$]]}, {$CellContext`x, -1, 9}, {$CellContext`y, -1, 1}, {$CellContext`z, -1, 1}, VectorScale -> Medium, VectorPoints -> 6, BoxRatios -> {5, 1, 1}], "Specifications" :> {{$CellContext`t$$, 1, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {151., 157.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.5364039214765167`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"EMag", " ", "Waves", " ", "in", " ", "Conductive", " ", RowBox[{"Media", " ", ":", " ", RowBox[{"skin", " ", "depth", " ", "and", " ", "decay"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], "*", "z"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", "*", "t"}], "-", RowBox[{"2", "\[Pi]", "*", "z"}], "+", "1"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.472481995569745*^9, 3.4724820370038967`*^9}, { 3.4724820761206083`*^9, 3.47248208517377*^9}, 3.472861080237851*^9, 3.5043520823412333`*^9, {3.504523543460588*^9, 3.504523548074514*^9}, { 3.504523599559367*^9, 3.5045236196076202`*^9}, {3.5045302727675657`*^9, 3.504530277656602*^9}, {3.535970644756914*^9, 3.535970645195068*^9}, { 3.5364040466996202`*^9, 3.536404052992426*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -4.170438766479492, $CellContext`\ \[Alpha]$$ = 0.51, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], -10, 10}, { Hold[$CellContext`\[Alpha]$$], 0, 1}}, Typeset`size$$ = { 360., {110., 116.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$898$$ = 0, $CellContext`\[Alpha]$899$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10, $CellContext`\[Alpha]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$898$$, 0], Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$899$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[Exp[(-$CellContext`\[Alpha]$$) $CellContext`z] Cos[2 $CellContext`t$$ - 2 Pi $CellContext`z + 1], {$CellContext`z, 0, 10}, PlotRange -> {-1.2, 1.2}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) or \ \!\(\*SubscriptBox[\(H\), \(y\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, -10, 10}, {$CellContext`\[Alpha]$$, 0, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {194., 200.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.47248203743598*^9, 3.472482096280405*^9}, { 3.472482200203849*^9, 3.472482205906941*^9}, {3.472496337120575*^9, 3.4724963435027523`*^9}, 3.4728610819714537`*^9, 3.473477188558649*^9, { 3.504352084612117*^9, 3.504352093837975*^9}, 3.504523560826758*^9, { 3.5045236208514347`*^9, 3.5045236517447433`*^9}, {3.504530150239669*^9, 3.5045301657716*^9}, 3.535970575943018*^9, 3.535970646565723*^9, 3.536402145284698*^9}] }, Open ]], Cell["\<\ Reflection and Transmission of EMag Waves at Interfaces. Example 5.1 from \ Iskander\ \>", "Item", CellChangeTimes->{{3.472479855610333*^9, 3.472479871407007*^9}, { 3.472480409740383*^9, 3.47248041842572*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Reflection", " ", "and", " ", "Transmission"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1.0", "*", RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", "*", "t"}], "-", RowBox[{"2", "\[Pi]", "*", "z"}]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "0.38"}], "*", RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", "*", "t"}], "+", RowBox[{"2", "\[Pi]", "*", "z"}]}], "]"}]}], ",", RowBox[{"0.62", "*", RowBox[{"UnitStep", "[", "z", "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", "*", "t"}], "-", RowBox[{"2", "\[Pi]", "*", "z"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4724798960446663`*^9, 3.4724799049391623`*^9}, { 3.472479939353351*^9, 3.472479984639921*^9}, {3.472480015763846*^9, 3.472480027650193*^9}, {3.472480066629963*^9, 3.472480071932453*^9}, { 3.472480167635289*^9, 3.4724801824767427`*^9}, {3.4724802133968897`*^9, 3.47248024538132*^9}, {3.472480381310316*^9, 3.472480399356874*^9}, 3.4728611092572603`*^9, {3.4729159855842037`*^9, 3.472915986060892*^9}, 3.504352120320595*^9, {3.504523668772623*^9, 3.504523673355462*^9}, { 3.5045245470999002`*^9, 3.504524552228118*^9}, {3.5359706590520372`*^9, 3.535970659483502*^9}, {3.535970714546884*^9, 3.535970731063326*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 1.9964501953125051`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = { 360., {110., 117.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$8919$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$8919$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{1. UnitStep[-$CellContext`z] Cos[2 $CellContext`t$$ - 2 Pi $CellContext`z], (-0.38) UnitStep[-$CellContext`z] Cos[2 $CellContext`t$$ + 2 Pi $CellContext`z], 0.62 UnitStep[$CellContext`z] Cos[2 $CellContext`t$$ - 2 Pi $CellContext`z]}, {$CellContext`z, -5, 5}, PlotRange -> {-1.2, 1.2}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) or \ \!\(\*SubscriptBox[\(H\), \(y\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, -10, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {167., 173.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.472479919162901*^9, 3.4724799867510233`*^9}, 3.472480030299225*^9, 3.472480072498608*^9, {3.47248014109489*^9, 3.4724801427633553`*^9}, 3.47248018443571*^9, {3.472480221256983*^9, 3.472480287169677*^9}, 3.4724804000083857`*^9, {3.472480434830608*^9, 3.472480511287387*^9}, {3.472481841594043*^9, 3.472481854956888*^9}, { 3.4724821217449617`*^9, 3.4724821297226887`*^9}, {3.472496351496318*^9, 3.472496354932383*^9}, 3.4728611123908*^9, {3.472915987157693*^9, 3.4729160146635027`*^9}, 3.473477191675671*^9, {3.504352124748378*^9, 3.504352133531049*^9}, 3.504523677344165*^9, {3.5045302024811897`*^9, 3.50453021744094*^9}, {3.504530258239559*^9, 3.504530259038516*^9}, 3.535970661563349*^9, {3.53597071696492*^9, 3.535970734230034*^9}, 3.536404078718256*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Reflection", " ", "and", " ", "Transmission"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"1.0", "*", RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", "*", "t"}], "-", RowBox[{"2", "\[Pi]", "*", "z"}]}], "]"}]}], "-", RowBox[{"0.38", "*", RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", "*", "t"}], "+", RowBox[{"2", "\[Pi]", "*", "z"}]}], "]"}]}]}], ",", RowBox[{"0.62", "*", RowBox[{"UnitStep", "[", "z", "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", "*", "t"}], "-", RowBox[{"2", "\[Pi]", "*", "z"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5051282917319727`*^9, 3.505128308555087*^9}, { 3.53597074581596*^9, 3.53597074627142*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -10., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = { 360., {114., 120.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$4197$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$4197$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{(1. UnitStep[-$CellContext`z]) Cos[2 $CellContext`t$$ - (2 Pi) $CellContext`z] - (0.38 UnitStep[-$CellContext`z]) Cos[2 $CellContext`t$$ + (2 Pi) $CellContext`z], (0.62 UnitStep[$CellContext`z]) Cos[2 $CellContext`t$$ - (2 Pi) $CellContext`z]}, {$CellContext`z, -5, 5}, PlotRange -> {-1.5, 1.5}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) or \ \!\(\*SubscriptBox[\(H\), \(y\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, -10, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {170., 176.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.50512829638465*^9, 3.50512840642461*^9}, { 3.506189419332923*^9, 3.506189421306979*^9}, 3.535970747891143*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Section 5.3", "Subsection", CellChangeTimes->{{3.4724414880838013`*^9, 3.472441491140904*^9}}], Cell["\<\ Standing Waves formed by interference of incident and reflected waves from a \ perfectly conducting plane\ \>", "Item", CellChangeTimes->{{3.472441534801766*^9, 3.472441574391994*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Reflection", " ", "and", " ", "Transmission"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"c", "=", RowBox[{"3", "*", SuperscriptBox["10", "8"]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "speed", " ", "of", " ", "light", " ", "in", " ", "free", " ", "space"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", RowBox[{"8.85", "*", SuperscriptBox["10", RowBox[{"-", "12"}]]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"permitivitty", " ", "in", " ", "vacuum"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "[", RowBox[{"\[Omega]_", ",", "\[Epsilon]_", ",", "\[Sigma]_"}], "]"}], ":=", RowBox[{"120", "*", "\[Pi]", "*", SqrtBox[ FractionBox["1", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", "*", FractionBox["\[Sigma]", RowBox[{ "\[Omega]", "*", "\[Epsilon]", "*", "\[Epsilon]0"}]]}]}]]]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"Units", ":", " ", "Ohms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "[", RowBox[{"\[Omega]_", ",", "\[Epsilon]_", ",", "\[Sigma]_"}], "]"}], ":=", RowBox[{"\[Omega]", "*", FractionBox["1", "c"], "*", SqrtBox[ FractionBox["\[Epsilon]", "2"]], "*", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", FractionBox["\[Sigma]", RowBox[{"\[Omega]", "*", "\[Epsilon]", "*", "\[Epsilon]0"}]], ")"}], "2"]}], ")"}], FractionBox["1", "2"]], "+", "1"}], ")"}], FractionBox["1", "2"]]}]}], ";", " ", RowBox[{"(*", " ", "wavevector", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"\[Omega]_", ",", "\[Epsilon]_", ",", "\[Sigma]_"}], "]"}], ":=", RowBox[{"\[Omega]", "*", FractionBox["1", "c"], "*", SqrtBox[ FractionBox["\[Epsilon]", "2"]], "*", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", FractionBox["\[Sigma]", RowBox[{"\[Omega]", "*", "\[Epsilon]", "*", "\[Epsilon]0"}]], ")"}], "2"]}], ")"}], FractionBox["1", "2"]], "-", "1"}], ")"}], FractionBox["1", "2"]]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"decay", " ", "constant"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "[", RowBox[{"\[Omega]_", ",", "\[Epsilon]_", ",", "\[Sigma]_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"\[Omega]", ",", "\[Epsilon]", ",", "\[Sigma]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", "*", RowBox[{"\[Beta]", "[", RowBox[{"\[Omega]", ",", "\[Epsilon]", ",", "\[Sigma]"}], "]"}]}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"propagation", " ", "constant"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{ "\[Omega]_", ",", "\[Epsilon]1_", ",", "\[Sigma]1_", ",", "\[Epsilon]2_", ",", "\[Sigma]2_"}], "]"}], ":=", " ", FractionBox[ RowBox[{ RowBox[{"\[Eta]", "[", RowBox[{"\[Omega]", ",", "\[Epsilon]2", ",", "\[Sigma]2"}], "]"}], "-", RowBox[{"\[Eta]", "[", RowBox[{"\[Omega]", ",", "\[Epsilon]1", ",", "\[Sigma]1"}], "]"}]}], RowBox[{ RowBox[{"\[Eta]", "[", RowBox[{"\[Omega]", ",", "\[Epsilon]1", ",", "\[Sigma]1"}], "]"}], "+", RowBox[{"\[Eta]", "[", RowBox[{"\[Omega]", ",", "\[Epsilon]2", ",", "\[Sigma]2"}], "]"}]}]]}], ";", " ", RowBox[{"(*", " ", RowBox[{"Reflection", " ", "Coefficient"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"1.0", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"\[Gamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "0"}], "]"}]}], "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "0", ",", "1", ",", "\[Sigma]2"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", RowBox[{"\[Gamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "0"}], "]"}]}], "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"+", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[CapitalGamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "0", ",", "1", ",", "\[Sigma]2"}], "]"}]}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"\[Gamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "\[Sigma]2"}], "]"}]}], "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "60"}], ",", "60"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", "2.1"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) or \ \!\(\*SubscriptBox[\(H\), \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", SuperscriptBox["10", RowBox[{"-", "7"}]]}], ",", SuperscriptBox["10", RowBox[{"-", "7"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]2", ",", "0", ",", "0.09"}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.536576754777296*^9, 3.5365770422334023`*^9}, { 3.5365770888926907`*^9, 3.536577241037478*^9}, {3.536577353529565*^9, 3.5365773908537073`*^9}, {3.536577444559949*^9, 3.536577538568812*^9}, { 3.536577647536355*^9, 3.536577778956142*^9}, {3.536577815583332*^9, 3.536578151293631*^9}, {3.536578192989299*^9, 3.5365782016825113`*^9}, { 3.5365782718683033`*^9, 3.536578292775689*^9}, {3.5365784300657473`*^9, 3.536578495006523*^9}, {3.5365785786871147`*^9, 3.536578659648796*^9}, { 3.536578700448387*^9, 3.536578727180314*^9}, {3.5365787629499693`*^9, 3.536578763591281*^9}, 3.53657882381458*^9, {3.5365788733045*^9, 3.536578894740809*^9}, {3.536578980625436*^9, 3.5365789859754*^9}, { 3.5365790327294407`*^9, 3.536579036878817*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -2.085485458374023*^-8, $CellContext`\ \[Sigma]2$$ = 0.079, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 10000000], Rational[1, 10000000]}, { Hold[$CellContext`\[Sigma]2$$], 0, 0.09}}, Typeset`size$$ = { 360., {115., 121.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$40515$$ = 0, $CellContext`\[Sigma]2$40516$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 10000000], $CellContext`\[Sigma]2$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$40515$$, 0], Hold[$CellContext`\[Sigma]2$$, $CellContext`\[Sigma]2$40516$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] Re[1. Exp[(-$CellContext`\[Gamma][10^8, 1, 0]) $CellContext`z] Exp[I 10^8 $CellContext`t$$]], UnitStep[-$CellContext`z] Re[$CellContext`\[CapitalGamma][ 10^8, 1, 0, 1, $CellContext`\[Sigma]2$$] Exp[Plus[ $CellContext`\[Gamma][10^8, 1, 0]] $CellContext`z] Exp[I 10^8 $CellContext`t$$]], UnitStep[ Plus[$CellContext`z]] Re[(1 + $CellContext`\[CapitalGamma][ 10^8, 1, 0, 1, $CellContext`\[Sigma]2$$]) Exp[(-$CellContext`\[Gamma][ 10^8, 1, $CellContext`\[Sigma]2$$]) $CellContext`z] Exp[I 10^8 $CellContext`t$$]]}, {$CellContext`z, -60, 60}, PlotRange -> {-2.1, 2.1}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, Rational[-1, 10000000], Rational[1, 10000000]}, {$CellContext`\[Sigma]2$$, 0, 0.09}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {199., 205.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.536578153709765*^9, {3.536578195905841*^9, 3.536578202205814*^9}, { 3.5365782794903917`*^9, 3.53657829349481*^9}, {3.536578476751184*^9, 3.536578496086389*^9}, {3.5365785892142*^9, 3.536578660068376*^9}, { 3.53657870356511*^9, 3.536578728056849*^9}, 3.536578766105322*^9, 3.536578825293652*^9, {3.53657887507178*^9, 3.536578896050233*^9}, 3.5365790386108923`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"1.0", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"\[Gamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "0"}], "]"}]}], "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "0", ",", "1", ",", "\[Sigma]2"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", RowBox[{"\[Gamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "0"}], "]"}]}], "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"+", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[CapitalGamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "0", ",", "1", ",", "\[Sigma]2"}], "]"}]}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"\[Gamma]", "[", RowBox[{ SuperscriptBox["10", "8"], ",", "1", ",", "\[Sigma]2"}], "]"}]}], "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "60"}], ",", "60"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", "2.1"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", SuperscriptBox["10", RowBox[{"-", "7"}]]}], ",", SuperscriptBox["10", RowBox[{"-", "7"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]2", ",", "0", ",", "0.09"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.536578999559414*^9, {3.5365790435718393`*^9, 3.5365790475002947`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 5.37151527404785*^-8, $CellContext`\[Sigma]2$$ = 0.0811, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 10000000], Rational[1, 10000000]}, { Hold[$CellContext`\[Sigma]2$$], 0, 0.09}}, Typeset`size$$ = { 360., {115., 121.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$43865$$ = 0, $CellContext`\[Sigma]2$43866$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 10000000], $CellContext`\[Sigma]2$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$43865$$, 0], Hold[$CellContext`\[Sigma]2$$, $CellContext`\[Sigma]2$43866$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] Re[1. Exp[(-$CellContext`\[Gamma][10^8, 1, 0]) $CellContext`z] Exp[I 10^8 $CellContext`t$$]] + UnitStep[-$CellContext`z] Re[$CellContext`\[CapitalGamma][ 10^8, 1, 0, 1, $CellContext`\[Sigma]2$$] Exp[Plus[ $CellContext`\[Gamma][10^8, 1, 0]] $CellContext`z] Exp[I 10^8 $CellContext`t$$]], UnitStep[ Plus[$CellContext`z]] Re[(1 + $CellContext`\[CapitalGamma][ 10^8, 1, 0, 1, $CellContext`\[Sigma]2$$]) Exp[(-$CellContext`\[Gamma][ 10^8, 1, $CellContext`\[Sigma]2$$]) $CellContext`z] Exp[I 10^8 $CellContext`t$$]]}, {$CellContext`z, -60, 60}, PlotRange -> {-2.1, 2.1}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, Rational[-1, 10000000], Rational[1, 10000000]}, {$CellContext`\[Sigma]2$$, 0, 0.09}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {199., 205.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.536579003718093*^9, 3.536579048381425*^9, 3.536579761358541*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Electric", " ", "Field"}], ",", " ", RowBox[{"varies", " ", "as", " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "*", "z"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"\[Omega]", "*", "t"}], "]"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", "*", "t"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"2", "\[Pi]", "*", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "0"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.470361100484663*^9, 3.470361233377256*^9}, { 3.470438681204431*^9, 3.4704387102653522`*^9}, {3.470438754034333*^9, 3.4704387594155293`*^9}, {3.4704388115858393`*^9, 3.4704389036271276`*^9}, {3.4704389469713573`*^9, 3.470438951314331*^9}, { 3.470438992081379*^9, 3.470438993369268*^9}, {3.470439038612712*^9, 3.4704390432077208`*^9}, {3.470439380847962*^9, 3.4704394362685823`*^9}, { 3.472440444717168*^9, 3.472440470203944*^9}, {3.472440513392857*^9, 3.472440678285747*^9}, {3.472440763635435*^9, 3.472440770426072*^9}, { 3.4724409266776133`*^9, 3.4724409759668407`*^9}, {3.4724410251604652`*^9, 3.472441048519799*^9}, {3.472441234476791*^9, 3.472441243258292*^9}, { 3.472441597861628*^9, 3.472441603513093*^9}, {3.472442181480785*^9, 3.472442184046838*^9}, {3.472442215128723*^9, 3.472442245601963*^9}, 3.4724422971521187`*^9, {3.4728611215520267`*^9, 3.472861126720373*^9}, 3.504352143701927*^9, {3.505326625499885*^9, 3.5053266282553167`*^9}, { 3.535970771293425*^9, 3.5359707716933002`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -1.4640388488769531`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = { 360., {111., 118.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$4694$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$4694$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[Sin[2 $CellContext`t$$] Sin[(2 Pi) $CellContext`z], {$CellContext`z, -5, 0}, PlotRange -> {-1.2, 1.2}, Frame -> True, PlotStyle -> Thick, FrameLabel -> {"z", "\!\(\*SubscriptBox[\(E\), \(x\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, -10, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {168., 174.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.472440516523326*^9, 3.472440559505453*^9}, { 3.472440593804562*^9, 3.472440610165575*^9}, {3.472440641568789*^9, 3.472440678948268*^9}, {3.472440772168202*^9, 3.472440789981329*^9}, { 3.472440927732068*^9, 3.472441049061611*^9}, 3.472441618042872*^9, { 3.472441674597332*^9, 3.4724416876906643`*^9}, {3.472442298439115*^9, 3.472442327386157*^9}, {3.472482143760874*^9, 3.472482145892025*^9}, { 3.472496359961032*^9, 3.472496362523971*^9}, 3.47286113250282*^9, 3.4734771960216627`*^9, {3.504352145352313*^9, 3.504352150003887*^9}, { 3.504957197922449*^9, 3.5049572158932*^9}, {3.504961425126033*^9, 3.504961438925766*^9}, 3.505326630523777*^9, 3.5359707736583033`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Magnetic", " ", "Field"}], ",", " ", RowBox[{"varies", " ", "as", " ", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "*", "z"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"\[Omega]", "*", "t"}], "]"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", "*", "t"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"2", "\[Pi]", "*", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "0"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(H\), \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.470361100484663*^9, 3.470361233377256*^9}, { 3.470438681204431*^9, 3.4704387102653522`*^9}, {3.470438754034333*^9, 3.4704387594155293`*^9}, {3.4704388115858393`*^9, 3.4704389036271276`*^9}, {3.4704389469713573`*^9, 3.470438951314331*^9}, { 3.470438992081379*^9, 3.470438993369268*^9}, {3.470439038612712*^9, 3.4704390432077208`*^9}, {3.470439380847962*^9, 3.4704394362685823`*^9}, { 3.472440444717168*^9, 3.472440470203944*^9}, {3.472440513392857*^9, 3.472440678285747*^9}, {3.472440763635435*^9, 3.472440770426072*^9}, { 3.4724409266776133`*^9, 3.4724409759668407`*^9}, {3.4724410251604652`*^9, 3.472441048519799*^9}, {3.472441234476791*^9, 3.472441243258292*^9}, { 3.472441597861628*^9, 3.472441603513093*^9}, {3.4724416339090557`*^9, 3.4724416589822187`*^9}, {3.472442257837139*^9, 3.4724422656829453`*^9}, 3.472442306735827*^9, {3.4728611366328363`*^9, 3.47286113981598*^9}, 3.50435215794326*^9, {3.5053266407364902`*^9, 3.505326643127849*^9}, { 3.535970818363851*^9, 3.5359708186189938`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -10., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = { 360., {110., 117.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$5261$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$5261$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[Cos[2 $CellContext`t$$] Cos[(2 Pi) $CellContext`z], {$CellContext`z, -5, 0}, PlotRange -> {-1.2, 1.2}, Frame -> True, PlotStyle -> Thick, FrameLabel -> {"z", "\!\(\*SubscriptBox[\(H\), \(y\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, -10, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {167., 173.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4724416626881638`*^9, 3.472441683460844*^9}, { 3.47248214944133*^9, 3.472482152982374*^9}, 3.472861140215156*^9, { 3.5043521603228273`*^9, 3.504352166451375*^9}, {3.504957220843349*^9, 3.5049572221883383`*^9}, 3.505326644320518*^9, 3.535970819598917*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Electric", " ", "&"}], " ", "Magnetic", " ", "Fields", " ", "of", " ", "a", " ", "Standing", " ", "Wave"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", "*", "t"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"2", "\[Pi]", "*", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", "*", "t"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"2", "\[Pi]", "*", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "0"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) & \!\(\*SubscriptBox[\(H\), \ \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.470361100484663*^9, 3.470361233377256*^9}, { 3.470438681204431*^9, 3.4704387102653522`*^9}, {3.470438754034333*^9, 3.4704387594155293`*^9}, {3.4704388115858393`*^9, 3.4704389036271276`*^9}, {3.4704389469713573`*^9, 3.470438951314331*^9}, { 3.470438992081379*^9, 3.470438993369268*^9}, {3.470439038612712*^9, 3.4704390432077208`*^9}, {3.470439380847962*^9, 3.4704394362685823`*^9}, { 3.472440444717168*^9, 3.472440470203944*^9}, {3.472440513392857*^9, 3.472440678285747*^9}, {3.472440763635435*^9, 3.472440770426072*^9}, { 3.4724409266776133`*^9, 3.4724409759668407`*^9}, {3.4724410251604652`*^9, 3.472441048519799*^9}, {3.472441234476791*^9, 3.472441243258292*^9}, { 3.472441597861628*^9, 3.472441603513093*^9}, {3.472441707105575*^9, 3.472441740730563*^9}, 3.4724423135667963`*^9, {3.472482253479898*^9, 3.472482257485443*^9}, {3.472861153466135*^9, 3.472861158137157*^9}, 3.5043521877117863`*^9, {3.505326651313602*^9, 3.505326653896203*^9}, { 3.5359708447228518`*^9, 3.535970845139102*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 2.037182400000006, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = { 360., {110., 117.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$7850$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$7850$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{Sin[2 $CellContext`t$$] Sin[(2 Pi) $CellContext`z], Cos[2 $CellContext`t$$] Cos[(2 Pi) $CellContext`z]}, {$CellContext`z, -5, 0}, PlotRange -> {-1.2, 1.2}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) & \!\(\*SubscriptBox[\(H\), \ \(y\)]\)"}, PlotStyle -> Thick, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, -10, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {167., 173.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4724417447100067`*^9, 3.472441768750251*^9}, { 3.472441894003038*^9, 3.4724418998012457`*^9}, 3.472441959634532*^9, { 3.472442127686458*^9, 3.472442139069111*^9}, {3.472442333351316*^9, 3.4724423341235123`*^9}, {3.472479205754361*^9, 3.472479227163267*^9}, { 3.472482263312272*^9, 3.472482274865127*^9}, {3.472496369169569*^9, 3.47249637178767*^9}, {3.472861159245138*^9, 3.472861169443685*^9}, { 3.504352190354138*^9, 3.504352206645797*^9}, {3.504957228556445*^9, 3.504957231433832*^9}, {3.504962303922497*^9, 3.504962317990995*^9}, 3.504962366701297*^9, 3.5053266553114243`*^9, 3.535970847651825*^9, 3.53597088431019*^9}] }, Open ]] }, Open ]], Cell["Section 5.4", "Subsection", CellChangeTimes->{{3.472442033231873*^9, 3.472442043630968*^9}}], Cell[CellGroupData[{ Cell["Section 5.5", "Subsection", CellChangeTimes->{{3.472442050328402*^9, 3.472442053159232*^9}}], Cell["\<\ Example 5.5 from Iskander highlighting Reflection & Transmission at Multiple \ Interfaces (start >>)\ \>", "Item", CellChangeTimes->{{3.472874916634063*^9, 3.4728749396550007`*^9}, { 3.472876552530291*^9, 3.472876561279614*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Example", " ", "5.5"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Emp1", "=", "50"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Electric", " ", "field", " ", "amplitude", " ", "of", " ", "incident", " ", "EMag", " ", "wave"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]1", "=", RowBox[{"120", "*", "\[Pi]"}]}], ";"}], " ", RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "=", "2.094"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]2", "=", RowBox[{"60", "*", "\[Pi]"}]}], " ", ";"}], RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "=", RowBox[{"2", "*", "\[Beta]1"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]2", "=", FractionBox[ RowBox[{"2", "\[Pi]"}], "\[Beta]2"]}], ";"}], " ", RowBox[{"(*", " ", "m", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]3", "=", RowBox[{"30", "*", "\[Pi]"}]}], ";"}], " ", RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]3", "=", RowBox[{"4", "*", "\[Beta]1"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Z3O3", "=", RowBox[{"30", "*", "\[Pi]"}]}], ";"}], " ", RowBox[{"(*", " ", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Z2O2", "=", "Z3O3"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Continuity", " ", "of", " ", "Field", " ", "Impedance", " ", "for", " ", "plane", " ", "waves"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]2O2", "=", FractionBox[ RowBox[{"Z2O2", "-", "\[Eta]2"}], RowBox[{"Z2O2", "+", "\[Eta]2"}]], " ", RowBox[{"(*", " ", RowBox[{"Reflection", " ", "coefficient", " ", "at", " ", "O2"}], " ", "*)"}]}]}]}]], "Input", CellChangeTimes->{{3.472872932765972*^9, 3.472873832538047*^9}, { 3.472873894606764*^9, 3.472873902461854*^9}, {3.472874769741582*^9, 3.4728747821291113`*^9}, {3.472874855311781*^9, 3.472874863125658*^9}, 3.4728760427082376`*^9, {3.473039576111704*^9, 3.473039606552294*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox["1", "3"]}]], "Output", CellChangeTimes->{3.47287478267832*^9, 3.472874866837809*^9, 3.472874943420662*^9, 3.47287604914324*^9, 3.4729160731853647`*^9, 3.473030286697987*^9, 3.47303960771626*^9, 3.4734772008499737`*^9, 3.473651413784215*^9, 3.505129972417691*^9, 3.5057329907111597`*^9, 3.5233706360223207`*^9, 3.535970924016176*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[CapitalGamma]2md2", "=", RowBox[{"\[CapitalGamma]2O2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", FractionBox[ RowBox[{"4", "*", "\[Pi]"}], "3"]}], "]"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Reflection", " ", "coefficient", " ", "at", " ", "z"}], "=", RowBox[{"-", "d2"}]}], ",", " ", RowBox[{ "by", " ", "translating", " ", "across", " ", "this", " ", "distance"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Z2md2", "=", RowBox[{"\[Eta]2", "*", FractionBox[ RowBox[{"1", "+", "\[CapitalGamma]2md2"}], RowBox[{"1", "-", "\[CapitalGamma]2md2"}]], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Field", " ", "impedance", " ", "at", " ", "z"}], "=", RowBox[{"-", "d2"}]}], ",", " ", RowBox[{"in", " ", "Ohms"}]}], " ", "*)"}]}]}]}], "Input", CellChangeTimes->{{3.4728748765038433`*^9, 3.4728748788226023`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "3"]]}]], "Output", CellChangeTimes->{3.472874880064596*^9, 3.4728749449925327`*^9, 3.4729160775505342`*^9, 3.473030288170086*^9, 3.473477202320819*^9, 3.473651415037293*^9, 3.505129974882098*^9, 3.50573299181249*^9, 3.5233706375276403`*^9, 3.535970925524209*^9}], Cell[BoxData[ FractionBox[ RowBox[{"60", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "3"]]}]}], ")"}], " ", "\[Pi]"}], RowBox[{"1", "+", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "3"]]}]}]]], "Output",\ CellChangeTimes->{3.472874880064596*^9, 3.4728749449925327`*^9, 3.4729160775505342`*^9, 3.473030288170086*^9, 3.473477202320819*^9, 3.473651415037293*^9, 3.505129974882098*^9, 3.50573299181249*^9, 3.5233706375276403`*^9, 3.535970925528265*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Z1O1", "=", "Z2md2"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Continuity", " ", "of", " ", "Field", " ", "Impedance", " ", "for", " ", "plane", " ", "waves"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]1O1", "=", FractionBox[ RowBox[{"Z1O1", "-", "\[Eta]1"}], RowBox[{"Z1O1", "+", "\[Eta]1"}]], RowBox[{"(*", " ", RowBox[{"Reflection", " ", "coefficient", " ", "at", " ", "O1"}], " ", "*)"}]}]}], "Input"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "120"}], " ", "\[Pi]"}], "+", FractionBox[ RowBox[{"60", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "3"]]}]}], ")"}], " ", "\[Pi]"}], RowBox[{"1", "+", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "3"]]}]}]]}], RowBox[{ RowBox[{"120", " ", "\[Pi]"}], "+", FractionBox[ RowBox[{"60", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "3"]]}]}], ")"}], " ", "\[Pi]"}], RowBox[{"1", "+", RowBox[{ FractionBox["1", "3"], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}], "3"]]}]}]]}]]], "Output", CellChangeTimes->{3.472874885314044*^9, 3.472874946381181*^9, 3.472916079088832*^9, 3.473030290143441*^9, 3.473477203710801*^9, 3.473651415975094*^9, 3.505129976124526*^9, 3.5057329928790007`*^9, 3.5233706386812983`*^9, 3.535970929899275*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Emm1", "=", RowBox[{ RowBox[{"Emp1", "*", "\[CapitalGamma]1O1"}], "+", "0.0"}]}], " ", RowBox[{"(*", " ", RowBox[{ "Complex", " ", "Electric", " ", "field", " ", "of", " ", "reflected", " ", "EMag", " ", "wave", " ", "in", " ", "region", " ", "1", " ", "at", " ", "O1"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "Emm1", "]"}], "+", "0.0"}], " ", RowBox[{"(*", " ", RowBox[{ "Amplitude", " ", "of", " ", "Electric", " ", "field", " ", "of", " ", "reflected", " ", "EMag", " ", "wave", " ", "in", " ", "region", " ", "1", " ", "at", " ", "O1"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Arg", "[", "Emm1", "]"}], "*", FractionBox["180", "\[Pi]"]}], "+", "0.0", " ", RowBox[{"(*", " ", RowBox[{ "Phase", " ", "angle", " ", "of", " ", "Electric", " ", "field", " ", "of", " ", "reflected", " ", "EMag", " ", "wave", " ", "in", " ", "region", " ", "1", " ", "at", " ", "O1"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.472873843451393*^9, 3.472873877315304*^9}, { 3.472874307411525*^9, 3.472874374821033*^9}, {3.472874562824601*^9, 3.472874645602807*^9}, {3.4728760575068293`*^9, 3.472876059169421*^9}, { 3.4729160885288153`*^9, 3.472916096447987*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "10.273972602739736`"}], "-", RowBox[{"14.236034034812693`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{{3.472873870267864*^9, 3.472873877701295*^9}, 3.47287431843888*^9, {3.472874358704668*^9, 3.4728743752262173`*^9}, 3.472874650067069*^9, 3.472874948035459*^9, 3.472876061300302*^9, { 3.472916080527096*^9, 3.472916096963336*^9}, 3.473030291447214*^9, 3.473477204961157*^9, 3.473651416943521*^9, 3.505129977212397*^9, 3.505732994950787*^9, 3.5233706421748457`*^9, 3.535970933281159*^9}], Cell[BoxData["17.556172079419593`"], "Output", CellChangeTimes->{{3.472873870267864*^9, 3.472873877701295*^9}, 3.47287431843888*^9, {3.472874358704668*^9, 3.4728743752262173`*^9}, 3.472874650067069*^9, 3.472874948035459*^9, 3.472876061300302*^9, { 3.472916080527096*^9, 3.472916096963336*^9}, 3.473030291447214*^9, 3.473477204961157*^9, 3.473651416943521*^9, 3.505129977212397*^9, 3.505732994950787*^9, 3.5233706421748457`*^9, 3.535970933285173*^9}], Cell[BoxData[ RowBox[{"-", "125.8175256444436`"}]], "Output", CellChangeTimes->{{3.472873870267864*^9, 3.472873877701295*^9}, 3.47287431843888*^9, {3.472874358704668*^9, 3.4728743752262173`*^9}, 3.472874650067069*^9, 3.472874948035459*^9, 3.472876061300302*^9, { 3.472916080527096*^9, 3.472916096963336*^9}, 3.473030291447214*^9, 3.473477204961157*^9, 3.473651416943521*^9, 3.505129977212397*^9, 3.505732994950787*^9, 3.5233706421748457`*^9, 3.535970933288196*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]1", "[", "z_", "]"}], ":=", RowBox[{"\[CapitalGamma]1O1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], "*", "\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Reflection", " ", "coefficient", " ", "in", " ", "Region", " ", "1", " ", "at", " ", "any", " ", "z"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Ex1Total", "[", "z_", "]"}], ":=", RowBox[{"Emp1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[CapitalGamma]1", "[", "z", "]"}]}], ")"}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Total", " ", "electric", " ", "field", " ", "amplitude", " ", "in", " ", "region", " ", "1"}], ",", " ", RowBox[{"in", " ", RowBox[{"V", "/", "m"}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ex1Total", "[", "0", "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Electric", " ", "Field", " ", "amplitude", " ", "in", " ", "region", " ", "1", " ", "at", " ", "z"}], "=", "0"}], ",", " ", RowBox[{"in", " ", RowBox[{"V", "/", "m"}]}]}], " ", "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.472874966080138*^9, 3.472875026180676*^9}, { 3.472875347473344*^9, 3.4728754063710833`*^9}, {3.472875441041975*^9, 3.4728755933128357`*^9}, 3.4728756358770323`*^9, {3.472875709755781*^9, 3.472875715490408*^9}, {3.472875864122518*^9, 3.4728758645268183`*^9}, 3.472876068051244*^9, {3.472876643856427*^9, 3.472876736082443*^9}}], Cell[BoxData[ RowBox[{"39.72602739726027`", "\[VeryThinSpace]", "-", RowBox[{"14.236034034812691`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{{3.472875520388487*^9, 3.472875531481255*^9}, { 3.4728755776714478`*^9, 3.472875593668421*^9}, 3.472875638716074*^9, { 3.472875711688918*^9, 3.472875715885393*^9}, 3.472875870358521*^9, 3.4728760688589354`*^9, {3.472876716129678*^9, 3.47287673718183*^9}, 3.47291610412113*^9, 3.473030292867169*^9, 3.4734772061663713`*^9, 3.47365141806035*^9, 3.505129978191554*^9, 3.5057329963879642`*^9, 3.523370643864707*^9, 3.535970935872952*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Emp2", "=", FractionBox[ RowBox[{"Ex1Total", "[", "0", "]"}], RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", FractionBox[ RowBox[{"2", "*", "\[Pi]"}], "3"]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", "\[CapitalGamma]2md2"}], ")"}]}]]}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Electric", " ", "Field", " ", "amplitude", " ", "of", " ", "positive", " ", "going", " ", "wave", " ", "in", " ", "region", " ", "2"}], ",", " ", RowBox[{"in", " ", RowBox[{"V", "/", "m"}]}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "[", "Emp2", "]"}], "+", "0.0"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Arg", "[", "Emp2", "]"}], "*", FractionBox["180", "\[Pi]"]}], "+", "0.0"}]}], "Input", CellChangeTimes->{{3.472875890141069*^9, 3.472875915767933*^9}, { 3.472876023181487*^9, 3.4728760236216497`*^9}, {3.472876074105418*^9, 3.472876197608527*^9}, {3.47287623237038*^9, 3.472876278234456*^9}, { 3.472876343273528*^9, 3.4728763582802753`*^9}, {3.4728767196830273`*^9, 3.472876776052884*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "20.547945205479447`"}], "-", RowBox[{"28.472068069625386`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.472876161964764*^9, 3.472876199125745*^9, {3.472876235371285*^9, 3.472876278612225*^9}, 3.4728763600299187`*^9, 3.472876777965961*^9, 3.472916113283894*^9, 3.473030294072151*^9, 3.4734772073714867`*^9, 3.473651419017066*^9, 3.505129979280683*^9, 3.505732997741407*^9, 3.523370646272925*^9, 3.535970938714693*^9}], Cell[BoxData["35.11234415883917`"], "Output", CellChangeTimes->{ 3.472876161964764*^9, 3.472876199125745*^9, {3.472876235371285*^9, 3.472876278612225*^9}, 3.4728763600299187`*^9, 3.472876777965961*^9, 3.472916113283894*^9, 3.473030294072151*^9, 3.4734772073714867`*^9, 3.473651419017066*^9, 3.505129979280683*^9, 3.505732997741407*^9, 3.523370646272925*^9, 3.5359709387180767`*^9}], Cell[BoxData[ RowBox[{"-", "125.81752564444358`"}]], "Output", CellChangeTimes->{ 3.472876161964764*^9, 3.472876199125745*^9, {3.472876235371285*^9, 3.472876278612225*^9}, 3.4728763600299187`*^9, 3.472876777965961*^9, 3.472916113283894*^9, 3.473030294072151*^9, 3.4734772073714867`*^9, 3.473651419017066*^9, 3.505129979280683*^9, 3.505732997741407*^9, 3.523370646272925*^9, 3.535970938720792*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Emm2", "=", RowBox[{"Emp2", "*", "\[CapitalGamma]2O2"}]}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Electric", " ", "Field", " ", "amplitude", " ", "of", " ", "positive", " ", "going", " ", "wave", " ", "in", " ", "region", " ", "2"}], ",", " ", RowBox[{"in", " ", RowBox[{"V", "/", "m"}]}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "[", "Emm2", "]"}], "+", "0.0"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Arg", "[", "Emm2", "]"}], "*", FractionBox["180", "\[Pi]"]}], "+", "0.0"}]}], "Input", CellChangeTimes->{{3.472918900501749*^9, 3.4729189093083067`*^9}, { 3.47303876975386*^9, 3.473038771310748*^9}, {3.473038815273984*^9, 3.473038843505065*^9}}], Cell[BoxData[ RowBox[{"6.849315068493149`", "\[VeryThinSpace]", "+", RowBox[{"9.490689356541795`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.473030297149116*^9, {3.47303881888126*^9, 3.473038844750639*^9}, 3.4734772086081448`*^9, 3.473651420020103*^9, 3.5051299805001*^9, 3.505732999325294*^9, 3.523370650753384*^9, 3.535970941417467*^9}], Cell[BoxData["11.704114719613056`"], "Output", CellChangeTimes->{ 3.473030297149116*^9, {3.47303881888126*^9, 3.473038844750639*^9}, 3.4734772086081448`*^9, 3.473651420020103*^9, 3.5051299805001*^9, 3.505732999325294*^9, 3.523370650753384*^9, 3.5359709414209013`*^9}], Cell[BoxData["54.18247435555644`"], "Output", CellChangeTimes->{ 3.473030297149116*^9, {3.47303881888126*^9, 3.473038844750639*^9}, 3.4734772086081448`*^9, 3.473651420020103*^9, 3.5051299805001*^9, 3.505732999325294*^9, 3.523370650753384*^9, 3.535970941423469*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pav", "=", RowBox[{ RowBox[{ FractionBox["1", "2"], "*", FractionBox[ SuperscriptBox["Emp1", "2"], "\[Eta]1"], "*", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"\[CapitalGamma]1", "[", "0", "]"}], "]"}], "2"]}], ")"}]}], "+", "0.0", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "Time", " ", "averaged", " ", "power", " ", "density", " ", "of", " ", "EMag", " ", "wave", " ", "in", " ", "region", " ", "1", " ", "after", " ", "all", " ", "reflections"}], " ", "&"}], " ", "transmissions"}], ",", " ", RowBox[{"W", "/", SuperscriptBox["m", "2"]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{{3.472876395446553*^9, 3.472876466693892*^9}, { 3.472876507936064*^9, 3.472876508838542*^9}, {3.472876539450017*^9, 3.4728765397284603`*^9}, {3.472876793287768*^9, 3.472876828704591*^9}, { 3.472876862427167*^9, 3.472876871051888*^9}, {3.4728769070775747`*^9, 3.47287692147861*^9}}], Cell[BoxData["2.9069395998519694`"], "Output", CellChangeTimes->{ 3.472876472024755*^9, 3.47287650921804*^9, 3.4728765401352453`*^9, { 3.472876819567687*^9, 3.472876833546557*^9}, {3.472876864973584*^9, 3.472876871604492*^9}, 3.472876914818342*^9, 3.472916115926186*^9, 3.473030356275731*^9, 3.473477209929764*^9, 3.4736514210228977`*^9, 3.5051299815683928`*^9, 3.5233706527089033`*^9, 3.53597094437851*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Electric", " ", "Field"}], ",", " ", RowBox[{ RowBox[{"Reflection", " ", "&"}], " ", "Transmission", " ", "at", " ", "2", " ", RowBox[{"interfaces", ":", " ", RowBox[{ "Visulaization", " ", "of", " ", "Example", " ", "Problem", " ", "5.5"}]}]}], ",", " ", "Iskander"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp1", "*", "\[CapitalGamma]1O1", "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], "]"}]}], ")"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], "]"}]}], ")"}], "*", RowBox[{"Re", "[", RowBox[{"Emm2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"(", RowBox[{"1", "+", "\[CapitalGamma]2O2"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]3", "*", RowBox[{"(", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "70"}], ",", "70"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", FractionBox["1", SuperscriptBox["10", "8"]]}], ",", FractionBox["1", SuperscriptBox["10", "8"]]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.473038422810174*^9, 3.473038430030795*^9}, 3.473038859457984*^9, {3.473039024118005*^9, 3.473039074217484*^9}, { 3.473039190592647*^9, 3.473039195847142*^9}, {3.4730392742128773`*^9, 3.473039284854059*^9}, {3.47303938022758*^9, 3.4730394199407997`*^9}, { 3.473039465206781*^9, 3.473039511068733*^9}, {3.473039623117976*^9, 3.4730396744172363`*^9}, {3.473039741886716*^9, 3.473039763870311*^9}, { 3.473039815962564*^9, 3.473039853388257*^9}, {3.473039982354143*^9, 3.473040011227592*^9}, {3.4730400860255547`*^9, 3.473040087447342*^9}, { 3.473040226169874*^9, 3.4730402625562563`*^9}, {3.473040701669264*^9, 3.4730407031231813`*^9}, 3.473040939671216*^9, {3.5051300154034243`*^9, 3.505130050421506*^9}, {3.505130088706203*^9, 3.505130166776739*^9}, 3.5051302277815866`*^9, {3.5359709553449087`*^9, 3.5359709603535957`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -1.*^-8, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 100000000], Rational[1, 100000000]}}, Typeset`size$$ = {360., {111., 118.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$11135$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 100000000]}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$11135$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] Re[$CellContext`Emp1 Exp[(-I) $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]], UnitStep[-$CellContext`z] Re[$CellContext`Emp1 $CellContext`\[CapitalGamma]1O1 Exp[I $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]], (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`\[Lambda]2/3]) Re[$CellContext`Emp2 Exp[(-I) $CellContext`\[Beta]2 ($CellContext`z - $CellContext`\ \[Lambda]2/3)] Exp[I 2 Pi 10^8 $CellContext`t$$]], (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`\[Lambda]2/3]) Re[$CellContext`Emm2 Exp[Plus[ I] $CellContext`\[Beta]2 ($CellContext`z - $CellContext`\ \[Lambda]2/3)] Exp[I 2 Pi 10^8 $CellContext`t$$]], UnitStep[$CellContext`z - $CellContext`\[Lambda]2/3] Re[$CellContext`Emp2 (1 + $CellContext`\[CapitalGamma]2O2) Exp[(-I) $CellContext`\[Beta]3 ($CellContext`z - $CellContext`\ \[Lambda]2/3)] Exp[I 2 Pi 10^8 $CellContext`t$$]]}, {$CellContext`z, -4, 2}, PlotRange -> {-70, 70}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) or \ \!\(\*SubscriptBox[\(H\), \(y\)]\)"}, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, Rational[-1, 100000000], Rational[1, 100000000]}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {168., 174.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.473030358900361*^9, {3.4730376278376217`*^9, 3.473037630760097*^9}, { 3.473038137790633*^9, 3.473038203720003*^9}, {3.473038438738852*^9, 3.4730385206923923`*^9}, {3.473038554267592*^9, 3.473038562657611*^9}, { 3.473038865619646*^9, 3.473038890604582*^9}, {3.473039045092688*^9, 3.4730391033172607`*^9}, {3.47303919755613*^9, 3.473039214348288*^9}, { 3.4730392863164577`*^9, 3.473039342915497*^9}, {3.473039421459242*^9, 3.4730394320950212`*^9}, {3.473039677466139*^9, 3.473039709772477*^9}, 3.473039855118576*^9, {3.473039886517126*^9, 3.4730398923190928`*^9}, 3.473039922819497*^9, {3.4730399853408947`*^9, 3.4730400257066317`*^9}, 3.473040090384305*^9, {3.4730401323301487`*^9, 3.473040163607469*^9}, { 3.4730407043012323`*^9, 3.4730407234253197`*^9}, 3.473040941961075*^9, 3.4730409842759733`*^9, {3.473041016102446*^9, 3.473041045714312*^9}, { 3.4730509083655977`*^9, 3.473050914795824*^9}, {3.473477212036042*^9, 3.473477229480344*^9}, 3.47365142214885*^9, {3.504352254631591*^9, 3.504352261503552*^9}, {3.5051299856314363`*^9, 3.50513000632082*^9}, 3.505130051515929*^9, {3.5051301450829973`*^9, 3.505130188331603*^9}, 3.505130229602498*^9, 3.505136064475872*^9, 3.505136095348097*^9, { 3.505732958286469*^9, 3.5057329656795607`*^9}, 3.50573300292376*^9, 3.523370656542715*^9, 3.535970962814316*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Electric", " ", "Field"}], ",", " ", RowBox[{ RowBox[{"Reflection", " ", "&"}], " ", "Transmission", " ", "at", " ", "2", " ", RowBox[{"interfaces", ":", " ", RowBox[{ "Visulaization", " ", "of", " ", "Example", " ", "Problem", " ", "5.5"}]}]}], ",", " ", "Iskander"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp1", "*", "\[CapitalGamma]1O1", "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], "]"}]}], ")"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], "]"}]}], ")"}], "*", RowBox[{"Re", "[", RowBox[{"Emm2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"(", RowBox[{"1", "+", "\[CapitalGamma]2O2"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]3", "*", RowBox[{"(", RowBox[{"z", "-", FractionBox["\[Lambda]2", "3"]}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "70"}], ",", "70"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\) or \!\(\*SubscriptBox[\(H\), \ \(y\)]\)\>\""}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "15"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", FractionBox["1", SuperscriptBox["10", "8"]]}], ",", FractionBox["1", SuperscriptBox["10", "8"]]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5051302388288383`*^9, 3.50513024629219*^9}, { 3.535971007662011*^9, 3.5359710113601313`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -1.*^-8, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 100000000], Rational[1, 100000000]}}, Typeset`size$$ = {360., {111., 118.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$12334$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 100000000]}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$12334$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] Re[$CellContext`Emp1 Exp[(-I) $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]] + UnitStep[-$CellContext`z] Re[$CellContext`Emp1 $CellContext`\[CapitalGamma]1O1 Exp[I $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]], (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`\[Lambda]2/3]) Re[$CellContext`Emp2 Exp[(-I) $CellContext`\[Beta]2 ($CellContext`z - $CellContext`\ \[Lambda]2/3)] Exp[I 2 Pi 10^8 $CellContext`t$$]] + (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`\[Lambda]2/3]) Re[$CellContext`Emm2 Exp[Plus[ I] $CellContext`\[Beta]2 ($CellContext`z - $CellContext`\ \[Lambda]2/3)] Exp[I 2 Pi 10^8 $CellContext`t$$]], UnitStep[$CellContext`z - $CellContext`\[Lambda]2/3] Re[$CellContext`Emp2 (1 + $CellContext`\[CapitalGamma]2O2) Exp[(-I) $CellContext`\[Beta]3 ($CellContext`z - $CellContext`\ \[Lambda]2/3)] Exp[I 2 Pi 10^8 $CellContext`t$$]]}, {$CellContext`z, -4, 2}, PlotRange -> {-70, 70}, Frame -> True, PlotStyle -> Thick, FrameLabel -> { "z", "\!\(\*SubscriptBox[\(E\), \(x\)]\) or \ \!\(\*SubscriptBox[\(H\), \(y\)]\)"}, BaseStyle -> {FontSize -> 15}], "Specifications" :> {{$CellContext`t$$, Rational[-1, 100000000], Rational[1, 100000000]}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {168., 174.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.5051300555487747`*^9, {3.5051302486904984`*^9, 3.5051302607199497`*^9}, 3.505136107072996*^9, 3.505136184532487*^9, 3.505733007148741*^9, 3.52337066947157*^9, 3.535971013667337*^9}] }, Open ]], Cell["\<\ Example 5.5 from Iskander highlighting Reflection & Transmission at Multiple \ Interfaces (end <<)\ \>", "Item", CellChangeTimes->{{3.472876579331118*^9, 3.472876584376729*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Section 5.6", "Subsection", CellChangeTimes->{{3.4724420691695213`*^9, 3.472442072401248*^9}}], Cell["\<\ Smith Charts (From \"The Smith Chart\", The Wolfram Demonstrations Project)\ \>", "Item", CellChangeTimes->{{3.472482730708593*^9, 3.472482774445251*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Plots", " ", "the", " ", "Smith", " ", "Chart"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"smith", ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Dynamic", "@", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CircleDot]\>\"", ",", "24", ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Xi]", "[", RowBox[{"f", ",", "R", ",", "L", ",", "c"}], "]"}], ",", RowBox[{"\[Eta]", "[", RowBox[{"f", ",", "R", ",", "L", ",", "c"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"Dynamic", "@", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "16", ",", "Italic", ",", "Bold"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"r", "[", "R", "]"}], ",", "16", ",", "Bold"}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"f", ",", "L", ",", "c"}], "]"}], "\[GreaterEqual]", "0"}], ",", RowBox[{"Style", "[", RowBox[{"\"\<+\>\"", ",", "16", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{"\"\<-\>\"", ",", "16", ",", "Bold"}], "]"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", RowBox[{"f", ",", "L", ",", "c"}], "]"}], "]"}], ",", "16", ",", "Bold"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "16", ",", "Bold", ",", "Italic"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Xi]", "[", RowBox[{"f", ",", "R", ",", "L", ",", "c"}], "]"}], ",", RowBox[{ RowBox[{"\[Eta]", "[", RowBox[{"f", ",", "R", ",", "L", ",", "c"}], "]"}], "+", ".15"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", ".3", "]"}], ",", "Yellow"}], "]"}]}]}], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"400", ",", "400"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "500", ",", "\"\\""}], "}"}], ",", "0", ",", "1000", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "50", ",", "\"\\""}], "}"}], ",", "0", ",", "100", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "10", ",", "\"\\""}], "}"}], ",", "0", ",", "100", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "10", ",", "\"\\""}], "}"}], ",", "0", ",", "100", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", RowBox[{"TrackedSymbols", "\[Rule]", "Manipulate"}], ",", RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", RowBox[{"SynchronousInitialization", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"X_", ",", "Y_"}], "]"}], ":=", FractionBox[ RowBox[{"2", " ", "Y"}], RowBox[{"1", "-", RowBox[{"2", " ", "X"}], "+", SuperscriptBox["X", "2"], "+", SuperscriptBox["Y", "2"]}]]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", RowBox[{"X_", ",", "Y_"}], "]"}], ":=", FractionBox[ RowBox[{"1", "-", SuperscriptBox["X", "2"], "-", SuperscriptBox["Y", "2"]}], RowBox[{"1", "-", RowBox[{"2", " ", "X"}], "+", SuperscriptBox["X", "2"], "+", SuperscriptBox["Y", "2"]}]]}], ";", RowBox[{"gx", "=", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"X", ",", "Y"}], "]"}], ",", RowBox[{"{", RowBox[{"X", ",", RowBox[{"-", "1"}], ",", ".999"}], "}"}], ",", RowBox[{"{", RowBox[{"Y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "None"}], ",", RowBox[{"Contours", "\[Rule]", "20"}], ",", RowBox[{"ContourStyle", "\[Rule]", "\[IndentingNewLine]", RowBox[{"RGBColor", "[", RowBox[{".6", ",", ".73", ",", ".36"}], "]"}]}], ",", RowBox[{"RegionFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}], ",", RowBox[{"0", "\[LessEqual]", RowBox[{"r", "[", RowBox[{"X", ",", "Y"}], "]"}]}]}], "]"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}]}], "]"}]}], ";", RowBox[{"gr", "=", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"X", ",", "Y"}], "]"}], ",", RowBox[{"{", RowBox[{"X", ",", RowBox[{"-", "1"}], ",", ".999"}], "}"}], ",", RowBox[{"{", RowBox[{"Y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "None"}], ",", RowBox[{"Contours", "\[Rule]", "20"}], ",", RowBox[{"ContourStyle", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".47", ",", "0"}], "]"}]}], ",", RowBox[{"RegionFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}], ",", RowBox[{"0", "\[LessEqual]", RowBox[{"r", "[", RowBox[{"X", ",", "Y"}], "]"}]}]}], "]"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}]}], "]"}]}], ";", RowBox[{"g0", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black", ",", RowBox[{"Circle", "[", "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1.01", RowBox[{"Cos", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}], ",", RowBox[{"1.01", RowBox[{"Sin", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.02", RowBox[{"Cos", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}], ",", RowBox[{"1.02", RowBox[{"Sin", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "1.9", ",", ".1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{".25", RowBox[{"(", RowBox[{"1", "-", "n"}], ")"}]}], ",", ".5"}], "]"}], "\"\<\[Lambda]\>\""}], ",", "10", ",", "Black"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.15", RowBox[{"Cos", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}], ",", RowBox[{"1.15", RowBox[{"Sin", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "1.9", ",", ".1"}], "}"}]}], "]"}]}], "}"}], "]"}]}], ";", RowBox[{"smith", "=", RowBox[{"Show", "[", RowBox[{"gx", ",", "gr", ",", "g0", ",", RowBox[{"FrameTicks", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "1.25"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", "R_", "]"}], ":=", RowBox[{"Round", "[", RowBox[{ RowBox[{"R", "/", "50"}], ",", ".1"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"x", "[", RowBox[{"f_", ",", "L_", ",", "c_"}], "]"}], ":=", RowBox[{"Round", "[", RowBox[{ RowBox[{ FractionBox["1", "50"], RowBox[{"(", RowBox[{ RowBox[{"2", "\[Pi]", " ", RowBox[{"(", RowBox[{"f", "+", ".01"}], ")"}], " ", "L", "*", SuperscriptBox["10", RowBox[{"-", "3"}]]}], "-", FractionBox[ RowBox[{"1", " "}], RowBox[{"2", "\[Pi]", " ", RowBox[{"(", RowBox[{"f", " ", "+", ".01"}], ")"}], RowBox[{"(", RowBox[{"c", "+", ".01"}], ")"}], "*", SuperscriptBox["10", RowBox[{"-", "6"}]]}]]}], ")"}]}], ",", ".1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Xi]", "[", RowBox[{"f_", ",", "R_", ",", "L_", ",", "c_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox[ RowBox[{"r", "[", "R", "]"}], "2"], "+", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"f", ",", "L", ",", "c"}], "]"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"r", "[", "R", "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"f", ",", "L", ",", "c"}], "]"}], "2"]}]]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "[", RowBox[{"f_", ",", "R_", ",", "L_", ",", "c_"}], "]"}], ":=", FractionBox[ RowBox[{"2", " ", RowBox[{"x", "[", RowBox[{"f", ",", "L", ",", "c"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", " ", RowBox[{"r", "[", "R", "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"x", "[", RowBox[{"f", ",", "L", ",", "c"}], "]"}], "2"]}]]}], ";"}], "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.472483079166152*^9, 3.472483087526884*^9}, 3.473043652610672*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`c$$ = 10, $CellContext`f$$ = 500, $CellContext`L$$ = 10, $CellContext`R$$ = 50, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`f$$], 500, "frequency MHz"}, 0, 1000, 1}, {{ Hold[$CellContext`R$$], 50, "resistance \[CapitalOmega]"}, 0, 100, 1}, {{ Hold[$CellContext`L$$], 10, "inductance nH"}, 0, 100, 1}, {{ Hold[$CellContext`c$$], 10, "capacitance pF"}, 0, 100, 1}}, Typeset`size$$ = Automatic, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`f$11113$$ = 0, $CellContext`R$11114$$ = 0, $CellContext`L$11115$$ = 0, $CellContext`c$11116$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`c$$ = 10, $CellContext`f$$ = 500, $CellContext`L$$ = 10, $CellContext`R$$ = 50}, "ControllerVariables" :> { Hold[$CellContext`f$$, $CellContext`f$11113$$, 0], Hold[$CellContext`R$$, $CellContext`R$11114$$, 0], Hold[$CellContext`L$$, $CellContext`L$11115$$, 0], Hold[$CellContext`c$$, $CellContext`c$11116$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[$CellContext`smith, Graphics[{ Dynamic[ Text[ Style["\[CircleDot]", 24, Bold], { $CellContext`\[Xi][$CellContext`f$$, $CellContext`R$$, \ $CellContext`L$$, $CellContext`c$$], $CellContext`\[Eta][$CellContext`f$$, $CellContext`R$$, \ $CellContext`L$$, $CellContext`c$$]}]], Dynamic[ Text[ Row[{ Style["z = ", 16, Italic, Bold], Style[ $CellContext`r[$CellContext`R$$], 16, Bold], If[$CellContext`x[$CellContext`f$$, $CellContext`L$$, \ $CellContext`c$$] >= 0, Style["+", 16, Bold], Style["-", 16, Bold]], Style[ Abs[ $CellContext`x[$CellContext`f$$, $CellContext`L$$, \ $CellContext`c$$]], 16, Bold], Style["j", 16, Bold, Italic]}], { $CellContext`\[Xi][$CellContext`f$$, $CellContext`R$$, \ $CellContext`L$$, $CellContext`c$$], $CellContext`\[Eta][$CellContext`f$$, \ $CellContext`R$$, $CellContext`L$$, $CellContext`c$$] + 0.15}, Background -> Directive[ Opacity[0.3], Yellow]]]}], ImageSize -> {400, 400}], "Specifications" :> {{{$CellContext`f$$, 500, "frequency MHz"}, 0, 1000, 1, Appearance -> "Labeled", ImageSize -> Tiny}, {{$CellContext`R$$, 50, "resistance \[CapitalOmega]"}, 0, 100, 1, Appearance -> "Labeled", ImageSize -> Tiny}, {{$CellContext`L$$, 10, "inductance nH"}, 0, 100, 1, Appearance -> "Labeled", ImageSize -> Tiny}, {{$CellContext`c$$, 10, "capacitance pF"}, 0, 100, 1, Appearance -> "Labeled", ImageSize -> Tiny}}, "Options" :> { TrackedSymbols -> Manipulate, ControlPlacement -> Left, SynchronousInitialization -> False}, "DefaultOptions" :> {}], ImageSizeCache->{637., {224., 229.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`x[ Pattern[$CellContext`X, Blank[]], Pattern[$CellContext`Y, Blank[]]] := 2 ($CellContext`Y/(1 - 2 $CellContext`X + $CellContext`X^2 + $CellContext`Y^2)); \ $CellContext`r[ Pattern[$CellContext`X, Blank[]], Pattern[$CellContext`Y, Blank[]]] := (1 - $CellContext`X^2 - $CellContext`Y^2)/(1 - 2 $CellContext`X + $CellContext`X^2 + $CellContext`Y^2); \ $CellContext`gx = ContourPlot[ $CellContext`x[$CellContext`X, $CellContext`Y], {$CellContext`X, -1, 0.999}, {$CellContext`Y, -1, 1}, ContourShading -> None, Contours -> 20, ContourStyle -> RGBColor[0.6, 0.73, 0.36], RegionFunction -> Function[{$CellContext`X, $CellContext`Y}, 0 <= $CellContext`r[$CellContext`X, $CellContext`Y]], PerformanceGoal -> "Quality"]; $CellContext`gr = ContourPlot[ $CellContext`r[$CellContext`X, $CellContext`Y], {$CellContext`X, -1, 0.999}, {$CellContext`Y, -1, 1}, ContourShading -> None, Contours -> 20, ContourStyle -> RGBColor[1, 0.47, 0], RegionFunction -> Function[{$CellContext`X, $CellContext`Y}, 0 <= $CellContext`r[$CellContext`X, $CellContext`Y]], PerformanceGoal -> "Quality"]; $CellContext`g0 = Graphics[{Thick, Black, Circle[], Table[ Line[{{1.01 Cos[$CellContext`n Pi], 1.01 Sin[$CellContext`n Pi]}, { 1.02 Cos[$CellContext`n Pi], 1.02 Sin[$CellContext`n Pi]}}], {$CellContext`n, 0, 1.9, 0.1}], Table[ Text[ Style[ Mod[0.25 (1 - $CellContext`n), 0.5] "\[Lambda]", 10, Black], { 1.15 Cos[$CellContext`n Pi], 1.15 Sin[$CellContext`n Pi]}], {$CellContext`n, 0, 1.9, 0.1}]}]; $CellContext`smith = Show[$CellContext`gx, $CellContext`gr, $CellContext`g0, FrameTicks -> None, Frame -> False, PlotRange -> 1.25]; $CellContext`r[ Pattern[$CellContext`R, Blank[]]] := Round[$CellContext`R/50, 0.1]; $CellContext`x[ Pattern[$CellContext`f, Blank[]], Pattern[$CellContext`L, Blank[]], Pattern[$CellContext`c, Blank[]]] := Round[(1/ 50) ((((2 Pi) ($CellContext`f + 0.01)) $CellContext`L) 10^(-3) - 1/((((2 Pi) ($CellContext`f + 0.01)) ($CellContext`c + 0.01)) 10^(-6))), 0.1]; $CellContext`\[Xi][ Pattern[$CellContext`f, Blank[]], Pattern[$CellContext`R, Blank[]], Pattern[$CellContext`L, Blank[]], Pattern[$CellContext`c, Blank[]]] := (-1 + $CellContext`r[$CellContext`R]^2 + \ $CellContext`x[$CellContext`f, $CellContext`L, $CellContext`c]^2)/(( 1 + $CellContext`r[$CellContext`R])^2 + \ $CellContext`x[$CellContext`f, $CellContext`L, $CellContext`c]^2); \ $CellContext`\[Eta][ Pattern[$CellContext`f, Blank[]], Pattern[$CellContext`R, Blank[]], Pattern[$CellContext`L, Blank[]], Pattern[$CellContext`c, Blank[]]] := 2 ($CellContext`x[$CellContext`f, $CellContext`L, $CellContext`c]/(( 1 + $CellContext`r[$CellContext`R])^2 + \ $CellContext`x[$CellContext`f, $CellContext`L, $CellContext`c]^2)); Null}; Typeset`initDone$$ = True), SynchronousInitialization->False, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4724827844040833`*^9, 3.472876974229466*^9, 3.4734845875830097`*^9, 3.4736564352297993`*^9, 3.47365652380173*^9, 3.505732899474536*^9, 3.50573880240482*^9, 3.523370673627527*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Section 5.7", "Subsection", CellChangeTimes->{{3.4724420691695213`*^9, 3.472442072401248*^9}, 3.4736514486724787`*^9}], Cell["Quarter- and Half-Wavelength Transformers", "Item", CellChangeTimes->{{3.472482730708593*^9, 3.472482774445251*^9}, { 3.473651460137128*^9, 3.473651474239245*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Quarter", " ", "Wavelength", " ", "Transformer"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Emp1", "=", "50"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Electric", " ", "field", " ", "amplitude", " ", "of", " ", "incident", " ", "EMag", " ", "wave"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]0", "=", RowBox[{"120", "*", "\[Pi]"}]}], ";"}], " ", RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]1", "=", "\[Eta]0"}], ";"}], " ", RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "=", "2.094"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]1", "=", FractionBox[ RowBox[{"2", "\[Pi]"}], "\[Beta]1"]}], ";"}], " ", RowBox[{"(*", " ", "m", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]2", "=", FractionBox["\[Eta]0", "4"]}], " ", ";"}], RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "=", RowBox[{"\[Beta]1", "*", FractionBox["\[Eta]1", "\[Eta]2"]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]2", "=", FractionBox[ RowBox[{"2", "\[Pi]"}], "\[Beta]2"]}], ";"}], " ", RowBox[{"(*", " ", "m", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]m", "=", SqrtBox[ RowBox[{"\[Eta]1", "*", "\[Eta]2"}]]}], ";"}], " ", RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]m", "=", RowBox[{"\[Beta]1", "*", FractionBox["\[Eta]1", "\[Eta]m"]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]m", "=", FractionBox[ RowBox[{"2", "\[Pi]"}], "\[Beta]m"]}], ";"}], " ", RowBox[{"(*", " ", "m", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dm", "=", RowBox[{"1.5", "*", FractionBox["1", "4"], "*", "\[Lambda]m"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Change", " ", "the", " ", "thickness", " ", "of", " ", RowBox[{"region", " ", "'"}], RowBox[{"m", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Z3O3", "=", "\[Eta]2"}], ";"}], " ", RowBox[{"(*", " ", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ZmOm", "=", "Z3O3"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Continuity", " ", "of", " ", "Field", " ", "Impedance", " ", "for", " ", "plane", " ", "waves"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]m", "[", "z_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"ZmOm", "-", "\[Eta]m"}], RowBox[{"ZmOm", "+", "\[Eta]m"}]], "*", RowBox[{"Exp", "[", RowBox[{"2", "*", "\[ImaginaryI]", "*", "\[Beta]m", "*", "z"}], "]"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"Reflection", " ", "coefficient", " ", "in", " ", RowBox[{"region", " ", "'"}], RowBox[{"m", "'"}], " ", RowBox[{"at", " ", "'"}], RowBox[{"z", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Zm", "[", "z_", "]"}], ":=", RowBox[{"\[Eta]m", "*", FractionBox[ RowBox[{"1", "+", RowBox[{"\[CapitalGamma]m", "[", "z", "]"}]}], RowBox[{"1", "-", RowBox[{"\[CapitalGamma]m", "[", "z", "]"}]}]]}]}], " ", RowBox[{"(*", " ", RowBox[{"Field", " ", "Impedance", " ", "in", " ", RowBox[{"region", " ", "'"}], RowBox[{"m", "'"}], " ", RowBox[{"at", " ", "'"}], RowBox[{"z", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Z1O1", ":=", RowBox[{"Zm", "[", RowBox[{"-", "dm"}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{"Field", " ", "Impedance", " ", "in", " ", RowBox[{"region", " ", "'"}], RowBox[{"1", "'"}], " ", RowBox[{"at", " ", "'"}], RowBox[{"O1", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]1", "[", "z_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"Z1O1", "-", "\[Eta]1"}], RowBox[{"Z1O1", "+", "\[Eta]1"}]], "*", RowBox[{"Exp", "[", RowBox[{"2", "*", "\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"Reflection", " ", "coefficient", " ", "in", " ", RowBox[{"region", " ", "'"}], RowBox[{"1", "'"}], " ", RowBox[{"at", " ", "'"}], RowBox[{"O1", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]1", "[", "0", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Emm1", ":=", RowBox[{"Emp1", "*", RowBox[{"\[CapitalGamma]1", "[", "0", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Empm", ":=", RowBox[{"Emp1", "*", FractionBox[ RowBox[{"1", "+", RowBox[{"\[CapitalGamma]1", "[", "0", "]"}]}], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", "dm"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[CapitalGamma]m", "[", RowBox[{"-", "dm"}], "]"}]}], ")"}]}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Emmm", ":=", RowBox[{"Empm", "*", RowBox[{"\[CapitalGamma]m", "[", "0", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Emp2", ":=", RowBox[{"Empm", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[CapitalGamma]m", "[", "0", "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emm1", "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}]}], ")"}], "*", RowBox[{"Re", "[", RowBox[{"Empm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}]}], ")"}], "*", RowBox[{"Re", "[", RowBox[{"Emmm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "100"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", FractionBox["1", SuperscriptBox["10", "8"]]}], ",", FractionBox["1", SuperscriptBox["10", "8"]]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Re", "[", RowBox[{"Emp1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}], "+", RowBox[{"Re", "[", RowBox[{"Emm1", "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Re", "[", RowBox[{"Empm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}], "+", RowBox[{"Re", "[", RowBox[{"Emmm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "100"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", FractionBox["1", SuperscriptBox["10", "8"]]}], ",", FractionBox["1", SuperscriptBox["10", "8"]]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Re", "[", RowBox[{"Emp1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}], "2"], RowBox[{"2", "*", "\[Eta]1"}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"Re", "[", RowBox[{"Emm1", "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}], "2"], RowBox[{ RowBox[{"-", "2"}], "*", "\[Eta]1"}]]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Re", "[", RowBox[{"Empm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}], "2"], RowBox[{"2", "*", "\[Eta]m"}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"Re", "[", RowBox[{"Emmm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}], "2"], RowBox[{ RowBox[{"-", "2"}], "*", "\[Eta]m"}]]}], ")"}]}], ",", RowBox[{ FractionBox["1", RowBox[{"2", "*", "\[Eta]2"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ")"}], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "10"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", FractionBox["1", SuperscriptBox["10", "8"]]}], ",", FractionBox["1", SuperscriptBox["10", "8"]]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.47407401169562*^9, 3.474074040652176*^9}, { 3.474074402419692*^9, 3.474074416360755*^9}, {3.474074615231563*^9, 3.474074647752483*^9}, 3.474075147196704*^9, {3.474075617715908*^9, 3.474075631465519*^9}, {3.474075740537121*^9, 3.4740757407914*^9}, 3.4740757763813267`*^9, 3.4740784993964*^9, 3.474078540829604*^9, { 3.474078578437505*^9, 3.474078583838814*^9}, {3.474078674689438*^9, 3.474078677963073*^9}, {3.474078712835837*^9, 3.4740787140163813`*^9}, { 3.5053267434597588`*^9, 3.505326834072329*^9}, {3.508757333486871*^9, 3.5087573996588697`*^9}, {3.5087574318867493`*^9, 3.508757447376772*^9}, { 3.508757491338093*^9, 3.508757495258353*^9}, {3.508757566428328*^9, 3.508757568686841*^9}, {3.508757614481617*^9, 3.50875761478277*^9}, { 3.508760993749164*^9, 3.5087611239792356`*^9}, {3.508761169370235*^9, 3.5087611737290993`*^9}, {3.508761237917102*^9, 3.508761255404893*^9}, { 3.508762148883665*^9, 3.508762150084366*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "0.36585365853658486`"}], "-", RowBox[{"0.29268292682926833`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.47407589335804*^9, 3.474077985446281*^9, 3.474078501129106*^9, 3.4740785453148117`*^9, 3.474078586551176*^9, 3.474078634039173*^9, 3.4740786792042503`*^9, 3.474078715503598*^9, {3.505326783246051*^9, 3.5053268360277357`*^9}, 3.505732603468054*^9, 3.505733042931432*^9, 3.505739126970827*^9, 3.5087574648577557`*^9, 3.508757495666841*^9, 3.5087575698685637`*^9, 3.508757615257002*^9, 3.5087611309654303`*^9, 3.508761174196196*^9, {3.508761238443795*^9, 3.508761255882695*^9}, 3.5087621511312532`*^9, 3.5233706831346083`*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = Rational[-1, 100000000], Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 100000000], Rational[1, 100000000]}}, Typeset`size$$ = {360., {115., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$11986$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 100000000]}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$11986$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] Re[$CellContext`Emp1 Exp[(-I) $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]], UnitStep[-$CellContext`z] Re[$CellContext`Emm1 Exp[I $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]], (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`dm]) Re[$CellContext`Empm Exp[(-I) $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]], (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`dm]) Re[$CellContext`Emmm Exp[Plus[ I] $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]], UnitStep[$CellContext`z - $CellContext`dm] Re[$CellContext`Emp2 Exp[(-I) $CellContext`\[Beta]2 ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]]}, {$CellContext`z, -2, 2}, PlotRange -> {-100, 100}, Frame -> True, PlotStyle -> Thick, FrameLabel -> {"z", "\!\(\*SubscriptBox[\(E\), \(x\)]\)"}], "Specifications" :> {{$CellContext`t$$, Rational[-1, 100000000], Rational[1, 100000000]}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {157., 163.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.47407589335804*^9, 3.474077985446281*^9, 3.474078501129106*^9, 3.4740785453148117`*^9, 3.474078586551176*^9, 3.474078634039173*^9, 3.4740786792042503`*^9, 3.474078715503598*^9, {3.505326783246051*^9, 3.5053268360277357`*^9}, 3.505732603468054*^9, 3.505733042931432*^9, 3.505739126970827*^9, 3.5087574648577557`*^9, 3.508757495666841*^9, 3.5087575698685637`*^9, 3.508757615257002*^9, 3.5087611309654303`*^9, 3.508761174196196*^9, {3.508761238443795*^9, 3.508761255882695*^9}, 3.5087621511312532`*^9, 3.523370683644137*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = Rational[-1, 100000000], Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 100000000], Rational[1, 100000000]}}, Typeset`size$$ = {360., {115., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$12009$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 100000000]}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$12009$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] ( Re[$CellContext`Emp1 Exp[(-I) $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]] + Re[$CellContext`Emm1 Exp[I $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]]), (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`dm]) ( Re[$CellContext`Empm Exp[(-I) $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]] + Re[$CellContext`Emmm Exp[Plus[ I] $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]]), UnitStep[$CellContext`z - $CellContext`dm] Re[$CellContext`Emp2 Exp[(-I) $CellContext`\[Beta]2 ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]]}, {$CellContext`z, -2, 2}, PlotRange -> {-100, 100}, Frame -> True, PlotStyle -> Thick, FrameLabel -> {"z", "\!\(\*SubscriptBox[\(E\), \(x\)]\)"}], "Specifications" :> {{$CellContext`t$$, Rational[-1, 100000000], Rational[1, 100000000]}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {157., 163.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.47407589335804*^9, 3.474077985446281*^9, 3.474078501129106*^9, 3.4740785453148117`*^9, 3.474078586551176*^9, 3.474078634039173*^9, 3.4740786792042503`*^9, 3.474078715503598*^9, {3.505326783246051*^9, 3.5053268360277357`*^9}, 3.505732603468054*^9, 3.505733042931432*^9, 3.505739126970827*^9, 3.5087574648577557`*^9, 3.508757495666841*^9, 3.5087575698685637`*^9, 3.508757615257002*^9, 3.5087611309654303`*^9, 3.508761174196196*^9, {3.508761238443795*^9, 3.508761255882695*^9}, 3.5087621511312532`*^9, 3.523370683648377*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = Rational[-1, 100000000], Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 100000000], Rational[1, 100000000]}}, Typeset`size$$ = {360., {118., 122.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$12043$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 100000000]}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$12043$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] ( Re[$CellContext`Emp1 Exp[(-I) $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]]^2/(2 $CellContext`\[Eta]1) + Re[$CellContext`Emm1 Exp[I $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]]^2/((-2) $CellContext`\[Eta]1)), ( UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`dm]) ( Re[$CellContext`Empm Exp[(-I) $CellContext`\[Beta]m ($CellContext`z - \ $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]]^2/( 2 $CellContext`\[Eta]m) + Re[$CellContext`Emmm Exp[Plus[ I] $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]]^2/((-2) $CellContext`\[Eta]m)), (1/( 2 $CellContext`\[Eta]2)) ( UnitStep[$CellContext`z - $CellContext`dm] Re[$CellContext`Emp2 Exp[(-I) $CellContext`\[Beta]2 ($CellContext`z - \ $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]])^2}, {$CellContext`z, -2, 2}, PlotRange -> {-5, 10}, Frame -> True, PlotStyle -> Thick, FrameLabel -> {"z", "Power"}, GridLines -> Automatic], "Specifications" :> {{$CellContext`t$$, Rational[-1, 100000000], Rational[1, 100000000]}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {160., 166.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.47407589335804*^9, 3.474077985446281*^9, 3.474078501129106*^9, 3.4740785453148117`*^9, 3.474078586551176*^9, 3.474078634039173*^9, 3.4740786792042503`*^9, 3.474078715503598*^9, {3.505326783246051*^9, 3.5053268360277357`*^9}, 3.505732603468054*^9, 3.505733042931432*^9, 3.505739126970827*^9, 3.5087574648577557`*^9, 3.508757495666841*^9, 3.5087575698685637`*^9, 3.508757615257002*^9, 3.5087611309654303`*^9, 3.508761174196196*^9, {3.508761238443795*^9, 3.508761255882695*^9}, 3.5087621511312532`*^9, 3.52337068377448*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Half", " ", "Wavelength", " ", "Transformer"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Emp1", "=", "50"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Electric", " ", "field", " ", "amplitude", " ", "of", " ", "incident", " ", "EMag", " ", "wave"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]0", "=", RowBox[{"120", "*", "\[Pi]"}]}], ";"}], " ", RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]1", "=", "\[Eta]0"}], ";"}], " ", RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "=", "2.094"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]1", "=", FractionBox[ RowBox[{"2", "\[Pi]"}], "\[Beta]1"]}], ";"}], " ", RowBox[{"(*", " ", "m", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]2", "=", "\[Eta]0"}], " ", ";"}], RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "=", RowBox[{"\[Beta]1", "*", FractionBox["\[Eta]0", "\[Eta]2"]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]2", "=", FractionBox[ RowBox[{"2", "\[Pi]"}], "\[Beta]2"]}], ";"}], " ", RowBox[{"(*", " ", "m", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]m", "=", FractionBox["\[Eta]0", "4"]}], ";"}], " ", RowBox[{"(*", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]m", "=", RowBox[{"\[Beta]1", "*", FractionBox["\[Eta]0", "\[Eta]m"]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rad", "/", "m"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]m", "=", FractionBox[ RowBox[{"2", "\[Pi]"}], "\[Beta]m"]}], ";"}], " ", RowBox[{"(*", " ", "m", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dm", "=", RowBox[{"1", "*", FractionBox["1", "2"], "*", "\[Lambda]m"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Change", " ", "the", " ", "thickness", " ", "of", " ", RowBox[{"region", " ", "'"}], RowBox[{"m", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Z3O3", "=", "\[Eta]2"}], ";"}], " ", RowBox[{"(*", " ", "Ohms", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ZmOm", "=", "Z3O3"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Continuity", " ", "of", " ", "Field", " ", "Impedance", " ", "for", " ", "plane", " ", "waves"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]m", "[", "z_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"ZmOm", "-", "\[Eta]m"}], RowBox[{"ZmOm", "+", "\[Eta]m"}]], "*", RowBox[{"Exp", "[", RowBox[{"2", "*", "\[ImaginaryI]", "*", "\[Beta]m", "*", "z"}], "]"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"Reflection", " ", "coefficient", " ", "in", " ", RowBox[{"region", " ", "'"}], RowBox[{"m", "'"}], " ", RowBox[{"at", " ", "'"}], RowBox[{"z", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Zm", "[", "z_", "]"}], ":=", RowBox[{"\[Eta]m", "*", FractionBox[ RowBox[{"1", "+", RowBox[{"\[CapitalGamma]m", "[", "z", "]"}]}], RowBox[{"1", "-", RowBox[{"\[CapitalGamma]m", "[", "z", "]"}]}]]}]}], " ", RowBox[{"(*", " ", RowBox[{"Field", " ", "Impedance", " ", "in", " ", RowBox[{"region", " ", "'"}], RowBox[{"m", "'"}], " ", RowBox[{"at", " ", "'"}], RowBox[{"z", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Z1O1", ":=", RowBox[{"Zm", "[", RowBox[{"-", "dm"}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{"Field", " ", "Impedance", " ", "in", " ", RowBox[{"region", " ", "'"}], RowBox[{"1", "'"}], " ", RowBox[{"at", " ", "'"}], RowBox[{"O1", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]1", "[", "z_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"Z1O1", "-", "\[Eta]1"}], RowBox[{"Z1O1", "+", "\[Eta]1"}]], "*", RowBox[{"Exp", "[", RowBox[{"2", "*", "\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"Reflection", " ", "coefficient", " ", "in", " ", RowBox[{"region", " ", "'"}], RowBox[{"1", "'"}], " ", RowBox[{"at", " ", "'"}], RowBox[{"O1", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]1", "[", "0", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Emm1", ":=", RowBox[{"Emp1", "*", RowBox[{"\[CapitalGamma]1", "[", "0", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Empm", ":=", RowBox[{"Emp1", "*", FractionBox[ RowBox[{"1", "+", RowBox[{"\[CapitalGamma]1", "[", "0", "]"}]}], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", "dm"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[CapitalGamma]m", "[", RowBox[{"-", "dm"}], "]"}]}], ")"}]}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Emmm", ":=", RowBox[{"Empm", "*", RowBox[{"\[CapitalGamma]m", "[", "0", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Emp2", ":=", RowBox[{"Empm", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[CapitalGamma]m", "[", "0", "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emm1", "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}]}], ")"}], "*", RowBox[{"Re", "[", RowBox[{"Empm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}]}], ")"}], "*", RowBox[{"Re", "[", RowBox[{"Emmm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "100"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", FractionBox["1", SuperscriptBox["10", "8"]]}], ",", FractionBox["1", SuperscriptBox["10", "8"]]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "z"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Re", "[", RowBox[{"Emp1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}], "+", RowBox[{"Re", "[", RowBox[{"Emm1", "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "\[Beta]1", "*", "z"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", "z", "]"}], "-", RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Re", "[", RowBox[{"Empm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}], "+", RowBox[{"Re", "[", RowBox[{"Emmm", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"+", "\[ImaginaryI]"}], "*", "\[Beta]m", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"z", "-", "dm"}], "]"}], "*", RowBox[{"Re", "[", RowBox[{"Emp2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]2", "*", RowBox[{"(", RowBox[{"z", "-", "dm"}], ")"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", SuperscriptBox["10", "8"], "*", "t"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "100"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(E\), \(x\)]\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", FractionBox["1", SuperscriptBox["10", "8"]]}], ",", FractionBox["1", SuperscriptBox["10", "8"]]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4740700391241198`*^9, 3.47407009593046*^9}, { 3.4740702006817503`*^9, 3.4740707572395077`*^9}, {3.474070789313051*^9, 3.474070815137189*^9}, {3.474070882461405*^9, 3.474070885101612*^9}, { 3.474071017670705*^9, 3.4740710199956017`*^9}, {3.474071213497512*^9, 3.4740713552028112`*^9}, {3.474071430353615*^9, 3.474071431234446*^9}, { 3.474071489717044*^9, 3.474071550708652*^9}, {3.474071735439485*^9, 3.474071782800518*^9}, {3.4740718469911547`*^9, 3.4740719731855707`*^9}, { 3.474072004775338*^9, 3.474072037327716*^9}, {3.474072169610195*^9, 3.474072218683826*^9}, {3.474072256301103*^9, 3.474072448709681*^9}, { 3.4740724867509937`*^9, 3.474072548512062*^9}, {3.474072588419025*^9, 3.474072614363093*^9}, 3.474072779947994*^9, {3.474072846552712*^9, 3.474072849598303*^9}, {3.474072907819593*^9, 3.474073007949032*^9}, 3.474073046503867*^9, {3.474073083683063*^9, 3.4740731008220453`*^9}, { 3.474073146319297*^9, 3.474073178554008*^9}, {3.474073334065174*^9, 3.474073336889756*^9}, {3.474073385197199*^9, 3.474073391511002*^9}, 3.474073423470531*^9, {3.474073457331522*^9, 3.4740736417550993`*^9}, { 3.474073689976945*^9, 3.474073704526183*^9}, {3.474073741466187*^9, 3.474073757566222*^9}, 3.474073802454421*^9, {3.4740738396453333`*^9, 3.474073885505807*^9}, {3.474074072809906*^9, 3.4740740898684587`*^9}, 3.474078536581188*^9, {3.474078743759405*^9, 3.47407876657442*^9}, { 3.505326874999363*^9, 3.505326887661992*^9}, 3.505732764156185*^9, { 3.505739067067853*^9, 3.505739069534486*^9}, {3.505739109377235*^9, 3.505739110329104*^9}}], Cell[BoxData[ RowBox[{"1.1284569492455495`*^-30", "+", RowBox[{"1.0622885433089964`*^-15", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.474077993132517*^9, 3.474078426291625*^9, 3.474078597604109*^9, { 3.4740787208574343`*^9, 3.474078768028632*^9}, 3.5053268891633453`*^9, 3.505732695114807*^9, 3.505732765209804*^9, 3.505733050701438*^9, 3.505739076997291*^9, 3.505739113365548*^9, 3.523370690420494*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = Rational[-1, 100000000], Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 100000000], Rational[1, 100000000]}}, Typeset`size$$ = {360., {115., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$12147$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 100000000]}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$12147$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] Re[$CellContext`Emp1 Exp[(-I) $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]], UnitStep[-$CellContext`z] Re[$CellContext`Emm1 Exp[I $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]], (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`dm]) Re[$CellContext`Empm Exp[(-I) $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]], (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`dm]) Re[$CellContext`Emmm Exp[Plus[ I] $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]], UnitStep[$CellContext`z - $CellContext`dm] Re[$CellContext`Emp2 Exp[(-I) $CellContext`\[Beta]2 ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]]}, {$CellContext`z, -2, 2}, PlotRange -> {-100, 100}, Frame -> True, PlotStyle -> Thick, FrameLabel -> {"z", "\!\(\*SubscriptBox[\(E\), \(x\)]\)"}], "Specifications" :> {{$CellContext`t$$, Rational[-1, 100000000], Rational[1, 100000000]}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {157., 163.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.474077993132517*^9, 3.474078426291625*^9, 3.474078597604109*^9, { 3.4740787208574343`*^9, 3.474078768028632*^9}, 3.5053268891633453`*^9, 3.505732695114807*^9, 3.505732765209804*^9, 3.505733050701438*^9, 3.505739076997291*^9, 3.505739113365548*^9, 3.52337069066745*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = Rational[-1, 100000000], Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], Rational[-1, 100000000], Rational[1, 100000000]}}, Typeset`size$$ = {360., {115., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$12171$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = Rational[-1, 100000000]}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$12171$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{UnitStep[-$CellContext`z] ( Re[$CellContext`Emp1 Exp[(-I) $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]] + Re[$CellContext`Emm1 Exp[I $CellContext`\[Beta]1 $CellContext`z] Exp[I 2 Pi 10^8 $CellContext`t$$]]), (UnitStep[$CellContext`z] - UnitStep[$CellContext`z - $CellContext`dm]) ( Re[$CellContext`Empm Exp[(-I) $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]] + Re[$CellContext`Emmm Exp[Plus[ I] $CellContext`\[Beta]m ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]]), UnitStep[$CellContext`z - $CellContext`dm] Re[$CellContext`Emp2 Exp[(-I) $CellContext`\[Beta]2 ($CellContext`z - $CellContext`dm)] Exp[I 2 Pi 10^8 $CellContext`t$$]]}, {$CellContext`z, -2, 2}, PlotRange -> {-100, 100}, Frame -> True, PlotStyle -> Thick, FrameLabel -> {"z", "\!\(\*SubscriptBox[\(E\), \(x\)]\)"}], "Specifications" :> {{$CellContext`t$$, Rational[-1, 100000000], Rational[1, 100000000]}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {157., 163.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.474077993132517*^9, 3.474078426291625*^9, 3.474078597604109*^9, { 3.4740787208574343`*^9, 3.474078768028632*^9}, 3.5053268891633453`*^9, 3.505732695114807*^9, 3.505732765209804*^9, 3.505733050701438*^9, 3.505739076997291*^9, 3.505739113365548*^9, 3.523370690671459*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Chapter 6 (Iskander): Oblique Incidence Plane Wave Reflection and Transmission\ \>", "Section", CellChangeTimes->{{3.472441344729312*^9, 3.472441364462521*^9}, { 3.474078797930009*^9, 3.474078817809619*^9}}], Cell["Section 6.1", "Subsection", CellChangeTimes->{{3.4724420969468517`*^9, 3.4724421002105017`*^9}, { 3.4746905517528276`*^9, 3.4746905522165937`*^9}}], Cell[CellGroupData[{ Cell["Section 6.2", "Subsection", CellChangeTimes->{{3.4724420969468517`*^9, 3.4724421002105017`*^9}, { 3.4746905517528276`*^9, 3.4746905804991713`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"z", "*", RowBox[{"Cos", "[", RowBox[{ FractionBox["\[Theta]i", "\[Pi]"], "*", "180"}], "]"}]}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"t", "-", RowBox[{"x", "*", RowBox[{"Sin", "[", RowBox[{ FractionBox["\[Theta]i", "\[Pi]"], "*", "180"}], "]"}]}]}], "]"}], "*", RowBox[{"UnitStep", "[", "z", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "10"}], "}"}], ",", RowBox[{"ContourLines", "\[Rule]", "20"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]i", ",", "0", ",", "90"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5061658962597647`*^9, 3.506165899518971*^9}, { 3.506165986248706*^9, 3.50616610287656*^9}, {3.50616618861166*^9, 3.506166210189652*^9}, {3.5061662461385717`*^9, 3.506166250791082*^9}, { 3.5061663438756*^9, 3.5061663464691896`*^9}, {3.5061664613029757`*^9, 3.50616649472784*^9}, {3.506166555679035*^9, 3.506166578310265*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = -0.34999999999999964`, $CellContext`\ \[Theta]i$$ = 20.6, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], -10, 10}, { Hold[$CellContext`\[Theta]i$$], 0, 90}}, Typeset`size$$ = { 360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$12241$$ = 0, $CellContext`\[Theta]i$12242$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = -10, $CellContext`\[Theta]i$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$12241$$, 0], Hold[$CellContext`\[Theta]i$$, $CellContext`\[Theta]i$12242$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ContourPlot[ Cos[$CellContext`z Cos[($CellContext`\[Theta]i$$/Pi) 180]] Cos[$CellContext`t$$ - $CellContext`x Sin[($CellContext`\[Theta]i$$/Pi) 180]] UnitStep[$CellContext`z], {$CellContext`x, -10, 10}, {$CellContext`z, -2, 10}, ContourLines -> 20], "Specifications" :> {{$CellContext`t$$, -10, 10}, {$CellContext`\[Theta]i$$, 0, 90}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {261., 267.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.506166105031707*^9, 3.50616612028994*^9}, 3.5061662109177637`*^9, {3.506166253235983*^9, 3.506166278713644*^9}, 3.5061663482626543`*^9, {3.506166408109489*^9, 3.506166419425621*^9}, { 3.506166468733686*^9, 3.506166622133624*^9}, 3.523370695302874*^9}] }, Open ]] }, Open ]], Cell["Section 6.3", "Subsection", CellChangeTimes->{{3.4724420969468517`*^9, 3.4724421002105017`*^9}, { 3.4746905517528276`*^9, 3.4746905522165937`*^9}, 3.47469058280173*^9}], Cell[CellGroupData[{ Cell["Section 6.4", "Subsection", CellChangeTimes->{{3.4724420969468517`*^9, 3.4724421002105017`*^9}, { 3.4746905517528276`*^9, 3.4746905522165937`*^9}, 3.474690585057869*^9}], Cell["\<\ Example 6.6 from Iskander highlighting Reflection at Oblique Incidence & \ Brewster's Angle: Generalized for arbitrary air-dielectric interface (start \ >>)\ \>", "Item", CellChangeTimes->{{3.472874916634063*^9, 3.4728749396550007`*^9}, { 3.472876552530291*^9, 3.472876561279614*^9}, {3.474691625513008*^9, 3.474691663471294*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Iskander", " ", "Example", " ", "6.6"}], ",", " ", RowBox[{"Reflection", " ", "coefficients"}], ",", " ", RowBox[{ RowBox[{"Brewster", "'"}], "s", " ", "Angle"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GammaParallel", "[", RowBox[{"e1_", ",", "e2_", ",", "\[Theta]i_"}], "]"}], ":=", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{ FractionBox["e1", "e2"], "*", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]i", "]"}], "2"]}]}]], "-", RowBox[{ SqrtBox[ FractionBox["e2", "e1"]], "*", RowBox[{"Cos", "[", "\[Theta]i", "]"}]}]}], RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{ FractionBox["e1", "e2"], "*", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]i", "]"}], "2"]}]}]], "+", RowBox[{ SqrtBox[ FractionBox["e2", "e1"]], "*", RowBox[{"Cos", "[", "\[Theta]i", "]"}]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GammaPerpendicular", "[", RowBox[{"e1_", ",", "e2_", ",", "\[Theta]i_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"Cos", "[", "\[Theta]i", "]"}], "-", RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{ FractionBox["e1", "e2"], "*", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]i", "]"}], "2"]}]}]], "*", SqrtBox[ FractionBox["e2", "e1"]]}]}], RowBox[{ RowBox[{"Cos", "[", "\[Theta]i", "]"}], "+", RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{ FractionBox["e1", "e2"], "*", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]i", "]"}], "2"]}]}]], "*", SqrtBox[ FractionBox["e2", "e1"]]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GammaParallel", "[", RowBox[{"1", ",", "e2", ",", RowBox[{"\[Theta]i", "*", FractionBox["\[Pi]", "180"]}]}], "]"}], ",", RowBox[{"GammaPerpendicular", "[", RowBox[{"1", ",", "e2", ",", RowBox[{"\[Theta]i", "*", FractionBox["\[Pi]", "180"]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]i", ",", "0", ",", "90"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(i\)]\)\>\"", ",", "\"\<\[CapitalGamma]\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"e2", ",", "1.001", ",", "100", ",", "1"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4746905938005743`*^9, 3.474690613292225*^9}, 3.474690648566045*^9, {3.474690759428505*^9, 3.474690923358694*^9}, { 3.4746909662808933`*^9, 3.474691238336687*^9}, {3.474691321926512*^9, 3.474691338453464*^9}, {3.47469140765079*^9, 3.474691472117722*^9}, { 3.47469151703122*^9, 3.4746915291121063`*^9}, {3.474691561506443*^9, 3.4746915871378937`*^9}, {3.506166763738205*^9, 3.5061668074494267`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`e2$$ = 42.001, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`e2$$], 1.001, 100, 1}}, Typeset`size$$ = { 360., {116., 121.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`e2$12790$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`e2$$ = 1.001}, "ControllerVariables" :> { Hold[$CellContext`e2$$, $CellContext`e2$12790$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{ $CellContext`GammaParallel[ 1, $CellContext`e2$$, $CellContext`\[Theta]i (Pi/180)], $CellContext`GammaPerpendicular[ 1, $CellContext`e2$$, $CellContext`\[Theta]i (Pi/ 180)]}, {$CellContext`\[Theta]i, 0, 90}, PlotRange -> {-1, 1}, Frame -> True, FrameLabel -> { "\!\(\*SubscriptBox[\(\[Theta]\), \(i\)]\)", "\[CapitalGamma]"}, PlotStyle -> Thick], "Specifications" :> {{$CellContext`e2$$, 1.001, 100, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {158., 164.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.474691339009411*^9, 3.474691388736479*^9}, { 3.4746914488005753`*^9, 3.4746915361712627`*^9}, {3.505732802435421*^9, 3.505732807792906*^9}, {3.506166780899744*^9, 3.5061668284641314`*^9}, 3.523370716287734*^9}] }, Open ]], Cell["\<\ Example 6.6 from Iskander highlighting Reflection at Oblique Incidence & \ Brewster's Angle: Generalized for arbitrary air-dielectric interface (end<<)\ \>", "Item", CellChangeTimes->{{3.472874916634063*^9, 3.4728749396550007`*^9}, { 3.472876552530291*^9, 3.472876561279614*^9}, {3.474691625513008*^9, 3.474691676456448*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Section 6.5", "Subsection", CellChangeTimes->{{3.4724420969468517`*^9, 3.4724421002105017`*^9}, { 3.4746905517528276`*^9, 3.4746905522165937`*^9}, 3.474690585057869*^9, 3.47469604582474*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Total", " ", "Internal", " ", "Reflection"}], " ", "&"}], " ", "Critical", " ", RowBox[{"Angle", ":", " ", RowBox[{"Any", " ", "dielectric", " ", "constants"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Origin", ":=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mn", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pl", ":=", RowBox[{"{", RowBox[{ RowBox[{"+", "1"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Inc", "[", RowBox[{"\[Theta]i_", ",", "e1_", ",", "e2_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Theta]i", "]"}]}], ",", RowBox[{"Cos", "[", "\[Theta]i", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Refl", "[", RowBox[{"\[Theta]i_", ",", "e1_", ",", "e2_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "\[Theta]i", "]"}], ",", RowBox[{"Cos", "[", "\[Theta]i", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Refr", "[", RowBox[{"\[Theta]i_", ",", "e1_", ",", "e2_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox[ FractionBox["e1", "e2"]], "*", RowBox[{"Sin", "[", "\[Theta]i", "]"}]}], ",", RowBox[{"-", SqrtBox[ RowBox[{"1", "-", RowBox[{ FractionBox["e1", "e2"], "*", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]i", "]"}], "2"]}]}]]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"Mn", ",", "Pl"}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"Inc", "[", RowBox[{ RowBox[{"\[Theta]i", "*", FractionBox["\[Pi]", "180"]}], ",", "e1", ",", "e2"}], "]"}], ",", "Origin"}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"Origin", ",", RowBox[{"Refl", "[", RowBox[{ RowBox[{"\[Theta]i", "*", FractionBox["\[Pi]", "180"]}], ",", "e1", ",", "e2"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"Origin", ",", RowBox[{"Refr", "[", RowBox[{ RowBox[{"\[Theta]i", "*", FractionBox["\[Pi]", "180"]}], ",", "e1", ",", "e2"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]i", ",", "0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"e1", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "1", ",", "10"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4746948458456583`*^9, 3.4746949500666113`*^9}, { 3.4746950412239637`*^9, 3.474695377803186*^9}, {3.4746954269751863`*^9, 3.474695522666891*^9}, {3.4746955546541033`*^9, 3.474695679740157*^9}, { 3.4746957653069963`*^9, 3.474695796121829*^9}, {3.474695826565317*^9, 3.474695843613838*^9}, {3.474695965435413*^9, 3.474695975702096*^9}, { 3.474696058919951*^9, 3.474696131898974*^9}, {3.474696177870843*^9, 3.474696193167407*^9}, {3.4747182224859657`*^9, 3.474718223130076*^9}, { 3.474718254893462*^9, 3.474718273084964*^9}, {3.474725488090316*^9, 3.4747254951616096`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`e1$$ = 6.92, $CellContext`e2$$ = 1., $CellContext`\[Theta]i$$ = 21.6, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Theta]i$$], 0, 90}, { Hold[$CellContext`e1$$], 1, 10}, { Hold[$CellContext`e2$$], 1, 10}}, Typeset`size$$ = {360., {204., 208.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Theta]i$12992$$ = 0, $CellContext`e1$12993$$ = 0, $CellContext`e2$12994$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`e1$$ = 1, $CellContext`e2$$ = 1, $CellContext`\[Theta]i$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Theta]i$$, $CellContext`\[Theta]i$12992$$, 0], Hold[$CellContext`e1$$, $CellContext`e1$12993$$, 0], Hold[$CellContext`e2$$, $CellContext`e2$12994$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Graphics[{ Line[{$CellContext`Mn, $CellContext`Pl}], Arrow[{ $CellContext`Inc[$CellContext`\[Theta]i$$ (Pi/ 180), $CellContext`e1$$, $CellContext`e2$$], \ $CellContext`Origin}], Arrow[{$CellContext`Origin, $CellContext`Refl[$CellContext`\[Theta]i$$ (Pi/ 180), $CellContext`e1$$, $CellContext`e2$$]}], Arrow[{$CellContext`Origin, $CellContext`Refr[$CellContext`\[Theta]i$$ (Pi/ 180), $CellContext`e1$$, $CellContext`e2$$]}]}, Axes -> True, PlotRange -> {-1.2, 1.2}], "Specifications" :> {{$CellContext`\[Theta]i$$, 0, 90}, {$CellContext`e1$$, 1, 10}, {$CellContext`e2$$, 1, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {314., 320.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.474695286472987*^9, 3.4746953880749702`*^9}, { 3.474695498256115*^9, 3.474695523117332*^9}, 3.474695568068733*^9, { 3.474695602999814*^9, 3.474695630176285*^9}, 3.474695681547536*^9, 3.47469579662351*^9, 3.4746958445838213`*^9, 3.474695976332183*^9, { 3.4746960731495037`*^9, 3.4746961066043262`*^9}, {3.4746961786573763`*^9, 3.4746961940606318`*^9}, 3.474718224555223*^9, {3.474718262630865*^9, 3.4747182744203653`*^9}, 3.479426041341758*^9, 3.505732818504634*^9, { 3.506166873711925*^9, 3.50616690227667*^9}, 3.5233707224268723`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Chapter 8 (Iskander): WaveGuides", "Section", CellChangeTimes->{{3.472441344729312*^9, 3.472441364462521*^9}, { 3.474078797930009*^9, 3.474078817809619*^9}, {3.479426120189047*^9, 3.479426131467424*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"TM", " ", "Mode"}], ",", " ", RowBox[{"Rectangular", " ", "Waveguide"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", ":=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", ":=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", ":=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Omega]", ":=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]", ":=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ez", "[", RowBox[{"m_", ",", "n_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Sin", "[", RowBox[{"m", "*", FractionBox["\[Pi]", "a"], "*", "x"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"n", "*", FractionBox["\[Pi]", "b"], "*", "y"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]", "*", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ey", "[", RowBox[{"m_", ",", "n_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]", "*", "n", "*", FractionBox["\[Pi]", "b"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"m", "*", FractionBox["\[Pi]", "a"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "*", FractionBox["\[Pi]", "b"]}], ")"}], "2"]}]], "*", RowBox[{"Sin", "[", RowBox[{"m", "*", FractionBox["\[Pi]", "a"], "*", "x"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"n", "*", FractionBox["\[Pi]", "b"], "*", "y"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]", "*", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ex", "[", RowBox[{"m_", ",", "n_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]", "*", "m", "*", FractionBox["\[Pi]", "a"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"m", "*", FractionBox["\[Pi]", "a"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "*", FractionBox["\[Pi]", "b"]}], ")"}], "2"]}]], "*", RowBox[{"Cos", "[", RowBox[{"m", "*", FractionBox["\[Pi]", "a"], "*", "x"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"n", "*", FractionBox["\[Pi]", "b"], "*", "y"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]", "*", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Hy", "[", RowBox[{"m_", ",", "n_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Omega]", "*", "\[Epsilon]", "*", "m", "*", FractionBox["\[Pi]", "a"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"m", "*", FractionBox["\[Pi]", "a"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "*", FractionBox["\[Pi]", "b"]}], ")"}], "2"]}]], "*", RowBox[{"Cos", "[", RowBox[{"m", "*", FractionBox["\[Pi]", "a"], "*", "x"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"n", "*", FractionBox["\[Pi]", "b"], "*", "y"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]", "*", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Hx", "[", RowBox[{"m_", ",", "n_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{ "\[ImaginaryI]", "*", "\[Omega]", "*", "\[Epsilon]", "*", "n", "*", FractionBox["\[Pi]", "b"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"m", "*", FractionBox["\[Pi]", "a"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "*", FractionBox["\[Pi]", "b"]}], ")"}], "2"]}]], "*", RowBox[{"Sin", "[", RowBox[{"m", "*", FractionBox["\[Pi]", "a"], "*", "x"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"n", "*", FractionBox["\[Pi]", "b"], "*", "y"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Beta]", "*", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"DensityPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Re", "[", RowBox[{"Ez", "[", RowBox[{"m", ",", "n", ",", "x", ",", "y", ",", "0"}], "]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "8", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "8", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Re", "[", RowBox[{ RowBox[{"Ey", "[", RowBox[{"1", ",", "1", ",", "x", ",", "y", ",", "0"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ "\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", "1", "*", "0.1"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "b"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"VectorPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"Ex", "[", RowBox[{"1", ",", "1", ",", "x", ",", "y", ",", "0"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ "\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", "1", "*", "t"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"Re", "[", RowBox[{"Ey", "[", RowBox[{"1", ",", "1", ",", "x", ",", "y", ",", "0"}], "]"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ "\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", "1", "*", "t"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "b"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.479434837970351*^9, 3.479435277864876*^9}, { 3.479435313583075*^9, 3.479435335376594*^9}, {3.479435416397132*^9, 3.4794354169343967`*^9}, {3.479435455851308*^9, 3.479435504495858*^9}, { 3.4794355495786047`*^9, 3.479435663985165*^9}, {3.479435697299582*^9, 3.4794356982354*^9}, {3.479435743391734*^9, 3.479435773783732*^9}, 3.479435814579208*^9, {3.479435865837544*^9, 3.479435918558175*^9}, { 3.479436022053001*^9, 3.479436158098467*^9}, {3.479436220400221*^9, 3.479436240071793*^9}, {3.479436283346528*^9, 3.479436361037981*^9}, { 3.479436484212295*^9, 3.479436494290724*^9}, {3.47943652971776*^9, 3.4794365595251417`*^9}, {3.4794366738983994`*^9, 3.47943667871388*^9}, { 3.479436859525601*^9, 3.479436891006125*^9}, {3.479436950850301*^9, 3.479436951601379*^9}, {3.479437074800313*^9, 3.479437114679883*^9}, { 3.4794371447475023`*^9, 3.479437228430809*^9}, {3.479437328536796*^9, 3.479437363505197*^9}, {3.47943739574575*^9, 3.4794373997041492`*^9}, { 3.479437434531124*^9, 3.479437485027504*^9}, {3.4794375690167427`*^9, 3.479437586711822*^9}, {3.4794376218207293`*^9, 3.4794376278656597`*^9}, { 3.479437660413395*^9, 3.479437742439423*^9}, {3.4794377797071943`*^9, 3.479437868454093*^9}, {3.510568758104493*^9, 3.510568839781083*^9}, { 3.510568906685141*^9, 3.510568909558769*^9}, 3.510569035679653*^9, { 3.510569093664855*^9, 3.5105690965624123`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`m$$ = 4, $CellContext`n$$ = 5, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`m$$], 1, 8, 1}, { Hold[$CellContext`n$$], 1, 8, 1}}, Typeset`size$$ = { 360., {177., 181.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`m$13027$$ = 0, $CellContext`n$13028$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`m$$ = 1, $CellContext`n$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`m$$, $CellContext`m$13027$$, 0], Hold[$CellContext`n$$, $CellContext`n$13028$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> DensityPlot[{ Re[ $CellContext`Ez[$CellContext`m$$, $CellContext`n$$, $CellContext`x, \ $CellContext`y, 0]]}, {$CellContext`x, 0, 1}, {$CellContext`y, 0, 1}, PlotRange -> {-1, 1}], "Specifications" :> {{$CellContext`m$$, 1, 8, 1}, {$CellContext`n$$, 1, 8, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {260., 266.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.479437370775503*^9, 3.479437405622891*^9, {3.479437447640448*^9, 3.4794374854820557`*^9}, {3.4794375710452337`*^9, 3.4794375883187447`*^9}, {3.479437629955843*^9, 3.479437634369604*^9}, { 3.479437667598679*^9, 3.479437743828635*^9}, {3.47943778091532*^9, 3.479437801300235*^9}, {3.479437841379244*^9, 3.4794378812741327`*^9}, { 3.5057328632693653`*^9, 3.5057328744174*^9}, 3.510568724232127*^9, 3.510568841012697*^9, {3.5105689100690613`*^9, 3.510568949734171*^9}, { 3.510569037547284*^9, 3.510569097097939*^9}, 3.511173809214364*^9, 3.523370737617145*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`y$$ = 0.048, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`y$$], 0, 1}}, Typeset`size$$ = {360., {110., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`y$13055$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`y$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`y$$, $CellContext`y$13055$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{ Re[$CellContext`Ey[1, 1, $CellContext`x, $CellContext`y$$, 0] Exp[I 2 Pi 1 0.1]]}, {$CellContext`x, 0, 1}, PlotRange -> {-1, 1}], "Specifications" :> {{$CellContext`y$$, 0, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {165., 171.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.479437370775503*^9, 3.479437405622891*^9, {3.479437447640448*^9, 3.4794374854820557`*^9}, {3.4794375710452337`*^9, 3.4794375883187447`*^9}, {3.479437629955843*^9, 3.479437634369604*^9}, { 3.479437667598679*^9, 3.479437743828635*^9}, {3.47943778091532*^9, 3.479437801300235*^9}, {3.479437841379244*^9, 3.4794378812741327`*^9}, { 3.5057328632693653`*^9, 3.5057328744174*^9}, 3.510568724232127*^9, 3.510568841012697*^9, {3.5105689100690613`*^9, 3.510568949734171*^9}, { 3.510569037547284*^9, 3.510569097097939*^9}, 3.511173809214364*^9, 3.5233707380694532`*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 2.04, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0, 4}}, Typeset`size$$ = {360., {177., 181.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$13088$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$13088$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> VectorPlot[{ Re[$CellContext`Ex[1, 1, $CellContext`x, $CellContext`y, 0] Exp[I 2 Pi 1 $CellContext`t$$]], Re[ $CellContext`Ey[1, 1, $CellContext`x, $CellContext`y, 0]] Exp[I 2 Pi 1 $CellContext`t$$]}, {$CellContext`x, 0, $CellContext`a}, {$CellContext`y, 0, $CellContext`b}], "Specifications" :> {{$CellContext`t$$, 0, 4}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {232., 238.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.479437370775503*^9, 3.479437405622891*^9, {3.479437447640448*^9, 3.4794374854820557`*^9}, {3.4794375710452337`*^9, 3.4794375883187447`*^9}, {3.479437629955843*^9, 3.479437634369604*^9}, { 3.479437667598679*^9, 3.479437743828635*^9}, {3.47943778091532*^9, 3.479437801300235*^9}, {3.479437841379244*^9, 3.4794378812741327`*^9}, { 3.5057328632693653`*^9, 3.5057328744174*^9}, 3.510568724232127*^9, 3.510568841012697*^9, {3.5105689100690613`*^9, 3.510568949734171*^9}, { 3.510569037547284*^9, 3.510569097097939*^9}, 3.511173809214364*^9, 3.523370738126337*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Chapter 9 (Iskander): Antennas", "Section", CellChangeTimes->{{3.472441344729312*^9, 3.472441364462521*^9}, { 3.474078797930009*^9, 3.474078817809619*^9}, {3.479426120189047*^9, 3.479426131467424*^9}, {3.480759129238757*^9, 3.480759138205681*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Linear", " ", "\"\\"", " ", RowBox[{"Antenna", ":", " ", RowBox[{"Radiation", " ", "pattern"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "3"], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"twolbylambda_", ",", "\[Theta]_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Pi]", "*", "twolbylambda", "*", RowBox[{"Cos", "[", RowBox[{ FractionBox["\[Pi]", "2"], "-", "\[Theta]"}], "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"\[Pi]", "*", "twolbylambda"}], "]"}]}], RowBox[{"Sin", "[", RowBox[{ FractionBox["\[Pi]", "2"], "-", "\[Theta]"}], "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"F", "[", RowBox[{"twolbylambda", ",", "\[Theta]"}], "]"}], "2"], SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"\[Pi]", "*", "twolbylambda"}], "]"}], "2"]], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"twolbylambda", ",", "0.01", ",", "1.5"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.512326730531495*^9, 3.512326895930265*^9}, { 3.512326928989292*^9, 3.512326929265481*^9}, {3.512385490528941*^9, 3.512385503929164*^9}, {3.512385590580019*^9, 3.512385629223984*^9}, { 3.512385688778865*^9, 3.512385689338202*^9}, {3.5124092432545023`*^9, 3.512409252252722*^9}, {3.5128092080902987`*^9, 3.512809214650779*^9}, { 3.51281019709868*^9, 3.512810203798409*^9}, {3.512810243603158*^9, 3.5128102473781567`*^9}, {3.512810279407887*^9, 3.512810291659638*^9}, { 3.523370814076623*^9, 3.523370815834593*^9}}], Cell[BoxData[ FractionBox["4", "3"]], "Output", CellChangeTimes->{{3.512326900138405*^9, 3.512326930121233*^9}, 3.5123855083877373`*^9, {3.5123856093263597`*^9, 3.5123856299240427`*^9}, 3.512385691247037*^9, 3.5128087205230227`*^9, 3.512809215184822*^9, 3.512810205183168*^9, 3.5128102498965054`*^9, 3.512810298066092*^9, 3.513418390951283*^9, 3.523370820914646*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`twolbylambda$$ = 1.478, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`twolbylambda$$], 0.01, 1.5}}, Typeset`size$$ = { 360., {174., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`twolbylambda$14233$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`twolbylambda$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`twolbylambda$$, $CellContext`twolbylambda$14233$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[$CellContext`F[$CellContext`twolbylambda$$, $CellContext`\ \[Theta]]^2/ Sin[Pi $CellContext`twolbylambda$$]^2, {$CellContext`\[Theta], 0, 2 Pi}, AspectRatio -> 1, PlotRange -> All, Frame -> True, PlotStyle -> Thick], "Specifications" :> {{$CellContext`twolbylambda$$, 0.01, 1.5}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229., 235.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.512326900138405*^9, 3.512326930121233*^9}, 3.5123855083877373`*^9, {3.5123856093263597`*^9, 3.5123856299240427`*^9}, 3.512385691247037*^9, 3.5128087205230227`*^9, 3.512809215184822*^9, 3.512810205183168*^9, 3.5128102498965054`*^9, 3.512810298066092*^9, 3.513418390951283*^9, 3.5233708210426188`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Int", "[", "twolbylambda_", "]"}], ":=", RowBox[{"Quiet", "[", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Pi]", "*", "twolbylambda", "*", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"\[Pi]", "*", "twolbylambda"}], "]"}]}], RowBox[{"Sin", "[", "\[Theta]", "]"}]], ")"}], "2"], "*", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Int", "[", "lbylambda", "]"}], ",", RowBox[{"{", RowBox[{"lbylambda", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RadRes", "[", "twolbylambda_", "]"}], ":=", RowBox[{"377", "*", FractionBox["1", RowBox[{"2", "*", "\[Pi]"}]], "*", RowBox[{"Int", "[", "twolbylambda", "]"}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "check", " ", "for", " ", "the", " ", "absence", " ", "of", " ", "*", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"\[Pi]", "*", "twolbylambda"}], "]"}], "2"], " ", "in", " ", "the", " ", RowBox[{"Dr", "!"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"RadRes", "[", "twolbylambda", "]"}], ",", RowBox[{"{", RowBox[{"twolbylambda", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "400"}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5124060264107027`*^9, 3.512406084618504*^9}, { 3.5124061292450333`*^9, 3.51240619757565*^9}, {3.512406233714157*^9, 3.512406324058772*^9}, {3.5124063764579973`*^9, 3.512406376873725*^9}, { 3.5124064542045183`*^9, 3.512406467675479*^9}, {3.5124066495086527`*^9, 3.512406693844651*^9}, {3.5124069857798*^9, 3.5124070936949263`*^9}, { 3.512407163665799*^9, 3.5124071638967257`*^9}, {3.512408327828027*^9, 3.5124083429528093`*^9}, {3.5124086372997923`*^9, 3.5124086708657227`*^9}, { 3.512409031431962*^9, 3.512409077204509*^9}, {3.512409263628647*^9, 3.512409281946394*^9}, {3.5124093297008333`*^9, 3.512409379329953*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwVl3k4lG8XxzEYUVHZZcmuqCypFOeEStpUBo19Z4ixS0JCskXRRmWXnxJF RVJkSyqUkCUJ2fc1jPd5/3J9rsvcZ/l+z3nue5uN+1l7FiYmpgQSE9P//y4e d3tg4E7XWv+gLzeYJ00jwk5O/qvsKci6qtntxhDQ+jzeR4uVtYCAmO9vk1aN tfL4OlLbUxxg/8kzjyLNgrQmX+jEuMq6wZFixr0Nq3e0hBV+vFlr9YSa7MoX u/Weamn6Ryl/TPGF7verST9My7WsarVybloHwPChbqspsQatUP6ZrWayQfDc QF3NdKVVq/n5uY8350KAd8E+5MmeP1p2P5XCFlpD4V+D97YNR8e05pg5wKw0 DA4KjfdHu81pRSj0Lr1PiYD85gc0HSpDS+BMWZFMcCTo6YdzMf9lhcf+t92j rKPgUXJe/jrR9aCRSt8+oRMDo64S42Phm+FTrX7/Odk4eLY/oFbvnwDk+202 MGONh+jnJt8t4sTALzr4adxcPMQwX/5wX1UK8NEoZ8VAAoRLJI+y/5ADjhfn nWZab8Knk2X9yjpK0FhTUy3z8RZ0nRf0u1SnDPd+qkqZlCaC1mtdMTmXPWAz nhoSlZcErm5R57OT9sN2lo3dZSm34VKfSV2CoRZM8106MBF7B1pig8iRPw/B G4XBu9uC70JxTmELrVcXwjQp8+fo98AincVu8zE9OHGm8lyE9X04OhEaMcB3 AvjsdxW+PpsMO2K6O/TlDaDbP2XjiE4KnN/3Ojgq5Cxkx6xzFd3zAEibVEa/ ClDAPdX342nZh9Dd8ZjTbNoY9hX9kQ0VeATS/V69N3lNgclOXpvKmgpvKZ5R y6EW0DfWTZ8JTAVd580bJLZZw0e/pEcxc6mQVKXw+fYOW8hnPvFFxi0N7jmk /jtvaw83o1lWywfSgE9ZbWa63hGoj9ypU63pIJpnnySpdgG0FGSvRxlkwFOD DLMEUTpIvuh8JfUxA77qBVbbl3sAu+atgbJDmWDjV+XPuOwFIzXH+IxKM2EN kkjfzX2g0YBJd0IlC2L5Kq85WvpB0c+XnpF5WdBu/eeldthFCByXaixNyQat htcx27SCwMr/J+McXw58+JuVrOwSArosCUpjsTnQbTSpq9ZwBTbwM6LEgx/D iY6GZ8cbw2D6UVHJ64XHYHHqsN42nwj4oeAyeIaeC0GVlWZUlUh4qNl2OMz6 P9h2VL8yeykaQmvjvEV//gfaJx/bpLDFgeOZwxkvz+ZBQOxbri7+eNht/5xp SOcJ1B47vLjL5SbwTjjtCi17Atd7rpb5PLkFi/7iFiJ7nsLypuGR5tVEqIiJ eXNSNh/q9r/2GGu+A+XD7Q1cuflQ/Ud6ne7Fe1CmJ9f9ccczoMvOn+Tfkwym LNZMGYIFsO552Arb5EOgFpLXsVALQFbt0q7j/qlgYpW/yTq5ACSdjilVhaUB pXxZUlysEH5vpz2q/5ABhhfSdwRZFkJfykDo1oVMOLv1mFpXaiEYXTy9UX5f NhgE3D6cLPUcOkW2N5P6H4O+urKTgMILMGZay9Waywe9/la6L+0FPMlVu9hr UABHE4MutuS9gB32PLZ5uwpBd/pT1K2dRdDw7Kz7M/IL0E7zvDXtXgSRV7+l mjEXwSEDoZQzhUUgNOlR5MVaDFr5Dk+51YrBJY33Ub3cKzhovuGlm08xHK/h v3NF7zUcWF9U/vllMdyysCqM9yqBfTTmxuj9L0H2RYf9k6E3oCqbMk2GV/Ci SfKPcf57UGnRXnYIeQXX0xOLA10qYHfYEKmm4hUo9svfq99ZCTt71fnCdF9D iq9QhX3dB1BM6BL9E/4aboRM/5h7WAU7MExWu/Y1PGf//UgtsBrkHzbtZdIv gZ/KlYJHj9eC7El/tIwuATMzlX5LzTqQWRE7Vt5QAsFqGSmF6h9BkupKDTxd CrEuPEKx8Am28pMvLxq+gTJZjhKe/K8gXP003Pj2G3BQ/J435tYIQt6GcS9b 34D7nWVdJq4m4G9Oe+RNLQPOQInDi6ebgSfuYOWk5VuQOZ198Ch3C2zU/FN/ Ou0t+Ek9z8+tb4ENo9e/5fe+Bc3TSXeao34Ap35rn6t9OUgl7i+vEWoDNnZP 8hDtHfjzPrjr6N0Bg8eCuWdy3kHv3R9RQ3qdUB8bI7Da9w72fudykZDsgtqo b7cid72HL086dk32dkP05vGMlNz3wLbwL2zp9G8ILJrN2Vb3Hh5aF0Quf/4N bkbLedkD7+GbZPyplFO9YHCfo6hAqgK4Nr4jdxn/AV5JqaqqBxWgc6Xh4Zno fmCrUqg7VlYBs3e9O0F8AObtdzd8+VkBRd9M07e8HIC2XM3vbQKVUJYr2X5j 9C88UDbpG02ohM2XZ863Xx4G2UOxrHwRH+DzyQ+3fm2dBIE/tzjuZ36AC4FQ Ih8yCRzh99eLf/gAR1JiMnf2T8JwXQ6vAlMV+Gzla7paNAXPDCqlNQOqQPRs oWm70wykTtfJV96tguji7/S4nzNwM/Gr4tFXVdD45myu7KlZ8G7rVDszWwUT 1dfHthyYg31WC7r2btXQERoJNMUFUGBh6A3HVIOrhULr+6cLIJzJetI9rxoU HPjytikvwsrfTZSLg9UQIGFTxae1BO/dFe1jbWpA6lGizVmPZTgWbB1ebFQL F2a1bpRJMKHKjYojad61ULq7MVjXgwm3PtrGEXuzFgQnXMvGKplwsvx3lN2X Wvjb+Dj5qTMz3mZYx285UgeGkpAiU82CfZdtkj32fASt3WpnNrxkwy+xlWbm 5z6C+7r/JOuE2PH1A0mxYx4fodx7m099EDtGv+1NlXj6EcKS/yg/O0FGlVWb 7K/S9RCb/lnk4CIHhgTaFirxfoKY6KXWS/HrkRbzwVNI5RM8z3Fb+rxuAxqm SKmxGXwC+l7pX7FhG1Cu7M/LzuhPwEVfd9kqaCN+WbYtiyY1wPq7AjUfD/Hg 1kt2tUPTDRDF3RO3zWUzvrpo35XV9AUOlyxMJhkJYLaWS6vw9BdQ/LdT7fkL AbxN8mi6sfkrDPEKZzRtEkTf2MDqi+e+gt3NoQrxJkFUT7v19GTLVxCKkp6T MBNG076e8gDXRrgTL1oznSmKzTV/DhQHNsKllicxI5vFUD934PVETCPkLHAP rl4RQw230ed2Txuh8eJqrbetOAovLmSfGm8ErU/vrQbvSeBPLu4bkvQmyFOO DCoKl8Sz45vWm4c0gfnhC1KfqyWxvpH3+p34JliNnFl3mV0KS5OEr64vbIIt aewiWdel8L64rN/8VBPYbkpKkLsjjVRVTct6r2bImD2eH/hVFtupLrs8/b7B W96zkQ4lOzCq96jrnYhvUJaVXDtAVkQNmnRuWdI3EI2+Z/HPSBFTLnZJkou+ wT1FmmzXvCJa3T3NnzL5DWp2hwwma+7Evy2qq9XO36Hkc8r9x167cc5gpV7I rAWaK996rxqpYnZbGxlcWqDMqqCk/poqGlkV69oFtICtzcupgdeq+NrdrTz/ bgusD//wdv1WNQyM6ynUaWkBm417924aUENSQ9XdC6d+gAvTURWB6+q46Wis QwW2Qt7fkyMVXBqom1sGO860gtW/AzE3j2ugP9eoYJJ1KyiQQo5+iNbAnq/6 n5xCW+EER6Pe4Q0HsMCEYzdPVSvEGgv9aeA9iAa0q0sWR9vAz/hQ7vQeLYyP vRizcrIdkj1O/TtrdQirJh7bO1i0Q+pO0W3aEYdw8UybVqNbO3woMjhr/eQQ WvHvncq40Q6Fn84W7lo6hLsfzVKON7VDfNuxs1xJ2thY4C5+3/AnnFMY+vui RQd5vts/32vaAUf0ApLMAo4gjh0aNnTpgENlpTvts44gnV1M0vNSB8i8es9z v/EINu37kfAkuQOiI6xPRsodxZsPjnhs6+yA6gBaj1frUeRzlNvNZd4JrOm3 g9zhGAr/G3zabdEFEzG5PmK7TqCUhGtuuM0v+DFs8pKufQb3dV34dOjmb2gO yrgY8cMYK/6FnPie/AciboFG7hVLdHpXV1ce2g9kTqanvodtcWk/j6RaVD80 Q9fas7O2GFVkfCk3oR9envCR/GNpi3m5A0qJqf3wukYhQj3AFsdvsd5yLu8H F/NXt27k26K3E5rz/uuHrJC4PUt8dhiy6fWUs8cAKJZHCoj/ssNNMWv6v/wH iPyVclxG7DCd/WimYcgAVFRyRT9bsMMPyy1GcGMAgoY7mEV57JF9YOYN79MB mNPNiYtBe4wp3RXxbnAA7G+Vmj59ZI/3bHOE+az+whRV/rmHkQO6HhesVHT6 Cz29ndbeNg6opXrdWZf+F1LF/gnQ3Bywl8XltVfIX3g22XFgZ4QDKqbvNGpO /QsdPgX9/MUOWN5TnHDj919Q/twkacTjiH/Mqzg4bQfB/CfXwswbR3x5eE/B NpdBYPOOfa1Y44iRStnG+70GYeKG2FdKoyMqrl7Ldro6CNlSvXn+fY7om3Jc tzZjEPx0Dq4yuJyQo6M5OKxvEIb2hsqvGjuhksnveYb9EBxPkJCEP06YshkY 0ReGIHyf4YNvw07I+TmFTchnCJTD3S6bTDvh4CETXtWwIdjU4bZPldkZM3d8 VXZMH4JXrrxqO8ScUXitzPVr9xBcPwVuwhRnvF4i7G02MAT5vMbUZ6bOuOjl f2lobAjWVv/9VbVxxpZB1SjS6hBIbugu5XJ3xvjm/3L2igyDcJkg59w1Z2TP vtv7yHgY7n+VYc966Yw+VvNDipbDkJG1trazzBn7hA2nShyGoW0wYDanwhkr bnAzffcZhrOBz3IcGpwx8GKEKEfiMAyZ71fn/+2MI6p90knJw3Bo1ZMkMOCM 1PFDipIZwxD6ettV9hFn3Gu7qnHw+TBMlPH7F8464/QJbxN64zCc6ft8Vp1M Q2tys+Vq6zAoftf9nMdFw8aKXY5Rv4bhxJa2Em4eGj5VH/HJHB8G9pTwT+mC NHSSsLnVtn4E6Jlu5Dl5GnbPnP6Cx0agu1mGSfcIDeNEWqXoZ0Zg/HNdbN8x GmrpWFx8dH4ElqdW19xP0vDRTVdphvMIdIRV+B41pKGV8vWAN1EjMO9stLhg RUOe8zyNwzdHIFtuYmbcloYVIXdkhJNHoM1KIr3RgYaSjVmN/nkjEH31C5Oh Kw3/uFXKqjeMgLrpmQNUXxom3j4WaP99BFoWqVrZ/jTULW9sSuwcAZuU9s+d ATTM3PArcGZ0BKyyX4SuC6ah4R6HZsm5EVArrEldC6Ehm/mY3NnVETikUX6w J5SGDk+Wmws2jMKZmF+/rSJoyP89VL6HbxSSaYf7mSJpWLO8LohbbBTMRDlM o6/T0Fcq4ZuW7Cic+vAOmaJpKHdcUMFt5yhk+exJtIyhYZvno6AH6qOAZrbn cmNpGHlf9nuDFvH/Fd6BXXE0HBxSC95xehR6T/azsSXQ8O6msu9U41HotEyw XSRYb7/O9ijLUZAbKpX5cZOGi1b1wSWOo7Awd/X4w1s0zI080zLoPgrVEvjd IJGG1IK27YL+o3Ar3fvdGMGcbZYhR0NGodSmbb1PEg1L1wZafCNHAdgNywYI psm57ciOH4XrDOYv2rdpKHx6LqTlLnHenZ3a1wn+5Bv4gzVtFN6ymwiVEhz4 kKSoljsKZN+dhi0EK9ZEXbEtJHhL4sxPgjvHNrXeLBmFLcIPFusJjuG7p1hZ MQrOvTfssgg+qCkROvVxFLyH+vbRCB6zy2mVaB6Fu11H/IQIfhizU8ng5yjc eHxz2wsiv1NFxaHBvaNw8GLr/r0EMzoOtuUPj8Jcg1FlFlFfPqlKqXt6FI75 h71lEP2w2HH86oblUbB9xr5Tm2Duc81tB0lj8HnDS3460b/3Aed3unKNwfMH DwIiif7S03uuJm8huPufWXQ8DSXqHdvrRcZAukGzwv8GMR9T4zv/SY1BWy9H ngGhV4iQb5iC4hhYyiqLbSH0VD602m6iNgZVMuVi7wn9e53CdkUeHIPataEC 4yga3oznCn+lOwbJDtva2wn/TP8S2s1PGQO/OzaMB+FEPNsFNXHzMTCpXTUf vErD0wPf98vbjwFrgoKSGOHHJ6M3dDR8xoCbu33niSAa/nS/oKdzeQwOW8i4 6gbScN2M/skT4WNQHHhrpzzhd4clNmOLpDFgiXahPvch5iPwj6njgzG4pMzf aOJFww9r763oWWPgwmP3Z5hOxGcPpIUWjwGl3n21yYU4f/P05eyWMajYuP/D E2I+OW5/DX3WNQaKJ7IHC8xpuFfo6bXX/WOQWnOtP5VKnC/ulFA/NwaL7zkj dIn5PqXYnTnONw7bs0ink4n9EPjsTe6C6DiQIt6KrGnTME/lXj6T7Djsve3B dhqI8/cbvt6sPg7MD5iNXuwl5v9w/Sd1o3F4PXuZ+YYcDSfrchrBYhyW04Lr DaVoKHYivEXPYRxKvLKYyeI0DDiLv6i+41CrYTOwm5+GapYvp4Nuj4N7ektt MomGj/3ThWp/jEMoe6tn209n/LEcLNbYPQ7SNm+yaC3OyBZsLtU+MA7cf+5z DX91RptwQaWR+XFQ6HyVU1DljFtvxiG3wAQ811F7ZvGU2O95AY7GxhOQfHVq Wf+SM5oyH25osZiAphwRbQUfZ5Q15lY2dJgA30dhawtuzljGkvnPwGcCHMlT fI7E92Lw/OdY/VsTQFKhK8fqOSNwSBRpfp2Aaw+u3WDb7Ix+z22YbkpNwsBS aBvPfSc066pVOSM3CWlHdwQJ33RCbQ4le54dkzC7uTeCP8oJ11ssfIxTmQR0 5CQPXHTC9HUxt6IPTYL24ONnfSZO+MWqWDbcchI+/P3nSud1QllujpP+yZOw cDu88nCoIz6ZvJId+WgSkiwPfZ30c0SV5uW1uxmTsPlR2+O4C44ISRPPS/Im oX6JTynDxBFNRFoFl99MQv/GNprKTkeMksvuu9xJ5CsoVMTc6oDjoBt4VXQK 5k0ilhQkHPAlPSQv7tEUvO5utlW/Y4ffZW6Rz9ycBpvbQToXr1vjMTnBfRdu TwNXT4+GSqA1lss/cLp+fxrsB86UjblZY+6OnI8V6dOw+rVtwtXQGoOU30Sr vJiGh8kWwvHi1iiv+Yeb9/s00KPiAq6/tMJAQ1XBVr4ZqHcvCYxrtMQpymu9 GaEZ6BY8rr77lSU6GGte5BabAWpgu0DPA0s8Qz3686jsDOwoLqS7uFiirJVp ymv1GRCX+Kmzj2yJjS5XJe4bz0CXOKf94CELlL76Td783gwoorhFdLUZmjwn KTs8IPge29X+fDOM+a263z1tBt4tXf6PctcM5yDx2JXcGWj6t7bq72KGNSuG tKySGeAYP3ynebMZOvv+yBtrn4F2Qfl5soMp5ju37wwSnoWfeifHpSSo2Ht3 3d5rYrPAy/RKrXg9FQXq9kO8JPHu3ZPJYrd0HkNk759O3z4L21Ou8Yt8O49n /lDpNRqzcGFPkcbctfM4a9ZZuNF0FjiOvbl0fcEE9xv8UnuUPAtjxlbFGRPG WDbINmbzaBZ+jI2bGv42Rq0rilmyGbOQtfDCSvqbMeo+v8iX/98sCBp6iUm9 MsZTvLzzZSWzUHNENf5RiDHatOm9+tlK5Ptk7nGRkDH20d3dH3bMwv2hnmeu G4zRcd1tOZtfs7Av4Y7FEWZjdNX4c2doYBYyB/sOWg4ZEfe7y/6Lc7Ngdqio YPsbI4y2er6fn3cOCrsuqxy2N8KNS21T7QJzoHqi7bCcqRHGJ6zlPhCZgxUY ICudMcLblSeEZaTmIHdFiydT0whTpf/+U1WZg1umnC46gkYo+XbDi4U9c/Cx VnjXEW4jzKKoubzZPwc94TVRF9iN8L+IKx3ah+Ygy3bWb/scBYsGRcrOGMyB 1tEwSavvFFS/ou3NZzgH1X9PPIxqoGCJkLNiu/EcLNlJR/6somC5/ssUK8s5 2PgzjWukmIJ1Twwuu7vNwZXWmMimexTUP+y3R9VzDtaOJCptv0XBz10PxuZ9 5qCSIs2aG0PB5o0j5kGX52DoXVeaUAgFu+jhWrExRH4X4zd/dKIg0/v3ounx c2CWxL/224aC0twrKy8T56A7QTxd3pyCtKeeb3pS5kAldYc3nKVg3MrT+3Op cyChcO4H90kKFh4fusiZNQeXeg9TNupRcHHIcp/a0zmQzeTmuq1FQZH9yQLH Cueg6228h7gGBbUif8ybF8+BSeJuw9Y9FAyXPVl87e0cXLY8OdisRMHHPpGJ KRVz4HFvspp/OwUbqj54FVbPwVgMw++6LAU322qodHyeg51ptU+WxYn+PffZ NNk0B8HmW02Wt1LwPHPhJOuPOTgYvlFhuzAFAw1Gvwr9nIOE1gaVSAEKpj6S e7azew5OqG6J5OOj4Idxmzid3jlQNNl+oHkzBQc0H14wGSDqzf1rXs5DQc7Y 9hMXhgk9Jp4w/9xIQaVOXsXQcaJf25z2ymygoMEOA64703OwLHmLO5WLgt4B 0cN583Mgf1P1vj4nBe98rPn4/t8c3In+OSC9joKlgiy5LYw5CPTOZN3FQcFu R83IYZZ5yKzax+JMpiDzK3/HNfZ5yGj6ONbMTujBXnSEl2seNJN5W1wJ1qNM yChwz8PEXatqdYJdMrezaW2ZB6/I4E+7CY6bse87KzAPKZqfZ6gEP9dO++Ao Mg/qXrv0iwluSehMDxSfB5YHfD+BiLfYIxCaIDUPjFL//H8Eb919zjpbbh7S lTqa+on8IDgO3+yYB8tovVPMRD02Xz6KN+6aB30/itJJot4IUba1PtV5+Owv 7v9xPQVzXbF7ae885Hw/sdeX6FfDm0tvNx6chyWH9V7niH5Ocr5KkcJ5uBbE p2pN9HsLdfrSPt15ECnJCXrES+iZq2R6Um8etv6OMttI6HX5aKaQnwFR3wGu wcuEvqm3fy1GG87D9JtfqUGE/lX9wm2pJvMQct2LpUCS0Css4Xa91TxMvRZp ylSg4M5vDT6/7OYhYC3jsBPhrzOSHJRZp3n4J//Nw0yZgnffB20R85gHXZ+u fz/2U/ANd+m0is88qHbbm5oT/u22mGs6enEeImImAnh1KCiz6hLvcWUekjYr LfES/n++//yG6oR5ePbn+4CFLaHXdFRKYtI8RGqErLE4UzDpv7Iddvfm4SxP 9o0mNwr6i0jok9LmIfHELNd4ADEPqwMRhwrm4RWHk4B0EgULigX5NxXNw8CW AwkiKRTc5qaf1fNqHtwn9e00MyjI+uvph+B385AsIMPE9JyCn957M5V/mQcJ zwyrkCYKHryYfSO2eR72rlQtfmynYL5ym5j5j3nY9r2mSLOXgjfTD2iudM2D 9Kce34wZCpqEsQRojM3D1c10aUdin/UdjZ95ybUAd3rojGpnIzRiqgyN4F6A p82mck+9jbD29cwmoy0LcGJBveptMLHfFIx3zwkvgDGT8jbT20ZI5xK7oLp9 AeqqTerCqo1w9UvewDO9Bahp8UwL32GMbte6fIJPLEC/7Ereyj5j7AFuttMG C9B56p9YyhFjrCrwlBo3XgCZF7wT52yMMermfitFxwV4MGS6lJlsjPxGte2P wxegeWj4QQmfCR45mIn21xcgYPhfspmMCfpJXsnZFrsA58ZkhGT2mGDbuIbP /cQFmO88pCxLMcHka/k8MRkLsPGT+PaB2yYoUZJ01L1iAYoPbqo6su08bt9q V7xndQG+33x0q8aAilSWQ1unmRbhe93C6X47KkYPil7NZ12Eis2RizIXqTha 1Gogt34RSjXbr61Pp+Kzk8dHBUUWIamo8jdtjopqwSpSK/sWwb/GMPtkuilC L1NCpfciPBk90pW1xRx5gqfFGv0XoersuGKdkjn2ivQ96QpchEv6a03r9cwx jFJbtxi2CLTINzorgeZYXxfLtCtpEZh+h1RfGDRHo2fC9OTiRRBevihOq7ZA 10C1097zi1Bcl/mV/7gV3uN32iDrvwQTVpybw7VtMPSh87U9tH+gd9wjT07H AR98uVsTR1+G6nw7xz3JNNxagqQk72WInapI9M6jYUrGICT7L8N0tYP0f29o mOy/ryQnZBlGm6ZbFjpoeE+yLe99/DK073L0Fdrqgkm+AgnTBcvAIf8xkXLf BWPFbpsaTS2Dh2jv2eJYV1y/Tuuu2dwy3FPo9Q1IccWYmf7vNkvLIKL+N0w5 zxWj6/accmdegTvunK3eda543bMFIzetwDrdr+knWC5geA2vbKnyCkTtZ5RK eV3Ay263JkU9V0At6BpXnJ4b6lcqd3X7rEAky/QXH0M3FORv/Pjo4gqUjHu1 n7Ryw6K36zO2XVmB6rAZ2y9+bji8PoIiE78Cp/WUXm3MdkOTPP9SxfwVSPSL Y/Zfc0PZNf6cscIVUP7nqHWe0x1nzxbfyi9eAapA4RkFPne88W/KdffbFZDI Gc9I2u6ONcdcxNUaViCiXe5eiqE7qg2ahx0YXoHMMQn9M1nuyHJwhb4ytgLj hzdP8T1zx8Yb983fTq2AwKEW8brX7uiyt1Udllbgh6lwzewnd0yPMBjS5liF pL8/+C9MuSOPjM4pfdlVEFTKyrHbSsdu/98aXNtXgXdKvipfgo5PGoLlGpRW YepnHfeENB2PepcxndqzCnHe3zadVaJj0Ic9L87orsLvk4XfUjXpOGItL3je ZhXSsldkqGZ0pLp27HBxWAUHoyzGGSs61vnGwWXaKljezHuhaUfHrOhZhzTP VfD9Zhk76UJHy+L3xUOhq1BQ82atMoCOX955fVyOWIXU2fZSkyA6HqyX7doQ TeTv5cHZe4WOQr9iWFVurcLLp6cOf42k4zeO8+cCMlbBqUBOd8ttOmpvWe8Y k7MKZhpZZbr36Fgg+i7gYd4qeC4rX3dOoWOsikx65YtVsImMYIpNJ+ozm5rk rFoFjkD1Bxr5dHzz7Hpcct8qiD/xeLD9Ax23lx5Mfzq4Cp9bUnnjqul4t2qi +N3oKrjOKvr21dLRp53S9Wd2FVq1tHqdG+i4iySpqMjGgBoDr/of3+n4cEML aK1jwFRn+1rjDzquF4w8Z7CBAYayGfNv2+g4pDge4M3HgGvLuvz0TjpmGJV+ LJNhgPCD3dlqf+i42fpC1xcFBgwM73Gr6qNjiIvEVI8SA1qvlfw4MkBH85AI QTZ1BgxO7LkkNUTHhqj9igIaDDAbu1xweZiOGkmjoKDFgAvFvf71I3QU+O+s 48kjxPlCXK8OjNMxoojtkqU+A7TdZOSsJug4W/46zuMUA9z5OMX9JunY9E3s ZZIR8fuM4ymB03TE7qaPOVQGlHBziLrM0DF/MKyrxIIBxcMnt56YpWP06jBr twMDFs3S4/rn6KjnkVj3H40Bj+/Iy9ycpyNrv2aMnxsDqoOeT6os0LHC5O9p XU8GCMVyTdYSHNQQv2WTLwPEbwtKnlkk8keN1q6LDPivvjX8C8ELL/7c/+8y A+TeWgnjEh2L5GIt/K4wYMi+rzuLYHqyuqRuOAPWZJ82rxGsxN3Tz3OdAfNf xeZO/qPjcOj13K4YBtilvTwcT3D2vMqF/+IZIGvAVVVDsC2tc7dfIgN8OD67 TxEs0R0+q3OXAV/p1Xo8y3TsPLPrNU8KA8KetJ6SIvheddulrkcM2G/BFLqd YKP9ofBfBgO4/qP0yhC85ekOkl8OA+7uJdP5CG6UaKnRyWPAC1WLHUvE+TGJ QVE8zxjAefYtbxPBxzjkT3U9Z4Dll1TFBwSzBzZt+u8l0e8LD73MCa6cCGjx LSXiBdsPbyI42Fb6nk45A/50lieUEvUebP1sxlPJgL6RGJoxwUv6fhJd1Qxg fvDJZ5Do38tyib7cj0R9rvFFFwj2VKnP8f3MgDZrTvm/RP93ZXu56DQxII07 tMmQ4FEh0V08LQyIv3n++UtCv8exNdOdbYR+8esb1hMs6SMU4NtD9B+8CpII /X8NVmrq9DHgzO8HQXWEP1LMXJl5BhnwriMhZoLwD5/uu8jcCcIP5p3uwlN0 bH7ldMJ3hgGdvT7HxAi/xe3YzKOzwIArryxc+Ak/cmyxv9PJYMDtq2UJf0bp WB2x0TSXZQ2a9mDya8LPof9eifmyr4F59u6FK4Tfl39zZnNvXAPj3pjCqb90 HC8oKNIWXQNlYbWww710zJOm+nNvW4Ns9gveb3vo6HSXdLBTeg0iLHgaFX7R 8Xew0QcfxTUw2Tzf+quDjt9PrTQ9PrAGu09bJVYQ85xQmZXkA2sgr29xrKuZ jqfUT5/X1lmD38h3fayRjrWi6T0d+mvwt06ldITYB6WjRyc2UtfglO5hW8sq OqrHpUTVma+Bn1+BxY5KOj7fNSUTar0G+uqal0bf0THX877ZnNMaxO+X33Hq DbFvFkc/dvgR8ddrzdwopKMv683Mx0lrIPG38ccmYp9NZw2Azb014D6+l6pC 7Du3owc6RB4Q+Sm9NdIj9qF9VN+mG5lrYHVT47thPB0NefYG+7xYg03bLJIm r9JRdWvnee2mNQg8+EFkvzMxz293zy1/X4MfwZKni+yJ/WcZHl/ctgb8f4ac ZWwIvdN31sr3rMErNk3vISqxn+SvqHFPEPVt9Hu5dJyOi0K3yG7sTPjuxCCn tiIdf8js69WQZsKVGdcNFsT3qK/JVQdlmZANJzIlKtxx+nJa5mF5Jtz8jpPv y0t35P7B6WigyIQlp8z+DqW5o15E14i9GhNaGO/XkPdzx9KB0Ll4XSasjLrt 1Srqjo9yPnP8tWNC97e3Aj+auWH+ORbaqAMT2h/0vixq4IZla+qfppyYcFk3 8p+ljhu2GafGrrgy4blGynCBghtu5vDavNmHCdnV7ypHzF3AMCfBrZrhTLjt XI6vSNQFdFKw3XUriwk3fGzf3pvjimKctwZ9cpiQNHRDTfu+K34brkwzyWVC 3rDRqtsxrqj1RJJX7CkT1prfmxb1cMUtu3oXHxcxIZ3V60fOflcsV7OuLP/A hFkXbF5X1bkgL1pShn8zYeZRavDaLxpWGJleOiTGjIsuFm9Tl5xQ1WQ4lzeN GW9mS7/98sEOe+oenVpNZ8Z3u943BhXZYcx+ykx/JjMuq3Vq78mywwHh9wdf PWbG+6oaTcURdni/K+nr+QJmpMkZBqzTt0MW20NzD98xo3YG76RQsy02XriL Ct3M+ME76fu3QRu83H2yf1MPM647qfnu1k8b3H6aFPXvNzOuaLpZWTTYYNhu t2+f+pnxh0jiCd4CG9w7o+PgNsaMkqxqnuz+NvjQfyL6xQozBohKtktw2qDr 1SOtmiIsKOd3fifPPmtcjGr6u1WUBS/KpF3P2mGN4TfNFpfFWJC08SbnMXFr fJjmKVQqyYLBJR4TpezW2Pjuoan6dhYcKB0xO/nDClVX5n/t3M+CnmHDUof9 rfCfd86guDELTnV5d12Mt8SIQJUlhgkLpt8/sHDnkiVuCXu7rpvKgnY9l9nb HSxR8da37SkWLHj/KX6s0rREi8I1V0EHFlwMidquN2aBFWPGUzw+LMhQjaqQ O2eBkQ4c/5hvsWB12tO28APmaP9R9OG6JCL/L+1GawrmqK2oqr3pDgseE75x 9bGgOS5PmUdJJLPgjJRPQdS8GbpdfiEMGSz4jrus+FaRGVISLQ4EvmDBHqX8 lt/7zVBlwevX1WIWXOoTKHLdYYYbqdevRr9iQV7BF9u3i5phnXjRp/tvWLDr 3qkoTWYzPJi3zqzkAwvu/hiXUv/JFCUriwLnv7Hga5bEN6k0U1yTrpdgtLCg qVTAmqOlKXZe+1XF1saC0+FZx+wMTfH2Sc4NfJ0sKOD/IWBFyxTXtVs+UO1j QZej6kv5/KY4cMDn0IEBFlw5My4iucEUKx9G9WsPsqDxRMjxTyRTDLQrVjo7 SsRXfqr/foqKkxOc5fRZFuK7LMHY20jFz2clbPznWfAo+6n3FnVU/K94D3vI IvF790zvsvdUtL1kderGCgsa/XbbKvqcStwnfKZvMwie+qUtkUfFrYeibz9k ImFEolcFNZOKP9hfdj9lJeGx36Jyvneo+ML5U2gxOwmTdEcOGidQMb6hR/Yt Bwld5PQ46NFU1L/J5d6wnoShZqoCx0KoKDcnseX7RhKm5CqEr7tERVYT9Vcd PCTkoISsMvtS8a2o9dowLwk12qXMkl2JfIo9lr/yk7Dv8Va9cCcqVp0IXSgS JGGk+vThVOL91nApYyJoKwlJN1wLnM2paLClaMRWjISXN2ftE6RS8ft/VX/1 JEj4l9G7btGIip3t/b82S5OQeYJRcvwMFa085jsWZEh4XXVr4btTVOzjILd1 ypGQnvtmm/0JKjqlCnyvUCD+P2iK/6A+8T7cK9+YvYOEtnkOybp6VKR/3dcQ rUTC/p8mJUFHqDjrcKyOvouEq0fvBwzrUtGfcb6KokzCs5kJg9d0qLiSRHuv oUrCgpX96421qRiidKlMfA8JPzyUHDc+RPSjOvo1614i3zW321FIxUizlKKh fSTszvyxfgKouH72ScEXDRIKcmaZhBMcH/32yYuDJLwfWxJykmBeqS+P72qR cNv5a9FHCb5b2p15GUkYcpIv2IvgrWcnUm20STgzvmrVRHDq0FrKUV0Syp51 V7cm4klf4bmneISEVzl3sEoR+TwW3Ja0SY+Ek4IRX/iJfBULlBPmj5FwqsPp 3kGinoKj2rEdx0noxXTaKZGoV+3X2evvT5LwrtdRLTGiH699bcOzTpPQnjIr +vMoFQ9s9L4SdYaE7qNR6+qOUbE8K+yy+zkS2tz/xjJ4nIramkkXDSlE/CYF Lg1Cj5rvWT77jUkoxhUoVU683/VdX3qInSdhS/nxE97nqPiFVHuBZErCJerT cDNC37PJrc6DZiTM0dT76nueeO/XL1o/tyKhTGfWjUNWVOy2Xmdxx4aI9y2J NG1LRZslIWqgHQmbQ4RCvztSkSZ/4OwRJxLuWwpP3EWn4vi746d20Ej454+K 5GNvKnoam+nzuJLwVtXy07MXqRgQcVn7pzsJO4RK8jWvUpEhGqf1zoOEmXc5 hIMiqRha/FAj04uEpQrb6ZOxVIzqe6fi5kdCuZShKto9Kt7XZpFiCSah6+48 g2Ji/sR+bhb/G0LCLzFtlLASKqZ7SIk0hJJQIquZM5yY1/9SiWdVBAkvvEuy EPlKxRJGBGl7HAnTwD3u/jgV46a23dobT0Jxb6py3gJRX1+Z5OGbJCzk56qd YzJFzvrpQ1a3Seg4fe76Pl5TNEuyCLn9kJhn6sZgT01T3B25xJ2ZSkKR89VN BnqmyHop8VFhOgmP6JwNdzpnik+t6ssbskm4Pn6qVIfYb4wd6qssz0h40G3D bPZ9U2wWa4rhKSThuN2x/pM5ppizyXWr2AvC/wkOIUpFpmiwkHZg/ysSvu3u OXn7iymmVW4IcH9Hwrz10ue52M1Q93z/fMdXoj4Fs3HnYDMUPBESMdREQr6t /xnE3TDDUS0R/oVvJPR3Drky9MgMk6TP7NncRkLVL0erdCrMcGCizEuvh4Sf Her7r7Kb4/WIxMmiSaIeXflrm5LN8csLneHYTazIZbFkoDligaGaRf0JW1hR /qrxt6vMlqheK/07iY8VC7YyMf0TsMSHP9naHgixoidXaaL3YUu8wFxX/XQb K3Y02u1/kG6J60+fSPuszIrxmYpPalWsUH/Y0GTDWVZsaOY4doD4XjK8qs9t MmTF1tj8KBlea3y+uuc0nxErXlGulpGWtEbhTQJHRKmsSL7mMWyuZY1De9tV lWxY0eX4K+X3ftYYGW7OfdKTFV3JccpS49ZYLeFQE3OTFZ+YXK3zJu4HEr+a hNwSWZF9a6zXzQUbDHigeeH0bVaUNVcRKme3xd3CfLyb77Ni5SeVDi0ZW0zZ UmV9J42VeKe4/+m1sUVvdsnVtAJWNCErjd7rsUXp0S7VV19YMdJUa3d/nx2G vaKk/eZkw+0XIyg56xzRTLLTwjSWDYXp6pxCAy6YT//8QPsGGyav6eWILbog 87vyToUENuRLrfggzumK2aZp1MVENnz9+e/vLTtdcTLRwSgphQ1dRObC3/m4 Yhh56uTXPDb8r+6tFIn1Aj4ZZdPUqWfDV5n29aoibsjQWLi0vYENX7yJYLZS dMMz1wdLN31hw2MFbOxXNd1wXubTvp4mNtxxpabviaUbomW82uV2Nsw4x78a neGG35uEFV8NsuHXOycWjRXccfnlLpEdZHbs9DM8KsBPx50p89Uc69ix3+Hx v6+idLS68pY+wMmOB/V3SYfK0LHq+PGatI3sKHrH5X6zGvE+7HHwEORnx0yx FKrkOTpu5XxYyybDjuH1T+Lc44j3nvl67x5tduSaD+kzWiPu/9rfxMp12VHo w1KBBLsHpsrd/5h8hB0tSjq39K73QNZpOXFjfXYMfMxpf1zYAxsidOo/n2HH wpSpwpdqHmhWECDxxood5d0OCvQ5emAgaaghKYgdZ/1nu7VqPZCho8GVEsKO +77Mdpp+9sArYdHH0kPZ8baG2MYL3zwwgm1nTX4EOwbcqPni8ssDb5C93tXG seOUwgvl9nkPTOdaLVx6yI7lQaclHKU8UfrEqcm1VHZcz9/z8L28J+bEPNrJ nsGOeyzPeWzY6YlPNmjnbc5hx2i7Xd0h+zzxJfe1zB3P2NHsU7b35xOe+HHL pjvm74j4ZKU/056eeMLQpsW2gh1F7kw3XfLzxC+JL7bQPrCj6r+thguXPLGZ zyjet5YdrxwfHKgO88ROgeTrN76yo+XFKJH3SZ5oYTJam9TEjsr7P1zsvOeJ v+9qsqd8Y0evx6cERh544oBQT+jjVnacrPk62J3liZMiMoEVv9hRYAepTbzY Ez3NfEtrf7NjZbyb5OfXnjiXUrv4+Q/Rz8IwK9cyT/wnSvP5+ZcdB0YdE0M+ eCJJ4pnbzAQ7yi09GGE0eiK/9H5rGSYyttQynz4x5Il4L3yBg4WML+JPVPeP eKLzxubYURIZ6+R8b3mOe2LZIq30BZmMTJzftznMeKLN55Qt2txkPDb1wqdo xRNjtIdyZTaRsb1jt9AgwxOLX+3BdVvIeP/TztGNzF7Ikf7FtZGfjDGt1zaq s3lhvi9TjYUYGat8n30aWu+FbSMnzLQlyEhb8/Z4udELma3vTctIklHrm5aM L48XGh5XER+TIWP0ld2Pv2zxwqD3QcWNcmT89fQI3ZHPC3P2fDpepEBGyQ7N fTP8XvhP3M7/khIZ14f8Kv0j5IXSSQUbLXeR8beyibueiBee5FzN1FYmo6rz KYHUrV6YOpvUtG4PGU1GwtTlxb2w3rnXcUydjJWm3o9NJLxwpnsno3EfGXny gBS4zQuPfKzdfvcgGfddYTgnS3khXYu34pIWGbNWQz3uSHvhvRdWxpZIRg8D tvMRMl5YKf90TFubjIuvEsWcZL1w9MHSVVldMm78ZPb+oJwX8m85Isx5hIwX grIOssp7IUTeLBg7SsZqhW8J5QTf9NzRVXScjBu+rbzn2u6FZX/9vO6eJBP3 9dN3HxLcb1a1LvA0Geem1XSkd3jhxmaeVMszZBRxfvQ+heB9R83Vdc6RMZP0 kJtD0QttynIbZClklNc32+VAcLTyvA2nMRkfHpEUf0VwUbb20pgJGf9cN+z+ R3C3yI0bTVQyGih5uyorEXomdMgUm5ExskXsI5VgZXb5srsWZLxXtHHWl2Dq Je+zgVZkXIkWHgsnOGzy/aClDRmN8/cUXSM4335DsI4dGVuZ6McCCW79eZ5P zoGIvzL3xJZgJoPsPE4nMt59xvNLk+Dt1dOHxp3JeOKtTA8nwYYa0NbkQkaq 5auCeiK/y8+i3YovkLHG3u7MZYKzpdtY77mTcUF9sFKS4MZ70smBHmT0+irM /obox7+NHspWXkT+FZMiRwiWDntbq+NDRrraJbYqop+nltZZyPmR0ffP3w9q BPu5Gc1yXiTj261XTO4qeOFWdbs62UtktJzRV/5J6PN+1SNF+zLRz1evsrkI tq8OplsEE/PD4HmjSOjLGRurG3CFjGEvGuiahP7PDJMFb18lI/uG2HpNwh+G W3NHC8OJeDESn5QI/zzMq0ocuk7GsjNtDZ2E33S8mp3YYsi4pc33ezLhx0GN noPb4oj5Wuy8oU/4VaV+uc/kJhnPxP3c7Uf4uWZQZU/dfTLWxmnEbiDmwaUA 1/WlkPHGXHCGPq8X8vif6lp7SEauJ29u+G0m9CLTwvdmkDH2GZ2RSszfmExa S3YeGVn/+9Wgwk74byw/t/IpGVVSnytMkLxQvbjscvczwm9y6deTifkO0W2T 4S8io5hmtmsVsQ94bbl9w8uI8y2dLxtPe2LJdlH9tHJivhb5CxIniP03vV3s 7Xsiv6U+0cpRT3x85UjNbBWxj1b568cGPPFA6mV+u89knDFN07v+0xN7HKOH g78S+urPqB9r9cSwXffKk5vIiI9lMpa+Efu3vMjhWwsx/xteCCl+JvZT18hL 7W4yumSYRraVeyI5aynKooeMp457XRB9Q+x7V7JlQC8ZN/8sFz33yhPnlyXJ zweIfvMXr0t45olRwlTjbRNkfDp35aDJI0/c1eu4Q3OKjCOkiznSyZ74Pddn zWSGjIV/qHt6b3ui2P6EnPgFMgaKvxncHeeJH5geXXqyRMZ1b4RlK697olPd k9N1y2T8O8P7Ujfck7hnlkr1rZJRVoY163WIJxYa1y2srZHxltapNdFAT/wf /vqG7Q== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Frame->True, FrameLabel->{ FormBox["\"Dipole Length (wavelengths)\"", TraditionalForm], FormBox["\"Radiation Resistance (Ohms)\"", TraditionalForm]}, GridLines->Automatic, ImageSize->{613., Automatic}, PlotRange->{{0, 3}, {0, 400}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{ 3.512405345319269*^9, 3.512406086402169*^9, 3.5124061534943657`*^9, 3.512406206729988*^9, 3.512406247583475*^9, 3.512406285900814*^9, 3.512406338338953*^9, 3.512406390327635*^9, {3.512406658171198*^9, 3.512406702206633*^9}, 3.512407107480361*^9, 3.512407173362022*^9, 3.512408378818822*^9, 3.512408640644442*^9, 3.512408673853278*^9, 3.512409082784189*^9, 3.512409297623077*^9, 3.512409350251899*^9, 3.512409382731675*^9, 3.512808773601337*^9, 3.51341839708317*^9, 3.523370846170012*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RadRes", "[", "0.5", "]"}], " ", RowBox[{"(*", " ", RowBox[{"Radiation", " ", "resistance", " ", "of", " ", RowBox[{"1", "/", "2"}], " ", "wavelength", " ", "dipole", " ", "antenna"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.51240884090102*^9, 3.512408845090776*^9}, { 3.5128087941448517`*^9, 3.512808812303524*^9}}], Cell[BoxData["73.13132465888513`"], "Output", CellChangeTimes->{3.51240884551688*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Dir", "[", RowBox[{"twolbylambda_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{"2", "*", FractionBox[ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Pi]", "*", "twolbylambda", "*", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"\[Pi]", "*", "twolbylambda"}], "]"}]}], RowBox[{"Sin", "[", "\[Theta]", "]"}]], ")"}], "2"], RowBox[{"Int", "[", "twolbylambda", "]"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Dir", "[", RowBox[{"twolbylambda", ",", "\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"twolbylambda", ",", "0.0001", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Maximize", "[", RowBox[{ RowBox[{"Dir", "[", RowBox[{"twolbylambda", ",", "\[Theta]"}], "]"}], ",", "\[Theta]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"twolbylambda", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.512406555462756*^9, 3.512406592285956*^9}, { 3.512406989321597*^9, 3.512406990794641*^9}, {3.5124071924014473`*^9, 3.5124071927367773`*^9}, {3.51240722393052*^9, 3.5124073390765057`*^9}, { 3.512407379989625*^9, 3.512407415709093*^9}, {3.5124075304531384`*^9, 3.512407533450844*^9}, {3.5124075916940613`*^9, 3.512407611418939*^9}, { 3.512407763715118*^9, 3.512407799139186*^9}, {3.512407900164909*^9, 3.5124079197847443`*^9}, {3.512408242657123*^9, 3.512408243039246*^9}, { 3.5124085798650427`*^9, 3.512408580603961*^9}, {3.512409174887865*^9, 3.5124092272002487`*^9}, {3.512409396108164*^9, 3.5124094171248617`*^9}, { 3.512808866734818*^9, 3.512808910612549*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`twolbylambda$$ = 1.295, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`twolbylambda$$], 0.0001, 3}}, Typeset`size$$ = { 360., {116., 121.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`twolbylambda$44543$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`twolbylambda$$ = 0.0001}, "ControllerVariables" :> { Hold[$CellContext`twolbylambda$$, $CellContext`twolbylambda$44543$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ $CellContext`Dir[$CellContext`twolbylambda$$, $CellContext`\[Theta]], \ {$CellContext`\[Theta], 0, Pi}, Frame -> True, PlotRange -> {0, 4}, GridLines -> Automatic, PlotStyle -> Thick], "Specifications" :> {{$CellContext`twolbylambda$$, 0.0001, 3}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {158., 164.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.5124065581423264`*^9, 3.512406593306789*^9}, 3.512407208735446*^9, {3.512407253363852*^9, 3.512407273148501*^9}, { 3.5124073066659803`*^9, 3.512407340289307*^9}, 3.512407417028337*^9, 3.512407534629084*^9, 3.512407612515135*^9, 3.512407800983074*^9, 3.512407921498522*^9, 3.512408244205542*^9, 3.512408582902143*^9, { 3.512409182752573*^9, 3.512409194712089*^9}, 3.5124092293916063`*^9, 3.5124094200996513`*^9, 3.512808830530592*^9, {3.512808871158947*^9, 3.512808911490717*^9}, 3.523370853841457*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Maximize", "[", RowBox[{ RowBox[{"Dir", "[", RowBox[{"0.2", ",", "\[Theta]"}], "]"}], ",", "\[Theta]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.5124074934871817`*^9, 3.512407521370079*^9}}], Cell[BoxData["1.5858368693551619`"], "Output", CellChangeTimes->{{3.5124074945450068`*^9, 3.512407523641831*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Array", " ", "Function", " ", "of", " ", "a", " ", "2"}], "-", RowBox[{"Antenna", " ", "Array"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Ex", " ", "9.4"}], " ", "&"}], " ", "9.5"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AF", "[", RowBox[{"dbylambda_", ",", "\[Phi]_", ",", "\[Psi]_"}], "]"}], ":=", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", "*", "dbylambda", "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "-", FractionBox["\[Psi]", "2"]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"AF", "[", RowBox[{"dbylambda", ",", "\[Phi]", ",", "\[Psi]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"dbylambda", ",", "0.01", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Psi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.480902263113456*^9, 3.480902276121379*^9}, { 3.48090231484363*^9, 3.48090238817515*^9}, {3.480902456468273*^9, 3.480902508204773*^9}, {3.48090306785753*^9, 3.480903175945142*^9}, { 3.480903318534821*^9, 3.480903319407073*^9}, {3.480903351005698*^9, 3.4809033770423727`*^9}, {3.48090468789205*^9, 3.480904707307847*^9}, { 3.480943609075066*^9, 3.480943623114749*^9}, {3.4813668492997704`*^9, 3.481366879753002*^9}, {3.512808964118533*^9, 3.512808968196507*^9}, { 3.5128115292284603`*^9, 3.5128115347302313`*^9}, {3.5128118001879187`*^9, 3.512811803666003*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`dbylambda$$ = 0.751, $CellContext`\[Psi]$$ = 1.1184069846779663`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`dbylambda$$], 0.01, 1}, { Hold[$CellContext`\[Psi]$$], 0, 2 Pi}}, Typeset`size$$ = { 360., {174., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`dbylambda$197556$$ = 0, $CellContext`\[Psi]$197557$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`dbylambda$$ = 0.01, $CellContext`\[Psi]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`dbylambda$$, $CellContext`dbylambda$197556$$, 0], Hold[$CellContext`\[Psi]$$, $CellContext`\[Psi]$197557$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ Abs[ $CellContext`AF[$CellContext`dbylambda$$, $CellContext`\[Phi], \ $CellContext`\[Psi]$$]], {$CellContext`\[Phi], 0, 2 Pi}, AspectRatio -> 1, PlotRange -> All, Frame -> True, PlotStyle -> Thick], "Specifications" :> {{$CellContext`dbylambda$$, 0.01, 1}, {$CellContext`\[Psi]$$, 0, 2 Pi}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {257., 263.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.480902391045741*^9, {3.4809024646919527`*^9, 3.480902520406096*^9}, 3.480903121008802*^9, 3.480903178548478*^9, 3.4809033200065823`*^9, { 3.48090335200931*^9, 3.480903377643317*^9}, 3.4809047085713453`*^9, 3.48094362584951*^9, 3.481366791904858*^9, 3.481366887735559*^9, { 3.512808947659562*^9, 3.5128089704309797`*^9}, 3.512811537992598*^9, 3.5134184036763697`*^9, 3.5233709026313972`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Array", " ", "Factor", " ", "of", " ", "a", " ", "N"}], "-", RowBox[{"Antenna", " ", "Array", " ", "for", " ", "varying", " ", "N"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ FractionBox["1", "N"], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{ FractionBox["N", "2"], "*", "\[Chi]"}], "]"}], RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "2"], "*", "\[Chi]"}], "]"}]]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Chi]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"N", ",", "1", ",", "20", ",", "1"}], "}"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.5128134840229197`*^9, 3.5128135971122704`*^9}, { 3.512813634155019*^9, 3.512813670360416*^9}, 3.51281967567349*^9, { 3.512987531635961*^9, 3.512987560866911*^9}, 3.512987597733543*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{N$$ = 12, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[N$$], 1, 20, 1}}, Typeset`size$$ = {360., {111., 116.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, N$198584$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {N$$ = 1}, "ControllerVariables" :> { Hold[N$$, N$198584$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ Abs[(1/N$$) (Sin[(N$$/2) $CellContext`\[Chi]]/ Sin[(1/2) $CellContext`\[Chi]])], {$CellContext`\[Chi], 0, Pi}, Frame -> True, PlotRange -> {0, 1.1}, PlotStyle -> Thick], "Specifications" :> {{N$$, 1, 20, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {167., 173.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.512813554207356*^9, 3.5128135986974173`*^9}, 3.512813674239766*^9, {3.512987537151198*^9, 3.512987561414112*^9}, 3.512992883285872*^9, 3.523370924738147*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Array", " ", "Factor", " ", "of", " ", "a", " ", "N"}], "-", RowBox[{"Antenna", " ", "Array", " ", "for", " ", "varying", " ", "N"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ FractionBox["1", "N"], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{ FractionBox["N", "2"], "*", "\[Chi]"}], "]"}], RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "2"], "*", "\[Chi]"}], "]"}]]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Chi]", ",", RowBox[{ RowBox[{"-", "2"}], "*", "\[Pi]"}], ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"N", ",", "1", ",", "20", ",", "1"}], "}"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.512987626485425*^9, 3.512987629548339*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{N$$ = 12, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[N$$], 1, 20, 1}}, Typeset`size$$ = {360., {111., 116.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, N$198989$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {N$$ = 1}, "ControllerVariables" :> { Hold[N$$, N$198989$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ Abs[(1/N$$) (Sin[(N$$/2) $CellContext`\[Chi]]/ Sin[(1/2) $CellContext`\[Chi]])], {$CellContext`\[Chi], (-2) Pi, 2 Pi}, Frame -> True, PlotRange -> {0, 1.1}, PlotStyle -> Thick], "Specifications" :> {{N$$, 1, 20, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {167., 173.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.5129876307034407`*^9, 3.512993206472089*^9, 3.523370936701295*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Array", " ", "Function", " ", "of", " ", "an", " ", "N"}], "-", RowBox[{"Antenna", " ", "Array"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AFN", "[", RowBox[{"N_", ",", "dbylambda_", ",", "\[Phi]_", ",", "\[Psi]_"}], "]"}], ":=", RowBox[{ FractionBox["1", "N"], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{ FractionBox["N", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Pi]", "*", "dbylambda", "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "-", "\[Psi]"}], ")"}]}], "]"}], RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Pi]", "*", "dbylambda", "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "-", "\[Psi]"}], ")"}]}], "]"}]]}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "\"\\"", " ", "Dependence", " ", "on", " ", "Number", " ", "of", " ", "array", " ", "elements"}], ",", " ", "\"\\"", ",", " ", RowBox[{ RowBox[{"meaning", " ", "\[Psi]"}], "=", "0"}], ",", " ", RowBox[{ "radiation", " ", "perpendicular", " ", "to", " ", "array", " ", "axis"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"AFN", "[", RowBox[{"N", ",", "0.25", ",", "\[Phi]", ",", "0"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"N", ",", "1", ",", "30", ",", "1"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.480906853591937*^9, 3.480906957675921*^9}, 3.4809069975827417`*^9, 3.4809078896606092`*^9, {3.512809037959217*^9, 3.512809065040902*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{N$$ = 9, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[N$$], 1, 30, 1}}, Typeset`size$$ = {360., {174., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, N$199054$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {N$$ = 1}, "ControllerVariables" :> { Hold[N$$, N$199054$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ Abs[ $CellContext`AFN[ N$$, 0.25, $CellContext`\[Phi], 0]], {$CellContext`\[Phi], 0, 2 Pi}, AspectRatio -> 1, PlotRange -> All, Frame -> True, PlotStyle -> Thick], "Specifications" :> {{N$$, 1, 30, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229., 235.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.4809068489012537`*^9, 3.480906928447473*^9, 3.480907890984688*^9, 3.480943644115613*^9, {3.512809045468141*^9, 3.512809066769595*^9}, 3.512994188929895*^9, 3.513418409368308*^9, 3.523370960578463*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "\"\\"", " ", "Dependence", " ", "on", " ", "electrical", " ", "distance", " ", "between", " ", "array", " ", "elements"}], ",", " ", "\"\\"", ",", " ", RowBox[{ RowBox[{"meaning", " ", "\[Psi]"}], "=", "0"}], ",", " ", RowBox[{ "radiation", " ", "perpendicular", " ", "to", " ", "array", " ", "axis"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"AFN", "[", RowBox[{"5", ",", "dbylambda", ",", "\[Phi]", ",", "0"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"dbylambda", ",", "0.01", ",", "0.85"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4809069635661383`*^9, 3.480907012823262*^9}, { 3.512809089848256*^9, 3.51280909470994*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`dbylambda$$ = 0.01, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`dbylambda$$], 0.01, 0.85}}, Typeset`size$$ = { 360., {174., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`dbylambda$31180$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`dbylambda$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`dbylambda$$, $CellContext`dbylambda$31180$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ Abs[ $CellContext`AFN[ 5, $CellContext`dbylambda$$, $CellContext`\[Phi], 0]], {$CellContext`\[Phi], 0, 2 Pi}, AspectRatio -> 1, PlotRange -> All, Frame -> True, PlotStyle -> Thick], "Specifications" :> {{$CellContext`dbylambda$$, 0.01, 0.85}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {216., 222.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.480907001018408*^9, 3.480943654949099*^9, 3.5128090955701437`*^9, 3.513418412532588*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "\"\\"", " ", "Dependence", " ", "on", " ", "Number", " ", "of", " ", "array", " ", "elements"}], ",", " ", "\"\\"", ",", " ", RowBox[{ RowBox[{"meaning", " ", "\[Psi]"}], "=", RowBox[{ RowBox[{"+", RowBox[{"/", RowBox[{"-", SubscriptBox["\[Beta]", "0"]}]}]}], "d"}]}], ",", " ", RowBox[{ "radiation", " ", "along", " ", "the", " ", "array", " ", "axis"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"AFN", "[", RowBox[{"5", ",", "dbylambda", ",", "\[Phi]", ",", RowBox[{"2", "\[Pi]", "*", "dbylambda"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"dbylambda", ",", "0.01", ",", "0.85"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.480906677111932*^9, 3.480906706274706*^9}, 3.48090673999993*^9, {3.480907024091091*^9, 3.4809070815463467`*^9}, { 3.51280910796131*^9, 3.512809111719784*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`dbylambda$$ = 0.42500000000000004`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`dbylambda$$], 0.01, 0.85}}, Typeset`size$$ = { 360., {174., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`dbylambda$31252$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`dbylambda$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`dbylambda$$, $CellContext`dbylambda$31252$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ Abs[ $CellContext`AFN[ 5, $CellContext`dbylambda$$, $CellContext`\[Phi], (2 Pi) $CellContext`dbylambda$$]], {$CellContext`\[Phi], 0, 2 Pi}, AspectRatio -> 1, PlotRange -> All, Frame -> True, PlotStyle -> Thick], "Specifications" :> {{$CellContext`dbylambda$$, 0.01, 0.85}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229., 235.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.480906708296467*^9, 3.4809067419242697`*^9, 3.480907083327125*^9, 3.480943664548798*^9, 3.512809114458941*^9, 3.513418415912409*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "\"\\"", " ", "by", " ", "changing", " ", "the", " ", "phase", " ", "difference", " ", "\[Psi]"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"AFN", "[", RowBox[{"5", ",", "0.6", ",", "\[Phi]", ",", "\[Psi]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Psi]", ",", RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.480907168343135*^9, 3.480907250857958*^9}, { 3.4809073172890882`*^9, 3.480907317591276*^9}, {3.4809073543883657`*^9, 3.480907358769438*^9}, {3.480907852282755*^9, 3.480907875756515*^9}, { 3.5128091302005253`*^9, 3.51280913623204*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Psi]$$ = -1.0681415022205294`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Psi]$$], Rational[-1, 2] Pi, Rational[1, 2] Pi}}, Typeset`size$$ = {360., {174., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Psi]$199830$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Psi]$$ = Rational[-1, 2] Pi}, "ControllerVariables" :> { Hold[$CellContext`\[Psi]$$, $CellContext`\[Psi]$199830$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ Abs[ $CellContext`AFN[ 5, 0.6, $CellContext`\[Phi], $CellContext`\[Psi]$$]], {$CellContext`\ \[Phi], 0, 2 Pi}, AspectRatio -> 1, PlotRange -> All, Frame -> True, PlotStyle -> Thick], "Specifications" :> {{$CellContext`\[Psi]$$, Rational[-1, 2] Pi, Rational[1, 2] Pi}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229., 235.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.480907254381207*^9, 3.480907318329608*^9, 3.480907359530355*^9, { 3.480907859118558*^9, 3.480907876844412*^9}, 3.4809436816754837`*^9, 3.5128091371507883`*^9, 3.51298800127075*^9, 3.513418371502924*^9, 3.513418419314846*^9, 3.5233710536554193`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Array", " ", "Function", " ", "of", " ", "an", " ", "5"}], "-", RowBox[{"Antenna", " ", "Array", " ", "with", " ", "Non"}], "-", RowBox[{"Uniform", " ", "Currents", " ", RowBox[{"(", RowBox[{"Ex", " ", "9.9"}], ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", RowBox[{"dbylambda_", ",", "\[Phi]_", ",", "\[Psi]_"}], "]"}], ":=", RowBox[{ RowBox[{"2", "\[Pi]", "*", "dbylambda", "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "-", "\[Psi]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AFN5", "[", RowBox[{"dbylambda_", ",", "\[Phi]_", ",", "\[Psi]_"}], "]"}], ":=", FractionBox[ RowBox[{"Abs", "[", RowBox[{"5", "+", RowBox[{"2", "*", RowBox[{"Cos", "[", RowBox[{"2", "*", RowBox[{"\[Chi]", "[", RowBox[{"dbylambda", ",", "\[Phi]", ",", "\[Psi]"}], "]"}]}], "]"}]}], "+", RowBox[{"6", "*", RowBox[{"Cos", "[", RowBox[{"\[Chi]", "[", RowBox[{"dbylambda", ",", "\[Phi]", ",", "\[Psi]"}], "]"}], "]"}]}]}], "]"}], "13"]}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"AFN5", "[", RowBox[{"dbylambda", ",", "\[Phi]", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"dbylambda", ",", "0", ",", "0.5"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4813352513369637`*^9, 3.4813355049835587`*^9}, { 3.512809166363783*^9, 3.512809171378861*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`dbylambda$$ = 0.495, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`dbylambda$$], 0, 0.5}}, Typeset`size$$ = { 360., {174., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`dbylambda$200640$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`dbylambda$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`dbylambda$$, $CellContext`dbylambda$200640$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ $CellContext`AFN5[$CellContext`dbylambda$$, $CellContext`\[Phi], 0], {$CellContext`\[Phi], 0, 2 Pi}, AspectRatio -> 1, PlotRange -> All, Frame -> True, PlotStyle -> Thick], "Specifications" :> {{$CellContext`dbylambda$$, 0, 0.5}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {229., 235.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.481335508514686*^9, 3.5128091726936398`*^9, 3.513418428810017*^9, 3.523371068146636*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Linear", " ", "\"\\"", " ", RowBox[{"Antenna", ":", " ", RowBox[{ "Radiation", " ", "pattern", " ", "from", " ", "conducting", " ", "plane"}]}]}], ",", " ", RowBox[{"Fig", " ", "9.44"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhor", "[", RowBox[{"twolbylambda_", ",", "\[Theta]_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Pi]", "*", "twolbylambda", "*", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"\[Pi]", "*", "twolbylambda"}], "]"}]}], RowBox[{"Sin", "[", "\[Theta]", "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"Fhor", "[", RowBox[{ FractionBox["1", "2"], ",", "\[Theta]"}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ "\[ImaginaryI]", "*", "2", "*", "\[Pi]", "*", "hbylambda", "*", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Fhor", "[", RowBox[{ FractionBox["1", "2"], ",", RowBox[{"\[Pi]", "-", "\[Theta]"}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "*", "2", "*", "\[Pi]", "*", "hbylambda", "*", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}]}]}], "]"}], "2"], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", RowBox[{"{", RowBox[{"hbylambda", ",", "0.01", ",", "1.5"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5134195243522863`*^9, 3.513419603386593*^9}, { 3.51341968067978*^9, 3.5134197027553663`*^9}, {3.513419735348319*^9, 3.513419755837143*^9}, {3.513419811205595*^9, 3.513419821849791*^9}, { 3.513419938146401*^9, 3.513419990601692*^9}, {3.513420071666904*^9, 3.513420099867943*^9}, {3.513420135334536*^9, 3.51342014122859*^9}, { 3.5134202317059183`*^9, 3.513420325072302*^9}, {3.513420516657353*^9, 3.513420518708701*^9}, {3.51342057902253*^9, 3.513420788842311*^9}, { 3.513420821140244*^9, 3.513420836819738*^9}, {3.5134209013994303`*^9, 3.513420926051024*^9}, {3.513420988025333*^9, 3.5134209943406*^9}, { 3.51342141699498*^9, 3.513421446055561*^9}, {3.513421495043236*^9, 3.5134215079303017`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`hbylambda$$ = 1.032, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`hbylambda$$], 0.01, 1.5}}, Typeset`size$$ = { 360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`hbylambda$201126$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`hbylambda$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`hbylambda$$, $CellContext`hbylambda$201126$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> PolarPlot[ Abs[$CellContext`Fhor[1/2, $CellContext`\[Theta]] Exp[I 2 Pi $CellContext`hbylambda$$ Cos[$CellContext`\[Theta]]] - $CellContext`Fhor[ 1/2, Pi - $CellContext`\[Theta]] Exp[(-I) 2 Pi $CellContext`hbylambda$$ Cos[$CellContext`\[Theta]]]]^2, {$CellContext`\[Theta], 0, Pi}, AspectRatio -> 1, PlotRange -> All, Frame -> True, PlotStyle -> Thick], "Specifications" :> {{$CellContext`hbylambda$$, 0.01, 1.5}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{403., {233., 239.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.513419736453846*^9, 3.513419756598143*^9}, { 3.513419976309319*^9, 3.513419992198267*^9}, {3.51342007577326*^9, 3.513420100453807*^9}, 3.513420150473221*^9, {3.513420232466316*^9, 3.513420325528771*^9}, {3.5134206917004623`*^9, 3.5134207624121428`*^9}, 3.513420826608251*^9, {3.513420910418565*^9, 3.5134209265013657`*^9}, { 3.5134214210524693`*^9, 3.5134214282115383`*^9}, {3.513421495883008*^9, 3.513421508372939*^9}, 3.523371079210619*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{822, 720}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \ 2011)", StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[422, 15, 681, 11, 110, "Title"], Cell[1106, 28, 270, 9, 8, "Text"], Cell[CellGroupData[{ Cell[1401, 41, 145, 1, 72, "Section"], Cell[1549, 44, 103, 1, 34, "Subsection"], Cell[CellGroupData[{ Cell[1677, 49, 101, 1, 26, "Subsection"], Cell[1781, 52, 103, 1, 26, "Item"], Cell[CellGroupData[{ Cell[1909, 57, 1905, 46, 97, "Input"], Cell[3817, 105, 2421, 46, 367, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6275, 156, 2849, 62, 83, "Input"], Cell[9127, 220, 2175, 43, 335, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11339, 268, 1695, 46, 83, "Input"], Cell[13037, 316, 1795, 37, 335, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14869, 358, 1943, 47, 97, "Input"], Cell[16815, 407, 2551, 49, 421, "Output"] }, Open ]], Cell[19381, 459, 222, 5, 26, "Item"], Cell[CellGroupData[{ Cell[19628, 468, 2570, 62, 132, "Input"], Cell[22201, 532, 2834, 53, 367, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25072, 590, 2030, 55, 132, "Input"], Cell[27105, 647, 2158, 44, 373, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29312, 697, 101, 1, 34, "Subsection"], Cell[29416, 700, 195, 4, 26, "Item"], Cell[CellGroupData[{ Cell[29636, 708, 8418, 216, 433, "Input"], Cell[38057, 926, 3232, 64, 431, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41326, 995, 3357, 93, 158, "Input"], Cell[44686, 1090, 2939, 61, 431, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47662, 1156, 2475, 55, 83, "Input"], Cell[50140, 1213, 2458, 45, 369, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52635, 1263, 2477, 55, 97, "Input"], Cell[55115, 1320, 2008, 39, 367, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57160, 1364, 2637, 59, 97, "Input"], Cell[59800, 1425, 2517, 47, 367, "Output"] }, Open ]] }, Open ]], Cell[62344, 1476, 99, 1, 34, "Subsection"], Cell[CellGroupData[{ Cell[62468, 1481, 99, 1, 26, "Subsection"], Cell[62570, 1484, 241, 5, 26, "Item"], Cell[CellGroupData[{ Cell[62836, 1493, 2502, 62, 249, "Input"], Cell[65341, 1557, 389, 7, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65767, 1569, 1027, 28, 108, "Input"], Cell[66797, 1599, 455, 10, 58, "Output"], Cell[67255, 1611, 756, 21, 95, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68048, 1637, 514, 14, 76, "Input"], Cell[68565, 1653, 1444, 43, 149, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70046, 1701, 1344, 30, 88, "Input"], Cell[71393, 1733, 562, 9, 37, "Output"], Cell[71958, 1744, 469, 6, 37, "Output"], Cell[72430, 1752, 485, 7, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72952, 1764, 1834, 49, 98, "Input"], Cell[74789, 1815, 615, 9, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75441, 1829, 1181, 30, 135, "Input"], Cell[76625, 1861, 492, 9, 37, "Output"], Cell[77120, 1872, 400, 6, 37, "Output"], Cell[77523, 1880, 416, 7, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77976, 1892, 791, 20, 88, "Input"], Cell[78770, 1914, 369, 6, 37, "Output"], Cell[79142, 1922, 278, 4, 37, "Output"], Cell[79423, 1928, 275, 4, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79735, 1937, 1085, 28, 100, "Input"], Cell[80823, 1967, 425, 6, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81285, 1978, 5510, 132, 304, "Input"], Cell[86798, 2112, 4341, 77, 369, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91176, 2194, 4845, 125, 304, "Input"], Cell[96024, 2321, 3182, 62, 369, "Output"] }, Open ]], Cell[99221, 2386, 188, 4, 26, "Item"] }, Open ]], Cell[CellGroupData[{ Cell[99446, 2395, 101, 1, 34, "Subsection"], Cell[99550, 2398, 165, 3, 26, "Item"], Cell[CellGroupData[{ Cell[99740, 2405, 12483, 315, 738, "Input"], Cell[112226, 2722, 7676, 163, 480, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[119951, 2891, 129, 2, 34, "Subsection"], Cell[120083, 2895, 172, 2, 26, "Item"], Cell[CellGroupData[{ Cell[120280, 2901, 18773, 473, 1442, "Input"], Cell[139056, 3376, 717, 12, 37, "Output"], Cell[139776, 3390, 3343, 63, 347, "Output"], Cell[143122, 3455, 3252, 62, 347, "Output"], Cell[146377, 3519, 3455, 67, 353, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[149869, 3591, 14953, 371, 1045, "Input"], Cell[164825, 3964, 436, 7, 40, "Output"], Cell[165264, 3973, 3073, 59, 347, "Output"], Cell[168340, 4034, 2983, 58, 347, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[171384, 4099, 220, 4, 72, "Section"], Cell[171607, 4105, 156, 2, 34, "Subsection"], Cell[CellGroupData[{ Cell[171788, 4111, 156, 2, 26, "Subsection"], Cell[CellGroupData[{ Cell[171969, 4117, 1369, 36, 84, "Input"], Cell[173341, 4155, 2308, 45, 555, "Output"] }, Open ]] }, Open ]], Cell[175676, 4204, 178, 2, 34, "Subsection"], Cell[CellGroupData[{ Cell[175879, 4210, 179, 2, 26, "Subsection"], Cell[176061, 4214, 346, 7, 39, "Item"], Cell[CellGroupData[{ Cell[176432, 4225, 3614, 100, 322, "Input"], Cell[180049, 4327, 2131, 43, 349, "Output"] }, Open ]], Cell[182195, 4373, 341, 6, 39, "Item"] }, Open ]], Cell[CellGroupData[{ Cell[182573, 4384, 204, 3, 34, "Subsection"], Cell[CellGroupData[{ Cell[182802, 4391, 4136, 116, 278, "Input"], Cell[186941, 4509, 3091, 58, 661, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[190093, 4574, 215, 3, 72, "Section"], Cell[CellGroupData[{ Cell[190333, 4581, 9023, 239, 488, "Input"], Cell[199359, 4822, 2458, 48, 553, "Output"], Cell[201820, 4872, 2188, 42, 363, "Output"], Cell[204011, 4916, 2355, 45, 497, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[206415, 4967, 259, 3, 72, "Section"], Cell[CellGroupData[{ Cell[206699, 4974, 2404, 60, 204, "Input"], Cell[209106, 5036, 384, 6, 57, "Output"], Cell[209493, 5044, 2107, 39, 491, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[211637, 5088, 2901, 71, 208, "Input"], Cell[214541, 5161, 19954, 335, 421, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[234532, 5501, 378, 8, 37, "Input"], Cell[234913, 5511, 86, 1, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[235036, 5517, 2711, 66, 136, "Input"], Cell[237750, 5585, 2272, 41, 349, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[240059, 5631, 278, 7, 37, "Input"], Cell[240340, 5640, 114, 1, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[240491, 5646, 2039, 48, 104, "Input"], Cell[242533, 5696, 2437, 46, 547, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[245007, 5747, 1286, 33, 124, "Input"], Cell[246296, 5782, 1719, 35, 367, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[248052, 5822, 1226, 34, 124, "Input"], Cell[249281, 5858, 1631, 34, 367, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[250949, 5897, 2267, 61, 160, "Input"], Cell[253219, 5960, 1772, 37, 491, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[255028, 6002, 1261, 32, 83, "Input"], Cell[256292, 6036, 1841, 37, 465, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[258170, 6078, 1458, 38, 83, "Input"], Cell[259631, 6118, 1937, 38, 491, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[261605, 6161, 1238, 30, 95, "Input"], Cell[262846, 6193, 2082, 42, 491, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[264965, 6240, 2000, 52, 120, "Input"], Cell[266968, 6294, 1805, 35, 491, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[268810, 6334, 2906, 69, 225, "Input"], Cell[271719, 6405, 2417, 45, 499, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *)