(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 11.1' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 5237, 128] NotebookOptionsPosition[ 5687, 120] NotebookOutlinePosition[ 6243, 143] CellTagsIndexPosition[ 6200, 140] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`C1$$ = 6.66334*^-7, $CellContext`R1$$ = 242., $CellContext`R2$$ = 5130., $CellContext`\[Lambda]$$ = 9., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`R1$$], 100, "\!\(\*SubscriptBox[\(R\), \(s\)]\)"}, 0, 1000}, {{ Hold[$CellContext`R2$$], 500, "\!\(\*SubscriptBox[\(R\), \(ct\)]\)"}, 10, 10000}, {{ Hold[$CellContext`C1$$], 5.*^-8, "\!\(\*SubscriptBox[\(C\), \(dl\)]\)"}, Rational[1, 1000000000], Rational[1, 1000000]}, {{ Hold[$CellContext`\[Lambda]$$], 5, "\[Lambda]"}, 0.1, 100}}, Typeset`size$$ = {360., {171., 177.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`R1$975965$$ = 0, $CellContext`R2$975966$$ = 0, $CellContext`C1$975967$$ = 0, $CellContext`\[Lambda]$975968$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`C1$$ = 5.*^-8, $CellContext`R1$$ = 100, $CellContext`R2$$ = 500, $CellContext`\[Lambda]$$ = 5}, "ControllerVariables" :> { Hold[$CellContext`R1$$, $CellContext`R1$975965$$, 0], Hold[$CellContext`R2$$, $CellContext`R2$975966$$, 0], Hold[$CellContext`C1$$, $CellContext`C1$975967$$, 0], Hold[$CellContext`\[Lambda]$$, $CellContext`\[Lambda]$975968$$, 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[ LogLinearPlot[((-180)/Pi) Arg[ $CellContext`imp[$CellContext`R1$$, $CellContext`R2$$, \ $CellContext`C1$$, $CellContext`\[Lambda]$$, $CellContext`w]], \ {$CellContext`w, 0.1, 10^6}, PlotRange -> {0, 90}, Mesh -> All, MeshStyle -> Magenta, AspectRatio -> 1, Frame -> {{True, True}, {True, True}}, FrameLabel -> { "\[Omega]/Hz", "|Phase| /degree", None, "10Log10|Z| /\[Omega]"}, GridLines -> Automatic], LogLinearPlot[10 Log10[ Abs[ $CellContext`imp[$CellContext`R1$$, $CellContext`R2$$, \ $CellContext`C1$$, $CellContext`\[Lambda]$$, $CellContext`w]]], \ {$CellContext`w, 0.1, 10^6}, PlotRange -> 90, Mesh -> All, AspectRatio -> 1]], "Specifications" :> {{{$CellContext`R1$$, 100, "\!\(\*SubscriptBox[\(R\), \(s\)]\)"}, 0, 1000, Appearance -> "Labeled"}, {{$CellContext`R2$$, 500, "\!\(\*SubscriptBox[\(R\), \(ct\)]\)"}, 10, 10000, Appearance -> "Labeled"}, {{$CellContext`C1$$, 5.*^-8, "\!\(\*SubscriptBox[\(C\), \(dl\)]\)"}, Rational[1, 1000000000], Rational[1, 1000000], Appearance -> "Labeled"}, {{$CellContext`\[Lambda]$$, 5, "\[Lambda]"}, 0.1, 100, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{411., {258., 265.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>(($CellContext`imp[ Pattern[$CellContext`Rs, Blank[]], Pattern[$CellContext`Rct, Blank[]], Pattern[$CellContext`Cdl, Blank[]], Pattern[$CellContext`\[Lambda], Blank[]], Pattern[$CellContext`w, Blank[]]] := $CellContext`Rs + 1/(1/($CellContext`Rct ( 1 + $CellContext`\[Lambda]/Sqrt[ I $CellContext`w])) + $CellContext`Cdl (I $CellContext`w)); Null); Typeset`initDone$$ = True), SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", \ "PluginEmbeddedContent",ExpressionUUID->"00000000-0000-0000-0000-\ 000000000000"] }, WindowSize->{439, 521}, WindowMargins->{{732, Automatic}, {Automatic, 220}}, Visible->True, AuthoredSize->{440, 541}, ScrollingOptions->{"HorizontalScrollRange"->Fit, "VerticalScrollRange"->Fit}, ShowCellBracket->False, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1464, 33, 4219, 85, 525, "Output"] } ] *) (* End of internal cache information *) (* NotebookSignature yxTHoxjsoJcySCgjjuIuEWK3 *)