(* 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[      5439,        135]
NotebookOptionsPosition[      5644,        119]
NotebookOutlinePosition[      6445,        150]
CellTagsIndexPosition[      6402,        147]
WindowTitle->Warburg Impedance - Source
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`C1$$ = 1.*^-9, $CellContext`R1$$ = 
    116., $CellContext`R2$$ = 1700., $CellContext`\[Lambda]$$ = 
    17.000000000000004`, 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$$ = {400., {197., 203.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`R1$115965$$ = 0, $CellContext`R2$115966$$ = 
    0, $CellContext`C1$115967$$ = 0, $CellContext`\[Lambda]$115968$$ = 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$115965$$, 0], 
        Hold[$CellContext`R2$$, $CellContext`R2$115966$$, 0], 
        Hold[$CellContext`C1$$, $CellContext`C1$115967$$, 0], 
        Hold[$CellContext`\[Lambda]$$, $CellContext`\[Lambda]$115968$$, 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" :> ListPlot[
        Transpose[
         ReplaceAll[{
           Re[
            $CellContext`imp[$CellContext`R1$$, $CellContext`R2$$, \
$CellContext`C1$$, $CellContext`\[Lambda]$$, $CellContext`w]], -Im[
             $CellContext`imp[$CellContext`R1$$, $CellContext`R2$$, \
$CellContext`C1$$, $CellContext`\[Lambda]$$, $CellContext`w]]}, \
$CellContext`w -> $CellContext`frange]], Joined -> True, Mesh -> All, 
        PlotRange -> {{0, 10000}, {0, 10000}}, AspectRatio -> 1, 
        ImageSize -> {400, 400}, AxesLabel -> {
          Re[$CellContext`Z], -Im[$CellContext`Z]}], 
      "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->{451., {284., 291.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>(($CellContext`frange = (2 Pi) 
        10^Range[-1, 6, 0.2]; $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"]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
CellInsertionPointCell->None,
WindowSize->{482, 575},
WindowMargins->{{710, Automatic}, {Automatic, 193}},
PluginOptions->{
 "InPlaceRect" -> {1912, 1067}, "ContentHimetric" -> {50588, 28231}},
WindowTitle->"Warburg Impedance - Source",
Visible->True,
DockedCells->{},
AuthoredSize->{482, 594},
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[1504, 34, 4136, 83, 577, "Output"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature 3w0c0JEkvXm8IB1G5#QTYAP3 *)