(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 48846, 1143] NotebookOptionsPosition[ 46408, 1091] NotebookOutlinePosition[ 46943, 1110] CellTagsIndexPosition[ 46900, 1107] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Polarization", "Section", CellChangeTimes->{{3.715609033708547*^9, 3.7156090523575788`*^9}},ExpressionUUID->"a2c00ce1-7378-47a9-b0a1-\ 445e0ec44e6d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "t"}], "+", "\[Psi]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A1", "+", "1"}], ",", RowBox[{ RowBox[{"-", "A1"}], "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A2", "+", "1"}], ",", RowBox[{ RowBox[{"-", "A2"}], "-", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "0.6"}], "]"}], ",", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "tf"}], "]"}]}], ",", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "tf"}], "+", "\[Psi]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "tf"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "tf"}], "+", "\[Psi]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"A1", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"A2", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"tf", ",", "0.0001", ",", "1", ",", "0.001"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Psi]", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}], ",", RowBox[{"\[Pi]", "/", "10"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7156090553495836`*^9, 3.715609229743864*^9}, { 3.7156092739453855`*^9, 3.7156092851760273`*^9}, {3.7156093175348787`*^9, 3.715609384185691*^9}, 3.715609565373054*^9, {3.715609595969804*^9, 3.7156096221513014`*^9}, {3.7156096785985303`*^9, 3.7156097391469936`*^9}, {3.715609773996987*^9, 3.715609807851923*^9}, { 3.715609865580225*^9, 3.715609897911074*^9}, {3.7156099770325994`*^9, 3.7156099967897296`*^9}, {3.7156100484596853`*^9, 3.715610068741845*^9}, { 3.715610127292194*^9, 3.715610153585698*^9}, {3.715610418608856*^9, 3.715610480528398*^9}, {3.715610524142893*^9, 3.7156105714746*^9}, 3.7156106691031837`*^9, 3.7156111023029613`*^9, {3.715611274242957*^9, 3.7156112974447784`*^9}, {3.715611348238844*^9, 3.7156114257292185`*^9}, 3.715611467336381*^9, {3.7156115191280937`*^9, 3.7156115257806225`*^9}, { 3.715611905977403*^9, 3.715611932290526*^9}, {3.715611998099821*^9, 3.715612117905388*^9}, {3.7159640221496315`*^9, 3.7159640817540407`*^9}, { 3.7159641789946027`*^9, 3.7159642177398186`*^9}, {3.8750349245779705`*^9, 3.875034949446079*^9}, {3.875182430256849*^9, 3.875182437892763*^9}, { 3.8751825178086295`*^9, 3.875182525070389*^9}, {3.875182624160092*^9, 3.875182628153624*^9}, {3.907606878152626*^9, 3.9076068784043684`*^9}, { 3.9076069313497057`*^9, 3.907606943777954*^9}, {3.9076069744498587`*^9, 3.9076069778524313`*^9}, {3.907607020291407*^9, 3.9076070247046103`*^9}, { 3.9076070618183107`*^9, 3.9076071145586233`*^9}, 3.9076116130723057`*^9, { 3.908348920703332*^9, 3.9083489500838256`*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"ded10278-c970-49fb-9950-1387b9d84391"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`A1$$ = 1, $CellContext`A2$$ = 1, $CellContext`tf$$ = 0.7641, $CellContext`\[Psi]$$ = (-2) Pi, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`A1$$], 1, 10}, { Hold[$CellContext`A2$$], 1, 10}, { Hold[$CellContext`tf$$], 0.0001, 1, 0.001}, { Hold[$CellContext`\[Psi]$$], (-2) Pi, 2 Pi, Rational[1, 10] Pi}}, Typeset`size$$ = {450., {223., 229.86303751380183`}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`A1$$ = 1, $CellContext`A2$$ = 1, $CellContext`tf$$ = 0.0001, $CellContext`\[Psi]$$ = (-2) Pi}, "ControllerVariables" :> {}, "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[ ParametricPlot[{$CellContext`A1$$ Cos[((-2) Pi) $CellContext`t], $CellContext`A2$$ Cos[((-2) Pi) $CellContext`t + $CellContext`\[Psi]$$]}, {$CellContext`t, 0, $CellContext`tf$$}, PlotRange -> {{$CellContext`A1$$ + 1, -$CellContext`A1$$ - 1}, {$CellContext`A2$$ + 1, -$CellContext`A2$$ - 1}}, PlotStyle -> { RGBColor[0, 0, 0.6], Thickness[0.005]}], Graphics[{ Thickness[0.005], Arrow[{{0, 0}, {$CellContext`A1$$ Cos[((-2) Pi) $CellContext`tf$$], $CellContext`A2$$ Cos[((-2) Pi) $CellContext`tf$$ + $CellContext`\[Psi]$$]}}]}], Graphics[{Red, Thickness[0.005], Arrow[{{0, 0}, {$CellContext`A1$$ Cos[((-2) Pi) $CellContext`tf$$], 0}}]}], Graphics[{Red, Thickness[0.005], Arrow[{{0, 0}, { 0, $CellContext`A2$$ Cos[((-2) Pi) $CellContext`tf$$ + $CellContext`\[Psi]$$]}}]}]], "Specifications" :> {{$CellContext`A1$$, 1, 10}, {$CellContext`A2$$, 1, 10}, {$CellContext`tf$$, 0.0001, 1, 0.001}, {$CellContext`\[Psi]$$, (-2) Pi, 2 Pi, Rational[1, 10] Pi}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{509., {319.9175416090293, 327.0824583909707}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.7156091440297256`*^9, 3.715609230921866*^9, {3.7156092757654896`*^9, 3.7156092854430428`*^9}, {3.715609353622943*^9, 3.715609386115801*^9}, 3.715609565908085*^9, {3.7156095978039093`*^9, 3.715609622706333*^9}, 3.7156097036919656`*^9, 3.715609740874092*^9, 3.715609777639195*^9, 3.715609809062992*^9, 3.7156098986491165`*^9, 3.7156101580339527`*^9, 3.7156105726046643`*^9, 3.7156106697172194`*^9, 3.715611104391081*^9, { 3.7156112761859865`*^9, 3.7156112985217934`*^9}, {3.7156113493488493`*^9, 3.7156113965765867`*^9}, 3.7156114271512256`*^9, 3.715611467721382*^9, 3.715611526262627*^9, {3.7156119085234146`*^9, 3.7156119328305283`*^9}, { 3.715612000652836*^9, 3.715612010520382*^9}, 3.715612051824559*^9, { 3.7156120853327217`*^9, 3.7156121183153887`*^9}, 3.715964083573145*^9, 3.715964218934887*^9, 3.875034959228674*^9, {3.8750910248222747`*^9, 3.8750910451884656`*^9}, {3.875091087362116*^9, 3.8750911156508894`*^9}, { 3.8751824837343807`*^9, 3.8751824876148815`*^9}, {3.875182531659422*^9, 3.8751825553960705`*^9}, {3.8751826294055624`*^9, 3.8751826334131145`*^9}, {3.9076069464529467`*^9, 3.9076069835515127`*^9}, {3.907607026612296*^9, 3.9076070290381365`*^9}, 3.9076070677205534`*^9, {3.907607098409806*^9, 3.907607122276101*^9}, { 3.907607407029225*^9, 3.907607424533715*^9}, {3.9076179948861094`*^9, 3.9076179957260914`*^9}, 3.907668944188548*^9, {3.908348690387286*^9, 3.908348692767999*^9}, {3.9083488939962673`*^9, 3.9083488961493874`*^9}, { 3.908348952190566*^9, 3.9083489543580008`*^9}}, CellLabel->"Out[17]=",ExpressionUUID->"8d40989c-e419-4932-aaab-cf2982a2f99f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "x"}], "]"}]}], ",", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "x"}], "+", "\[Psi]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "xf"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A1", "+", "1"}], ",", RowBox[{ RowBox[{"-", "A1"}], "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A2", "+", "1"}], ",", RowBox[{ RowBox[{"-", "A2"}], "-", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "0.6"}], "]"}], ",", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "xf"}], "]"}]}], ",", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "xf"}], "+", "\[Psi]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "xf"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "xf"}], "+", "\[Psi]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"A1", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"A2", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"xf", ",", "0.0001", ",", "1", ",", "0.001"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Psi]", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}], ",", " ", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", "10"}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.908348713762041*^9, 3.908348723696488*^9}, { 3.908348768775957*^9, 3.908348768964674*^9}, {3.908348826311208*^9, 3.9083488716135545`*^9}, {3.9083489889037724`*^9, 3.9083489901778183`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"1cb1ca4a-f589-461e-85c0-24cb9504c6ca"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`A1$$ = 1, $CellContext`A2$$ = 1, $CellContext`xf$$ = 0.0001, $CellContext`\[Psi]$$ = (-2) Pi, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`A1$$], 1, 10}, { Hold[$CellContext`A2$$], 1, 10}, { Hold[$CellContext`xf$$], 0.0001, 1, 0.001}, { Hold[$CellContext`\[Psi]$$], (-2) Pi, 2 Pi, {5.179102418590876, 0.4993210110041666, 0.5125515719555267, 2.3999101328319234`, -4.824823123455557, -4.922634588522765, 1.451409897814198, -0.342072281404036, 3.442701047735653, -0.6914973669306406}}}, Typeset`size$$ = { 450., {223., 229.86303751380183`}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`A1$$ = 1, $CellContext`A2$$ = 1, $CellContext`xf$$ = 0.0001, $CellContext`\[Psi]$$ = (-2) Pi}, "ControllerVariables" :> {}, "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[ ParametricPlot[{$CellContext`A1$$ Cos[((-2) Pi) $CellContext`x], $CellContext`A2$$ Cos[((-2) Pi) $CellContext`x + $CellContext`\[Psi]$$]}, {$CellContext`x, 0, $CellContext`xf$$}, PlotRange -> {{$CellContext`A1$$ + 1, -$CellContext`A1$$ - 1}, {$CellContext`A2$$ + 1, -$CellContext`A2$$ - 1}}, PlotStyle -> { RGBColor[0, 0, 0.6], Thickness[0.005]}], Graphics[{ Thickness[0.005], Arrow[{{0, 0}, {$CellContext`A1$$ Cos[((-2) Pi) $CellContext`xf$$], $CellContext`A2$$ Cos[((-2) Pi) $CellContext`xf$$ + $CellContext`\[Psi]$$]}}]}], Graphics[{Red, Thickness[0.005], Arrow[{{0, 0}, {$CellContext`A1$$ Cos[((-2) Pi) $CellContext`xf$$], 0}}]}], Graphics[{Red, Thickness[0.005], Arrow[{{0, 0}, { 0, $CellContext`A2$$ Cos[((-2) Pi) $CellContext`xf$$ + $CellContext`\[Psi]$$]}}]}]], "Specifications" :> {{$CellContext`A1$$, 1, 10}, {$CellContext`A2$$, 1, 10}, {$CellContext`xf$$, 0.0001, 1, 0.001}, {$CellContext`\[Psi]$$, (-2) Pi, 2 Pi, {5.179102418590876, 0.4993210110041666, 0.5125515719555267, 2.3999101328319234`, -4.824823123455557, -4.922634588522765, 1.451409897814198, -0.342072281404036, 3.442701047735653, -0.6914973669306406}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{701., {313.9175416090293, 321.0824583909707}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.9083487252390194`*^9, 3.908348729151826*^9}, 3.908348769986004*^9, {3.9083488372596827`*^9, 3.9083488388936844`*^9}, 3.908348874078655*^9, 3.908348990587061*^9}, CellLabel->"Out[18]=",ExpressionUUID->"884f517c-676f-4621-8399-3faa7b4a891b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Polarization of standing waves ", "Section", CellChangeTimes->{{3.907607587835669*^9, 3.9076076148721175`*^9}},ExpressionUUID->"c32c6bc0-b002-42ec-aac9-\ 68b55a8cd3e5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0.5", " ", RowBox[{"(", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "+", "\[Psi]1"}], "]"}]}], "+", RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", RowBox[{"2", " ", "\[Pi]", " ", "t"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"0.5", " ", RowBox[{"(", RowBox[{ RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "+", "\[Psi]2"}], "]"}]}], "+", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "+", "\[Psi]3"}], "]"}]}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A1", "+", "1"}], ",", RowBox[{ RowBox[{"-", "A1"}], "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A2", "+", "1"}], ",", RowBox[{ RowBox[{"-", "A2"}], "-", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "0.6"}], "]"}], ",", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", RowBox[{"2", " ", "\[Pi]", " ", "tf"}], "+", "\[Psi]1"}], "]"}]}], ",", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", RowBox[{"2", " ", "\[Pi]", " ", "tf"}], "+", "\[Psi]2"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", RowBox[{"2", " ", "\[Pi]", " ", "tf"}]}], "]"}]}], ",", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", RowBox[{"2", " ", "\[Pi]", " ", "tf"}], "+", "\[Psi]3"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"A1", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"A2", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"tf", ",", "0.0001", ",", "1", ",", "0.001"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}], ",", RowBox[{"\[Pi]", "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Psi]1", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}], ",", RowBox[{"\[Pi]", "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Psi]2", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}], ",", RowBox[{"\[Pi]", "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Psi]3", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}], ",", RowBox[{"\[Pi]", "/", "4"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.9076076216880493`*^9, {3.907607657597972*^9, 3.9076076716507964`*^9}, { 3.907607735044485*^9, 3.9076078077128625`*^9}, {3.907607893918539*^9, 3.907608001611958*^9}, {3.9076081036372433`*^9, 3.907608111794115*^9}, { 3.9076082507702265`*^9, 3.9076083177782764`*^9}, {3.9076083526637197`*^9, 3.90760838614284*^9}, {3.90761193887405*^9, 3.9076119688308935`*^9}, { 3.9076123607972608`*^9, 3.907612373918618*^9}, {3.9076124213181324`*^9, 3.907612441351926*^9}, {3.907612480372851*^9, 3.9076125684823484`*^9}, { 3.9076177433433566`*^9, 3.9076177786579876`*^9}}, CellLabel->"In[95]:=",ExpressionUUID->"f2b329b7-5246-434c-bf34-cbc2804f66b7"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`A1$$ = 1, $CellContext`A2$$ = 1, $CellContext`tf$$ = 0.0001, $CellContext`\[Phi]$$ = (-2) Pi, $CellContext`\[Psi]1$$ = (-2) Pi, $CellContext`\[Psi]2$$ = (-2) Pi, $CellContext`\[Psi]3$$ = (-2) Pi, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`A1$$], 1, 10}, { Hold[$CellContext`A2$$], 1, 10}, { Hold[$CellContext`tf$$], 0.0001, 1, 0.001}, { Hold[$CellContext`\[Phi]$$], (-2) Pi, 2 Pi, Rational[1, 4] Pi}, { Hold[$CellContext`\[Psi]1$$], (-2) Pi, 2 Pi, Rational[1, 4] Pi}, { Hold[$CellContext`\[Psi]2$$], (-2) Pi, 2 Pi, Rational[1, 4] Pi}, { Hold[$CellContext`\[Psi]3$$], (-2) Pi, 2 Pi, Rational[1, 4] Pi}}, Typeset`size$$ = {450., {223., 229.86303751380183`}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`A1$$ = 1, $CellContext`A2$$ = 1, $CellContext`tf$$ = 0.0001, $CellContext`\[Phi]$$ = (-2) Pi, $CellContext`\[Psi]1$$ = (-2) Pi, $CellContext`\[Psi]2$$ = (-2) Pi, $CellContext`\[Psi]3$$ = (-2) Pi}, "ControllerVariables" :> {}, "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[ ParametricPlot[{ 0.5 ($CellContext`A1$$ Cos[$CellContext`\[Phi]$$ + (2 Pi) $CellContext`t + $CellContext`\[Psi]1$$] + \ $CellContext`A1$$ Cos[$CellContext`\[Phi]$$ - (2 Pi) $CellContext`t]), 0.5 ($CellContext`A2$$ Cos[$CellContext`\[Phi]$$ + (2 Pi) $CellContext`t + $CellContext`\[Psi]2$$] + \ $CellContext`A2$$ Cos[$CellContext`\[Phi]$$ - (2 Pi) $CellContext`t + $CellContext`\[Psi]3$$])}, \ {$CellContext`t, 0, $CellContext`tf$$}, PlotRange -> {{$CellContext`A1$$ + 1, -$CellContext`A1$$ - 1}, {$CellContext`A2$$ + 1, -$CellContext`A2$$ - 1}}, PlotStyle -> { RGBColor[0, 0, 0.6], Thickness[0.005]}], Graphics[{ Thickness[0.005], Arrow[{{0, 0}, {$CellContext`A1$$ Cos[$CellContext`\[Phi]$$ + (2 Pi) $CellContext`tf$$ + $CellContext`\[Psi]1$$], \ $CellContext`A2$$ Cos[$CellContext`\[Phi]$$ + (2 Pi) $CellContext`tf$$ + $CellContext`\[Psi]2$$]}}]}], Graphics[{ Thickness[0.005], Arrow[{{0, 0}, {$CellContext`A1$$ Cos[$CellContext`\[Phi]$$ - (2 Pi) $CellContext`tf$$], $CellContext`A2$$ Cos[$CellContext`\[Phi]$$ - (2 Pi) $CellContext`tf$$ + $CellContext`\[Psi]3$$]}}]}]], "Specifications" :> {{$CellContext`A1$$, 1, 10}, {$CellContext`A2$$, 1, 10}, {$CellContext`tf$$, 0.0001, 1, 0.001}, {$CellContext`\[Phi]$$, (-2) Pi, 2 Pi, Rational[1, 4] Pi}, {$CellContext`\[Psi]1$$, (-2) Pi, 2 Pi, Rational[1, 4] Pi}, {$CellContext`\[Psi]2$$, (-2) Pi, 2 Pi, Rational[1, 4] Pi}, {$CellContext`\[Psi]3$$, (-2) Pi, 2 Pi, Rational[1, 4] Pi}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{509., {361.9175416090293, 369.0824583909707}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.907608004086543*^9, 3.9076080073420978`*^9}, { 3.9076081127997723`*^9, 3.9076081191928906`*^9}, {3.9076082532310495`*^9, 3.907608263070035*^9}, 3.907608319576045*^9, {3.907608387663765*^9, 3.907608395561179*^9}, {3.9076118843170357`*^9, 3.907611893819421*^9}, { 3.9076119704873*^9, 3.9076119762879868`*^9}, 3.9076125049312997`*^9, { 3.907612558880911*^9, 3.907612576277399*^9}, 3.907614926434516*^9, 3.9076177852493057`*^9}, CellLabel->"Out[95]=",ExpressionUUID->"478f95f0-e4c2-494b-8a8a-20d159609516"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plot standing waves", "Section", CellChangeTimes->{{3.907612825444206*^9, 3.907612829118989*^9}},ExpressionUUID->"433d1190-d27e-48ef-8645-\ aacfcb09ddf5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"wave1", "[", RowBox[{"A1_", ",", "\[Lambda]1_", ",", "x_", ",", "f1_", ",", " ", "t_"}], "]"}], " ", ":=", " ", RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Pi]", " ", "/", "\[Lambda]1"}], " ", "x"}], "+", RowBox[{"2", " ", "\[Pi]", " ", "f1", " ", "t"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wave2", "[", RowBox[{ "A2_", ",", "\[Lambda]2_", ",", "x_", ",", "f2_", ",", "t_", ",", " ", "\[Phi]_"}], "]"}], " ", ":=", " ", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Pi]", " ", "/", "\[Lambda]2"}], " ", "x"}], "-", RowBox[{"2", " ", "\[Pi]", " ", "f2", " ", "t"}], "+", "\[Phi]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wave1", "[", RowBox[{"1", ",", "\[Lambda]", ",", "x", ",", "f", ",", " ", "t"}], "]"}], ",", RowBox[{"wave2", "[", RowBox[{ "1", ",", " ", "\[Lambda]", ",", "x", ",", "f", ",", "t", ",", " ", "0"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"\[Lambda]", " ", "10"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"1", "/", "f"}], "*", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", "Gray", ",", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"wave1", "[", RowBox[{"1", ",", "\[Lambda]", ",", "x", ",", "f", ",", " ", "t"}], "]"}], "+", RowBox[{"wave2", "[", RowBox[{ "1", ",", "\[Lambda]", ",", "x", ",", " ", "f", ",", "t", ",", " ", "0"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"\[Lambda]", " ", "10"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"1", "/", "f"}], "*", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", "0.0001", ",", RowBox[{ RowBox[{"1", "/", "f"}], "*", "10"}], ",", "0.001"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.90741399846367*^9, 3.907414067235357*^9}, { 3.9074141030946155`*^9, 3.9074141513258963`*^9}, {3.9074141938626575`*^9, 3.9074143539880867`*^9}, 3.907414388139719*^9, {3.9074144212836294`*^9, 3.907414548496731*^9}, {3.9074145986066685`*^9, 3.9074146117919955`*^9}, { 3.907414653069059*^9, 3.9074146657114577`*^9}, {3.907414723370736*^9, 3.9074147520964766`*^9}, {3.907414789511104*^9, 3.907414858748325*^9}, { 3.9076073523215275`*^9, 3.9076073859871473`*^9}, {3.9076098795363216`*^9, 3.907610020418399*^9}, {3.907610073606185*^9, 3.9076101242594385`*^9}, { 3.907610163837696*^9, 3.9076102068156586`*^9}, {3.907610399002202*^9, 3.9076104462540436`*^9}, {3.907610481182003*^9, 3.9076105099868593`*^9}, { 3.9076105810406494`*^9, 3.907610585412445*^9}, {3.9076116746087475`*^9, 3.907611674660742*^9}, {3.9076128653721447`*^9, 3.907612946282138*^9}, { 3.9076130780728116`*^9, 3.9076130786545644`*^9}, {3.9076132496243553`*^9, 3.907613250009559*^9}, {3.907613302373575*^9, 3.907613313616757*^9}, { 3.9076133534491234`*^9, 3.90761340257907*^9}, {3.907613437421888*^9, 3.9076135000880723`*^9}, {3.9076178176573515`*^9, 3.9076178184723425`*^9}, {3.9076178794232864`*^9, 3.907617890963319*^9}, { 3.907617938627629*^9, 3.9076179406618567`*^9}, {3.9076689832627544`*^9, 3.907669025697405*^9}, {3.907669086735922*^9, 3.90766909405145*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"7ef7e4b1-9a51-4657-b119-3c490207f5b6"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 0.0001, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0.0001, 10, 0.001}}, Typeset`size$$ = { 997.9610830934639, {90.43600777387618, 22.186013009701856`}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0.0001}, "ControllerVariables" :> {}, "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[ Plot[{ $CellContext`wave1[ 1, $CellContext`\[Lambda], $CellContext`x, $CellContext`f, \ $CellContext`t$$], $CellContext`wave2[ 1, $CellContext`\[Lambda], $CellContext`x, $CellContext`f, \ $CellContext`t$$, 0]}, {$CellContext`x, 0, $CellContext`\[Lambda] 10}, PlotRange -> {{0, (1/$CellContext`f) 10}, {-2, 2}}, PlotStyle -> {Gray, Gray, Thickness[0.005]}], Plot[$CellContext`wave1[ 1, $CellContext`\[Lambda], $CellContext`x, $CellContext`f, \ $CellContext`t$$] + $CellContext`wave2[ 1, $CellContext`\[Lambda], $CellContext`x, $CellContext`f, \ $CellContext`t$$, 0], {$CellContext`x, 0, $CellContext`\[Lambda] 10}, PlotRange -> {{0, (1/$CellContext`f) 10}, {-2, 2}}, PlotStyle -> {Blue, Thickness[0.005]}]], "Specifications" :> {{$CellContext`t$$, 0.0001, 10, 0.001}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1281., {108.41754160902929`, 115.58245839097071`}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.907613503976759*^9, 3.907613505853727*^9}, { 3.907617819366226*^9, 3.9076178210873632`*^9}, {3.9076178926013184`*^9, 3.9076178944317303`*^9}, {3.9076179415064974`*^9, 3.9076179440006833`*^9}, {3.9076689857958307`*^9, 3.9076689890236597`*^9}, {3.9076690265477552`*^9, 3.907669028437103*^9}, { 3.9076690989042435`*^9, 3.9076691005735807`*^9}, {3.908347249560249*^9, 3.9083472522664413`*^9}, 3.9083486234875035`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"9d6329b4-54c9-4117-a1f4-bc21f1d59b2c"], Cell[BoxData[ TemplateBox[{ "Plot", "plln", "\"Limiting value \\!\\(\\*RowBox[{\\\"10\\\", \\\" \\\", \ \\\"\[Lambda]\\\"}]\\) in \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"x\\\", \ \\\",\\\", \\\"0\\\", \\\",\\\", RowBox[{\\\"10\\\", \\\" \\\", \\\"\[Lambda]\ \\\"}]}], \\\"}\\\"}]\\) is not a machine-sized real number.\"", 2, 1, 1, 19685478582546039791, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.908471659887181*^9}, CellLabel->"",ExpressionUUID->"ceb6501b-ab16-4a1f-92f1-c4d5f50faf2c"], Cell[BoxData[ TemplateBox[{ "Plot", "plln", "\"Limiting value \\!\\(\\*RowBox[{\\\"10\\\", \\\" \\\", \ \\\"\[Lambda]\\\"}]\\) in \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"x\\\", \ \\\",\\\", \\\"0\\\", \\\",\\\", RowBox[{\\\"10\\\", \\\" \\\", \\\"\[Lambda]\ \\\"}]}], \\\"}\\\"}]\\) is not a machine-sized real number.\"", 2, 1, 2, 19685478582546039791, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.908471659911368*^9}, CellLabel->"",ExpressionUUID->"227b1789-ddfb-489f-a186-baafb622de58"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{RowBox[{\\\"Plot\\\", \\\"[\ \\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"wave1\\\", \\\"[\\\", \ RowBox[{\\\"1\\\", \\\",\\\", \\\"\[Lambda]\\\", \\\",\\\", \\\"x\\\", \ \\\",\\\", \\\"f\\\", \\\",\\\", \\\"FE`t$$10\\\"}], \\\"]\\\"}], \\\",\\\", \ RowBox[{\\\"wave2\\\", \\\"[\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"\[Lambda]\ \\\", \\\",\\\", \\\"x\\\", \\\",\\\", \\\"f\\\", \\\",\\\", \ \\\"FE`t$$10\\\", \\\",\\\", \\\"0\\\"}], \\\"]\\\"}]}], \\\"}\\\"}], \\\",\\\ \", RowBox[{\\\"{\\\", RowBox[{\\\"x\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \ RowBox[{\\\"\[Lambda]\\\", \\\" \\\", \\\"10\\\"}]}], \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ RowBox[{RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"10\\\"}]}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"2\\\ \"}], \\\",\\\", \\\"2\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}], \\\",\\\", \ RowBox[{\\\"PlotStyle\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ RowBox[{\\\"Gray\\\", \\\",\\\", \\\"Gray\\\", \\\",\\\", \ RowBox[{\\\"Thickness\\\", \\\"[\\\", \\\"0.005`\\\", \\\"]\\\"}]}], \ \\\"}\\\"}]}]}], \\\"]\\\"}], \\\",\\\", RowBox[{\\\"Plot\\\", \\\"[\\\", \ RowBox[{RowBox[{RowBox[{\\\"wave1\\\", \\\"[\\\", RowBox[{\\\"1\\\", \ \\\",\\\", \\\"\[Lambda]\\\", \\\",\\\", \\\"x\\\", \\\",\\\", \\\"f\\\", \ \\\",\\\", \\\"FE`t$$10\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"wave2\\\", \ \\\"[\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"\[Lambda]\\\", \\\",\\\", \ \\\"x\\\", \\\",\\\", \\\"f\\\", \\\",\\\", \\\"FE`t$$10\\\", \\\",\\\", \ \\\"0\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"x\\\", \ \\\",\\\", \\\"0\\\", \\\",\\\", RowBox[{\\\"\[Lambda]\\\", \\\" \\\", \\\"10\ \\\"}]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", \ RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"10\\\"}]}], \\\"}\\\"}], \ \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ \\\"\[RightSkeleton]\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}], \\\",\\\", RowBox[{\ \\\"PlotStyle\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", RowBox[{\\\"Blue\\\", \ \\\",\\\", RowBox[{\\\"Thickness\\\", \\\"[\\\", \\\"0.005`\\\", \ \\\"]\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]}], \\\"]\\\"}]\\).\"", 2, 1, 3, 19685478582546039791, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.908471659917406*^9}, CellLabel->"",ExpressionUUID->"70d2f00b-52ed-4ead-acea-44dfd1cf405c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plot waves", "Section", CellChangeTimes->{{3.9083484182253485`*^9, 3.9083484196791763`*^9}},ExpressionUUID->"680037fc-50af-484a-b29c-\ 6c015d8ab6a8"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"wave1", "[", RowBox[{"A1_", ",", "k1_", ",", "x_", ",", "v_", ",", " ", "t_"}], "]"}], " ", ":=", " ", RowBox[{"A1", " ", RowBox[{"Cos", "[", RowBox[{"k1", " ", RowBox[{"(", RowBox[{"x", "-", RowBox[{"v", " ", "t"}]}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wave2", "[", RowBox[{ "A2_", ",", "k1_", ",", "x_", ",", "v_", ",", " ", "t_", ",", " ", "\[Phi]_"}], "]"}], " ", ":=", " ", RowBox[{"A2", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"k1", " ", RowBox[{"(", RowBox[{"x", "-", RowBox[{"v", " ", "t"}]}], ")"}]}], "+", "\[Phi]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]1", "=", "8"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k1", "=", RowBox[{"2", " ", RowBox[{"\[Pi]", "/", "\[Lambda]1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wave1", "[", RowBox[{"1", ",", "k1", ",", "x", ",", "v", ",", " ", "t"}], "]"}], ",", RowBox[{"wave2", "[", RowBox[{ "1", ",", "k1", ",", "x", ",", "v", ",", " ", "t", ",", "\[Pi]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", " ", RowBox[{"\[Pi]", "/", "k1"}], " ", "10"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Red", ",", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.0001", ",", "10", ",", "0.001"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.908347460538638*^9, 3.908347514373218*^9}, { 3.9083475443788795`*^9, 3.9083475840123315`*^9}, {3.908347660241127*^9, 3.9083477712415857`*^9}, {3.908347862888194*^9, 3.9083481449430203`*^9}, { 3.908348177493972*^9, 3.9083483710261154`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"7fd3073d-f549-4375-9ba9-dc3f9654d4d6"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 0.0001, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0.0001, 10, 0.001}}, Typeset`size$$ = { 792.0141167768585, {52.11759010468377, 17.940062950132415`}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0.0001}, "ControllerVariables" :> {}, "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`wave1[ 1, $CellContext`k1, $CellContext`x, $CellContext`v, \ $CellContext`t$$], $CellContext`wave2[ 1, $CellContext`k1, $CellContext`x, $CellContext`v, $CellContext`t$$, Pi]}, {$CellContext`x, 0, (2 (Pi/$CellContext`k1)) 10}, PlotRange -> {{0, 10}, {-2, 2}}, PlotStyle -> {Blue, Red, Thickness[0.005]}], "Specifications" :> {{$CellContext`t$$, 0.0001, 10, 0.001}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1281., {86.91754160902929, 94.08245839097071}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.9083477563028984`*^9, 3.9083477722494135`*^9}, { 3.908347863895861*^9, 3.908347920658281*^9}, {3.9083479695413685`*^9, 3.908348052671175*^9}, {3.908348091900605*^9, 3.908348179600301*^9}, 3.9083482220212545`*^9, {3.908348299119805*^9, 3.908348373335363*^9}, 3.9083486267152815`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"0abbb318-af89-4dd3-a45d-b201fec499dc"], Cell[BoxData[ TemplateBox[{ "Plot", "plln", "\"Limiting value \\!\\(\\*FractionBox[RowBox[{\\\"20\\\", \\\" \\\", \\\"\ \[Pi]\\\"}], \\\"k1\\\"]\\) in \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"x\\\", \ \\\",\\\", \\\"0\\\", \\\",\\\", FractionBox[RowBox[{\\\"20\\\", \\\" \\\", \ \\\"\[Pi]\\\"}], \\\"k1\\\"]}], \\\"}\\\"}]\\) is not a machine-sized real \ number.\"", 2, 1, 4, 19685478582546039791, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9084716623674374`*^9}, CellLabel->"",ExpressionUUID->"20612db6-ed03-4529-81ed-337dbda13cc6"] }, Open ]] }, Open ]] }, WindowSize->{1428., 729.75}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, TaggingRules-><|"TryRealOnly" -> False|>, SpellingDictionaries->{"CorrectWords"->{"Polarization"}}, Magnification:>1.25 Inherited, FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"7663bd76-2d04-4fc1-937c-683b5e2af148" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 159, 3, 83, "Section",ExpressionUUID->"a2c00ce1-7378-47a9-b0a1-445e0ec44e6d"], Cell[CellGroupData[{ Cell[764, 29, 5432, 131, 155, "Input",ExpressionUUID->"ded10278-c970-49fb-9950-1387b9d84391"], Cell[6199, 162, 4713, 89, 670, "Output",ExpressionUUID->"8d40989c-e419-4932-aaab-cf2982a2f99f"] }, Open ]], Cell[CellGroupData[{ Cell[10949, 256, 4236, 119, 155, "Input",ExpressionUUID->"1cb1ca4a-f589-461e-85c0-24cb9504c6ca"], Cell[15188, 377, 3730, 77, 658, "Output",ExpressionUUID->"884f517c-676f-4621-8399-3faa7b4a891b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18967, 460, 178, 3, 83, "Section",ExpressionUUID->"c32c6bc0-b002-42ec-aac9-68b55a8cd3e5"], Cell[CellGroupData[{ Cell[19170, 467, 5181, 136, 131, "Input",ExpressionUUID->"f2b329b7-5246-434c-bf34-cbc2804f66b7"], Cell[24354, 605, 4631, 91, 754, "Output",ExpressionUUID->"478f95f0-e4c2-494b-8a8a-20d159609516"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29034, 702, 164, 3, 83, "Section",ExpressionUUID->"433d1190-d27e-48ef-8645-aacfcb09ddf5"], Cell[CellGroupData[{ Cell[29223, 709, 4769, 113, 202, "Input",ExpressionUUID->"7ef7e4b1-9a51-4657-b119-3c490207f5b6"], Cell[33995, 824, 2896, 56, 247, "Output",ExpressionUUID->"9d6329b4-54c9-4117-a1f4-bc21f1d59b2c"], Cell[36894, 882, 528, 10, 35, "Message",ExpressionUUID->"ceb6501b-ab16-4a1f-92f1-c4d5f50faf2c"], Cell[37425, 894, 528, 10, 35, "Message",ExpressionUUID->"227b1789-ddfb-489f-a186-baafb622de58"], Cell[37956, 906, 2872, 42, 84, "Message",ExpressionUUID->"70d2f00b-52ed-4ead-acea-44dfd1cf405c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40877, 954, 159, 3, 83, "Section",ExpressionUUID->"680037fc-50af-484a-b29c-6c015d8ab6a8"], Cell[CellGroupData[{ Cell[41061, 961, 2451, 68, 178, "Input",ExpressionUUID->"7fd3073d-f549-4375-9ba9-dc3f9654d4d6"], Cell[43515, 1031, 2292, 44, 204, "Output",ExpressionUUID->"0abbb318-af89-4dd3-a45d-b201fec499dc"], Cell[45810, 1077, 570, 10, 46, "Message",ExpressionUUID->"20612db6-ed03-4529-81ed-337dbda13cc6"] }, Open ]] }, Open ]] } ] *)