(* 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]]]}, {}], Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logwc$$]]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re \!\(\*SubscriptBox[\(Z\), \ \(\"f\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im \!\(\*SubscriptBox[\(Z\), \ \(\"f\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ \!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\))/(\!\(\*SubscriptBox[\(R\), \(\ \[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))", "- Im \!\(\*SubscriptBox[\(Z\), \ \(\"f\"\)]\)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle], ParametricPlot[{ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$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 -> {{Purple, AbsoluteThickness[2]}, {Blue, AbsoluteThickness[2]}}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], If[$CellContext`wc3$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 3]]]}, {}], If[$CellContext`wc4$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 4]]]}, {}], Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logwc$$]]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle]}}]), "Specifications" :> { Style[ " R \!\(\*UnderoverscriptBox[\(\ \[LeftRightArrow]\), SubscriptBox[\(K\), \(o\)], SubscriptBox[\(K\), \ \(r\)]]\) O + e", Bold, Medium], Style[ " O \!\(\*UnderoverscriptBox[\(\ \[LeftRightArrow]\), SubscriptBox[\(k\), \(g\)], SubscriptBox[\(k\), \ \(d\)]]\) Y", Bold, Medium], Delimiter, {{$CellContext`logk0$$, -2, "log(k\[Degree]/(cm \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -5, 2, 1, Appearance -> "Labeled"}, {{$CellContext`ao$$, 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9, Appearance -> "Labeled"}, {{$CellContext`logkd$$, 2, "log(\!\(\*SubscriptBox[\(k\), \(d\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -1, 3, Appearance -> "Labeled"}, {{$CellContext`logkg$$, 1, "log(\!\(\*SubscriptBox[\(k\), \(g\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -1, 3, Appearance -> "Labeled"}, {{$CellContext`\[CapitalOmega]$$, 500., "\[CapitalOmega]/rpm"}, 500, 5000, Appearance -> "Labeled"}, {{$CellContext`DR$$, 0.00001, "\!\(\*SubscriptBox[\(D\), \(R\)]\)/(\!\(\*SuperscriptBox[\(cm\), \ \(2\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, 1.*^-6, 0.00001, Appearance -> "Labeled"}, {{$CellContext`DXi$$, 0.00001, "\!\(\*SubscriptBox[\(D\), \(O\)]\), \!\(\*SubscriptBox[\(D\), \ \(Y\)]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))"}, 1.*^-6, 0.00001, Appearance -> "Labeled"}, {{$CellContext`REt$$, 0.00001, "\!\(\*SuperscriptBox[\(R\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 0.00001, Appearance -> "Labeled"}, {{$CellContext`OEt$$, 0.00001, "\!\(\*SuperscriptBox[\(O\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 0.00001, Appearance -> "Labeled"}, {{$CellContext`YEt$$, 0, "\!\(\*SuperscriptBox[\(Y\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 0.00001, Appearance -> "Labeled"}, {{$CellContext`logCdl$$, -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, {{$CellContext`ROhm$$, 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 100, Appearance -> "Labeled"}, Delimiter, {{$CellContext`V$$, -0.03, "(E - E\[Degree])/V"}, -0.6, 0.6, Appearance -> "Labeled"}, {{$CellContext`logwc$$, -2, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -2, 7, Appearance -> "Labeled"}, {{$CellContext`wc1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{$CellContext`wc2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = \ 2.54/\!\(\*SubscriptBox[\(\[Tau]\), \(R\)]\)"}, { False, True}}, {{$CellContext`wc3$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = 2.54/\[Tau]"}, { False, True}}, {{$CellContext`wc4$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c4\)]\) = \ \!\(\*SqrtBox[\(3\)]\)\[Lambda]/\[Tau]"}, {False, True}}}, "Options" :> {FrameLabel -> { Style[ "ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2008. Hosted \ by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}], ImageSizeCache->{897., {321.375, 326.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`mR = 0.004488908890997983, $CellContext`mXi[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := \ $CellContext`DXi/$CellContext`deltaLevich[$CellContext`DXi, $CellContext`Nu, \ $CellContext`Omega], $CellContext`Nu = 1/100, $CellContext`deltaLevich[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := (($CellContext`CstLevich $CellContext`DXi^(1/ 3)) $CellContext`Nu^(1/6))/$CellContext`Omega^(1/ 2), $CellContext`CstLevich = 1.61197581, $CellContext`tauR = 0.4962704523241058, $CellContext`tauXi[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := $CellContext`deltaLevich[$CellContext`DXi, \ $CellContext`Nu, $CellContext`Omega]^2/$CellContext`DXi, $CellContext`k0 = 1/100, $CellContext`kd = 100, $CellContext`kg = 10, K = 10, $CellContext`k = 110, $CellContext`Cdl = 1/100000, $CellContext`CEt = 0.00001, $CellContext`tau = 0.4962704523241058, $CellContext`\[Lambda] = 54.58974975565164, $CellContext`m = 0.020981059118834456`, $CellContext`lw = {12597.901722978455`, 5.118176970046907, 5.118176970046907, 190.5255888325765}, $CellContext`Rt = 7.937829822691896, $CellContext`f = 38.9, $CellContext`F = 96484.56, $CellContext`R0[ Pattern[$CellContext`V$, Blank[]]] := FE`REt$$57 - $CellContext`if[$CellContext`V$]/($CellContext`mR \ $CellContext`F), Attributes[$CellContext`V$] = {Temporary}, FE`REt$$57 = 0.00001, $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := ($CellContext`F ($CellContext`Ko[$CellContext`V$] FE`REt$$57 - ($CellContext`CEt/(1 + K)) $CellContext`Kr[$CellContext`V$]))/( 1 + $CellContext`Ko[$CellContext`V$]/$CellContext`mR + \ $CellContext`Kr[$CellContext`V$]/$CellContext`m), $CellContext`Ko[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`k0 Exp[(FE`ao$$57 $CellContext`f) $CellContext`V$], FE`ao$$57 = 0.5, $CellContext`Kr[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`k0 Exp[((-(1 - FE`ao$$57)) $CellContext`f) $CellContext`V$], $CellContext`O0[ Pattern[$CellContext`V, Blank[]]] := $CellContext`CEt/(1 + K) + $CellContext`if[$CellContext`V]/($CellContext`m \ $CellContext`F), $CellContext`Rp = 33.762506324427406`, $CellContext`RpV = 33.762506324427406`, $CellContext`ZX1 = (14.005252843028813` Tanh[0.7044646565471584 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX2 = 6.780866694380136 ((1.4195176304534134` Tanh[0.7044646565471584 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] + (14.195176304534133` Tanh[0.7044646565471584 Sqrt[110 + $CellContext`p]])/Sqrt[ 110 + $CellContext`p]), $CellContext`Zf = 7.937829822691896 + (14.005252843028813` Tanh[0.7044646565471584 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] + 6.780866694380136 ((1.4195176304534134` Tanh[0.7044646565471584 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] + (14.195176304534133` Tanh[0.7044646565471584 Sqrt[110 + $CellContext`p]])/Sqrt[ 110 + $CellContext`p]), $CellContext`Z = ( 7.937829822691896 + (14.005252843028813` Tanh[0.7044646565471584 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] + 6.780866694380136 ((1.4195176304534134` Tanh[0.7044646565471584 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] + (14.195176304534133` Tanh[0.7044646565471584 Sqrt[110 + $CellContext`p]])/Sqrt[ 110 + $CellContext`p]))/( 1 + ($CellContext`p ( 7.937829822691896 + (14.005252843028813` Tanh[0.7044646565471584 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] + 6.780866694380136 ((1.4195176304534134` Tanh[0.7044646565471584 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] + (14.195176304534133` Tanh[0.7044646565471584 Sqrt[110 + $CellContext`p]])/Sqrt[ 110 + $CellContext`p])))/ 100000), $CellContext`Vmin = -0.6, $CellContext`Vmax = 0.6, $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}, $CellContext`lHue = { RGBColor[0, 0, 1], RGBColor[0.5, 0, 0.5], Hue[0.1421359549995791, 0.6, 0.6], Hue[ 0.37820393249936934`, 0.6, 0.6]}, $CellContext`logwmin = -2, $CellContext`logwmax = 7}; ($CellContext`Ko[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`k0 Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$]; \ $CellContext`Kr[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`k0 Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) $CellContext`V$]; \ $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`F (($CellContext`Ko[$CellContext`V$] \ $CellContext`REt$$ - ($CellContext`CEt/(1 + K)) $CellContext`Kr[$CellContext`V$])/( 1 + $CellContext`Ko[$CellContext`V$]/$CellContext`mR + \ $CellContext`Kr[$CellContext`V$]/$CellContext`m)); $CellContext`R0[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`REt$$ - \ $CellContext`if[$CellContext`V$]/($CellContext`mR $CellContext`F); \ $CellContext`O0[ Pattern[$CellContext`V, Blank[]]] := $CellContext`CEt/(1 + K) + $CellContext`if[$CellContext`V]/($CellContext`m \ $CellContext`F); $CellContext`Vmin = -0.6; $CellContext`Vmax = 0.6; $CellContext`F = 96484.56; $CellContext`Nu = 10^(-2); $CellContext`f = 38.9; $CellContext`CstLevich = 1.61197581; $CellContext`InvCstLevich = 1/$CellContext`CstLevich; $CellContext`logwmin = -2; \ $CellContext`logwmax = 7; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}; $CellContext`lHue = { Blue, Purple, Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6]})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.411531001292417*^9, 3.41153110063244*^9, 3.411531146042342*^9, 3.411531269362467*^9, 3.411609153739271*^9, 3.41160924786378*^9, 3.411609282428028*^9, 3.411609643293522*^9, 3.411609715378551*^9, 3.411609860165613*^9, 3.411610113810997*^9, 3.411610239137615*^9, 3.411610283153142*^9, 3.4116104044554996`*^9, 3.411897953687096*^9, 3.411898045189765*^9, 3.411898632107707*^9, 3.4120417138572893`*^9, 3.4120417691748457`*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1131, 749}, WindowMargins->{{2, Automatic}, {Automatic, 32}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], "Graphics", ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], "Graphics", Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], "Graphics", Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", ButtonData -> { URL["http://www.wolfram.com/upgrade"], None}, ButtonNote -> "http://www.wolfram.com/upgrade"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], "Graphics", Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], "Graphics", Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", ButtonData -> { URL["http://www.wolfram.com/company/terms.html"], None}, ButtonNote -> "http://www.wolfram.com/company/terms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}]}, {}], PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrintingOptions->{"PaperOrientation"->"Landscape"}, ShowSelection->True, Magnification->1., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 559, 10, 89, "Section"], Cell[CellGroupData[{ Cell[1174, 37, 95, 1, 34, "Subsection"], Cell[1272, 40, 1944, 34, 112, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3253, 79, 148, 2, 34, "Subsection"], Cell[3404, 83, 8534, 141, 72, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11975, 229, 102, 1, 34, "Subsection"], Cell[12080, 232, 11550, 191, 145, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[23667, 428, 126, 1, 34, "Subsection"], Cell[23796, 431, 14831, 244, 183, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[38664, 680, 180, 2, 34, "Subsection"], Cell[38847, 684, 5083, 85, 174, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[43967, 774, 222, 3, 34, "Subsection"], Cell[44192, 779, 4737, 79, 44, "Input"], Cell[CellGroupData[{ Cell[48954, 862, 61308, 1354, 19, "Input", CellOpen->False], Cell[110265, 2218, 32708, 626, 666, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature uvTz9ahTk0d@qDwERCJegG0u *)