(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 31728, 765] NotebookOptionsPosition[ 30376, 732] NotebookOutlinePosition[ 30737, 748] CellTagsIndexPosition[ 30694, 745] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"q", "[", RowBox[{"t_", ",", "\[Omega]_", ",", "\[Alpha]_"}], "]"}], ":=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], " ", "t"}], "]"}], RowBox[{"Cos", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"q", "[", RowBox[{"t", ",", "\[Omega]", ",", "\[Alpha]"}], "]"}], ",", RowBox[{"q", "[", RowBox[{"t", ",", "0", ",", "\[Alpha]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thickness", "[", "0.005", "]"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "0"}], "}"}], ",", "0", ",", "10", ",", "0.01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Omega]", ",", RowBox[{"2", " ", RowBox[{"\[Pi]", "/", "4"}]}]}], "}"}], ",", "0", ",", "10", ",", "0.01"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.8036637390873747`*^9, 3.803663853133088*^9}, { 3.8036638853606577`*^9, 3.803664128598301*^9}}, FontSize->16,ExpressionUUID->"07038891-91ad-4147-9c43-94c51b0a5185"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Alpha]$$ = 0, $CellContext`\[Omega]$$ = Rational[1, 2] Pi, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`\[Alpha]$$], 0}, 0, 10, 0.01}, {{ Hold[$CellContext`\[Omega]$$], Rational[1, 2] Pi}, 0, 10, 0.01}}, Typeset`size$$ = {360., {111., 115.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Alpha]$2296$$ = 0, $CellContext`\[Omega]$2297$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 0, $CellContext`\[Omega]$$ = Rational[1, 2] Pi}, "ControllerVariables" :> { Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$2296$$, 0], Hold[$CellContext`\[Omega]$$, $CellContext`\[Omega]$2297$$, 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`q[$CellContext`t, $CellContext`\[Omega]$$, \ $CellContext`\[Alpha]$$], $CellContext`q[$CellContext`t, 0, $CellContext`\[Alpha]$$]}, {$CellContext`t, 0, 10}, PlotRange -> {-1, 1}, PlotStyle -> { Thickness[0.005]}], "Specifications" :> {{{$CellContext`\[Alpha]$$, 0}, 0, 10, 0.01}, {{$CellContext`\[Omega]$$, Rational[1, 2] Pi}, 0, 10, 0.01}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {170., 176.}}, 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.803664056129753*^9, 3.803664129436737*^9}, 3.803902502543366*^9},ExpressionUUID->"51fb3b67-9392-4797-af87-\ edaefe23d114"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ArcTan", "[", "x", "]"}], ",", RowBox[{"Pi", "/", "2"}], ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8039025072693253`*^9, 3.803902532361389*^9}, { 3.803902570750317*^9, 3.803902673602358*^9}},ExpressionUUID->"9c2eae15-f138-41f9-96c3-\ 0904e0e94294"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVlHk4FPobxWcs04SxjF0SJpGtFEooJBNKyFKJwiUkRCJFdtKibLey3CwV EllCwvtNItK1XGsSskvT7GP38/vjPOc5f7zvc/45HwU3f1sPLgwGE7ep/3v4 zEn6xgYJ+Vpg1BrucGD6pgRreJWEFiR9A8M3s5XwKKdmiYTaXbEvDDezvF7A mj+DhG4HxHQ3JHKgKSkFPzZNQl6u4wcbEjiA1xyQQ19JKP5Ll1FtHAfSrl20 jMwkIb9/iug5URx4hQ0qwBwgoeLW6Er1Gxzg9SDvk3ZWRCluh2PyPDggOvjJ N++RAhrQ/ZBRacMB249P3Xe3y6OZ6kSBcwYcuPnH0PfhxA50dZWj/EORA7Uh T33KTsmhmWWLsWT8Zt8Ue/n1J7KIJChwoH+WDeTsBqvjCzKoziX55dAnNrxo vdEf5CSNUu5+zlPMZYNLbJp4Z6EkSlk/f2cpiA0RF7lL+UUlkI8kl837o2zA aOyAo3Fi6NA/9JAgAhu+3X2S8KqPiMzOqlf0fmbBf5/kSy52ElH/lc5jja0s 6Nh42SXeRkR4G6zyyxYWNAZVS0fWE9EQwbfzejML8pz+e2WXT0QR/xY+JyAW +KgRutYCiCjtl32nVA0LVtojpawFiKgiRGvXswIWyPJ5FTFNRND26H6D4+Es cGnsuKdoIIIIfjktEzdZkBuoFWCtI4I0jMxNI8JYsGt4WbdEWQTJ4Z9JvAlh wZ6S+83uAiLIdYsLGxfIAhOrytGePmHUZNSSFunJAu+UdfFyL2F01ckw5qkV Cy7rqPIOywohZcV6G9ltLAjkfffyupAQCr//2jdQmgVhfWQLIpcQUjQu1myV ZEFSsEey+YwgItmfzfUVY0Hx22fSteWCKKpKQOwlgQVzOpKa6WaCSP2bTd3g BhMu6fI4ngogoIG/Hg4pTjDB/cCPwo8f+ZGrUILqTAETPAsPOJjV8KOE4zfV VvOY4CP9iLutmB+dCbBIFcplQsDKUZd/H/Gj2vbSZK1sJtyCItGhC/zIPsyR xy2dCWnk4AjKCh/yw22RDopjQoujgJ20Nh/yvDUkT/6LCW2fPbBZynyIz6dq aacbEzr0oFRuGx9i7WtmYi4yoWdb4NadXHxIUmKNXOnEhNHRgUbNrq0oQe/0 DuxpJixeyt9t6rsVOQ9Yex0xZoJq6KENvwI8mlmK1NeWZQIasVKdyMCj90kh RdnSTHA46m7veAePerMx0TySTIgWvPfqiB8efeTrdG8XYcJQwYij8EE88jNm 39bdwoTE7sg35V+2oKjcp2X3aAyYVm11ZdJxqJSTgxNrZsCth8P3vKZwaOjj niXFDwwgsv/UfB/AIeWT652ajQw4/EFK8FM9DolJOUka1jIg3dGnLj0ehziC h+L3lzDANJYgekAGhxQEgh/EpDIgd+R08w1jXhTlbBt/9wID9k3uW+7V5kXa mdlFnucZ0DwvsnevCi/KucsVc/jsZh9OZ+a0IC8abnUxnbRlgCrxRNDp7zwI p3MweIsZAyrMTBU1QnjQokSCYKHa5n2ZduRYCTdycubjUmfSwb5atFr/GTea JzzKSaXSYbqe/isjlRtlGC0e4SzQAd/+xvFkGDeyzbEPrZiiw8lJ9T11ZG40 cF+csNhPh34ppR+pP7lQk7oOf10tHWaixA3IUlzIKfZd/WwoHfjCy/6k8nEh qSt4js81OmiGmuePrWIReeNS2Iw/Ha77hfOFjWPRvorL+zs96YBzmhosKcai QG5xyzN2dNip/TaYaIhFv99SCsmadHCbtisbccUgS2OVDosRGsSPU9xU7TAo 6NXYA8wgDYq/J0qEmGGQnqzCzrIeGtB76sOF1TAodJfJQ3YrDbhumz+On90A FXoyRb2CBke05rptCBuQlJV4Ri2OBnXpKsdmHdaAYqtSy6NEA7zTjDvWYA0k K/BVfXI0cJB/ES2jsAY/47/OZEtt/i8moRO/ViEg1rtSVIAGu5GcfvntVeA9 H7iUQqfC43kxrbDCFVBdsqzuaqBC8BHsdoHlJZBKHDvZfIIKTTxIX2l0Cbq/ Rjw9c4wKwu0R5w43L8EKaaVq3JAKJXarfwc8WILF7L7lbk0qTHpziH2KS3Ac k2erIkwF27Tf+BzLRZDD+r/Zk/sH9s4NMfdks2FbcYVlcTIFrlE1dkvGsiFF bfrEaAQFajlRzus+bHjrX+a0coUCxjjVlo6Dm9x1LpqdsaSALSnsb+/eTS4p srLu4ygQ7CxzKJ9/k3PmTubj139DXfe52xJhDMAYKdHJJguwPlhauXaRAaUb QlPrGgtgMsY1O0lmQFb+/agM6QX4Qim2rhTf3MW3/H5P6i/4zr+iYF1Oh76w 7oa4rF+wcSyz+c4sDYoslASTKPNgWje8dc2BCq9Vq1MIoXNQWvxcr1WfCh/Y t66cdp4DqUx/70fyVJh2bSu9bDIH/RxcimXvH1g7aqpKFJgDpZsOwtnLFIgI a/HWzJ6FpiiWgBH5N5xKnL58oXoGVh/sx8WPzUEQ7cbzpKYp6PJv9ZApngOc 5uB4Qu4U5Fs7fSoNmgPjNz9IVpFTYEGMiR3AzcHb8u1V2oZT8CS9h2u3xixc fh8u7141CbpZVze+3JiGd7rhEsTHExBQVLYoIjoBDXHHvYL2j8NeQb8Yk7Gf YDBwpXOYMA60QHXBoNc/QQvd7RWaHYNAgyJSL/knfGbJvP6WOQbBnXlWGbfG IUvf+/MKZgwY82rmOh2jYGhUUzAfPQK4mMVnZoFDcLVmttv84CA4eJJye261 gUwZfVe6Shsktix3ndkRBnqNFpnGm/4/4laAuA== "]], LineBox[CompressedData[" 1:eJwVz3k4lHsbB3DGiIkMRUxxpEeSpUWlN6n7R00kIZ1626SmIQmhMLZxZMmU QpbKEql0RCkctJGyhI6IJEuWiZjQLM94GOSd94/7+l6f63v/cd96jPPObiQZ GZnr0vl/xtVJWg7rhsDWSrsMK2l6sLrqjxk3gIKl38r1Xe9BUb+bHC3XCJqF XKA8agC70B52e0kT5FuT9+jYNsGHNX3+AeofQSLR/eNMeDN47PR/3M37BOyK ZJ965ifwyglK1Sn8Cs6Jv8kmnp1gOUmUbNDqAp/STY0q9Z2gbM/6RI/uAu06 eSwa+wqPCRbV53g3HJGdu4N1f4UJhxBOpXIvgEUiDaN3QwW7srLIvB8c4EXV I7lvYGFaXex0kwt+Jr7sgykDsLm9I62ygQu3Mh5SeBUDsD50LMRklgssL2eD vb0DYNCguVPx1He45crZf2HVICxx82mrMhoCwRn7GJeSQRjLXI6vrRyGtlk8 u6iWC9nKgZsXDY3C3RcbDtjUDkF6yVVaqCYPnO94WeVzhyDt6N25kT08uB8V 5t0jOwzxf3+orXnCA7MR/HD59mFg7cIOhbF+grO4OpleMgzOYS2BP5XGwe0h bUqc+gNIgRo9TBofalRN1e23jcLRk48+VWziQ2tKeL7LoVEotoMGZSc+ZFWG Glv5jQJD92xZaSwfbLjqmyLyRuHt+1eJZJwPMb88KP0qPIhazqTfbxZAVYTl YPAXHpCri59wo0SwlOKcZWw3BscLbB5syRbBTUpqvdrJMShN7cm4+kIELkGL vdsCxoDpuYCzUSCC8vFuOi9nDGqXHD0ddQKH8phrPd7iMYh1l9XCtoqhZv5C geKtcVBQdopkTEzCWUaQ86HaCTi8+ugbcwoBrjMSx66OCXhkzZxfqE9ARv2Z XuuRCXAIZoWXHCEg3aoj4u3CX5A2nBNMriUgtFu9JNLhFxhUC/zyMqZAJ6dm 3qT1F9ADkxk8Wwk0nT4ioDP4kJaUdbfytATW6Pb6Rp7lw0jhw/4bbAlY1d/e UuzLh3juyxPbSiXwzUV/QsTmQ7vT96PxujMQon1ruySdD0zjzQfWTs6A833f 91grH6L6O3b635uDbS3ECm9zAXx7vteb9WoO3qv+sYRqKQCL5Ddp7M9zkHRT 4Wm+lQD49EejVxR+Q+y2cp0GewGcKAhPuHfuN+zxbTEuZkj3A/W72zfOg8TQ 4euWawKYlt/6fDlDBmlEyD9l9Aogz1/07x0fGZTYSNbdMCiAP/seD+qFyiA3 FjdvelgATytWKhumyCD/gTVrgvkCcD+n7LqpTtq/7Fu4UU4I7S195H1Gsmip pCE9fbUQnmbEOrGFsig6B3UHeQmhaUnsD6oMCS2yaEnBfYUwfDWGfXcRCSWO VhacCxCCdlh0YY0hCTmQttP2sIUQd/ySopIrCZEyy0hvE4RwUof95mYTCVlo g33pMyGoZgesf3ZfDpk5X33YKRCCsWZAvXWxHEKfOyuKxULYnXDxRHuVHGp1 zN0RNy2EsIgL8USXHFJSwmtXyYpgxNVvZLsaGVkf3phirCqCNyu8cxrDyYj2 z/FLHqYiOJ/LVP1+SB4tyH/m8IUpguvBtzOvn5ZHinlJrfgZETxxajbc6iuP 9nqxadRzIpj4vcXqOkce9bmkKVn4icDrmJL/f17Jo6KnrNmz4SLwVC9ui9db gLwari02TxWBe+x82uaxBYiWqHU+660ITnim61yOVEQjZbyCKA0cZr5SmgXX FNEX3L1jWBOHW3uC2cfTFdFoztI2m2U4tBoe7ttQoog0PDkOcro47Pqhcbfn uyLixM9nnjTEYQ0zSd/MloI4bgOkcgsccJc4416VhchY4OMy5IIDZ3/g1o2Z Smi0RN2++Q4ONz4YeRXmK6GSVlEeNweHTJu+O6vKlVAfmGNELg5Pt9uStT4p ISqWx9F6iEPnmmUfZxWU0amSlP30IhwMSZXMugvKiJT3pNu2Coe6YvnEI3sX oczMhEiFbziQ1VOHIyQqKCjmlvznpWJYPMFWWaxARd/FS9vctcSg997D/P4S KrJLrDpP0MSwI8wy9r0JFT0+3blcQ0cMwd+5q9RcqSh8SeVpa0wME6Vmbrnv qMiEM97itk4MY0YjfozdquhD2GR5524xfGmK4UdT1RDdjEl94i+GlB1Z9INL 1dCpm4QG7aIYnJ+Vpq/SUUOOKkELowLE0JzG3VVnpIaOF05XH2CJoe6U1W2F 3WrokBHv6ki4GMqIWasrYWqI9bk3vj9ODGnYxeSEUTWUHT8zrXZHDAdDGebp 7xajSte/XUtqxeCl9HNl81F1lH3ljc86hUnQLahLW8DTQBTau9CQHZMQWrHz ADVDE43of/X2858E3zyvMvN1NAT6e90+Zk6CMmkLY+3QMvTS1vSCZe0k0L3/ TDVK1kam7ZO/HUcmQeu5znm6/h/oGOXJ6xvyBNzwj0ta/0UXhejTUmgrCXCO dTTNKluByq7MnFltQYDRseiD98P1kI2cQdADRwI6him5yQdXIoP+Fw/GmQQ0 M4asFutiyH9FyjftIAIGyA+nUldiqGWqqNRTajzPo4hmgKHNrDifCqlpP39q 65liaK6o8NoBFgHMC0Ji3TYMYUFeoXHBBEii5h/v+6/UB6b1xkMJMHhAW8ZJ wBBJ6TYp9y8Cttp0tygnY0gmxth7TGr70czLiWkYuhLo9No8kgA/0xXim1kY Cm3kqDRJ/eofg5a8AgzZHUKBwkvS/+o2xtbUY6hNtdndMoYANw+xpW0ThtJl 5TfESM1aWC5qasYQxeTRwL9SZzlYnGr7jKGklouTJ2IJGOlAloNcDNlX//Ur 4rL0XhZJ5PYDQ5ZG2RP1Ui9aXpM/ysPQ4Iq0dmocAWauNpoCAYYSzawPZktN l6U0XxRj6NJFNf6w1IfvNUZPTWFI+ca431oOAZ70+G1hsxhaFMftCpA6/Mc+ 4fw8hrzsZIxfS/0/fHhEvg== "]]}, Annotation[#, "Charting`Private`Tag$6210#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXfvc99P//8oHJHRdQn4r/rSfUpLg3TAbwV/NWLyE wRzBZ011N5KMVYLzhW8czVk0URHODzo8K1nzlAKcX/3eNmfCY3k4f0f5rKz1 /nJwvt+kUIV/M2XgfPe5e/083kjB+cuOV14rjpaE8+NapoieXyEO59clMK/j FhaD8xl05fc7t4rA+be6Z7avvioE58twZaz84iQI52ebarHeluGH85PN7604 fJgbzteqsPqft4QDzl94N/hIpSMrnP+8UdTGXYIJzt81VcP1Rdjf/TC+wcub X/TnfoPzXXbd5vwb9gHOL1i5/oeg8GM4PyxNeeGlmpNw/vEzN7uMg0/Yw/hW ugc3BUx/DOczlYneSZH8AOez8wQ0Jr37Buc3P7jmXLT4L5y/YXZbQN0nRgcY P39RisCTMFY4Py5rlmx7Iwec3xlYZmk8hxvOZxGZ+qz+Fx+cf/1064cWfkE4 P7Q6yWzWYSE4P4f7tdK5KBE4X371sWlsr0Th/OodzsH8s8Xh/IJlOdvM9CXh fB4m8yS9p1JwvmtuyFStyTJwvsRO2XxXFTk4f1JRx0SD6/JwflCbv+7cbQpw vlZ0S+iSWkU4/9ozzkWTQ5Xg/HNJTx2F5JXhfLWlklKd/Qg+NL/A+QB5r2J/ "]]}, Annotation[#, "Charting`Private`Tag$6210#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXfvc99P//8oHJHRdQn4r/tw/pSTBu2E2gr+asXgJ gzmCz5rqbiQZqwTnC984mrNooiKcH3R4VrLmKQU4v/q9bc6Ex/Jw/o7yWVnr /eXgfL9JoQr/ZsrA+e5z9/p5vJGC85cdr7xWHC0J58e1TBE9v0Iczq9LYF7H LSwG5zPoyu93bhWB8291z2xffVUIzpfhylj5xUkQzs821WK9LcMP5yeb31tx +DA3nK9VYfU/bwkHnL/wbvCRSkdWOP95o6iNuwQTnL9rqobri7C/+2F8g5c3 v+jP/Qbnu+y6zfk37AOcX7By/Q9B4cdwflia8sJLNSfh/ONnbnYZB5+wh/Gt dA9uCpj+GM5nKhO9kyL5Ac5n5wloTHr3Dc5vfnDNuWjxXzh/w+y2gLpPjA4w fv6iFIEnYaxwflzWLNn2Rg44vzOwzNJ4DjeczyIy9Vn9Lz44//rp1g8t/IJw fmh1ktmsw0Jwfg73a6VzUSJwvvzqY9PYXonC+dU7nIP5Z4vD+QXLcraZ6UvC +TxM5kl6T6XgfNfckKlak2XgfImdsvmuKnJw/qSijokG1+Xh/KA2f9252xTg fK3oltAltYpw/rVnnIsmhyrB+eeSnjoKySvD+WpLJaU6+xF8aH6B8wEGJXx/ "]]}, Annotation[#, "Charting`Private`Tag$6210#3"]& ], {}}, {{}, {}, {}, {}, {}}}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{-9.999999591836735, 9.999999591836735}, { Rational[-1, 2] Pi, Rational[1, 2] Pi}}, {{-9.999999591836735, 9.999999591836735}, {-1.5707963267948966`, 1.5707963267948966`}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.8039025331490707`*^9, {3.803902571937276*^9, 3.8039026741387987`*^9}},ExpressionUUID->"ca5beae5-51df-4d25-aca7-\ 9a81ca71eaf7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Io", "[", RowBox[{ "R_", ",", "L_", ",", "C_", ",", "\[Omega]_", ",", "\[Epsilon]o_"}], "]"}], ":=", RowBox[{"\[Epsilon]o", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"\[Omega]", " ", "L"}], " ", "-", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{"\[Omega]", " ", "C"}], ")"}]}]}], ")"}], "2"]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", "2"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]o", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Io", "[", RowBox[{"R", ",", "L", ",", "C", ",", "\[Omega]", ",", "\[Epsilon]o"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "1"}], "}"}], ",", "0", ",", "1", ",", "0.01"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "1"}], "}"}], ",", "0", ",", "10", ",", "0.01"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"C", ",", "1"}], "}"}], ",", "0", ",", "10", ",", "0.01"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.8036637390873747`*^9, 3.803663853133088*^9}, { 3.8036638853606577`*^9, 3.803664128598301*^9}, {3.8039146177276087`*^9, 3.803914628276887*^9}, {3.803914668942932*^9, 3.803915020922965*^9}, 3.803915052481867*^9, 3.803915136476969*^9}, FontSize->16,ExpressionUUID->"4013a872-2370-4d1f-b54e-d8de751bdbde"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{C$$ = 0.84, $CellContext`L$$ = 0.47000000000000003`, $CellContext`R$$ = 0.34, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`R$$], 1}, 0, 1, 0.01}, {{ Hold[$CellContext`L$$], 1}, 0, 10, 0.01}, {{ Hold[C$$], 1}, 0, 10, 0.01}}, Typeset`size$$ = {579., {188., 192.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`R$101350$$ = 0, $CellContext`L$101351$$ = 0, C$101352$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {C$$ = 1, $CellContext`L$$ = 1, $CellContext`R$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`R$$, $CellContext`R$101350$$, 0], Hold[$CellContext`L$$, $CellContext`L$101351$$, 0], Hold[C$$, C$101352$$, 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`Io[$CellContext`R$$, $CellContext`L$$, C$$, $CellContext`\[Omega], $CellContext`\[Epsilon]o]}, \ {$CellContext`\[Omega], 0, 10}, PlotRange -> {0, 5}], "Specifications" :> {{{$CellContext`R$$, 1}, 0, 1, 0.01}, {{$CellContext`L$$, 1}, 0, 10, 0.01}, {{C$$, 1}, 0, 10, 0.01}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{624., {301., 307.}}, 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.803914961946466*^9, {3.80391501344438*^9, 3.803915022259663*^9}, 3.8039150537389936`*^9, 3.803923441694706*^9},ExpressionUUID->"d424ed45-e101-41bb-853f-\ 3305af997e2b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Io", "[", RowBox[{ "R_", ",", "L_", ",", "C_", ",", "\[Omega]_", ",", "\[Epsilon]o_"}], "]"}], ":=", RowBox[{"\[Epsilon]o", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"\[Omega]", " ", "L"}], " ", "-", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{"\[Omega]", " ", "C"}], ")"}]}]}], ")"}], "2"]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", "2"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Phi]", "[", RowBox[{ "R_", ",", "L_", ",", "C_", ",", "\[Omega]_", ",", "\[Epsilon]o_"}], "]"}], ":=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"-", FractionBox["1", "R"]}], RowBox[{"(", RowBox[{ RowBox[{"\[Omega]", " ", "L"}], " ", "-", " ", FractionBox["1", RowBox[{"\[Omega]", " ", "C"}]]}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]o", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Io", "[", RowBox[{ "R", ",", "L", ",", "C", ",", "\[Omega]", ",", "\[Epsilon]o"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", "[", RowBox[{ "R", ",", "L", ",", "C", ",", "\[Omega]", ",", "\[Epsilon]o"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}]}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "1"}], "}"}], ",", "0", ",", "1", ",", "0.01"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "1"}], "}"}], ",", "0", ",", "10", ",", "0.01"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"C", ",", "1"}], "}"}], ",", "0", ",", "10", ",", "0.01"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.803915147597711*^9, 3.803915149480036*^9}, { 3.803915198564665*^9, 3.80391519978097*^9}, {3.803915237227928*^9, 3.803915397228486*^9}, {3.803915548436915*^9, 3.803915570116324*^9}, { 3.803915606518168*^9, 3.803915607227865*^9}, {3.803915755973791*^9, 3.803915756303151*^9}}, FontSize->18,ExpressionUUID->"739eef82-07e7-448e-bcdb-eacca15cf7f3"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{C$$ = 1, $CellContext`L$$ = 1, $CellContext`R$$ = 0.24, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`R$$], 1}, 0, 1, 0.01}, {{ Hold[$CellContext`L$$], 1}, 0, 10, 0.01}, {{ Hold[C$$], 1}, 0, 10, 0.01}}, Typeset`size$$ = {704., {117., 121.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`R$105127$$ = 0, $CellContext`L$105128$$ = 0, C$105129$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {C$$ = 1, $CellContext`L$$ = 1, $CellContext`R$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`R$$, $CellContext`R$105127$$, 0], Hold[$CellContext`L$$, $CellContext`L$105128$$, 0], Hold[C$$, C$105129$$, 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`Io[$CellContext`R$$, $CellContext`L$$, C$$, $CellContext`\[Omega], $CellContext`\[Epsilon]o]}, \ {$CellContext`\[Omega], 0, 10}, PlotRange -> {0, 5}], Plot[{ $CellContext`\[Phi][$CellContext`R$$, $CellContext`L$$, C$$, $CellContext`\[Omega], $CellContext`\[Epsilon]o]}, \ {$CellContext`\[Omega], 0, 5}, PlotRange -> {(-Pi)/2, Pi/2}]}, "Specifications" :> {{{$CellContext`R$$, 1}, 0, 1, 0.01}, {{$CellContext`L$$, 1}, 0, 10, 0.01}, {{C$$, 1}, 0, 10, 0.01}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{749., {230., 236.}}, 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.8039157577853107`*^9, 3.803923639438264*^9, 3.8039236857879133`*^9},ExpressionUUID->"38ec6991-1355-4643-9982-\ 037e378217ae"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Io", "[", RowBox[{"R_", ",", "L_", ",", "\[Omega]o_", ",", "\[Omega]_"}], "]"}], ":=", RowBox[{"1", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["R", "2"], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"L", "/", "\[Omega]"}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Omega]", "2"], "-", SuperscriptBox["\[Omega]o", "2"]}], ")"}], "2"]}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", "2"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Phi]", "[", RowBox[{"R_", ",", "L_", ",", "\[Omega]o_", ",", "\[Omega]_"}], "]"}], ":=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"-", FractionBox["L", RowBox[{"R", " ", "\[Omega]"}]]}], RowBox[{"(", RowBox[{ SuperscriptBox["\[Omega]", "2"], "-", SuperscriptBox["\[Omega]o", "2"]}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]o", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Io", "[", RowBox[{"R", ",", "L", ",", "\[Omega]o", ",", "\[Omega]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", "[", RowBox[{"R", ",", "L", ",", "\[Omega]o", ",", "\[Omega]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}]}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "1"}], "}"}], ",", "0", ",", "1", ",", "0.01"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "1"}], "}"}], ",", "0", ",", "10", ",", "0.01"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Omega]o", ",", "1"}], "}"}], ",", "0", ",", "10", ",", "0.01"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.803915147597711*^9, 3.803915149480036*^9}, { 3.803915198564665*^9, 3.80391519978097*^9}, {3.803915237227928*^9, 3.803915397228486*^9}, {3.803915548436915*^9, 3.803915570116324*^9}, { 3.803915606518168*^9, 3.803915607227865*^9}, {3.803915755973791*^9, 3.803915756303151*^9}, {3.803917552323703*^9, 3.8039177184447603`*^9}, { 3.803917750362636*^9, 3.803917776603484*^9}, {3.803917809046578*^9, 3.803917809179014*^9}}, FontSize->18,ExpressionUUID->"210c6351-2ce7-4575-8e00-9e030207869e"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`L$$ = 0.77, $CellContext`R$$ = 0.28, $CellContext`\[Omega]o$$ = 2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`R$$], 1}, 0, 1, 0.01}, {{ Hold[$CellContext`L$$], 1}, 0, 10, 0.01}, {{ Hold[$CellContext`\[Omega]o$$], 1}, 0, 10, 0.01}}, Typeset`size$$ = { 806., {122., 126.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`R$123751$$ = 0, $CellContext`L$123752$$ = 0, $CellContext`\[Omega]o$123753$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`L$$ = 1, $CellContext`R$$ = 1, $CellContext`\[Omega]o$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`R$$, $CellContext`R$123751$$, 0], Hold[$CellContext`L$$, $CellContext`L$123752$$, 0], Hold[$CellContext`\[Omega]o$$, $CellContext`\[Omega]o$123753$$, 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`Io[$CellContext`R$$, $CellContext`L$$, $CellContext`\ \[Omega]o$$, $CellContext`\[Omega]]}, {$CellContext`\[Omega], 0, 10}, PlotRange -> {0, 5}], Plot[{ $CellContext`\[Phi][$CellContext`R$$, $CellContext`L$$, \ $CellContext`\[Omega]o$$, $CellContext`\[Omega]]}, {$CellContext`\[Omega], 0, 10}, PlotRange -> {(-Pi)/2, Pi/2}]}, "Specifications" :> {{{$CellContext`R$$, 1}, 0, 1, 0.01}, {{$CellContext`L$$, 1}, 0, 10, 0.01}, {{$CellContext`\[Omega]o$$, 1}, 0, 10, 0.01}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{851., {235., 241.}}, 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.8039177315538483`*^9, 3.803917780059485*^9, 3.803917810260268*^9, 3.803924090770924*^9},ExpressionUUID->"1a5bfe94-d344-4fb8-bc70-\ 7e25cdf93421"] }, Open ]] }, WindowSize->{1050, 1155}, WindowMargins->{{238, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 1563, 45, 139, "Input",ExpressionUUID->"07038891-91ad-4147-9c43-94c51b0a5185"], Cell[2146, 69, 2344, 45, 365, "Output",ExpressionUUID->"51fb3b67-9392-4797-af87-edaefe23d114"] }, Open ]], Cell[CellGroupData[{ Cell[4527, 119, 688, 21, 30, "Input",ExpressionUUID->"9c2eae15-f138-41f9-96c3-0904e0e94294"], Cell[5218, 142, 9363, 180, 242, "Output",ExpressionUUID->"ca5beae5-51df-4d25-aca7-9a81ca71eaf7"] }, Open ]], Cell[CellGroupData[{ Cell[14618, 327, 1977, 56, 170, "Input",ExpressionUUID->"4013a872-2370-4d1f-b54e-d8de751bdbde"], Cell[16598, 385, 2312, 47, 627, "Output",ExpressionUUID->"d424ed45-e101-41bb-853f-3305af997e2b"] }, Open ]], Cell[CellGroupData[{ Cell[18947, 437, 3082, 92, 280, "Input",ExpressionUUID->"739eef82-07e7-448e-bcdb-eacca15cf7f3"], Cell[22032, 531, 2461, 49, 485, "Output",ExpressionUUID->"38ec6991-1355-4643-9982-037e378217ae"] }, Open ]], Cell[CellGroupData[{ Cell[24530, 585, 3191, 90, 288, "Input",ExpressionUUID->"210c6351-2ce7-4575-8e00-9e030207869e"], Cell[27724, 677, 2636, 52, 495, "Output",ExpressionUUID->"1a5bfe94-d344-4fb8-bc70-7e25cdf93421"] }, Open ]] } ] *)