(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 161377, 3180] NotebookOptionsPosition[ 143013, 2849] NotebookOutlinePosition[ 160583, 3151] CellTagsIndexPosition[ 160540, 3148] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ (EC/CE) reaction on rotating disk electrode (RDE) Steady-state and Impedance\ \>", "Section", CellChangeTimes->{{3.403415856707246*^9, 3.4034159010519753`*^9}, { 3.403842695580738*^9, 3.403842698565597*^9}, {3.406459875106577*^9, 3.406459906072886*^9}, 3.406689909722328*^9, {3.4066943349019527`*^9, 3.40669433984967*^9}, {3.411378853066373*^9, 3.411378857246402*^9}, { 3.41161701044748*^9, 3.41161701235126*^9}, {3.411884621261642*^9, 3.411884629608227*^9}, {3.41188488193596*^9, 3.4118848870481443`*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell["Reaction", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztWEtOFFEULar4djcEJH6IIUEDOPATIfEzUoOmceJEY2ydETShB0aDjFgC YQXsgB2wA1bAClgBKyjfee+c6vvK6qoOYytpqure++7/V3zYOdj78XPnoL+7 s7K9v/N7r7/7Z6X7a9+BsrEkSY7dr7eS4Dl3j/xznLvLIZtv7/1tIr+6usr7 /X7e6/X87+zsLHkdk5ycnORHR0d4yy8vL/Pl5eUyCbhQCaDz09NTkWz5W8uD cRpXt9v1Qi8uLvw7cIC5Y2/iU4BCvgRI3fPzc//Oe3Sq47WFMY5fcUqyhQPn zc1N4F7Z0+MFb2K7AfuWpgIjj4AS3ngXk4A9SGAelHWiYpLMo0GGt26MkvgK FJgB5WwRqjK4D/xtEsH0UnBOQXawZ0TDBLhBkSN6NTBZoztshrjn1ICVNO65 TRUBhli83TIWMdTJHGGSh7c1KzBYiYxwrJycAVvAHC5pGzqwtqIQZbGtEbVa 8rULh/PHIDRMrWTaiD88PPR0S+Ys2CIYs82iFDvniEIUnAIYrJIoZJ3q+a7/ m8kbnqLdLArkTPtClAoI6Wqtglqo1iWjkqzqlNR0qiXrRlQK6HTx1CI5j/u3 24QhzWRBhxkEOrBFGjrHDjECb1PGZsDxNmPCwO5UZAESELU/kBZqAecRRlzU crU6SjBfroMtitIG9YEtiJSJjKcDTYllU47doYLqFioqnlnkEdgIEIKVGZgq 4P6/RcQG5jrSILUAx1uQOuFhrFdpmkikDEf/soWotKPI9ZABMH28cAYu3y0c eJGBUBHjLgdqDFToITXkDFSOTIEDGcnkXlCj3PSAxo9d7SarBwqAREmNS0rI /WyKyQJZws+mLpXNGX3IoVgMDczQlaDUlvUNlAaeyaIo2oZfGkUaYBQ40XRi sqhznIQ8jijJUm81JzW1oBlO4UTV1ErhzW17JvP0tEgDaauUKPAjT9XtI89L lQGPfQqoF0Rp3uPtY0A99LdW4Vn5SsNe5cydJDWckAMoP3J6ZNQmOhG5WTYS jT/pCWnOTHJ5zChAFzUaXEyqrzEVKKAZUk+15rSMqCaKHAA1pKGDf4tJjNJK f5E8MRppiVOqu2M9SzVVyNCluQfLv1iZLS9HLod52uWkLnDu2Ocoyt9NlHlp eAmlAjGoedowZF9JjRdUwVAarW+DR4dsQvMVQm+QHdu5/4Gdk86VgiTxDFYz kILaOXHMDty65ajN5Bpt5ZqrUH6BMLWkQcoGmHpmp9kQBVEX2q8MaVq97IpW t8rVmcAeZHTKigkxkFFjQgwbdZWze0Xd2NbKV6W62TMIq1QzNSpxESrEN62B Woma1krRqVyxw2X8qwhbGNemKIqQy46W+CnAoaxBEiXTtDXRXyokDjFZ2LR9 zhjpddtsXSBsDsnbZgpXaQ5xWh2Uvmg85hunacH1mpeW4zotVayIYWr4sUvW Fatag1jwK1ureNNyLLqmZVtfAlV9UtNEDQsF09gnB7WEWfW0lMzDtu8qJ641 i9JICrUUa62hAN9rGlyn9EdQQxs8LJYadu1liUbJW7fCzxrVRlBDqQLLVdHO ucHo+VFXKA8D3mrtRHiJdR8BYYujj8ejWe5Yp+CR+p0zK/7hk5saGW0vq45r +JAY+mXwMmj2f3er392ue0vG/gKuEokb\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{140, 88}, ImageMargins->{{271, 0}, {0, 7}}]], "Input", CellChangeTimes->{{3.4116169920761147`*^9, 3.41161699816829*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, { 3.406460288938157*^9, 3.4064602946306343`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzVncuOJcdxhkvnfvoyMz03knOhRrBgWLJhC4QFC/DGgIWRYMNXGVYvtCEE A5qFYYHSigvvbAN8hHkDvoDBFVc2CD7APAGhB5gnOK6ojC/rz6yoOtU9TZhT QHefU5WXuGdEZGT133z421/9y79++NsXv/zw2U8++vDXv3rxy988e/5vH7W3 lt9qmsV/N03zw2eNfT60H/1Xf31mv/TODd7Ydn9Wh08//fTw9OnTw8cff3x4 /fr1g+72uvvqEHU/bbNm4V0++eSTw+XlZffz6tWre93tjX08PH/+vGv+wQcf dN/bv4sOq+Xhiy++YLR2JHnw1VdfAVuzs99LG7l9YKDx4Lz7vezmtknsW4/T XylO625mm8pGNiDbqVv40gD2HTDWDoHdY6KVtwNc+7bwcV++fMnkh88++8zo 1tztnp11cxkdrY1dLS0PL168SIO249h4dvm4C59GHjUnDoANY93taj/f9qZG DkM/RH3nIDKe9TdQDfX7oyhtujaADKgtahfexR7RZVVNIdhMomNjGLWMGiYX +fqFgr7puAAoxkEnw70J6O17DX37/cJ5YhSzWxBTKHhVniA2LvOjSBg0Ik4g hVRdX/pGkd1VENpPS7p1d/tuFgR6Gv5wQUdkRmhin0G0HRplNaaUwJby2k61 dzmxkbAHBlzbROT2b9MkW0fY1Mcam0rBBxMaJ46r2TUIs+5Ag23WrP3bJOrc ys8qm9V9x8xBPTOJ9rm9vzg6dDKsWMm220mAQE+Nv0twf2cUy22hHmBp7cwy J1HaFOoF49vn7/iwcqs59Xtgm9ib5FIMb9bwHta/T7M/sz+dIW/2h6JBe0WW Ermw7waJsdytdPNg4llkAEYpB0fSt0O0XgGHiS3z1XBEz2bB8ac+p0kEwtOS 82F8W4dE+geE7m/40v2P3svwcr1rHvs9Yx226w+EJiwci+Dez4O+332D8T72 e0ZAv/LyqzDruuQi1/xvQvEfpLkLfUaRtcS+fd9+L6zJMn/656Ddd2f2BXTT CsBcB7A89HvuXXTf/ieBftc7GattKmtif802/LGLAeLtZgcjaCO5ChfagvAy zNLbm8hY+xaqbEgNapNek9g/EmzclmeG6T3GMyY405o7fg8PoJ27+YGDLzbD 5tkEUyPZBrI1a41nXty+TrBvOYhqfdvP71XgmFv0yO+55yu8XmUP0k3G+0IM JFWXapiGoTX+ugg1P5a+QP6bQBu2pfhYdxTI/pqd/ROZEgsEAQ0LpBNnBDFj cfZxgBzjZlDCQ8MOBYEPLH7KB73HeLi7Kj7qS/0guBfNGxlalPDrhPksIJss AFBaFlkXtxJU5AqnQLlk3wH1qQgLIQ1gKTff9Xsuyt23H8s9YPlI5sUUu1Bt nSc2JMprUxJ6oRamgSz+9lwFsJ3qrhPIFTU3c7uUXIp9XuQip8oQMx1P/uS2 uw/xamu58vFsOtxSgaYby9q239vxLGbcHL788svCH/W2iI9olYvUrhtCHauK SAuPRm1UJO+OM2tG071IiDvPWSD1HsaMwLuH8GQu2zR+MSTNyE2xrB326ixb avTQgLFEGBkToat7m2cdxso6VNLuOchZ9drPbyfbNg7nlJx+/vnnUzZG/Ok8 XE27lJKx4dJ6Be3aae45WwmA+XHrly1cayZ8sSixuudT1oJnU2J1RRCdCueF pmpoVSdGrK/HMzmKg1rA6uaO6dRy3nFpIsei6KH49hem2PQ5att1xpE4VgW9 iA9K3458iLKZfEhEpIf+jOwa5s1EizRaFWsuXdnVN2xS5m0cmXWRdXP8cx5M IXMVcvaVPlyL5SIlQHJabtfBoWZBMx8j2TtiSmGxi1eWMmQ96UIveThlila8 HhxPoixdojBK4jPYWCkSv59dThVMhsGlIKvHoqj2yS7r68sNcXrtdKnHAnbo Jc97y7AEWxGxpcb+TWQTNQpzmSm8Y/remdkOFXCrVMwR3TM4cE021RzTnF7l AMMFBvSOMRlyR0xGDxIaZ1fltOaV8ICsi8csEEwZcOrKayNoehCE7R7Z6LbN osb0bWFu5IbPEeooFTBc484G9KvHdPqx+My1CGsXFok88pC4N7WF0ghjnsUp ZZ6lXEkPScVGeN9dtnY16kaO9jOoakY+yhsAyjz92WdnEHLYOLQz0piLsHDu 2Nzkz21OzSmT7WPFa8cCPIJpSyGQx9VkSi1URj3SpfPQOCMx291k2SORqF6J 63C0l1Fiuyuw9W7dZ5uqbYtskBbuVSHdK/3VqW2Ts/wMQ0U7T53mtcTbEXXi /xjBfJ1Nyp0ywXh7dnnS8ZE/JiWqOyQtqaC6Ctla7vlG4cCe95wYZuOrzRXN 7HIPATF3EB/CIMTfAwQhoct5CiAliM/Woxe26TYnwdjRRhDJgRHCpgTTqibs wig7l6r4LbWV8jbLAKrT4J5CT7oDm/9NoyrtjknFufT1y43z0Khrv/eCORlL FM1T0euCu6YT6nbi1SouqgDQTthcwGNODzTXe9tgrG4tXxgorK4Ywu5r4UKl 1bWOSsh0A02fbF3lUMJX0UcTyD/wLtVwXbLcRZWLtbmL25Olxrz0wO4U2MJq O4KqGEiELq9w4LhZXeVnPtZSumChgC4JSjafRgZ8EWSzReaRDwyrfJXBNgCz bPslb++Qlc83lrL7KkzPdIdd41Z2V7izKmQeZKJXxgA8gyl9B1/lpYOT+5G2 t0x0Fz/6Pb9mjXVVazvCB6ztm/NhzOZ6m8jmMsyQHqtMDxds7W6AmDBjit9W 1qQl56gE4k7Pc+B2hSkIhns3gORcpsCXxJAbpiQqPXBwam0GNRwuRSsnkthm fdwxD6dPkM/3VE1TAu0kO3RgJutvdu5acFY+kPp72M72MRlARjPkPKxoMN4R whAjGNYjs7sDC47j7BUbiUlCjUkMllndDoc+e2FD1vdEcmYUFl3flPdhKX66 7bGr5EwJ56qaxpD3PGlDGqmOMLQCiGCI/X2kTtMC9CnSSL1HdBAdIc6r9vMg DBqMAB8OZUKhtCw9ZcjGGlb3J56dee/mSOLg7AYor3ZZ9u2w22R2rkj8KEaR 5JBmdmpzR0Ua+U6tMWyBw6r/f9MecI+Iig4HyTcjmFZd5xr2aE3ruL/Q6Hmu BtY0sTUOe24A6tLhqsNjwwXXlhrEFo9NgqUd7E3SKNQYYTI9fQKb7Sv5f7eo DcYeVBDCytiL74zjm419RI3tTIgJKILpfVE47fpT/lSnv6sCSh/vNEK1a8d2 ImOZ16Wy4TC45N4rdHOsKLHOk7B3VS1Y9VIgCSa2m5on3bO+vI6NB8ln5Sym FiTDRfZf8DU9h5a2R05yJQiY2l9fMjMH2yFYFjUm1RCBfT91XQxBxUw3aozI WuJQ7s3uNEfcjSXFKfY3bXedHGvW/W2nYlNTti6ULeiS7jCeT7Dk8QhLkKTp 3ZIjLNkWLMFrck+zHdaMbemeYGaVjmcOIhtk8EYEsqnrT98y3kwLXrSAbIUo Nl3UL/Lj1V/AimAsOVygcmKXZ+27/Bq+QlFcfjigTPj1dYIdOTD6aEEvl7ua 2RXRZzxvx0yr9n6wyWR2kgDGM4J5SRK7l0jXdFvAG39MOMfl6eQTBxKHRheV kxl0uvD+wewtASz1vcrW1wWVTWkbpjbGAYLqrUtZB4t9FAhILtUpvZ9TgV1s FKPoLmxh2MqeuGojBySSAGYa2vSscshy2426LvExc9J7pGTssSBZRqhLSgUK YlC1qPckK5fSyYlMud3FaLtdbjdSCKgJkbpYTu/dmiYMSdZjhJGZtVyZLhTU vEWEeSaChhD/fiB8RD0a1D1wsayzrna5q51ND+rH5fIU7QmiF1INBLaDzHqv K5vCINjlXEjJ/tNBppYskkaxbgGzlVMPk7btkHUOXFOdSNXh0O8NaF6FdXeK aJz+GZl+EHwbWtl2neQkc+R3CpZqY16mE05FlWdT5a4Vi4fSFxHZB/cKu7TN 5o+L3eve04135I4YJ+qQDtk4rXK1lTvsmoC3poaYGnC6a6lCrYbDdrsi0RRU bUZF39G9WzMIhOMREWhkegikWD99Kwn0TKbwy49ErAoXuCXObenu6eK8ZAl9 8zR6KhF6Go11j9QlDILo5hceAzLqor/oNbJM8tmlpkwr7dVW6WY9RkB9UY8R ihwCBJbP2Cp2zPqCjVVRiduCsPaIOzo8dS7DTBGQwsYRaLoxSWOAXfsZv4mt NcxWhHA37dIdW5URamSknqHrKPbQzzesiklGUIfBCXU3byc5mYQPCnhkNDzR xEEKqjt7S7oqTsS0n58meWkZjvFCaarYmnCmJr4nLRqOHeMZ9gyJ2q20XR9o lRFpdbro9tWI8HCUCPGxoCcBok++6TT5a1GN0p73x+JMbu8dgQ6XDCmpgsFu rvrYJrROBsVmOStkGKtLMEv8ggqKGyDBf7ZDWpqrGbE6IWC8oywX9Fwz14KN J/V6/7TfyHfXRovWWeOoEDlGt4sYAD1DKbeT/OyUaxFa6owqUQ3j5CxtBuXT noVF+HlkXaItSveRvulnIv9dWAN8GlFwLzoT+RcBWzlBFpCiF/oPpCMbMB85 Q5VbLW3Ppa8qOGM/lqGAq2v8X9IR30FPWRLVqYJ0jf8zdfyPgAjf93sElEk/ LweVpD8TQnN4kKN66hj8TsbDxnAWhNpFD3Ce+W0tkWmH+HYA5V+WCOixq+8J EF6+UJxCI9P2T0JpCMZUnlLpvv1O7oE8QTlZUi4nmoam0J2hFVTHQo8RukVp OA6uxY929SnxdV6bMLfpmQnaaXHAwdevsYNG+XCReqi6L8MiRUQMFTXj1uW5 murtIihNUz7YzoJGE/66sIBRt6b0vo+etcgnpmTSh6OTOukKV1dHs6s+qoIG tyzgGBB7Nu71Jit9Gh4pYcR6ISIMZh2g+sa+40yjM7k8bZvlhj20KTIkvegL EdI92R8vSjHUy2F/SY+jkWdM6fsklepg9SmGIU8JWCKWIE1Nf+ItDfO0e5eB 0rDmSqkI64EifCov06kEmYrgCcwjaKmGqw/FJZfRsNhk1QIaNxw477WWmx5s vKvGH9iYdioqMMGhpkFPr6VKdcPmmOim0jjLmRuX9JKJXdHMLhLQxgrhFnhG s0fiuMsnM/iBty7nCc13ZqmRKjRqgvvouYLCL/T2Lg63RvVoRF0hacJkVVOU mO64Hq2LPECTo/NSAXQzVCx/45Wq9uCsUL6bAT3Sr7ncXeUY3bmc7PidUa6N CbOa5zeQtiUVI072Q1528c71TG15ZrCv9NU6acTSMpB3Z44XFWdw6NPmQDw5 xZeio23hyNsli42fSc/naIZJ6f1giatLdxK4iT9oy+vXwxdp1Xttkk6jDbEC Ytor2b6oErJLE0Zl4dlUUdrpVcDJ+0/0kSz0jLmGR0SiuSBnzgye5G71QUZc QBcmViMMvZ8qSWLyHY088qRT51Rq3iliUteYIWmaJuTzMYawr5pk7nxQDlZl FQs8ajWSHY32nrFsCYO8xaELZ6YYoOPrKSRgHeNCRDMVngTjvVHBncJ7BN7w qCE+rurowZIneVsn27verTrkmMJ9wkaTIqUJ6Gv4v5DzC1p4RWaB95RBPkjl JEAFVXXHOO1dfLqLwQEN7afSOMbVSykYGDcdJ8W4tXbY5ZnfZBn+cFTJakHT dmznECLV7RGkKSU7psyRMvJmipkKd9zA7aK1oPt8qaUFF8XG45tBvxtVx0LG pnj8fjG8XdhUPTccMXFMvJEPiXkj+TsOWklsx6p4ZU6pmZusheoINU3exhKb cMWT+NF0S50ut8P3slhubj0jsWIjHjmUdvIUxocDkxPuCpVYukyNSvW+eFTb Irya6LiSXSlqtRa74mSGXShTEWrvBwcvJKF0Be9lUFIfuYQbaUpCINdJv9Ho PVcGTfW9GqZGRIQpCOxlVW1lcSzgrFi/au5QVGSyUDDyZKBok3zfFY+InmSP pT7JdsjCf2dyqapwzlAIA6KhIZsO580L/Srbbwf0EaQL2xyJXEH2ASOjkoa6 rp/LVU0PTGFssE/R7ibiIts7ZZ48sl5pktuTijTGICjKclQL4hRjp8daTyjy kEuk2E0pqFsbUQoi6chVKs3TflIDaEtN4JiSVSgS9srp0ea4AZl6Nq0+tnzh J6v6CAo3gIG+m2yeMS79QfwCrJHwa3zB3ReIXF+cSpWsX3yRQp8kUvI2h6x/ r/tDStrl3ugw+2IYxR57bG0feH9yVIcqaODswE8Tt6bSDNzDCRsXpei448CO kVX2LTQd0m3cLk/Jy/zU13/Z7zzf0Fo9BdFWEGPz/Bon7Kam4HVfdNG3SNjl FXXZdWMP3Vy9WSt4fLAPQrHVQqWKslNt/5yoQ59JJEwSc3wNP4+G7T4HWING yqPxshsGJTOrpK4Vu8sfGkd6qxVRXMg1drK5kMh+/2F6KdccIpuXaqemlndi TymTG67GiUskF5yEWTYpKfHagfGFflfUKCtlCrRPr7HW7wciG8kV2NzEOl9v zR1Z5xOPLjKPKCxjMRzTVilAq9AYOXa7O7ZwjmvNzS/5E9p2bch3oxZttjkv V3td/3jZWMG1Veaayy8zBIqdyXUTiz8+uqhNlmH8E7u84ryoYqB06P7oGPti DD1WR3RumxH3ZUyMC5ZC3tXY/CQRgX94UJnPlKTcFfuUAYfH1/3eok+dKsZM ecLGl9tdDv5or8eyJGGj1RolX+4XsglvAcE++670JGh4VFI7xjD+fqtE2buh Ql11trzMlPsTupVMvZy6f8/5JxG38syc4X3lh48VsiCdBzm14vtlSrhPuAK3 ZyFtV+0K5Px3O4Y4o1mUp5YQwXrgbDlP0tDvTtJbh9WoAYqNEX7Aq00tKKWM 3s4yOoXoCKSTZ96tL2pC2eV4fL7Kym1XV80iS4uNXW8ZkPqFiVCgQO+0UMFa 5TCZpSz1ldVcc5d+yEK6IFD/UP4quen++jrtFue9o6qD8KiO4IsZ+yRBmoWK gLnE6Xah3cfUs6Jn3iuYqTfHnYHHs9SNog5l1/XB343qVyFd78/msKonHBxT /zHBFtQin6AUvv0c0BrdNqfgG8GmcoQr+QNm1soD03Nf4bqaMRf1MD0e/duO XueXKVz9HytFR7PMtyp8jDvqwXaXpm3skurknK6HRO2zVHq1rT247nN/IOOy O6CNfFkbVDG/KKPPfjKUJxo0jKOM9WVfRqbioIMTbuLGefUrvuvICfquO5yR DLdEFk304oOaOjA8z3jkzP5ZlnYdESJqmGTdus3CPlxFAnivhgLCAadFKnVP ncQH8Nq5FA/gvEuKH04sHWktAj2K9LZAmuocFJHaTU5ESj1cXoBV2vrSrE1x Bk54E72ymzxIRH+7CqN8WsgOdjziQU27QHgwIRy80CzqGNKiN7BY3P2s0MO3 Kgw3HAyifHTq+hmJV+ltJBoWle/X3Bb4DyvYDPldhizSUTmbyoLAT63aLnOJ 8isO/yMnmvsQW4EQR5Ka8xKk8wDKLq9vPK5ZromXuZQ/WW5Vpu6wUOJUfTqn QGoz0DHnQtLeXeHBB5TcXFGtcuWp26hA7ZaudVpAeV3AtqE2ldJycoxpTLNw uKXgMIeuWYP6gDmSUymjvAFh0rNILrrh1uTjK7aTdbHYMnClLhf1KC1VlirR jtNI2k4sUT4IJ35Rbqcn3qIXBD4KxrsfzPt7wb16w6YmRZ3b0XvnASxnwRwX QV99qehldR6jNq9Oz2vs52Jh9XauUCzfDqGHkkCm/udW9u1HMwk2tU3y04BI jCFVT5NyOred+PcFBSnTS66yy8HwhcM4qVaKt5dp+hOYQ9Q5ugWIpq5MbdMC zlxZ1sofcoKcWBJYusvbcGJJQdX38erladF3Aob5o2IfbI7067RT0o8v3EcQ 8fsEc6ptO1AOatr7BTaqldzmobj0TNsTn7reDCjeZjEknNP6h9enK8BpLKzv qjOkoKlkr5s/m+Y+L7CQDfWCNgjRk5ntHgsIJIpoRzrevvnaMH7+banbSRkz PZZ62ykCFfiRUG1wkuIgOiLLZdYlHR+TJv9mofg/Ctzj3wOKG+C76puBY+Jt NsF09ctqDKxnQbtEimSoCbW7/8lhmK4HlRFGBT1rpLV6/VmjdRG8eLlrZrqC pAsC2Oq/6oQqPwraHaGK6h/HyzxeICwvFk2G/fNget5koIJF7MImtsr1sXbq Gzn4qR2ZGNEtForuy7VP9XbX1/mv6Ac3mm/9H4yUv1E=\ \>"], "Graphics", ImageSize->{694, 53}, ImageMargins->0]], "Input", CellChangeTimes->{{3.412049510943512*^9, 3.41204951284612*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Steady-state", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.4060057621201487`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXU2sZcdRPrl/775333szfvNnz8TxyHYIMYkXBkcEYgkpxBELhEQUNAsI mBApw0+CgiWkWSArxCB5A5tsDGLBBo3ETxYgGYgwWQ1SgAWSs0HKj+wNy1kj dDnVXV+dr/tUn9PnvjejcTxHej+3b3d1dVV1dVV1dZ+ff+nlL37hd156+ebn X7r+6a+89LtfvPn537v+4pe/0hbN39c0s+82TfMH1xv5f9v+q7+65/vyi0tK Bf8a/sy3d+/e3d65cyd8+piWvfHGG6gdG74d23xLv3/uuefs++epTGDlbf45 /Flsb9++vb1x40b4af+fabNbt25Z98fh9zqUyahu3rwZIL311lvbF198MXxu u7iqTeWjVGurNwD3+uuvh55yLP7Kwfx8+L2/ffvttwMcwV5+5H8pk0dQa/vR unvhO0U3jERwEGq19dtvS33MQxtllOEqfciwclz/LPxZGhnw047L+iCmtzXl 91EYu/Qt3wlcjAF0evzxx0EbjLnFpR1xC4HHLE8LR+EujTbySB8dvfeNLcKi iH1HH8Glrd/WKuF8bhLOoKFKrNGR2rWfxnCeM84Robci5n/u8Grt4L7SMshK y3+DjbaCX8RlEeQDkt/+P9eqr732GiaaoS2kwHDlu3b4RmqQFrMCJBOwQiYZ jkfqWnRnii7gKcqoKmgJJevQnTO6O1F5T5GXPmQm4BG02mFvtIkwXooMrVng dVAlvdkspBNY+MzSKuxo4XoUHEEFTaQ3zGdCZV2FygB1Flom3UHjBwnXMqA5 VzQFrAqE6baWS4c6FkERU0MeqSLMkyk/cxgrf/m7nGgtCjqdT43igaIoTaBR pqAYPnynTMmynC0DDF1NAolElo/Cd5d4VQmP1BH8mBTCUOW+MRt1earqIuZO 1SFcosAfBzoI2XfBZUfSkOaAMlPSHPIiZqzSeQHFG/6Xdu3/M8Ht/MS+ouRu eGEd66eZmZ6cOOhYFic76Cz0Vb4dahPpG4vO1elgDrQJmz+hjlpnnwt/Frnp g96xPIrefkbKZkH+PZLOWWUpWntGLjxCdsWlgWpljX91R1iQchmjtnXHKWwT GFrvkJqBWT+mZQIeGv8k/D6Acgh1WXlgIsl3LSzW1CpMzdPTQEBk2MgLv78X B3Re+Q5ew3hTkFCAutqEKqIIdWmYqc4EdDErY9l+Iv0CHbpWyuVzVI5Sd210 w/c8kJalK+WfcJf1Eldvv5sFxRNNd2jpYDO2dWJPq9BUGEsGTjeQpckLdd7A AGK7baW/SdZDOx3IZ7UJOyZwPKRK4ngoJ86RGAuJO7vnKNRnsxUKVGmeKFNF QdE+zzJp4i7wdaqwfHpwYB9JEynqls9oDdNyGT6jK1jKoAwUENCD+YYuEz9r EbobwQJlGFAro6pDOr8HqgzSIvystU9sWNtfi7Q51oagfgdsycZUNsTlAHdW Pe4oCZcDTXOLVdCI9fcTxlKb8L9+pygf97omeGGI4C5mWMYK7h5ckybSjdps mCXkdTKkC/L/X2xfeeWVUPovKZVhiESHr4PfQ2UnAs+CCK1hriQEGBhs7K+O 1lHBSTdRyoWmCdiDRPgbdR95ng9gAZKr14rVD5atkFqKxJ1BVWgK6YGd5+2X UsoDm60tyu8vCgsPXPrDhMvLpD9MXrCBtQ5ztq1Xpvs10yx4RLKAmhr44X8h onSJiBGjDH7ge3nINcvm2kHSVh6sD2irAg/VImikgji3xUvkGWVjKuiS1pPu QIZf1DJeW1ZOvetaJigqVxKVibIA4VupBPTn3iXz/iCn8sAAYb8I8z+vjzKw pv2s02PfDBypCxZKfTgxna2QmnTQvpAm/HSsO0zgQQnxXJNySG3bX2CAunzO cCMWi/A1hCB0JtGuOVskxmQs3jLgHyXmqcHffEbLOCK5dOo9Kb9nMta5/ecx r788pYbpB7QM9us2aLN+vctOPRgxWHPF4DtUVmQR04+S3KvWaS5SGcKeCwfk 00QS1YUmu1wWhv9mHH7ZfpqbWyK8e4JwABxv+NFWj6YvO9Pa7pjQwVA+SCiA axsFU4jagkqs6C5oGQdcFw5oRkEfawsfkynHZUw5BItzHwDrhMy+ZwgnnRLW F82g5hGiOIzlqMWWveCpTJlInvOhL8jzDoHhGBc+BlWNWUJSZTw8IiuHAmj/ jxge1PbMq5PMUPEcoYoEMfgo8iOzEB5qP/I754GbPTMtkl6NNisDVWlJZBVl LBtf0+85GovInHRJq9CuAeY4inXPnoKvKU+L/WUHk6G4MPSOMgP0Bn9EXlg9 YGLsU700fjznAVvZWUXfV9QWMjJzygJUNZVfVSngQK/0k4fWU5uxGBg+0q+F 8I5b99hwa4SIiI1GJLgTTKRe+DlDtpbAI9HuPQe0Z116dBVwUK7qJg/StRAm Bl3ZPZZHdGYLHsEjIYb0Jup2ofExilM1VcHoOVvTyaoBMKAhBY1cgnj0P6PQ /ml4AqMLOlboBJ6Qhjdd6sWmj1VwYCnBNCUzsXl0oD30OVYQ+QTzg+Ldicmy m1j7/XP9abpilQSs5VE7d9b56/6a5AW6zymmGn0xwcZiIusW0wBjOxmACdoK PPXOTOzgQee0BdyFjpG9Q3l0PJ4xPHUfYY9g1K6hf6RQczUNUomJwB5csj9Y jskfEbfQZKZdwYIAODa5LgyDzYPOElZbKK3IHfFAg/60S8BVa+k/shcB30i+ yk1cLuuzYM6xf2tDYQvzuzB4cUbmRNPSvgF0OKl4WxVUzYc24Ev792IFWPBC rfDAC6DD5lEGWoexx9sYBhvDCuid5T4M2DvFaXuVeKD7CnEpUZzAyzg9ji1Y hmfSRspRaM6GMhQ+mgo4sFD+ykKw057NYbJXgY0GOFRON0sdZq66dMAcS0g3 kza1iCk/iuGDrxMrUP1xRxSedcowbXhvY+bA2yUm1dGiOlfsgS34VPiTxu5+ I/zussiQ75Btpb7sNA2//z4FzVGkL4Tfw1lgLzvtGO5jih7MdTIvzZdq2XYt VNsk1XgzjaNsGv1R7VbXRj53vucoOo/qqLRZ+PRU+J3uFiDn69NaX7oHFT6i ZRysOnDqPeX09WWnXgz1LGwvVVF9QoszKvxTJP9VRdqJv8fJ/P6xCnHBQDBJ RzBQH/MR63zk0Uijx5xGTxK9oQkRlwS92TEEvTnsdeDUe9rp60tFeCtEYQxp DRY/oU3YGlGinyPM/ay8g14mIZMGrk77HUxdJAwQMVpQkSFsKg2A8vahEezA uijyFtJW4tALkDiZFUNfZZDUZh6BFG3JTnlRxCpU1fKFAtd9/1ClFf3cR8NP R2c/FjYn/GE1zNRqIJVpBjTPeJl9atRvFCsYHzpZL2krrNDyA1lr/2IfgkTK QuWgTLcVXZ/a+ciopMxZUgbSSdfGRPnh7S3FLee1DLwtvjiNmSBbEhTd85gZ WtsGSav32SaVp3bMJz7HQH6KdyYZA8rBBlqK2QTHa0yWLlbWQ7/YlTRTm/qV hWwqu724QaaupmTjAgxZwEaKsejOQjnNsiEPVrAuI2DV60cdAY7GppGGQ2/C uCgrKCY4luk4kk0CSkaep2bvPno/RZ5xAAXynW81OWpDnjCtMa24O7gzoj7Q 3aCuW1rIC5vd4rhdVBmBtmCvEa48wp8wrOD4dQcJ6tOra6OINXLmCRK0ILjP ck94rxRtFhL5qsunOXthULKE/ihxa0gYuAx+/RBFLgxwGvkEcOE5jQrDEtUD Rdnn8rgg1s6jeRHeiuGFyroUg9pk9BuYsxAmwEdoRcpYx8YE+Y21A3nlyRPk 0wySOacz2MYp7CweOrbB4edxClBYFzgUkIay1glCEC8XyIYacCiykOvlIc8i jz2YfIfjRjybMVXXgbbdpuHSlnyIZKRtXCcRX9mG9WO7ZS8PZOI9NiEN5Cd6 GPsBPjKCQHv0KeVivhw57U86wRg9OVHm+5z5npSlW2QL45h2A3eOe1RGmsnS 41SwW1gz58jU6aHxgZQJ7jPICz3u68ClHjZXzMVZQGOHrygozhBOimI1Z7Ey ye7XWyXiB9Ou/X/mNJnG5c6pRpK0oPKP4TvL8Jh25qWf9Kj05fQbbFRgfmG/ BQLUJPoCkX2OL0K4zZHz0xwTfcO+OCcxO/omz4bx9A1lKoZHNwRr9Q3EkzYa rB7taVkqUI69CgSDSaW2Y3hUVJ1gQOa8HB6cN6nlepmtc2ZrstKnAfolkrYi ApGLOoYlmMxMK+sWNUE5SK9e4DQjZ3w4ZbKPcooCNxZiwkhYAWOmy7Q+dtpe IBSGBKhcb5lsnsL89DK2OLMrJct+Mnlp3y58htWdqJTjSeewKDQJl5czCqbZ 8x2lu821fSv75je/ae4wvDP18m17Nz9SpujNAuuiTfPOO++UwEAVIcwoRKDN 5nsx0K2jsnS9QvRkqsoiVlk92hE0FHjlRSpifmxDJwtHQmDsQY3BsBMKoztM DhHYY6dtVGMHtZK2q8vVSZGXB+YlZCyN96h/1w44LtkewVw7lTuoFlcT/Be4 o2pVTlWJY2Mus3CU61IdqgYqkQWK1RqsmiOn7QVqWyOgtSTtw1v2tsCj6oxL LYdnT6+gDlwFxUeo1IyOTohdDVFzvBT0Jc+0ye3KLot03dsiljqYny3MCzoU bBVr82sl0VTbD+NRXyrxtWsUErvxfOQh9+08IwnTsQsYHViSKA+DzEJYy3CL OPmcJhYZiMmIsIe+pzQd6SU31fEj6+rBBFZfIhSGWM0JpyBWfg2HhSKU18TE AccvTg7BDfsOQ4zmslUR9w3jPkZK08Fwd0AzThbrC8TGBEIegcnLO0IYuolt 22LARa1bTwI8SVnr75FuhqQCCUFj0+JCZb1rhPqQ5LwZyuycBuyenKmIlnjn unnhhMaFRGG3iFHyrBz2aeXRQxRTrRwKkQ4qFV7vTpw+EB/T3CeTR1374WXx vmK+zAIVmXYHlV3IgwMbegrow5WM4S3anFLIENlut8nhd4j0kG8G6kGUKxjj KYE++itGfxulMIltE2Ha0Vkmm9lYGEk/lL7P/A0Pe6Q5o6Sf3PDAdtF265/1 YWqns2uRMxATe0w0L1TWu0YoDgmEpvFiYlNSYZJpBfOKqZkmSS7Mg9VNCBgM dIhfvgp7AOX8wANbROTBDqg8yJpn/ntwIEt8YACrv4iyDLFq9V8mZ/ywEQsK 9CbprEu4TaaDhk3z+Lpoc1gZMELlu5ba0YbsJ+2lI6fNPqx5su5CE4xxkvVj LiBYlET+N4Qj8u3b707G2EiCN8RGjrdSMSK2Y6MoHmGecWY2YuXbbT8u00HZ NzoywUv6AOGfzidcsgsW2ojtsVS3gJmJQGjOP+YB8xQOUV+k5ybSW9LQY/Wg HMao+2Yc+E/QV8qjRmP90e6j0G3RnYCdpfkV0A6YYmpo4IIVTkjdp6p6AJ5t ccQBmHjcnJ1XeGmIwlDqfFmU9NIR3gDjz6kf5bVfWhsVigQHJh4UD2f5Yhfx sAh/ncCH4YG+2nIcD65i4JCTAM+YnQQwVunAux1gwVqHRZtstq87xEYu44QF ZwyrZP8AfDE7ISWRPDDCNT7nmQm+iRFVHgW2LYCIwwRwDVRllkGnZp3DOPB8 THYvVtbDxK8SBDUNfo7Qh3n46yVZTNQupQq4s4OPHAA6NiIQXr5c0Q6zRR5s bHjX4nymAhZ5J+Cha0J2i3CUTAty6CAM8UKjzk7IMA//R342f1siczNneU7s TCQYHKhosqnTMgRZdho+gOB5YemTeghhr66vzv54CMKeQVAT2LSdqAVepuGy ox3kBA+cFDH+LxXbLXvtpL6Hdvh9UmYBJi9kRh6EZMhDhcfIivS6U/Z1pwzD 4F2h605ZqB2Tp5q/rqM2U0xzxelEQbxroPkHB6euUlxPmj/RSrBy5ZN3d+4P nLLnnbbfIz6xHpW4YVxWmj918PKu3v2BU/Yxp+13tUuZiLD0NLMOXUaTaZ0c L+cMbXWlz2k1qGDYu9l5i9pbe/9bweVrCmioddHryLmFqyoafHid0gw4GgCK IPojPzh0qRT5fYeQEZH0FmF5WKtBp9/rW4T/rdg2muGgoQ6xhRENe2hiqXms 9fOUh1i/paOHIG6p8PT1nS5bUAV9bvfXCG1V5f+m9uvlp3uHGhfa8ZTLLbA/ yDzilD0eEixS5mmabv7uv/34b7S+d17Ao3nE++IkvHnu5vTXtotRtKuPh5Sx PtVlJGXXoJ7Y31Y09E4eIwBGRfuO8lenxW8pJJ76ZZGqvZR66Sl1q/8eupn6 77Ky7fZ0t47wZky+ku+Gb91Rg9OTd2lrpPSTHGrORMJLnRqicRT8Q9vIAz6w duThgKOaLifTJgDuRuRLAeRRqD9E94XXyuwIGnA0CmicPivbu2GpEifm0mwC ab6t4CFOWNg0pqv+gidStRkpyAiFx5ndxPIeuGT9G8RWiN8Z3WOzOSVqI+m6 Z4rlKuExYTiE4L8rtYCgqrqrZbksq7of+ivrPUGberNPnI8nu6Jg/w8kMZbV 3BBKRwmHKtFp/kPhwtvFvagCV5Ubb3EgAMDpbtDOn6KyGmEjK8L8pnfFSwCw so0R5FcniluZIDsguSs1mPJVHUGCNFvRDFWJgqsEIVIjBIOdCiGXZiDOz1ZK EK/59/eNCr9QOZLPVbJ+BIWNg8IOIwEYJsh3tIySThW0nS3U7fYEecTKRXt/ Usq8jWtU5iM+e/obMoQHG1l37sN7Ij5B3MPEPUf1hgb7y6Gst7uObqaix0F5 oLfrUAGLyfZZgoWh/pJThgtxecplYoDzW1uajbxn90kt423KB+M1Gj+tZThA wPweG9WvUD1sEew4Kkbpqd1GxYQBa/kmlRecri479cBuRKjEI1d2xzDtkW33 EBYBHjIyeKsGWRvIvsEmnC4YnE2FgO1va5m3g8E7jD9FI0dMAh457ufhcJNF /bpXUMinWT1mrzpYeHsw2PvsXyWS3iQO047b4obWwgi8RRtXgSBhQK2/jYPF SoWrMi7545HxsdPN2O2+vB9hfhHvusqj5M1PnccRbG2SDflK/5WRUoJMfKEg IgvcR34s9z6hGn5zUOxWdhIfhhPjy1tTm8qOOGg2NH4ot76xlKY0ol8P57Hg 3l4lzk+ydBWvLM576Ea2YuqFR0fvNQma+T/lRSVsL6Yx0RUPIwDUz/Md+9tK fzP5xSsw5A5CRMGt5koRuZTGx1Qv5yO8OomBX1bMC8Gv8PWRIHiSMiO/BUCz 14aYQSiP8e9/nFFiR0Yw403Mhug/oYvwPV6TwJLN7yrAsu1Rnad4nnc8Jtl8 SAFmBa6kKkR4nmf6L/JrjfEOGo79TKPLVM31ca3HljCEjvMInnXK4H1R2/Bo rtGThBb03BWnbOaUQS/JcLAs87X9mLxKoHtJIU6+S0eeUu069YFhfNip9wBQ N38HHrtJbDhOi1x73Jozt9zN8HIcJJ0dbXvvFDnuEPHCYbXTWBeomGlw0Lsi G4l9YIJalZX6kA1LXKXIQQNYejyoZ50y3DpLbcOjl9XipkWOPVxxymZOGRYt HFe/Swe46cDSKQf/VHFQKUEg2Izhhx5MwmEe4X67rcn9XpIxBAFEXgqy2PoE XycEd9oOhQ0RXJdH/YgGu8AeGpg7XhQw+js2J3KjDU04yvx6dwUlQoAsFrSt zlt5iKGyakbOD0e7nnXKQGtqa9g9nr2fiEM4V5yyPAeUz6Voxpd+2iYTA07d 7hTAxOiPLKXKUw6GP/IAUy9fZboTrCueRSa2t3DRukfwPZfg2mwwNkyT0yJT 7d/8AKFt1Zejp/HMhs2J3HYGghiX3qA6o+q524npQ2TD25u8JD1Ko0juX4JK BOcppcOyXr2AENfjFwKw4OqZOk/b8u1JEOa4TTF6RfbMaeqV8a49Dm1gBiK4 gWc3ekPC+7RIaTv0Bi/GuJxkmabuIDNq5fT1APKxkHpby0c+Y62xRDtog3mD RCBIufxtP+evWOtEYJ2IgNPU234Avfm+IKRDSRc4P1oAqYQZjsNfI34jsKfZ Zcj3Rb4ulC/mCtxQGyVd9N0LXno2SYR/kGSsc0CPwqhShmNwrDlPkdUILPAS CL5NVZ7KmLI3iaZmoHqb5xyiG4rOes4Q1E4+pJvx9m02tNTZsHXlDFJHoZLY oh6nyGYwjzjPD/esdq/sUCkBaaRsQYGzk9hi5d+dM8seZ27bNda+CjhjdngC F8Gen5TWzOn0ujsUMT5KRlg5wRtvP+zhXHpQ5hLfU5pSccnLengElytKuaG5 l4k7Yo3wNpu404jJCXNfl+CZA+FQ6Vu5V3mijTgnH/uWoB8LudJRV8baLKNo /Kx7rimQ0ZtgvQWuNn05v9xByvit3U0S4R99LSZHDeuT4NOM56GZOLbJtO/0 X94oS9+h6V09dJpsduYoHNddDwRgDsJu8pxnLwIM83lM0vgq7rOg7/2g5ZjG HoKHNFNkeIEPnCnM4+GzmwMzEUN8KP4Phvh/Nfze2DXafMkvDmpkKhreyydU xvIQCCWaDmxdFrcpOXuEHKL8SsWOIcXdZL6uzjmTMZrtX7blxvd2107f5Q1V P9t9TM5GCLlyutvpSApMC/WAh96hwGXI4zkrUt1DsuxwlAQT1QvneLKKCObQ bHkosGcrsLr1XiuwX419yRKzn0SVBDbzuaAI8wx7wBZXADHMU54NycPpHfWL aRw4j7PrkaHyFvkqUbryKAp8WBRpF/uKZY7GHc66GRerMzpj44kamwFTTgMx y+kNPnkmT0nqoCbH8lZGCAia3ydizc8G9FERdM10eijU90io+wcEJSQxSY/q TYxQx3e790DzyDUT7QUdGG4hu6VXFar1WbYihw6pdQZ9R+NCstWcuaegj9lv CE/lKapycCo1/zn9jrtJ8r3Sl9FPW2h94uwRKqlnUH31+wTNN+R7cKJ3JVE8 GToLAkw9ZMcvesnXYU+I2+EcPJSqGqnyzyZPc2e7xAwcgtGtJU8hJypor+dL 6qVFwamelrrm59RAcvhYApIwBpLOBu6Q2e185FDgop/KtExCmvLIYsHXPqeJ 6MWo/tQJ7JGQc9jTsHrdre6RbtjVbry3knknQrzIPU6EnJ5iqUR4gnoWZBrS cx6Mc0Xc/Jki0hkX1O1DaT0jaQ0AiofmvX0sT1L/UFGE0YcAYtxr2ibriMQw 1Ld9gUClNt+eLfleWuEOx1v5Ts40Mb8f4bMlQ/pa5L2zPY34xomDUG4wd8lp e7Yv7Q0O2aQE33hEW9to2g3k1EeAIZCcOnjFKfNSDKGrzni093BknrYaAcPv E4QQsTJPZXhtxJAZ5wz+oSR5khR0SQjKxX1a0xIczIRq5XedUZ7lrkelN9RV eopjM5qMyWmeHBeFoICz/ZPqXtJal43Kr4MDfJxOJfjGAjpchS3xLl3gzA6V Q+x3Sdv9yXs56ns6Qi/drwYWVh+WqzmVpWK9Z57fQ9maKltfy0Ytn/TUeYyk L5O0JpiUfB25k5M58TR+8MbpXQ9H5kaykaWuewDg5YFynBZDeZyGnCbz7JnR 5cFaOrBmhiWbaMnWUONdSnBUS4ZQpguUvSt+7MTLx+/JCM96NMiBrWy7yUg9 JIR7ydb8Q6HYwiZo5kw1zeKy0z2sZPgwF9JuNk49EICTCT/o1Fs59dgCOePD k7jlpA6F3c6IvovI8Zfhd2d4bb//Hij4aPjTXcMg9nxX6RtcaWFefW7ob+Nt m3bqSJiIhRErUTtNwTv5SoxpfhlOUAQSgz2X7OZgDQN6EA9OGkVObLfzM0fs QTvcqqGfJ/XeDm//k15PDBH0hC155BTJA/MF6gWnIqB26P0HGLqaLrPo6Ae7 RpTKntEvhxlDtIJTd4NeHFkTIt+9shg+2AySipJl9RLjJkTjUccbdOBI7LMf ANvrgaVUY8MfVkeH/6E5lyCOhyLBmuk7Gm7TbS0pKVehPJcp+/o4SdIY4i5H gsAy0kjewKJRmuITL4SQVjgwI2tgqP5/6TRBPTxqvEUZPjHckJaOZA5QB7OQ pQeLoKbMd9nRXuCgKxOLNmrba6Ep77nA7c3Roc3SxEfFmqxw7RhSntnf5WCm uyUKV3E835twDLdEkkhnesPPtQRMiWJ44xXA4ZItHurQsIF6HNa6CC/hzJXk khaHEiacJVAeBVIqHiRwc05Sv7H6I9XMRTiT6+vokuRbDC9Fa5HApQNYkDn5 FH7/b8QR+06kJHoJpTkVoVy6hNK1XX18V2+pAOqm92I1/gqUwFsZrNqjprrk B1KJG8rggHlYyVPB+/hKID9WX544+0VRYoJ4ewM4JMLtSwRTM18Je9ij2Mjw uPs00HmudwQBaA9QKkMnfdVdhHvcQ3FIbqgsNj9fNVkzaQ//J6K1TEaTMq57 84kjR846cpDs+cgDkwI6IZnbx7a1j+WpiaHewGOsizjZ2MO8Pymw8upprZVW A2SchcyOGkFIpTWpxAGB7nIDgbhu248vIsPzpEQPwlaFpz8nPHpprLoBvfVt twnhKoaNRYRD3+gWNDe2bKqmR4rZIgEVDI+YpQACaFOPhildjpLvKsfXIPnY mSXNlGniSFoyTc4pLARFoapv27u/T3r4Q9/J85a+yxPhCzCDk2v1f6CGI9l4 qFkz6/Zk1wZXHkpazmcJRzGx/MLOyWcJcj1Yj93A0YNDVzaYq9m7YyLUDxUJ gmbSi9QpveXHI5oeCbE28FpYIGpGDmKW4CXm1gfMNmbUAQ6yVgJVIsMQJZMF JE4VxLUEXM0IvamSmlnHybBK6JTELVlQ1rmdYyNUZsaTyGvzEvi9JHCm3pJX sEZ1wi8pCCHSG+FdLKyUGnIG8Tluim8tYgD1DK8pQwTGbI5IOEoq1RaGr978 4GVNQpsCCU5OhX55sbvSRS8mEvBHg+QAPJyjVF3UsJOp0QQNqZ5P6MbRFLbB Ia/O6L2k1jhT9nrgUudd4rprdt5DPR6WmeonRVA5FYaoaKw8SsDB5xHiDLC3 AX9xgkK7memEQ6yILbchbG6Hw/ZRNjgcGX5njgiI220TLZPtJvlf1smTrP52 292NonV07sUy+Fzy6bJTxmeB0dZ7p+gzTh9HDjxDeBuPiNqiqWEtE8JupZmb fcqD8QbI9by9OsSIYY4wIfqHtxe2uqkPy1esY5HlTM6cFowORyz5IVTi80hK FrYl1A60w7UkW81HiP7A7YoOg1Mp2qEwFZDZtXJA/owDssMzZs7ep+Bx877/ BwLSf2Q=\ \>"], "Graphics", ImageSize->{734, 126}, ImageMargins->0]], "Input", CellChangeTimes->{{3.412042841311667*^9, 3.412042843278241*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzVnUvMZcdRx2++x73fc2a+mfFjPDMe42cSJyGME/IkA3kMECVOkEAaL60o UpwQgZKsLEEsEAIckYCEhDQSrALIGxBh45W3A9hBgsRYgFgQhxUbDIuI1eXW 6fr1+XefOo/7zeeYHOl73D7ndFdVV1VX16PvJ5/8yuc++8Unv/LUZ56872e/ 9OSvfu6pz3z5vuu/8qVV0+abZrON353NZt+8b2b/L1f/+q/2+pr90pa+hv9p /mwun3322eVrr73WfNryNvts7fapeef30jv/Le/cvHmz+TS33xt85MnX/Mlb t24tr1692nza8Tb7/PLLL7e9O0QvyH2/Znf5m/b8jRs3mp/Lly83f21IQ/6p p57ad/Bpun79ug294T0+/fTTGV6gsM/WXkPxrebPdnPP6dv8PPfcc7OFvysk T/ivnjeI7B37WUFkEDs9t+3dBiQwWI296iVBY9g+//zzqbNVv0Yx+X9TCGlN K+RnG9bJamAjhLW9+uqr3Vd2mtv0ZhcQGnRVz/ZoTYi/rkZW4kUEUESMgYwx GQMCrNpnaVIOmin1CWiuEULAmzZvBu4Kae9qW/mRx2fMvRHH2tqht/JQDiZd Cy0Tes+uR4mFd2+YGZENzNUPRLCPcGFq228eBXJes3kKCLDCc5m52TBoMdop 5MEITZ8OMhjaR7ttXKRY+1CjWPMOINocb/tMWxuU2PSnnWNrlrNmKEGXxiK8 zrxGVJgLxoYKF+/7c0y/Qq/Du4Y4FhX6534bVmsabZKUFaGEfdodQBE1g8po SbKZWXfVz6rNhKCEAxanzWFQ1CMW/wOZBcgAv+lqcNea5ICn0Tstz6ZVxEhi bWka9prnVWcxDnLi/29791Da/hqmq2G8+0VeMlzvNM+5Ssz86ZQENGWaSCX+ vt/ntYxps/5Npc0poasBvaJDZkPt+aD5PQe45mWbO9cjc38lWtyMtNHi9inH 24ZlYVt1+UHHxEZx3ZqpbY8am8ENunqfT7ivmsLp31T9PjvtbdY5aMOWaMsW 7UXDis52zWWD2hgrEmVgrG2qefFpmQpY/INODxvLyZ5QWgEOfdVQuEOmDsm8 5PDac7rIM5VGvAPBvVzFN3UVT3g1zNSyVQORm1WKI/p3y/Wvi1IzGxtN21Ez HnLAZDpt8kJq7XYfFjOau8HT6hefD+aB/uyvGTq6poM/c4rKCeDYqtjRea2B vmGrhMc8ixQPJWo4Ce8qVrwaxBplpsjA0+4MbbuHtnIpm9XA7GRkgFqJt3pj w1dX6OUdw05dQ65kgSQSuw0cipN1xwJiI5o9Gplwv+Rt69j1u34fmi3zQnKh eccXS8je/I+uAEZEwvp36yTPhbUhviI60MLHOp/7ZCwTIdgazcc9RGkAFlYJ XWPLIYfunULb5C4NLRuiD3X7vPqLMKBBpev8OMPaa34vvXYm3wJhlTsMXSWw dWHPur5E9Xbt5HLfltr2CrO7hs4um/vV/ciAoG3MGmx+/1s/qzX9NLouKcA8 vlOwMNJKC3pRULayejPeMhOFgWTtfk8tVhk6MtOms9BOcQ8IYZ2M2LzgJumG XlS/BaMpSgI7VNN9x6G3dfcQc50yHWnT0bTH4UVXRoVFXVjP/6mzfaiznZnK LmM2lHM96Uk5brFfwWYAWeNlrNU8f/OCHSB4Nb3js45eZuhl1qEnxwlYv8WQ LbZ+C12iaGEYubrp54i9fMte0Z0JxHO6gi+Wdno54RTss/LutcbJFAOWPp9Z 15BFZZUj+/3pjNizyjSlWtloGbqrIQEBgrBswFkGvoFVsMpepqk9zgql3fmq utEIyUFzq/JvDEGx7TMXzE6xlqrOakZb5rVH1xdYpQ9nXxXS6/c2gEJWQ50Z ZBXGZRRBZM/ocqckNDqhJ6CXPes8uedTpzvXLWcW34lmZtGZgi9nhaPmpFab U736B1QZG/isffVMkotFfsSwVKvPTN9NN1GNOmLeY0Nu2EMNgG4ec6m3B1s0 HH4zD7/My9dRBsMe1WGtK8MOCUd80dy8l/wHpsO3O6bz6vlZPXZyWVrbqcKQ AQU3E5r2HngS6IedDYQqpborN5594xNv+BODLToWs/XhfLtCxxDe7iyyRoAP OmNFvg+UZ2asP1PG2u8wFjOIUSaMlTeBKA/7dNbbVCu+WcbmuQea372+APWz IneoUfUFvN/bOg4Ml6FiDf9TRTXaHMyzZuJyNNTK4M5RgCnqAma1Txd7sR92 CaAy4AxbcwBdXQLvan7v1KGCpj/xf7DTxlthWkmp0r8T387aRWR0dl/1vLXt exvyap/ukXFdhmYPBm3R1lHdV3BB60d4j89ZvWi774O58L1lywbfTAhP9RC+ o5q/CQEL4BYBzjZtT9DCHoOBFcoX5X65+9nNNlPkJ/ddUDYIqwiBbrTxN+mw L/n9rlm9ldemClmVA+0e93wd+KmH/Hbz56DXDy6OYt0r61YKH/jYUH8vfFr6 o+cdL6uv8nh20I3erBzaT8dYzeNAUS4Z8eP2cclLDnyPNoWtI20qa2nQ5bCK UjcMKmpMz7wk94dkXyM8hewPaPZ/FjynLnyJVoIIcv+HQnP8TofBO7KNzO8Q Hqzf+Z7fN7ECqc94m/q3dM2gb1ZWFMhyiWs59Q3hkXL79E/SD6bo44Irivus wAArXg6IfVS921oBCYZFdd9c4q8Inej7VADrTwm9XZjzeCpe9wYMdlbe5bn9 DlxbWYv6ey/LdKEnNJgBCh/y1/0zy+8Zmc0aM43506YrkdpJtKUVa/YfzZ+d 7Ki0RzA8YKwVFBccKDZS/oOHIkowGOlx9nEfmVQBdKDb0KiXLwqOcOKpmMLJ FN3Ok2qT5otC1n9qPi4cgpFQP8pLLFUX9HmO99gF0GJRqgplEljlZBL+1ftU J4MHTvJSQe/sggpfRevcs53G3d5d7bew2IZq0dIe7U+mGBgK91aUv/FeQdiV beEbIqKJL1KHZF9n4JiC/sQohTaVQrM7vU0ioB5C6/BwRJG5P1pxwqN+0wgl AS9EFB4TfsorwoREin4+W2RrCyDtrwGm233VW2elDfwrZlOPpHsSOp4vkFQH GpisurzLEVGxXUHV9LLR0vZMR8JGOK0eB+9hlCTzPsdU1WpNkTbIVnoZfZXw VWqIJJtKksxdcPYy66RY6GCCLmN0mOAt3myP4YZqgnotRqz1mtGCVlcDBGpE 9nE/r21lT4Jj0njwIiP3nGCFZt4VHmviwEnqMt+iK4kT1p40jGFm7W4fg7Cq btQwBFsczygtmqsvK6hnPEhQ5SC9T0bEEiHSiCNYHWGY+q4pE38lcuyMkQPe 0nSXAwdrRM5KVtCQKdP+lmoak9d8mdUnzLkhA9plfUpQP+Iu3RLBhV1n404n TkJfvoZHDAyjaZ6DM9q/+C0jpIlLCt8vO9LsvseMWBXo2DDQL0hffuV0GPGx 1ESZjQZKm95hLXXtrZ7Cp+TxGSHpbvMYuyHtHGGwXdEn1iQA7AUHGntiMnaF bEeFLEJeczqZ/bfKELX7WVNOmAuCC3ZJqB/9377e2RD3J1TOs5WC6ekBiGix hL+wG21RLfhrr+mFzSiw4pyFLLPZIHvd66ykFK1QX4uV4mw5VJUAl/lJ5GeE nyYjDDux6rV21rgc1cizb6om+Z0+oepqBIJVGwk84jYoUgZrlVY5O4ZYiMgQ q4EvEpF/BBaCZBbncxb6lpBoyE+Q9FpKkGFZgoFx6jdK3yyQdhlhi8UrbhVe cXSNLJgXmVoHmVpiHw71BsdFCYmRAYa8IlG+x2u419cFt+Oya1c9EhF5fmwN 8qh9BkjnvWcVP8d41s9DHX55p0w0+uNAhqu35l2+2sxRR0VVPWPn5V3WhMSn s7/yW2MhiE96m1ELNfCL0lZaMWWOx0MyI6ATjfHT0sayfIe8ywxfExR5F+e9 khGSadwjsjgwWNQnw7g4H4RkT/lLVdbm+33qlOvxZ4ubIvPJQGTjcQEcBB+Q Ntg6IX2YPaN93pIAjJmahaWXfzMnji2XrafV3mUCzjinYToiPikAm6ZX1sO8 HoBfRPBm8pvEvjvlLqzGlDPiEikpUn0J3KoHVhnsjjyGq9LP+0OyKM0+4MhV S64vmdlHQaBmFkVqVFoeeOCB5TPPPDO7x35DTSk08A52dUfPgPGaXblMYFUp kcluEXVyISLiaHARWRB8LTz9ZGfjMBJt1Fy+miFRij/TpdKjOhRa46VVf+MV 6Q+GQyGOeZnvlHfRIC61e44FKw6S64kDdQBFbkU5sIfZGFHexpUWJby2ecC7 mbW4r/2Ueb57hb2NrJEcK17QlDxwUGTC0nWEk10Zm60aotvNBN70jaBmWORc 3DPFhrovCbgP3zz4QTh4Xxr17WcCwyE9LqXbjJqi8iX30y2Udn01tZ3WzSN1 LhaQDCiPGuKc2aBWTb1dHgtuCxsWikJjoK5I2EUS5sCN0gZ6S5Jc8zamcikC ror1lP0+LQ9DvyvysMFgD/+4/cYe0hwKVxO63PkOL6fTk2CDbduXG124ty91 dkY4LOiuL395aBoH0rcTKS8Wr2JK8yjJc4CgQw1h1gNSLjrsX7Kmp3ar/6sv ubpI7b63SO0eQruPmn1J8sfO7d5VW7cYDlMpSdQyr36sdD2u/CjjYWr1HyFa XPxtnHu740dP7G7A7YTUEvDnE4fH42rY1K7ELuXmHcq5qUNGsc61KD1dvxEM 4eTISzOVfuzQ2HfaJyxOVdeX5Dna2IxqOeWHvU3VrmsfNgNgYeYdazEGfU8K daF0uoWMbWyt3Jul3g97RUP/r/P5idWh1ET3ZTnQfuuceVLLqZAGFX1Gxrs9 JdNN+WY4172JEgd9yf/N/wGmUe/6io+yXvb/duHVLhGZFwmkQquoqjgKs/ya DItAjqfTlx6Fn5gIOrvNmlW0/2hsEk2juuFr3qby+JPSBlU+KzD2yBm3DPy2 2M9nU69QyvYKkMXhXtQEzNiN7WsBw5jAhTOnBfZ4zXyPHyb091Si/D+Qt1zl sIU1WpZY7BQ0IdFb8B0Tu57ylGNWWES2v13VwRZK+yiMFc1pE1h/eIkcvNv+ 23Ooq9jIeAFd6RNruj5ntw9HcdvLO8c62a/KD2Edxm1aOX4jgW3geMg+qnMc 0W2weksmwIQFuRnjiZZFB0Vcbfz0+P0dE1e9HwCui6cWrEIibMa+ChDerQpK uqSMK19UmxTFJJGEn85tQ5j1QORUOZHSGMQbAkEIrU0psNnpLY0pHjvfS8q+ 4qJjVMZoGkCrVVOqtC63dq2fVzuVuXGCa3IhORxVgItyRey5KuaCklPbcyoU 5Lh3K4e2i9w8dydl2mmMVQsZ8fLIdJy0SX5SJsCsDRgkf/aNpuhooLIn+7w1 fVB9gW0FTxv/niWHTlbJ7vebXr+0qX68Ge9pTZSAsOmjyysRBIkA50+inKn5 WwQ4t4rRcuj8bFaZ/DCDeCckvDAEPAVNdVkYuu+4BU3qNz9GpnudsWwMoxkN qJpN/60xw4ecY2FSfDVVSuupAeiT63yvs9NHIrEl3X0fYXAtkDbd1dceeZVA qrnGPPe1OAaS2t0Ul2bGlYrQy2UbAlSz6N3BuyMFXSwXYyUIjztbVHnE5P/r ilonpJ4ahgAm1JBwBIHOFZDirFAOjJwVD1fPrZNbr/Hcav76XaptPM9YH3e3 hmsPnSpkTXD5Mn5OuiZgCWbd6R0uBwFMhKevHCSl3bSpC2gt6+PQ8bZJpR3d KJqKNNcTTH7/sEOlLEY26pkJ2MPh0RE+XexbH5JFQBEypMPg0VCyY50prFFB SFFJDCpCeeHhauh1SiyUPcPA4KITGKRSy1ZXVAaBqOVyWUgGbRdlaF8zJ5cL 7goqUCfKkrjXRSLIXbZ+kqLY1RSD5hHxXjSfbW2405kmSjHedRodI4dfeRED 0m30GVUnY9RoZqXxxuhGDhpckVFpOxDEQcaVawfx3dT7Cre7nf8qUfyoN2Nm DNTM4MXTGPZpgbnweWvywdQ8rvM+7ew+Iavm+mKgqbJR5qhj+6jpOu7EdKFv Z7EjCnMJxqGLNsjdCSlrBnCYcsw4unwTeTtmej9xVy0ieczhQMz8Pg5K7R3j kNSbsYyyNFF7UydKRceQu5VzLQ5OYo40LwWVR0akzlsQ149SLadX/wwdwXpu PRJt3w68rBMnVLU1lNi5RtWW1vSg5n0l+scKODWUxCGTEYwskDQhR7mdS/Jp i5QSCehl4rumzasPhDEtPeT4hRmm1lbUBF+ztmKoiOcxAVNSQKS8qyvqht5H 1pqC8oTj1fvrUB+7Ad6pqa8HRpSsOtcZUQoNxQBGSz26tUQxaUmeGCPRfH1Y cWiRHcJ19UTK4foFeP1yuLn0VWXUfkeQEPMV7uU8TY1j2yW58aGWUug9ljMo jEoYsAUTPeCDtrWigUUBSlXblETvIKteu8QtWJTnonVWiH50mGz7xySb7tzZ 0yJFQkpFcSiaM021RXVTHTrdMYzwMYDUYpHXsdSvX46ml/rVY7Ub8Cw/1EKq D3LVLfJT15LQk82MJuYAoRYWlQSL+ZxtYZ3eb9eJFGo95njaR92VO5d+fJgM yMO6ZFAvh1tUHXngGtXU65e2aUmO0AJZ6EH2GADWK9KN16cwca2QpWyKBooT aQuKx77jD6DMiJeZVOI/xImC5epOoOi8J2X/Oii4791RdxGGntrQ5cRyn2r7 0JDwqrMNr9toaC8PyM7wjWvq+kcGiIHbsIcYmDBaEjt3jHp4rI4HR+ohrj+L saZ6KIJ+Zz1QdA/2+pZHqg5lGlQ2KZ+ya6A8Eg5nRpZZL2UOF+MSZ2quVaiN a/x89gxHMmhtDtauz8TTfnoNXkm+rIRyk9f6ywCJs0RVa/gVCHEXI7dHmntM 62MDeB5OwBPHtx4YsO1sU+FesA5stsKKGvCwoC8qXYvxPj+AyeI4EL1ehZlD zKvulJHCTD16oTqk4Lvem+Zu0OMKgAPpDUGrlymzg3AedpepUn1reRttWkZQ Vutu5rCCmcDXh0HdnwjqWem63vfVs+jvaTEvED44DM3EHscqKHHUdhlgvIKy jjfK8Sff9Y7qqge2kEYTrU6ETnXKhLWdFnDISxuaeiXi486KWqFg9/GD20XR /vUJMO9NhBlVpKVmnGZUh+2cfOpGB6UHJoA0sduxutDoPEwYQS2xqEyx/taf 5TIfuvQd/+CnJmQ7CEhZ6q/qWQPbhasX9U5ds6buIGuSm5EwbipM3uWzT+QR 9aSJNxzn8LH1AF0cE1Ct39ZQotv+RSgIJr5/PdBq20W7vb1SUeaZJU3muQHk 884hbHgdyC/LJKF3mqBgc0z2e2WgdUsbdVsA4+khcf9eMbAxK5Uf5BHYJzK3 Wa9vVYfgfU8YHI1IP1Df1uF36M4LV3mLUHnKoKrSsVMG9TRDSDhwmuG3pTsm 74mg7fGgi0XQ1sCQlsx82uOtNuEw961tnwpQWgRt2jdHo2pB3hNB2y8EJF4E bU3fG2XfUnKe+9Y2+lZeWARt2vff+X3J28x9a9uj0gZtOQhAeXgRtDXjvakc T2yDPJ62aUrVLHllZ494m7sRivG0bZmG+tsKDROhOgOLHUKVgfW24NVEgU5q Q3/ILI4jrUZSa7+mm7YpHk1Q/RF/VHeNdeLR2/LTb3OAq1h4/2Fj89Bvvuoc gNVcqldYa3OA/6YiiTmlLvk4unkuIzi7SiLvqZv8cvdoP+VBf/sBLI96H1EE tN+TOq+9oZhk6n6oRVrb3uydYczDf7rwij3s6ipTk1FtkqHm1at9B9K1pVpa EIqTHkrcPdpPebDdfgAL2cy9EalBn1zHh0ZJsB7mtQja3iqyoOnc+J0MvW+X FNTXLyXwnp58Ap0yox6IdFfb0ejZbfsBICi6KYdrVa4edUiZDFgXOPxgSnU7 LoI2hkeN2CeNhJDhVzGjG4zNJ82Smn7G2ryPoneu2d1BANKj0odfRbWV+rOv Dx7ws91xJtjzUFePc1oEbVCXNSN9aiecthdL6opjxal72HyuowPBgVuZT2az +DylRN7JB3gdBCCRrq+RMnUx1Imqvn43nxZBW33q4Kv5i9rKELRT6Y/8Fja/ SfrbK+K3S860E6HuXePZevdvYxEu1HON9ioUlCSaLrII2mAcNWtULBmX8J/u W8gdeaYkl4IBubBv7PHa6rM20NI9HWjplsuV4IoZdvJ/WsyFxXi/txFLUHnQ rdlG8O615ve8SD6wy3dDBbbtcT9KEFKJxxJbaz1pvKfbdb9yIpm21Qm1fe/y XNdnEqV4lW36/ZxsqaAs2Y1KRTK1ldr67oPea3DuVPFNHMB+4M9jxLB6G+18 GvCGYGfz0+7P26+QrZ0CbdZhkkcya1hIOe0i54ttdwpWUheNwCYXfFUg0unL riorLcMg5UMdeIPstW1ddeDQ3Jku58G5QgL0duE1aTMSUuxETR49awhEsPTC s3bOZvGQricffSR0TDK+m/MJxJfTPMau+qnm+5CSz49FSuwkd/Kcm5wnOSUp uJZiG4dcxpotn+v5+vkHgrZawo/Tr+a0o1dV+tHTURmGujHZGde7fPtESY/U T6XU7A2PZqrL1dk0d8gOVpONWe5XiCeNdtCXKNl3fFGUapKU2U44EpvB1d/I M/nV1DU5EBrd2HLGpFcYMjj9xhlzt8OYutCgyuuvNLyhZVYX8lBDXfUk0OXn +8AtMlFmZQABdLUv7U/kyNPz315okOgUAyUT96NzivSddU7o4Rn3MUSw5me8 1MWXlVPFc3bpybV4CQM9MzW9g0rusbzP0ZT6sgAuCkpEIjGkdY7T3xX7fWRN 5wd60TZ1aj1dnDFU+o2mHhp0FPSnya/G5/CW23zrpeIc9KZ8vvLKK1NVEdmj NURwWKssyve+mvrt10NR5HU/2xoCVfM/mEj7QE5Ue9YPm1S2YKzr/f3tFu/a pYJzszjPp+doojjjt9ZD3lW6fXcvpEoFu0fIn/s1dHYd/wyf6PwkLdtUyb/J yS/LJX4Itmu+BHjgdDilFchGksUjkXyjlMdHB97VttPSxo7VfdFm/bURgdfy VyTF+aVJDIuayzGZTUPMNeiQD3bLBs8mozfv/XpihJOSWSZUoJ0ks2rsquu7 v7/yDC67Xl+ZTebC2cyufRArVNGuzrvXk6PiM4/6Dy/TfJLqSKZZ9KXSnBFb S6Tvke9xXh7KuR1K3R+TprWsjXN2kGX/92IEa94Ze+N1geU91nN0Fk8k94fe f+Xdb1KAD6wjEtMwnjzkds6bK/e/VmLAoVO/m3gjHum3E3smUb8rcwM/tc2p 9jf718p4KLiRvU7ruD+bxY7jf/Rd7Q93Y09/elpOn8QPgSzO0wzCy3yLzT35 NrLUd/ZRH8TatT6DC7kSeRVf19SzsfOAZNGYdESTo7LjnIBo55jUjc5XPrMC jDEXarInB3moRuFHaRlHnMNQ0ziVLjqV0Jc2HwQ/Viv6ehuw3ixkdRmjJCI3 y7wHGuew32puOwfsdpYJJEtSGN39tlf4TlQM8Jdd1zNsdrMXj30q6WuzdjPp Xc877saiq0Un+basvF82VoqeOCGeymLd5qQJ/C96X9zzhHRVdNysyqdpkbMA NnY1ELdLsvc+o8BXep9NPMwIAmj+hbopr+dTmdrFyM2oXX9VZ9OBzCbpBX9m KE1bEx1/tAR6/GyiFIRrQ6zQpj01ZlJetfNACPKiGoLsBJu5QhbjTOXIMaoa gDi05ovyfdlqvz3cM9OiJWYXBuBgZjS5W53BJ8ERx+kPjhhzIF+z3xvZSJuV QdszQc+L/Mbv6DR197o4bnM2RDVFmj9C9HfkTCA9raEswSwzfh8aAMlByLO6 Tt42be15HyFXl8Ak4zYu6d8Pnk/+sbL+fAV4LQ1rw0HGnGbt3SMsMRRlvCZz RfQJ/6Gy4plg3EXwrpvh9Y5FVwXRz7kLzY/W5FrCJkdBm4aZ6e/t3quBTp/s sEkuu+DTNjU1Wr85Go2goRhkauSMnyv+ikrK7sSu6/xfW9IvZhZpo/HXqneN 4Ii/RvIvBM+50LMZ07yHyz4H2OlQ9RiH2ax7mEh03spuAOKl9bo91hkl+n1m t5cbGiWDRG2P+Ig4kTzyls4cCROJLlfAHOc4kjvW7APFhbGgB2MpbJcm9nuM QyiYz9vPgo1Sl6K2R7wzXoXJzK74h3J+NGdNlYToUkzgkdtHQY+Xh18hAAO1 qhhAv6/wxDJn67JsVXLaRuasDul6vKaoplZCMhI9qjL0kdtHQY+Xh1+pKco1 QNHR81zWy55ldR1L+4SiWPR2udKsKaq5vhyWGJU5Xxm4V9cQWV+XB54/Zsn0 CefQwp5a2LwI2iAm2RxGSM/urImpuXsQU5ReLrW9MnDvbNDX5YHnF07M2nOg BJWyXS3C8utEc2f12J+hdPm0IZ0Xxhis2gR1WpuRYVNxiRRMXPE+eipR7x2+ fZT7GXlwpKIVM3EsXzYqqYjaUnbzbvOe6nUoRWjVnn1RSDIrC1r4wuGhEs3L E545E/Q95b2R8k82YWMptbrvGaqmSVRrM/AopgUsdzN5ojt1SrolwZKcWM14 z3qPnw5GvLheF1H9ZFSgHaXwqiUDuaM2mI8lHbFki6nhkBdLWo7VmH1IZo31 EWU3VmOWctK3c+6GZhc6GFPL6H4qoJgmsGCM1kl31pa2Y1u18/alEoKxIsGG EEdqMoioj5YLapkj5HkiaDtOmaOWZ1LR/kTQdpzyzGW+vja1QW0UOCaqwI2O 9/yZic/hTCAElcF+T4KBbTHJKjUMZFnrtAHrtYnP3Z+ml+XPR/4Lf/K6H6J4 U749lo218T/Q6ORHh0F/aOJzmvfOhDdwpXOVZ38pMLAg4Dni4BSlEoXty2UZ jmMG+Lob3ZGW9X3bRboI96Lc9ejI3/4xWxV5Kx/70PHSaR5RIY9Ojj/xacW8 5IrKFMVDlDdbtePC9pFJgx/lhFsum7qRROwiZHtLclpv+tkCvv2NTjvdcBqu 4+5Rp5evY0SEmTRiqc/nryucL1944YViv+evDh3bqkkz8IFkfUaHylT1/v04 H66Fs9sn+US5fkRLZ7SeS8KeM2Il7IFMglm3RlO2dlmvqX8lYrmE//5ofm33 eM55Zh9l77x/LZVKfTb0mBuJCiz44EY+ubZUMoRb5aiK5fe///0iOYH3+3PR S1+ywkUxZB0zeE2+Lk/JQClt9HWf69Gg9IfU77bjLwrcdTeo7OWGUcte7yrZ Sx1fTD9pu7ANCVzLLIDbhaPJHRphGIjw/mCWZfRdea1vjsunKnpFj58N3F8o oWhVqSe4dShsq2+ZSc6yLAlxYUKCHkOCbEKM2rdRZM90Efd5PTbiWznY48qs H+edAufApxvlYyhf/bHwFYZEXxmvhoy0rAZ155vcQb7qSfgb4iudUbsGWBHy 9jgB951mtQ6Fhu4z6M87mhcywVxnn/V2DlkJl2TUazz88zHw2JuGRxSJ75t7 TfhkLmeZyltKCxuW7azk4WeW0Bw/p0dh75Us0ZMJ1npVHe8+KgbcAI/WLnF1 Yx44CXm+smXwukcnmaEpKIOKhrLXSaxZY/6nQA4Tj0Cuk9+/oGzlBdWd1xup oisNH3mttqp7+D1M1+I20sXNLl+gmhxyPZISPcsZpwNJQM1nNxMnKga1FBXq 2gnLKZBErZ7285gkPTo80U7PiSJQiuCKA3gK5BUrTIWcE5qHINdATmS3/rnf Fz9bXh/hi2WW7kXHkPBxmh0uFKFaWed2IKUn80gmwVxN5Dy3N/ge+hIyuK7H A3wlmLq5dIPjADGNmHcAMJf2YwDGgQN2K9qc/mbzZ/Qrri76WJGXj1AUDOVW ssYDa2Na8380SE6MmPkcSObJiOaFfS/cgoCMODDgsiHntKbm1ROKY/Bm/hL2 svSkA1m8K1CDC9fKFNA4IKXP/fIbzZ9pXxnFvEZuU+YVJeyhLeaLUwXS6nMj fwEzXKa+NOSUTcpQEk5D0SL0WTkm1Cdahu4nO8ofkVljfP5izxYgVH6CEwDh XB6juesuPTzzEqub6SEHyJ13lM3X6FyDBvxZkbWyyPn7taxfzYcuLLIjV1Og nJ87CbxLsbEq4HTDVHU1O5FzDkYPhrj9cw5cd6e5PZHvcbrkxKoiBOibN9KT rWf9lBJ7WCgOu/SzamUkojXry+PqqqryorDOnkFpKWVZ0XGJJMvhh1/tPoRz 3Z8+u261u0fZHc+T+fKnqZUXze//GuOHaA+9ExUaKy0idiBy6M6EvBPkGTcA 1G+CdOD1rbnAX3k9ao0DBG+j1pgtQW3kqEM4qj/MD3Km5rrzFBSXjs2TbsJa B1lnntDoUoVZSe0bUWcaF9KeXJ0p2fBDhaRRfVhjAuTwN3vm/tm8M/co9nOG VkzyYnSgQWPYVVXr1QQZqrDDxPMkp9kbXEzY9VaeXDGh6+EdZ9yeyj+ye9bR rHSpezyIkDegR1kzRDVZYjtkWqq8UN+FhcgCwXvOOmrPlVVU87wjs26h1+q5 pFl/uBVjI2Vx8wLOzu31isaccjv+6lBBWDtzu+XE2gv015nYTd3a5e2crm3U baja19OWS41eBodamIovXN/VkLfC1PzvUz3T78+1Tn1PiHU6VoTDlyOPFdj0 wNgip0LEAbYtsbYyNzvSwKeulnT88fRijhampKtnP/AOMLf4sX1z89zX03P/ G0zgj9L9HzhNVShRh99Ij3zDu9DdSbTD+LmJz2nmBy4M9VSxi1HfULFj+WKC 6+t+X3NvovyZ6xOfe1BgwG/sBVdIjo/88w5ftef9QNO8U5jfmmTo/pgoq+ai 96jxyBUc6mqABHc7Edl26oJH5hbmwcRRsZP8VU1EqFOBOn6nLySSfFzeQUF9 IGhTJyCTEaXg3OOjqpuiPuxvxUBRls9p57za1kwLSvYyAULx5coMv+jtt9dx rF8XCfuoZiscsE41TsrU7Gy0zKYDMuDo8PXxzmIjiMGrhz8CZr1BVK9InwfJ HZJ04V4/mDvbZCoLrkyyv0gcMV2HFDfjMPw8D6opNo0XznT5fnY6Y/32kaCF 5yB0DAW40b7ROCu2atdTXcCSPBrJxlGI7KoM2DpzKy1LadY1jSAK16Qktunu KF/Nh86pEykpNHaJ1aZiladHpUzSWIFcg3Aa6cWOFsgUyaH8iS5kiw69ySxu IW1tkDbZZruw/suJmBcbT+aQ3cQvJ/mt4/jpk/3eKwgz4DCKfAgYHUxhNh7P Ff6CCW64zK8a5GT31ndwZLCNdYJdje6pqOTdm263nLCd7ZYYhZ1xlQQ9MA3h 1ju+71B1R06mLIEkWf9rT1rT5jlzsJCmOJLTMJTzNbZVZFYmnD+ZXS5sZvVU 9P5kyQjt3QJtpbI4FjMOmjaIVNPmNIhIEEl1P0jbBUj4YIh/q9kjqXhTZkUU RYIjfQGUS/O2SjOUKLIRKy+g3zsoeBTeZClRns2r67KxKmrxG/Gk5vZ2ktcR 4fgbjusj4xzEyHMZKazjn8Oo+bmsE/qdbpiqunZIV1HyGY9iS7vxEC2AqcDk 9r7AHYrXZUeaF6pyXE7HvPDjyNSpEU5iToRCJFNTQNGCLUCpI+w+ztYwQZX2 zWsD4kQCn0p47KHtihO5OnJqYNM+IE7qwO1xeDf/u0Mxmwrq6kho3r6IacqT ilkyTNsQOopu0zmtlrPq4MQxOXPUNJZN8L4xxNuBMTrTfuiwcBZCTLvEysvu GeZO9YiUHAzJ3rqO8/XW0e0IjdB4tctrOKNa7egbwyO0ThK82mnn28govDNC +Kkyyo/KaL+3/SAzLGcdauqKZsX4/1ixUvhXvAIv1GEMuzgOXaPzZqgnQj4S yqcGAmpLs4oZ5c9qxWrw1u7Tzh7crlppagDJ0R4NTvTg1ju+6zU8F2jQlhHm eR/M3t0zT9iBqt3ut8IM16nsTCZaFCdZYadfWc8rbJ4Uei3scAWX99S6SArY rE6q8ESGx+zPCAq6rHKPoAWC0NJnmJ7r2JvlAtnJFGGPgsNIzxQku4DH8y78 dF7/+NHR9BV4unuu4HZeftkTtM6fO4poEBSwzxqQwQem/kl9D7gc9Byo1T6A ry7bUPl7ed1TBQ8j1JrXoqHdYsmuO3XwOuMX50SUzo/4e9cjNw8nikcRKLd4 +o9r64FrP4CLhQPvuMMUgdRvasbD4ejv1t7tRGRo3u91siyibVnz12aDyldd Eh8TcBk+Va/OiyGFotj6ml6sCgKbkO/EjMJxZJgtl+256F2K9YKwNxGE/sno 7VoPn6s91J0U4S8o8UsPF5iim5bL+HA4rScnerEXtHEAVHeiFkWyg11YCG0x QJk8HIU56i/sU93sR7UUs9U9zG4Yjt2JcOwcs3/99vap8Ri9z7rNYS0aU+WI BdX4yhMkb+8FbRerMUzzPhj0F7mPowThKCjHYYpDgVxx0uYvPhobf3fi+BF9 ov4a+jTRpUX+r4HIQ4YnHUR9WOZjasA0M9f0MxY6DbM3/R9s8H4I\ \>"], "Graphics", ImageSize->{649, 164}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4120428667812223`*^9, 3.4120428682122507`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Equivalent circuit", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}, { 3.406459821066276*^9, 3.406459824773054*^9}, 3.4090589019399223`*^9}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXEurFdkVrj7n3HPuy75X2qveK9pqoE06D7ttQoPmpQQTBxkJicE4MNKh JQkdfEyEdIwhD0wmTs1AR4IQHEVw4CAzg+AoSHTSg4g/QP9AZX97r2/Vqn1W 1a3jo1vhFpx7qlbtvfZ6r7Uf5/7o+JmPP/r18TMnTxzf/oNTx3/z8ckTp7cf /ORUAPXfKIpeEa6/by9wX+I+/amuHv5YSGfAj+PXsLx16xaQlhcvXiwfPXoU 7/fs2XNbXj958qQ8cuRIefDgwfjBfYD9LyHZHL/6EQnehE/Ri3/75eXLlzlk 8WH8OyhJPN4FbL+X7idPnoyvzp07V+wyMNCDpwUhBgRcv35dWcF9gN1w0Lxv CRzFnoag8v79+7Fp+C4+iG1mIjYwATRgO2EolP0AL0jxnTt3yIxSDGrD0PFp Lv6dGsMJ9Q2kvdFk8Q8Hr7AwL6ioHH6CkgTVAPeEYZiIO3TBYyYvUc9AhYU2 4dMT0mzzILBeuXXr1kCXAYenijdLEMTekxaQFywKT9NGPgEbCNR20IMQLXiH sQ3kAPygUvTQk9d1ByjjMGG4YXw9H6UMLYg5RmzEQp5hCXLfi2TPRTCIxsAG a2xGFGIIIsLkOhalDE0JgwqAaiMltQtBor8NUQwkmKIGjKPiG88YhZRCnPjm 6LhAUaA8SXKbi5YU5ZZOhoEil5VHSoM8cZ+4Wqq9JuWAtXFBB6DTUYgiETVf y47K/C1VFa0AtkXKwaFHBq0jk0wYClY5qlkTOZdQGLygsndpJyROM3qN2bNI mS4AgQOUnCo5DIayw2ZSSCOsixjbOJL4qHorohmGVmLwXh9Hp2K6S9ruWaTb YCviApsa/bYLHom6Hr9xjH6U13o1Gsdpu9q20DusGTGDhqpmhw4F7UJM1CJT mHUpq13rhjnrE0aE4jXwQ2/oSf0w4JMcU7wpPkXKK59KtQe4EikO5SW9E5dQ JalmVrvwwnvJVvEZQwTqh2ZUaa4JDsyKjDQRknnoiO3AHGBI0Sl8z6ig0B9k slSjTsB430QRyQLC8bzqmPqx7JhCg/eJlLcam7EAAcxKAd+UItvK0IJzoF5U G6ouscTJekVnHREXYAypLCWS1sfIFfw7I5m2H3Hz2ZobJQUc1gOo6FwcTfQ4 kk0K+aD2Kid9FeWotEEanXE1VqzSWfGiPXEybjbR4Ykl16xUefE7jEHb81yH UsztOpA5kEkDuSy1ONoUUbEqwcWauslQmrix91K7Chdzk2hC+mx4Lsk2GslC q9d2I23ZYzXewx8s3hwPxmZEX8WmixT1dtXGajPKXCR4tsG3ze/sGJPEgdfJ 8ZzwWZNLk+PhXXCPWgYc2AwIDHbOWQVcTGZmalO+JkHayZd1awgiEDDroF8n MM5N08ypxAJEmlNK0RubeWlwMcLGQ0mnNDbVwkZVC0jt3RODxugWozRjL75q SGLgKmHqW0PWFG3n9qnvgkXn8sQQyUrfMtOXmGnyspYOuVws3jpdI4V5Ts6g 9BwOVDSIzyO/l5GEi2tLUiJKm+nVwjxXKcT0tHJERTkt1syMwUuszzPGeRk1 78LoKkwlP2vOJ81G+Sw5qIugJsNLfbf5XDfaFlttmkGBgbDR62bazDPeV243 UhfxxNyXCTvszU76EsnJeYyJa8jzXEm7zNW8wg7dnI5eeW9ylNHmTWmt0808 oenAgIFYCEyTuhnNjJ4ouiSfuHSZWMdrqQV1XcZ0EReeVfZYlOCZboxnmVoz bAOE15AoZ3AvbLbVlqbmrX5rqPM8hee4WJt0yUqFTVggC7pE8GYtYswCVPRL W1yxYLQU2JHxnnDgYLEUcPeAwGjYyocrHPVU9OYYao8UtjH1VOJoyfUrVjdN HHhlnplyFomNdS4buZotW6lvqZHQ0sH2nkgsTNazZsRUOPGB4sTLarmKVpoq r426PiRRTitGT/FNJDrmaec/XhdHQbkJetKy6aoj2pc2Z8ojIMik4+XvKfkO dlpw0Yk8crzK0Ba0T64ditDOmZr8yPIygUu/Dn7kjd3Rj2yiigmpQ26i1Bss qbZUiOFkGSR+MwviWdY5ui4VjgQtXRdtufzLtVI8Ax4MsC+MMLvL0uvIYK5v MVT7ZMzmeVwSgjlaSrKzWgBQvZx9s1YGUYEJliPMp5UWZ1U0XAu2I5K/AE+i 2jzx3hjrOq60kzLO06VqiPe6YL+iK0ze/hglDlguoyZyPK4COXQx292uyXPj lHHbbnnne5H+mvxsjZUmFQecqflI0TtkaLWZSSV5yCDfOOG8iiLnR+RIZJmV 2r1y9sDrarFj0TUCtjN7zcoD2lNzmlsGeRcWTLmeaNy1ZrOafy0RjtBY2Tna L1h7NanGo98SbWTj8VlX7aLmK2ttbRterrFWe13ownSirjN0XUflsHnMOzyP svxM6OCvnEetGzOOPCQ5caZocKn2yVWK+1t0Ok3x0VLtCQZuXrEdZ4qUGd+x PXExXEtiLZhUvBRmj30w1ZlDRbV2kkkUZraU9FyRHYPHQxomz/ulkVnaLvY4 aLYJGkrSWlwgfb28psR41XYN6xi9xc9dDoxzaK8I/WZH6ndYcxjVzIF2CHnD DHc63ecEBh1JTnRXuwjjLk2lk3ptyUqHBs2igTqX8yhoRymZLnLyaqhhygpb dVHvstKo0kF+yCueWqA+ISW7iSSuN5k+1ymMgSDfA8W3XRJEDqXQLRvvOJwb nF05r5lDfdubKU/WBiJVAdU2A6bHB2xzhh6IEa84n4/b+vDeoYIwPpsFpJtM bxuGdHk9WatN4gxzwIBIS6Hb0zAfOrBFB7acWTDwvS18ijfw07M+nh85kXUT rh2ZnKTkWdguh2tOsMI3V63M2UiNrYGIOYeRrwjMYCnWd2Q4ubssclVRN82S 09yQ8xNE3e0GBRfNos6SYT3LidI1wEsCHEgAraD7dlZa3Bpvmc484RJHLXZL RzovLOsvq3VEFvlGbDSlBzXps8gSfzYIviUDmNK/4DFUOg0/GCXhHUZczCYm iP7JQc1pNGjv5/SKlxVflsaMbWmOnqhhxVaaisVM6Yo/mkG/Le95fqs6tDql lRSrIlDBcS+nk83y1MxjYMLy+B2D2uyLyrBpc8IqncPBnWWVRcmjnJpU9V2n L+0Dz0w4FFGTzXzP6UM8JhUXf3N0aeZ6yUzeM4OBaFSatuMnjn1ZvVIwF02f MhnJJIBD8X5Q25II8vynafLDeD+kh2gzWfx6Xwjl6gyefjfWfcrrLie+p2pT DEm5xacGx/elHc87clalm1iZUOhsnBbwkoRgUe8V8m/evFleuXIlPtEQ8Ax4 BZvRc2msCCxbPPC+Q4T6+PHj8u7du/Hz4MGDkYAzLnrVVkbfoit+m8i8gK/3 gPjreveuND98+HC5tLRUo3rLli0RXsHqPySA3q5duwZOotTeln6gFv2qSNYv d+/eHalPhCdcuQREyLaE5q8CLAfZbuPXHNhXO7ZjMDh69OhYfMPzoUOHDKyK 5TxPiPIhijqxPoJyypWVFQ3YJ06cKE+fPg2YOt3t27eVAC6Q5GLFQCw0jS1/ +nLFcODAgQh/+vRpTQz79+83iqtPVnfKm9Antrt06RIMgBID+OrVqxENBAPU KbpPe9KM9EgAOP8ymR1FYgEXq4zfeF5eXq4dTocvIqbSU2DJaBe4qrWjQP7Q TPZG/OXvRahqme0tOu09ljaKYGUlKQJlQVYr3jF2c9MLvCZzJAOMb5bRGzdu REzBfl2BrMZoFi04RCC0K69LgoalBH+VI1NQj900tZiJdkfThUniwvfevXsj PDhqwYQDqQAWYpYrkBZGF5J0Q6iyZ4KYo+0cFwrwCG7jmyWWSJzPbXzTihF/ L1y4oHxLPI6aJ98IToCF98VfJ+URl13skmlTZx7TL9PmazsDuLjGc+zYMT3u zwXIVXinHskvLsoBXguPTdVSyqj0vnDfiX0uesvmWnwN8lhwSCx7ERLg+hqP YXMiEJ7bJEDO8S1BWz1A4ELKVLQUWADTFdyccYKWg5ZSF/4SX5tLo2EzOdGO ZlUmWfHuqsdwjFPZLWBaMWvqabXi3Yh1JpID8mnciaIiKhzZNbBR/BSQX3RX Y1+Pl6JG3Oj02NARtiAwTpKsPOyv/5ZaFEelkcOHDx9qchLlyRrHdHxmOoVk zp49q2Ye2i87w5yaRC5cAMGs5fnl4ms9uMymFnHYqC25loVJTEsop1IeT4UH bTiwv+0Z2O9qzC9YEHKcr00QtHIK4vz589pObEWrN4a/EOpkEa+zFLw66fMz /76tw0LflIcZvxipkbHZni6AiP45sur1TevRI/VcmCMueOS+ffsiM7aWJpvv CIxVFtq9YqzwgrQxFwwBRlmRfGr6jeVUllIAcwgvnnwBHNr8SA7n5+djfiSH DMml2ukgJhtWlcHduFOAWR9fBbDn0F8QkyyDcFGtqfhP/SR7GiaHOpOjKqHq 8EyfRqwFw2UHdcYlhsYcEt9yOmYLVlz37t2LPW7evKnUGo406oFawJESuNgA rsTqihZl/Nt59SshB27JmSEurmmEbyUH79EOTyzwIBm6+IqDv2Xof601X2u+ 1nyt+Wvd/Cf4G3NFX+9+voZiDcUzoPiZNv8Id2fSq9juSw66/6697/y+TNBX D8BpPU+Vy6Go+6ZJKlSndN3NLJAVth2PCnF/CZf5Fxq2adpom4uv+CMR/nrU Hv033Wv9t8f7eV295MSXz/akpiF3HEV18BtPnGDYX4GX1fa99Zv/OKh4NCeJ oZSjEEXfbtK6HS0NnznvDZtaDRsai4djou3rD3IhOs4lzLmy4kGbVbyegOKN /wM9okOq\ \>"], "Graphics", ImageSize->{512, 155}, ImageMargins->0]], "Input", CellChangeTimes->{{3.412042907248392*^9, 3.41204290861679*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["References", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}, { 3.406459821066276*^9, 3.406459824773054*^9}, 3.4090589019399223`*^9, { 3.411884245742394*^9, 3.411884247888488*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJytW7uOHMcVbc1Mz2NnllzSlATaXoEGDMiAIcBg4EdmK6AiZQ7WcEQLBrSB YUMiHBAwoJiRnPIPGBlwxD/gF/AL+AX8gnGdqntun3r17ApuYB9ddavqvu+t W9VfPn329V//9vTZ9VdPH33xzdN/fH391bePnvz9m9C0/GAYFs+GYXj4aMD/ x/Cv/Zqef+KXtvzwhs/jn+XxzZs3x3fv3sW3e9b26tUrQg8fWhtgAIu3abIx TfYHmez58+fx7b61PXny5Pj+/fv49pG1AYaTXeL3MlK6JCax40/x9zq2XV1d HY0fccIw+Nc6TjH+T/w9xnEcg5+AxPB9ju/jx48dt4jv4vjy5cuPrRc9gMDb J9aGiYj5nw3By8tLDHPkgUxo+01jyH+FUSba4d8Jp98L88nDHwnzQTbeiB1g jOzEw2KpM2sDZmAf3lbWBowJ94VRIWPjYyj+qjFk1Vjuy8Zyf+lTm6Y4RHBM jW4MIwavX7+O7dfX17Ht7du34MACQMO5g2EIfsAMgEJcGIoH72Aa+gOjhkVc 8sLbX7x4EUWM/7E82vFgLo4zQSjcAo0Bf6oiugKmC4wvNDERuYkzESvV5oDt kChaOhbhb3hLGgzmoF2pWBpP8U67TevsI1fQTnhQBMbNrUvmBzjj0DriajKM D2ACt1aGVmlYoTsMzQ04oG5tiQx9pr5t1meouS6EuZRamuJCjMI00DUS8sqV fUIXksEcEN/C+gAP6kAxYALsbB/xwTxch/BUCLLF1xmT2kzYEMqIDBqSU5RY id+7TH7FuNiedAKwK8fW4FfWbIyjUSTWryuxGI+XDWQoXcxk7S5dKpCxKGpD QmivxtAlwEQ2jKfY2GHe0owM5mza6EyAbcIsiT9JnvBfxfVFm2kDrek6PA0z UJ3pL2g1VGebJeF6pzk5PR7p51AqQMC9NCi1APqMmxhnYmmaSzG2ZSrjBBtp DTTSgC6l0iDU0FmpoeBZzjG9liEcWEmEuOukLUFY4JHpnkft0MZpO/hHWqNA E7b3MyepsmEAU92zvKFFfVLlnftvrA3S6Jclmlg4mdQefSAHJpH6ltpnqG6z yKXoZIFyGzEvQSuw0SOHrpS49yCLh2SIwqKtnL6IvfWS67gkmKLhO4Cuzf46 UbrHLoRNJUZpDlMYMXvCeuLQIHxWNEAH2pjQNKeVHAszHHoQ5QfTHLeaM1/d hsXZzZg9eIe/CfzgfAABHMLZdRpjJW0Ts9DEDcwQXGUZX9BgxlXOdCwSRmYb CmcewmmWlNkxDCgsrRuqojEB/3tisWTiHHMRDgEB1O3E87gqu0EblRKPeQHi CK7lWes64xZnDG0axplx5inBvtXnUwATizeWWk0oWGrpbZqmlPEWxDN1YerB n6TlqU9jJH7gdef6uA5wAU4tVRVrAo4cIoqSLUGSzUP4lqOG37bgXSmjwJJ3 lx2IK5puH4gxOQiuiTRU7mT6amaaWV3IhyRm7LqE1PI79Pga4RvzpGXv+1T4 SxXAQ1cpMcJtQ43Z0NasqZjOtaFmysGpAjwzLmJt/rReZt/FerDcGw/+Tstv uwZl4l0ZzztictBkF7DUXYatwub2DAtdeW5lPlddQEHkjPmMLd5b326WK/Y3 M0N9bF7mUswG4WADI+OoWUpyS2SSg+Hw29AcBhvB3CONObKe2JnkmH/Jpiim dGYQHdszO9M0kU3zbiqZc8zk57bNAChwDHRKhVv3XfXC8dFQ0xCpw6TULE1N ZmUrpv0quiZk87jKTctMNK+0q2bAqhzDpWrQTcmE2aXYhwT5ZKaT2wsdzCgi AqNFxJ7qhLmShZ9lPC61iVjHHVBaUbAoiNhURHAjgarHuiELDe66J6YqYCyw 5+YEuTEDtKqP5T5VQMcOnRUatJXOSXdZyniNvgRPlYIb5zB4zNTduzf6fAp6 EQoooLstqPHwFgte5AMm4g7L9naVdgxp02Y7zH7f1mhUhETOSxGX1ivV0Rbv wfNgzPltxpAnAdVUYgFpucq0oudYrQHen3Xhb5WC0O2dQFskc9Hj4knSC4+i lZNUA9n4tHMepaROFbuVe5Tc0/FQFKyJJMK2h+RIY5n4F7Eu7oYQWc57AdaH 0BZU2Zn3zeUgjF2LG8DSHteaonGfwuo5Epqt9c1lFz26b5FdUMJSx/NaC3U+ OXRRB80rSk1NQ/H7PBNhyVz61EKkg1ZPID/6cJ2jt5W1/LK1celt/2xqlh/L QDTFsvqIxLw3Q10vZzAwIiVZYEJ0YQU8Ch9BpJUFFXGxIj6j5CShfbXK+ZbU 0IadZZGXGifVAUog1U7ueW2FqwAJOnyuzvMzPExKFSuWNhs8HW6bEBAf/IV1 9xOCsyo4a7LFamNoU37rY0dXuiVlPFLpFspELJ0yrZcYnMWzk7GjVv/WjiDX awn9cRUJJktPVye/ODJsuwKkWi2oPLj/QB9geMRG7hV92wY+ItC0Yh0j6FDo HIQEcC+Fq7UG8JpZu9lZ5uyjH6hzuEMX7gfkAPtZdPHUorroBtdTcxkcqxrF kUg2dJB0o0ghlIqx0XaTFIDnBqwMe5G/VatJSStT/8VsYFhMZcrbhPqu6Gha 4JVacMaTZDzmRrj9zOJ+wcomL8t9wo1j/i6r7nC7L3Ysx+ZtQqN1HT34FdjW BG8z1WoIk8EJYHAKzAsGmaInHYtvt4n9WbDaVsGK/2dgYwaWq8MDpwe0kb6Z PNk5Xca/bMmNL8kpLa+N1t23pT6vZijKVe1AUKeoQX0t6JkU4tJjNWcEv7T2 ItWL+M4DJl2x9Ds8XuuoXzOHMK03lO9oaU93AL6uVvu5buAGU4j6jGR0WfFW RrojMnGINWpGPqCn9QHT/Z1psU43TJkekNToZruJMhFklDZabpcljC4yrfi3 DjlayULpY0fe4nKcUwkXBautC5IC5LspgjpB3opiYYRMLWrXtz3JiH2raNlr vZSmOrg8Nd7QgQHRiADD0m2nflCebCAXvEn9oCPdOlK0MV4WEjr0WElptQ8v 2gvSOmsWjdky3HDdNmVQnvEMX08sqGg2/xyqYDnTVNvbzISUXMvLXXkhkjgn r7ukFHmdoVop19o3wViGexA/3p2OBAyLnfCU/JjjqW4AuC1lHcSd5r0qIyOL ebjMa0HkWQPh7AiAzp0VADxMP1KpEiPy6gHR0iO3hmh9e8uzZM6RtiXoO+86 9zLwyJG8zfuJ44O/rF70gpUGm1NBzY7CPTGiDtr8CfWPnBXs4vSt+NdbUrfr tlzfuH7mbae41aKc2/2bhHSi01jLFHvmEOJOedPID0jpG+QelV8u8StZh+x+ Du1WiwXUU2ujAVJUZgp0apqv5RawcgSsXs70Qa7XNCsQpIfKhCerQExF2mmK dXYbQ0oQWmTzMbIah01XjrrXQstSFS8f0Kv5dVm7vJW3bTM9ILc5T3EFlNE+ LpkdQJQHyNM1tqVzLr0lJ0GN4KJ6X7XVt7F1lEAj0gVb3ITUG3mqSdDn/k2J NjxLWVJjzS6dJTEN3KPnF+y8srJyj2Y/VBK9NCjiI0ZKmE04iy0PrAuh8MYl wbNVNq2ZaHGuK/SKeHg5EAibcfNqq64gNTVqIWeZ5ZpgBsUnt8nxHLNd5q8J y+p1zwpc6ingRR3rycKtsMCRk5fWhMcuqzlHA73qhIScnVFaqrcWJFdJY/wG 8cpvZQMyrKUbBU0XEHrJpnKbUqAndriP/ZyeZDGlYBvek4FgzEav0bsCmfiq U43jUYs/dnVEEe978XUWXqiJYSz9Ee8R5geiSBIfVFGpdZWzFb2IDt24K33C nhcKFXOey1qJZeDVhzLaUXPLJXl2Tioxh55ltyIkfVTNtYfNNZRVEDdF3YIl pxnMWxJKvnUmV1j6NNoGtPkt0B1ro7vEG7+x0e9zelcH9JosNX0Y9OpA68Rh zSsjsVGuD5DjlIaPk2U5DO9TQSr/TIhn+a1tlXA1Q5Ft/BRJr1ERTi6ZDj+V sYxsTHHkmMC/NVO4ezNwPCY4HvlpUx5fAo37Bjp3C7R1Sm0bG8tcNOC4hrJm LODAmosG3MfS1ttGHo/TSUGdHKz8IxaD/10DlCSrlD+zNlXo1obw06RWc7bD 0qO2MejBv901kWumiMcU88fWLZ/eHdOi2b1eOhc+V3qReDpMS2/HI+9S6RC9 TawXo4yArFKZ32Me9aNFv9ezExWx+Dj83NpkF+/VAjldGX6CtvIzDNUdOScw 71N/yoGJ7jfg9bNNi22up2QUKi77BmK/bIz9tEHUL3oE3J1BVmsq3FCw77fC /VxzJ7u2YvhnHY0yOvhRqSmYzOTWJV8ZDvrBHS9y6hVhckE5TbiHhglDkYbA eIP+KvuWT9O28ls+S0pGQ1cVjrRxx8NSC91/serALyqYS/GB7AKm/IJTqsSZ 56bu/6vR9sfG2O9EPcy9uQoy10DKx3X1kwrKSplqsvpcZEDn/6G0MTZrQKC4 J52wD5Knhv/jJ9NVw/DB/wDFIRJk\ \>"], "Graphics", ImageSize->{628, 25}, ImageMargins->0]], "Input", CellChangeTimes->{{3.411884474852544*^9, 3.411884478995015*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", RowBox[{"CstLevich", " ", RowBox[{"DXi", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], " ", RowBox[{"Nu", "^", RowBox[{"(", RowBox[{"1", "/", "6"}], ")"}]}], " ", RowBox[{"Omega", "^", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", RowBox[{"DXi", "/", RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tauXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}], "^", "2"}], "DXi"]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mR", "=", RowBox[{"mXi", "[", RowBox[{"DR", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"tauR", "=", RowBox[{"tauXi", "[", RowBox[{"DR", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"k0", "=", RowBox[{"10", "^", "logk0"}]}], ";", "ao", ";", RowBox[{"kd", "=", RowBox[{"10", "^", "logkd"}]}], ";", RowBox[{"kg", "=", RowBox[{"10", "^", "logkg"}]}], ";", RowBox[{"K", "=", RowBox[{"kd", "/", "kg"}]}], ";", RowBox[{"k", "=", RowBox[{"kd", "+", "kg"}]}], ";", RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"CEt", "=", RowBox[{"OEt", "+", "YEt"}]}], ";", RowBox[{"tau", "=", RowBox[{"tauXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"\[Lambda]", "=", RowBox[{"k", " ", "tau"}]}], ";", RowBox[{"m", "=", RowBox[{ RowBox[{"mXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}], FractionBox[ RowBox[{"1", "+", "K"}], RowBox[{"1", "+", RowBox[{"K", " ", RowBox[{ RowBox[{"Tanh", "[", SqrtBox["\[Lambda]"], "]"}], "/", SqrtBox["\[Lambda]"]}]}]}]]}]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rt", " ", "Cdl"}], ")"}]}], ",", RowBox[{"2.54", "/", "tauR"}], ",", RowBox[{"2.54", "/", "tau"}], ",", RowBox[{ SqrtBox["3"], " ", RowBox[{"\[Lambda]", "/", "tau"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Rt", "=", FractionBox["1", RowBox[{"f", " ", "F", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"R0", "[", "V", "]"}], RowBox[{"Ko", "[", "V", "]"}], " ", "ao"}], "+", RowBox[{ RowBox[{"O0", "[", "V", "]"}], " ", RowBox[{"Kr", "[", "V", "]"}], " ", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}]}], ")"}]}]]}], ";", RowBox[{"Rp", "=", RowBox[{"Rt", RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{"Ko", "[", "V", "]"}], "mR"], "+", RowBox[{ FractionBox[ RowBox[{"Kr", "[", "V", "]"}], "m"], RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{"K", " ", RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", "k"}]], "]"}]}], SqrtBox[ RowBox[{"tau", " ", "k"}]]]}], ")"}]}]}], ")"}]}]}], ";", RowBox[{"RpV", "=", RowBox[{"Rp", "+", "ROhm"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "ZR", "*)"}], " ", RowBox[{"ZX1", "=", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Ko", "[", "V", "]"}], "Rt"}], "mR"], FractionBox[ RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tauR", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"tauR", " ", "p"}]]]}]}], ";", RowBox[{"(*", "ZO", "*)"}], RowBox[{"ZX2", "=", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Kr", "[", "V", "]"}], "Rt"}], "m"], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"tau", " ", "p"}]]], "+", FractionBox[ RowBox[{"K", " ", RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", RowBox[{"(", RowBox[{"p", "+", "k"}], ")"}]}]], "]"}]}], SqrtBox[ RowBox[{"tau", " ", RowBox[{"(", RowBox[{"p", "+", "k"}], ")"}]}]]]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Zf", "=", RowBox[{"Rt", "+", "ZX1", "+", "ZX2"}]}], ";", RowBox[{"Z", "=", FractionBox["Zf", RowBox[{"1", "+", RowBox[{"p", " ", "Cdl", " ", "Zf"}]}]]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], " ", RowBox[{"if", "[", "VSta", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \(o\)]\))/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \ \(o\)]\)+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], " ", RowBox[{"if", "[", "V", "]"}]}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"R0", "[", "VSta", "]"}], "/", RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"O0", "[", "VSta", "]"}], "/", RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \(o\)]\))/V\>\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \ \(o\)]\)+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\\""}], "}"}]}], "]"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"R0", "[", "V", "]"}], "/", RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}]}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"O0", "[", "V", "]"}], "/", RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}]}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"R\", FontSlant->\"Italic\"]\)(0)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"O\", FontSlant->\"Italic\"]\)(0)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.7"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\"", ",", "\"\<- Im \!\(\*SubscriptBox[\(Z\), \ \(\"\\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(p\)]\))\>\"", ",", "\"\<- Im \!\(\*SubscriptBox[\(Z\), \ \(\"\\"\)]\)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc4", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\"", ",", "\"\<- Im \!\(\*SubscriptBox[\(Z\), \ \(\"\\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\"", ",", "\"\<- Im \!\(\*SubscriptBox[\(Z\), \ \(\"\\"\)]\)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc4", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\"", ",", "\"\<- Im \!\(\*SubscriptBox[\(Z\), \ \(\"\\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \!\ \(\*SubscriptBox[\(Z\), \(\"\\"\)]\))/(\!\(\*SubscriptBox[\(R\), \(\ \[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\"", ",", "\"\<- Im \!\(\*SubscriptBox[\(Z\), \ \(\"\\"\)]\)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc4", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\ \>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\ \)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ "\"\< R \!\(\*UnderoverscriptBox[\ \(\[LeftRightArrow]\), SubscriptBox[\(K\), \(o\)], SubscriptBox[\(K\), \ \(r\)]]\) O + e\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< O \!\(\*UnderoverscriptBox[\ \(\[LeftRightArrow]\), SubscriptBox[\(k\), \(g\)], SubscriptBox[\(k\), \ \(d\)]]\) Y\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logk0", ",", RowBox[{"-", "2"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "5"}], ",", "2", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)\>\""}], "}"}], ",", "0.1", ",", "0.9", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkd", ",", "2", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "1"}], ",", "3", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkg", ",", "1", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "1"}], ",", "3", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalOmega]", ",", RowBox[{"5.", " ", RowBox[{"10", "^", "2"}]}], ",", "\"\<\[CapitalOmega]/rpm\>\""}], "}"}], ",", "500", ",", " ", RowBox[{"5", " ", RowBox[{"10", "^", "3"}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"DR", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", "\"\<\!\(\*SubscriptBox[\(D\), \ \(R\)]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))\>\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"DXi", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", "\"\<\!\(\*SubscriptBox[\(D\), \(O\)]\), \!\(\*SubscriptBox[\(D\), \ \(Y\)]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))\>\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"REt", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", "\"\<\!\(\*SuperscriptBox[\(R\), \(*\)]\)/(mol \!\(\*SuperscriptBox[\ \(cm\), \(-3\)]\))\>\""}], "}"}], ",", "0.", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"OEt", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", "\"\<\!\(\*SuperscriptBox[\(O\), \(*\)]\)/(mol \!\(\*SuperscriptBox[\ \(cm\), \(-3\)]\))\>\""}], "}"}], ",", " ", "0.", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "YEt", ",", "0", ",", "\"\<\!\(\*SuperscriptBox[\(Y\), \(*\)]\)/(mol \!\(\*SuperscriptBox[\ \(cm\), \(-3\)]\))\>\""}], "}"}], ",", " ", "0.", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "5"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ROhm", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\ \[CapitalOmega] \!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\""}], "}"}], ",", "0", ",", "100", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"V", ",", RowBox[{"-", "0.03"}], ",", "\"\<(E - E\[Degree])/V\>\""}], "}"}], ",", "Vmin", ",", "Vmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"-", "2"}], ",", "\"\\""}], "}"}], ",", "logwmin", ",", "logwmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc1", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \ \(dl\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc2", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = \ 2.54/\!\(\*SubscriptBox[\(\[Tau]\), \(R\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc3", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = 2.54/\[Tau]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc4", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c4\)]\) = \ \!\(\*SqrtBox[\(3\)]\)\[Lambda]/\[Tau]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{"(*", RowBox[{"V", "=", RowBox[{"E", "-", "E0"}]}], " ", "*)"}], RowBox[{ RowBox[{ RowBox[{"Ko", "[", "V_", "]"}], ":=", RowBox[{"k0", " ", RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr", "[", "V_", "]"}], ":=", RowBox[{"k0", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{"F", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Ko", "[", "V", "]"}], "REt"}], "-", RowBox[{ RowBox[{"(", RowBox[{"CEt", "/", RowBox[{"(", RowBox[{"1", "+", "K"}], ")"}]}], ")"}], RowBox[{"Kr", "[", "V", "]"}]}]}], ")"}]}], RowBox[{"1", "+", RowBox[{ RowBox[{"Ko", "[", "V", "]"}], "/", "mR"}], "+", RowBox[{ RowBox[{"Kr", "[", "V", "]"}], "/", "m"}]}]]}], ";", RowBox[{ RowBox[{"R0", "[", "V_", "]"}], ":=", RowBox[{"REt", "-", FractionBox[ RowBox[{"if", "[", "V", "]"}], RowBox[{"mR", " ", "F"}]]}]}], ";", RowBox[{ RowBox[{"O0", "[", "V_", "]"}], ":=", RowBox[{ FractionBox["CEt", RowBox[{"1", "+", "K"}]], "+", FractionBox[ RowBox[{"if", "[", "V", "]"}], RowBox[{"m", " ", "F"}]]}]}], ";", RowBox[{"Vmin", "=", RowBox[{"-", "0.6"}]}], ";", RowBox[{"Vmax", "=", "0.6"}], ";", RowBox[{"F", "=", "96484.56"}], ";", RowBox[{"Nu", "=", RowBox[{"10", "^", RowBox[{"-", "2"}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"CstLevich", "=", "1.61197581"}], ";", RowBox[{"InvCstLevich", "=", RowBox[{"1", "/", "CstLevich"}]}], ";", RowBox[{"logwmin", "=", RowBox[{"-", "2"}]}], ";", RowBox[{"logwmax", "=", "7"}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{"Blue", ",", "Purple", ",", RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}]}], ")"}]}]}], "]"}]}]}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.4023695361461477`*^9, 3.402369674827173*^9}, { 3.4023697765829*^9, 3.4023699547166243`*^9}, {3.402370005488802*^9, 3.402370018431055*^9}, {3.402370052619474*^9, 3.402370104981262*^9}, { 3.4023701590050898`*^9, 3.402370243119587*^9}, {3.40237027455987*^9, 3.402370329528116*^9}, {3.402370384343309*^9, 3.4023704987216682`*^9}, { 3.402482859565398*^9, 3.40248302156184*^9}, {3.4024830536030493`*^9, 3.402483098071499*^9}, {3.402483146978909*^9, 3.4024831563281307`*^9}, { 3.402483195965958*^9, 3.402483268056141*^9}, {3.402483425822873*^9, 3.402483490293881*^9}, {3.4024835580708017`*^9, 3.4024836381413603`*^9}, { 3.402483670938328*^9, 3.402483708771574*^9}, {3.4024852890688133`*^9, 3.402485434788199*^9}, {3.4024858312418756`*^9, 3.402485837150496*^9}, { 3.402485915685755*^9, 3.40248624722701*^9}, {3.4024863102816753`*^9, 3.4024864195417833`*^9}, {3.402486462882098*^9, 3.4024865337273684`*^9}, { 3.402486609670967*^9, 3.4024866165403748`*^9}, {3.40248665067288*^9, 3.4024866604687157`*^9}, 3.4024868590375547`*^9, {3.402486907262285*^9, 3.402486915747499*^9}, {3.402488329871443*^9, 3.402488361675241*^9}, { 3.402488396714031*^9, 3.402488516153315*^9}, {3.402488655750746*^9, 3.402488965308111*^9}, {3.402489000444693*^9, 3.4024890040365353`*^9}, { 3.4024890589346046`*^9, 3.402489062410473*^9}, {3.402489130832069*^9, 3.4024892156252747`*^9}, {3.402489294420019*^9, 3.402489344499359*^9}, { 3.402489419831357*^9, 3.402489526998837*^9}, {3.402490383226593*^9, 3.4024905707564363`*^9}, 3.402490624558634*^9, {3.402490672720195*^9, 3.402490718199432*^9}, 3.4024907588747*^9, {3.402574717052318*^9, 3.402574769906005*^9}, {3.40257486912783*^9, 3.4025748808768263`*^9}, { 3.402574925421788*^9, 3.4025749387882967`*^9}, {3.402575003501624*^9, 3.402575018596941*^9}, {3.4025754898518963`*^9, 3.40257563218882*^9}, { 3.40257567730838*^9, 3.402575809526437*^9}, {3.402575874843103*^9, 3.402575879033408*^9}, {3.402575935744194*^9, 3.40257595844971*^9}, { 3.402576157191975*^9, 3.4025761727653913`*^9}, {3.402576224707034*^9, 3.402576228230336*^9}, {3.402576483749071*^9, 3.402576523324802*^9}, { 3.402576564703891*^9, 3.4025766023925047`*^9}, {3.4026199023445873`*^9, 3.402619948709725*^9}, {3.4026199850524893`*^9, 3.4026200413967943`*^9}, { 3.4026201510059843`*^9, 3.4026201592745333`*^9}, {3.40262020611094*^9, 3.40262029407122*^9}, {3.402621027672077*^9, 3.402621134104281*^9}, { 3.4026211684080963`*^9, 3.402621223194031*^9}, {3.402621265215824*^9, 3.402621267902812*^9}, {3.402621334818672*^9, 3.4026213494917727`*^9}, { 3.4026214649411373`*^9, 3.4026214711931047`*^9}, 3.402628313929721*^9, { 3.402628403990634*^9, 3.402628475924038*^9}, {3.4026285329475117`*^9, 3.402628569365765*^9}, {3.4026286056221857`*^9, 3.402628641301815*^9}, { 3.4026287171490498`*^9, 3.402628718792757*^9}, {3.402629209570641*^9, 3.4026292330136213`*^9}, {3.4026292822945547`*^9, 3.402629294686112*^9}, { 3.4026293253815813`*^9, 3.4026295010075397`*^9}, {3.402629534731275*^9, 3.402629537163505*^9}, {3.4026299325197887`*^9, 3.4026299348236427`*^9}, { 3.4026299728323936`*^9, 3.4026299823479843`*^9}, {3.402630036321167*^9, 3.4026300394143963`*^9}, {3.402630134678294*^9, 3.4026301584997663`*^9}, 3.402630195728856*^9, {3.402630242528446*^9, 3.4026302508320208`*^9}, { 3.402630473877427*^9, 3.40263050834774*^9}, {3.402630544010498*^9, 3.40263059729458*^9}, {3.40263075907216*^9, 3.4026307629079313`*^9}, { 3.402630877676293*^9, 3.402630889050021*^9}, 3.4026310448648443`*^9, { 3.402713838212441*^9, 3.402713911468562*^9}, {3.4027139646195087`*^9, 3.402714061855445*^9}, {3.4027141859392157`*^9, 3.402714196148651*^9}, { 3.402714270448277*^9, 3.402714307288842*^9}, {3.4027143399674253`*^9, 3.402714367340341*^9}, {3.402714399336391*^9, 3.402714444833983*^9}, { 3.402808494640152*^9, 3.402808498889625*^9}, {3.4028085360993547`*^9, 3.402808537077035*^9}, {3.4028086473870296`*^9, 3.402808669589512*^9}, { 3.4028129814770727`*^9, 3.402813071708537*^9}, {3.402813354504629*^9, 3.4028133674794903`*^9}, {3.4028140087262583`*^9, 3.4028140835208187`*^9}, {3.402814198214512*^9, 3.402814225387941*^9}, { 3.4028143134468307`*^9, 3.4028143140638123`*^9}, {3.403415752692627*^9, 3.403415789486211*^9}, {3.403415820099463*^9, 3.403415854364264*^9}, { 3.4038412807653027`*^9, 3.403841297141389*^9}, {3.403841342463997*^9, 3.403841343606017*^9}, {3.403841394294342*^9, 3.403841395787012*^9}, { 3.4038414536171427`*^9, 3.403841465485631*^9}, {3.403841535799437*^9, 3.403841536805583*^9}, {3.403841575028674*^9, 3.40384157755285*^9}, { 3.403842684339519*^9, 3.4038426930629663`*^9}, {3.40384293481987*^9, 3.403842947396359*^9}, {3.4057612568039503`*^9, 3.4057612711786213`*^9}, { 3.405761413018404*^9, 3.405761413379381*^9}, {3.405819052758778*^9, 3.4058191806141376`*^9}, {3.4058254594678288`*^9, 3.405825460472539*^9}, { 3.4058255238072653`*^9, 3.4058255537622643`*^9}, {3.405825592564384*^9, 3.405825621441044*^9}, {3.405825667462978*^9, 3.405825850482213*^9}, 3.405825923900382*^9, {3.405825974910058*^9, 3.405825981235718*^9}, { 3.405826725138728*^9, 3.405826833608189*^9}, {3.405827059778594*^9, 3.405827064172968*^9}, {3.4058271387232122`*^9, 3.405827213120493*^9}, 3.4058272758905573`*^9, {3.405832978349814*^9, 3.405833000966395*^9}, { 3.405833036382531*^9, 3.40583306067715*^9}, {3.405833176572535*^9, 3.40583321314117*^9}, {3.4058332531527233`*^9, 3.405833253880949*^9}, { 3.4058333230905247`*^9, 3.4058333537832117`*^9}, {3.40583339037722*^9, 3.405833397297024*^9}, {3.405833456191784*^9, 3.405833459433735*^9}, { 3.405914947970791*^9, 3.405914990155654*^9}, {3.405915053544611*^9, 3.4059150909548597`*^9}, 3.405915225179245*^9, {3.40591526744986*^9, 3.405915270548851*^9}, {3.405915301808464*^9, 3.405915321927217*^9}, { 3.405915419846855*^9, 3.405915484582204*^9}, {3.405915534940544*^9, 3.4059155937038*^9}, {3.405915628710429*^9, 3.405915664762396*^9}, { 3.405915733685245*^9, 3.405915784222234*^9}, {3.406005848446827*^9, 3.4060059731594954`*^9}, 3.406006028562162*^9, 3.4060060942888308`*^9, 3.40600612822043*^9, {3.406463419039475*^9, 3.406463425238011*^9}, { 3.4066903506344976`*^9, 3.406690443971858*^9}, 3.406690499516057*^9, 3.4066905503317738`*^9, 3.4066905957921143`*^9, {3.407124824025661*^9, 3.40712488777756*^9}, {3.4071254127123632`*^9, 3.407125511656246*^9}, { 3.407125621068823*^9, 3.407125627106802*^9}, {3.407125698338458*^9, 3.407125715189062*^9}, {3.407127971888411*^9, 3.407128111744596*^9}, { 3.407132607468183*^9, 3.407132810557522*^9}, {3.407132846515971*^9, 3.4071328512121553`*^9}, {3.407132882565301*^9, 3.407132961279566*^9}, { 3.407133145831996*^9, 3.407133178690206*^9}, {3.407133256190797*^9, 3.4071333621614847`*^9}, {3.407133401990312*^9, 3.407133404923534*^9}, { 3.407133511086211*^9, 3.407133606601411*^9}, {3.407133786471115*^9, 3.407133819055318*^9}, {3.407133897889572*^9, 3.407133900626096*^9}, { 3.407134000050082*^9, 3.407134033500201*^9}, {3.40713408343684*^9, 3.4071341035917273`*^9}, {3.407134176008397*^9, 3.407134180705052*^9}, { 3.4071342261234303`*^9, 3.407134239989393*^9}, {3.407134298328951*^9, 3.407134321617826*^9}, {3.4072115787283278`*^9, 3.407211655798607*^9}, { 3.407211720192656*^9, 3.407211721350059*^9}, {3.407211821671218*^9, 3.407211957640573*^9}, 3.4072120251697083`*^9, {3.407321374151374*^9, 3.40732143149428*^9}, {3.407321483339652*^9, 3.407321689133381*^9}, { 3.40732174225331*^9, 3.407321756526184*^9}, 3.407468559221903*^9, { 3.4074686042015142`*^9, 3.407468613173256*^9}, {3.407632614109585*^9, 3.407632636582074*^9}, {3.407633179453594*^9, 3.407633226738256*^9}, { 3.407633263704661*^9, 3.407633273254887*^9}, {3.407633340757958*^9, 3.4076334509675293`*^9}, {3.4076335924771633`*^9, 3.407633617748797*^9}, { 3.4076336518133287`*^9, 3.407633678164957*^9}, {3.407633837040856*^9, 3.407633839716528*^9}, {3.407633914802175*^9, 3.407633919538014*^9}, { 3.407634047170767*^9, 3.407634138405661*^9}, {3.4076341817700663`*^9, 3.4076341825005817`*^9}, 3.407634240211247*^9, {3.407634301812029*^9, 3.40763432948796*^9}, {3.407634386524521*^9, 3.4076344786663017`*^9}, { 3.40763452095863*^9, 3.407634615769261*^9}, {3.407634663437511*^9, 3.407634664153561*^9}, {3.4076420369877453`*^9, 3.407642038539229*^9}, { 3.4076422396796618`*^9, 3.407642240010373*^9}, 3.407642366022933*^9, { 3.4076424168558693`*^9, 3.407642433242609*^9}, {3.4076424997802057`*^9, 3.407642505390004*^9}, {3.407642890281104*^9, 3.407642938477268*^9}, { 3.407643004855083*^9, 3.407643045671753*^9}, {3.407643126121427*^9, 3.4076432039893513`*^9}, {3.407643274620451*^9, 3.407643402344458*^9}, 3.407643440500742*^9, {3.4076436360881987`*^9, 3.407643651014803*^9}, { 3.4076436830538177`*^9, 3.407643699414385*^9}, {3.4076437438308277`*^9, 3.4076438052153893`*^9}, {3.407723105617982*^9, 3.407723131009368*^9}, { 3.40772318093289*^9, 3.407723183502035*^9}, {3.4077232257375183`*^9, 3.4077232722293253`*^9}, {3.4077233153072023`*^9, 3.40772333175991*^9}, 3.407723830746306*^9, {3.407801393812868*^9, 3.407801433050661*^9}, { 3.407801475684045*^9, 3.407801644315567*^9}, {3.407801686898203*^9, 3.407801687444189*^9}, {3.4078019034766483`*^9, 3.4078019055357037`*^9}, { 3.407801967194628*^9, 3.407801987412714*^9}, {3.407802116198209*^9, 3.407802192781536*^9}, {3.407802223563013*^9, 3.407802235192724*^9}, { 3.407802320856599*^9, 3.40780234353391*^9}, {3.4078024755540047`*^9, 3.40780249766354*^9}, {3.4078025992840023`*^9, 3.4078026181743813`*^9}, { 3.407802743349875*^9, 3.407802754836812*^9}, {3.407802845578381*^9, 3.4078030007898407`*^9}, {3.4078030718886127`*^9, 3.407803087083434*^9}, { 3.407803149762556*^9, 3.407803285788198*^9}, 3.4078078439292316`*^9, { 3.407816385183852*^9, 3.407816451736855*^9}, {3.407816568865127*^9, 3.407816607783514*^9}, {3.407816917083254*^9, 3.407817047671504*^9}, { 3.407817158538056*^9, 3.407817166544321*^9}, {3.407817272689571*^9, 3.4078174065956383`*^9}, {3.4078174442433653`*^9, 3.407817455952848*^9}, { 3.407817528228136*^9, 3.407817593603441*^9}, {3.407817632601115*^9, 3.407817698102681*^9}, {3.407817759477508*^9, 3.4078177602994223`*^9}, { 3.408768314953371*^9, 3.408768317666675*^9}, {3.408768350998848*^9, 3.408768351563596*^9}, {3.408768421471817*^9, 3.4087684381559*^9}, { 3.408768515610013*^9, 3.408768533511334*^9}, {3.4087685935033283`*^9, 3.4087686065150003`*^9}, {3.408768787579864*^9, 3.408768795941227*^9}, { 3.4087692721353073`*^9, 3.4087692800176077`*^9}, {3.408769330015802*^9, 3.4087693527795267`*^9}, {3.408769392941648*^9, 3.408769408213292*^9}, { 3.408769442017375*^9, 3.4087694730297527`*^9}, {3.408778024382725*^9, 3.408778062885744*^9}, {3.408786907304696*^9, 3.408786921686583*^9}, { 3.40878698777698*^9, 3.40878702293543*^9}, {3.408787059181932*^9, 3.4087870758089447`*^9}, {3.4087871514704514`*^9, 3.4087871641438503`*^9}, {3.4087872025153713`*^9, 3.408787229521022*^9}, { 3.4087873631433287`*^9, 3.408787377372427*^9}, {3.408789320473781*^9, 3.408789370967847*^9}, {3.40965652102317*^9, 3.409656710684648*^9}, { 3.409797726956243*^9, 3.409797751431407*^9}, {3.409800183113947*^9, 3.409800210216268*^9}, 3.409825285772604*^9, {3.409976181564497*^9, 3.409976182956599*^9}, {3.409977644819428*^9, 3.40997764586185*^9}, { 3.409977791643078*^9, 3.409977798575795*^9}, {3.411378871889518*^9, 3.411378884386853*^9}, {3.411379032211803*^9, 3.411379300958256*^9}, { 3.411379348465537*^9, 3.4113795166083403`*^9}, {3.4113795747487307`*^9, 3.411379582212716*^9}, 3.411379617450165*^9, 3.4113796518793697`*^9, { 3.411379689810254*^9, 3.411379693401931*^9}, {3.411379765334199*^9, 3.4113798021956253`*^9}, {3.4113800717407217`*^9, 3.4113801275992613`*^9}, {3.411386144008148*^9, 3.4113861936849127`*^9}, { 3.4113863094180937`*^9, 3.411386311721808*^9}, {3.4113863433257008`*^9, 3.411386348228153*^9}, {3.4113866641733*^9, 3.411386702206575*^9}, 3.411386783449416*^9, {3.4113868641765614`*^9, 3.4113870223663187`*^9}, { 3.4113870982367887`*^9, 3.411387101110526*^9}, {3.411387240378161*^9, 3.4113872407831078`*^9}, {3.41138732362788*^9, 3.411387339158875*^9}, { 3.4113873751990356`*^9, 3.411387443693973*^9}, {3.411387575418298*^9, 3.41138763331837*^9}, {3.41138768671355*^9, 3.411387698318158*^9}, { 3.411394721886527*^9, 3.4113947226763973`*^9}, {3.411394902515827*^9, 3.41139490564682*^9}, {3.411394993056259*^9, 3.4113949976300077`*^9}, { 3.411435189079159*^9, 3.411435190563156*^9}, {3.411435302408678*^9, 3.411435304866843*^9}, {3.411436580390032*^9, 3.4114365901039877`*^9}, { 3.411437007937585*^9, 3.411437096114974*^9}, {3.411437139634317*^9, 3.411437217025037*^9}, {3.411437253176076*^9, 3.411437286725403*^9}, { 3.411437339269075*^9, 3.411437579266399*^9}, {3.4114376125633583`*^9, 3.4114376631931477`*^9}, {3.411437724167082*^9, 3.411437754977043*^9}, { 3.41143786922472*^9, 3.4114378832328987`*^9}, {3.4114379792310467`*^9, 3.411438000364255*^9}, {3.411438059270113*^9, 3.411438124275063*^9}, { 3.411438162044601*^9, 3.411438172761189*^9}, {3.4114382087841883`*^9, 3.411438325505392*^9}, {3.4114384747927437`*^9, 3.411438479061966*^9}, { 3.411443899363695*^9, 3.4114439366604958`*^9}, {3.4114439738291073`*^9, 3.4114439741961403`*^9}, {3.411444029138788*^9, 3.411444029470264*^9}, { 3.411444068559554*^9, 3.4114440688361588`*^9}, {3.411444100301553*^9, 3.411444128975049*^9}, {3.411444182970601*^9, 3.4114442226178703`*^9}, { 3.4114442631021967`*^9, 3.4114442702353983`*^9}, 3.411444308551723*^9, { 3.411444376160385*^9, 3.411444382721342*^9}, {3.411444422415514*^9, 3.411444495433845*^9}, {3.411444828484374*^9, 3.411444897012443*^9}, { 3.411529513052813*^9, 3.4115295836992283`*^9}, {3.411529633037259*^9, 3.411529657432819*^9}, {3.411529702641*^9, 3.4115297082463713`*^9}, { 3.411529744152213*^9, 3.411529744540328*^9}, {3.411529780666709*^9, 3.411529815696988*^9}, {3.411529848909849*^9, 3.4115298756412573`*^9}, { 3.411529971772029*^9, 3.4115299748357773`*^9}, {3.411530063209746*^9, 3.411530095096552*^9}, {3.4115302415562162`*^9, 3.411530308853202*^9}, { 3.411530345607222*^9, 3.411530355986218*^9}, {3.411530420812648*^9, 3.411530422084423*^9}, {3.411530453793591*^9, 3.4115304962166348`*^9}, { 3.4115305318413563`*^9, 3.4115306031873207`*^9}, {3.411530763130384*^9, 3.411530770109434*^9}, {3.4115309679041147`*^9, 3.4115309984530354`*^9}, { 3.411531066057025*^9, 3.411531096996155*^9}, {3.4116092775979843`*^9, 3.411609303870783*^9}, {3.411609491578594*^9, 3.411609495685014*^9}, { 3.411609635256826*^9, 3.411609642552669*^9}, 3.4116097037153473`*^9, { 3.411609840632872*^9, 3.4116098584982843`*^9}, {3.411610112675006*^9, 3.411610237553709*^9}, {3.411610279185454*^9, 3.4116102814029617`*^9}, { 3.4116103933587627`*^9, 3.411610403442047*^9}, {3.411897675495501*^9, 3.411897769123105*^9}, {3.411897846662159*^9, 3.4118978779026423`*^9}, { 3.4118979083022833`*^9, 3.411897942951598*^9}, {3.411898005730062*^9, 3.411898039637876*^9}, {3.411898557360327*^9, 3.411898563446467*^9}, { 3.4118986254005203`*^9, 3.4118986300635767`*^9}, {3.412041666249477*^9, 3.412041712356868*^9}, {3.412041766749673*^9, 3.412041767947703*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao$$ = 0.5, $CellContext`DR$$ = 0.00001, $CellContext`DXi$$ = 0.00001, $CellContext`logCdl$$ = -5, $CellContext`logk0$$ = -2, \ $CellContext`logkd$$ = 2, $CellContext`logkg$$ = 1, $CellContext`logwc$$ = -2, $CellContext`OEt$$ = 0.00001, $CellContext`REt$$ = 0.00001, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.03, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`wc3$$ = False, $CellContext`wc4$$ = False, $CellContext`YEt$$ = 0, $CellContext`\[CapitalOmega]$$ = 500., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " R \!\(\*UnderoverscriptBox[\(\ \[LeftRightArrow]\), SubscriptBox[\(K\), \(o\)], SubscriptBox[\(K\), \ \(r\)]]\) O + e", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " O \!\(\*UnderoverscriptBox[\(\ \[LeftRightArrow]\), SubscriptBox[\(k\), \(g\)], SubscriptBox[\(k\), \ \(d\)]]\) Y", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logk0$$], -2, "log(k\[Degree]/(cm \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -5, 2, 1}, {{ Hold[$CellContext`ao$$], 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9}, {{ Hold[$CellContext`logkd$$], 2, "log(\!\(\*SubscriptBox[\(k\), \(d\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -1, 3}, {{ Hold[$CellContext`logkg$$], 1, "log(\!\(\*SubscriptBox[\(k\), \(g\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -1, 3}, {{ Hold[$CellContext`\[CapitalOmega]$$], 500., "\[CapitalOmega]/rpm"}, 500, 5000}, {{ Hold[$CellContext`DR$$], 0.00001, "\!\(\*SubscriptBox[\(D\), \(R\)]\)/(\!\(\*SuperscriptBox[\(cm\), \ \(2\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, 1.*^-6, 0.00001}, {{ Hold[$CellContext`DXi$$], 0.00001, "\!\(\*SubscriptBox[\(D\), \(O\)]\), \!\(\*SubscriptBox[\(D\), \ \(Y\)]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))"}, 1.*^-6, 0.00001}, {{ Hold[$CellContext`REt$$], 0.00001, "\!\(\*SuperscriptBox[\(R\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 0.00001}, {{ Hold[$CellContext`OEt$$], 0.00001, "\!\(\*SuperscriptBox[\(O\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 0.00001}, {{ Hold[$CellContext`YEt$$], 0, "\!\(\*SuperscriptBox[\(Y\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 0.00001}, {{ Hold[$CellContext`logCdl$$], -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3}, {{ Hold[$CellContext`ROhm$$], 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 100}, {{ Hold[$CellContext`V$$], -0.03, "(E - E\[Degree])/V"}, -0.6, 0.6}, {{ Hold[$CellContext`logwc$$], -2, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -2, 7}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = 2.54/\!\(\*SubscriptBox[\ \(\[Tau]\), \(R\)]\)"}, {False, True}}, {{ Hold[$CellContext`wc3$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = 2.54/\[Tau]"}, { False, True}}, {{ Hold[$CellContext`wc4$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c4\)]\) = \!\(\*SqrtBox[\(3\)]\)\ \[Lambda]/\[Tau]"}, {False, True}}}, Typeset`size$$ = { 508., {229.375, 234.625}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logk0$2927$$ = 0, $CellContext`ao$2928$$ = 0, $CellContext`logkd$2929$$ = 0, $CellContext`logkg$2930$$ = 0, $CellContext`\[CapitalOmega]$2931$$ = 0, $CellContext`DR$2932$$ = 0, $CellContext`DXi$2933$$ = 0, $CellContext`REt$2934$$ = 0, $CellContext`OEt$2935$$ = 0, $CellContext`YEt$2936$$ = 0, $CellContext`wc1$2937$$ = False, $CellContext`wc2$2938$$ = False, $CellContext`wc3$2939$$ = False, $CellContext`wc4$2940$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao$$ = 0.5, $CellContext`DR$$ = 0.00001, $CellContext`DXi$$ = 0.00001, $CellContext`logCdl$$ = -5, $CellContext`logk0$$ = -2, \ $CellContext`logkd$$ = 2, $CellContext`logkg$$ = 1, $CellContext`logwc$$ = -2, $CellContext`OEt$$ = 0.00001, $CellContext`REt$$ = 0.00001, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.03, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`wc3$$ = False, $CellContext`wc4$$ = False, $CellContext`YEt$$ = 0, $CellContext`\[CapitalOmega]$$ = 500.}, "ControllerVariables" :> { Hold[$CellContext`logk0$$, $CellContext`logk0$2927$$, 0], Hold[$CellContext`ao$$, $CellContext`ao$2928$$, 0], Hold[$CellContext`logkd$$, $CellContext`logkd$2929$$, 0], Hold[$CellContext`logkg$$, $CellContext`logkg$2930$$, 0], Hold[$CellContext`\[CapitalOmega]$$, \ $CellContext`\[CapitalOmega]$2931$$, 0], Hold[$CellContext`DR$$, $CellContext`DR$2932$$, 0], Hold[$CellContext`DXi$$, $CellContext`DXi$2933$$, 0], Hold[$CellContext`REt$$, $CellContext`REt$2934$$, 0], Hold[$CellContext`OEt$$, $CellContext`OEt$2935$$, 0], Hold[$CellContext`YEt$$, $CellContext`YEt$2936$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$2937$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$2938$$, False], Hold[$CellContext`wc3$$, $CellContext`wc3$2939$$, False], Hold[$CellContext`wc4$$, $CellContext`wc4$2940$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`mR = $CellContext`mXi[$CellContext`DR$$, \ $CellContext`Nu, ($CellContext`\[CapitalOmega]$$ 2) (Pi/ 60)]; $CellContext`tauR = $CellContext`tauXi[$CellContext`DR$$, \ $CellContext`Nu, ($CellContext`\[CapitalOmega]$$ 2) (Pi/60)]; $CellContext`k0 = 10^$CellContext`logk0$$; $CellContext`ao$$; $CellContext`kd = 10^$CellContext`logkd$$; $CellContext`kg = 10^$CellContext`logkg$$; K = $CellContext`kd/$CellContext`kg; $CellContext`k = $CellContext`kd + \ $CellContext`kg; $CellContext`Cdl = 10^$CellContext`logCdl$$; $CellContext`CEt = $CellContext`OEt$$ + \ $CellContext`YEt$$; $CellContext`tau = $CellContext`tauXi[$CellContext`DXi$$, \ $CellContext`Nu, ($CellContext`\[CapitalOmega]$$ 2) (Pi/ 60)]; $CellContext`\[Lambda] = $CellContext`k $CellContext`tau; \ $CellContext`m = $CellContext`mXi[$CellContext`DXi$$, $CellContext`Nu, \ ($CellContext`\[CapitalOmega]$$ 2) (Pi/60)] ((1 + K)/(1 + K (Tanh[$CellContext`\[Lambda]^ Rational[1, 2]]/$CellContext`\[Lambda]^ Rational[1, 2]))); $CellContext`lw = { 1/($CellContext`Rt $CellContext`Cdl), 2.54/$CellContext`tauR, 2.54/$CellContext`tau, 3^Rational[ 1, 2] ($CellContext`\[Lambda]/$CellContext`tau)}; $CellContext`Rt = 1/(($CellContext`f $CellContext`F) \ (($CellContext`R0[$CellContext`V$$] $CellContext`Ko[$CellContext`V$$]) \ $CellContext`ao$$ + ($CellContext`O0[$CellContext`V$$] \ $CellContext`Kr[$CellContext`V$$]) ( 1 - $CellContext`ao$$))); $CellContext`Rp = $CellContext`Rt ( 1 + $CellContext`Ko[$CellContext`V$$]/$CellContext`mR + \ ($CellContext`Kr[$CellContext`V$$]/$CellContext`m) (1 + K (Tanh[($CellContext`tau $CellContext`k)^ Rational[1, 2]]/($CellContext`tau $CellContext`k)^ Rational[ 1, 2]))); $CellContext`RpV = $CellContext`Rp + \ $CellContext`ROhm$$; $CellContext`ZX1 = ($CellContext`Ko[$CellContext`V$$] \ ($CellContext`Rt/$CellContext`mR)) ( Tanh[($CellContext`tauR $CellContext`p)^ Rational[1, 2]]/($CellContext`tauR $CellContext`p)^ Rational[ 1, 2]); $CellContext`ZX2 = ($CellContext`Kr[$CellContext`V$$] \ ($CellContext`Rt/$CellContext`m)) ( Tanh[($CellContext`tau $CellContext`p)^ Rational[1, 2]]/($CellContext`tau $CellContext`p)^Rational[1, 2] + K (Tanh[($CellContext`tau ($CellContext`p + $CellContext`k))^ Rational[ 1, 2]]/($CellContext`tau ($CellContext`p + $CellContext`k))^ Rational[ 1, 2])); $CellContext`Zf = $CellContext`Rt + $CellContext`ZX1 + \ $CellContext`ZX2; $CellContext`Z = $CellContext`Zf/( 1 + ($CellContext`p $CellContext`Cdl) $CellContext`Zf); Grid[{{ ParametricPlot[{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], 10^3 $CellContext`if[$CellContext`VSta]}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotStyle -> AbsoluteThickness[2], Frame -> True, AxesOrigin -> {$CellContext`Vmin, 0}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \(o\)]\))/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \ \(o\)]\)+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}], Epilog -> { AbsolutePointSize[6], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], 10^3 $CellContext`if[$CellContext`V$$]}]}, AxesOrigin -> {$CellContext`Vmin, 0}, BaseStyle -> $CellContext`monStyle, AspectRatio -> 1/GoldenRatio, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], \ $CellContext`R0[$CellContext`VSta]/($CellContext`REt$$ + \ $CellContext`OEt$$)}, {$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], \ $CellContext`O0[$CellContext`VSta]/($CellContext`REt$$ + \ $CellContext`OEt$$)}}, {$CellContext`VSta, $CellContext`Vmin, \ $CellContext`Vmax}, Frame -> True, Axes -> None, PlotStyle -> {{ AbsoluteThickness[2], Part[$CellContext`lHue, 3]}, { AbsoluteThickness[2], Part[$CellContext`lHue, 4]}}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \(o\)]\))/V", "R(0),O(0)/(\!\(\*SuperscriptBox[\(R\), \ \(*\)]\)+\!\(\*SuperscriptBox[\(O\), \(*\)]\))"}, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \ \(o\)]\)+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "R(0),O(0)/(\!\(\*SuperscriptBox[\(R\), \ \(*\)]\)+\!\(\*SuperscriptBox[\(O\), \(*\)]\))"}], Epilog -> { AbsolutePointSize[6], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], \ $CellContext`R0[$CellContext`V$$]/($CellContext`REt$$ + $CellContext`OEt$$)}], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], \ $CellContext`O0[$CellContext`V$$]/($CellContext`REt$$ + $CellContext`OEt$$)}], Part[$CellContext`lHue, 3], Text["\!\(\*\nStyleBox[\"R\",\nFontSlant->\"Italic\"]\)(0)", Scaled[{0.1, 0.8}]], Part[$CellContext`lHue, 4], Text["\!\(\*\nStyleBox[\"O\",\nFontSlant->\"Italic\"]\)(0)", Scaled[{0.1, 0.7}]]}, BaseStyle -> $CellContext`monStyle, AspectRatio -> 1/GoldenRatio, ImageSize -> 250]}, { ParametricPlot[ ReplaceAll[{ Re[$CellContext`ZX1], - Im[$CellContext`ZX1]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logw], {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, PlotRange -> {{0, 1}, {0, 0.5}}, Frame -> True, ImageSize -> 250, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX1], - Im[$CellContext`ZX1]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], Point[ ReplaceAll[{ Re[$CellContext`ZX1], - Im[$CellContext`ZX1]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logwc$$]]}, PlotStyle -> { AbsoluteThickness[2], Part[$CellContext`lHue, 3]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re \!\(\*SubscriptBox[\(Z\), \ \(\"R\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im \!\(\*SubscriptBox[\(Z\), \ \(\"R\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "Re \!\(\*SubscriptBox[\(Z\), \(\"R\"\)]\)/(\!\(\*SubscriptBox[\ \(R\), \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(p\)]\))", "- Im \!\(\*SubscriptBox[\(Z\), \ \(\"R\"\)]\)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle], ParametricPlot[ ReplaceAll[{ Re[$CellContext`ZX2], - Im[$CellContext`ZX2]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logw], {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, PlotRange -> {{0, 1}, {0, 0.5}}, Frame -> True, ImageSize -> 250, Epilog -> { AbsolutePointSize[6], { AbsolutePointSize[6], If[$CellContext`wc3$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX2], - Im[$CellContext`ZX2]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 3]]]}, {}], If[$CellContext`wc4$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX2], - Im[$CellContext`ZX2]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 4]]]}, {}], Point[ ReplaceAll[{ Re[$CellContext`ZX2], - Im[$CellContext`ZX2]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logwc$$]]}}, PlotStyle -> { AbsoluteThickness[2], Part[$CellContext`lHue, 4]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re \!\(\*SubscriptBox[\(Z\), \ \(\"O\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im \!\(\*SubscriptBox[\(Z\), \ \(\"O\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "Re \!\(\*SubscriptBox[\(Z\), \(\"O\"\)]\)/(\!\(\*SubscriptBox[\ \(R\), \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))", "- Im \!\(\*SubscriptBox[\(Z\), \ \(\"O\"\)]\)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle]}, { ParametricPlot[{ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, PlotRange -> {{0, 1.01}, {0, 0.5}}, Frame -> True, ImageSize -> 250, PlotStyle -> {{Blue, AbsoluteThickness[2]}, {Blue, AbsoluteThickness[2]}}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], If[$CellContext`wc3$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 3]]]}, {}], If[$CellContext`wc4$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 4]]]}, {}],