(* 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[ 120272, 2385] NotebookOptionsPosition[ 102140, 2061] NotebookOutlinePosition[ 119605, 2360] CellTagsIndexPosition[ 119562, 2357] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Electrochemical adsorption reaction (EAR) Steady-state and Impedance\ \>", "Section", CellChangeTimes->{{3.403415856707246*^9, 3.4034159010519753`*^9}, { 3.403842695580738*^9, 3.403842698565597*^9}, {3.406459875106577*^9, 3.406459906072886*^9}, 3.406689909722328*^9, {3.4066943349019527`*^9, 3.40669433984967*^9}, {3.4067217324958153`*^9, 3.406721754220429*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell["Reaction", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJydV0tuE0EQ7Xgc2xObKIlRICAjL1ghFshbpEhIYFZZEiyBRIxBihcIFLLK EXKE3CA3yC7LnCAnyAlyAtOvut64ZtQzHjLS/Lqr3qtf10wfTE+Pf/6ans5n 0+HHk+mf4/ns73D8+8QPJWvOuWt/vhk6PC/8o16u3WKxwOTK25HcEndxcQFN d3Nz477mpzAkqP5Npz7JbVO0RqORTI/HY3d3dyczeMaBudvbWxkjzNXVlaIc KsH9/X3G3dCxy8tLGQNiGGu6s7MzNxgMyPQloHyWW0tmzs/P5Y02TCaT73mp +XwuksCFZcqbk1rP2MEIHPgxy4sAgEZDHMAqMjEWIUJ4AxfQvK9TK9UWRW9n ZjeigTFoHFnODeEBKA6oMNxwmynw6kONIabJ/zYgjUy6SXhgxuAN3voRuZd5 CMSkCAHbmYN+RE4hNjWGQKc/EFsmuyVQ8JEHfPPQTyKoXVWBONgRZ5yIood8 /XA2TvuaFVWgYkSZGjKQkEimehEDe8YCqNJA6IQwuS1V0xRqxS+hwI63pxX+ 4+Bqwwl4j5eadcx87uoYwkWVtKYJSSEorBml5wpW9tKgiNUNxC7RWYSRxNv5 sMBu8C35k2z5woe9FWXBMYbFHzF3d43tVEtrmtCppnsUsXCj0GEhmhgTmJlC MFis1hK2AECVBqMhqE1xAwrIng962+AiB5gmBlsb5jo1+TsVXFVhwJLghyas c/U8ETpt6H7N4ppk69g2G9BjDGeiV8rZMSYyrMuQODZ9ymu7bhuLefTkmmTt xI6x5kN3r2d+p54JD/GuWUhQ6Fjhqp9jW2Pbajcssc2fJQqYZ6WLLcm+eagR dgKLs25qCEZgbs/I8euR1rAjrcnZjdhbXHpYarZzsZZ38mGxpY+TJQv18rC0 ZIxNhm54XXrA773tQSpirK2mT6upYgvPdkhS4UTwfLnqp2lHE2e/cvwNe15R CpCFTlZxqZlg2dFbvNPqbgXhRhl4zD9+d1EsEOYJooJz4OcPEA48x5x7VyE/ iMjrH09f1yIiDQu028cYXikDcsp/Q9ZHCcxK4mVvhSbbCf9scTa1dQC1mEi7 lmgdpJlD3PEe43oRwejX5G/nXbCh3pexrf/agMAca7J/j0F/CKyPTUxZmPum ebFBlG9Y4imM4b4PlIe6HEt2MrO8VMlOJicV38n8yIvEdjIqYvdWkZ1MbtdU vZOZWs7aO5lvQav+djZ6c2v/AH4xaW4=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{191, 48}, ImageMargins->{{277, 0}, {0, 4}}]], "Input", CellChangeTimes->{{3.40678266838484*^9, 3.406782678804089*^9}, { 3.4086873432603493`*^9, 3.4086873650543833`*^9}, {3.408687464531475*^9, 3.4086874739123173`*^9}, {3.4086875109576883`*^9, 3.408687512676839*^9}, { 3.408687548285322*^9, 3.408687548285801*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, { 3.406460288938157*^9, 3.4064602946306343`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzNnDuPJcUVxy/30TP3zszO7MwAu4ZFYMuWwJIDLH8Da5FsLCGZgMj2Clli A4SFicicEtqB7ZVsYWcbkhGR8gn4BHwCQiLcp+v8qv9Vfbpv31mMaM3jdnVV nfejqk7f3zz44J0/vvvgg4dvP3jxtfcf/Omdh2//+cX7773fNq2eWiyWv1os Fr94cWGfv2k/+p9v2p/053X7Y83fRcPX3b/V4sMPP1x8/vnn3d0Pvc3urd3u futtX3311eKtt97q/v806Pezqp/dNcHY62Dsmwml/3b/1ovHjx933e23/Xyn a94svvjii8XDhw+7Zvtv96/4kFdffXXB9eWXXx5Z83Lx6NGjbTzn2rGwcffu 3Vt8+umni9t50EZ4Yzjb3blPZHjbdf/+fXt2x7u2o7pmG3Lbu7aIZKRaQMfe 1VCA47eFG3YZXWsfbjjZ5Zy7GKBnNFmnxJ7hoJZBL3hXw9bQ6buWeDydJ18F tJ9NCWbAkpeSNP/jKgAXbDL7dRE967iYBCDC/ts9+mUXGKJLNp1JzKY6ngax EuaastgFw62bTWND1zK1ydHuLgIU7lTCsrvLoO1I5IMpXAXzAdfI/uijjzqW XwT4qTq6Eec2GwucFwQudKwDXJ4JYCwDHpxOsxcyTWKgdSsg0/Xh7z6nzY65 qlraZ7eUTloOddmBXGUEeuGc5K4MxysYoapTdp+UYZcNFcLpY/dibZeu+Nbd HqGmJgOwtB5Qwn1COQEEncQS+7vNcoZhxiTrbW3W3+SUxjeLzz77bMD39j+i N7RKVVrXzO1mWlpP9MDgGA52pzK3y9o3wqYZUlqKvI09hs+lTzEmHUzFSGo/ N+4ID+G0ukudGiqtzTiZ1CT9xQLggP23frBQSYDF9hn4N2KxetPaPeCSjA9X btQ12w0hkLF+JTKbglCi7LIb3WQzZpw9a9uWbtUYBpeHg40/VipEQRrX41pv DRgc/eSTTxZjptuIwmADjRMDRsxp98kW1plZLqFLH2K062VDd0mc/xC24Y5Q V4b1nm+dobvzgOuaWWy6v6UjXrp6OXezKhlY1LLOWtaCGk4Z1PBPfXA5yVoB E22MoW5zedDtnls/xAuz7M7I9Zi58scewjMZ9jjbc89X9KcXxSrPquFFqd9U jLe5sAPTKMCqMOCC9qvzlXmC7HE3bhtXNMTPk+bxqDStb8uqjhUbD+yHSAeX ryaB40vG0psH9O88cEoI6FowCYIldBvMjN6qGPZtiMbQp9+xoIsf1WylZrWm CqsAF1zjMHKWLEFMeBzmhAU2tmUrUofDvbNpCtLs1zUO/+b2UMRpZfaYQUT+ LZIEFKihffzxx7XiztXbdSAI94P/dLyMIhw6IbnF/64/Nh4RTUCyRWAn7FI6 baZ2xivBr045yar67Ksp8MO22qmnHrf3qCMab5BORG2NYT3zjzps4I7RgSB7 TMqE/fSJWLSdyYNlAFm9tbpj73PqQzQD15QLInfepinh5obMIIU3SiHn2me0 uWAQc61lDuBEpK4cH1aotRur8y6srQnm2goPoDfiy6m01dYIT3X1owp2J4BR mZTpHesIIeOuqwBNHhzOhIkkGjbaGH3l05MA8xwmECccuRuak0Fqxbes8DMy WvxQItNDnCoWhUtC8FicUT5lUYdx6OQwLiwdOQUMghjUuNGtMlH2m7aQNkU0 YWNINYvgDrOGic/hzMLiyHvV4ljhYCn9Gq0poqk4jbWjoWxQQzM0NEzVeVtk aK45A0ODHbq3xTWVXxlrgau4uSo+u8/2+iyPFMCYcSaeeAqLlc8B9UaZgTGs iCswO2Hd0pVM9KRrJHGwTqRu6sfIX9S9Q66keyu3FXXbOi3pDhbpqddOUERQ TcUWD12u1b1gSYNO/89sTIpzdRC3RIcLc2dM7aV7Oo6KdE49u8Hv+LU01A/l EpZp/bG2ufntegSW/ceCDTvNqpwyNXBDBcfgWyMYL0vK2njBfuvGVquT3rcY REGy8aFsgBCsDVnRRMz+idPTTRYaywsj7Dl/hpNlLW0YnPrExkJWWi3IE8Go JGaTddH3xjsM02bJrgMPFdbOZwOH9Nox0XqXMAR2NhwQsHvrKLDix3f2+zs9 B1CIhF5atiE6TMLGnt2Qc7sD2QG+5LG0CTvUYgn9elgASW0fOIFJMavRub4h J275OLRVuXvl0lEuWQuGo6tu61PvxyhppLD1spMziX7/ZZMtxn59sZQdpj6D hhPRIjbB9ITG2iNLPfK/uiFXa99EOH3k0tKAjDK0aN71kWDZO8V11mVfNSFY DnHsYi/3OZmmzHDKvVrSTV2I6TqhZ/Aq7zra3dnhVLwUTPO86EEZWA9H6dzb SCJ7kuO5bJzJhtydnSPk7HPreQ4oonI2paqGDanzX90oQxIyfT5D0nl+vE99 jvIOJ0N095OFlIZtuMNiULmowSQB7bcfKsVCr/Qk69rVE11zARAgFVPSM126 yvnirRsS95LwnDh0T4jzTcTFDVDyQ2B7UqrW5ehcSe2Lnb1lv3oqsVRHiLRZ LeLEnAtLmzI923Z9dftCMzGyNzRL84If+dwEA4eZfKGnBru8fY1bJwSg724q zwgAkOc4VT3pTkQBIlg+hwB2d1X5uSoFUKwSgE3OGLAom+7Wk1NBXYZ1rX2V Pbeh9nsoareFQuZoKbwMpmGvk/M/Q0N3cAmHywBVNIjkwZf2y27QebHNiiHL XjuZXZaBUvCacIt53DV9LVREBS7o65uCMQ73laDfz0VFQHcZjL0ahfEdVfZ8 vxv+KkpT1wRpLRIRQh3hy8HYB2nuv4ivQxEI+5qJoseqdL8Oxv47cBxX2Xce y8zoQ19zpNqDM/lDiaae/N2RNo4dVLHQ+deDsf+qSFQFVOe7FQ5DdlPBtf6v CNko7+8T6juZogzPm2Lr2377KoZtXkHhbslc6G/tHFkbCkRX/GTLjpUD0xBz JJiWx0JNzqFlCuuzTI6sBbj0CcmKqgcHIUI2VVV7yXKqfMbqMj07KXCAR3Ut RM9Taz3T+pg8J4tg0MUfIS+tcuJad3+3OTCw0aTul7QLWmp8UyToQ43h0fff w+NvPAACtAWoOlXzlCq3ivaVFwmoWLoMx/A/HmimXaJ9rHnnCEJ0R7OzXrOc FaUCJKYjCIjQPLc75EpdFfTSl41KQZ2jTYNu8tEw+0/O7o4APcG0MWnc8FRz 5Sgr97oCu6Q+8D0AU6n7uubyskfjpMjw7bL5Aiss1Gu4IVmyBnXSTR3n+KJ2 CC8MjAr9BJspKsecm+rTbM+k2xyJrLNipTyzjC07fq070/Mf4mI+FiprlWhj Z8FAaE0Tq9iUZ8+uriO461GThxk28LQOhmUG3IUJum9OfzDmWX/yustyrysy iKium0Q6FqdGJCgQLIPd/KzaRATA2V35bDYqRw5Wz2TQORx8OfXzIVhQjepU cPJ6VKXbBfZcz5CQuS8rG09iVO15TEqi1PK5flajy3alb2Gu9jL1vHimC/J6 7y+a48gFoyggWD4LF9N2ZFPITlQuYXTrYFl4fw6G6pPNMSIKURzvg0pd3rBg 4Xw2RDU9zJK61bquzJNJtczStTWFtQrWK8cqgrZPf0hhl+49AbvP8rTPkSud zjvfyp8exU1LP4E5RePQmZ0UdMzzSFGdVpPNHJE4Tnh59cN66F2Wih0Xm1Ea qHwZTAYB1RY8usDXBwKIXbvP0ySWsvQ6vM2tpGQfSHd2JwLOSgwJlxjIsmZr v4u5zm0uSq2SAQpdIcqhwXk2L1O20/OpHm4Xmxyz9HIWchya0UYw7Fen0+5J n7mZIVjtVhdFIoUzYW190EYypTkNc9bWEXkFtZSU8e7j2NSz0t0G/aLIYqCN o1oq4lxiEUuI0Fnz43EfX/A6qpDaToqNz9t5YNTWytr0H8wOJZrP1DzihIVD +qBN/RhGOAghmxDK0n3DGJERBoq9m88m4HVtPofp1DhKNXojDDzAM6lnHriR +IUlRYIIPlIgelJJh8fuTlR/8N+6PiYvlVChwPEoOCe7zKSIi3DMpt9MI3oZ 0Pu78QiBLdE2lVpGrKyF4fPwuoOJk6C/WGRr1Dd1tF57jijnRYRpPI68N6O9 LGxOulrn1V0emoDYJfVABN868iBQoywXEsQRgnsbyjkgyOyLEONc+k4jBLsE WhxVON1NGCFWAcRDWf+9ixAc5ePoah5xYqS7K9JWRwjAVREigrLPHUcYKPaF OW2yOWmXJ1tjjPN/NnXTjunbiRJU9kS1z2MhIvNu6H21Bq9+1W4I9riodMAv SLXX0QR2e+PCOmPmQ9l21uqNQEjjzD/LbWy/aLYsu0P5zeG+Tv48Y0PJtRY6 6Vz2P14nXnef68xcDZPzh5m4IX0esVrri6svQ1+gKGA2YwWljmIdPOxO32Tw zdooeKiO8v4ZjExY3h3FSlfEFDMow/Yxc2jYu0G/2sgNTosnb+zWXh71Y3/V 5YNL0YUQs6/cL9+E9xxBYY4RpQovR/DjUXAFxmXNZR1BJqB0n7ViT4t5lVFU /wVticfldp4SqXYYgNqnPREWKpcxU6OP8p5q0vFwcn6wRupn4knE0XGX1u/N znFDNS64e93TXUtbUadPOKmL6meEEz2O0HCCnFhueJ1M3sgCFPemDs0YfhRx Ru9CKvOLIHNR4KvunLkJZ3o0DN75XOmiOC5TVkevKTMFJLZtjWuyQdMKWP2K gGiqWpvAFo+Ci0ar+iOX3VzU1s4oBaPfIRAwZYBC3qUeVkf3B6yplKuerq7s bu/Hg0x59iaFdCNIFXxNdVPP5f1Brile4lkiBkBdpD2cbdaV2czRF3qsC33o Ev90jjys8zgeaKGWd2Vu3AplAKUccytGfmS07DqULy3xVTGTUl9nz+qxpi7N FyCLBKUpoKAIbZ+60CidnKY2fIQWJA3fkjotzqtrWkXzS5C7Yrk4pkwt+ITN +eBknGiiNsdhSc39xKDrbHRzjGyfbubCgnXx3mrA016lbueuqslj3igSp2FC TZGOx2DD90yaIinZE2X0hSAWgmUWXO6D0Z9Myy5kQX/9up4mxpTXPaK6/OiN qr3n8P1bfr1hrYqvUonyAK3ns0tfznwsX1gUve57N2i7DuDqlywx3y9n4vdG 0O/uDDrsTr9UirZtMB/vYeh7AuhX9TZFfeBjl1ZGqb71df7NYBnlCoVma0FZ 9NbC9aHY9KcxU/oFlgP9OprMa7YyHHuc0i18oloInisd18/TLa2jxkOdTeCi W7H6DVhw9eWg3zZoO51J7xtBP16pJhf1nXN9NQryIEvfAdUI1n+JTlOAkLH6 LX71i5H6TgdeRGtMybBUFwlNXkQrKqdVrM8EEKJ0Wt8kgWcTVazUXGk6Xb8D azzgKwCrYEnuoFPKV3dosLkbtOnigyB2KVjWylHW/SXM9fz+J8HYbdB2EVD4 rpPCcbxdLbN5vSrK/topTwMKLoI2lEbfDYi+jPDEn+jLGPabjp5TCqD6ikx5 KUBdrc6LmzDYjPe67G6ivwl+dTW/vkWgIQBuamk6cz+Qub/tWvrFU/8D5M1J Qg==\ \>"], "Graphics", ImageSize->{586, 53}, ImageMargins->0]], "Input", CellChangeTimes->{{3.406782695243258*^9, 3.4067827026943293`*^9}, { 3.408687485732809*^9, 3.4086875380327473`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Steady-state", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.4060057621201487`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzVWs2OVEUUvvTt7vljZpjRGTEIArogRhIYmYguUBaA+E+ABDQsJggyJkaD 6GISX4C1oiGauOUNeAOie56AJ2Cnq7a+qvNVf3Vv3dvdI5BYCcPt+jn/59Sp OvXRxq0b177euLV5dWP/mZsb397YvPrd/tPf3HRd5Y6i2PF3URRX9hf4HrhP ++PbP/hjP/4v31f8d3ewubkJTgaXLl0aPH78eLfvLgdbW1v46X/9WFtWDh48 eDAw/osXre/hw4eDu3fv1tZ85r97g9OnT3t0gGvri+f92LRfh3H8MxiDR48e eRy3b9+esWkYRjcbpq6trflpbqwDNhwle/fu9V0OU3GjRsmUHwMFDnIiANfn RBK4wW+quef/hj5rRcf/nYmUs5EDcAkpOnId4UOpgTaH1/0KfZgHPPfu3Yt9 7jtK8suMJEHz/fv3vSgoyef8WD+RIBp4dH1zBhpLoSgnNWN1yksQ/WwYR3N9 ifgumxaAFiRyDRWFda5vyShBl1KCb9c3a0yAcQoORDqGTABTXnAQFBsFX1Xo ZeMK6ymIjggR8B2sCZU6knT8BHgyH6wujKHfzNGDdmwUX2VIBvsQoJtXrI6D NqgWuuI/SMih75haxJLiaqrS/a+GdNMggsAqQtc3YzRiNVQxFE3p7Q7i1j4Q M5wHJZWqtuK6oP5c1hilFgX6WV9yc0gOUEDL4VdYAjDaMMf1qXe1UQEOLaAU K/5vtxqLZm2qEBaxAxtFDGYs8JRmEbSDKvYJgjXjNLBoAEX7NZ0CzWAKRGTa 4JRFo9c8lD7gReP6yI7FCj+FMdQbWPAUyhohLfTNJPIHdHoY+hlnwtzpuGlw nFIzs+97KoZ7AUCRWE53Yx3vUl2/kpHHu72bEzAFu4YI8D/+WbDsmONTOoI8 xl7ZYoIi7gQRLtg41YxwFex/PvqyeBt3x0iiGW4MUwHfLt1JfQMswKdbigXn 4NAFsQRdMLye71ukN0fQFk7iN4RKW8I83U46ZlREiXHHOrsZnFuoYB8Zwqbn 1/wSWJm3cQoLSghxOt0bUop6LcLs14RpHPdalpJMjoGMMH8m0YOs8d82ZiQv 1FALvJgZQYi05IrkFD2FjCVAA0lQT3dS4cGSmen0ZFkNw7bkFvKpkHZR4y02 KENjizDEB6DpxhwiATubmCC+sUy9rYUKShJC56ZNaiqSJPSBT0Dw96VGnSoj AGn7Ya0PDkWXoFjVl1VTbl6zHPdEf2VDRCNpQEWwEApQSpId0VO+HEez9CWx iqrg2RguuVbt8udUmnW7XGE2HHWIxuSd+zDHLHHL9pFNZE7BdGY8GYRFcVj2 QDwFtzHCCKYxiBkdNwuzBBPDzgQes261Q/TTAhy+sPn3m9gNVHT9MAXqkYUD gGx2Qbk/pYKtR8v0MLbP+pgIDLwX1uetZuZ5fL8FfM3bXRlzETDysvVJspnF t+z/hhSDSkHTJPX3gDokK1O1ZAXfECh0+ZqhEAHbCahUfQSW/ghw/fezPGOf NeMiI5KNxCOh+LRLBkIfmcbJ5bjvC9kO17vv5uXduM2be64JRSf891L13BzP 1MQMjYvreLNH4xEDGeCUkSAB0lx9fiL4jDqHt7HW1B8PHUabh9RvpG92XBy5 gKzifMfGKRZ1Egm+8VjJVJSitECck2R/ItDd2Gdx//UJKaMfYb4o+b9QVspa MI0+Fd67Bk0Oj75ZqOV5us15lKypccB1eSQnuMPtq7q2CvQLAdvG34vOCZYw FZ50NCMV3oDoxugscqdhHnWRUbaDOfZMsLxV42t4PYIlllYWS43izM9ff4Kw 3s7QKJZNzbfCzc1ff4KwlMaTYmZMOugibu1iBvR0+5JjTxzicaH3kC3ngR55 y6pxTD2w8coUkYL5hyZr02Oso2tC1xZqizlbTd/TdJz5loOx8hTJerMqko5d OsgtpyUws55u7k52Q+Mn0H4x5oCuTjadsVxuek0yw1wVjTHc/V55qgSti0wO GnFQCQhE6qM3Muw7JfJnatlvXNuLN+4S9ovva3i7yVHKred+xgsxgOxZ36ig uG7zIAVecPbzaLgpMQUxx++PiekLYeSA4eH5QDdy13eufZj88uoNKfYPGehc Qg8ycb+A7yMYmW2fqHdCPMWsxMW6Dx40BfKem1cniNk8X4ySz4kWGDQucFzN GCeR+0FbydtGNBHyufbhrQwkTcXCsPfFc+3DCukV/OkMq0zRU44K05aEhANj bvIxk54mYHbtUpwUbK8aULCIcej0DevTxHlfZh53ST1jWPRIcHzsv7eVtzP1 /MD37ZroeMETP8lyIlCqPjE04+boejBzoD6caPloRXxqFtKQgV5oHz6bgdSQ 111oH65DyqdeF1vG3s/AyKVGF1vGFAa9pyFjudA+/F4NUvtuf36MOWdqHI69 cU44/ZRgsusJHg+5v+HuyY//pePd6ACsDqD9GabMixEAofpU3FH68f6IdoIW iziL0dNYrAUi2XQ5PVcPSiqSrD76EN4JW02owdF/wWLAuhwJ0XoXjZnzmWFw B8sUt0JGsDPe01MPULNOV93EG8Bh5YcQyWsbKJbVWMxKql6sy6u84/D0KFkz SinjUvwTbZgcy3h/Pbxd7Va5yuoCiMSZoi2xbMcGWB4Ghpejelhua6phqdro C6x0u/812eFmV+3DdVJIB/bwyi1SxZS9So5WCzT/ofq5a7OEm6ny2ZXuAa8X ZY2VeK0mALde5SvbSksbrFyVsa0MUOVZ8IbpS43SJ2oVQ5VU05ChnkseszSx Z+pJapDNRlZGtxqqfSaBXT0hpoW+6VgO0AoLReMjW5jWVNc1lsK03dHZLR1r LBdWqUIbQzo8ZurpXS9G+cqo2SfmdF6jEpjMlxk4oyqkTewldtXLyT2aaNWG quQlulmIam3jqEkR59WaZpP6GJoUvupMLLDkqXUmj4Uv0ZgxjGlUjPZWL+cL iqZKaULMTCxTksWMKOIFMRVKwi1R0ydkTJzQCDbsHePbkcGJ9qhwOva4QavR bY8DmD+Xxq6OUXhMhlnOqubfg+gHvWz1fxKLatKKWdSCobFdO0aFYWxbrrHQ VPlVdWjl2L47pjUtIov0jWs3uWcG1VQxrhiU5rsM9ZVrpaTikKmNB4M6FDc3 CokJoS7h5Y76WqWk7r9zsHghlCvNN9XNhWO1KSyF1LivUgIm7LFtKt38FpLH eU2sNSkmiVLT1c0nxlBTelnJEKsVb9NnaSkKZWFEl1aDVx/WnJa/Ychd076W M5n1VQhhjlAlxLFZWq5Jeq0gzTSTAgliHyLUs5Il1qW9cJH03E+pvCGgwzRA qT1FaHsiAJMIDMwn8PjoDvCqvJM8VIuUecHDt2i5l9RtLyPCs4MgOL3V9n8r qZMUGaMFV99rIuIuZyyeRQ99cMDLembL+HU0M28+M88jtIe1DJ08HRlfSUTX BwqkJUdf7iGDyuVIZt6CGZmeXdD0scP1lFSN8rb52wPU9FHDdRFH8qjhWoDn v0c8Rih2/AscHuPu\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{504, 93}, ImageMargins->0]], "Input", CellChangeTimes->{{3.406782722409811*^9, 3.4067827284980783`*^9}, { 3.408687532614913*^9, 3.4086875326154213`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXUvMJcdVbv/3+T/nie0k84/HcWwgxMEY2+ElcLCZhGBjBSnKrAJDMHhI QkLIygbJO4TXQGAWLEACZsFTQhgToiQgjWDNCEIIQjFSYIXMIkhIcOlTdb7q r6pPVVffe/9hhNLS/997u6vOq05VnTrnVPWzVz/1wvMfu/qpax++euk9n7z6 iReuffjnLl3++CfbW5O7mmbnA01z1/2XGvm+ahr8664Pyj++8/Ub+Ru/5b5P Vq+88srqjTfecL+mek9+y335dYPq/CbVuX79uvs1l/878pNL/qL7vru6cePG 6sqVK+7v+PjYfcqF+y2k5sCVXayuXbsmLeruK0Wrmzdvrh599NEWksfcfl/d unXL/fodwvcxeq5Xc7f7v796/fXXHVzAlO8CV37j/quvvirl2tIejjxX5Wp2 9N6LL74YuF7qPfkt91N6rrrvM/dMNdX9tXy3nPq6pLxeim154V3qyJ/Io+VV W2XmZHb58uUgzxa30rbM8iiyar/PErbapmirtkBaxNIsck9AQOTt74lilcdy C5dU2hH62qpKYXgm5dryv0uC+HFDoBCeJQBpQGkMubSBlJRJEEB7XxmfOfTa AO5q6ypniyAEuURlpa6wIw0NmNKAuOdh7rF6R0opsEjQOxUkk2Cb315DLF5X po5NIUVIbf8AXn5CJXFPiqb3SBIBjUhNSO+kOQ3dU8mC5jOVkzJFjGmIYQw3 ghXD+UzFB0oYpWquQ9vCYZRgGCBFVVB9h8qBND+eHDg0oha4UA/NDC6V7Okw JbXM51t7FvVkaaK2XuACaBmGcK/UhhEMI0UnwG4EkaZXDsPoUsKZ0+J36/Oh OeSekfxD6hgFOxX1uEQGcg+4pDzkfqgwwIt8Cj8yYmHkpTEtjKAGTlffGNOe JFL602Ats0ckKCFQpkIwJMMJGvlQ4TNR0hja9+daxZqdhEBrdvo+IlFnzFCH Z9jznimZgK2GmvDI25zSe0Ib+EHHwEDR8bNwyqgK4i6dqtwIjvlK7pUItJga mqa/geSODnJBaZJyPMWiHWR2OCT+4jl0wnOop91pwiJ8Y9PosUQ/cnA2mIA/ SO1fa9s9TqKKJ8RFNCHKRZNgM3YWxL2hQf+/iLYnqGnjKWvGdSDSMExXzFFn 5P/7Vy+//DIPbO8i4Mn0UJwUK+YFB2eXcH2HFuoP2J2udffqB+paQT+s5aQ/ gki2F3VKbL7QaxB7kIWirTHIfo9W5eEPQw0MMPn1+R4p2eERUhgaHh/XJ5hK 1c4M3GmXQFUMcqKJfWrKgxsaa2hwA2dsxsolsFtu90gwaKPP9UgZHq8cOcl4 9U5q/8G6BonSGC0Y7qPpqoYNcLQ1k19rW3wrwSkZ8tywIFXHrJohjKdKJvMl 0q/S0KQSMo1RWN+Z4YoHGkb984TGHqTmjiSSMNAOjFc5jL+gz/tD1dwRD9sS sg0gy6NWWbZlU041jeRYNh9z6vaSsjFgZcFvIb/gkxCurQ7oQdYZOmBNtHdo jHmJng8aIipe0Dw0mv4S8Vk7GbjrDvBonfiN97uPqWsUOHTgNXGXV7LmR9yH Me1zIQzfaEVvt/ghR9c3zvDecffOuHKiOZjOaaYIY1/qPZPWwurYm5QCaxFW uQxPPmVc9uQdhGfyh0EJDBt0wOSCbFSZd7wbof3l+ZiHsQWFvDRUge9xnYlN zRLLGIbgowE4+HowBmgfblJiloEZUM3Cc/OX9K3Ym+D+/52n2nsuO7njEhA8 z0ARYEiAQSxBhGDt6YFpjBgwoxLXjLbT+QATuGQCg/5gAMMz6FqBFt/ZZ9GM HqMsPTvCwBZAYgLKsS6/209oHWZpAh2KAy3GrgQrvHOChRUcRgALWECg5/49 t+WE25JMIz8IBjxKZjBI+i6oeVSW2OGJCHMsDACA0Wc8SxPW3Y2aaNkz1jB6 KHjQz63Vo38ZdVQDG7NEtPPiAAJz1b7ErXAQ9SjYNtJ46P4JWD96TIOHV/0P kIaoAFQiNsTmkZZBGonsh5sE0y/wd3qwvWaC4yvDsj5CR2K2YIBoX8s31154 hJkDHQYSVOGCXymC5YorxwPjtGvwM70eCvygCcMWGphNybjJ9gJvUkcIkzoM U1eTO85yOnCPErO+RMqMVDCRUjSgc7922FZhKOJBDk2WY1yHJl/9giMU7Sb8 Q/lhNCZRmogiKcNjLstR5IQOBXmhcaMR8NDsewBNzRHut2VUG5eR5ZFOqmQE kAPaUaKz9I7Ac8apGiC4YNHzbJ+QAJUEBaswrp4JlEhRRiughENoN1ZSGCtQ ry3XeFtg1jNOOu4nbDp4G1v1AboAFgQHNDJDD3Q9NdG4Q6agvsjtuBe1I4TF E58KEX5NMli8VyyxYL9J7/Hi0HPGaOemMRT6RwwSc67IFMOIhRq2Mo3jzVsG yMnb17Og1aQXzSUtz/c4lgJ/w5sTuKIVDth/eLyB7ztt9eK+e+qnwSOjC/8P 2bd/zN22/Tc/a0CFA0VH2Q/ZtwHVcrcwVG5hneWaHzXuXVU0ifvEAiUNpnoe QPE9gOIO2d5XUP+mNYYWxw8RFLnU3/HOyuoP2tUhNp6W4Un5hCfwXxXakP8U GFBOnR4PV1Z/m10dBFruFyXwqwqNPKqmu+O7SVSqIiGIOFT3u/SeoIfjUN0y X9FHWDh2GRQTeFXdL3h22LUKkuBJW60QytoPtjzP7ViQ8owo84jltv1Ovceh +yOiS8s2f+DZ+CIpDYYgmINJNgcWL2qUuktdZsGWTTq95ZhlmWKwzeeU2D5i zPlyoY7zEHRyjR15VZQheoLhWKKO8yxly162C0wy7Um/7yX8D4QpdirPI6cy eRnAB41qgY9kALR8yrW5EN+i5QQc1GeepXa3F7pTa5UTsgI9J0z6N2s5AaXK EIaXoagjr7eE5Fklzt/wlb9E+pvz0sNrJN5ly1hh1jH1WA7zp7O4lpFdBP2B 5rZStuKFtWifyqJdRNa8PJNPnUaa3/MS+keSRhpMmBfI4tnTIuus/H9I4quH BQzcs5XIyLeyFtYHO6z72UQfYCQl87Wfk9rP+NtfVhQc94Dm6sBB5PVmbivO Udtp3mWg5jCYLjfDvRMm5wmDHHQkmpjD4F8LN+qn9REfcJhYIlaw5+kC6BmV T8Pna6J7qoCOM/WQBPsOvcfhTthjHO58jgW1cbjq6TKYvUowT5XBPEK8QZQu bOusk4ij7UTLvANuGbkNABMdvm2II22j1Lsgy5uaLKXdDcjh8UfKtb9h8ZGD Q63AMhlvTVpJ1AkqSR6N0Be53+8bIlB3XFhhw5oV65VNBazYn+UG3F5YElJj aWmadpgTqBF5NSmfMoXUpmztbkBSaqEEkuIZ6aiSFO+G2LWS0yOfLmfacG6L b9C5tbgWGDxr6WV6XHhIQ4qMtnPtKtglDzYHIdKDNTU7R2khBks8bwOdDp0F 0z+MePQYDv2wY0w+WzT3jaQcJheWcol/OSQGD1J+NIpycm+/Y6QMdViwTKKZ spb6oGupgpMeaNWBbG1m8Kj2asGzsS0YbiapIQioqP45EF7Nd8OYhQtxCxGE fPcRbb9igFsc5LDZhC7C+VnkYu+llvBU8aRqZxowo6RX0BLGYzQYGbLjSJmG FZxK1hsLZwYlIleyGSLd5BD0p5/nuZ6kMKPkN37Us81Sa+FaKabP9BRlEQWW 5cIEKqBBAnvAZ0qc2myhnjbge/VxKm1FsxgP8bERhEJWXiKxrFZh1MmiOm00 w6JcZY+qgCFLzEStu0+OnkA9pjMWCtI0OELTaivEnApFEyYW4yE+VkEoOyUg H2tInZRRIboxtPYZADMkesRdEPeGw0wtANhHGAcQVBQD5AcTYSBYSIGlplT/ iQLqVnip+dUxa4NjQyTWS7v8PpW3+j5vLOROSkuTaLsIJiA1F5r3aX0py8Y3 JiUxqkv1nyjgFxFJGciony1twyzJyCoP7clNpByCQxvxVhvcwy4UzaxwdTHE t3jfq1WI1WjfZCWYxwrUkFkUAods+U7KoLE9hQW3LFex8sQt2fEQnW5T6phe RPF8ueAIlXrvGWgHLNhqYH17gS5aPTVMP+BPKuBjLcO7f5YV9XjxkSweXVks RtnaRT/ZcYH2CWcFaP/fw3IvmDAogzFDbfenlVCsf8mKCJ9t1cNxUB+pIJrz B53Qd7pUnWpEd48rPg14niMR/y2pVIWbKTQjgsgfcR92CqwP7jUfVXA8X/Fz jJi8OtC5KjisjcRUB6JLiD0dxgPUlwsjFmeKWhmkIRVlzwTDebOKFsXRlLwZ myIHeOazRQ6i5FJALzDnsUxTojZNrvW5KHf3UmpSsciVS6zNMWzQMTqv1vcV 7wzp5dr6eFQ05MebwO939xCkyuXCqih6Bh/UBhM08nRyCasZONH+XPUj6b37 ovJpfegaYCNbDXRw+TX4Cxvr8zQPP8O6XzMAG59Ztygl9IY8cjbdS3zf5ETE s6Ho2IxeFgcW36953DAXQVG3yXIaHClRmud+NAjklEfLhBUCz+DDOaDdONkl I+z2FAYKKmTG9eOyVri0Cfwsh/jZhq4ket7sqHDY7oJuZFKMcywjisrFDG6t HGO0s/xG9AYDZKIeCJCG9vMcnI9QUsMXlYMtS07DbZDAu+ScYQtMfsNYX02Q dYkx0lKzrn4vi/n/XEumYURQm2xH13k5JckzfJTVkqrUZp/GmJupE42hYUzd D/f1hmqsv3ioTjKI3Xce12D351KHM3AGVUbKI2+a7XXFXah/KjsVVfCnirOV zGoEDKxdLmZm9TKbWR0Vu9skaJ3EahYGUA2NNLSm8ltk/QhBBqIjh3N/g/98 EWSSGr9dhvJu4MIAAxRqYB9FOzmlPPzZkAZnMxOJEzU7OAWcyKlkCuGKLaRu s4nLCww+6GFM5jYoL2ZuH/QGj1LmtmvFK2ELiV6R/Zu3XmKnJPKY2fVspXg/ btR1+KK9bQu2t4M0MNTeTzRhQX9o3GNHBoJscGRRZFuP4cjTBO9RGljSFT0n pwDkGUKNvobAdi+FWzdCrMJ1B2Rs9278BHGpA1Lz7/T8eX1OEWTNSC5lOsSB lbbOHxPIn1SQnCAI0zZtCz7hjHPvd9QQpQ2zqhfj4rpGnB+OlDXijegNFreY Q1ZhWo+jVOyYx/Q/Lpo1s6LUoVcPweDQF+KmFh+i+khL4mPWML7rvrroXLo4 CyIbFoI339KraV1Vyi4JSTR/ZHCB6YS5QK4juLjijn3Lc1EM1GQf/5lBDVyr TA0MS8wrMpfmqbFDGoeFZ68RHc9rOfY6IsqKCBiHA+QK3pr2wbRAlxVGKIU5 mK6fUricHTZX6KnOyYWFr0UP5zDpNeTkPyg/fpUo9RGLaaS6YfaeBDfXaoWD JKchv09dNBgTyJiMdhOgOmgm3tylZWYqnpLnfL+izJ/2mLNzpzCEtPXuUcag RWrd8CF6mpukRtEsKCUuH9j1JTheOtK5vRxX/E+I1+9139fOM+rZGguC7VM7 xqeZcFLFdewerwgFf62He3xCQIaJ8SFvlwb9lBT5Q4Lmz+UZCDeP4/TdSmAp TutunOpVGg5cusJHRsWhqJ0/WGgaVhfal6ysyM/0pF0fxHpY5Um5Nusk7P05 keAjMIejzCpFr67dOKbO+f+gYQs5Xkwyzu+ts3mmmHsw551AYhFT9zMKcHv5 NF8woJ9sGkkf43aSMP7SgLuNxAWG+3ES5nZC+5/vQT+ZkPfnetI5qXjvZwmT u+6ApeodcAO9hwLWuhT16kxLVPJ9LswzhJBWnou26urHGwL7UcNpJzSjrn7P m+/QPMxjrEtI5ATLBFSz43ciekOE8XfpHd63RVHWMFum2aEG657MU5vE3n0T /YtvHXSrvtl/vue/598YMDTQ6uVlmDa4H/aZHvZCLaU4LyIXfpza7ZFk1FUz 8O2RhK3wjhWohEkCGtZleWw8e7A1rAPxZyFgSqQEl06ONATgaKdfxIrOwunm 4lWY0LMn9vhVy73B8YgwQIqBqeAwYEqlXAaH1vE8RjjYiga7519dT9bolOhN NbLm1RCfFJzIGuMFByJjzc/K3Fc9G6oOYWSqeC5T8PAJ5Zk9zDJbiLSaxzO5 gq8PNUaXH8Q7sICLdjryAUpWXC8JB6XclEJ8CQXaN97coywHg1FLGWv0sKJV SaMYTIcDdnJcj4hmRvPCnqodx31B8hWcFrcXOhe2QVDwrB8gWxYDX0YEppvq vd0Xx9LmIfaYUDBVbMajQNzl+LwiXWIGyPBrSnUy95jAbr3mbZEi6/PNQ4fx wUru/1fituIYV6+t4rjW3XqPNLD5Rr3Xc2X8D6PZ5ZRfRuO+a3SznQRWznKC mmk+1UVFwWEoPj4/4u6/GW03jvPqi48CgY8Q3gJdzgAlh6Q6dWYvjbvuAOMZ K3GOFb5P78lveDp/nep8lOpAsM/oPeQNyq9fozof0efwH8mvH9Z7sDzl16ep zk8THWonaaZqpzdiYlp1uAXuc//tc42OC89YGcDTrxKuawZ9lxQex62U1oDL esbJJWiHXzFwIeQiv3w8tncS0kX7tsOwI3csHmhFEODy1N7SdNG+DcqxQE0p /zZ6Ds6sbZjYEk+JG7rX2T4E6bjwjKWJCOYvE02PEK7S0Uc4foVT8kGTde7R ceEZp4FAM5mmt7vvax1Jf0GrspuMN3JqR114DWjvfCB845by3I46gd4fBbbL BLoqwgSba3yiA/nIgpuIF8KXjHvHeo9CgJHwkJoAnLn91pggUxb12IcRZyR5 L+BW9uqyOzOOQNe/UeyScQ9C40UJC+2t9Pz4eK2z9CEwDGk6nG1ybtBEFaNm ZyunAmFkhIVwk7ag8OiWHheVtkCNRHmsY4k+oM83eT1A7QlALl6zRsCIeb0d Mnkb8c9+0xvD7y3gMLEqX1EUY0NeteoxSnXd8mhUDbek5zNcLDE+qM+h6p2q ZF/GwK8vo9ubHAjEp0Wn4cBWsuz1v3397UQOEDqnGlLazcmRIKDYBru5AfsB xbDhMUDnDDTWtksEWmhD7FbY47Brn73tnAl0Xu8NbYoEj/CAe31a1b8H7axW sXKidrPlu2N/RFWXdA8LDWta2dZZO+eU5tpNjEcGfTy1AJe1wEEU5SLRlioO C5/5Hrt0YIX2gfuND5Hxojo1CgytB3tWCIYJZvOFpHlFdZAbW5tZaKnf+VEw uiNGdAmBFkYXEg2zlqS8oLmgupGJgx+XHyOZmJdbFkY0BmPMxMGPy4+BkVL9 TYwUjlGMdnj8YuEZcLG7gJficF1QOEe12A6ZXyw84xRwtA3jgjsGwb4OVzaG flx+jNUhNinKr08bGGnThGIsh9QvVJTBOIJVqCg/O5/gsEKIVH69yf2vjreP LM5nzEC+TJFzu+1IyR8K367Tc3fdAe7B/yc3/sZ9DE8kP1BZ7sHKct+v94be andcCe+BSngPVZbzSW/NX+ujIXfYU5XlHqgs9ySRGdnPbn/ghUoo9xehPFh8 qgLw2Udr+d7eosKtSCxGnIJ3IlGyHCEyTdp7EyI5ooahhxYzQ+AgXkymsh5/ k1LISZBtWcudwxlXfNCAVG1bDEsjTGa36B2QQ5Th/QIZOfWpiM8YGSmnIXA+ Y7P5K+V3tHN0MC2bkeqlFne3gVmXTJxvji5hnV5vpZEeKQOZg9knlaD53QpS ndcvFgcIymkQpfSCVvkNxzA45aAbdiWQQRpMiVrJQMMzgh0iK8/poGCHQKue vaaPNvRks9cxjWttw51dSKu33AH5twf0z+jnY0dexEn7M/bjuOtKeDH2hJNP GsuZY3nM8yTt9khCkgOtkMKOuE3oOq16XSt1ryJ+GQLtXpcnLBnkwvgPWXPC RsxT9iXk1vFfY0UMVlSkzTaa/nSWhmrNW0MamzZOSeHWIMe/i0ZT8G/ry5Nx r86xvPnWm9LWgD7b05RtgGbnhLLajGXdGnTypCx77+6gvB/BBwkxeiJvkJxx 8beDwZZIlGSc4A8ibtnxJORinU+bZIaFP4s60Kv+hSmFN47EAocTBUmqIWlv fYHXqv4kS+KgevZP7C2rJ0lo2+qZP0S4niTvx9X9VbftJevbCKSCIo4QxKTH bT6jumuQbLVdHvU8khqlYm9IRY3gOB8QKMYJbi9Qjw2qcvHxLkoTwp0ZypnJ vSy2RSQrASN6rxi2o2nD2pE/5LmKuy1px4ZUaGf+C/exVvifX2hDCWfbzAAY Z57YXLC4U6WoIH0bJLDPB5ZQqXNvSaJAywdyj8skKLGzCMsemlVDV+TkBoMV 5np/ENU0oNDPoWPUBoR3roDRiqAPaDpTcVLqUurtFWRpb/+sPhqRpcLWW5rH afnoagWAczGsVJVWYa0NqpwsAerZ4xNrQj3J1oBs4UIbiM6n/WkT/NvI7mlF hqDiEBs4VBohOg6rYyMDH5WZY4FNwwMDDx9coT6+UHcTcdVq2NygKT0LqYNX z+sm6pKa4evgj8zw+uSqNBWBk5/HZlipE6zJ77W36Vpuga68+WTj3N8CzhpZ HIykCypD/qKwmDPocvXVX3RQAXYTds8W4C/XJ9vyutW03Bqo1KPm+8iJZuTx 6SbW0QeLMgmLShLyWr/x+wJrudsfTwKUxQqu8Hsc9uvADHFytk7WQ9TkF8CD sh4CrVGkzyjMk06l5FTOU0RizFWZjnklHcs14de+t7GWz/016VgQ/FLAeX8E rCGezlXAmlfStan8h+BHqnt7k135hKZ7K/HPK/GfrYRX+1bKsfycr8Svu8Mw jLlvtW/UXIyivVK2CS21fOwadTXN5+tpYMU0sFW4qhPrnlGYSImkZYS/dM/z s4qVXQa9QnvKMJ+Ao9od1pTYX4wwLRwKj4bd+3Uvbbklh0OL8pwLfkzQXjgQ J3Q2BRGlgsp4u51Xt0yjGO51vEHldHTKDDy1V67cvje3hGbz74+PliTx6j9+ WwFih1jaxNPrQbZseniEaoZLl9XT6eWi7OwURQABFoTb7liNdV9rcITZLZCs iUghnQ5SBBvX/bkX4JhjJiVJKVrGWuAqi12uL3ObTVMsfPIMtCDmOW4muYyy QTWb+AUTqJY9Yqf3eordjRpo2SO28Y5OGNRT5YnTbQhMjj9A52Lchtf5dKL4 pSSu3D/nGyGEnGfhDGd4z0qNcONG76UYQ41gHLiTSg16CEXSQzQ26zXlRnkU b+PwYsFGgZDMFgvdYBudJNc2GZ5i5JOAPLQZD3bTFXHKWyG05+mzewJnhTdv uO9Ihk3i40FKwNE/h6eTJlYB0GMd8meGxkA2+A0y8ex4+AUcuVdgKFcgruoF HGdNgm7dGv8CDrkKI1zoXKfDmTn4w1yLORD2AKiAT+6yPy7Zg9nv7bhiJpJj eRpOJSH1ig7Mi02IE3oVxjR9HwWaQaen8MdTayIAdz9DEUL2BmOhyxF2d++f uNXic7Np1rAOEYK7nmNWrvzX8iAh9gxI9tjBPN4z7mXfXaGoUYdsWa+RTZzT jBURtXZYOfFLLPaMe9kXW/ynpyHwe6dtx7lTbjR3/S/bnt0b\ \>"], "Graphics", ImageSize->{597, 289}, ImageMargins->0]], "Input", CellChangeTimes->{{3.406782749476322*^9, 3.406782752353134*^9}, { 3.409658353538484*^9, 3.40965835353889*^9}, {3.40965842322803*^9, 3.4096584249525547`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Equivalent circuit", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}, { 3.406459821066276*^9, 3.406459824773054*^9}}], Cell[BoxData[{ RowBox[{Cell[GraphicsData["CompressedBitmap", "\<\ eJztWM1qU0EUntyrMWK1StG2SCQWF1pblCzdiCBx5T5oq8RUaBaitF3FbaCQ R8gb5A2C4kI3eYLshTxBnuA635lzhvuX9v6kaYu5cOfnzJnv/MzcOWfu28bR /ucvjaNWs1F5c9D4tt9qHlZqXw80yS0oVXiolGpWFNqebnJBzwYK7syp/ReV Ax1c23phhjZRPQNhG63naG2ewq7J1hrde5qQthVDe7wQlVzUKpVXvNFoJDS0 7+TX4C6VRa/X6xG9Xq/Ti3a/37+dUMF7DFOr1Wh6q9XCdK9arXqTySQOJqWi t5g2Ho8JFT2H3QJJ4B0Oh5DseIPBQLNCEfaYWk5oiN8fMAJPt9uV/gw8fpIh kNJutw2jYnJwelJDDN8SiYAoedAGX6fTIQfN10C4FNKsgZopl4HXIgZixUUs 7QFdQixvRZVyL66gWgNBJooHFbGbUj5MbDwHojRNt4PK0mFrHFyMqA3/669H HCWA/mXZtgpSaznLEpivgpeAd3twbiWGVprqf5fwxR0OuwNaC5/LpfZ9ZO5p a/Aghm89m9k4I3i/z8Dsqeu3On/LfN/UmVjG+30OloW3EaIJa3IJ1yzu0Mqi MXuF3nK5jCh3ATVOmg0tVJqFShRKNqYJnZrLnwD7PWboU36I4wX7ubDvUXnV 5hFSI99yKA9yLR299XTwTZQmu7pOhxQfpfQiICGLRbjFmJah1jLgc/YKaMQ3 wPL5Z9Nz1HLP0HVKKTtUrlBqAjQ5ZYEGKXiQxUG63GpkTDRAXyIwnJtJhRLB w3eSJcmVBuFKi3JMbqhbOuMFn4jN6ef3TMM2AN1uDF0CWvIKStRNwlEUnez9 iPdQyi0komEpLELvBtMggRdA3c8P+yS/U1JC7DANLuIsxuRrDlz6KB3Yrg8s nCL5/gjExoPLcl5dKPaXKENx79UCYgFxPhCvLTu1zIGofsUg7f63Q+S1M/yR /scINPFR7pDovTPjv6kqUtRCLEZMRrLCcTLEJakLuKNcP6lasomNpCUSbxGY MQNnf3T2D6puEjZmAYWVpVCE2fKPLKSlCkAE/yyY4F+y93TA4Y03QRAghP+D 6cTF0KAQB/iwQD/73nRdQkMSp5EdyU8RqCax+6Pfra5dIn8YFdeC40PyXaEK /wBaoWRT\ \>"], "Graphics", ImageSize->{289, 99}, ImageMargins->0], " ", Cell[GraphicsData["CompressedBitmap", "\<\ eJzNWl2OFUUUbu7vzJ1hfhAQYzATffBBEZhIwkSNicgQDRMf1DiJvkzAyMQY DPIiS2AJLICE6ALYAStgBayAFVzrqzpf3a/6VnfXvRmNncx0d/Wp839OnTp1 D44e3vv5t6OHx3eOdm49OPr93vGdP3b27z9wQ/1TVXXqr6qqru1UeJ66R/vn r7/xz17+p89f+1t/+vjx4+nr16/920c29uLFi+mzZ8/8m58TPlRfyZwnT574 tys2dnh46OfFOZfCnE/9bWX6/PlzD4M/w+1x7O7u4n0gpDGEt3X/f+DBZerb NozZ0Pj+/j4k6BmGV69eeQxuqNoz4i9fvpweHx9HLJjG6W78dAYsw2PANvZD IEpQqMOmVj2MVMNIAXCAcc/VmpFReQgHXPY8yXADEuQGKB89erRn8goVR919 cBw2yevgjMN+FDAQCyqtkaRKhYNqM5j1E39b9a5z8eJFr3UyGCAqb0vwQ9u6 5+g2QRcjPw+wwIM/PLuxsU0xV/Bv2zZG1OFtxiE99rqJhLnwOlyAZ3TafBq9 buwa93vGLlSMz8REv8hQcCqGufteMamKVxKBlSt7XstwBRKclnC1Gbki0zBe k9yAwzgs6TirJi2kOM+R2gq4d00P+AKq+ApKZgl/h7zg4OnTpz4Z0vBqsTC2 5WE5l7pkNNOZGBSAJYemiJ6P7z79xbxpRo5qH/r/k1ISPUEBXTgOo48xTKeS 9WBFjM0Cay3qHleHDxru9SKt8tnd+8ImFXu1kaXthCV8Z84gO01sMsshinuN +C8k+DscPPLAvASR6MIYl4y5nLjvZMWlobnANInLXIdktSSbmgosej72t3GC he5nWcJx7xzQwQCrYqfLqi+KkhPDmN/GMbIymztIVmL3vJKJmlEhyjA21LXU K9exl8BzRWfYSNoyuDX/ziDXdUj9lHSHptsWdXpcwNOizquN7Gwn7DB5EE0b i/AdW6GjCrrExUWrKC5TtVluNdLjhfmABS8mbixAwK+KixWpWd7NrLygBXXC DZrkBV7SRMyoKUJJElyki1d4tBRBaeCM5kQ30cYiUb0m0DDsGxpQUi5Nmi0D 0hgYt0+ZZKhctjHKiujU4ocLFXWSWxGGiwt8pZAs5yrLg8K5OZZT9xxHd+MF U1MsZpST4nu0AE1msWk9H4/mpiN6ncFJkeXQzIXybgVuESigztTspFo3IK4h UNbQVCa27ULT5moiQNQdw7XU1RZQwpVCsm2utgzLdVcTM+t3v/DQ7CfF96iA 5ljw06qb6mqDON0WB27DbO/tgWho2n7mG7P8CR8BClTwuiMijnEL/JpIxyX5 sozRMVYNB5dTag05e1jThokT1wWUCnsZnBs2phXPoIU26ypcNsfgR36caVl2 PKVkx+1o3gp2u2awgOL2GxcUy/4CA1w2M9F9pXbi4t5qsBw8DZbbeoCmrUtJ aBHvegP/3Eag2NwrxLVRCDcxmvXFCw5tjlRMc6sA14XUVHVQqhSi0lTahNCq gCpinePmbmastdI+ZdWmIBLYj6DB6JaIIgqsXTNyKFLEChJcMyNcL8S3UQjH rKO5kXQh4qJ0twrxvRmMF8CHcbOFP4jrNBy2RMyU7Lo0NbHOmhfUlzN6AdIB dQyTMQNyTWGm1HkY0zQihaC5Qvs8rgvalGQhAd5tF2r4V+e6pNoXwBjmn5P5 1iuY2wM6PVenO+xA+SeN/Azn+AkVfViJtbt1tpCnrUI4Jj4t55R3pvJFeJ/t ONL4LOV9u5CnxK83Y74SN4wmqfdI6i26c+ZiXLC54EIk2+AFcX3HsWcqAQZC A9KKm1gSmJDnFwMfmqga6gx/W5v827oFR1Nn2OS9IJGR9m9ChuFyx4ZoTgW8 O47XGzmZZDlhtoGweHf384UcbRXCsZLRLpLtqh08ZvWjrtWX50UY5kRwOOCV /SgSHKZUhs0FeQt4K/aK5ptuZ5KmGy5M57IF0k19wVrT7QOJqLZzKd0oMrux 2Uv07Bszg9IFLYLr5SfePjs5tOwSovr4NoN2ZF7CMUjMDoiWFsi23NNYM9a/ 3U5t0tXUwcWgYT7ClWs8zZo66ZKnB0JtG9rvDA64aTD27CACD1IkgP04eeUJ mTbcTPujQhYuNbJwZikWgAcqoxu7+6CQlRsZVoIY23HnwP0Hn7s0IVashoV8 BN+ONckybZf7psd6QT7r9KUkcyF2c0Ec3AFDXFqB++4fjYricmpsQwMULNfw Hae2B6lmlukS+Az5DV4nRogexgv5uScUiE0bS9yp+4X//eWxDZLWt7P0Gxj+ fIZwRZcZlqb+2ZANjC5TPXGhivLIPgSyjVRxuZ23bORjrury1J9E6VyytNZg FJU22K6dML7bBseTfzWj4jtdiM8ik+rp2hr/aWM84lDyjBK8HRTC3RH18Jw/ B/d9ymbXRjC4U5izKqy0FdlTE9qqC7peshEES+aO2Y0glwj98UAoeDp/e/Fr 4FYbcW1lFFMZl3D+Ycm/a9+YZvmHg6Eb8o2Z3c6n4trNfQMMR03rviFwOttP 6L6h60yv7ci64/w2ypyT693A1GHNQfD2i7BEB/lCnMJ+xWPin4nlIy8W6ixT lE1VRa2cbNNE17FclyZuZURaUgNykJlkcEa9D4FQljNvhDPZWWvE/CBbtzX/ MiJXBky0DGg7mDxBBUgdnZxJkdtxZi7H5rPrKCkIcFnkUOjS84YTNjHzxkYG bk3G6jbKNcj/ZXbZ0dDqkKlIXUrPBtYFH0Ug3Pyatpoc3dNI9Z7/CYoEo1vf NooE76ZVzsncOvtda91Bhq6x+QNuPd/PTHHfNWVYt5NzvzRU7BnGXX6VHmOQ XQ10re3bltnbedLvpYpld0AVixmMnJtGU3/oyL0SOEWFviPStC2lBxn8pkAv 2n/0s9jq1D/evoiO\ \>"], "Graphics", ImageSize->{427, 53}, ImageMargins->0]}], "\[IndentingNewLine]", RowBox[{Cell[GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMIGwAgOI/R/IhBJM /4EAKAGhGBgB3iMVXw==\ \>"], "Graphics", ImageSize->{2, 2}, ImageMargins->0], Cell[GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMIGwAgOI/R/IhBJM /4EAKAGhGBgB3iMVXw==\ \>"], "Graphics", ImageSize->{2, 2}, ImageMargins->0]}]}], "Input", CellChangeTimes->{{3.4067827977683687`*^9, 3.406782812602887*^9}, { 3.40845144672178*^9, 3.408451452401231*^9}, {3.408451503882175*^9, 3.408451508613759*^9}, {3.40845274311872*^9, 3.408452791020837*^9}, { 3.408453378828117*^9, 3.408453384778167*^9}, {3.408506228295702*^9, 3.408506228295776*^9}, {3.40965790532195*^9, 3.409657926906714*^9}, { 3.409658310092167*^9, 3.409658343433607*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"ko", "=", RowBox[{"10", "^", "logko"}]}], ";", RowBox[{"kr", "=", RowBox[{"10", "^", "logkr"}]}], ";", "\[IndentingNewLine]", RowBox[{"Rct", "=", FractionBox[ RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], "+", RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}]}], RowBox[{"f", " ", "F", " ", "\[CapitalGamma]", " ", RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], " ", RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}]}]]}], ";", RowBox[{"Zq", "=", RowBox[{"Rct", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}], "+", RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}]}], ")"}], "/", "p"}]}]}], ";", RowBox[{"Zf", "=", RowBox[{"Rct", "+", "Zq"}]}], ";", RowBox[{"Z", "=", FractionBox["Zf", RowBox[{"1", "+", RowBox[{"Zf", " ", "Cdl", " ", "p"}]}]]}], ";", RowBox[{"Cads", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rct", RowBox[{"(", RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], "+", RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}]}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "ZA", "*)"}], RowBox[{"ZX1", "=", RowBox[{ RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}], " ", RowBox[{"Rct", "/", "p"}]}]}], ";", RowBox[{"(*", "Zs", "*)"}], RowBox[{"ZX2", "=", RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], " ", RowBox[{"Rct", "/", "p"}]}]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rct", " ", "Cdl"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"Cads", "+", "Cdl"}], ")"}], "/", RowBox[{"(", RowBox[{"Cads", " ", "Cdl", " ", "Rct"}], ")"}]}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"Cads", " ", "Rct"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", "0"}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0", ",", "0.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qA", "[", RowBox[{"ao", ",", "VSta"}], "]"}], ",", RowBox[{"1", "-", RowBox[{"qA", "[", RowBox[{"ao", ",", "VSta"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.01"}], ",", "1.01"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "240"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}]}], ",", " ", RowBox[{"BaseStyle", "->", "monStyle"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0", ",", "0.2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{"qA", "[", RowBox[{"ao", ",", "V"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{"1", "-", RowBox[{"qA", "[", RowBox[{"ao", ",", "V"}], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}]}], "}"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", "Z"}], ",", RowBox[{"ROhm", "+", "Zf"}], ",", RowBox[{"ROhm", "+", "ZX1"}], ",", RowBox[{"ROhm", "+", "ZX2"}], ",", RowBox[{"ROhm", "+", "Zq"}]}], "}"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "Z"}], ")"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "Z"}], ")"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "Z"}], ")"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "Z"}], ")"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "Zf"}], ")"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "ZX1"}], ")"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "ZX2"}], ")"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "ZX1", "+", "ZX2"}], ")"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", "Purple", ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.5"}], "}"}], "]"}]}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.4"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.3"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.2"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.1"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "2"}], ",", "0", ",", "2", ",", "4"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "245"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{"Rct", "+", "ROhm"}], ")"}]}], "/.", 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.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"AbsolutePointSize", "[", "6", "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(ct\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re Z)/(\ \!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \ \(ct\)]\))\>\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(ct\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(A\), \(-\)]\ \) + s \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), SubscriptBox[\(K\), \ \(r\)], SubscriptBox[\(K\), \(o\)]]\) A,s + \!\(\*SuperscriptBox[\(e\), \ \(-\)]\)\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logko", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkr", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)\>\""}], "}"}], ",", "0.1", ",", "0.9", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "5"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ROhm", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\""}], "}"}], ",", "0", ",", "100", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"V", ",", RowBox[{"-", "0.05"}], ",", "\"\\""}], "}"}], ",", "Vmin", ",", "Vmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logwc", ",", "4", ",", "\"\\""}], "}"}], ",", "logwmin", ",", "logwmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc1", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc2", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc3", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao_", ",", "V_"}], "]"}], ":=", RowBox[{"ko", " ", RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr", "[", RowBox[{"ao_", ",", "V_"}], "]"}], ":=", RowBox[{"kr", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"qA", "[", RowBox[{"ao_", ",", "V_"}], "]"}], ":=", FractionBox[ RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], "+", RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}]}]]}], ";", RowBox[{"Vmin", "=", RowBox[{"-", "0.25"}]}], ";", RowBox[{"Vmax", "=", "0.25"}], ";", RowBox[{"F", "=", "96484.56"}], ";", RowBox[{"Nu", "=", RowBox[{"10", "^", RowBox[{"-", "2"}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"\[CapitalGamma]", "=", RowBox[{"10", "^", RowBox[{"-", "9"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"logwmin", "=", RowBox[{"-", "1"}]}], ";", RowBox[{"logwmax", "=", "4"}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{"Blue", ",", "Purple", ",", RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.6142719099991583`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}]}], ")"}]}]}], "]"}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.4023695361461477`*^9, 3.402369674827173*^9}, { 3.4023697765829*^9, 3.4023699547166243`*^9}, {3.402370005488802*^9, 3.402370018431055*^9}, {3.402370052619474*^9, 3.402370104981262*^9}, { 3.4023701590050898`*^9, 3.402370243119587*^9}, {3.40237027455987*^9, 3.402370329528116*^9}, {3.402370384343309*^9, 3.4023704987216682`*^9}, { 3.402482859565398*^9, 3.40248302156184*^9}, {3.4024830536030493`*^9, 3.402483098071499*^9}, {3.402483146978909*^9, 3.4024831563281307`*^9}, { 3.402483195965958*^9, 3.402483268056141*^9}, {3.402483425822873*^9, 3.402483490293881*^9}, {3.4024835580708017`*^9, 3.4024836381413603`*^9}, { 3.402483670938328*^9, 3.402483708771574*^9}, {3.4024852890688133`*^9, 3.402485434788199*^9}, {3.4024858312418756`*^9, 3.402485837150496*^9}, { 3.402485915685755*^9, 3.40248624722701*^9}, {3.4024863102816753`*^9, 3.4024864195417833`*^9}, {3.402486462882098*^9, 3.4024865337273684`*^9}, { 3.402486609670967*^9, 3.4024866165403748`*^9}, {3.40248665067288*^9, 3.4024866604687157`*^9}, 3.4024868590375547`*^9, {3.402486907262285*^9, 3.402486915747499*^9}, {3.402488329871443*^9, 3.402488361675241*^9}, { 3.402488396714031*^9, 3.402488516153315*^9}, {3.402488655750746*^9, 3.402488965308111*^9}, {3.402489000444693*^9, 3.4024890040365353`*^9}, { 3.4024890589346046`*^9, 3.402489062410473*^9}, {3.402489130832069*^9, 3.4024892156252747`*^9}, {3.402489294420019*^9, 3.402489344499359*^9}, { 3.402489419831357*^9, 3.402489526998837*^9}, {3.402490383226593*^9, 3.4024905707564363`*^9}, 3.402490624558634*^9, {3.402490672720195*^9, 3.402490718199432*^9}, 3.4024907588747*^9, {3.402574717052318*^9, 3.402574769906005*^9}, {3.40257486912783*^9, 3.4025748808768263`*^9}, { 3.402574925421788*^9, 3.4025749387882967`*^9}, {3.402575003501624*^9, 3.402575018596941*^9}, {3.4025754898518963`*^9, 3.40257563218882*^9}, { 3.40257567730838*^9, 3.402575809526437*^9}, {3.402575874843103*^9, 3.402575879033408*^9}, {3.402575935744194*^9, 3.40257595844971*^9}, { 3.402576157191975*^9, 3.4025761727653913`*^9}, {3.402576224707034*^9, 3.402576228230336*^9}, {3.402576483749071*^9, 3.402576523324802*^9}, { 3.402576564703891*^9, 3.4025766023925047`*^9}, {3.4026199023445873`*^9, 3.402619948709725*^9}, {3.4026199850524893`*^9, 3.4026200413967943`*^9}, { 3.4026201510059843`*^9, 3.4026201592745333`*^9}, {3.40262020611094*^9, 3.40262029407122*^9}, {3.402621027672077*^9, 3.402621134104281*^9}, { 3.4026211684080963`*^9, 3.402621223194031*^9}, {3.402621265215824*^9, 3.402621267902812*^9}, {3.402621334818672*^9, 3.4026213494917727`*^9}, { 3.4026214649411373`*^9, 3.4026214711931047`*^9}, 3.402628313929721*^9, { 3.402628403990634*^9, 3.402628475924038*^9}, {3.4026285329475117`*^9, 3.402628569365765*^9}, {3.4026286056221857`*^9, 3.402628641301815*^9}, { 3.4026287171490498`*^9, 3.402628718792757*^9}, {3.402629209570641*^9, 3.4026292330136213`*^9}, {3.4026292822945547`*^9, 3.402629294686112*^9}, { 3.4026293253815813`*^9, 3.4026295010075397`*^9}, {3.402629534731275*^9, 3.402629537163505*^9}, {3.4026299325197887`*^9, 3.4026299348236427`*^9}, { 3.4026299728323936`*^9, 3.4026299823479843`*^9}, {3.402630036321167*^9, 3.4026300394143963`*^9}, {3.402630134678294*^9, 3.4026301584997663`*^9}, 3.402630195728856*^9, {3.402630242528446*^9, 3.4026302508320208`*^9}, { 3.402630473877427*^9, 3.40263050834774*^9}, {3.402630544010498*^9, 3.40263059729458*^9}, {3.40263075907216*^9, 3.4026307629079313`*^9}, { 3.402630877676293*^9, 3.402630889050021*^9}, 3.4026310448648443`*^9, { 3.402713838212441*^9, 3.402713911468562*^9}, {3.4027139646195087`*^9, 3.402714061855445*^9}, {3.4027141859392157`*^9, 3.402714196148651*^9}, { 3.402714270448277*^9, 3.402714307288842*^9}, {3.4027143399674253`*^9, 3.402714367340341*^9}, {3.402714399336391*^9, 3.402714444833983*^9}, { 3.402808494640152*^9, 3.402808498889625*^9}, {3.4028085360993547`*^9, 3.402808537077035*^9}, {3.4028086473870296`*^9, 3.402808669589512*^9}, { 3.4028129814770727`*^9, 3.402813071708537*^9}, {3.402813354504629*^9, 3.4028133674794903`*^9}, {3.4028140087262583`*^9, 3.4028140835208187`*^9}, {3.402814198214512*^9, 3.402814225387941*^9}, { 3.4028143134468307`*^9, 3.4028143140638123`*^9}, {3.403415752692627*^9, 3.403415789486211*^9}, {3.403415820099463*^9, 3.403415854364264*^9}, { 3.4038412807653027`*^9, 3.403841297141389*^9}, {3.403841342463997*^9, 3.403841343606017*^9}, {3.403841394294342*^9, 3.403841395787012*^9}, { 3.4038414536171427`*^9, 3.403841465485631*^9}, {3.403841535799437*^9, 3.403841536805583*^9}, {3.403841575028674*^9, 3.40384157755285*^9}, { 3.403842684339519*^9, 3.4038426930629663`*^9}, {3.40384293481987*^9, 3.403842947396359*^9}, {3.4057612568039503`*^9, 3.4057612711786213`*^9}, { 3.405761413018404*^9, 3.405761413379381*^9}, {3.405819052758778*^9, 3.4058191806141376`*^9}, {3.4058254594678288`*^9, 3.405825460472539*^9}, { 3.4058255238072653`*^9, 3.4058255537622643`*^9}, {3.405825592564384*^9, 3.405825621441044*^9}, {3.405825667462978*^9, 3.405825850482213*^9}, 3.405825923900382*^9, {3.405825974910058*^9, 3.405825981235718*^9}, { 3.405826725138728*^9, 3.405826833608189*^9}, {3.405827059778594*^9, 3.405827064172968*^9}, {3.4058271387232122`*^9, 3.405827213120493*^9}, 3.4058272758905573`*^9, {3.405832978349814*^9, 3.405833000966395*^9}, { 3.405833036382531*^9, 3.40583306067715*^9}, {3.405833176572535*^9, 3.40583321314117*^9}, {3.4058332531527233`*^9, 3.405833253880949*^9}, { 3.4058333230905247`*^9, 3.4058333537832117`*^9}, {3.40583339037722*^9, 3.405833397297024*^9}, {3.405833456191784*^9, 3.405833459433735*^9}, { 3.405914947970791*^9, 3.405914990155654*^9}, {3.405915053544611*^9, 3.4059150909548597`*^9}, 3.405915225179245*^9, {3.40591526744986*^9, 3.405915270548851*^9}, {3.405915301808464*^9, 3.405915321927217*^9}, { 3.405915419846855*^9, 3.405915484582204*^9}, {3.405915534940544*^9, 3.4059155937038*^9}, {3.405915628710429*^9, 3.405915664762396*^9}, { 3.405915733685245*^9, 3.405915784222234*^9}, {3.406005848446827*^9, 3.4060059731594954`*^9}, 3.406006028562162*^9, 3.4060060942888308`*^9, 3.40600612822043*^9, {3.406463419039475*^9, 3.406463425238011*^9}, { 3.4066903506344976`*^9, 3.406690443971858*^9}, 3.406690499516057*^9, 3.4066905503317738`*^9, 3.4066905957921143`*^9, {3.4067218119549217`*^9, 3.406722029779256*^9}, {3.40672666264081*^9, 3.4067267029103823`*^9}, { 3.406726743485927*^9, 3.406727032307323*^9}, {3.406727065017516*^9, 3.406727086894677*^9}, {3.406727166363841*^9, 3.406727325538702*^9}, { 3.406727356971039*^9, 3.406727426028167*^9}, {3.406727461115994*^9, 3.406727588676793*^9}, {3.40672764141194*^9, 3.406727712311068*^9}, { 3.406727837934157*^9, 3.4067278878622627`*^9}, {3.406727939550693*^9, 3.406727954862232*^9}, {3.406727986428549*^9, 3.40672811396737*^9}, { 3.4067281458961573`*^9, 3.406728238758285*^9}, {3.406728271576572*^9, 3.406728309736939*^9}, {3.406728343232458*^9, 3.406728375670203*^9}, { 3.40677109179745*^9, 3.406771121573444*^9}, {3.406771220912818*^9, 3.4067713541562138`*^9}, {3.40677139844212*^9, 3.406771401825457*^9}, { 3.4067714446930513`*^9, 3.406771493737382*^9}, {3.406771662741357*^9, 3.406771664146846*^9}, {3.4067720152618113`*^9, 3.406772032104451*^9}, { 3.4067721226583433`*^9, 3.406772126769464*^9}, {3.4067721767613688`*^9, 3.406772177732239*^9}, {3.406772213408807*^9, 3.406772227995462*^9}, 3.406772278700742*^9, {3.406772337274784*^9, 3.4067723975784283`*^9}, { 3.40677252069921*^9, 3.406772643858377*^9}, {3.4067726927191477`*^9, 3.406772724553761*^9}, {3.406772790192916*^9, 3.406772810962482*^9}, { 3.4067728643212023`*^9, 3.406773078482822*^9}, {3.4067731126341753`*^9, 3.4067731633476667`*^9}, {3.406773294186666*^9, 3.406773356301826*^9}, { 3.406773409278254*^9, 3.406773409572299*^9}, {3.406773472415373*^9, 3.406773481065853*^9}, {3.406773558009564*^9, 3.4067735662063*^9}, 3.406773610437707*^9, {3.4067736828309307`*^9, 3.40677373887646*^9}, { 3.4067775975723267`*^9, 3.4067776986499243`*^9}, {3.406780421253631*^9, 3.4067804982419167`*^9}, {3.40678053652246*^9, 3.406780561731225*^9}, { 3.4067806210807533`*^9, 3.4067806234227448`*^9}, {3.406780695355877*^9, 3.406780810643201*^9}, {3.406780859962933*^9, 3.4067809276740007`*^9}, { 3.406780960703113*^9, 3.406781046175239*^9}, {3.4067810862763042`*^9, 3.406781093242486*^9}, {3.406781167012849*^9, 3.4067811825322857`*^9}, { 3.406781251344014*^9, 3.406781277730423*^9}, {3.406781353797323*^9, 3.406781358602261*^9}, {3.406781388753023*^9, 3.406781390060025*^9}, { 3.406781527013426*^9, 3.40678155994066*^9}, {3.40678160151996*^9, 3.406781601739043*^9}, {3.4067824080447073`*^9, 3.406782425268762*^9}, { 3.40678828436969*^9, 3.406788285248328*^9}, {3.4067883472396717`*^9, 3.406788364963787*^9}, {3.4067884114604588`*^9, 3.406788515751669*^9}, { 3.4067885480115633`*^9, 3.4067885775580797`*^9}, {3.406788616700295*^9, 3.406788643832851*^9}, {3.406788697406749*^9, 3.406788730034595*^9}, { 3.406788776156234*^9, 3.406788786066964*^9}, {3.4067888490595922`*^9, 3.406788926206868*^9}, {3.406788958850506*^9, 3.4067889915715027`*^9}, { 3.406980618602788*^9, 3.406980621457486*^9}, {3.4069813382516193`*^9, 3.406981380078356*^9}, {3.406981442557928*^9, 3.406981489524311*^9}, { 3.406981528825574*^9, 3.406981569704323*^9}, {3.4069816000712633`*^9, 3.40698162169389*^9}, {3.406981733493487*^9, 3.406981739067021*^9}, { 3.406981957488654*^9, 3.4069819982181253`*^9}, {3.406982034630686*^9, 3.406982049471929*^9}, {3.406982082778748*^9, 3.406982083687392*^9}, { 3.407807500729887*^9, 3.4078075056256647`*^9}, {3.407807599126491*^9, 3.40780765265665*^9}, {3.4078078686844893`*^9, 3.4078079055924997`*^9}, { 3.407808296271274*^9, 3.407808307913868*^9}, {3.407808342439193*^9, 3.407808342866433*^9}, {3.407808386436602*^9, 3.4078086422488623`*^9}, 3.407808679014861*^9, {3.407808721062316*^9, 3.407808855067522*^9}, { 3.407809000624577*^9, 3.407809001849386*^9}, {3.40780904158095*^9, 3.407809089501124*^9}, 3.4078091391039886`*^9, {3.4078091974083242`*^9, 3.407809259931882*^9}, {3.407809299823391*^9, 3.4078093390737123`*^9}, { 3.407809581711879*^9, 3.4078096800810003`*^9}, {3.407826083076*^9, 3.407826096150407*^9}, {3.4078261452362947`*^9, 3.4078261565326777`*^9}, { 3.407826203088941*^9, 3.4078262142590303`*^9}, {3.407826254347468*^9, 3.407826262277145*^9}, {3.407826309531111*^9, 3.407826310472638*^9}, { 3.4078263592112627`*^9, 3.407826366274282*^9}, {3.4078264201024942`*^9, 3.4078264452408857`*^9}, {3.407826489988632*^9, 3.407826499714402*^9}, { 3.4078265803999643`*^9, 3.4078265861552153`*^9}, {3.407826632681047*^9, 3.4078266696724367`*^9}, {3.40784080736869*^9, 3.407840873359908*^9}, { 3.407841006928914*^9, 3.407841032755272*^9}, {3.407841073686043*^9, 3.407841135532281*^9}, {3.407841452954433*^9, 3.407841454187174*^9}, { 3.407841503000503*^9, 3.407841508844502*^9}, {3.4078417429697933`*^9, 3.407841795498805*^9}, {3.4078419106370363`*^9, 3.4078419976779423`*^9}, { 3.407842088952631*^9, 3.407842147525484*^9}, {3.407842319943303*^9, 3.4078424463958797`*^9}, {3.4078426602137117`*^9, 3.4078428337674026`*^9}, {3.407842872195163*^9, 3.4078428852836523`*^9}, { 3.407843016502172*^9, 3.4078430195101137`*^9}, {3.4078432145752287`*^9, 3.407843215995356*^9}, {3.40784328844932*^9, 3.4078432896546097`*^9}, { 3.4078435103250713`*^9, 3.40784359540233*^9}, {3.407843682309774*^9, 3.407843689543956*^9}, 3.407843729585647*^9, {3.407850564291857*^9, 3.40785060733881*^9}, {3.4078506378698893`*^9, 3.4078506693730373`*^9}, { 3.407850705762002*^9, 3.407850712904756*^9}, {3.407850771788886*^9, 3.4078508207483788`*^9}, 3.407850871444521*^9, {3.40785096694849*^9, 3.4078509711501083`*^9}, 3.4078510290887823`*^9, {3.407851256495919*^9, 3.407851328527939*^9}, {3.4078514456294737`*^9, 3.407851447046379*^9}, { 3.4078514957798862`*^9, 3.407851505517021*^9}, {3.407901268990594*^9, 3.407901278452107*^9}, {3.4079014679601316`*^9, 3.407901469154531*^9}, { 3.407901510347446*^9, 3.4079015341979313`*^9}, {3.407901569722208*^9, 3.407901719944298*^9}, 3.407901777220297*^9, {3.4084491465441313`*^9, 3.4084491487691402`*^9}, {3.4084492990296164`*^9, 3.408449416323303*^9}, { 3.408449507220433*^9, 3.408449512924794*^9}, {3.408452802914364*^9, 3.408452826265423*^9}, {3.4084533983648*^9, 3.408453476348256*^9}, { 3.408453541358642*^9, 3.4084535970965548`*^9}, {3.408496806018746*^9, 3.408496816855735*^9}, {3.4084970677466393`*^9, 3.408497107716893*^9}, { 3.4085063549362698`*^9, 3.4085063596632757`*^9}, {3.408506402665029*^9, 3.408506405841099*^9}, {3.40850645191385*^9, 3.408506455138687*^9}, 3.408506495423027*^9, 3.4085065346152697`*^9, {3.4085065684373007`*^9, 3.4085065699902153`*^9}, 3.408506624128717*^9, {3.408507161821216*^9, 3.408507165243559*^9}, {3.408541209727187*^9, 3.4085412313533916`*^9}, { 3.408541268730345*^9, 3.4085412963012867`*^9}, {3.408686239325432*^9, 3.408686256169495*^9}, {3.408686292032134*^9, 3.408686324077881*^9}, { 3.408686410318695*^9, 3.408686411158773*^9}, {3.408686459226623*^9, 3.408686461331758*^9}, 3.4086868212620583`*^9, {3.409057886549198*^9, 3.409057889322401*^9}, {3.409057960736418*^9, 3.409057991519616*^9}, { 3.40905804330056*^9, 3.409058057357868*^9}, {3.4090580988271427`*^9, 3.409058137161257*^9}, {3.409058196043766*^9, 3.4090582080796833`*^9}, { 3.409058340397925*^9, 3.4090583748001823`*^9}, {3.409058409298263*^9, 3.409058413742051*^9}, {3.409058448965068*^9, 3.409058497504405*^9}, { 3.409110755716734*^9, 3.4091107931088037`*^9}, {3.409656768677964*^9, 3.4096567791667233`*^9}, {3.40965725877743*^9, 3.409657268336651*^9}, { 3.409657299391069*^9, 3.4096573071039886`*^9}, {3.409657375621139*^9, 3.409657398069779*^9}, {3.409657435307901*^9, 3.409657515967517*^9}, { 3.40965761797808*^9, 3.409657628396587*^9}, {3.4096576845304813`*^9, 3.4096577048312883`*^9}, 3.4096578398040953`*^9, {3.409800662494561*^9, 3.409800712453971*^9}, {3.409800837583973*^9, 3.409800850636065*^9}, { 3.409800960021697*^9, 3.409800965577908*^9}, 3.409825338559375*^9, { 3.409825395221032*^9, 3.409825397337636*^9}, 3.4098256440591927`*^9, { 3.409977895083487*^9, 3.4099779010712633`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao$$ = 0.5, $CellContext`logCdl$$ = -5, $CellContext`logko$$ = 0, $CellContext`logkr$$ = 0, $CellContext`logwc$$ = 4, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.05, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`wc3$$ = False, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " \!\(\*SuperscriptBox[\(A\), \ \(-\)]\) + s \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), SubscriptBox[\(K\ \), \(r\)], SubscriptBox[\(K\), \(o\)]]\) A,s + \!\(\*SuperscriptBox[\(e\), \ \(-\)]\)", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logko$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(o\)]\)\!\(\*SuperscriptBox[\(A\), \ \(-*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -2, 2, 1}, {{ Hold[$CellContext`logkr$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(r\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -2, 2, 1}, {{ Hold[$CellContext`ao$$], 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9}, {{ Hold[$CellContext`logCdl$$], -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3}, {{ Hold[$CellContext`ROhm$$], 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 100}, {{ Hold[$CellContext`V$$], -0.05, "E/V"}, -0.25, 0.25}, {{ Hold[$CellContext`logwc$$], 4, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -1, 4}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)"}, {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {False, True}}, {{ Hold[$CellContext`wc3$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\)"}, {False, True}}}, Typeset`size$$ = {508., {166.875, 172.125}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logko$32397$$ = 0, $CellContext`logkr$32398$$ = 0, $CellContext`ao$32399$$ = 0, $CellContext`logCdl$32400$$ = 0, $CellContext`ROhm$32401$$ = 0, $CellContext`V$32402$$ = 0, $CellContext`logwc$32403$$ = 0, $CellContext`wc1$32404$$ = False, $CellContext`wc2$32405$$ = False, $CellContext`wc3$32406$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao$$ = 0.5, $CellContext`logCdl$$ = -5, $CellContext`logko$$ = 0, $CellContext`logkr$$ = 0, $CellContext`logwc$$ = 4, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.05, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`wc3$$ = False}, "ControllerVariables" :> { Hold[$CellContext`logko$$, $CellContext`logko$32397$$, 0], Hold[$CellContext`logkr$$, $CellContext`logkr$32398$$, 0], Hold[$CellContext`ao$$, $CellContext`ao$32399$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$32400$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$32401$$, 0], Hold[$CellContext`V$$, $CellContext`V$32402$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$32403$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$32404$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$32405$$, False], Hold[$CellContext`wc3$$, $CellContext`wc3$32406$$, 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`ko = 10^$CellContext`logko$$; $CellContext`kr = 10^$CellContext`logkr$$; $CellContext`Rct = \ ($CellContext`Ko[$CellContext`ao$$, $CellContext`V$$] + \ $CellContext`Kr[$CellContext`ao$$, $CellContext`V$$])/(((($CellContext`f \ $CellContext`F) $CellContext`\[CapitalGamma]) \ $CellContext`Ko[$CellContext`ao$$, $CellContext`V$$]) \ $CellContext`Kr[$CellContext`ao$$, $CellContext`V$$]); $CellContext`Zq = \ $CellContext`Rct (($CellContext`Kr[$CellContext`ao$$, $CellContext`V$$] + \ $CellContext`Ko[$CellContext`ao$$, $CellContext`V$$])/$CellContext`p); \ $CellContext`Zf = $CellContext`Rct + $CellContext`Zq; $CellContext`Z = \ $CellContext`Zf/( 1 + ($CellContext`Zf $CellContext`Cdl) $CellContext`p); \ $CellContext`Cads = 1/($CellContext`Rct ($CellContext`Ko[$CellContext`ao$$, \ $CellContext`V$$] + $CellContext`Kr[$CellContext`ao$$, $CellContext`V$$])); \ $CellContext`ZX1 = $CellContext`Kr[$CellContext`ao$$, $CellContext`V$$] \ ($CellContext`Rct/$CellContext`p); $CellContext`ZX2 = \ $CellContext`Ko[$CellContext`ao$$, $CellContext`V$$] \ ($CellContext`Rct/$CellContext`p); $CellContext`lw = { 1/($CellContext`Rct $CellContext`Cdl), ($CellContext`Cads + \ $CellContext`Cdl)/(($CellContext`Cads $CellContext`Cdl) $CellContext`Rct), 1/($CellContext`Cads $CellContext`Rct)}; Grid[{{ Plot[ 0, {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, {-1, 1}}, PlotStyle -> AbsoluteThickness[2], Frame -> True, AxesOrigin -> {$CellContext`Vmin, 0}, FrameLabel -> { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}, Epilog -> { AbsolutePointSize[6], Point[{$CellContext`V$$, 0}]}, BaseStyle -> $CellContext`monStyle, ImageSize -> 250, FrameTicks -> {{-0.2, 0, 0.2}, {-1, 0, 1}, None, None}], Plot[{ $CellContext`qA[$CellContext`ao$$, $CellContext`VSta], 1 - $CellContext`qA[$CellContext`ao$$, $CellContext`VSta]}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, {-0.01, 1.01}}, Frame -> True, ImageSize -> 240, Axes -> None, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}}, FrameLabel -> { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\[Theta]"}, BaseStyle -> $CellContext`monStyle, FrameTicks -> {{-0.2, 0, 0.2}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[6], Point[{$CellContext`V$$, $CellContext`qA[$CellContext`ao$$, $CellContext`V$$]}], Point[{$CellContext`V$$, 1 - $CellContext`qA[$CellContext`ao$$, $CellContext`V$$]}], Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"A\"\)]\)", Scaled[{0.1, 0.9}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"s\"\)]\)", Scaled[{0.1, 0.8}]]}]}, { Plot[ Evaluate[ Log[10, Abs[ ReplaceAll[{$CellContext`ROhm$$ + $CellContext`Z, \ $CellContext`ROhm$$ + $CellContext`Zf, $CellContext`ROhm$$ + \ $CellContext`ZX1, $CellContext`ROhm$$ + $CellContext`ZX2, $CellContext`ROhm$$ + \ $CellContext`Zq}/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logw]]]], {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, PlotStyle -> {{Purple, AbsoluteThickness[1]}, {Blue, AbsoluteThickness[2]}, { AbsoluteThickness[1], AbsoluteDashing[{2, 2}]}, { AbsoluteThickness[1], AbsoluteDashing[{3, 3}]}, { AbsoluteThickness[1], AbsoluteDashing[{1, 1}]}}, Frame -> True, Axes -> None, Epilog -> { AbsolutePointSize[5], If[$CellContext`wc1$$, {Red, Point[{ Log[10, Part[$CellContext`lw, 1]], Log[10, Abs[ ReplaceAll[($CellContext`ROhm$$ + \ $CellContext`Z)/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 1]]]]}]}, {}], If[$CellContext`wc2$$, {Red, Point[{ Log[10, Part[$CellContext`lw, 2]], Log[10, Abs[ ReplaceAll[($CellContext`ROhm$$ + \ $CellContext`Z)/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 2]]]]}]}, {}], If[$CellContext`wc3$$, {Red, Point[{ Log[10, Part[$CellContext`lw, 3]], Log[10, Abs[ ReplaceAll[($CellContext`ROhm$$ + \ $CellContext`Z)/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 3]]]]}]}, {}], Point[{$CellContext`logwc$$, Log[10, Abs[ ReplaceAll[($CellContext`ROhm$$ + \ $CellContext`Z)/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]]]}], Point[{$CellContext`logwc$$, Log[10, Abs[ ReplaceAll[($CellContext`ROhm$$ + \ $CellContext`Zf)/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]]]}], Point[{$CellContext`logwc$$, Log[10, Abs[ ReplaceAll[($CellContext`ROhm$$ + \ $CellContext`ZX1)/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]]]}], Point[{$CellContext`logwc$$, Log[10, Abs[ ReplaceAll[($CellContext`ROhm$$ + \ $CellContext`ZX2)/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]]]}], Point[{$CellContext`logwc$$, Log[10, Abs[ ReplaceAll[($CellContext`ROhm$$ + $CellContext`ZX1 + \ $CellContext`ZX2)/($CellContext`Rct + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]]]}], Purple, Text["Z", Scaled[{0.1, 0.5}]], Blue, Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", Scaled[{0.1, 0.4}]], Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(Z\), \(\"A\"\)]\)", Scaled[{0.1, 0.3}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(Z\), \(\"s\"\)]\)", Scaled[{0.1, 0.2}]], Part[$CellContext`lHue, 5], Text["\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)", Scaled[{0.1, 0.1}]]}, FrameTicks -> {{-2, 0, 2}, {-4, -2, 0, 2, 4}, None, None}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))", "log |Z|/\!\(\*SubscriptBox[\(R\), \(ct\)]\)"}, { "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))", "log |\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+Z|/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(ct\)]\))"}], BaseStyle -> $CellContext`monStyle, ImageSize -> 245], ParametricPlot[{ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/($CellContext`Rct + $CellContext`ROhm$$), \ $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/($CellContext`Rct + \ $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 250, PlotStyle -> {{Purple, AbsoluteThickness[1]}, {Blue, AbsoluteThickness[2]}}, PlotRange -> {{0, 2}, {0, 1.2}}, FrameTicks -> {{0, 0.5, 1}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/($CellContext`Rct + \ $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/($CellContext`Rct + \ $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], If[$CellContext`wc3$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/($CellContext`Rct + \ $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 3]]]}, {}], { Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/($CellContext`Rct + \ $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/($CellContext`Rct + \ $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]]}, Purple, Text["Z", Scaled[{0.1, 0.9}]], Blue, Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", Scaled[{0.1, 0.8}]], AbsolutePointSize[6]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(ct\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(ct\)]\)"}, { "(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(ct\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(ct\)]\))"}], BaseStyle -> $CellContext`monStyle]}}]), "Specifications" :> { Style[ " \!\(\*SuperscriptBox[\(A\), \(-\)]\ \) + s \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), SubscriptBox[\(K\), \ \(r\)], SubscriptBox[\(K\), \(o\)]]\) A,s + \!\(\*SuperscriptBox[\(e\), \ \(-\)]\)", Bold, Medium], Delimiter, {{$CellContext`logko$$, 0, "log(\!\(\*SubscriptBox[\(k\), \(o\)]\)\!\(\*SuperscriptBox[\(A\), \ \(-*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -2, 2, 1, Appearance -> "Labeled"}, {{$CellContext`logkr$$, 0, "log(\!\(\*SubscriptBox[\(k\), \(r\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -2, 2, 1, Appearance -> "Labeled"}, {{$CellContext`ao$$, 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9, Appearance -> "Labeled"}, {{$CellContext`logCdl$$, -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, {{$CellContext`ROhm$$, 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 100, Appearance -> "Labeled"}, Delimiter, {{$CellContext`V$$, -0.05, "E/V"}, -0.25, 0.25, Appearance -> "Labeled"}, {{$CellContext`logwc$$, 4, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -1, 4, Appearance -> "Labeled"}, {{$CellContext`wc1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)"}, { False, True}}, {{$CellContext`wc2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, { False, True}}, {{$CellContext`wc3$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\)"}, {False, True}}}, "Options" :> {FrameLabel -> { Style[ "ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2008. Hosted \ by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}], ImageSizeCache->{881., {203.875, 209.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Cdl = 1/100000, $CellContext`ko = 1, $CellContext`kr = 1, $CellContext`Rct = 503.97845460832156`, $CellContext`Ko[0.5, Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko Exp[(FE`ao$$162 $CellContext`f) $CellContext`V$], $CellContext`Ko[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`ko Exp[($CellContext`ao $CellContext`f) $CellContext`V], Attributes[$CellContext`V$] = {Temporary}, FE`ao$$162 = 0.259, $CellContext`f = 38.9, $CellContext`Kr[0.5, Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr Exp[((-(1 - FE`ao$$162)) $CellContext`f) $CellContext`V$], $CellContext`Kr[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`kr Exp[((-(1 - $CellContext`ao)) $CellContext`f) $CellContext`V], \ $CellContext`F = 96484.56, $CellContext`\[CapitalGamma] = 1/1000000000, $CellContext`Zq = 2434.3224080233576`/$CellContext`p, $CellContext`Zf = 503.97845460832156` + 2434.3224080233576`/$CellContext`p, $CellContext`Z = ( 503.97845460832156` + 2434.3224080233576`/$CellContext`p)/( 1 + ((503.97845460832156` + 2434.3224080233576`/$CellContext`p) $CellContext`p)/ 100000), $CellContext`Z[ Pattern[$CellContext`p, Blank[]]] := $CellContext`R1 + $CellContext`R2/( 1 + ($CellContext`p^$CellContext`a $CellContext`R2) \ $CellContext`Q1) + (Sqrt[$CellContext`p] $CellContext`R3 + $CellContext`s3)/( Sqrt[$CellContext`p] ( 1 + ($CellContext`C3 $CellContext`p) $CellContext`R3 + \ ($CellContext`C3 Sqrt[$CellContext`p]) $CellContext`s3)), $CellContext`Cads = 0.0004107919299038079, $CellContext`ZX1 = 2129.789693461246/$CellContext`p, $CellContext`ZX2 = 304.53271456211155`/$CellContext`p, $CellContext`lw = { 198.42118067868057`, 203.2513919422062, 4.830211263525635}, $CellContext`Vmin = -0.25, $CellContext`Vmax = 0.25, $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}, $CellContext`qA[0.5, Pattern[$CellContext`V$, Blank[]]] := $CellContext`Ko[ FE`ao$$162, $CellContext`V$]/($CellContext`Ko[ FE`ao$$162, $CellContext`V$] + $CellContext`Kr[ FE`ao$$162, $CellContext`V$]), $CellContext`qA[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`Ko[$CellContext`ao, \ $CellContext`V]/($CellContext`Ko[$CellContext`ao, $CellContext`V] + \ $CellContext`Kr[$CellContext`ao, $CellContext`V]), $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`logwmin = -1, $CellContext`logwmax = 4}; ($CellContext`Ko[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`ko Exp[($CellContext`ao $CellContext`f) $CellContext`V]; \ $CellContext`Kr[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`kr Exp[((-(1 - $CellContext`ao)) $CellContext`f) $CellContext`V]; \ $CellContext`qA[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`Ko[$CellContext`ao, \ $CellContext`V]/($CellContext`Ko[$CellContext`ao, $CellContext`V] + \ $CellContext`Kr[$CellContext`ao, $CellContext`V]); $CellContext`Vmin = -0.25; \ $CellContext`Vmax = 0.25; $CellContext`F = 96484.56; $CellContext`Nu = 10^(-2); $CellContext`f = 38.9; $CellContext`\[CapitalGamma] = 10^(-9); $CellContext`logwmin = -1; $CellContext`logwmax = 4; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}; $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]})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.406981382873604*^9, 3.406981449629755*^9, 3.4069814909864683`*^9, 3.406981537009953*^9, 3.406981623244987*^9, 3.406981740236938*^9, 3.4069820000918417`*^9, 3.406982050898304*^9, 3.4069820852137213`*^9, 3.407807627442891*^9, {3.407807907916494*^9, 3.407807959650378*^9}, 3.4078080032651863`*^9, {3.407808297756538*^9, 3.407808309414173*^9}, 3.407809103622057*^9, 3.407809164229929*^9, 3.407809212010995*^9, 3.40780927641287*^9, 3.407809342140656*^9, 3.4078093782632027`*^9, 3.407826106845995*^9, 3.40782615817665*^9, 3.407826216266686*^9, { 3.407826263835888*^9, 3.407826280922566*^9}, 3.4078263295694838`*^9, 3.4078263671874113`*^9, 3.407826453432108*^9, 3.407826504169201*^9, 3.407826553040354*^9, 3.407826586777054*^9, {3.407826649930059*^9, 3.407826678103973*^9}, 3.4078408330676126`*^9, 3.407840875791628*^9, 3.4078411363965883`*^9, {3.4078415140406446`*^9, 3.407841540818445*^9}, 3.40784175399848*^9, {3.407841784259254*^9, 3.4078417964110603`*^9}, 3.407842029812647*^9, {3.407842130086638*^9, 3.407842149291717*^9}, 3.407842447412532*^9, 3.407843217706417*^9, 3.407843292102394*^9, { 3.4078435220122213`*^9, 3.407843537352008*^9}, {3.407843575854*^9, 3.407843596142973*^9}, 3.407843691730575*^9, 3.407843730993286*^9, { 3.407850588492031*^9, 3.4078506082653027`*^9}, 3.407850638720265*^9, 3.407850670991851*^9, 3.407850714088776*^9, 3.4078508241687307`*^9, 3.4078508723528013`*^9, 3.407850975124156*^9, 3.407851034644002*^9, 3.4078513310462914`*^9, 3.407851449368308*^9, 3.4079011837374487`*^9, 3.4079012803146143`*^9, 3.407901534833416*^9, 3.407901573661847*^9, 3.40790172073923*^9, 3.408449050172694*^9, 3.408449151501891*^9, 3.408449437108996*^9, 3.408449513414275*^9, 3.408453485151832*^9, { 3.4084535833191147`*^9, 3.4084535979668407`*^9}, 3.408497039231962*^9, 3.4084971103965807`*^9, 3.4085063619969807`*^9, 3.408506408509059*^9, 3.408506463035357*^9, 3.408506496330459*^9, 3.408506537019644*^9, 3.4085065716861677`*^9, 3.408506626730246*^9, 3.408507171739891*^9, 3.4085411237474117`*^9, 3.4085412982320967`*^9, 3.4086862582542677`*^9, 3.408686325351695*^9, 3.408686462707119*^9, 3.408686821750162*^9, 3.409057659112571*^9, 3.4090578899476013`*^9, 3.4090579931200666`*^9, 3.4090580583970203`*^9, 3.409058106900741*^9, 3.4090581403160667`*^9, { 3.409058212091486*^9, 3.4090582291948347`*^9}, 3.409058377027461*^9, 3.409058414850608*^9, {3.4090584695213423`*^9, 3.409058498041217*^9}, 3.409656780010839*^9, 3.409657308099668*^9, 3.409657543945294*^9, 3.409657630244727*^9, 3.409657706736541*^9, 3.4096578422573967`*^9, { 3.40980069940317*^9, 3.4098007147274437`*^9}, 3.409800851626919*^9, 3.409800966787161*^9, 3.409825340698304*^9, 3.409977901857916*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1235, 701}, WindowMargins->{{44, Automatic}, {Automatic, 63}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], "Graphics", ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], "Graphics", Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], "Graphics", Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", ButtonData -> { URL["http://www.wolfram.com/upgrade"], None}, ButtonNote -> "http://www.wolfram.com/upgrade"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], "Graphics", Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], "Graphics", Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", ButtonData -> { URL["http://www.wolfram.com/company/terms.html"], None}, ButtonNote -> "http://www.wolfram.com/company/terms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}]}, {}], ShowSelection->True, Magnification->1., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 408, 8, 89, "Section"], Cell[CellGroupData[{ Cell[1023, 35, 95, 1, 34, "Subsection"], Cell[1121, 38, 1716, 30, 69, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2874, 73, 148, 2, 34, "Subsection"], Cell[3025, 77, 5864, 98, 72, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8926, 180, 102, 1, 34, "Subsection"], Cell[9031, 183, 3854, 66, 112, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[12922, 254, 126, 1, 34, "Subsection"], Cell[13051, 257, 9919, 164, 308, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[23007, 426, 155, 2, 34, "Subsection"], Cell[23165, 430, 5181, 93, 145, "Input"], Cell[CellGroupData[{ Cell[28371, 527, 48591, 1045, 19, "Input", CellOpen->False], Cell[76965, 1574, 25135, 482, 431, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature KwDspVOOJgFhVAg9BGmsXCtK *)