(* 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[      3956,        103]
NotebookOptionsPosition[      4406,         95]
NotebookOutlinePosition[      4962,        118]
CellTagsIndexPosition[      4919,        115]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 460., $CellContext`$2933$$ = 
    0.323, $CellContext`$2934$$ = 0.447, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`$2933$$], 0.2, 
       RawBoxes[
        SubscriptBox["\[Alpha]", "1"]]}, 0.2, 0.8}, {{
       Hold[$CellContext`$2934$$], 0.2, 
       RawBoxes[
        SubscriptBox["\[Alpha]", "2"]]}, 0.2, 0.8}, {
      Hold[$CellContext`r$$], 0.001, 1000}}, Typeset`size$$ = {
    360., {112., 118.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`$2933$77408$$ = 
    0, $CellContext`$2934$77409$$ = 0, $CellContext`r$77410$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 0.001, $CellContext`$2933$$ = 
        0.2, $CellContext`$2934$$ = 0.2}, "ControllerVariables" :> {
        Hold[$CellContext`$2933$$, $CellContext`$2933$77408$$, 0], 
        Hold[$CellContext`$2934$$, $CellContext`$2934$77409$$, 0], 
        Hold[$CellContext`r$$, $CellContext`r$77410$$, 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[
        Log[
         Abs[
         2 ((Exp[(96485/(8.314 298.15)) ($CellContext`eta/1000)] - 
            Exp[((-96485)/(8.314 298.15)) ($CellContext`eta/1000)])/(
           Exp[(1 - $CellContext`$2933$$) (96485/(8.314 
              298.15)) ($CellContext`eta/1000)] + $CellContext`r$$ 
            Exp[(-$CellContext`$2934$$) (96485/(8.314 
               298.15)) ($CellContext`eta/1000)]))]], {$CellContext`eta, -500,
          500}, PlotRange -> {-10, 10}, 
        AxesLabel -> {
         "\[Eta]/mV", "log|i/\!\(\*SubscriptBox[\(i\), \(0, 1\)]\)|"}], 
      "Specifications" :> {{{$CellContext`$2933$$, 0.2, 
          RawBoxes[
           SubscriptBox["\[Alpha]", "1"]]}, 0.2, 
         0.8}, {{$CellContext`$2934$$, 0.2, 
          RawBoxes[
           SubscriptBox["\[Alpha]", "2"]]}, 0.2, 0.8}, {$CellContext`r$$, 
         0.001, 1000}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {185., 192.}},
     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", \
"PluginEmbeddedContent",ExpressionUUID->"00000000-0000-0000-0000-\
000000000000"]
},
WindowSize->{439, 371},
WindowMargins->{{732, Automatic}, {Automatic, 295}},
Visible->True,
AuthoredSize->{440, 390},
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, 2938, 60, 379, "Output"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature jxpNS8d61raKkCwbkn#LKgGv *)