(* 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[ 142922, 2843] NotebookOptionsPosition[ 125898, 2524] NotebookOutlinePosition[ 142240, 2818] CellTagsIndexPosition[ 142197, 2815] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Dissolution passivation of a metal (#3), rotating disk electrode with chemical desorption\ \>", "Section", CellChangeTimes->{ 3.404105671464055*^9, {3.4041058687932377`*^9, 3.404105894346611*^9}, { 3.404213587340118*^9, 3.404213726194797*^9}, {3.4042141164993563`*^9, 3.4042141198459053`*^9}, 3.404263543202744*^9, {3.404428502542997*^9, 3.404428526361329*^9}, {3.404803514291835*^9, 3.4048036710571833`*^9}, { 3.4048037326798973`*^9, 3.40480375081988*^9}, {3.404803802948029*^9, 3.404803841092787*^9}, {3.404803900224763*^9, 3.404803903078836*^9}, { 3.404803944287771*^9, 3.404803994883864*^9}, {3.404804025477119*^9, 3.4048040428945847`*^9}, {3.4058481919806213`*^9, 3.405848194745288*^9}, { 3.40920423621765*^9, 3.4092042366118298`*^9}, {3.417949385595129*^9, 3.417949387262097*^9}, {3.418261874355421*^9, 3.418261884667437*^9}, 3.437569675324049*^9, {3.441431903916106*^9, 3.441431944249792*^9}, 3.444016704669552*^9, {3.444016943237609*^9, 3.444016976004407*^9}, { 3.444017726589745*^9, 3.444017745172563*^9}, {3.444473678331998*^9, 3.4444736836252623`*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell["Reaction", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.410151720218337*^9, 3.41015172165478*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzNW8uOXUcVPen7zLW7HRHjOIlNt50IEmJEsBjEoyiJ5EhIYcLEQjCwIqQ0 Uh4KhqAegBIhBv4E/wAyYo7nDPwF/gJ/gfMDN7Wq9jpnVZ19Xv1AOVL37Vun TtXeaz9q1zrVH92998kfPr177/Djuwcffnn3i08OP/7Twe3PvwxNs+eqqvo2 /Pz2oMLf2/Cn/fp2G65wc+rHO/Fjtr1///722bNn8dt/81tPnz7dHh0dxW8v WtuDBw+2dlV/cdreSEPcslv2ePz2A2u7efNmawhtsyFejh+L7ePHj7e3b9+G tturV69C4GrH7t25cydKiQv9wvdwD7is4jOQDD94Ds9jmtDfnt9ExTGGoRmf ASC4cA/9w7Op+zJ2xW1ohZ/Dw0MMd95R4lz8PY/dRfpZFDF1xWhB6Oqt2HUd u6qgUAgXFAx9KXMxYhzG0TF1f75XxQyyJNo8dsAYptyeo9ymH4/LyYCvxo9V bDUPq/WBJEHoMG7jJ2hL39JvCELPnIsUUBTfdqyNhmocYxnHevLkSTZnGM+z 1K614RF6eykWzLRvbVDYhg7wNiJATRUL/fAs/G3mzMF+Q2rOC1ka+ea1cdE3 yLQrj5e26kCksJXEa7yoRFCu11ZwwEePHmVtmA39YJe1eIxe5gtj7TKXNuCG bz+yNgsTUbqtDsNOXc+zyZA6CweKuciBNkRTn0E6oMgMsm5pAEvD0yBd8EoK 7NmEzqFttCccOtpkJ/rnPI7HBBTGn2oQ9OP8+9b28OFDxr4FSm4QZB+TBe29 BhnSxTPIQsYzPVxH2/Tg0GMNFR9XuOdZgwhBerhsyrdpFVDJGCFAjbka9zBW 0H5pw2A2NIefpIYMo23mvQZ7G1iCSG9FgK+tjasL1tGX4u8Zo03Gy9GAoQlq 4ZvetENo9AUYgUcgUjVMOQYWGqsZrxPxzPQLT9m6DJEaihKbBqs4uhRImfRc PuBs6INI0RSUeeiIaNwxvZgK8RPGPJAhbem3qRu1ID7FUrXq+dI0Blq/WvRV LynRfzFWd2kxDMkl3zqeGkjcENezjuQVvY9nDKJlFE/rF8tX3SlylbkSCyNG 2TVBgobbFGrQJZtaNXey0hp9apTWwHM7lnBZGGI9vNBpjU4IOkJEpWelwnsm xdIesYox3oLJQ06oXQDtuJ9E7UXcXzQwgOXxijGARMFqa1PIZglp5vgNgVv0 yM1c1OX29Ms+t2/pnEHcEnVuzYgM7tYEXSiLW5wdZr4yEkSt7LjK3hApWA4F hOaFcDbMokcKDyvmdwYL3McroN5oQ+IIAyNzbxL3g6kZHi8TTEUDulCHtCU+ FyfHkMy4Jkicnesc66A9EZr1S2gv7WhTL32h+8CjuYIAY8FjuRPk0GXXJmyZ Cov1VZltihMF+GrYIBWrFLoGdLf9a+1JgJohA5kgahOKjaEzzHJx10Wb521I lbsirgtYGoIScCpoYbvvGi119p85yJSbV4i5J8hwq0bnwXf8XSDW2p0gaIgW GQGErrcKLB1ZPai8JJYInoykUZYBUzLkuDcwQoazyppS/dS6drAlpHLQiSCR 9qCbcAuu0WhDVVqXW2Fhts6nDCKtRKFKGBbgunAkpxcWAMxFcltDCNm9+LGM wvM2FQizJLDXtQB0Aiuq6auf6mDz2vwmGssbxgsuzENQYMHP0gh/NjXMASIe mCc8Vv0170LICTEWvaxLihzu047yWxTRuaU0i91yOUtma6QH+sM/rU15zF+l 7pqlrPB3eczPZdg+vvOX+bBMPNpdU+0Xoh3bPA7Uhj1nhh9FA+66NCDTJhMS Zzaeri77pHrp3hEHg3dTp8suXvGWPVqytgi59Oie7iXrKCjV6GQ0z560neno IbZSmtUNNesrejuHBj4XkzU5/PGZwWVtRnqAhb6WtyTBPG3YNkQw/lzEIrFJ Aq3kbln/IFI90f/P3C0NxroBw8yM3YNITBLRYDvQhgKKYhaU9eZtKmm4tN8d hJ5XhVGXIZ7xbdFviNskA9NFpZ0hVXtehjH2pFKg2a9kcDQAMDy9r8cgY0hD s7ZL6PVZY4hk/IW1tYnNnAsjCcHlNHzv48LOiqdlSaIUisSV+2LhsiJ/LIaP 0dDBqp2EsOOzQ+ThywIs0/ja0jjXlCq6cmob4jaFzyAp4Gn+PWB6Wb0TXZie bbJHSka38ZgLsqCbTgzSOEPEHVO2R5v1kYo3ZaycxMwrrJ2mSMpJ25zCOTti 9oL0ow3KXSE2m7qMM9Rf9G0wlg5cmWd10HVe7iP0fQxi+eIvbalS7IgrVD8W LbuYTWoLfoKqkPXwrHTKBO0L1sYY3dYhv6wrOV5Wml5Um0wiC2n1FqnnGWLP BvKYRWYWKGmEQAAv1SOavGiANsnZGIBUTOPSC91PFeTAKTC0hLzNMiQnxgD8 gVAO3sNc4ys9iHr8I7lJuheTKNxy3/xBmQQyCzG3NCsJpzpXSGXnJzqEnUrP MmXantu+besFiMXDQRu5YY7RQ+6CdS14R65MdMNmSZjV1QHWpLmtTOqaF80Z lfWTVSpOBYCNXzgvOkjJRx0QaXSK0GUCuUssyattt/lmBI8ivC5Iv1IvLWnX ivkogpKA6zrC2TzSknrCOy4allxbuP1lgAqRVZd66t74ZDalFQOWUXqSA+rX es5EVBhLCRNsOrqCTS4OifxaDuIQb3nD2toBvaxJd152OuaHhYkxNCVpr64b N/aZVRk8QiJQGe/tp64EKvENkxjDciqeuwrTXU+YeOfIBmjKt8Ttsz14tPBO +iuMdckEMMFryGxlY47GbapOmDYyvVIxzftGXzSP+/1NUvQjkwaPMcAELgrL AGMtbsZcm5aWo+nYX6Wxf213YWk8jOnD3y+ZpHQAWMzivfpHevLQukiRxu0f u/xRYKTzy0b4G+21qi3NS2jr6mudc1NLyxTPIGcgGsfy9/SUS5gyUpQc/V9+ S0nP31ubxrAX1x+kIfheQ8vv34mFyyG0zYZ4RZxl+iHPpb4ZmMD9vRlvj6Ra l11Uq6fWwMlIr/DTDRGr65lTXTOuWHRZ4RWhej2heUWcbMqJy2OwcTx1d1qn ITnehKOLfWBy85xo56Q3i80GzOaIgK4HGhHXc2BLzm3oeKRuLfQyg5zm0cU+ AI/BTMruOKvx2G8hbWVNqozENQXwWMcZI4Yd9Ne+SHvSo4adAE5gEnXjrtwC srt3Cu8n3eiMPF5IDxug287wSN9lsfopH8E7CVnI8hm+zzewbGMNcFQcheLb iSzqpx/902n62CNdWk96Lm/fxjrOWTqPkuMZAsxvFWCtl8a8jkeCswO+sWfz yI920DqM09M4P9fHV0w4B+elAm7pKIqmAK46SgPqGYcOAEecq1vLDBkzQ9RO eP6tTEFKBWra10QxDOxIiowDsAbb1olrUW/YWF9jmcyqorFn525J72HeSd+G k1LAgFaY6f8r9MHglZJ9TAX3XPj2dlvL4eNwr8Xm5+tDIcyS+m4dE6MumsYn 0XuU1MHfSCCnAYeca8hih7nbgWPggNt1w4JKQFrZ7NbmBhYTDqLNDQgGO0MJ 25eVhYzunPSdcAlEO1uv9D1uvFgwgMJk8hli5S4rWMOH29KGeXcS/WSoBlth +VnUCHuoDhE/tB4TIfp5PvWuQc/zGZDLzlDZe6Rs4zny4Nolm2mIQ2JqJtlm BJymRJ5G6mV3Vh6FQoIry7BMD1rWEov0H5bVe/Gjk+zZOMLFI4+pPIog6wLu oV7MNMDUaKYJt6/YU0r/8FVFuK3vqt35fBaH5wp5z9jnv+VPeuTOf1KX9wU2 h9z5t/bqJ3ce6pyjyZ1/paeO+0++1XPfAXwROiQ=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{242, 90}, ImageMargins->{{320, 0}, {0, 1}}]], "Input", CellChangeTimes->{{3.44401811854737*^9, 3.444018122974783*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzdnUurZUlWx0+d133mzbw3H/XK7CoFrZp0NSTiF1BLsLHHaaG0RSF0IXY3 bY0SnQrWB3CQNDjOiY2gUGh3ORBM8DlK6wOUQyfpA5wd99qxfiv+ETv2Pvtm 3qwWN+TNc2LHY8V6xVorVsT59Q8/+c7v/N6Hn3z80Ydv/+oPPvz+dz7+6Pff fv97P+iKVq8sFsv/XCwWH7y9sM+77qP/yc9/2x8tmSz4oP+83T169Mg62r3/ /vu7Bw8e9P93ZT+cfv0fqaf/6v9b9aX+LD7yltbqyZMnfeGzZ8/6748fP/7h 9OtnqeO/944//vjj/k039GLZ/13tnj59GoO9MQ3mUrrxwRZHo11vtOvdw4cP DbDF6UxQXvV63q7/9rONyVob//7L3qSb9+6zzz7rv52/vOEK3G77GspBn376 6e7+/fv3HEsjBOq/W3k38OJ4uivQ/+WXX/YUsm8n001ebzRJ09oUBL537569 X7wvaAA1N652COf1v/EqXQ9BCMOH4WHpI1pTIxzvHQJlQ+s5A7nuq1iZjdyj LJHaeoIlVtNkpXcDDBQsq95t5G76qfh4gBkBrEeLveuqb6d6GeLXe7lwBjLk uJrq/0EiGcCntu6nY/B7+dJx3ehiwTvrTt91dQfTviRSmVAH4bH3ZBAYIxjv dFJw21uhb+yfTdunv+x18gq26ivfEQ51bC22V8tLCeOHPZBWZv9oJtieRPZK EbpgIo4ta+JaKI2iz0tD9r3LI/uv+78hqwYWr228rvMFMgAs9Ag8LB8GSAfE xicAwmzMjY+sSidN8aCvpxgy1elgeJ22lll5L9YWtCVQT/v6ruN7cFUNN0Be SldG/jToc3U1d/ZrrycEXrTAQHitP3jLhsy6oOyDMlE1PpVpTCNELbugm/KJ dyQ8iNAsbvXvjvrv1qXVYRj73777UIvXBDzHZMj2V8h7YNWGwxQz7HbtJqhw 0aJCYBL1Y33aWLwz0Gjj2Fy/XILcvQRBftLXdfm/1o/GupbeLEIx2uRsYo4U hg6EWTtHsivYUulSz4Z2pMQsR/Sc2kNlN4cxa5qwmldqX6E6ev6mN71MZW3r f+tl3ZDYTfBy4rkfVze9NjSxd74eOiiliXbsczY5s/rWDzhm4bByswOueXsV kvMr5olzR5e7GkV/XbvNNDaxVJARx8CyR81m0MJ4Gx37Iog9e0HEbhrt/zLN +nN5VeJtU+DIusyKaauOThiZHchwKCZgZrejXuoNKrDTUCiOrdP+O+S0R9Uy RjSk7yFO1otD4QPuejl7jqZTcgbkSucOMZeVsyGCVoqgJsmO/U29RhldDry+ sUyJgVWwUofUGMsQ7HVD7tTfvnG1fHHhr+1VLXbdd8RuErnbHhhDEOaPV0ec pHXM86rxfP0F8LxttP2LhIXPfWAbDnZhvTbVxeLgLv016Wm/ebsKd6LresCV VqbKRMlj7WwGJjeONdegm+a705lwtQzPWsCAw6lwWQHbN+UWMY4cBJsORp49 VqdDDU1sJtiN0B6oTZUznBHQZxIUc3+x/3bj5RBdzZkZslbhee1YRHAMMK86 KWgvAd8se8+D7xatClk77KGwUVFnVhX3t/u8tJd3vRv394oZC/IGKiDTIRsL Xv+iXfxmg79xSmRifRObdEuEWvKwnTkD5EYRdii0dQcnnCFrx5rJNKyOhrq6 cqIXNgUJcgABLXeVUsBSOnA4rFfrnXc4w85NoJru7F8H7PElKE1MelJq2qTA GSCQo01xxkakhzlfLXVWQR3F4VVT6rigxkTPGt8T6vwo4ejffAA1kBUFhFWO BRC3/CedJC0bF66tGuE90IbebhJz1xvkawj+cYA/Cz8bvhYG8UkDDPhNjWRm gastJikRwq7qQFtb6PKoMas0RLLZsbYYBgIYj5l38nXHg5pLsH+4VAdjePbh DJBtDLFIMc7aFxYnsOlX1Wxj687S10k8D8H7YgrxLR/gihG/nDmEPQi+I/3P EoKRHVUp9IoTaN9OpAyZQCqxMmy0sNQHxa95sdv7wHzonG7YNpANC260B5Gl umLGi8Nz2TeHcWytFFtdWYQlcdsnpcjGIDCFCDSIKdG1BaoSfrF3XTcbZzXZ 0gnfSemfub7s2tjuPWdJkY4ICiZMXYwiW2OTYJMYiQYNfSzWlCHiDxXxLfab i3d0tpqsK8eSqpXScHwBmqyUJpMsI0MUuzOsri5hxOF198WDFl2z5OnpBu+J z0B5wB5sg8oIrIrfcEAM3axxh14VknhgZ9WoqnhBJ2K4jE9gW2ygCznUhwZV lBFz28nKPETzRg1idF9zY5xNFlQ8/8yWR3p1gYJTdNOMpRYd2/3/XoVnrz6C 06UUWwcuNBTrMtF1+DyYdQ6bi1ki2C8Ls+MbQIdF//bZsCuYdfn4H6ENbt1v z+zVHgx7X0Jbipo9OrF9w9Zwlbe4PcEisuiFAYKR0U0EMWnMcS7ULVthDtRn M9qxOyQQo5v6Pn9zRh8sGMBgYx85U6tt2rENu0K6luA+WTVbo24JsnE8aKeY Ql5Y235DOLGe0hyQz58f5NOpptuiKaqia/YjwfMH8wbXgT06FlKsQZq3vMxw wQr6W14mECzm9P9Go//XGmV/LtP5qPH+Txtl/y5t+udy+WrPUQBmQLQt5N9o lH1boIXxqfckZTr1375etd3tdkV0iLY3G2P8ROBK79ehH3yBwAu3JnR116sS LPBV54ZAV7sxmkz2TX8jVpON2pt/S+OYr3kjq0Amwnm83TS6XDcg6iZIR2rH raOjOw14f5ww8q/9f8e9iMOOpL00vN3XvLqBxPqjOQxVaOdcBkabH8isAIbN vFa3vV+d7E0JLYapZ4jwZpG8J82DLioLZ/OGE7vZ8/02gybJ2B2CB4sMAxWr 2P0wxrzY2+9hEVEF0ahc4UYcWNPCGmYCJDBhGDPNZJ4rfCP7BYWHA5ikOypm PdnnH3y+ODBwC04vLKHJVurEuFPUMvEvnGHwGliT0LXJUjL4NshWICh7pEeh a0WEA1Tfb/bwwjY0iRiBGjb0JTBoYe5cotPRaGaWden2oht2x7vPP/+8mBbg 22c8ga4NdGS/0+aKCqgQvkys21FMVREuah3KyAxxOptyjvKE8YMC5DqUNJ9y 2+jHwJWVMUnLOS5o8AwzwDgBcr5DZIiXF98NbB8UMhFYj1CP8CnUSwHiaepV U4B6D3Jyz3zqSdZPk3poE0k5idyDmqIpq2EXaoL6K8dxjRcMPvCqKt5oIRvM 4ClyFnX9bHGiq41/FHCIGqhLX1ruG2L01ZC7gc5Q9BGpYHNNU3Q1YZDUC/TB F198MdAtbFSgW7aOcOVse8Q6CYdFsoW1j2LzI3txWSKUHH3SStoQk3T//imc 3rzhZ085k20xqiSmwEstREIgkyPdeGcZ0Kyq0mMrE/M2VX+Z4FsleA9aoWmG UFdxr6sjdTkUUtD9n4Y6CcGiir02YK0qnhDU1O1bOFfeA5UaHzpBc5RaFAd/ sVs2n+KDCSVKIpk1hfZRXC24FsW3VX+aOjGPZiUsWI6Sll1sHDEu8YI6IdLa Sd4SQ7DAKMjKzK6w/skrkCHN4+sM0ZmGId3UU6yQLC81Z+XlZhPcY0+pf8q8 GCUq7sTYaYEq3WkYb1kX8ZaIdZUnU+CqxSJvtmbIt4XG9uC6jQrwkoBU5BUz qjXBZnwgOXiKSE60TNLluNgNraGSSNF8smyjuW6EdXU1bZjJqe1tgKbo3i70 g+LTz8m09i01ZKgTyYcvVo2w12YviSZmgaO5C+mYJlGLoUh4kdRGjz1tCiH1 vgJb6v23ZAgMkgbA4xshmwoU6/qg0c1f9X9DwFET6HWv2gqOE/0HSb4EHFYD 74K9c7aOblNGQmo+d5bVxqVEF8yJQRfq0EZSAWFubrBuvAMiq+6XqcImEQFR te8aWcZRNdabEtURDB96543Y7himSaxppd4nKI/DeQDjjl7llLwcXEoc6+0r 2zdbO7YlEaSFbTySccDz2pdTsqdRPiV6sqcfokcmDeAZ+LBpve3l08ZCZdVB LTpLqh3JaC3bspC4bL8gx4aEkbD25Wy+rdoPsdB3eFbVQOQbi564B0ygGet0 wRGCyisoEr4fybEiyVcuDOvy+NFhJIBjCOM4uVmFjGpAXsx3Nul3u7xdCG5x hw23ShIMqZOqfosW1T7AldJisLWHya3JWKCHRQeeKg2tMvdL0Aw1dB2CGrJE BjVwrWXxb1GjAlwT9Urnp00N5UXs0F5s+2SauQZzne4pCfkh1HK4rX8cD4Qk oI817bPp0nrO7DMpV2Hd7ioBh5sqAZecUmIki5/xd3hlMK/RMSVnHw2MaURr 4XEJDdwxcTev+s+xuXtUaH17NPfdquveF8MaznVfOh/h2ARvsJbnVM48XckB jlhC7dcb8NdeCE2bwcHTNJ71fND3qbFOPif30mZdHuFEhGTB6B8fQ/0tmBVP VuOdY2jDvoFKOaA5H22ukANtoET7vOkwKUrtkX3F0EtyHizYIUK+RwM3kuEk IlEc8yvznDYqP0Fx3335Z4dAjQUnoDV7y773WuBdhwWXhEcPUSDt5EhKjl5Y bOokaVQge4plyum1uQC+01dca+N4t0yfOtjekCFYqLBs5oAm0w/LRl312xN9 +X79AkedcA3vTCAguVpG9MHKZU8Snl1hbam/pTs29F2Q/KA4888QLGPsyrhB 2H97x0GTcG90b2CBBkPXm4H6ig00NYXIjXoZGgO2Qbqys+eE9+f7v8e6K9W3 0x16UBcJU3kNcvtg/DRjCbDsVenBHnttKu7WaDerQGCULXMsVqHHsNdgm/KG a5ilVYAPlGfs0aC147f/VoSYjiObibUF3BlLi/PDmQZWO1NE7zq5rKoqCvS1 2fjsauO2uBWpuUw+eurcJ6IZidbN2YtD+47jlOAMD136ondXIHOAi62FKWjZ utE9e/q42ehD708o7cFtIIzHwWb9IwhcGXiiwU6DoTAv7LPbW2FaC5I1b+Ft h9avZ+i/vedl9p3Nom/LrFr5FDA76lctQpDf1bvV6FrB6Z+XnkTy/6QAU6W1 MXfH39Xph9mhGdwZwr6dprCga9hBxsrSdVDLuWDpYAQ0G74+g5cEJPa80bGx 94foJ44vjcv7/eHSsp71nnH1RwlXJNNp6J/g2z4vCDFTnx2nARNQkw98ZxYL tLYUH8ulNqR4+hm31okVrCx8Z92zsu5yZsbpIKinQ+tnJwt2sG41ejXB4B+n YvyCVmwVEwmxVveKvQVdGn1zMbCt+w16MM45M+1l5+Z10IOy+igFKCQnYS56 HB96BYcmAkyipxX/Aj2cKlOP81FxevJ6MZiSW+GzeUnUva+vy5fE/6LM6wzw BipWXyGOWuEEYujzhPGWbiH0D4aBBF/7cnU51UzUufS7nqZYjkIBaVJRlWAU CgzbZLcjyz2jT1GmoqUx4gf5cJdCCfqIXGuw0gNFgto/UNROu6Yp3H2iIhSw oL+Al+gDO11y3ir6BuWSSovwVt3o8d4pJgQdzAKjxhiEEySy4xC6QrPXH+Ur AgXYOMemZQMs3nAsTrl6507p2mRH72GMVSfZOBmLuVczCYzhzXUKNrLRoj4L pepOjF1XN+taXDmA1DpakzHxh4qJ/c7NDcdGPes6Ga86kcS2LywHmFWEJ/s2 pENyccluz8rIUQuyVC/NCnh8+8x49pDUTpd72aozJPh7ci6nkO8qkUL2QYsb EDRG6B4rZxx4Zctra3dxMNFPHNJqT2TAEblg0kD9FwGduBm3M2pCNfjV7dj3 GmV/m/r+E3/luYD9N7qVNNfmGZdfa7Rlr00Ty/o85N5RZ6/1oVzEmROsvxGf NJGFet9tjKaLMFf6/Eo5MUnxivR8hErTPTS35puNtn9XIUX70+RbPR9O9Oug GtcUzHuNMo1SoYq/24BFt9wJUvq08Tt1uefsn5qj9uQU16MI9WISoIWHDsE2 8kirLF1UiejBmLmEGiIkpHmL6Kf+4i/8FhwQ1sdF+eJSgOi5WxywfkXLuru5 VyHjbYKmkuEaHYNwA5ZZdHgl5sWarnaPNwlyquOWEl1zOjnsqaEI4C+QBYwJ WakM7GYiHilSi60GYYBIaVLm8HrloMOLUMoTG937lecE6SrZT8Dsw8OaL2ve SwMdF1ADaZ1z3ICrJOeEPzxFkgHrNRiY3Tllsyd27WzZ/iASkGuaJtsw6VrZ Kwj9qzytayH46volw52qDOPuc0SwMjesa7zWEOSqBxG2aOToByqHkjcdltC2 I9L+tZqhmqwyNtcRtir4aKY+Kre3Suzkme8LqgwxtC2YhjGEmdVb44I+PeGA +aoBfFLYmJOtUIRsNO2ovkxF7UXwHtZXjqPoPUCaAq93LM0A6ZYjQLpQY5OA j6xpMEGkx0BcfYcmqialdy3UMupA1KwRiioTM+9mt/zobWG3knwi8j+hfhd6 A9NiMbxQCLsqRcRPCgtT9/4awcUgtHpiShH3tPR8Het2IqrvcbcuMMjXWMOS dWZOkulyJnmbJd/1Klk5MRMsyn4d2IVz5pwZIEgGSQyrN4VkEMoIYvluNigH VVfgMpuWU8O8Fu/q1FUQL2eJBjtx9njCW4Cm+z6PuTzteqH3eC2ziOaAI+8c 1INiGkTj2FQkCacxVf0MRsb5osSWf3buL+9ih6h8pq+Iv24Lugm7pZHORoEd o4XXv2xEz0mRfM9ro80mGHfRCnmX5LloDl+TtIWzqoz0I8GXDsdmhlIQqafq GF6rkRzyk72iNuSE+civGG8cgWeDGU9NccBNJ3PoOIjZCzhNGjsnLqY2FEjJ 8PU4MALt8yo5PKvkGNbDFah0sroeVCdeJAY+497sdSgvP7rZOo6iXjyW3/gV i6Ur3Nq+4IcHZIz+cWXVuoHncCYIa8eKEmkMKyzPe3TiXkLDNGunC9EGqOK7 IcoUY2NFdEhDjZgWEisv7o3cT5JDTTEszi/4vhwywrYcU1Y+h1IkjBE60EU+ mb1NE0RXoNZeRKEIsuTl7f4c13Vh1yhLaeisw1zy0TRVx13R4uBV3RwbabZ2 mgXctuq9SKSd17vzHVcN1ixas5WPwAW0YmWEHaV7bhNcCiPpK1SPhNda1Sbs jPEpz7czfJegSOYvNuly6FjnFq/HgS2Q3To7dFRUrzEH0Ic+zFhd5xg9E1Ee vptvV+jR43qdqnFUlWFXCH50OCDBaR+ulsejeKxGGpEY3V0EzZfd35/NXkeD eY5PbJYyWknxQHPsNyTKzKb2tjKGhLXR3EIUsNn5JGGp2iHhysBSA8TTa/mF qXrJ9Jzu1gzI1Sei9ywd+6uTOBN/Tg5+p9GEtV5Xj1cvD2Rai+Yt71PoL5f3 ViLGXnXHPoTc6JwolTN6F3lbfSHKACNR+QZRImT9RO6R1gVuYjFGCCibkKUm C9dC4P0sPYbMJWDeBb85IIGq4grVOSI0b3mchkOPK5aZj/N6d8TSu8tcqSFL Na+L6tP0sxO6CVuvxZrbQg7jzLW48fmnsBYDsBwqn5Mwsy86MYJ4r86e+v+x tdiIiImt5S0cVWX1WsxTrcWcHWDpmrMWVyNNCtAmBGhI95e6JvOMT3BaHX11 azLhRY1V2z/Tv3ohYK3D78sRWs9aXowtxK4p6syYXSzE7ettdNibE8O+6BI8 Ad7LWYKvh8VDsOqx30MywnpFH6zF7ETZtzvOf9TnUi/Vx2Wu4ba4ilFy7zib 2FjrygD9Olo5Qdhp1RNOo3LU4v9rUTZ26LaeXz4LfV2Tq+LInj2EyxSMdrjs ltI+xlKVwL1XM2Fjs5ZuPP2TEGeL0vVoY+ddgby1aOuRNA/ftxbtBN3dyAuW qyImQbLH0wPDvOOzyFPRB2ZGJMhN6dGDwbBkXeUj9eOheuXpPYmaCXlvDCBm xRhDfgXSKLZ0vKdcT3xtFLETnOqzfn0Wh9ozRtQWpqoyV8rl9oWOJxxeXLbh fKcreAur1XBzZV+RiuwnrNzcu5TPwdi+tbwx0wlddj3KZuifGp44IK7vCFsi IzVDK15ozxFvOUcXRgWGlBtTHKBs3U0gfL5YZqEa9MEvUOt0BbwpA0BXMzUA OD47N4R/KZC7zk+kX/pYNsZvGRSXi+lfyvDALMOIIB8iBe93YZRM6NkG0wx/ +yyBvOvFXc/Aa1rLnnG4DoJXFWKVn+YG/VfSJfQSD0xTMTzdLXCskxCuRyAa RkL8LlwrXf+VhIBk8dxQ6scImuggObxFKry/S7kZN4rglzJFfcEBuOOAlu/7 JzS+rkn5QTT0fKsrJaBCyzIH7tB0OeuhfSNwA7Q61JyS/GzWx8XdAzWC2O7/ NP/ceJ0plJLmrat1ccT5Xv79ThjDmWLc6DmJXCzdfRwByHHwVnHhCXEqLOsW HulDktymuCPeaX/kEOIy1+1yFuW6vvSKjD7EIWeHHQ44UA+cxnba2YAGDcha WGud+DhwAd1D9QafxZ7ofH5d1/RlI0UyznUx1/MBYCU1OS0843q+wvkkx3Ap rBpiNdASN6xHzkQ60Zt/Ax96Ag0ezDi63ZTvmnIjuBvIQAnPurjkLWa60pl6 1fOoqiCMqaUxsdPLp5QABXsfKHsPsKLOrO8Uo/5jkSF3wEHTH28oTwGsw+iN K3GaPWAF6VqLnI0s93pdDyErd7GKBASSEm5NAZRXMr8wo0cFh9JUYZUp5uUQ VxRBOZZuyivoxuVZ9GbIM6A9KA+KDUNTZ4NjOSoyE0MdeycPHxa/iXRU4ZRe DW+3fSL1YajG+brCCKy5IpK3tmNreusHVArbpP1DWwCsBOXKKq2n3er5Hgeu SDWoMziUBK83+tMfYKCe/rIK/f3STPi+1ajXGvesAd9Fo20LL63DZ+dSj1ga +gUWU1WoR6Shtf66XSn7+RiX25OrvV2XBwKdmyM9uKV9uqmwhcTOp2JZobq1 H6pqJXOoDsKVmtI0OlRL07QysfTHplX7FCph5PDkKkKs6URqWrnElG9uPNc/ e556sr/DKxF9eSFTRZDjgJ/qCbAgiTpZ1UlSNEadsehV6wSdLKcbldNJpnFc eTtXJQdTbk7xS72sj1NqBBPpmdyLBU8/kyug96mR1m9r8csdas3a43WuSzcw 27uNbpiSbOnGT17vm+a3GvUS+OsIg3gEhls/6lCtYfXUZ6L5a/YUi9BWR9Hm N9sDchRYkuZD21RXMKuydM6O0IycLo/luGrOD43LWcOAr85a7MV9mW3+8nTj ndFBN60Lmt2+OBiIo/ZZ/7i00pKomX274ZPTs3pP2IZu/3Yj1oGoU0Bv/njZ m17fpvFZ9atkJz48dom7lxxbp5jZqSGhp2nc82ldKeszKHbdpmSzdQzZrY7W MVD9pRxwWv+6+dO4qHBdG/bwlp7CiZu2VuomhILQXvUKKCzNi0bZadWfQq43 0fxcoy2chI2YuaaE5XeFk7DBOlIi5Q0n3ro8bYx4o1F20e5df/kHCiLuhCqc b9GMskcYtgx7WTwpkT4dxNIoKaxf39aVvPAHg8PcMJNfwdV/e9V7aow5uPP5 rNFej3tDy7XTUta/sN3k9P7Y4a2WRBuizbZiQ1xZ8a7XR84UZCQaK8YvUjr3 JuPHp4buRvZm13GtpJuFrSOh4+LUukPBZbqf64+9mQa7nuafldID84ftqsrG LacCwbnbaN69O2tU/UXHikZ1iA79gkCGs8VPrVVXIyxlnv3z070GbPHK/wIv BfLq\ \>"], "Graphics", ImageSize->{755, 90}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4440181404908648`*^9, 3.444018142830192*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Steady-state", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXc2vZcdRP3n33nff18ybN+OPGY/HYwJx7HwQ4sRJFBEnEskkVsgCiJMR gtgmIDL5ICgxcXAIeAfKFkVIs4KllwEWQWyRRiISu2EVIaEhCStg/oLLqe76 9fl1n+rTfc69780bx0eaN/f27dNdXV1VXV1dVf2Zl17+0h987aWXb3zxpcc/ +Y2X/vhLN774zcevff0bbdHsLU2z9U9N06web+Tzqmnwp3v+Wf5wyRuk4NPu 887q9u3bqxs3bqyuX7/u/snoX3/9dVfWfp5JYftXqunTvMf93V7dvHnTVb92 7Zp7Vf6XMnnebXT19NNPr374wx+6slu3bq2AaP285arNVt/73vdcVfn2Xu1K qko1ee7evRuglOdd1NUn3ecDB86rr77q/skjoFV0DUTItyMtkyZAF1vu705o Sh4ZsYALTLS/Ld2rC1cMqOUVQWXaVYtYLYtHKQjX71uKP/kJUyRNA+fyGXh/ aw8Z5wKypEmpx1Mu7yfICOVXrlwRZC8UYgxSULBwf2cBv1IDo5D5kdelC+lO 6rRzOtNmaPraMXlESVWZdhp4QJRAIZC1dbRsEVGd/N5203gwl/ge5kf6E9Bb MPwwf6GHonmY5Dt37ggAM+3HIJUAF0hMvp3X+tKXTqr73E5623hHDBij/CYT D5gFXhlPwGVHCG1/AvmuA834PcDY/q59xXQMeMGt8s29+Djh4ZriAYALEttG ALu0J0XyqGBo2/WSQb7LK1LzgvYlsEp9meMFtYExSjctLgK8inbC78LBj3mU Mbb4CyRmSZ62L1CqEDuGarF2dvjgDm3gvL5bovy03xbcMO0oI1D9b1uKHfkR 41TRF4CmpajZV1qBYAD9QSJIp65mn769TNXKzVVFopQpRgJRhTlfujlhOhME ytPOdQOJBHpX/Lsu6POWvHRW20v5UgSitN8JwBnEfjdJl2ksNzzWhBvmgMS1 0A6EmZ+ZTB7pVJBzyaCELX1POpZyAQqzrctVH5DnCFpdhJorilSVVKFjHeEi 27dnTDRzkcqU4SIYBcGjYBRqUcnRPOb+zgNJ6stMvdInMzeWBxGwgE2ZsVdP xtURR2Ey3XMK1KCTKXjZfd52KE4VrXaGGIughD19hRdr+V++O53AiyFI5RWQ /Hbq9pvaBlhZOIKWtC0ng91aB4JTKbMX6WogOHmEAAVESEp5nqQu/0jfR3dY faW+AYYXNufdyKTpVJnCogc6lN/QrWCEQWy/s7AHIrMggn0hUKV/AQ2TpH2y 9kVakWsKEigoad0aIMvxlvZkzaGqBwEpGGkf0oWDDNqUQC1cNiOwsExIe1hi tS+smCwYgdC2ChQwKCAYkECfAWceJLe+MFdISGa5dljFdETuIYEuQWu+DGJX 8YdVSRZH19RTPQi2oy0Aum2hOtDRYA6wHMmS6t7/ALX1da0MMpB/Sl4NGuI1 UDdFUUOfUoxA0qsIdFV+Uf645eoczQFWQBk5CE6e93ODM55V3+Ev6Q/Ei82h +7vkRSVCvozEFbzPN/5xhSPdHDEJvU37gYQSUvMr+B4vEO53kKxMGdGDK3sv d7nT24KoEumaabuHHlhStMIQVy9y+zPW31uuk4F3ylNQjGjam1/TmUsU3nQP KnL5SDuX5to/TihcjFtJ9EbQ8uThsLr2NS3Dpjy8eEd/YGHnNYbmH4haVCD4 d35CkKnsbB7171yjn9DcDS0jIeXb+an+AAaWH5J2WPNAOxDzAZ6f0fxhcKom /EB/6omk/06AEhLVd75K70Ad+ZBRttQyCFT59i/GWJ91ZVlLxxNG0x8zyj6h ZcJoGP4lo94ZmgIVFM0j8ciUYdy3Pf2bW17AwwJt+85lHQwrIbChuLWzcQsy tFe1NgBV0ghg39WWpCO0JAwkv2fUmf1hTD6tlXLWKKwKsCsItvZrxhNrSJcI 8Eqlap9IVyVW0HrZKPYgUbKuPbodnoSnwqAwSfwKb9ZogWSJDso5ezLoPjK6 3hvfjB/BgYlGeQxopXhLCOtwmO6w94FpzXfUzSSEp3LhV/QnAN+hf2FpzNE+ HgjY0TLeHh0qalhDJrnnPivR8CpFuAs2CEzhKvBpDBpMBZbyf2aYki4bkF9Q HFi2XYFcyqEnYCO5p+8MjRZWNF1Zg8Tmvs8p1ir3Kgc6OlZ3QD7tKw+7n+eA EjoqTHu1OMQGqnIqLZSTVmyhfNsgwsN7OA1LA54pbT+hIzEwnRtDoFCdrAbs nqFgMAkzzj6BD5Vb2f13de4NE7/y1gUW3uvuXgfFBZsCvbp8ZlR/OhNtHyLM t8OsAENal7exEH7Qzmm3q2X75j5fHotdsGUlLdA6IplwQgIIsYaxaQqmvY48 LGR2ep9/V/4eRjZ3QAuEYrWR78bxko72kFXk6gkrTZYSnUUbnsTPbcaSssub ix4G1MobJocxQpiwLPAPKqx0KIGzIpUn24Eh8U+R4nGyU6I2oH+KZWkUrywG cLLbwwnrIPHJVfF8zyLebSVhlkIt9PP7l36X2u0UuVrZLaulQ9LCg7efxVpe xsUbYzCAHoS6b0w7GzgiZhs+xDYWNugBghNd2L6gP/FZ7J6iH3ONh6V+3si5 sPZU1QvaIoEn15fH7i4w1RNcMN+y7g25viJZzyjBeVfOHOzHIfNyJsK+ZQ/e xDk21Dt2g0jNUp1VzhIHM1aPwkrN56lgDFBy4g0QUSzgQlkdPewNzhHZWJYD w6jr6two+3p6rNwODxBjdtkC0jQ9f4iHFEbegsqjOuhS8Z1uM8r0tV+kr83z R/+cXTYxOYyk8Gm/28pCQ64XJXKFqZBFxn1Mwkv9O02aVneNpawkLADOAAaV CJfRJMvDGJwRyPE59maceEARLLSxjjHqdB17QZuyfGvQFB+lzJTsMqdhezSR Q8vV9nAzu0q0eioFm8TMaJ3xGS9S9qnfXMkDbRgnfu6znudZ6+8YfyI2j2G9 TJlIdIdxa9F2OG7EsJWqrTNNqKYoo5PEwpkm0M8HCHlWLTS3Yx2RBlTThklh dD9h74GqQy5kFxRBOGrULthJBFVnVAb91Q1Jj/oNwoGSM0A3TQGtGarGGqxo iEjKwkPGdQsTU/JcwxGJpT32Of0+oL4JYmqoi6OkuRzHgugLuGDBkMVFDDzc lTbl08hyBO/vUxnseP5sJywJlrvhEK4zbgk7Sjl8nkb+XLyFHPKJHXR6mIeT DXWVGLdSZBwy9nmiLIeMTXldsqrDpiK4C8gkYmWtw5fFtvOANxVpcPlj31R2 3Qmm+fLkMvrbJixrogVsofVdBZA8Wtx7Ui1eCRaR63ysoG9HvhJY49vxQzGB hUhembu/8fFgyqMi6jFCQN3V8z4vEOQxmFnPnwKhVTHBTsoEKa6GUAX9o+T4 C8eM/sxuR1s5GjtQdV9QpCWPp/XIDqspdZFUb1ixyDH/0kaXRT0GymbaQ7qf 3qj0Gr28WG7dWF4wzg77tkvaQ9QN8Lk9UP+I6iuywrIAzuzmJOsl52TxWO9z nFPCIgEdUz/nbdMx5yAYAGXSJYwOZwaG/qDR/nKgPlzW1Pfb/Y5ttNTD+aWi 6IpHibOcr4IkgUPSzP/qz0xTMpzging4Djg40A85/oMM+Fx2yNDaJ9Hjm6ex bPH4MKmxryC62CqCO8d3vDONAWLmw7JIYlm6YFcMONlF4mM4uGKR7cl2SB0S I1b9c8Z8zJOy2yE4yXaQ3VMKg1o8FAACN1WyUWGsMNxU0++QTIHwhzVQRDJo 1cLDkEyx6p+lMWN3gW059kYYM9x1yWchjBEmPb9853E85IR8OAIWj6AgaZRI dQoPhuJyrFCT0qzEFHvcM1XPJV6qnBmiwjD8NLomVS/6cB/07B81nAG11ZKM lodMergoZWoJfVGRMhQAxdGBmBI2NRi+6Q9kMZ99BYOCm3c38bFE1CC49i24 0ZINIkRdsIPABGrEMHnzgEdnTNWq7HguGF3sDL/yYX1FAI6UiCaOnpoFFBRC BC4pxhKPNmxnxka0DWGNicPi4Q1jcml0W6DJx6aTC1sUY9e5GIJLVA8TyF5Q ysihjLXviCHLEX8pXXRlw4EdQCZv/5YV77GPOfY7YE9CeDQ0wAVX4v4hVjWj Mrg4RmEVDHNNhxcsHc9VjPC80dVOxXvgWmvNRogLz+LYUByOP409dK14zwVO TkNbopnCjtZHY0xB7C5yzKgFB48l4Cta0zoRZYu/FU5qwY91B7HnnbtLTOxY YI3T1DDdPB3RUWM5SnahwAjFMOYrg6d8b9WxVnsEMFyLWJJD8qQGJEFOGurl D/47Nygs1NYEQGiy06R3Ottm42OIhmiRj13v8SACUT7WkgtVigfDiBgZ3wbf RcPDJKysvMpbMdIPaz1QiT/o2CT+Lq9Hh3A8LxEHuJ8ADZwI9WOVrKggVBx0 W+dYvFnCfConIiBOmlEVt/kgTTWaZ8EEIfEjomXI+A8qGMYBb/Ok0dfHjLKP U1+xxTCGaaEDz9h3ySSA0f49QYyW/9Ug9g8RVHra0PyHlmFXKd8ux81KE5B0 P6LqYGqp21zstFVMFqL9EGkoXWKQrh4iDVnVSt7B1usWAjT/S3+Ac6VwikY0 /iO9AxXFvXOH+sFs6Dur8JyCFADHXuAVznnw56VIKP98Pq4HFwChNz5kRj2/ 9esHP3Qb0bl7D321hDFXOiHn/pAyiQ8HsLxCkDg/BycpnUOBvOA38RBW8q8z SR0EVoV0gKJZ2fh2OOTCP+kIFdX1Rh4IRWEmSCRyQKZJeN4jzWvlR2G3z457 6lbsvpPi0rMFQozOdLD8Gwao3OG+Q4pH52SxGxdL2O7877B3Rp+64w90o/0c 9vpBfdha2WCOYeuK3PNMEAWqw+nnPDagdAK4bnlYBHcX6igyBts43e7hVF3s 05NzPEZTwJHicjeKR0jHrb9p3QuD7UsbEOygaa7Pn9mpEfMlRqksDrWC+4ZT TD4wm4g+5TevIPgQuts+pLbU4nYF9rT1ZrD52DkbaosRjhLRCnCA7mln7p/n Y/xBa/JokL9Xi8SCaD8IWezJ5DvKsUmS72AitMttcRhJh77HwuTjIYPEpPaZ kSEgDPzxMQ5e0VW9LxvzNPgAdGComu41LDrQBuQzrLc4JsMc6wKB8XpK2eWg EGR4wLEyuvCTqloPZpDHxctEJ172AlphpM30A/sIN4UlBNWdw5UnR1j4VP/a 0qWHFjhC7G/FiO0LyFnwI14FtWgWVv3VqjNAsJIMczukctzp7/hO/Uq3NFc6 XZobWOpgM891iBhbQSlzX0jZ5x4fjal6yXakl8gIpcH2hae0fcJvZCuDDt21 +4Jvtys4BYrdn+sgmWpUEfEeNdc3ljCKleXvahsctksTtamEUY9Rl9iq99Ns znCKFZX13V1OXbKp/vB2A1vAykyxYOBbFeanNTEVj+rL2jUfUuE9GhFOoe9h /iqGGtkbYCEU0WpZHLFJP9k8V1cJ0q9qG5gz1g0DXqenweKMuSDQTDbIiEA5 r+2Y02q7060u2jeMJGUJbDTJhBderUmr9Q7f6Xdo6gx8YoZ/ori4dctM4mhA ts0GLfeo7KuxprsCTW/2LaJDdfAJXfDGETTZtvOzhEhYArevw5zIWjVZPack 9Xo7wzqPFEx3pO0pACYldCZDgU2apTwcGNmuHCAFXv5EB8k7RxBLYLZ5pFHx xmT14bgZkovuZ10KWApErkyOD34sf57jsXsWwCD1cy/iVHZnqX20euDfUojh 6SUPIYEhhtnL1Tmr71nujiCFJ+IueKnUIUvZbxPoUBdh5wQ/iiR/dzJskb0f 1aYZ1ySt3mY086LR3UeMeltG2Wc92K/If6ykQKI/SVQEdaoqEVO8BZDPfhvs J5DdrM/5vlsU+zVpz9TdjFRF7yDYsnrbgvU2hx6BGJ5c5CF+H+SmosXQyk31 kL7I+CigsJRd7God4Kwadz6f54yXC6r4I8PgWEmntowy3d59m2ZPtajmKaVO lvmwCUzJSgR3V12e4GnMZ6mIa7b2BncyKYZwzMWSbmTWJivXFWRcanlR68C+ 0SsibRSyE83uZIe6PmpAaaV2eljxziCW8I5UVxnxe8WYynQUOd8zJglkWxqx XbSynx0NQ2slbbKo4jc9Br5PgMYbykUUb6b4utf5ZCB/2/+PtAtk/8TDTUHq scWJ0B4sVxCylPag0WOQ671EJ1b47kbzCMWbZCvHFDvCciDIxPxCHMmNEfFe EeW6FX8j5Rza6+GJ+YokxzpJs7Czp1WvTGalfDpwXCY4G2S0SOl56vhJ+fAa 0EH1LEW0kE0uBKeGlIn9hs4PaW0bVpxJ1worZud9jH3D+YUsNlYZ/DcEUexQ WJNn5/jyoLCNCrGDkLqsFCopB17HJEC1TSxxZrIRdh2M3fLi1BxWRPu4BDjV djwrJRIELw8XoTMjE+PsGyNhT+k3dLKc3QhLluYvlr5NJXeKg3Zr879sKoNO PR7QT6r8pkdMJQKvTIfDXmOpttG38I60tM9TKssH2B1fMhyLhYtCdyiXzFo5 QVLzO6alk6t7EZvKg7rkvt9NXWX2jXJ+C0uqViV6sc8SrIwM8DsgD7dA71A9 sExDp4h9VOIMMJbOivyOsKYnghwnSasgyE9VVpi9Wtwg5XZpVvMbFTv7S6m9 qiwo+yWaDGTdKVdnBqkgo5CrVJyU9yVPoJbkW+tILi/2jjfpi5XM6jd8I3nR d6w5K+apEwhr54LVpzNZE6z0OvKgB50RxmouoURNAoZ82osJCU3io8tUhODp ewpOSnKyrIT85yfJydQ8O9kEJ4uKZjMZPPyr+2HMBn1miOHAGqH7nNGcIXRK nIXcF5lpKORXqZOeUz0D8llc4skhmDec2GSSCJ3kZ3BVm4Ou2/VuZ2mASR/q dZL0wVr4h/J/eOXzbLQKg7rAyAMpN7KRqiecI+SgFmAQhnWUBSUng1orn0Zt 6pD5+KaHiACnK5WDvlIkAIv+LI7Okjj7/WIEk25vzacPWfSINHfErC4IFqcO 5eoY8sy5qm2RfBnMdoA1aGwuj3zezfocJfB3g2TFCmLlvLAY+CzBBX3gXuXk gK6RHHbuKK1MSVJRm5hjtkYfQ6SxP2L44FwLjZydPybJmHNxBGFNU5ZtR91Z bJGflaxjnh6f+wvvTUZFK6yz1HizwXdbfsKaY2UzAOPQTrY2RN/i0UKiCyvX x1WjGdTbWEIMBHbzsSIYYMLQaxNipEk4R3RhTdYzw4M8pFesOY8p03aStFLn PFpoF2WcFArnRBFpF/MLjE2RAMikDHuPfK6CSYko2CEPCKnJDmHlzbhqtHVI 9dJVZhNZJLw7yHD0uWVV7xOMrfKVMkvM1ujDmspnKsZ8lvpMyaLfZ9Ynl93g ABJ74aR6Yr+sQ7s82JgrT1iOJ1ZOBGz/xjvhXlZcUVCPezj4HqyBXsZkdTga B46VfAJEcoJ5GCx7/U7SfA4LaR4GC7QxqQ/eP24IyE3IE1p23QaOGe9bRhkU Wet0Rmn237Wiera6b+zji6beT9QCqWZlHHiKyuCW/ILRx0eMPraMMhhcEjur Qu9G9DxR3DPPPLN67bXX2h/av4/In+eo5ucIEJC8+/t7VMk9pyAC7M/c59jt tOCfW4gAs7aU7i/HyHxH27B8wp19YXwEWKIcu7LHqcs/dJ/tCDB40XBZ3+5r X0OYGYKyxcbDwFhLyo4RjkL+ZO2mCwkHa97k4J68n4zfh23GBaLGfwRTiOnk YX3Jfe72VFy/N6R7cgrdAxlLEmZC6HmCqfdYjo96wH5Zm8GrWBAivE6PA/vl HoX248Agd6jb9eLAep1uhQicLWdImEV9rRsBpmFn39VmYCTXBcuK+MLUJshu NhXx9c4YImlOmpAm24H8VHuBBgEcy3M8UV0acPSKwsOuNrcQPtohLvVrRITV Kzp8ROJDEkM8ee8hv2hZJ3f1AVLv5A7jrBI6bK/WOSXgx/Ln0/xGf9PK5OOe Z+P6wC+wImC16OAd0wTItzmWL0Dffv83bbcfT1WO9EHeYQ6iekHLwEEidWsD qzR9yLcV1+z/DK+mzxuvfULLbvmYfPftXQm6xBngo4qJTCCHCw9yy+RL+rIS pfv2LHWSbiu47Pl4DLcpBcZtn1pCU+Htm8FQgAfSPY05GhENdWSMYttopqDn vUNHUhua5jCIWA3rtLAtG7z9fFow1ohoK7yS0oF2OXQLOsejXHRl1ZF38Doq MdWj2uFghJ4RPtZYd7SPirjDFpMHjkUvM5HAC2HdjJbRkMk/1XlnoFq5BIYw ghyyQUd7iv3K2CgrEgjjZbSBQUbsSC4aTR8WoEt2KSwMYXIqXC5fvtP6QTO+ JBcOwbgn36gU97qP2B8Tw6BBDGeiuYESioMdecaEWWS8wlljBkNKs6ima0o+ yuSgp3MUmvKU9XAWsSMiGAtIKMYksV/2eaWBMfvN3J46OTcMzm4cj3MH94Cv Ffc2FMTXn6vpgUnESLXBJirC/lp/OqaAP448qp26ymCu/P3n/cgqC/KMSMSW iWKEwsJbG+DlCerMKGKtDHPE2kgpcIJ5nXcMa4QrsSNtNurksKdusJcVgMdR th2YtozIg+m4M7l0UYWoUxdJVo616Maf7F0t93L4+aW7HdDjq4VLmll5mFW0 VQo5yUev9qP91kABR4XCK6TOLLawrH1Ru0AHuw+mkTm0kIR7rHOmPUMKBU2y FPAH+ZtH1fB13kawXynuROXv9wmaeKQ1wX7D902nTvvDM1YXy5WXuvsR0clT NsLG8CdG2Or4rKHAhtLYxwQ7WvsSUPsmQpYe0NlfK17lIKy1RkyGFapmRarB WpexGcMLqjKwzJXfjEI8hq961j1lWG+xteCJZdFkmaCHIkOJ6CIRMdTethJ5 DrMgFMKsiVpfdsSuLB64AXxkNgelkBc/tOoA1zTuh7FjiSfjQALkX8XeeUW4 /kJs/JawUq37tiaJyQvhoWOXygueCycvveivIXcqnpqtIoA150LrXE8/6UzJ orItBZfrY2anBEBdSPpYJ6DFjNqovue8EEmRBKNtacBRqlrnA1rWubU3f3l0 KhtLfSDQMhPhUsDV6HAna+fRDqX2TudCoFZNJGudiOydf3K0UI4t83Euy14Q 0ljEZfilNl6wKC2rDnwBGBazcEvxqLijwYig8r3O64WrYQenIjLMR10w2aRL 7pPDbkCQsgK9vU74U23AmLocl8N67KULFMRhLBjZQFhcwxnGsbHA2bxH2GEa pObauVkXGrPRS4PBXBxLk5o/atsv4+18OH8y8DYGB4XQUpjrrRkA5fcjXctX JxeC5uCmXODPfATWUe34A64M7hi4PtUq611x/BlXPCBHs+PfxO3RWzVdrB3w Vr6Kfe1Lpd9KoNSEJEEOctzN0MW5Y64sVht/txj7jlnt8ESz0SuDSbIr5Yxu /iSCkjigyGIXDGEoDs8KSlqMgA/mgLqgJPsG4V93v5l8OwT6Ji9nzre/6bi3 ofiyaRc2w72mKo6psSKzss5qF5UFknPo47ji14rxGdv+hHAmzlac+tozIWZD 5DYRy0TnK83AIpaFYUNXHKu7Y/Bh3FjUGuc4MuCzLjv+FS2zFiErYqkfiDXs 9HiR3sP53SbvvWUXjfnIdi2lriYiCXgE03f9jIqJw/XqUyKSIOYNa3Us5kdB tMlbgPMhbpsLUVtWwIuFk13F3kuw1cQpcZDPyJtYcZGidR4z9r5YChSKjAJD 724gTgmWutJ1tdgl3K0PUhq6BFbJ2HLwKATWTbosd9m7LJdaDJSLslxY2EPj ukbSTCy08g24Y4mc3lIrDwzSuKWWI6xepCnDwdOvEoHXRF0lBghdL28bLVv3 376PaBYs9iFt2Qp8UD909/mzNCJMufzYXJI/HP7lnlMQr3UyBa+5z9UeroV7 EVyTHG/yF+7zuBz/hVzz7vtV6uOb7vMsKDPdZvMgrBSVXnvHmBw6A/ZRcB+H qIAXU87NBTDUHaqun1m1N6cv65yS+hWWosxJcHPSiQ972Pb39ewEP1gQUuZ4 pmQx3EACsh5ev6WTgvoYF5StNRIbuc962dIrSiscXrEwyv7PGBbAAb0YFpIx BhILLGkyDmWIgy/+V7HEk4hRsj1XKMh9+ahvH/dhsaMKB3Vjkfkf+esN9Mto +kCCOErgxr9CDXUi6HrPMRIqduqL2bkHbMdXZysptfX9dMyj1f52l76WdTH3 moYcfVV/L/kLsUTg42RoUfJgm2u5bs0TOAQDw7FLT8YA9o/ct3tSP/LE68Kd 8Oi0W5lLu24/4Lv9mvtvL2oe2Kbj8LRL3kCjSzLPcJdHOuKm+an8eZb7zZqS 0Q9tH7mfoY0Nm8bYI3bUbHjwhtNx8YkLy+xmAE88noeTOpYOcZnBsWwZu70u yAKRiObtnmlODTlfIDRh2k7phWTPxQixnIJThOg2jq0VOU5mM8A7tbkR8WMT bop13OHELK4jGhMR9khNh6foirP60Lo17zdLoZLn+O4363mQ3OP7zT4VM0lp Y42jSN6kBwAX0UKs+pfGnG40m4WZsa8cmjjlFq9HxoFiRfmd3pvSknOO47op DYw5cfd6pTCKu3FMI9QqnvnTdUnaJ/3gcacg23D4iASWoMd0WkgzCeIV0QyM l0JkUnNMuVc4GGPoPDANJLx+PNdVdecJXXjVmzepUczTabhtjxWtKcYikt6n 7ia1fCDR/XCTmlYr36R22HMnHWE8PO1Xqamk/jv9ifeQcMKFUSUfnXQyKaJo o1Xy9Ukl10ldXIXUGxsermVbSZ21gPmhSDwIEwxDZ+gNcqOadfI51t6dc2S8 tzeqLYcI0wwhkuc47P7jblSri5TkdS1lXJZH0ATHn4Gc2jvVitL3xLLZ8YF4 Kcd76i/St9JOuP+qGCnEPlFv3qt2dyP3qg3Fn2ERqUTQKb9cjYXjcZ4xVl2u 1gtlrL0ZCF7vIzjJoIrTdLWa10LDJQb9OJpFBA6OFMBZ08KSqkKJ4rgMtnyA P8dFB65x99VwkA9Au7ZeON+b966tSzE7psMR4WoIVafv3jUESqRisuD6MNHz 4RivXrvdhUDWCdhsMDN7gBhUcjqvXlMRm1cyJ6X2fYh6wtzkQ/g2dnnXowMg /Vxex3bdznX55nVsA1y+GADHooJ7dheb+odYrDt0MdVQduwhviUh1CB1zaYv 8Hp0ALY3+n1sHtHBhYNC5t68kq3+SrbFACxZ7j2ZK9k+5opNfoX+SWEf8tRk mEf8jjXBNyn6LM1Ccrc+yMsKtLs6DNU9u5Xtkr58l4LssHnZUHzb/XYr2yIi K9gxLFG/zq1sRepe69YCsG4p+I7jp1SEVMd2Wax8tQK203YtmxWN9+a1bB43 TIKw34MTpkRAMoelx0vKEX9LzWPfh9Ax8LY82BfenXgnmx2ZV/JosyLzHhvX /Sm5g82K3nsj3MG2CFTCPSCyjZFuxTZCc7WM+Eqg/6kVOXSv9gK2DyrkSZje Cd3BpgNwg4KrtAyufwfbs1TzJQJEH//D56mSe05BtN2xFyD0XlALhamr9Fdc aR40dnUC6ur9pa/nPTR3gvYN2sdJvzyvS1ppYaYHorMVqco+Q/BDwdkKh5UA VhgWlN154cTRmVuoHBO3TM42TmKmXptpf2ldrEBga1mJPIkeBNZmNyBwB9V3 5c7XXnj8XDBu4FWAlDZldN01s+g14132BduL4JWF3zsvq0UYPf7vfptHo3dY 9go5lkvvQeCTZ5E7nfcc0/NNAkmv2vJyFAherTiy5IiJyc8uzxydjEZCPzkB db9D6AJ+0k0CkULiUr1IL4MXrdd5HoncUWBVg94CONjel/aZ1mWnVdRv63kl +13Rjpxf4b0BGCjxdXWfGZRcW0b3g+2kaKe6nmqOeseMIFgLW2nzOovqnbcf gZcDCadS7I1RIK0z0elh2iB3BLK66W5LXK1wnAMy5LpaL3WzwoOpY5v+Dbns RbjlYgBbfoKkxYylKJKHz1lyqJG6ujGFQkTE03PR6cr2I94bIoabId113A7u cMi9myKZyoIZBWaY6Ahpz8QGl0XzcDZMYQlRsLvJ/LAhbOW3oEo682hO3S7+ Wrg3MN78nA1LGzSXpukSiWFbnaWgnR4FQalUEwcu60TLhlN1g7N/rIyomyAh PVMCwGrM5xteaBPlbd8PBCziqaGdpKlwHtLA6Xg/nCQMNROTzG4PZYzt1EWT /UqwHBp01IwhJNozRPPRJ6Td3rIs7yTOztr3+ehmzNu3u0vkYKGlLb+rw1o/ LUPsd86nFZ0vwzJaTtBESk65bhNyQigKM3pY4N4ejOlQ+PGZX9EDmGiBS1wV 3WerrUz3g+1YBIUgGwh+YCX2ZygTVOxJdLbnsmjBw2NnBwYmqCOdFeAOpnY4 nMvTwomjJLCmD9C9HoUzdp6jR5HqxeizpBZrr/jeuYrEMY3qnd+k8HR9d2Vd vSXXi9yj74asBEdhCUqV8NSdmuHkoMdOkahrCzxotKNeCo1bfEGeqCefsTdy SkA8Dd2w/WEC+Kyd3dRDkYkoB4k8cl4z027Y4NXN7xFTk+ViFztdyWfhFE4t ie09juzoSLpniZRv2INqWzq0fr0OSH//ZMMRgeyBwvIdi7qfzT6QKGNsWCbP 9xjtIbYx9a9RYdoVPBHDyzJf6t6gJJbYbgkf/D6Vwfu5a9SH9p6QnaB5y/8D xLHhUw==\ \>"], "Graphics", ImageSize->{697, 255}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4440181625703*^9, 3.444018163599193*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 3.405907109932663*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztfV2sZMdx3tHcmbkz92fv3R/ukrtcLUWbViTRP1mSsizDpoxIlKw/G0kA EwFsh1CCiEFs/dhRAEYOlKeEkiMqQCLD10D8FAX7kABCEJgIAvnBP4ye/LRx 3hW/JljEes3kVHd9fb7uru7TZ+ZecmnoAHt3pud0d3VVdXV1/XR/6qXf/Ozf /7WXfvPlz7z0xEe/+NLnP/vyZ37jiRc+98W+aO8dXTfbdN07nn2ik8/9R/xJ npn8yYp/ULpb6X9yn/c2Dx482Lz44ovyf7fQsjfeeGPzyiuvuG/u5Y9RxX/r Pq829+7dcxXl3+3bt12Fs7MzIaE0cOhem4ci7WOmXchX6Ua+LT1s8mba2Zf1 9bt372IQ3SPu72Lzve99z7UsI/BVhKP6Rvv3iY26AxqVlncAA4OQb/uEERlQ 375v5KME0Oe0cxmtMqz71zfU48Q3wJ0v9O/LL7/s6sg/+Xz//v0eOf43GfgL L7zgAJHf+u8KYG2Q+5t0rmCAPfD9O31rM/f6PFTWF/a0belTEICn77uv10PY U0RhDL8J3F/96lczfHzeQO66ggch5Ouvv+4KBawuwLMX8CCsiPFLuwILnr6u H1s/LOU09D2nZkC/mXKAgI+hSnPgSGVB971/f1aB0mIZ98ILW6DDsXwPsaBY 4BF4+3/AhHzV6RCwI03qELQsw8CCRitDAN0xx+WRHhUSa7LMbMBmBATG1TR4 iBTpHgJ+oVRXERP1q/zr+u7bweClGAiZK1ZBOzzoVkBXHoBocXNhE8QWHmFo wRM4ITBRBsfW4y8Tf+HaB4kEDKEGOkLf8u2qlsm78p7MUwgrIqdyxcpqNyBI fpOH5/AvUPu1peD6xPGBhyDzhnm951CvsISJKzNOZU53qG1gHCIHdVaEsYPY A/+srD5dfWEITAFr7PZ61Dri44RC/egicaSSU0e1jCQaKNiPfqlVdBHQIeVl rh5z3qf1pbHl7JqWQUDIPDygMoznkpYJ1uU9wTqmorQvUnoYzz6P0T1CSZVN ESfpMh5gA1WFMzLS/I0E+cmytgy0xaPrGYS4teSC/Wg5C0ghKdndojJdlnTZ 8fDgvUMaiAHjHsMYMCgdg5RMcl1xckx8mFgpXtn2eGXTsjVWs4CY1uVsTm2m wpo1MMAjA9EBhrq8TLm3WZ37iI65sEBZUhZLXeuC9O+pO8ekJP0XkfTXqlNE /hX5++kw9T+S9pUIaeBkCyGNWTNGCvf3mxmKbcEJeLYVnN8ySFkQZeD1MVH2 QRon5C/A5PXItf9S1n9d9DAJa6LnWe0WpFYldObZp+9hnxqKdL+/m0FUlAWL SF6pDAjg8Px/TgGFdoeHQQYuBZpouv0qQfSL+tLYPH2aykYhT5ErjUNDgBbH jERTSfrD0pEB+y/0pTH1HRtKaQjYUSxAVkDeqaxD9yCM2f2/dJ9HRNPSQQaN m7DBWBXABIOsu4K1XZ1foW5flT8kotaRiJLPUFAZ9zyRFQ8TukukFFgJQ9uQ 1IWkUwk1oz4gQLI+PCbrqpsMKN7g7DuKCcOw9FGJkk82kGtEk5I+oEavjLIC G7RpNKxZoXES5aXGJ2oL0jNkDg8L6kuGmm/qS8I8lkiNKrJIHZ6HzVj1Fpd+ xv03h8qc6Vcbz8jd33P/GVOQX7qtL/HKPlf6Y3fWd9R5njh0HQnZ2GwBy4yQ UsoEsEG9nYe2deHzTa1YxXdNYFOuTfrah65VkSpQt3i4kM4qYoMNCywt/1SE 6gjWYVmh3wLUHiedKtc3MrtTbeQWjFhi5F28E8NzEsEDGBJMlvomcn7Rg/5O JSeWpU1YBh8LUjZZLEI5LJ5QdGCP4M5Bq06NgCiLl+FrQRihTRAKOxgsISAU YJLfeL2T9/p3PF2PWPuNhiAP/6afoWerGHY/CUm8pBPF5YfNkdcgpHXJtQVy 1MCxMFnCegtFsUZJGRZo9K0wBRmbG+/2I9jQf6pIYWwDB/n1F0pAX4/Ri2Fj f77anWKsbPpJKWZty0B4FGEy7QYTTzAcdbMqQqNIw6LHuBgI9I+ZQMdMIPeo aum6xRxGf/quypkDKGnuf6zzUgfEjUzlyww7Ch+rSSNkUqEZrAisQu3tQrqV RToHjY4Z5nIMOQIyri0AwTQir4dOjouwWAiMkb0Xeo6p+QWm5jDdfMUwn05D z9AjWXJh+wMJxvM+IuGjYfURILEh4uZgHSWTT+CmlLnZmK51agIT84Qt1Nrd jKCzRHdp0DUIZZT4TZHju7mcQQOFw8JhoevSEnijOB+xFQM6mNtEMMPvhXcw +bEWi37tJkyPXgAqvwNQqDVpe0GlWQS0YTkf5O48EFSXeE/Ia6yku9a5V9hA sZVgTxreQ1fyW4DkUnHQBoSBuH2Zn0qrINcsaILt8yBDYQ3dOSkPM1LyRjsh ZU+UTdhbQGZf1jLWhP+aUTYA8FUGwFKnlmxGYwBgfGcD9qnRFwzdgjJYPm4Z 72UwlTX2RZAEoIfoiHeS96XskMrQ+U3jvaHzr/nON/HzEO2KppT+R/dfbNL7 OS1j098zWsZup3cbdY+MsqVR9zGjj1826n7MKHvGKLtilM2MMh+30L3m/psH 64GKGBCenU4H+pfDKlgZ0eUYPcCTZMg8b6jpOt5QbjaDr4K2NGGFpi2XXzCd 2XM9DaZHFSbrdTJykMmmc91Y9RBR4iTnoEVg6kDXZgweGWX7YSyQEu2jP5o2 +pW+blEErIH1oK9+azqy9ltovmCaw2Dd77omATfCXXsGcOweBPaBkkYM3mjp dR561bEdKHNT7JH7me3EHADjSb4JogK2tbUyFqwHCuyvu+LuG1pDZrIOJwgX dqEdaFsct4OFETYUOJ6OtQa75+R/KLBYK2QkPQ6OFD2phqlqEKZE7iVog+Yx hab0rnyG/uwUkk2QepYRFHwBVjICmTzTiq98L1BMDAUYCeP1yChbGSBsgaTD CUjy5F1YJAvrAOsSFkZOpiEaQriRSzjADtLSguLGxJEcjoAhfUGr7P+3aLgN NzZ2Z416rawgr6F5LMR9tT2jShl5PpBRqmvkisqFr2lXULjxDx2S6a5D3B1M bpBOgx11j+2oHdYAMjXreyfRjiNtD+9DvNI+Stv1ET48HYF3j4HT5jblEWwx jciZJbhnhxZXk3IJNoR6D3Mufo+sHHthRdiExWbNvsdQRd6B71HMV36RX2++ 853vZFyXjv6KUgg+F7QzRB0eVNuBibEfAtiLI004cAkE9VrrYdQkbGsFmRmW L7hZB5TkQZ1ezyFjjLr9dFftq7JqVdgWI26BA0HZth0Rfhmo1UzM04yYE9m6 xtUwsEEaYRCwlIBvTC62JTrTcKHNbwXxtRIHmRwtXTRCTXMvsjHDA2+NpCyG rkYerx3Fg8JzNVPYdm9zL3i2hhDrdTYryhP8vATFYvPxj3+8CUaLNjAso33V qmfUragvUNtFjM6NZspN7wWD0yCCB91X54aucb+tNUinCq3w1EAZkCbSl0Ue nCL7+pfXSfA+RFzqFBmiQWKk9J+tQK1ZAkq9ydPivki6wlwAqDC/gh+CFfcg YIO3KNjgwAgebMXLaD8kj/xMRktyggCYwFxgLGZKGN2IabvxtpYRk8pvamNl XwxkdXkF23fzU96FyiNzIu4qDmnCDhB6OAe1KK6jICNEcKVlwzDzyEc2k0O7 xUpG43IEYy9GWKoOggm8iaa2OrkTY1/O9jKpUALCsbQYzFzdnOTEbAX5KAXZ 4qOctS9FnpACyNb8syK5aqNgqTOfNLJFBYt5ZF5bm2XzC7vKwy51GXEzEf38 5cNx1NZ3v/vdFijNuDqooUpvDoGIVhly8qc6B8+cvOllAJP1RefP9PotuwH+ kfvbIeqNXYzemrSIpIW6dKJkJUgFdSpHUioN4s4XSB8wyIFkusSup1fxjL7i NKmIQ3RBZ1EIdQkbhXSXzfvdeCORu7w7GGw2QYNRHIRVgQcDDwzN3s6qi0wo GbQwmErpPaPJ8uKziPRjLApzrYWRSNNYDJS3O6uftGyYJ0vWbRiTQBqcgibS FpEkH9IKhlFBMs9Uo0voVSaXpYiN8N5+tq7QdjOCCl3tG11Z0hd26iof76cU Z3xFo0L3mJUG/5tYKLNLPHsXdXAPjKZn9SqrBFJ5Yu2jjPzSPNlljqWYy+Gx hhfHrwxRXJsgS6UtaWNZbCMXI0G78hYxklKdBoS8qr3LqKCfQWBxhgpieBGC CEc8euEkrFZpjXBC6CQK/YqqILx7Xq+CSQYzCgSGvBaL30UkNeLFdRkFIGJB pi1Eil4Nx8FSC4C01sIYB9ChxHSdz5U1YlfdZoPEFRZxZhfzsMPV8IeanMUu 1i/IfnG2ckNhvNXJP1eAWJdErN9Iz77qQSTJiclTuctLYirdKdwLPRAnBBKn m8ZmEtuSfQKfQuBA3DLwL/pgzw5EY1dg32xr8m4TVPspSzC/RmIIUIEzaQp1 ZaS08pEt/KugZ4gZGTBciaYJ1TJUNM6qN2XiFoDOZftBNh+4B6xJ/ffy8nDA Ze5JY9lUc9XwJLfSzjQd1RIltOUM6wK2NjBuidJVWxfybL2hDZheBcunld8u 6fCkbcCJyYcQeBqu91oeReF2IBHLI9jx5J3+802lrAqUYBCAoquvwXf6xhDw V1GOYh0XsYh9k4igYPxgGYIhBOuyfk6VkYHyI8J0HYAVIIBhvK6Wn2hCoxWo a3k2k02pE0UHW4PY4ifC6YrRz/4o9VcZ+fh73+4xNQsdaJrSOp0xYQPIKTLK RhO5jUcFmkOEQr5IM31V1im11ZBklTdjlfm9Okzi+rlTqfEFah4bjBtaBrtV 1w3nomCAgFTsKlhF0+QECNp0zxTbum2QuS31ZwfaWb+BraDkQG0EfWUcbtL1 P3IwFGCB9QpWKKnHPjoxb9zSd9jvlL6Dtilpw+RbTBEYhiGcpY1L9H4cBr8f BXErbmGKiaQHhW3F0uNSJlwAKtZx+IOAOv1cRB1Yo0yyOJILsr4HsSY8rOYg kKAtgQLgOKYAz+JWO+ii0neN+3gcMSfXuaWFoxCamC+9Sw7ZcO+rVFsbVazl Bs2gW+0STeqeEyKCdYobVKbiIEglUqbDZoKNAQAW6z+xKPvcQSd22cYst4yU qvuan9E3f1L/+Ultg5Ndf9LopThvnQnqchGuwb7N1rE0bFzrsfgvWsfiXh4x 4IeyURjyjxhDWdWrPGH00jqPoMESHd2zHb1gymEcvL+Ig0WUfoW95tp4f2aU gbOs8JK+LJoSw66W/SA4FwdZkwEyb7iM54cV88F5GZxPdxaOPvOzOHVaYy4O ZfvcrnuwPA7LTP2dd2lrHEYI1FtHLvCWEtOHbJjBKpfDajmf8kmj9djLkxrt 2D0C8K5TFxgGLOC14T9lDGvVUO+O1uOMdwtF2FWkS7KS97yoeGJgHVRkEDGB oIurX8ehdW28Pyu1wZGrmAM6df6B+28dlnD5GUoQKKwnzXT+ELbhpAUlMVMT kwYH1UiZcESUWbQXjFfe7PRiiJmXll999VVPgs6K2r7ERxK5h9qCOcaVY8Kr CQ5BoY2vQ9zykQbPaZlGz7hvUDWAO2FvLEV8eNIseS+cp6D0iiXQIhulVyi9 w5SVSUTyPGrAyxlWDUP+0WmvP649ntEBD6mVX6jo04+OmZatXXQTiQZNnRH/ rAEmH2lIavDKeHVWrD5Y9mUl0P2bX7WOI3csyIRkBza0yANJCYUN+7mSbRDJ aXxUzoe07B4dpMEJSgjzsOoeGWULo+5jRh+coAT0/LzR3l3jvStG2cwo+zKj dhmljAKd3WC9lp+xuUbYWngXmWpoixTD0FaP/puKaSFQJ8cwdKjSQbXB6qiH NmAqo6HNZhOJ6Bo9B+j+qe/jH7r/9jMmosxXqvSNuBK7luThCLc/Vog4xezI KLNOVPyAUeY6+FLcP0dncP+ydPyRFAwpTu7TKnxCEPyE3KqbRpWWNC5ouJx4 g712X3bH/XwYxcBAcEvznMmqJumQPDIBFI/mVVM6kD/5T9lvPyicDDxOV/gj pRRrXEdGmZWTAn/4hBSYc8gbsRJ0QCJGDPGy1etVJRsnYrCjC5niGJAg62Aa pNikFRI13He/H/QzwK8+R8Xof6hb4CalIR+/mB5YxotW/zvMPRzsrgNUz/Vq LEjfitG3Nts7xY4vo54pdtzKPsCgyjkYB1kOBjOK4WfkgZRDx0+iICt5GATu ElZMYjIF+yR0L21tl/FSxBbrI2qiCtiyQq1d/esZR8bBn+x3ZaUT/Q5ot4JG F5G/VsWz/nYYOSuAz11Cb3ePBF23RIJGtiMo1EB06iEfgk3WAXYIepbQOFqu fBKxFQd6GPUHvgAfcghB1w2BV9CD2ExxnviBOMIYVFQhGyAJnCyyIf3esRyK 9zC55SGyxw2WVzxJgGEawbRtCN7WIWRNQYO+7DI7K8JYS+GR6VQBKaeFGi9D jBRrxH07CEBnBELyUTBLU5CZHUY3RJ8IEfajwYKS8Ai6Am/rHuciUkSj8JUU s8RFKZNFW4tVxkXbBflw9H1tW9AUqdIUvMQmuDie68iK5+KhR5px//u0M/It VhsCvXTiLZQ5eIsMoRuH3Izg4tCM2ilEaWRh2yIni/yVe+j3Q//sKIqF65Lr 5Qxlm1NDik4xuGGqi5+NvIipgBLVGPRxanRZc9ihTGQBFsjjCogn+pvlGeck MJgTHAQlrSbmt4NMq8G0BYdonSYhEHuS2aGfeo2n+lJPi+23edGnkgiYgg4h oUbHFfiwHys4J933WwZFco+Q7V5Bri9Q7g3Ovs9U8Eare+yIcmXOtQO3HCNk xMd2yWjwcaOZso9tkZmmRKO9XO/2WH8uOLmKqM3dJ8OR1ANIS6jwri7VgXLE 22VOPmVbASYhO4/4hoYYwXX3h2WLuG20NeKNsTzopw3dq+kp94hkeIa9P7ep x552tkxp5EZgB6oL4IMdPzUQ8+EK7E/wB401W8ERVsZuih8mnGPd9ob5+Fxq Oo33ZFqvbEeEUdy99zhhFF4uNiEfGWWW+fkDRplr9EvUwfDM3half+I+D7Fd Gwzqp/xLD/R3GTQkDZ/FFrsKxw/7+kBjXRwPTbqah8tfgtD9mQHXHS2jZIiO YwWUgToc8sla/qZye8HMKPO+qqIBd6/a4KeKQMXna11S9ECa6Gl8fve+inbf bB3WZveMFj/W2LOXPIPxhJsvDLn7154yUFLZMIr1igRRuKmJ34NdguN9sO6n a7BGvlnufevCB8t8ZNlwfTBQHGzNerA81JfV1SfrEEPXhCiEYUMUIJDWsiDT ZwyGU71/vt7r+5Nepcd4L1Y0dauD579qC9Cf8U82M7XdPlDjNz0+kZDdVDDk wLIg/xfspuCPPGT/JBgfeSeB0Fu2gaqEYXQWt+dqU8JaCggB5f3CiRRWWfks lHmQDS/7zPr5aHdHU0ebGgflof0rD7aDBS2hhzWon1NIy2bySUcVXdIqOFKZ yUBuAky/AdUryxo+1lthnIj8w9xKFSz1vASTQDrftIu7inEC1j2t84+oo/Pv vxEHpUFE+bxb8sYnEKYfAKwgEDE60WvTDbvoAWsHQaOVB7IC+mR2CsGAJSwY Kj7Bl+yslIfln7Zu5rlbZbWrRXl3I9Dfc2e2bwITp31OHO0edZPa3Mv+i6ZL eDDVyqb/5iNVsMuErj14S3yXcSDhabQNlMew+te6KzAcq9PaQ4ACu7xB4hU5 6BmleQokW/C6ITrDoowqLtPmVxyIAMCRhTOgL85Dq82yPE93HRYjDB4GE3m0 r6KRQu2CbAmNA/WKV6rmr45ni/MM45RQn2lndjdlkHv6LotIdq17EnYaIJgj 3hqaj1k6nuTuiEV2fLwA5hVljkbesBSlvD/Gmm+sXWZf1hh/isYYS5hl2EQn mo/V9F0DPMjBlMcK5KisWFO9D2nIuO6DrFu9yk0votgHec7olk7QmJ1w8Aqz S2KIEw8hI8WE5NqskzINaWW1ZmzWlVN319nweJWAg6twd+PkERc8MzWQmUrW cJ/XsnNK+L+mQ6LFLDD+6/5Y0iCv2OujzQV1T5uL+JaHggmnMXg05EUIHBtr 9ye09QQ+yEYyp5YQP3X9gr8YIk+N+IjaZjaRR4vLMn8/ZIcJp8E9oJ8R/33P nW+X3gdCjiUzGZXjO4Cg+ISk8aTH2mIFBrnvj8CgsyrsPvd2GQz2GwliLZif d3+bvWO3laJYZPC/GtSu2h1DAWMjAsdCoewntXrS6r/zXPd7VKNm0EOGWCt3 QgmAq0l9BuDO1+MLEGsp2omd2P0YZtg8qPa6CkBIY8+jOwYoaezfw96Tc0Rp akPwAqdtCYjx+Ql9V5yEkfQSWGr7McCZnOCT4e9+qJHE13RoLd5C3GaOGagG MFzuR3vBYAVNQEz3D+wlIhdqyOTTHrSDvJvf9fz8b7Q3CFndrqlbr2DQRQZK K3PLqHnJ1s3KiVEFuRxsaQV9ERuqCp+V02Zd5GnluZWhjZXD4/MHh+Nl0qyW Xcz2P01tgChPGn0dKmQc12qs3pY5HTZsmASG7PeYB9dGt3C68m4aJoUX7Xjt /+L+Kov6sO3Xh1PW3TsjpmksBVDylGF5C4rO+GCuxCgcEsj4fc5/TXGBiAex C6Ivdh5bN8JayWTltMJ5WBM1aPronMGZG13Drb6ja+KD9N7TTz+9+cpXvtI9 Jn8PjD4PFBFsrTJ2YZaHAAEJrK7yBhDBz1a3Hp2xoQ4HjiYh6t0feJi+ps0A O7fjG3zXYZ2BqOUY9S2M0Y8Q2FCkrml1aKhqYX9Si9mKHiLj5sGopQsbaMZu eOt2YStVCxMOyqIu6ocXAgDzKESPV3UfKvcIBDPbSZBYzKBjiJa9v5H92d6P cBEIZt6RUYRKxP4xFg+Yl8OQOMZOP7N2BDumzorfJiggb7CASo+YXGc4pXUe 5oTOPUyJBqNxa0bfLxGVLA2vlh33gca6VkjFUtH6cDgT0unD2GIX8S8aI0Fk XZfbyjsclm/waTqEZordMGBY6PgRPQbboPSBzw98CneH88whApLo+lYw/oNn 6n+lhMG2EQJEdwfWoWaWddwyDf0pEZUR9+Zbwj+rZZbZ1iCtaVv9Mfd3FUlR PrtTDRFwDCfx6ipCvi7/6Uq6CXMPJKmd+jdmh3MKjfPu+/X+LbeDOoDc1RcO Jc/IpwOtblrMBuKzBb9ge3O7jCtDm7Gyq5wV0RFIhgxOAr7dan9dGvw6kYoW As7h2NI2BPqOTc0/8Fzy5hje2G5UE504nMG0UI2P6Q6hM90+Yt2Qb8eN7UXi axFGCoXjjM4Snmo0+e860gs3L/0MVYVYQpb9mM3DR2UWo9iwzUO63ABVfHbI HzIa43hOGL16yFhjrdkDEKPG5qbnjLLWkENY6c/RZAENlqMTf0lHz0sBBVHd Zxzts9ruHmxJZYItaBC1LelH5a8zf+wUjWiFN0KpO6/d808rviuRjBNNL88b 6KaYmQjdg5qX7EHjQDQeYG2b9VFqFHobfL8s7PyOZadQQito5P2Ky/PdO3oK tUclVjZdbHP4kDbLXAnR+j98O/AgjG0gnqemHjyIbn8L7+f56gtek4D66t08 iBxBPjjM18Pa97CE31lln2jE5i3FjhXNmWZKwf3qXa8yceZh8VLxB+1ri9C9 LbbyBRzhwBnw+svh0oql1bJA89e1CisufogHQT6zfTU9pqrvKj0xF/9EFnr5 0/0vBaKQe86efSt6CGpNObJtFQRLoh0gtf/hCWSzyr5IAwPTQoeDWvpiuBLO 3m6lu/d6VNvuO/VCWJvnwcNAIzjA8DldngVMPpxIQ0w7f3L3YZhMAgbmIYdE ENFMnvk6c2Dt7pfy9nyc/QZqshIGDt8EEfTWxXpZ+9AvGGXHSdnA8DbXYfy7 xHxZ7bbGfD2jv2DqKx0+qE1DDwZ498K1AAvkNgNs7bYfMHZKNDvUmK9slF0v wQdQ1zioNfjLj75+D8PDELe0LVcNdW3qH+jYagFMW9g7rBimZ4gbAIY2FxxT kEvSLe5qgebD1iuA/xozSzGNHAjN7SDjYifV1eQhSTgg6E0I1rHKtmGCNKob B3pNi+q5q7WgA/HhUE4R87ON3cpI54XKcBauQVqGI6ug8CorWfdK6ErzFzok KyedFZ3YmDJOcsROcEoaZANtfy42FMaK5bGUlyPtlgxQ7CnDyshKAFyC20fE 8HmLUOUxfuQFKnqeUWTytJBH9TzYnwGnoacqX2Gu/4Xniv5Fy8zTSmM+zPQC g11q6ibJQVO8c4o+yj6pZXRiT8QpMhxh/2cCkjScqH+Zl05VhqKFHilIjOcu zoO37EWsg6AJK8ojDbS5iKiNzxMPUtAJMEkqYBXjnNbrMb4OiWVQfeDKkgfB wuB1aS/NjHHaTv9ALOZKSHxwdyTj4iR58L2VrA81TL49rti4+NiD3yB6A8GI 0gEdhN1cjvStYfMynL8FW9zZWX4Z3rNEVXlP5T0YhbwoJhoUk/9Hf2JzxXNG Was3+n/r28nNTH/ue9vEz+wHpeOl/lzV2KT+Pi3jHU7rOa7PGe1Z7+EoDSpz D9d72ugzPQ1c3vuFHeB9p/Hee4z3bhr9LoyyU6PuzCj7GaPujzf28ZRRZrlG 9FBXpI6zagV9oxCKCG2MoxchjJ2e7KtQ5mu0+QMivRVy2kG3qtef2Yf4vk8B K7hCLCCWobIf1eiBuEMwsOU78QL+wMQmtu4k4YfhrKdVXBhDuTOdLNeNXivo r2P/dvj0rjaeYkhcvTSM9MUQ+btMI38xcsup5cvWY5Qc+h18ZI9Ph3xkNlib LtalY01n2myA3nou+Brl/OtGVWsO+M2punKbDzfGBGCPAB/ViPg41Rgxl8kI EHn+geojRat1qEbpWObUYfFgwhnW1rEiTyiHMG7JLsKenJgk9vHYQm3j+Oc9 o4plri8fmb0u0oqwFll9Y0y01YcGO0a502kMYQ3rUP8a5y68acQ/NepaDuMT /VubLqrQRoZz7h83rNFW2z1JTDpj3nI8jzAaKxMpo3HZTQP7IyNScMpET0wZ lhQ40W6nzHjkY1ws4iz2ODaasWat36t3P+v+2/IU9GuBDGAcPrsFIpy9ROT+ jmxuukdkxwYAZQ8DB+J6v5Z3cmN53GyGDW1u4T2MwOOjZIwDXzLr3OATu/gD 8OPz42v5iInT2v34ihxcLUO4EQEJPE8N3OdVhuIMotNyEsIwSDB+04ika69W rHhrH6ADKvsqMB1zbXk0SsE6e3yng/3jU13iJeq4SHeLxb/97W+7urV2l20o LPtKT5tHKU/jjCt3V55B1klED/cMSp3NnlYebnZW1rpuptO5XTOhnGIN0gN1 Mck5kXuzlpyzz/FD7jnTA1FeGbnbgUMuUqMcl51cCEIRi1WJ16pNHzbMs/GV IvO87+U8ruS4wjNqF3K/hdQuXxphx9i1RqypWvO8/gT18I3qHRFHwUadkjiN BZBh3McNAZcid/n39BT3dMsOLwJ5lBG/wrsZkC3NLSov/rvfpMH2qzhU7CJu T7E3pPm4ioFfnASNHLrGEDT2laYhaH7E+aFfCRR4jaMElB0CcoJTP7syBHoM 1yYYa3eotPHwPOVhtqQAawjzYCsUjQNYStn69XCbzSKKoEnVmBEM7n7ZzUHr DKupMKVZIw/I83aaNVyG8IP0uNShr6azGqdSpSY+s1lo3UJ03lmbLZIV+xeK HQ08IU/9DiDLUmCND+aaNlQ+3orK0F4SVNK0FIHTQ6j1HiMs8puDoc738qa3 H7ktAc2mb0hYtvahzApSVj3lQzo+Gc/Eq4bATBxKiP0JjqSCq52sZOH9HOos cbVmeEDT4GHlT6ySbPiCJkvLihX/yCfoxTNqtwuz4qHWJCj8YpyoyUqHH/uU 9OF63DHWz3LccYxIbksjJRhM3S9HZ4qmPMgIL6OiyJBro2koFQwdQWvxpwXh 3Ciz8rq3vrXMng5lTeGvJo9bWoIF4TmhHJKLUV7WTKdNrdS4jn071Q+bcTMl fx5Grqtny7VtHNaRzi4u42tyGm7SC3sdwVBspgAzhHjIgZPlQQxVWbBbS/n5 XJL3diAYIrLHlm4rc8USm56wYekGkFC69FUs3UlSf0DncBHcXtBsPOl9Gdzz Q5KFvWTLd+PcA9haBKXlpIitrq+rZfiAl4Yudrum0ObmscFZGRfl9bwh68Pz SzHlqgYrwwCDWLqmD4pxfKsWFMb+e+uaPg1FI9wbrwJYFdN1XvnCYuZFsZlx ZJ3TzZJ87QDmU/nex1XmMStMEKSeyPP2niAtysAF0MW68ZMcG7lgbk7OWpeO j3EV0nXGlJ+rgAXatof+6PQfmqHNigEQCPfWXXeovV/B86CuqQiEYb6W7QY7 axLXPE2B2OHq04eelGw+a5lHO6sR9kWil3QEgmhwgDz8vccqQj44jwhLjXXm jhUhsa/vg8581ymii/KUtou8N7a86dgPZZQYgmb8Oy2ZelgZcrQVMvUWAM39 pCPt+PCz1BPWY54X7viwgjjJr7xns3nDs89RhtyteaXpkPYaRNeN97FfeTuw lb0cNuRxTkWUdYVxc35pmWtrB2ytoh2S/AaHrH6GJFOuHWAqsC6XXa6M9USx UcutLfNkTJLR+5gfMvy12ox5xajlAeuKcUd/Gss1ua6/kBUb4Y6BLFAeMMcw n8TFf6kIln1+fG1ZgdsA9Xr2CO2TS6G7+Fuuy5PVTtaNlpXJKcE57rJEW2g6 BGSUZy2Pziw1ZSyjd5Vc8nuZ4Wwu4OPgQQHoj9txRtNdCjWQaovI24GJym5Y lGER2RFR1g3r26Wt51QcPSYQKANz0E/cMsNmofHy6PiKGfplFrTXDIt3jh8S dPFYUm6y9mK8dM2MMvUtPqrjgLVKrR9DvtmQaXVDAeQZIy3qNu1J7QQhrvKN D6BIgWYaM59ihzen9mL+8Cc9YBesdQL+Uvtx4gJh8KzphKwLNgFynkHKqti4 no0fHMBdI3eFytyjoaxM/SDQ03d15JZAX9VphWM2Gd8433mMfiNNXzOqcPr4 Q0hySyijad6sUdfWvSkjiOFjHGLBsyMTHTAO3cNx1u4Vr0dbTVg4ulIfiDXR LakKyhmRn9vcMbPDwKfKTubJmVEWyc7mW1E4S+m6wpBadSlSJlxQIBDi4A1M SLYvYSQs3U+NPjG7yCod2PzucBsB14HayaEyScRylprGoNWEKTZnXAZD3tiZ IIwSDJ9h4R0I9mvyWTab6+L74ze/wF9XIxuYjVHPZ+fXSNnS/lWjHgTsQ8gC CAEgyeAejV638kcvGc20YMZKmARmtuGs4mkzs8FMHdC9MjqfGWVXGwZizXyQ qYBHS8UDB1z42C2CLakMxwHNS40mZSpfschCRN8+x+t8rNwYr7ochPNlYFuE lTS51u8JbUKKsTBdp2ZhisRaZx3TA5QPNuK9MBoWZFQXVA/B1hw3IqMTMt9I 4PDY9yaKdLeLoaZpKRg+LWE8VJ5ZKhgCsjnbqv9trRXoVffoEjAR7xCcjM8b BoDXpzWL01TeatKhT045w5Fs7PmbGbDdmDZkBL0wCXEQ27TDoizG4AWe87ZU kevWRu8zo+zKtEGl0zKESnXxPQFE55M3bcyPaZm1k7QUIi7TEy544xQnwu94 nRNHH8TGovFrLX6CcALL9nupPUj2I6PMuqbp/UZ7c+M9PnuAc1WkTl/3R43u bhhNf3oHUN9pvPce471blSEpuDSkuO7MKPtZo70fb+zjKaNsZpTpaU2IUsRa jnVXuXjqZUu85QoU2+j9CW62n9tVQ9zVZW1DvvZ//rP8uUyddjtfmpP56hpm zoCAP2VkT70apuAxiG0uGbJBWJaL0CBft+9Psbbjrh4rgcAXLvWAuJN18ceM stopY+ytesoo+z4PZftrTlhH3yhaJpzH5KjgzKRebjSfqXVT+7JScd7AQU7z QCFpoX+Fgz5QC6M+07DWHkHrSuOFgVjHlV2iZjCk23pQo4vyHbQfSKcjrWJF Q56d06FoN0KFiAd2uHsF84vVj//n/k47UMY6zudQp0+pHVB3sPhaR/U0H1LD 9umYKKuIJTknUqdV7VAsY7Tl43AWUROYhbyDhMMdHMbUBnLundthVZBd+VFd cTN/6cG9Q73WNIDva0MymPM7bMCj9TQ7BGOrXuyTRaygd3Tb2o087HarnHnA VIzT848CX+lSGTapWJGx4ulq7CfYIxG/YGRwSGOFGjmdIcV72AGZRzMssqMZ uoDkVeS9MVjfQ30p2CImnsrAJiDytOM7/IwXetSOxTItRzKwneX/epS4yjB1 UdzleSQRc4xzqkS3ddWUKl8+Weh8ktXl0ehXKz8U+VDgcDzohpck0BcsinkN do2y+9sOrTDwPi1TeN9BI9CCjRHyO0B8JWJ32k5EMhPqEZA+8YKhN+V0h9YU I2sfzlPG+9+2SqorZxtOSuYsH0TRnF0pT5qTlkO1nwU5kbwLXUK4B1hY2to5 zzXkWLTIebd2sdF+GIr0geHq1AmJbuAg9IfIE3DVvcaLibCan3OC8KFB5Bq7 cpnFrtMyFMob/UnpSK0x+rN602sFspALYTEuaa8R4w6pFcuge+MZTZIqoqmN Z7NblOYJe0CQQdJrPiLC/RoTMkYvPipBew4pcGwhqRG8NtnrnFyLtLesRdPj 4Gvtg0oDUZch0hgCSVetAyXu1sH+dkYwMzY08r43t4+acvfRxWZUbCO9YLqz aN4aGbtXeb9G81r0JmMK+VOpysdWQtzltV10rh0aCUUNU3/wt7eGRh4Ue9wp 2tmKxBqL7bG0qh9SckyImJvXq1iRcPv1KpeMXrCfyJNC44ti4IdoC8vaY+7p 3BG5YLeGmKwDo68pEY1Ticb95ESbHo8zb6hnxdnsN9TjU8VTqxHN8oiGkDyg 4RaBH2QKDOgdC/w4MLqbGk6FvsZiPyyT6F8SKb2g3SkIYDatiZvTXgey2CWL HFloG2qpctdsdfHt4SDtmFsaTQVp0OqWXicdMCEaYjRqnmmuzjT7oP7OBlJ2 +QBNlluy5qpk4+pTRtn3CYbhmf2glEu/7P6bcxwJG743m3/u3/st91/JK6sv +aCKRWSVVDUzSwYCT1IiXOcdMKehE9RXIcZ87OpAsWQjqjOCeX0+bcZbGm+7 gyNUMIXfByuk10t1kwUXmWt6qH/EtvOghVeGVr2dfB4hy0VTOtXVWz1Q7s99 9KJAekZT2D2d4WjrKyZeUtMcExoDhQ1Y9Y4BDN/vUdjwNhJjT11+7JsfmOZv eqa5o5wFXXVYSt4TzN9YlbGyoS/0XTJ8qIEkIABSj8MTWJhb7cjDhiCI4XiF vhW9j+WTzX9pfVJ6p44tyoVOf/PwPBn9Zo0L7bPmZeEGyzkYiaK0ozGTJTvs IwI4g312KlkYFeSB3mz+th8YVkyAxQHMsOsPmsVB2JSW0KLtcGBGvLc9LnIJ lwOj4BKsp3C7RNhZm1XRdDyC1dgIxnljNcYb0ORAE2KTYF6jjUZedRXkZ7WH 4QyuCtaBOeRPwHZRYgTa6keR7DEaT0cZwdpKYi44kSiy7RDqVrGZnAliassD NwkMqwOprLM/5ilnvLWMofgI0a00iYLflpEhjww2OYsh7+Yg/NREimUgBVqF B6rEKSShde/1ZJDGDFEqjXmCQiSxkww6Q2rfamlHh8ycgq0ELADYkquRpcIp J9kiM2FYyi93TK5mHmFRB3SnpmJeZEpo4UVGKa7jeNzVl3p83kMJHsAwhSSM iyiZb1S4XI/MFqnzUx4od3xLHqYpBzSwMtW/67l6PdpM0BLV5Yj34KQgaz2m KOvcvuplV5UiorYZkU6iVfidlWRp82WfLe1De9bRGsGvASF8ylPiU2HwOgQw s4QJAWerKAcpgcTj2fdQIUWXIs7vBIZ4Nn1y5dbSTjiZSUEOSjA5Kc2bv5/V Mnsb9gXfKRrLNerB2MOdkksxdMplbIPC5hpWbfmODTxil6vA+T3i0tojCnC4 hZdi1KO+4KJFHgYH8Q19+YvUH4oN9jmVeitvHDf7y1rG8bDu5eeo4ifc53m0 JelffMx3MD0SFUm1pYAUTCHlWs8T53aFb6iyiDYDuudQU2V2ToF7592ElE8q 5pCPK3vrR7Vst2jMOJgRsQvWEl2+6/Jc7iU1QjCtYE841qFdc3YyY+wFHR3b PLoujt7K7dGxKegFf/Rv8BalkWBCBa90XGg8owftOGxUJ0QBVglJy0/YKk6J j1TQFfZHI9ihQ7F+tWMEIwcQQaVJ3V+vhLtGhjnFlGEO+ZiBmjSYTgaWLn/e Fzz0i5WDffTnGpyXnwQRRbWtI+W1ENXWzAitcX4eKxd6e5QRiGeFC2KDj1Ew vUO2mJGd8hTxwoe1JfikvZDv3CaUg04xkjdwCcoiaPrg1iHf1GYPJkBTkFpO /mjPFUeCWb2Ub7kZ6Xn7yzfKgWj5Gcr3cVCQn2y0I/Lgvpfo9BFtX7XECB42 oqVxC1Cf0R8fVdxKpAnxWeyMThPRoJpw+BPrIX3T5TOatwjvmn4MezUo6yCj H9tR5YFRXp73GbST91KbtB4B2VfDtIKsoVirKsVaI5Qaz5VF6lw+Z2pnPTZH JTGTQ/NAvJOMVj93GRKxk+colCAKFkHiop1hJ7UfxeKATkq/KDHXWs9a4oBa zlWsobUcK1RvE6kueeRV8dQx953lynuJfKkeDpWo/35NsQ+tRMEFX+ZB7AeR gGXPExvPuyGOwPJTTwjO+REDvyPBOe8yegH6WK332Bq2ERb6UrShjgy27+4R bdxKXlSPYZRRS/EokX7OXXSEPI5hYM1rSnwMHPNT42OeoHFADqlUy08WyRDo ax9F1mDEpskD86cmu8T5QvFyxWd1xCGVwxolwpSVOg3DCIYp8LZq6UvFMsXp mOc0TIxUeXra67cNKnNIDg4jcHVZZvoYnNNIU5MHyyZYidc77FHIMsCcWluV 302ItSwfgN29zZYPhJSnQZAKB+Qxm9fc739mtIE1ikVODzjaoBBtL5N/L4iM J7PW5mGJV6s0VGo0vtkMCYdNieF/SH0g2C2lDpayYCT6c6MS63Xy8B6tWCn1 BPJWJ6v0pFbiKALoJHAxuhf/J1V6zX22U8fcC79GL39DMZdZIX/9r8JLr+lL HDTnfvic0RKvftzSHf2dmQtmNWFjDowZTADL1jgRv9Bh3ccihrgW5U1wCgzS aqvSbWIcM4LtfBKkhDXMamY2TKxF2G5hGdhAEeuOo+0oHfbivhfG26UDPpwS GENW3n/myQGVAUvEMOQ41kAe3rsWIi607tWorhVGkbbFTjqwDtr0ki6/d8uo p8vezQi1iX+zCBNrlVidR8YLGwh+2ibwxz2/NUYOy7jVGOoQU9KKZeCRIlbB StyBqSGlhNbxVW6FFRimvMTc0AQGe08rI5wSzTFg+yvbYbspdCDGthUPkA4z Vdew/w2sb58fG2pdCbXQG/RLKzikAhGCOS4iRMKwBrnny2OkeApLQZhM8mzj lLcc7YxYTF5mUZrrwUcxmAVvht/giyy1wX1jhUopU4HPU+bRC49FCI/Ko9vK fxzWj/bP9Mx5rN7SJrZ+2m43yQ++iDx16rLQRXlY5lLTMprDInk/nG5yFHXH 0bRpOw98NvueBvOQgsNud/a6Dw6TWGWYPOhpzv+NNXdAJK6cEqmLgwWwfWfh js0OxwYMff0O9+UT+pkpaN5CjdNzzObRutpjmfMM4FzhzV8+zm9y34Nly7Od xz87ca9TB0r5EAzBvv2hg9/3HWzi52Hzw+9e+nfc59iTz6evwc74YaPMOu3K Nfpp6uBvaZPgK93vq5w4G7JfoUfJt8fd31XkfyI/PYzWhYsA+CANjGk4qCmD 0AdVDfnveNj1vqImwSw+6GPNRihXDwZALCKyZ7Hc67ilIXF2s+kG+LDODXKN fIrG8XFCpAoXPklqkUmCwfu3yDzcPpLJ+8DTyEX10Xpz72GTWetb3/qWTssY Ro/BTVjoAV2qaiZjWUarIvmBMRzjPJnicPhQGcbnJxQG7Jj4AJTk0MrA2axS heTxOApDhWlQK3O7cnwELuQZs85cUT9m9AIPeZOgIGFwBgn1az7ifNiFszoX EeOoDtK1DJ1Z3L3wSUK//1w8wBFWAKhWrOe8MZwYhHVdXrs93GbFuvwV6siw zGEh4kWwdpjIyIGTzPkFIGfGqxl6HKfSmZPriN9hX0uUytAjKx8FUzPQMmJs ZLPxpBtUR8/LtDCVwN2OqW78oExwLGu+avCP9oDYsQBpbZO1yc5ayzG2wM+9 YisLfPcZ4nhACaOq/exObH3BtLDOo77C9IgCX7P8Ins7n0Y2OCyuYgdrGRxs t+xhTzpGdGWUXdNh1mzV5WEWuwfi82R14xTTXGpuf6Qoe7gwtppJHWPLU6nr MLA4rKVxF+i2w3mZ1rHXGGnND2DF+BY7hgwbS2zOhgd9nP1L1mnIH6EOHlRS kV2jrO0OzxZbhl/RftgkHxktf9+/96sKCa8n2Ut+85YHcd4Nx2stQzhgYvP2 FoDrYdnAa9AEeWePNCbs7KGmymPl1gbPwDI0AV+lxjyO5smiPpYl7rLrgjUg VUQT0zyMh2z3hydVcGbhZgjxFQhOTAiS0bgyy2kxEOyfeMDvEFXjmBH7Lmqy lPHihAUJYgWLSzgY4koxqzPNZOXfYGyi4fC9qraVuPbb+yCMA7RYWku2e15r 0oCcEoL4t4YhlVwjJWrNmVqDyrSKNnxG/3v0GuLxGDQFAa2l1mgzsTQ+HCte 1LclUpwkiMFAyTjDqc1HEc7SMRu4sFo3oOew5UgBdc8rZUoEZl+FXEvMvwIl ENUDijRQwsjktF5jh4pU6Qez28wpEyVyAMyDIpeMgWsb2LG8KiPjSbwqe8E/ EhPsS0Sw+YCuq6NWdnIEWFmR7rNKjch3BJCNOhalSHmGcPCUOjKRwbInyaf0 rT8a/YT1B61b7gCwkjxpbKiBJN/NZQuC0oBKDpM2CRfm1bEZ7seGd3IPQLoG p1ti7tojfsXIQwbjIs2ZoCjheZAMke5wbSwpMZjCydoZcCzvYjq8wKcdZoc9 wqGAhSkVMYNvIjYflFIqOQYsVSEsD4pNsWXGDko5yweB+AhblXyt3C5gKrSL zQb7HA6MMqQRVvuHH4JUWfP+oyvJe8IofAFdCgiXpXc9xSqaD7J5ePwKjaXd O/4/1JDlEA==\ \>"], "Graphics", ImageSize->{767, 308}, ImageMargins->0]], "Input", CellChangeTimes->{{3.444018435671912*^9, 3.444018436881906*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Reference", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 3.405907109932663*^9}, {3.410151936770359*^9, 3.4101519419755697`*^9}, { 3.4182625411574383`*^9, 3.418262549690422*^9}, {3.4414319868498163`*^9, 3.441431989321639*^9}, 3.444474359659048*^9}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJy1nVuOJcdxhkvn2te50hxyyJGGI4mUIMOWadiAYBHwi+knwQ8W4LFfZEIQ IEISLEg0DMwS5kXvswPugNAG6A3MAgyugCs4rsiML+rPrMw6p4dkAd19TlZe 4pYRkZGR2T/76JNf/+p3H33y8S8/evzPf/jo97/++Jd/fPzhf/1hLFp/axhW /zcMw7uPB/t8GD/6r+n5wn5pyVcs+N/0eX149uzZ4fPPP0/f/sPLvvzyy8PT p0/t7/Dn3OZP6c8mFb///vuHDz/88PDpp59eeouXL1+m4ufPn0fVL7744uCI 2Cj/nYq3RfGjR4/SIG/Yu9XhxYsXP5YObazxZ1il32sbD0zGfnK9ccAErn17 5GWGjrW1bysvG7tOfdq3f2q0/a2iuT189tlnqbq9NiDH78OF4wVoRoKx/E8y quFk+PyPl1lTh3p44GWGP3hnbPepO4OQx4anr530bxDbt2+n37vUTqgC4z5s NHEEc29XaTRDwHr4+OOP02jGQHvsnUFo3w2S8Vk3WABphaFj2dholT6eB0UW +vZOHiYxtHouiglsg89gs3fOhNk7K7d2hoeOY3/1u/UxAr9z/jIcPyMOQwJb EMiYldhuEwK1+G5EyKznqf4mUcwF2SRn5ZzTYvAayxB168WYORa5+F9EGejD Qucw5asE0mXCHASsqX33GZBGt6Y+NV0qNjrrMjTTRDFiTxPvKkGCAFkzY5x9 Rwx5Z58T3iViU1d3EjTwCghv0P3GO0MElDPrZcSUYWuBxnq3cv4iuZD6BGjQ ocJ7l4mzmHS8c4JAgL0IqfUsXBtqOqp+RI4mbF4riMJcsP4U+iVJsXZgF4Q7 K+gpLIV4qyRVm0CuKL6M4iWZqRGWSeJlu9mMcCDRmIL7+M1+75NgGK6n0HYq O4/ha7kUtsWUbwrbkybNlkgPVj6DTmaZttPvhvpYN4Oz78p5xqSkRJ5KuYxh Mq5ZUm0I2jtFsjod39k4Bqpb5CQCmRtnqRyyoMWFqnRRG5LMmBGf8R2eB+/z uwwcxsZ+xs95Tuya9mOEJAN1iWsTtMY8ApyIgKuwu6HCxN9J7U1sGML6gScK tYthWBjFxn7Mp1KzgRzA+yTXh3Bb0OsTofJssKbour13ZwRSS+lWKTe57hph nUDoMpfKAdsJBcKyjoOqKlUHo2V997X/WNAdiyt2fCzL/LOeeTqshhjDv2Ud BxsxqTwYez4bwLDQEBdfLpVlkbS+3guhjcki3o2+6/VrIuI+YAJf21gZ/SGW vINsjIXqQG2M4w1q2PFPdyITCrePSxPpOpxwQBv/etl5Ab6CJdI/9mmcf70Y DpC0rdVnFmoZakNZZRLhs26Vps45nIlJ7eogOG1cWyXg12EjD6HdzlKZoYgA YgvcS8+EuxNUMEwxLXznM5NQXGuwQwYhFGrfoMUDOrH7YnXk08GxOe9iIwwL XwhmI6PGBKtn4zDNFuDIQ96OoUCDpiI3aLpYBtlQxr6sqm4Fb+1HSaSyoAbd 3o+ftw5CLdV0QfUF+XBrmJa6xYqrwcRKnjYBtnMiF18VxUty4mDmyXe1ODms OsRzzHCEVAyYx4yeV20mNPsmXX3eebvz1Mb4VYuj8izXvd8VNcoZA9uyPEGt 56ubMG7SAdtCQ7o0O5h9KW/xtyHK6m6iTHPX3wmnxx5sFV3WCh3oAVENS894 YJExElLXYXi7MDBiBAKtnuFQy6/LMm3PKgfux+rlftEVKFG195nuVTgy881q bQvb7OAWER7Ij/5DT6l7ZQIsiwlRMutQIqYDEWIMT4tlaoMl/pPeWxnrRViS 9erlSfbf6wTcDREI3JHYQ+j5tWq80B9KX6V7zXqnS+EdnReMr6mBZ7FxGKye UdkgG98RNTjVKfLucm/XM3rZo6GPPm32MznEJTedfpXq3Mjn2UmZgxIxEdVF tTjYLFI3biQ53WvksF/2oDAUcMyGQ4Wimu1h4jK0UYt3CiZrV3isCkqtvEhI xBCpiwKq+wUeb3eWmp11KeOMXKW44H6pR4d2G3FS1NOk9rYtTIK6GpfFCrDs g8qEgJcMjsC0c1GFaDiSqAmaMjEQZTNELMdQGWpfI6SUQ4ms1kaoWt53RuZe MVWXRAHlU7Pb+9t4dzXOINEr79Apez/7EGIeFXaQ1RXyWJdpB8cnZDeh1Zx8 OgoypqPYmmPjFK9F2OlBmKs3G3zmZXX+cJHC9cQ8lTPazkUyL5cuC2nsSW25 HFurWBYqDLWGhVBLbPUJUyoBocYwFAsFmN3T6VqujupYhnNZWxgVz1KvX0R3 QFovLhzCW11kL8NAuR8c0BFTBPnxbxHPh2chAmX3eBMgb1EYrLI4hFEP62Pc XTsfaot0xNrp7kQ1h73LbcGL0lyfF+86Q+SFdOVYEF/H+fJ+W4bz33O/pzgT CCpxXgSe9b67Ozd1KrzblUeQ6NWrZFTOklAYgxmsSem5WwFVjKqv6lYkyHTG uoLwFj8qdCqaEHZqOUaHnVqNEdVlLR1u5dYPc88+N+ZiqNdakWVvPTNa36nP DEesLh6F+sx1v7qw83A2YWoNSa99WHWQ7GHZbI8PE7OmMczATiEgI6uTG9FH bc66O7jUUR+yWztI3bILDk8G53ZwUYPRRH1ZBEokP9A23bJzCVdKNiRllRzC LJ6+andVdaegBJoQ360nIALGyo0vU6/g42vBx1qcGKFXLvRWmmXS3zp5dsAW X/dnnP9xJgGQmkmxQMrwYurhRQpbrJphq9KlmCscPdrrRL4Jz7wdVGzpiZ5Q Q6bg7S4IXAnwKb6I2McIinV9kcub+CIDW0K1Ni/s2HbBD9lE00K5T8UOPKqK jbhDUiCHg8afeJjPirsKH0Lk7jEuiDBiWHJLiEPVmQv+RD3keGLJdbE3pXtc CwZzaBFxyTcprf/MTi/FQzJFL5rekz2I9qluyt0CaJClZyM4MoolxRtlkpsp yX3dK8LdEAHCq+fa67dyVFh8YunQGwWdzooRZWWAE3XZIVkL2IjuvVmkwag9 gtqEnDX0CxesS/UsiH6R1OKbnMPK9yLQKlPZAy1L/bANiUZCaJgUPaWANBjx bGxz9fFcrEw32hvKeZZPxYMjrjs3wk9FzZ9iuwnSGXlUDYZV27ZG8Kn7TuwB 8wNnehi1OIaOB0Q1R+QLwLkWLDufQbqpQJoC46EgVRrgHrGEabt3N/M7I68k J8qR3AEa7opOvvUIDqggwMqgWkDQbDpRs0YzD+lBjMOkbwnUsXJIWZOPdcbx CbKLvtiwcLz3Lpu1NNQbEE1qvhZ7C/XoIotLTKsFLft+eQ0DcUG6Rfx6Jp/K tLqdYFZoCvbLWvI97TsYKfazKKjIckRYwOsQ5vJhTF12laA6SbdoBQRI7Vm9 /dOyFI6zejGkqRkKHuJHY2iWac+LcUgys6YAGGZI4zdjdxcuYbUHo6Ki7rNb T00/cBJEmeyEFV4M2xu6VUNbjfGQ+JvrPTpmJdVQF1Epdr005e+Y4a89nr6L slYDmnNfYGJrSTE2zrnZsSzV/FEnRSQJAZ7aZMktFTMVwTSoQ8gPBc0wHmbU PTQdIUeuhoQF83HKI7uIMh2GeQFzU2qadbEJM+V8yFJ2XrgoHYCHMxcI2KXL DnwGLBA7YOznBo02GlGYiq9DeFBxGpVrlU0ZhJvA2V1lPABWgTkeMX6rU1Zd 75GeQ7EmIryw3DYj3bYIqwMBnJFQ8jiUGZB9EYLTNAoDp84IQkN6bmS/23I9 wWaNZCGQ6RGKsoVVj03kT0J0jUfgtFDfXTo+s9GCWLOj70Oh9VDVQAqPnDBb nzRqSxekohWlwtdTkcZDIPKcAEr7GaLDNfnbK8/yTn38XHy3EKR6SqgxrGku dIu1taqdpcnwUpJIFW9ca9H8YbBhhJM11FlnYtE96XyhSEepNpFsME7A2oSY 2TMOTbHE+SJYzFKKVa4uIxe4tdYGoWohIQ1JoahEepGpm1qCcULExIdYPPUj Bm5INGfAi2N5j59Fz7AOZQxN2XWyZTq5vLo7Sbol7RM+Rt+/CPoumYJaqugO T0RBNNJeuKTUboi7HerjGJQRkpnmIAsQ9QJshOQKZXpJqoxbmVcLpbDBqfnS LzkgcbcQS4yYWuSaHfZZc+Km+PS+6Qj0fBRtn32UW90wikYx0bZol8lVwdMR z2l4yzmlOUX2uKPzWGhIk9vCXLVWvmji0Jds0w9vVyN/GceodiFHPO4UpFFW afmfakYwgTpJkR/C0yd74MzJqJkIrh5y1tLfeyOJ9g53KvgsEnbfy1AHBjOz WvYGhu86HjKjI1KQZnfWirKLMlwK3I56gCDKf/gboT7HfVaZLtbpvgiE2UPc 3eTptjeWPezhh+n3fHlQZ5BBuNglyJSVY0dFZNnVgiZ+AS4TU7deWUVIJkbU m2+9lvJab+Xat3vOgc6245UP0AqoAX0kdTRjj/2Js47V35TRtlZN4icD2zOI acrj6iM32RZc8XDd6JlNouNa16VyV2Tr2uOidNvx15CBhrG8mZohBBCuwCk9 vsC61r79nZShVu8KPZkrzCkJNRQnB5Ca71bjTp7pJhEcNMa/115VkI+5JIYk hpG4Z8xDLXtbhvbwVaDMElfzB1D9h8O07GXH1r6956OrNQ6jf69YXGpQhOE1 Q1ezlD71QzyFRV1rrmZI7TzncrKTU719JLxgSJCX7E0cZjOA/udnFpbTF7x+ M32hZdsXJiZgqa1M9id5fk/S2/bZ0utq8MlZXUdQdBKHcskFcUZ+PBR48f5r WplPdscxIQjqrN00qkIW2dmJBaMoi+FvvUs9lTN2z0i6MTTK7WsiDERk6tRG o973uqPnBbOM9G3BiVcjMOCEDTzIRNOyRy52qooY9VFxjndTbG6MQ/xEpBhG oR5Y1DoT1Wsn7DpWwbS4SymrtlKxXTr763NcnqjEaxSNvcbejt8xViqeFwJ7 mR19cdQF9za1s5u5kzml6Uz1ZDcF4K5gqvAb4QoeDjcOGGhMNr2FAML8Wfr5 rb9XrZ5efCKVftcQwPTij7nSj0QYXQMNTxplP5V+QPReo94HjbJ3G21/0aiX 3vy+hIuZq3BpGXAR2lS4tN4HjbJ3G21/0aiX/cFyyo8y8q9erFN+rPJOu/iv 2p284+NJ4CcCBkqvn7V7zagOf+m9qAf0pFH2D4IdInW/Ue+DRtn3G23/s1EP 71lt1s+9TG3Jk0bZXzfaZgot3w3xL42+nDRE3Th6iyrJhM6+XRUCiXpsjagZ FZsRcXG1UDgcmqvjfa18V1WTcV1JRDybJS5Le82F1+NLPbSmjLNdEWiUsUg1 Ee3pIncrxEvCA13MMajhVj0odn4F8cBGArWLXdujIU49+gvBeeeOc30LRz7u 9A0Q6aIgUgsaV/r4mhq5YulBzPAYIVjmBILb2DfjyZ6ySdZaz75FYINAkXdT eNbqj0Ksm0ng7WKTQoWeYIoSXm8u0XMIyrTsfFzehDSRiKi06ciJc/aypRDC 19CDfJnzz9JpfVg40XcfEqLsdTPudR5HRqLVYaMbLaBwElD1czmRmO20CZFB wSxIX9AshWHzYVjVc6XiWccO9yToU5KWrj/nIrBrefo5ZmydLV1bsNfIqOYc yk7a+ewoEZSWEKovIi6K0AxUh0LFHmCO71GkwXEY5FUd1KtYbICGPZqNrUME 9psae70qQsV5QmIbKSU0y6KUucXIFcFwuGGFz776xgHwkyhlnALQd7KwaJHR OX/dbVOPJe/isgz6g52TlO2a/ACddDmC78lDjQaM9T5sFl/7fTULnh9BF4gb AjjodrV1w9kmF8yE5jrr76dxgcuzfIDbJ9rZ7EanCm22Fthu6GCMBm/NpSwI d3viE8KMBkQbqYby4If3dVbMtcZE0K26pqSvVEnUt1y8H3do7IopJHMjC8J2 NiHzMZWnkTSJBYnNsrOgXIcceQXpUc98xkFdT9JepvjYhYZOgmjMBMm5wFKp lpZducAhq+EsWrJ2S49n9+Ay+kI6S/hQRgtJLMt4HMJJpgwNLvV0iPpkziHs 3rmu13vIhg+i0D+Pw/aHWPnUfauveKxv3V/zfKqgnFIZNo+sV1vG4rN/nvUV qLMtqONQFBu5mgjvGHBig83Q48jvCsISEIp9102hMA4WnhuHIwajdNeQfxkd ual4TbwmiDwdGtuFFlFCvuBCopIfpDouzqMjBOgKwN5JXU9sfFl7mIWkZite btaCbhISLlijZ3gi32UOmfhUOaXyvFAlcIDqpTxtQ56Qpclj30Y51DbuIbdy FCigRtVqm0gYaYn6vaaTDth6JwOOq577kCMMiH+dkKbbMeWm7buqiIM38Kke XkEjdtCrC5UlE7BI+axzEiv0yWphXxrQNPUxsHivS8AewZi5jS6jHSuY+kYD NVP6rkPJgZsH2N6+QZ+xQlR50nGWOFJy+uIYnNTn9Hm9jwOIx1FdFkBnyaCX S1bCOftc+rbrWNxNZfcjp7RHDvxozRdYxuOtY/NtUcR0m5kol4pdm023FyfL kdmwmC3aOsTRoHeu9vps7ioq2kWdynuELFm6mo6U2nZdBPmI4AZtiZ3lJcGE N2kTDlgEGWrvUrIF/JRtCQ47OLqKHKYjUlqVaPlctZ8VrG6AXptGQhfvx6VC LffuLLZGO932m26LyFdpB6dta3OQ2O85DdOrAlMYYaDhklSWAA1PlUUCbQov JfmfgqU4AiFFiqVI0W1pUvioeYF4VazIGBNZ1piT+2G3jkrlEuj7mXelDGj5 00QaVF6QarQBGps1ID64umq0k/VUfTuJTib3xIK6tb1y/1t1TIv9vtHcym9j a3DuUU1SaRBcSNtaAnuqTcvhZUhguVWiYVDVFprZV2rUEmQsYD2kPSwlyvbt upSRjspJPXX/u27TWg1IRGyWMhv0XUGdi5mtq6v7UMdNz6ZG6szxVwvcAWzQ qc72FGFurW+PWsk2zc+6xHDQWqKhtymU4tLFbEmKyujHOy0Jm30mPQdXEsrV ZQ3MUxnqV4P/9iBlTELNEly68wNjqJMxl+2X5KY5c+rU2sJMnHatyI1cnBnT 9NA3rY/MEddGi+6MHlqyx1UnxoFQhbva6skQWvWo34I/sFa9EDkrCk2rrGXM lXs8FYiz5byclDjqsygLq35v6rOoJwbq51J2HM218nngegGNOMhFClunjAZf 2pSZQirIsZvQr8lfuXRUdWWDFlDbYKuj3L4jZq8AaEnubQM6DYMIInhGUB5n aWqyDxXGvgIHXIdhCgjUBpB9OxfC2kFhS69KqqKl+zWrBh63fMBaanUdNn7u +yN9PeTlVCNqDkBQvRPV4em7JNP5NrqUuyIYvdjd1gtIeuZ2UW2e6Jmc1Ud7 6p3JY6TTszS9i5fatuomDoqTr3XTBtz4ppyWPjf6TksB7ibALQI6y37LCQif 7svcO8mXQdLJB9ftLy/Lkdx9TY+vxrrLY/NN5WzgnzagGewvS0AOgAIKSrWm VDFRLmKinDQTvoZYztQFEjBFt0/zdkpilGYhm4CmB6S+jCI60WodObSWH6C7 2lVc/2gUx9bLrSgOea5Wpjz3i0Qwr6q9dwugsSOB3Vx2efaRysajfbZ2kU6J 0egmlh5XOxG9rciOpo5wIs43F/Gk5lTYhW22Lgg2nOjeVF6BLgRAtxV3UpdH Qhepge42TC7PK0A+j8YoqVvRGBYnKpUatwUsTa6XGLCjf12cXBKWB8UU3HJr +yoiTpW4zPjqsRc9wkQOKuco0A+eWwH1EvosIHp+ji7xKk8jV/vOsbsO4vYP 1cUEoFq7BCQPEoDSGIoGItXZ4aiIPRw77Ts7t6NMIsoFmhoOrEgQLg9KoI7g F1r6VpeKR8jWCu9o8J3ySrHXJqRDRCRcN8SQ1pu6O7rLQoCqz4+7XXenx++G HDl15rtZikOnv9luVksWy3XvW0VSXc/zUbkhhbJV1qCN0m848WaVjMbrR6ff kqzpYWayqgr5eziblUsz5siMKBySSg/2dI46cY84al1uY7V0yDHXp0OQE7ax kLBq40xP36F/6+0re1ytNyPuCMQI2HUDgqyq5zlXsnVXHPhDnesR8xq0OjNx 2fFp/QeLst9X3aCSg7zuKNwcT72gXq09O8MS9Al2IbU9fPRYlk+QZuoW+LBW ANdqP0fJSMu+X7QOdTGxJR89w4EZQedo6VeBusWFU/0ie3SL0BOwMzdWUwBw V+hQe1yP6XZJ7RxVbmXhdjacI5U0FtxF2k86hQnBW1tSxJQmxlyqjAWGrH2g cHnVxeT4PufOnuHN2DkbfCWsd7pRxrpVd055p9nXL1/O7riYje+ZBEN9y8pU 725xCFiTLG9wxYfPu1tBT8lmDdgX2sO0+iqKKc99UxwuDitwL3IooMzSqD3s vuRqlKsiTqlORKe7+sB1pnX2ENUnYm9Yri9WGT8FSBUREZuNA07OSA18B1+U lOImgqc3tsOQCMFOG0A1ZXKg/Gn8V0hfp4X4scs+ieStgh43uM6FmP3x20su mnX0JNtTzYm/qi9KWZx0oXF+OJN9ZTD+XmtO9+bFixfT7Urokp6QgAUzQOvN 73zZ1BQpMrpbPs9eDxTWpwCLLRcyVFHTeggHwgXR1kU3nNOSE4Anb3jpAgUT WB+nPxzKqzpKUC+KTH6YJ3sZwAqY6gf1KXA9O6KkOr8+ouR/m/GuU1Fkd59x OY+hIdZZss46TlPpUHN0prtF8tWih4MGKuxdfWLLHr3pKZl7o+AmiOtY94N8 05n4KX99E0uMygs6DejzLtDKh7MGSHhAehgE8PQY2qP4N59bPXoI/fNxpN40 KQzjtU4TnUVB3Aafg0yGH3ilEY/4P5SZV9jaAoMmeofPm1KPuxRWjXqttu85 CTq3PXEGXAza8IawFbBeb9R70KjHZRItULWeXg9B2f1GvXx0/aTTMD/oCvi8 nbi/zZXOT1+xHZNM70XQZCx8d64Y6CnecudlHVJo3mCrLeOKCY9xsS1Gox9X UqjsmXvmbclkx/wgkinJrtGf1mu11TURmv51ga8MsrauXZpv/ns7bvSZS3W5 xenVh9ca9R8s1H+ygLZKL2zROwruNephJZQUl42yTO4T7hUoNwa+L6joTqFJ 8fkJfcldbY7S9J8E0I0mXT/5GvvK7/axu6lHnN2Y+t1mS3htClie8e9wNzEp /NDdDxqQk4167ZAQycUiPffrp4z5XB7RO8ns2yc+r9r3E31P+qhv1NKrY3SO kAiS+k22Z9d4+1B6wfa84TOo9pW9HbpYXF2fEd0meitefQRkrIqlUYd5K4DV cq9lLveHeL74BguGb/0/vYVsdg==\ \>"], "Graphics", ImageSize->{737, 38}, ImageMargins->0]], "Input", CellChangeTimes->{{3.444474354261525*^9, 3.4444743561552277`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ 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[{ RowBox[{"tauXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}], "^", "2"}], "DXi"]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"ko1", "=", RowBox[{"10", "^", "logko1"}]}], ";", RowBox[{"ko2", "=", RowBox[{"10", "^", "logko2"}]}], ";", RowBox[{"kd3", "=", RowBox[{"10", "^", "logkd3"}]}], ";", "ao1", ";", "ao2", ";", "BEt", ";", RowBox[{"Ko1V", "=", RowBox[{"Ko1", "[", "V", "]"}]}], ";", RowBox[{"Ko2V", "=", RowBox[{"Ko2", "[", "V", "]"}]}], ";", RowBox[{"BV", "=", RowBox[{"B0", "[", "V", "]"}]}], ";", RowBox[{"\[Theta]sV", "=", RowBox[{"\[Theta]s", "[", "V", "]"}]}], ";", RowBox[{"\[Theta]AV", "=", RowBox[{"\[Theta]A", "[", "V", "]"}]}], ";", RowBox[{"mB", "=", RowBox[{"mXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"tau", "=", RowBox[{"tauXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"MB", "=", RowBox[{ FractionBox["1", "mB"], FractionBox[ RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"tau", " ", "p"}]]]}]}], ";", "\[IndentingNewLine]", RowBox[{"idB", "=", RowBox[{"2", " ", "mB", " ", "F", " ", "BEt"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Vdemi", "=", RowBox[{"Vdemi", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"\[Theta]A", "[", "Vdemi", "]"}], "\[Equal]", "0.5"}], ",", RowBox[{"{", RowBox[{"Vdemi", ",", "0"}], "}"}]}], "]"}]}]}], ";", RowBox[{"Vmin", "=", RowBox[{"Vdemi", "-", "0.2"}]}], ";", RowBox[{"Vmax", "=", RowBox[{"Vdemi", "+", "0.3"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Rt", "=", FractionBox["1", RowBox[{"4", " ", "f", " ", "F", " ", RowBox[{"(", RowBox[{ RowBox[{"ao1", " ", "Ko1V"}], "+", RowBox[{"ao2", " ", "Ko2V"}]}], ")"}], " ", "\[CapitalGamma]", " ", "\[Theta]sV"}]]}], ";", RowBox[{"Rp", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ao1", " ", "Ko1V"}], "+", RowBox[{"ao2", " ", "Ko2V"}]}], ")"}], " ", "Rt", " ", RowBox[{"(", RowBox[{ RowBox[{"BV", " ", "kd3", " ", "mB"}], "+", RowBox[{"Ko2V", " ", RowBox[{"(", RowBox[{"mB", "+", RowBox[{"kd3", " ", "\[CapitalGamma]", " ", "\[Theta]AV"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"ao2", " ", "Ko2V", " ", RowBox[{"(", RowBox[{ RowBox[{"BV", " ", "kd3", " ", "mB"}], "-", RowBox[{"Ko1V", " ", RowBox[{"(", RowBox[{"mB", "+", RowBox[{"kd3", " ", "\[CapitalGamma]", " ", "\[Theta]AV"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"ao1", " ", "Ko1V", " ", RowBox[{"(", RowBox[{ RowBox[{"BV", " ", "kd3", " ", "mB"}], "+", RowBox[{"Ko2V", " ", RowBox[{"(", RowBox[{"mB", "+", RowBox[{"kd3", " ", "\[CapitalGamma]", " ", "\[Theta]AV"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rt", " ", "Cdl"}], ")"}]}], ",", RowBox[{"2.54", "/", "tau"}]}], "}"}]}], ";", RowBox[{"logwmin", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "-", "2"}]}], ";", RowBox[{"logwmax", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "+", "2"}]}], ";", RowBox[{"ZX2", "=", RowBox[{ RowBox[{"(", RowBox[{"ao2", " ", "Ko2V", " ", "Rt", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Ko1V", " ", "\[CapitalGamma]"}], "+", RowBox[{"2", " ", "Ko2V", " ", "\[CapitalGamma]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ "kd3", " ", "MB", " ", "\[CapitalGamma]", " ", "\[Theta]AV"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "\[CapitalGamma]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ao1", " ", "Ko1V"}], "+", RowBox[{"ao2", " ", "Ko2V"}]}], ")"}], " ", "p", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ "kd3", " ", "MB", " ", "\[CapitalGamma]", " ", "\[Theta]AV"}]}], ")"}]}], "-", RowBox[{"ao2", " ", "Ko2V", " ", RowBox[{"(", RowBox[{"Ko1V", "-", RowBox[{"BV", " ", "kd3"}], "+", RowBox[{ "Ko1V", " ", "kd3", " ", "MB", " ", "\[CapitalGamma]", " ", "\[Theta]AV"}]}], ")"}]}], "+", RowBox[{"ao1", " ", "Ko1V", " ", RowBox[{"(", RowBox[{"Ko2V", "+", RowBox[{"BV", " ", "kd3"}], "+", RowBox[{ "Ko2V", " ", "kd3", " ", "MB", " ", "\[CapitalGamma]", " ", "\[Theta]AV"}]}], ")"}]}]}], ")"}]}], ")"}]}]}], ";", RowBox[{"ZX2Et", "=", RowBox[{"ZX2", "/", "Rp"}]}], ";", RowBox[{"Zf", "=", RowBox[{"Rt", "+", "ZX2"}]}], ";", RowBox[{"ZfEt", "=", RowBox[{"Zf", "/", "Rp"}]}], ";", RowBox[{"ZEt", "=", RowBox[{ FractionBox["Zf", RowBox[{"1", "+", RowBox[{"p", " ", "Cdl", " ", "Zf"}]}]], "/", "Rp"}]}], ";", "\[IndentingNewLine]", RowBox[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"VSta", ",", RowBox[{ RowBox[{"if", "[", "VSta", "]"}], "/", "idB"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"AbsoluteThickness", "[", "2", "]"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{ RowBox[{"if", "[", "V", "]"}], "/", "idB"}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/\!\(\*SubscriptBox[\(i\), \(dB\)]\)\>\""}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"FrameTicksStyle", "\[Rule]", RowBox[{"Directive", "[", "8", "]"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"VSta", ",", RowBox[{ RowBox[{"B0", "[", "VSta", "]"}], "/", "BEt"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", RowBox[{"\[Theta]s", "[", "VSta", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{ RowBox[{"B0", "[", "V", "]"}], "/", "BEt"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{"\[Theta]s", "[", "V", "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{"\[Theta]A", "[", "V", "]"}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.85"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.7"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.55"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"FrameTicksStyle", "\[Rule]", RowBox[{"Directive", "[", "8", "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"\)]\)\>\"", ",", "\"\<- Im \!\(\*SubscriptBox[\(Z\), \ \(s\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\""}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}], ",", RowBox[{"FrameTicksStyle", "\[Rule]", RowBox[{"Directive", "[", "8", "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"250", ",", "200"}], "}"}]}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\""}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", "Purple", ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\\\"\\\\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.75"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}], ",", RowBox[{"FrameTicksStyle", "\[Rule]", RowBox[{"Directive", "[", "8", "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"250", ",", "200"}], "}"}]}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(2\)\(+\)\)]\) + s + 2\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< M,s + \!\(\*SuperscriptBox[\(A\), \ \(\(2\)\(-\)\)]\) \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \ \(o2\)]]\) MA,s + 2\!\(\*SuperscriptBox[\(e\), \(-\)]\) \>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ "\"\< MA,s + B \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d3\)]]\) MAB + s \>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logko1", ",", "2", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao1", ",", "0.25", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logko2", ",", "2", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", "6", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao2", ",", "0.6", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkd3", ",", "8", ",", "\"\\""}], "}"}], ",", "1", ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalOmega]", ",", "1000.", ",", "\"\<\[CapitalOmega]/rpm\>\""}], "}"}], ",", "500", ",", " ", RowBox[{"5", " ", RowBox[{"10", "^", "3"}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"DXi", ",", RowBox[{"1.6", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", "\"\<\!\(\*SubscriptBox[\(D\), \(B\)]\)/(\!\(\*SuperscriptBox[\(cm\), \ \(2\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\))\>\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"5.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEt", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "4"}]}]}], ",", "\"\<\!\(\*SuperscriptBox[\(B\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))\>\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "7"}]}]}], ",", " ", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "4"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "6"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"V", ",", RowBox[{"-", "0.02"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "0.6"}], ",", "0.6", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"-", "3"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "7"}], ",", "9", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", 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]\), \(dB\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Ko1", "[", "V_", "]"}], ":=", RowBox[{"ko1", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "ao1", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Ko2", "[", "V_", "]"}], ":=", RowBox[{"ko2", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "ao2", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"B0", "[", "V_", "]"}], ":=", RowBox[{ FractionBox["1", RowBox[{"2", " ", "kd3", " ", "mB"}]], RowBox[{"(", RowBox[{ RowBox[{"BEt", " ", "kd3", " ", "mB"}], "-", RowBox[{ RowBox[{"(", RowBox[{"mB", "+", RowBox[{"kd3", " ", "\[CapitalGamma]"}]}], ")"}], " ", RowBox[{"Ko2", "[", "V", "]"}]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", "BEt", " ", "kd3", " ", SuperscriptBox["mB", "2"], " ", RowBox[{"Ko2", "[", "V", "]"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"BEt", " ", "kd3", " ", "mB"}], "-", RowBox[{ RowBox[{"(", RowBox[{"mB", "+", RowBox[{"kd3", " ", "\[CapitalGamma]"}]}], ")"}], " ", RowBox[{"Ko2", "[", "V", "]"}]}]}], ")"}], "2"]}]]}], ")"}]}]}], ";", RowBox[{ RowBox[{"\[Theta]A", "[", "V_", "]"}], ":=", RowBox[{ FractionBox["1", RowBox[{"2", " ", "kd3", " ", "\[CapitalGamma]", " ", RowBox[{"Ko2", "[", "V", "]"}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "BEt"}], " ", "kd3", " ", "mB"}], "-", RowBox[{"mB", " ", RowBox[{"Ko2", "[", "V", "]"}]}], "+", RowBox[{"kd3", " ", "\[CapitalGamma]", " ", RowBox[{"Ko2", "[", "V", "]"}]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", "BEt", " ", "kd3", " ", SuperscriptBox["mB", "2"], " ", RowBox[{"Ko2", "[", "V", "]"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"BEt", " ", "kd3", " ", "mB"}], "-", RowBox[{ RowBox[{"(", RowBox[{"mB", "+", RowBox[{"kd3", " ", "\[CapitalGamma]"}]}], ")"}], " ", RowBox[{"Ko2", "[", "V", "]"}]}]}], ")"}], "2"]}]]}], ")"}]}]}], ";", RowBox[{ RowBox[{"\[Theta]s", "[", "V_", "]"}], ":=", RowBox[{"1", "-", RowBox[{"\[Theta]A", "[", "V", "]"}]}]}], ";", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", RowBox[{ FractionBox["1", RowBox[{"kd3", " ", RowBox[{"Ko2", "[", "V", "]"}]}]], "F", " ", RowBox[{"(", RowBox[{ RowBox[{"Ko1", "[", "V", "]"}], "+", RowBox[{"Ko2", "[", "V", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"BEt", " ", "kd3", " ", "mB"}], "+", RowBox[{ RowBox[{"(", RowBox[{"mB", "+", RowBox[{"kd3", " ", "\[CapitalGamma]"}]}], ")"}], " ", RowBox[{"Ko2", "[", "V", "]"}]}], "-", SqrtBox[ RowBox[{ RowBox[{"4", " ", "BEt", " ", "kd3", " ", SuperscriptBox["mB", "2"], " ", RowBox[{"Ko2", "[", "V", "]"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"BEt", " ", "kd3", " ", "mB"}], "-", RowBox[{ RowBox[{"(", RowBox[{"mB", "+", RowBox[{"kd3", " ", "\[CapitalGamma]"}]}], ")"}], " ", RowBox[{"Ko2", "[", "V", "]"}]}]}], ")"}], "2"]}]]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]", "=", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "9"}]}]}]}], ";", RowBox[{"Farad", "=", RowBox[{"F", "=", "96485."}]}], ";", RowBox[{"Nu", "=", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "2"}]}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"CstLevich", "=", "1.61197581"}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{"Blue", ",", "Purple", ",", RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.6142719099991583`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", "]"}]}], "Input", Editable->False, CellOpen->False, CellChangeTimes->{3.442033151696673*^9, 3.4440168279967213`*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao1$$ = 0.25, $CellContext`ao2$$ = 0.6, $CellContext`BEt$$ = 0.0001, $CellContext`DXi$$ = 1.6*^-6, $CellContext`logCdl$$ = -6, $CellContext`logkd3$$ = 8, $CellContext`logko1$$ = 2, $CellContext`logko2$$ = 2, $CellContext`logwc$$ = -3, $CellContext`V$$ = -0.02, \ $CellContext`wc1$$ = True, $CellContext`wc2$$ = True, $CellContext`\[CapitalOmega]$$ = 1000., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(2\)\(+\)\)]\) + s + 2\!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " M,s + \!\(\*SuperscriptBox[\(A\), \(\(2\ \)\(-\)\)]\) \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \ \(o2\)]]\) MA,s + 2\!\(\*SuperscriptBox[\(e\), \(-\)]\) ", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " MA,s + B \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d3\)]]\) MAB + s ", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logko1$$], 2, "log(\!\(\*SubscriptBox[\(k\), \(o1\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -5, 5}, {{ Hold[$CellContext`ao1$$], 0.25, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)"}, 0.2, 0.8}, {{ Hold[$CellContext`logko2$$], 2, "log(\!\(\*SubscriptBox[\(k\), \(o2\)]\)\!\(\*SuperscriptBox[\(A\), \ \(2 - *\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -6, 6}, {{ Hold[$CellContext`ao2$$], 0.6, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)"}, 0.2, 0.8}, {{ Hold[$CellContext`logkd3$$], 8, "log(\!\(\*SubscriptBox[\(k\), \(d3\)]\)/\!\(\*SuperscriptBox[\(mol\), \ \(\(-1\)\(\\ \)\)]\)\!\(\*SuperscriptBox[\(cm\), \(3\)]\) \ \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 1, 10}, {{ Hold[$CellContext`\[CapitalOmega]$$], 1000., "\[CapitalOmega]/rpm"}, 500, 5000}, {{ Hold[$CellContext`DXi$$], 1.6*^-6, "\!\(\*SubscriptBox[\(D\), \(B\)]\)/(\!\(\*SuperscriptBox[\(cm\), \ \(2\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 1.*^-6, 0.00005}, {{ Hold[$CellContext`BEt$$], 0.0001, "\!\(\*SuperscriptBox[\(B\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 1.*^-7, 0.0001}, {{ Hold[$CellContext`logCdl$$], -6, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3}, {{ Hold[$CellContext`V$$], -0.02, "E/V"}, -0.6, 0.6}, {{ Hold[$CellContext`logwc$$], -3, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -7, 9}, {{ 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]\), \(dB\)]\)"}, {False, True}}}, Typeset`size$$ = { 545., {217., 222.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logko1$4428$$ = 0, $CellContext`ao1$4429$$ = 0, $CellContext`logko2$4430$$ = 0, $CellContext`ao2$4431$$ = 0, $CellContext`logkd3$4432$$ = 0, $CellContext`\[CapitalOmega]$4433$$ = 0, $CellContext`DXi$4434$$ = 0, $CellContext`BEt$4435$$ = 0, $CellContext`logCdl$4436$$ = 0, $CellContext`V$4437$$ = 0, $CellContext`wc1$4438$$ = False, $CellContext`wc2$4439$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao1$$ = 0.25, $CellContext`ao2$$ = 0.6, $CellContext`BEt$$ = 0.0001, $CellContext`DXi$$ = 1.6*^-6, $CellContext`logCdl$$ = -6, $CellContext`logkd3$$ = 8, $CellContext`logko1$$ = 2, $CellContext`logko2$$ = 2, $CellContext`logwc$$ = -3, $CellContext`V$$ = -0.02, \ $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`\[CapitalOmega]$$ = 1000.}, "ControllerVariables" :> { Hold[$CellContext`logko1$$, $CellContext`logko1$4428$$, 0], Hold[$CellContext`ao1$$, $CellContext`ao1$4429$$, 0], Hold[$CellContext`logko2$$, $CellContext`logko2$4430$$, 0], Hold[$CellContext`ao2$$, $CellContext`ao2$4431$$, 0], Hold[$CellContext`logkd3$$, $CellContext`logkd3$4432$$, 0], Hold[$CellContext`\[CapitalOmega]$$, \ $CellContext`\[CapitalOmega]$4433$$, 0], Hold[$CellContext`DXi$$, $CellContext`DXi$4434$$, 0], Hold[$CellContext`BEt$$, $CellContext`BEt$4435$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$4436$$, 0], Hold[$CellContext`V$$, $CellContext`V$4437$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$4438$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$4439$$, 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`Cdl = 10^$CellContext`logCdl$$; $CellContext`ko1 = 10^$CellContext`logko1$$; $CellContext`ko2 = 10^$CellContext`logko2$$; $CellContext`kd3 = 10^$CellContext`logkd3$$; $CellContext`ao1$$; $CellContext`ao2$$; \ $CellContext`BEt$$; $CellContext`Ko1V = $CellContext`Ko1[$CellContext`V$$]; \ $CellContext`Ko2V = $CellContext`Ko2[$CellContext`V$$]; $CellContext`BV = \ $CellContext`B0[$CellContext`V$$]; $CellContext`\[Theta]sV = $CellContext`\ \[Theta]s[$CellContext`V$$]; $CellContext`\[Theta]AV = \ $CellContext`\[Theta]A[$CellContext`V$$]; $CellContext`mB = \ $CellContext`mXi[$CellContext`DXi$$, $CellContext`Nu, ($CellContext`\ \[CapitalOmega]$$ 2) (Pi/ 60)]; $CellContext`tau = $CellContext`tauXi[$CellContext`DXi$$, \ $CellContext`Nu, ($CellContext`\[CapitalOmega]$$ 2) (Pi/ 60)]; $CellContext`MB = (1/$CellContext`mB) ( Tanh[($CellContext`tau $CellContext`p)^ Rational[1, 2]]/($CellContext`tau $CellContext`p)^ Rational[1, 2]); $CellContext`idB = (( 2 $CellContext`mB) $CellContext`F) $CellContext`BEt$$; \ $CellContext`Vdemi = ReplaceAll[$CellContext`Vdemi, FindRoot[$CellContext`\[Theta]A[$CellContext`Vdemi] == 0.5, {$CellContext`Vdemi, 0}]]; $CellContext`Vmin = $CellContext`Vdemi - 0.2; $CellContext`Vmax = $CellContext`Vdemi + 0.3; $CellContext`Rt = 1/(((((4 $CellContext`f) $CellContext`F) ($CellContext`ao1$$ \ $CellContext`Ko1V + $CellContext`ao2$$ $CellContext`Ko2V)) $CellContext`\ \[CapitalGamma]) $CellContext`\[Theta]sV); $CellContext`Rp = Abs[((($CellContext`ao1$$ $CellContext`Ko1V + $CellContext`ao2$$ \ $CellContext`Ko2V) $CellContext`Rt) (($CellContext`BV $CellContext`kd3) \ $CellContext`mB + $CellContext`Ko2V ($CellContext`mB + ($CellContext`kd3 \ $CellContext`\[CapitalGamma]) $CellContext`\[Theta]AV)))/(($CellContext`ao2$$ \ $CellContext`Ko2V) (($CellContext`BV $CellContext`kd3) $CellContext`mB - \ $CellContext`Ko1V ($CellContext`mB + ($CellContext`kd3 $CellContext`\ \[CapitalGamma]) $CellContext`\[Theta]AV)) + ($CellContext`ao1$$ \ $CellContext`Ko1V) (($CellContext`BV $CellContext`kd3) $CellContext`mB + \ $CellContext`Ko2V ($CellContext`mB + ($CellContext`kd3 $CellContext`\ \[CapitalGamma]) $CellContext`\[Theta]AV)))]; $CellContext`lw = { 1/($CellContext`Rt $CellContext`Cdl), 2.54/$CellContext`tau}; $CellContext`logwmin = Log[10, Part[$CellContext`lw, 2]] - 2; $CellContext`logwmax = Log[10, Part[$CellContext`lw, 1]] + 2; $CellContext`ZX2 = (((($CellContext`ao2$$ $CellContext`Ko2V) \ $CellContext`Rt) ((2 $CellContext`Ko1V) $CellContext`\[CapitalGamma] + ( 2 $CellContext`Ko2V) $CellContext`\[CapitalGamma])) ( 1 + (($CellContext`kd3 $CellContext`MB) $CellContext`\ \[CapitalGamma]) $CellContext`\[Theta]AV))/(( 2 $CellContext`\[CapitalGamma]) ((($CellContext`ao1$$ \ $CellContext`Ko1V + $CellContext`ao2$$ $CellContext`Ko2V) $CellContext`p) ( 1 + (($CellContext`kd3 $CellContext`MB) $CellContext`\ \[CapitalGamma]) $CellContext`\[Theta]AV) - ($CellContext`ao2$$ \ $CellContext`Ko2V) ($CellContext`Ko1V - $CellContext`BV $CellContext`kd3 + \ ((($CellContext`Ko1V $CellContext`kd3) $CellContext`MB) $CellContext`\ \[CapitalGamma]) $CellContext`\[Theta]AV) + ($CellContext`ao1$$ \ $CellContext`Ko1V) ($CellContext`Ko2V + $CellContext`BV $CellContext`kd3 + \ ((($CellContext`Ko2V $CellContext`kd3) $CellContext`MB) $CellContext`\ \[CapitalGamma]) $CellContext`\[Theta]AV))); $CellContext`ZX2Et = \ $CellContext`ZX2/$CellContext`Rp; $CellContext`Zf = $CellContext`Rt + \ $CellContext`ZX2; $CellContext`ZfEt = $CellContext`Zf/$CellContext`Rp; \ $CellContext`ZEt = ($CellContext`Zf/( 1 + ($CellContext`p $CellContext`Cdl) \ $CellContext`Zf))/$CellContext`Rp; GraphicsGrid[{{ ParametricPlot[{{$CellContext`VSta, \ $CellContext`if[$CellContext`VSta]/$CellContext`idB}}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, PlotStyle -> { AbsoluteThickness[2]}, Frame -> True, FrameTicks -> {Automatic, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$, \ $CellContext`if[$CellContext`V$$]/$CellContext`idB}]}, FrameLabel -> { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/\!\(\*SubscriptBox[\(i\), \(dB\)]\)"}, AspectRatio -> 1/GoldenRatio, Axes -> None, FrameTicksStyle -> Directive[8], BaseStyle -> $CellContext`monStyle, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta, \ $CellContext`B0[$CellContext`VSta]/$CellContext`BEt$$}, {$CellContext`VSta, $CellContext`\[Theta]s[$CellContext`VSta]}, {$CellContext`VSta, \ $CellContext`\[Theta]A[$CellContext`VSta]}}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, Frame -> True, FrameLabel -> { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "B(0)/\!\(\*SuperscriptBox[\(B\), \(*\)]\), \!\(\*SubscriptBox[\ \(\[Theta]\), \(s\)]\), \!\(\*SubscriptBox[\(\[Theta]\), \(A\)]\)"}, Axes -> None, FrameTicks -> {Automatic, {0, 0.5, 1}, None, None}, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[1.5]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[1.5]}, { Part[$CellContext`lHue, 5], AbsoluteThickness[1.5]}}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$, \ $CellContext`B0[$CellContext`V$$]/$CellContext`BEt$$}], Point[{$CellContext`V$$, $CellContext`\[Theta]s[$CellContext`V$$]}], Point[{$CellContext`V$$, $CellContext`\[Theta]A[$CellContext`V$$]}], Part[$CellContext`lHue, 3], Text["B(0)", Scaled[{0.1, 0.85}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"s\"\)]\)", Scaled[{0.1, 0.7}]], Part[$CellContext`lHue, 5], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"A\"\)]\)", Scaled[{0.1, 0.55}]]}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, BaseStyle -> $CellContext`monStyle, FrameTicksStyle -> Directive[8], ImageSize -> 250, AspectRatio -> 1/GoldenRatio]}, { ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, PlotRange -> All, AxesOrigin -> {0, 0}, PlotStyle -> {Blue, AbsoluteThickness[1.5]}, FrameLabel -> { "Re \!\(\*SubscriptBox[\(Z\), \(s\)]\)/\!\(\*SubscriptBox[\(R\), \ \(\"p\"\)]\)", "- Im \!\(\*SubscriptBox[\(Z\), \(s\)]\)/\!\(\*SubscriptBox[\(R\ \), \(\"p\"\)]\)"}, Epilog -> { AbsolutePointSize[5], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], { Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logwc$$]]}}, BaseStyle -> $CellContext`monStyle, FrameTicksStyle -> Directive[8], ImageSize -> {250, 200}], ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZEt], -Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZfEt], -Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, PlotRange -> All, AxesOrigin -> {0, 0}, PlotStyle -> {{Purple, AbsoluteThickness[1]}, {Blue, AbsoluteThickness[2]}}, FrameLabel -> { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], Point[ ReplaceAll[{ Re[$CellContext`ZEt], -Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{ Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Purple, Text["Z", Scaled[{0.1, 0.9}]], Blue, Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", Scaled[{0.1, 0.75}]]}, BaseStyle -> $CellContext`monStyle, FrameTicksStyle -> Directive[8], ImageSize -> {250, 200}]}}]), "Specifications" :> { Style[ " M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(2\)\(+\)\)]\) + s + 2\!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium], Style[ " M,s + \!\(\*SuperscriptBox[\(A\), \ \(\(2\)\(-\)\)]\) \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \ \(o2\)]]\) MA,s + 2\!\(\*SuperscriptBox[\(e\), \(-\)]\) ", Bold, Medium], Style[ " MA,s + B \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d3\)]]\) MAB + s ", Bold, Medium], Delimiter, {{$CellContext`logko1$$, 2, "log(\!\(\*SubscriptBox[\(k\), \ \(o1\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -5, 5, Appearance -> "Labeled"}, {{$CellContext`ao1$$, 0.25, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)"}, 0.2, 0.8, Appearance -> "Labeled"}, {{$CellContext`logko2$$, 2, "log(\!\(\*SubscriptBox[\(k\), \(o2\)]\)\!\(\*SuperscriptBox[\(A\), \ \(2 - *\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -6, 6, Appearance -> "Labeled"}, {{$CellContext`ao2$$, 0.6, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)"}, 0.2, 0.8, Appearance -> "Labeled"}, {{$CellContext`logkd3$$, 8, "log(\!\(\*SubscriptBox[\(k\), \(d3\)]\)/\!\(\*SuperscriptBox[\(mol\ \), \(\(-1\)\(\\ \)\)]\)\!\(\*SuperscriptBox[\(cm\), \(3\)]\) \ \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 1, 10, Appearance -> "Labeled"}, {{$CellContext`\[CapitalOmega]$$, 1000., "\[CapitalOmega]/rpm"}, 500, 5000, Appearance -> "Labeled"}, {{$CellContext`DXi$$, 1.6*^-6, "\!\(\*SubscriptBox[\(D\), \(B\)]\)/(\!\(\*SuperscriptBox[\(cm\), \ \(2\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 1.*^-6, 0.00005, Appearance -> "Labeled"}, {{$CellContext`BEt$$, 0.0001, "\!\(\*SuperscriptBox[\(B\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 1.*^-7, 0.0001, Appearance -> "Labeled"}, {{$CellContext`logCdl$$, -6, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, Delimiter, {{$CellContext`V$$, -0.02, "E/V"}, -0.6, 0.6, Appearance -> "Labeled"}, {{$CellContext`logwc$$, -3, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -7, 9, 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]\), \(dB\)]\)"}, {False, True}}}, "Options" :> {FrameLabel -> { Style[ "ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2009. Hosted \ by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}], ImageSizeCache->{965., {256.375, 261.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Cdl = 1/1000000, $CellContext`ko1 = 100, $CellContext`ko2 = 100, $CellContext`kd3 = 100000000, $CellContext`Ko1V = 193.73092000449645`, $CellContext`Ko1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko1 Exp[((2 FE`ao1$$18) $CellContext`f) $CellContext`V$], Attributes[$CellContext`V$] = {Temporary}, FE`ao1$$18 = 0.25, $CellContext`f = 38.9, $CellContext`Ko2V = 488.9646448731297, $CellContext`Ko2[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko2 Exp[((2 FE`ao2$$18) $CellContext`f) $CellContext`V$], FE`ao2$$18 = 0.6, $CellContext`BV = 2.891189373638956*^-6, $CellContext`B0[ Pattern[$CellContext`V$, Blank[]]] := ( 1/((2 $CellContext`kd3) $CellContext`mB)) (( FE`BEt$$18 $CellContext`kd3) $CellContext`mB - ($CellContext`mB + \ $CellContext`kd3 $CellContext`\[CapitalGamma]) \ $CellContext`Ko2[$CellContext`V$] + Sqrt[(((4 FE`BEt$$18) $CellContext`kd3) $CellContext`mB^2) \ $CellContext`Ko2[$CellContext`V$] + (( FE`BEt$$18 $CellContext`kd3) $CellContext`mB - \ ($CellContext`mB + $CellContext`kd3 $CellContext`\[CapitalGamma]) \ $CellContext`Ko2[$CellContext`V$])^2]), $CellContext`mB = 0.0018709798507335344`, FE`BEt$$18 = 0.0001, $CellContext`\[CapitalGamma] = 1.*^-9, $CellContext`\[Theta]sV = 0.3715782519567694, $CellContext`\[Theta]s[ Pattern[$CellContext`V, Blank[]]] := 1 - $CellContext`\[Theta]A[$CellContext`V], $CellContext`\[Theta]A[ Pattern[$CellContext`V$, Blank[]]] := ( 1/(((2 $CellContext`kd3) $CellContext`\[CapitalGamma]) \ $CellContext`Ko2[$CellContext`V$])) (((- FE`BEt$$18) $CellContext`kd3) $CellContext`mB - $CellContext`mB \ $CellContext`Ko2[$CellContext`V$] + ($CellContext`kd3 $CellContext`\ \[CapitalGamma]) $CellContext`Ko2[$CellContext`V$] + Sqrt[(((4 FE`BEt$$18) $CellContext`kd3) $CellContext`mB^2) \ $CellContext`Ko2[$CellContext`V$] + (( FE`BEt$$18 $CellContext`kd3) $CellContext`mB - \ ($CellContext`mB + $CellContext`kd3 $CellContext`\[CapitalGamma]) \ $CellContext`Ko2[$CellContext`V$])^2]), $CellContext`\[Theta]AV = 0.6284217480432306, $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 = 0.01, $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`tau = 0.45706899455162925`, $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`MB = ( 790.5694150420949 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`idB = 0.03610429817960502, $CellContext`F = 96485., $CellContext`Vdemi = 0.02748228331786013, $CellContext`Vmin = -0.1725177166821399, \ $CellContext`Vmax = 0.3274822833178601, $CellContext`Rt = 0.5244373656670462, $CellContext`Rp = 2.942478178722737, $CellContext`lw = {1.906805398444622*^6, 5.5571478929382705`}, $CellContext`logwmin = -1.2551480451379018`, \ $CellContext`logwmax = 8.280306372807862, $CellContext`ZX2 = ( 105038.71911915313` ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/((341.81151692500197` $CellContext`p) ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) - 293.37878692387784` (-95.38801735939916 + (9624.765476220588 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) + 48.43273000112411 ( 778.0835822370253 + (24292.302090745918` Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p])), $CellContext`ZX2Et = ( 35697.36553313984 ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/((341.81151692500197` $CellContext`p) ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) - 293.37878692387784` (-95.38801735939916 + (9624.765476220588 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) + 48.43273000112411 ( 778.0835822370253 + (24292.302090745918` Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p])), $CellContext`Zf = 0.5244373656670462 + ( 105038.71911915313` ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/((341.81151692500197` $CellContext`p) ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) - 293.37878692387784` (-95.38801735939916 + (9624.765476220588 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) + 48.43273000112411 ( 778.0835822370253 + (24292.302090745918` Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p])), $CellContext`ZfEt = 0.33984958910861907` ( 0.5244373656670462 + ( 105038.71911915313` ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/((341.81151692500197` $CellContext`p) ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) - 293.37878692387784` (-95.38801735939916 + (9624.765476220588 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) + 48.43273000112411 ( 778.0835822370253 + (24292.302090745918` Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))), $CellContext`ZEt = ( 0.33984958910861907` ( 0.5244373656670462 + ( 105038.71911915313` ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/((341.81151692500197` $CellContext`p) ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) - 293.37878692387784` (-95.38801735939916 + (9624.765476220588 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) + 48.43273000112411 ( 778.0835822370253 + (24292.302090745918` Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))))/( 1 + ($CellContext`p ( 0.5244373656670462 + ( 105038.71911915313` ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/(( 341.81151692500197` $CellContext`p) ( 1 + (49.68110137502676 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) - 293.37878692387784` (-95.38801735939916 + (9624.765476220588 Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]) + 48.43273000112411 ( 778.0835822370253 + (24292.302090745918` Tanh[0.6760687794534143 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))))/1000000), $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := ((( 1/($CellContext`kd3 $CellContext`Ko2[$CellContext`V$])) \ $CellContext`F) ($CellContext`Ko1[$CellContext`V$] + \ $CellContext`Ko2[$CellContext`V$])) (( FE`BEt$$18 $CellContext`kd3) $CellContext`mB + ($CellContext`mB + \ $CellContext`kd3 $CellContext`\[CapitalGamma]) \ $CellContext`Ko2[$CellContext`V$] - Sqrt[(((4 FE`BEt$$18) $CellContext`kd3) $CellContext`mB^2) \ $CellContext`Ko2[$CellContext`V$] + (( FE`BEt$$18 $CellContext`kd3) $CellContext`mB - \ ($CellContext`mB + $CellContext`kd3 $CellContext`\[CapitalGamma]) \ $CellContext`Ko2[$CellContext`V$])^2]), $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], Hue[0.6142719099991583, 0.6, 0.6]}}; ($CellContext`Ko1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko1 Exp[((2 $CellContext`ao1$$) $CellContext`f) $CellContext`V$]; \ $CellContext`Ko2[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko2 Exp[((2 $CellContext`ao2$$) $CellContext`f) $CellContext`V$]; \ $CellContext`B0[ Pattern[$CellContext`V$, Blank[]]] := ( 1/((2 $CellContext`kd3) $CellContext`mB)) (($CellContext`BEt$$ \ $CellContext`kd3) $CellContext`mB - ($CellContext`mB + $CellContext`kd3 \ $CellContext`\[CapitalGamma]) $CellContext`Ko2[$CellContext`V$] + (((( 4 $CellContext`BEt$$) $CellContext`kd3) $CellContext`mB^2) \ $CellContext`Ko2[$CellContext`V$] + (($CellContext`BEt$$ $CellContext`kd3) \ $CellContext`mB - ($CellContext`mB + $CellContext`kd3 $CellContext`\ \[CapitalGamma]) $CellContext`Ko2[$CellContext`V$])^2)^ Rational[1, 2]); $CellContext`\[Theta]A[ Pattern[$CellContext`V$, Blank[]]] := ( 1/(((2 $CellContext`kd3) $CellContext`\[CapitalGamma]) \ $CellContext`Ko2[$CellContext`V$])) (((-$CellContext`BEt$$) $CellContext`kd3) \ $CellContext`mB - $CellContext`mB $CellContext`Ko2[$CellContext`V$] + \ ($CellContext`kd3 $CellContext`\[CapitalGamma]) \ $CellContext`Ko2[$CellContext`V$] + (((( 4 $CellContext`BEt$$) $CellContext`kd3) $CellContext`mB^2) \ $CellContext`Ko2[$CellContext`V$] + (($CellContext`BEt$$ $CellContext`kd3) \ $CellContext`mB - ($CellContext`mB + $CellContext`kd3 $CellContext`\ \[CapitalGamma]) $CellContext`Ko2[$CellContext`V$])^2)^ Rational[1, 2]); $CellContext`\[Theta]s[ Pattern[$CellContext`V, Blank[]]] := 1 - $CellContext`\[Theta]A[$CellContext`V]; $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := ((( 1/($CellContext`kd3 $CellContext`Ko2[$CellContext`V$])) \ $CellContext`F) ($CellContext`Ko1[$CellContext`V$] + \ $CellContext`Ko2[$CellContext`V$])) (($CellContext`BEt$$ $CellContext`kd3) \ $CellContext`mB + ($CellContext`mB + $CellContext`kd3 $CellContext`\ \[CapitalGamma]) $CellContext`Ko2[$CellContext`V$] - (((( 4 $CellContext`BEt$$) $CellContext`kd3) $CellContext`mB^2) \ $CellContext`Ko2[$CellContext`V$] + (($CellContext`BEt$$ $CellContext`kd3) \ $CellContext`mB - ($CellContext`mB + $CellContext`kd3 $CellContext`\ \[CapitalGamma]) $CellContext`Ko2[$CellContext`V$])^2)^ Rational[1, 2]); $CellContext`\[CapitalGamma] = 1. 10^(-9); $CellContext`Farad = ($CellContext`F = 96485.); $CellContext`Nu = 1. 10^(-2); $CellContext`f = 38.9; $CellContext`CstLevich = 1.61197581; $CellContext`lHue = {Blue, Purple, Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6], Hue[0.6142719099991583, 0.6, 0.6]}; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.4418624383473*^9, 3.442033050719707*^9, 3.44203311167131*^9, 3.444016414662678*^9, {3.44447437553647*^9, 3.444474402393099*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1067, 860}, WindowMargins->{{63, Automatic}, {17, Automatic}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXlYU9e27/fe++Pe9757be9tax1AkUGQAMokiLMWB9Q60Dreaq2tA1Zb LaJ1wjrVjg44KyKCAzIj8zwFSBjCkDCEBAjIKELRKhqSvJ3ssNmckxNGxX7d v+/od7LPPmuvtWJ+a++19jnqbdy5fON/v/XWWybgz//811tvKc9FA4RQmDVv AVdnbMpy5+KEBNgm7kT6t3uleuMbxxrVsqbI7T6WTVsrn7paNvPTRs87VUUC cNREx7e67HlpOVNhYt0x3qJ11LiaS1cGqhIBAQEBwWtHzg0vro5eps5Yjv74 /E9WC27fEeXmivLzM8+eZxtYKsYayMaMe2Y+U+a0S7b8oMz5kHzpfrnjVy+W 7nzh9EWHzbIO8w87TB1emDk817doHG1QFRM71AYREBAQEPQBcPIvSE8vMDQW 6Ojl6+oV6Izj6RrwLOx5do6RJrP4rKkKvTGKMWM7DFjta09Jt17r2HpV+qWH 7LOzslUnpEu+kzp+JbVb9XLS/OesqfW6E+qMLcuzOENtFgEBAQFBHwBjQXlp abb91OLRY4vG6BeNHc83sMgzss+fuCTefnXTBGtlLNA36NAf92TGCrHbrao9 ng/3eDV/6/lsx+WOLz2kq49L5++UOqxsmzBDomsumTRFxOMNtVkEBAQEBL0F KgqA87yNm0Sjxlbqm/KMJ2bOcWQvWpa6Ym2881q+48ziD2cK5s8VLFrIn+WQ vv6LxO2uydt2sbd/m73dNX/rbv7nXwvWbSlyXpuz4COuiW2x9YzygoKhtoyA gICAoFcQY1B+PORerWPEs5hceuFoTcDl6oBrVUFekkDPOr+Ldfcv1gVcrgu8 Wud/ufb+JUnYrapwH8kDn+oHPjXhPg/DbtWGeD8MvFETdE3sezZ2ynRBarr2 octLSrL9A4TpPXQjICAgIHilAPxf0Ql1MPjukGScde5XX9QG3mgIDquLSJTE pLeFR/4REvokLKItMrYtJq4tNq4tLKwlKrohh9eQV9CYndfIyW1iZz9OZIP+ 1YHhkrDwIo+LkSs3Zoc+KBcK8RFLBQJuYmLU6dMRn2/irFojuXCpoqhoiKwn +OtCGBIi9PYeai0ICIYYaCEAo0ClCspwIBKVLFsrMZ+Xf9i1NiywKTGnNjWv IT6Nf/Fic0zis6z8p5m8p5m5Tzh5T9I5TxKS29LYLUWlzcWipkJhU1ZBXSK3 Ijq9PCKlIiGjPDQueJzdzeFjr1ja+i1c4rXc+ecFC/c4TNltPP63d98LGz6i Zt16SWrqUHuC4K8IEAj4b70FDoGODjh/RaOkD9GCNzw83MXF5eTJk3w+f0gU IPgTAY8FIApUqSAuLc0/fKzUdK5w5voc971VUQ+q0/IakjJaElNCJk9JsZ/O v+7VnFPQmlvYkp3fks1rYXPApZa4+OaU1EcpqfVxiVVRCeWhMSWh0WUxifyQ 8O8/GLln2Du/Dnv/0N//8fXf/vf0P4dFvvd+wwjdjgkT6695DrUPCP7SKN28 uWTVKmU4GDasPClp0OXn5ORcuHBh0MX2BiAGBQQE7Nu3z9OT/MoIqBCks1Nu 3ky+dSs3MbEkPx/M/8uFwjI+v4TDKYqN5QcE8c56ZC1emWU4NdPOOWOhC9fd reJBYH1M0u+xSY/SOckLFj3UMc4bZZC0co0gKLQuO7+Ry6tncxpSMhrjkxoj ImtDgiVBASJ/v5K7t/N9bhUEB2beu/PV8A/OjxzvM1zHb/jIsrF6ckMjhZ5e h4VVddiDofYHAYESICKAcFDs4DDokocwFkD4+vqCcDCEChC8mRALBNX3Ajkr Pz2vb3hk5Ae/WVl62NoGWtukWdlmTrLhWNvzJ08rsbARmjlUWs5usJ7J27e9 +r53U0RMU2Law/Ss2PlO5QbmFaY2pXqmKfoTEnd8LQiPrmJzq5LYkrgkSWS0 JChY7O9fcvdOka9Pzs0bOf5+/Lv3ci1mSEwdpJNmyFl2cpOJCv3xHRYTq6Oj X6mlQm/vwcoDl+fmKqW9shwCwZADrAhgsmjQawdDHgvA6sDFxWWo8lQEbz4k Sanir77JMbVINxgfbTSeYz6xzX66YrKDwmKSwshQoT9GYTBOMX5CjpuL+N6t h5HxkvhUUUp6xDynIiOLIpYNn2VbYmqTO9YkYpJt8vEfBFHx5XEpwvCoMv+g 0jv3Cn198ry9Mjyv8e/fb4xKlq8/IluyQzZtldxmvtzERmZq9TA4uPeqAiqG v1NwgHPUDhb1Gn+/cI6HDvARXQITP3z6R/kIoL5lzx7UUnb8OBoI9ASX0C3w nN/50g+gBkUfujRcrFIOi4UPrUxTdBoIExdIeWQUaAfEBRQABwpP4ESgo4Py 3vBeJBwRXdm5c8iloA+0C9xSsnAh1BlqhfxMvxGOArUCfaADgRxgI5AAtaK7 DmpC0QqqDYZW+5bFgo7qugsY6O0NxgInoJHuQ1wZCiia4/4BosCh/Cq734i+ 4m5yGBxF9wwTtMcCwNLh4eGURpjnpwg5efKkiwru7u7x8fGo/bffftu1axdo x3NBuFjQB3wEqwMtOkAAOUAaRR+kDBgUDA17AmVQcAEdoAIBAQF0i9BHmK1C QnArcOGwD/gbSqPI5/P5wJlIVdATnMNqCBwINMKreFqM4g2NntT+pYAhoA6o BZiP5ODeoDtE44javaFFOFzlQUfh3ynFRqAAuJFumhaIU9PEn216PMmm1ca+ berMduspcj0DxVgdhZGR3GySgmWb5ba95M4tcUScMCaxJCHZ33F+qqF5Bsua rToyzGwyTCzDdQzuz56bcsajKCS8ODCI7+PD8/LiXL/Gvnq5LDpRkpT5cs8F 2WcnZU7bZVOWKVjTms5c7JOSiGNxmsUDBE62iDPBCX4Or/YjFiA2A41dxDXg WICqloj8KZ3VQUfFnIiiwUcwND0IIsUgLaP+XVZA2uwUDg2HhkCBQIJI0/SY cqOaz1Xmw3O1EBYLaUVxHdRKyerd3QXG6gqyKrvAgRQA40LFYB+NPoRWMyV2 cM3VgWDYMKVMHR0Ua+hfB2VqweQoumeY0GMsQKSHAFpw2oE/bUAXASoAuoMk AAkKcgJoB3+DPnSxUJoWZgBXgYZIOPgI/kblZqQMoBrUDQwEhoZ9gAJAOGiE lEWxCH2EcsBdUFs4ELwFGgKFgKs4kVLkAwWQBNCI8zMKEEgIHhkRLWv0ZI9f CugGmRn/RqBWSBPQSFeYaUQt3tAiHKoB7ALt4G88xCOdgTPBcECHfmwYEIvF VWc8nk+bLbObLrWdJTWbIRunr9DTlZvbyCd/yHZ1KfLxKg2L4ofHFEbFes2Z e0fP2N/Y4j52BJhY3NMzvjJqzO3lzhmXrxT4+OZd90y5dDHH905hbHJpXGrL gcuy7WdlKw/Kp69tX7ZJ1H1zaY9AHIL/9PAAgX6eKEBQGBVRbl9jARoFMTZg rUGJBegq7Ny1oaWzgomkoYEA+agH6uxM4XYYOJQZrc4OlGAB1aZfhcPBEwr3 UvgWNxkOCiIC5RLV/M5FBGVc1B+NBXNxaoernABaIOVqJHyK/ynANVfP4TsX Fyh04uZD5+NjaXeU9kiEMPBYAG7X+NMGbMD0k8fFAjKBM0kmcqDoACaokFQ1 KgMBRKGJKBP5Uz5COfglQFnQM3DpgbgUfkQ98XNInkgCnDyjbni8g+GAIoHJ k9odAkMVnMDDFigHvwV8RN8yfjvTiFq8oUU4xXyNNsJ1InJmX1FZWVkTFS39 cJHCbGqHnbN03jappb1cV0duYZfqui3P+3pR4ANecHheWMT5mbN+Ga13Tt/4 bPcDtHjoG/8yQveUrt7djRsTzpzJuno1OzQqLzK+KDrxofuVl67nZRuOy2du qL/Xh+wQhPpHpyJhCvOocxSdJAkW7DiTiGhr+T7HAtrsfbByRGh0eBXnImQj kkZXA87JURBUB4thw5gMwTvgUYZJKybJXTaGhOArFwiNqw8kiqIVE5NDJ6Dc C1zj4KYh0B2OA9cc/hNCy8Ou5U9nkk2dslNN/rsCtFZH0X2uEQOPBUwbgQB7 MG0QwmeJkLQ1JqOYdIAKoGwGPRbA5Azs0KdYgLMijGUah9ASC3Dh+I2UcWFm jLJU6eWWKoooSLn4WHQ5yBbK7UwjavEGk3BY98FJnm4j6AlUHUhtqKKioqqq qjY5tWP6Yrntx7IV3z3acrpt2gLFOEO267aiOzdLH0QXRUQXRsZemj3nrK7B RcMJGo9LRqYX9E1+fW/UVXOLhGNH86LiBIlpJXGpVe6Xn7iel288Lpu/tTqp z3pChqEk2NXpdDTtV5G/RnrB+acfOSJ1DFq4EPLGIMYCmMKCVAnvRVwEzYFD w9tRsl2d2FdFPURE9CBI4WGcw9E5kEw5RPQ1SPeJOm6Usl7QGaDVzsEsQh+R KFH3pQRTLEDkD4wCQ6C1nsbavRYPdzM5JAStd+i+RcoAzaEn1QsorY7C5Wv8 fiEGHgvwHA4EmpBT2gEgVyCxMAoAzgFzZjTV740OgFKg2hRlAM+gPJLG27XE AjSJpZjZ+1gAc0TAKMiilFhASf7TVy5MntTiELgogJkcprhD1wRXXuOIWrzB JFxjUMZNg6skpojfS8BYAFYH9UGhcqslsmX7WlzOFu4+1zxlTrabi9DftyIm sSw2qSQ+6bbj/FBDswiWlYbD1CrceGKUuWXmcqe0vS7xly6UxCWJ2dyKtCyJ +6XHbuc6tvykmLez4YZfn3RDVIBOYDv8LSvrlaoTOI18FbEAVg/5WDF6sGKB ms9VVAkJUEmqKiGQLdWTf2wpBMMifqBcCr97KZPOw3wsT0IR0iUNz9LA8jFN Mr5Aw0ur6NCwTEOrKkwrevzCPQNHwQ+N5WOUsoMUDcMH+uLwG/E6NTq6fKtS DC8uwC9Ri6Mo8pkwKLGADqZ2xAwoYwAzJ3Ty0a4DuAtWH3BlYN0WZr+Zbn+l sUCkmiTDMgHuChFDLKB4g8mTWhyC8jD9jgUaR3wVsQDGHbo5vYdYLK7sBDh/ tn6XfOHOZy6nha4X8r/5Ofu7r8QBvtVxyeLEtLLk9MD5C9INzTlmNlks1dF5 kmlixZlgWeg4u8BtS8KFX3kRUVXZ+ZVpmVVsjoTNrfn+8iPXM9LNp+RLvpU6 bqrK6kMuS508UbEHvn5HJIwWCKLByxEhiuimiWpGjRdPBxgLkG7gBIrCAxZo VM+QMT4XoQ2u3t7q5RJlh0/nWBpWCnAmrMqTUDYpdc29vb2ZyJ+yowlPDUFb wL0U8qdXovF9SspaAHNdGLlU6fPuGR4c9DCtXFB0kjNFc7VM1fdISXDh+TqU L9LuKFH34hETeowF+LwRru7pOSI8Sxyg2oJCbxdhfIgoAmWYYT6BadsMPRZA 2seVgXkhes/exwIKlfUjR4QAHAX0gfVTjd1we9ElJk8yWYQWBRQl+5Qj0jii Fm/0O0cE12sDWRegh45hLGg9cEo+98uXX/xUu9uDd+Ay96hbdeDtuoTU6pQM UWpG5DynYgOLElObElNr1d82JSZWJcaTKqY6iF3WZXicSvb1zfa7X8fNrc/m 1Wdw67Jy6tjZdQc9Wveel244IlvqqrBb2b5sS2VOXi/V65aT6Zy8qTMqqh8y 3mGwasdw3wtsAYSGT1whL1GyHJB8ENGp58woDDHPG1FuHI8FaGlAKRMoNcG3 1FJ2+HQvZaLRUcYGJy54FW1hpVCculzLYqmdprpR6RMsEdQVAbEMiYZtSN3Z XmP5GEnGgbfg8ZcC/CtAkRoFMsqNuEzKVis8FiC1lZFRq6PQcFrCWY+xAAee lkG8DRrRBiERNtWnFBlROkjUSUeQvVH2mCl33ctYQN/pqvF2Fyx9JKLFApyp gFGwZ59iAZ5jpxRPKbVjijdEzJ5ksgiXT1kf9b52rHFELd4YSO1Ye2FIO/AX UCjfRFQmbP9og2z2RtmG4627z5fsu5B98kBt6L3mhJSGtKxqdlbcfKcKffOK CdbKw8Sqwmhi9SSb2nVL8391z/T3KwoNLwh9UBQU3MDJfZSd35yR08LNa8nI btlxom3Hz9L17rIF2+TT1ynMHF8sWCNJSu6NhvQJG/gBohMRVnWF/Xu5pxTu MFfvG1dtNcSTJygVA+elkFHxPaWwMyIi9WbFTmnKjywWEqLlzQbIOjwWiLCl Ac48cBMmRROU5Ee7H1FCu0sfHR2UckGhAdVfkDTkQ/QRv1FtV+coXaWK48eV G+9XrVLq0NkZsC5c7KBd/XCnq4hhn5LSLihBta1UpIpH6swPerACq0EjoLUY WsWoBaoWU5SFGxhCaS/4hwEU63QOvKRxCgGDiBZHodoKfZMqQv9yRLtUADcC Psc3GUKKhmEC368IaYGSw6ewCj537VEHuPtIhHEgvvMTjgjfcYGWNmiCCjdV QtaixAKNuyiZYgFdPgCSAE3GGRiGoYCe9pTSPanRIfiigKIk07ZPusJMI2rx xgD3lNKjTC9BeTddXVCYzGxmx/RVspWH2refqXHzyPvxUENEwO/xiY/Tsuqz suMXqGOB2GhSJcuybum80qO7Mm57C+KTHqamP4yNKwwJyw8KauTkNXF5j9jZ LTkFTzLznn5+4I/Ve+Qf75PN+Uxut1xuvURhvVDqML/c06tHDfFdJXBWCX/O +C+XQrngKr6zXeOzZvg+VZwHELGgeoTywa7uueuubAk2KUUjwkeZ0Eft+88R 50DFEKGhpQFlvkrJeCuZE5u64wfwFSofIzrF1zsiVR4JdxRav6D8STe7zp3r Zhe2J0ejf/AHQPDwQd9cRKmDoDiLlyG0vDuOog/KU+FVclRwxwfCTaYEFMr8 n8lRaB6CatN09foXC9AjV/Be9PARZSMNeo4JsiKaM0Ox+GRV1Jnkoe821KgD 5HNR9+UAPhzcKo8vasBHuG0JDATJTdT9WTN4if50FX3FAe+iyxdhD1vRTQaX mJ41QwYyeZLuEBhQ6M9ZUOS4YI+DaVRY44havMEkHELLs2Z4jaMf4QCPBVV8 wfN5S2WsqVK7RS8Xbm1fd+SRyy/5PxxsjPB/EhvXmpL+KJMbscCpYByLb2Ip mjND6PoF58bFvLAIcXxyfWp6fXJyXUxM2YOwvMDA+rSshoycxjROMze/NTPv 0X/2PV228/msTR32q6VWS2Rmc+TmMxQWs+QTpzVv/bqSncGkHn3vH+JAPp6I 6NxohN+r8R0UPeaIKBK6NOnM0jOqquqAFy5hHGHqD4G2A1EsEmGcSZ8SQ5bD hXfbHbR5M9QE3/QI8/l4igk3s2e78LEY7IJy8CHw58tgDgdpojEpRNeQqTMO ypdI4X96RKZ/lailm/J0J9MchYui/ANA6EcsGDj6JJbemak0MJCxNJY+B1G+ lm59dTKkcUpCpvf692a4fntjIIP2CBQOWj//smOC5Qsz+w6ruVIH5xeLdzSu OZh7dF9d6N3WqKjHcQlNySl+cx2TzCcWfrmae/7HnKAgUUx8dUKiKCauIjqm Njq66sGDsuBg7n2/h7GJDxPZkti0OnZOMzuvddOxp8572ud8/txmkdT8Q5mZ o3zCNIWxrcJ4svKJBoupTZ9uqggIFJWWUnRDczzUgnIUeKOW2iIFfYoFrwFd j9l2JqjRJWQ7npTQDsojGPTtoK8f9M02Gol3IKDUL1AOX13e7f5A3OvHny4W wDwMnuUelLH+XLEAf7Aa4q8QCyBKN2+VjjOWmlg+NTRvGm9TbzZbYr+Kt3Br 1hG3Kv+bDcGBDaGhteERwYvmp363I8v3ZnFQqCgiUhgeWRwWXhQaxgsOLggM LLp/n3f3Tuqtm+XBEcKY1LLI5MqkrMZk7vP1x54v2tFuvVxq+uFzm3mt67Y9 3n+08bRHw5Xr9ddvNnpcbtn//eNde+vOUn8yeNq2U0/1Dx/fx0LvxgSNsYCy Uec1A89aUKad+KXe8DksntKfwu7xnTmvFCAKwBoHRSvt2bM+yacko/B/Hhp3 Pb1O9Gkf0QA3h+Ni+xQLKO+gAEyIaBAVkZmQo4J24aIBsJ92+fhAgxgLXGhv cOq9/r1R+M2MBWI+v9Flp3S0XvtovWYd/VpdA/E408oJU/iWC7jzN7MPfyv0 vVJx20d8927F3bvsX37i3fIpuOdX6Ocn9A8QBgQU3L2bdutW0s2b4Ei/cSPj +vWYy5cKfe4JQuMFgTFVCRlNqdkvlu6S2q9qc97SePZKZRaXURVhOaUB/MxR zVHdRZV2oDTCMmVvuIUSC1AGA3DFUE0d4bvX1G/j6T5VVpYtOi/17y2pvXxn zmsG1GqwHA4rI/gBn4ODVylv23v96NM+osF6uXRfYwEaHZYs8as9xoIehQ8w FvR+oEGMBZRFgYh5G1X/8AbGgjqfuy8dZreN1qscz6qcZFNmaSOynsw3NM3V Mc4yskudtSZu6xf8O54lt31L/O6V3vcT+N8vDwoSx8RWZXCqc/Ml3LyatIyq 6LiywED2bd+YG54xntcjr1/NuOldFhYnikx6XF4lCY95OWXNHyu2iAXFg2V4 vwGJF88moULzEE4dXx3o9r4JgKn41/MOcBQphuqV40Pyzup+lA5fNQaXS+nQ YvJfwRsDsVFcUCD0uBS2YWPAvn25AYFlXK6wsFBUVCQqKChLSuKdv5D00epQ qwVBk6eyf/lRxMmqKytrEoubJNVNdfWPGpqaG1VHfcPj2vqW2rpHNbWNVTX1 5aLK0tIygaC8WNAkrnjyuLW5srJg9vJnJrNqb98fRMMJCP4sGPL/v4CAQDvK i4ryORx6Oyoll2Rnh9rM9dU3uG1sFD53Lm/95kK3E5n7T7L3Hc84cDz7yClw cA6dyHU7LNj1XdZ2t+RN38R/4Rqzcfcdp6UHpzlEzV+Yu3RNkdWcJvMZTwys qkPJf2FG8FcE/C8GhloLAoL+AIUD/9mOv777rzMjxwpt5sk2n355wKvu2C3h cW/hiZuiH33EP90S/ehddeTKHztPijYfzV13IH3992mrD+ev2ONtbLv5nbfL jFgS44l1hmaPdA0qfe8MtVkEBAQEBH1GcWrqiVEj3N9+98Jw/fYpzrLl+2Vb zj1zvfJ4v2fDYa8ad6+qIzcq3a/XHLjSvPlEw/rvK1YeKll7VLB8j8Dxy/Ip n0TomcWN1i0bZ1iuZ1Sto1d67MRQG0RAQEBA0EcIhYk//XT83Q8O/t/bybrj ZfYfyeZuki3fK/vsZ9n2Cy++vfJ07/W2vdceuV19vPvi75+ffLrm2O/Lv2te sf/h3M2Vk53LTGcUG1lmjtFLGT2mYIxe8Sjd4sXLROXUbUIEBAQEBG8yyoXC 7ISEI6N03P/x9gsTK/mkWbLJS2TT1ypmb1UsOSBf+4Ns028dm890bDn9cv0P L1cdaV+877mjS9usjU8sltRPW1ppO1swxpA7YnTsiFFxo3TYI3W5hsalmsoT BAQEBARvMtJDQjb+7e/JI0bJTSbKJ9gqTKfLbJ3anbf9sfXwi09c5bO2yRbv lS12kznt7nDc8Xzqhj+sVzw3mdN44ldxfoEIHIFBhavWJI8dF/De8Ij3R8Z+ MCrbq+e3DxEQEBAQvFG4fvDA4X/+U6GvrzAYL2dZtbl8I0lRvyJJXFLa6n5G YbtSPvU/8qmfdtiueG7u1G44/ffPvqII4cfExC9zvv7Ov/3+/X6E02KSJiIg ICD4E6FcKNxuZSkcMUqhp9f+oWNNVDS9T9s37grrJfJJ82TWTs+Mp7cbO1TH JWqUxr569byO7uVh71RpkkNAQEBA8GYiMynpxL/+pdDRa/n6G3H3Z7ERKvIL pbOXKV83ajb9hZHdkyWrRUIhk8CCpKRTxkaxM2aQpQEBAQHBnwW/bNvaNHJM ncdF7d3q7/grJtgpWA5SQ8um33p4ARqfw/nFwlx89drgqUlAQEBA8KrAZbOv vj+i6ezl3nT+Y8knCqOJcmOryti4HjsLcnKiXbZXcLMHrCMBAQEBwavF1W93 N+4/2svODVc9FcbWbVYOpTxeb/qX8HilJBYQEBAQvNnITE8XnPq19/3FZWUd 9rMfLVz66lQiICAgIHjNKC0o6Gt599mqTZyPh+z/jSIgICAg0Ij/B4IFulc= "], {{0, 0}, {516, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {516, 41}, PlotRange -> {{0, 516}, {0, 41}}]], "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, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.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}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 1148, 20, 111, "Section"], Cell[CellGroupData[{ Cell[1740, 46, 148, 2, 34, "Subsection"], Cell[1891, 50, 4146, 70, 109, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[6074, 125, 102, 1, 34, "Subsection"], Cell[6179, 128, 10022, 166, 109, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16238, 299, 152, 2, 34, "Subsection"], Cell[16393, 303, 13012, 215, 274, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[29442, 523, 227, 3, 34, "Subsection"], Cell[29672, 528, 19606, 323, 327, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[49315, 856, 374, 5, 34, "Subsection"], Cell[49692, 863, 9619, 159, 57, "Input"], Cell[CellGroupData[{ Cell[59336, 1026, 34144, 880, 19, "Input", CellOpen->False], Cell[93483, 1908, 32375, 611, 536, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature 3uTOISWp0Oem5AwMuqf7AwRT *)