(* 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[ 152893, 2939] NotebookOptionsPosition[ 134926, 2626] NotebookOutlinePosition[ 152414, 2926] CellTagsIndexPosition[ 152371, 2923] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Electrosorption-desorption reaction on a Rotating Disk Electrode\ \>", "Section", CellChangeTimes->{ 3.404105671464055*^9, {3.4041058687932377`*^9, 3.404105894346611*^9}, { 3.404213587340118*^9, 3.404213726194797*^9}, {3.4042141164993563`*^9, 3.4042141198459053`*^9}, 3.404263543202744*^9, {3.404428502542997*^9, 3.404428526361329*^9}, {3.404803514291835*^9, 3.4048036710571833`*^9}, { 3.4048037326798973`*^9, 3.40480375081988*^9}, {3.404803802948029*^9, 3.404803841092787*^9}, {3.404803900224763*^9, 3.404803903078836*^9}, { 3.404803944287771*^9, 3.404803994883864*^9}, {3.404804025477119*^9, 3.4048040428945847`*^9}, {3.4058481919806213`*^9, 3.405848194745288*^9}, { 3.40920423621765*^9, 3.4092042366118298`*^9}, {3.411012239491242*^9, 3.411012240348982*^9}, {3.411012927908148*^9, 3.411012939999192*^9}, 3.4110129703597813`*^9, {3.41127913632174*^9, 3.411279152597685*^9}}, TextAlignment->Center], Cell["Reaction", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.410151720218337*^9, 3.41015172165478*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJy9WM1OHEcQbjPM7rJAYnAkm8TrcLDiBNs5cEkiHyzlgKX8CCu5cEsQssQm tpxgn7j4bB6BN+ANeABLPAFPwBPwBJv6qusbqkc9M4sFGWln6O6qr366uqqa X7ff7r54tf12vLO9+mxv+5/d8c6b1Y3XezJV3AghfJDfs9WAvyfyp70+TOSR xak/3+mnmJyenk7Ozs50dBCXvrel8Xg8sSe8T5dOTk4mx8fHOvrZ5g4PDyvy J5H8B1va39+vln6yufX19Tr51/opFXk0GsEy/Yo0YcDaskL5ta2trcn5+bni HB0d6RzFYR7rBwcHOgeD8JX5tU5RvSZRCxkD5m0OJPCDSAoz+i7oXaWIFoY1 I9/Y2NANwGjW5qAsJF5o0lfDbE5xAImx8IqYiy2BeIxGNgc646lU7JL5SaN5 vUQH6iF0a86qGShbxr9kaeA0oXZeYyBidM9pZ9sZhhm8Txu16yuvf+gl+YZv UsczMuIoVUecEeaiQHDOqvcZC7KlX9ZMwiYMp8RtVr+nmwJ+hCQ2BOLEJHPu Q+NEDEOC/MSReEc0GjpnaIhCyw66DkRB7xsMIwrJ446+C7+zYXApcYUqjXn5 RQp5U7Sf80miNFXB61VNjmhlOLQz7iqCzEVO4766EEigZWIwtwZuHcZ2Dqpz 0YXfvHWRzhxc8XpL7dg/MoMtQvSh8UI+tGWgUXM82CtZpvIWczpaaEe82RJu Lg/oA/vF82upqrCKVIgFAItujHcsWVYVw/FODb/r6Cwrh8V26Gad45GriwNM 1s+lotu2KDrC92nL2lJGtJWmx/qZrRI8WMTR980WoNkxqUqFOLSwk+Ur6c08 0hSyQQ1wi48oe6gcVouTBI2wgWBYKN/lPArlZqr3Y+d1AKOcxTy9oHOMU/yY YvBkFOKhoJ9w8JYz8M8jz7e2ZG7U0T3zHqQC3aVVhWAogoduYDqlO0SzWxno zSh10zzENgHIwjEDGFZiIsNdrDeW+8KLFIYp1kpaadN+i0QCk6o7imHHA/Uq B0EOd0/A62UUPv0rcj63IKevzHat7689SVEZi9G/6RK53NKmLTGBIrz34lLa Xr4zQnofox/TJcBzB2xpPROMbC99D3krQ/cwhfDnqA3C0xnEonnvI3rD2xnU mCv7bd1o6G5Hy5zIoLEp6kAe5vhYcikyLeh8RkVaDH+CFaLwQ4VfiU5h+etq H1caPVBca9tKPHjZ7gA219i2LmZU1YKqnTvbN6ZQjG47X9Qa08877L6K5pct Tluj23Y7oUzQ0Tymzrp5UzSzOZPno7JX3jgPbCsbmuTcVtJqaEBPxwgL7DG6 utvPjA7nYpru1mc7drf/UyNOBzU00xT38X36xXGLfVd8sy658KFzuxrq5hNz fU38wM21Ney5JFk/RT6L8QQiE92JbliyDWlozb9olHCVFwDeBhua/cYMaIiu YLLjWUmta2jim627ljsDb6Fd94O22gc68PKH0EiMzd8Z7mYgn7bQjzL01new Q6/dDHISHuh7TiOD9w78zTTKvhPx2HDhmEKR2lWBecCnohJvFgy/i1+ZhjwZ vChYvopEdmKW8vJGGVjNyH3Lf/5atehVTy8V8TrTr7I4neMCSaIFqTeWLDzG H/urskXrVNQvkSB3yXhic3SCSAr+WmTbYtVvVk8xt1b+JqnrZSoNvJjY64bf 9NOrSgAfuEzcO8yg/ZFysmyy4mJTxIMDU89HmpD8mTIzBQGEVMLx0lOV3hXK IZsSXkWS3zP683TL929PFUs8byozbo6VaezlDqsiaGeyqrfM7HZt2o1cl/7X +qU/4cZ/o8MFqA==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{196, 71}, ImageMargins->{{258, 0}, {0, 3}}]], "Input", CellChangeTimes->{{3.411279070049827*^9, 3.4112790774673643`*^9}}], Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzVnUuPZEdWx3MyKzPr2e3qKne7bffYbptB4xFCGDQPJARs2mZhxsvesLBm gGkQDJoHI1oIWPsTgBESO2TxBfwN6gvgJQjJC9b+BMU9EecX9x9xz715s6tb MFeqR8aNx3nHiRMnIj/8+Gc/+uO/+PhnT37w8Zvv/+Tjv/rRkx/89M1HP/5J V7T62mKxOl8sFh++ubD/r7t//VfzXNqvQfELLv3P9Ofw+tNPPzWg0l97+Pze e+9dX11d/du8aqns73LPf5L+rK4///xzxlz8PP3eXD99+vT6iy++SIX217ro /n42/Tp9/vvc+7vzAHp7XrUjh/XRo0fXX331lTfaq6lhT9OTeU3fCij0MP1e p+4ePHhw/fjx4/S3g2zxQTDU+byh3gyavj0xVOrjHzKpvzXNlV+Zfn1sn5cG z/GMih2IBt4nn3ySPp1ON3noTaz6l19+KVgdJFZamWH02WeffRD0fme697eC Ju/EvQ/JFZP1GxPvTnw469a6t09HE/VPvf6TJ0+K9JxM1H9b+gcdiGXSQt0O 3ZUVH5jsdPWtnP5/NxjzfMaYWn9kzKVXtSITWht8mf6z528ybd/wtoaDcclF eWkI0YHRzsbrOLhYxux6TUCwEayrrsrSBvce3JgtVnEPpwItksdg1tTKTay6 n5EeYLfV8smgE8VhDx1mIz287iJiWNgrxwLmFiJ1nx2NdSqznvnpRnK4T1I7 7UdNSdN/IctsCmY1Apwzb26qY9gYot37u9Krz5LGymXmsc2ZqwKV1bw3QcMb isjrXmxdW1X76f5fBiNmBLfJdFgv0NZHth67jgz6A2Ql1e3qLK3fA5ElG91q KiGdOAvqzSDk172qELIgaphAXIj5B1m93nQpsZ6YlKznrIu5S2tmWHTdlC7n mg8wMKzQ8bXXQ2ojkelgKeNjHrsxKylsx49MCeMbTpjApeMsspL66yg5iV/U Py+Mdk5al8e6f+OSwf+i6Ld2ibQx8crssfFt7I6GTrtN6gdeM/mJObbmCDrD S7cDoRxjFfUMVQzmqQPLsBgn6+NQ+oCUxyLBNr6Vdz86c1ixSeYtLzNsoQpd Kne2z0fiRyev7UyO5Q6OSr889j9K6nA7KQ/T2HDX8KSdwdqNsHQ62jBUUzfd qNh1p4yB0aBjI9ooZif3ZeBLAQdw8WCguQhu3LM6O/sqyVIJSN38fvrXjdVx qt9OeZhZ3nWfwUmtJ2bSyOJwLrSeS8UiansmZe6lVLYEEByksI+Xg/pGApU+ rf+GSCQKuPEyFNVmiqW/sc94p/Tdla2DbijbRYoLAbmRqqJgOG3X1+7BLpPF 2aZOwBP2WCf2Fo31eTl9unNzFr/upDCYxHXAcdn4a6FeeS1zpk/X6XUayDRi OGcY3xBbWUiU+YxZ2ng0RcjbAS3QHcMbKwd4+C32t/tBJJQP6ffvpX+LGFnX 7twV0bU2iAyGMFL9B15msoL4g6axw8BRGdK2Z0502K/iULy0zWD28i5QGhUK J3aBQEdDySOlMQxdmCqlkRX5HKXZRQTqDSezTRKrVrY7+dhK186PIgI4mUpf q8Oq8ZaUocvnz4HnrwmFWl3qytAliKqa0VECh8MNf1Fgr66CEjkc0A36Gm3x 4ZQP/uyib0QjlmQGHTTXmR36bmQ46qX+K/06LvKt4Ssr835497IMO+UjQA0T Tiw91GAYsx6ENaxMKJL4kdZoZsdXyqLFK05Gr1K8K1u6XM4EL1IQRAKmUt8l sIW+5XmrZ7swjwxfDqHcDj0rwDG07TMrXKyOm/2yzjBms7rr3q0asAwEyjD/ vS+7joapdBCFcfAWLHndjAg6z1221PjNUG2aGjZd2YEjQQRBWo7rdVriwm0D vbWWw9lvM8bFTJXDYltsIF2CO3WZL2FEBX7Px37KPik0tndzxYQ69gPvfju9 K6YBhwIpND21Lm0YfPnu7zsOma6u2sWxec4Xjr8IfhFsCN91R9yLiKY3Z5Sh 5q5VvbB3RUXnqu0u6CN7qus/5+hC16TY4mUw7lKooQEXLJ4RWVbrBERaNFiI HI0OcaQgF4K7dUiEN1E63o/nD53+k6o4ZExvTPJmAMLJnGejzJhqtWwVlMFT nTch0C5e6VZJvdQcElK9Ozy0cYZtlGGlTTfOyrtXURjjU3rxvdz4D30oXQ4x vDiIPtdmW0qZrp5B/XUhG65bpHZRPMJg1alll9rpLFjDfjzXlDErqci6V1T2 HQbqsOyVuYiMw67qhuHpObrWFVtqbt7p2icrZVs0y7aeMD6MwfodJ8jk6u92 GR4qyC5ZBRb1jIssOVSZWAOMrwEPVJkypRdpcSFzPLNV8Q1seDhgMm7vdC3A xL4KKObCskARhGID9Fo9g1PqbummwqjtTZKglh5+pGF8KkTFdPGkqxncgQsZ ueb1QXERfF3+WlNsTbpXbwnpCdx38OKWydIJF6AAYiRwc1NxULrZzsRjfKZa qXlaLPsNluKDj+qcc5t53w28bx9si2fIQ7DKggdq3ZG442CcXK+eTTEhEoz5 dqoWe2hdWabSnUJQe3TzVDbSBgvIIGqJjdOV4dKH0D2wwM6ncp1uICDDe5/I nZpbaFbzqw/U472o7LvtqWavWsNj10L5OkLzasr60Pty76aXg2Uypys1C8Vh lISHMghxbXEYKXbSsO/OjpfZtyOvija5l6OTFpqwCppvpqHfVEYNLjHBL0sg O22oRdrCJh3rJjhj4BJOO3AUcI/dIVu6uij9Ip+wB8UnQSZxpo0Oz+/4EKiB byuyqmMBpWsX+2vVmAG64dqwpPeifrSvPcpG4lhcF8tMmc6o7VrW+DSqFRnx 5B4WG+BELvtRvosCvMUT1gkmMj0aKAyIqlrwZwIf0Y2fBl3jKrdahr/qYVq2 nNRf6kZEUnDdnU8QWxxZ9xBHetjq9kGhPTz5YaqzDjV/6e1bx9agMdj7VeFK cVpE49qDY6qbyiMgK9ItyKnQJ/j/HuVor4biIyPJBWyN4pC/pDGBP3XyBBIx dEhZaEnM5NWgz/vB2On372Sc/mseaVqdNZD+1Zs2JIMiyhCYQbZFKvxFhuB/ Agj/PcAkS0Nuc10//yeJhr9spX+b/tTJeR8FZU+CsvT7P+p+NEcN84FhdQ/l g6Dqk6As6l6zupgHzAwTxHg/qPckKNO+ySZrknySVt3zd8whiGu/XRonG7EL IPN88f1SSDU7rmrSdPnTbzOuS14Sw5v9IVCpa1tsTPIoLK3jrLwy6DVtx3U1 Datd2AR1JtRiBYTvr95Nlp/DksRFToC6pCmpyTA9YUFXMGUhGBEWr8NAZKlx HoC1dvlqsoLYOQsSvTCY2dPBY74unuK2BJdxc4FvUci6iShu9Y9lXNLarDtj 2K1R8GO5eyYc7r04qVjfnDzs9uqOVh4rqyHurEQfqq2q3XH9s5LJwaNLqpEM IFfVl0pYXNuin6Bpj6HN0k4yQrBGOKo9WKsSlMw8zb/bQEy/HD8t78hI0Hru sWW8cz2ES/OetlKGMwWIRrmWmmB3Lf6ohmYRXObsDiX1LVkKs6NmjzNDF/91 /K8PcZq9Ow+wgFhR5g3YzN1PHIZj1zp1lIwU1ow4NjzuwdOPJsG0fGRGkXAp /FpEzNKZDBDZGXje6N1//vK3vjnFSKOSLK7KOJx5W2KDPOZx3vXhTUisvWGN 3ZSElzz8cZFiAlmYPp2iBVoUyB6faKp4Bnp9IBhgWjTltebXFP0PyjuPEK2k CWsutAZPXthUzWWN+LEDWYVuEBudT2XnZuvFVPWl7asBImT2sJk+FMo6SC1r GbYYNNRFNFe6UeQr2iWdW7rzxcrcBJ7saVWue/vDR+7Ac+KbphE8C7rpw5/n tygHi2Ieiyi9LH2SjmKK4hnYQWpQzqdlpanmo0d1XbJQWSHmrYweJ3aJUAGO TGgZOPVl88jrM7WSFzFv1UISS91OHBFtLsFSrKlbSEFlXdpjCQ0cNq+EdISB fNzRdJworDSWk+DcyXpxSLSjiGVDpDnTEQEzD40n47mvdoxAuY92zGAfM8oN kE4fGgXBxcODNUM4d55lbmz32CDqSO4PyJuwSGBGZxfr0RAlBbk9quGhZt0L wMHMnL2ouNKeJEREEWHKRybzLMJLDbTu8hdZ5xP39BHBUdcB7lSX/WzNV7DH Z0/NJ+83wzpCoF8jCTJzTw6MO02xhHefsx7erpJ/1FCj5Up2jD6bqCiiJgjb X1s3RYp4cx9wFJ1XXoDkrJ8DidKHSm0Pq/1oezTvo3uXOXMywBRKAsJVkNvj i4lqasODw51tdRIfsxsaDYlmNwGlzOyyuVTyYvifuHCblMC7How4lyJKu0Pg CEMBp01VeAaR196ij7rqrr6QGDLIIrHKKIUMUxmCc7Nr7kjZzMmJYWnCj1E7 g/5StSVFF4Ao3Kk4J45DYsmiPgHKBGfEZyvI830mKcHudJSjJJuYZcG8NyWO w7yYoGz9AsU2933rWQmvR4ZbnqY+/iijfct1BJ/HHohobY0ZWaROB0RTOxZk KmmuSC2xtVPje2+hRjDRRatGUbSS4KoUjDZnCaKhidfX1+UIhipvnbYaw4vS t4Ex92x0G7ZN/pCj5mGyBQemd62/EN2uL914J5jc/b0bF18Gg0Z6pXvEOFVT FmYEuAjHSOjvBWUPYgxS95UQx7k3RmYgP3cZ0GNy9kjORpQGpHnNyuj+8MSB Hte3h5xtiRkvpiKg0vUClqnX3vUzlQgHAdjeN8f9jkOt8Vj3VItYC8RgUMS6 DW65AdIpvc4kyLZNjxrsyt9DzIfpVdsoNgeY3ue2At8ebKsu3LQsCpdH2XLA R/1II/T4KDPNs+GxGeDh40e5EJGGoMwkMfRoTZMoFbgKsa2liTcrz2OwsfDe yGNgo8OnGz0aIWk/RMw06lK29w6qvLSU45MTpPT8jh4d0V0+h/Ougy2b8KFB BT08JRv/woHTjcWufZT0CsXAR7eFOkoQDaF3VnJXJRl7pSHUnSa/ypCKdrLU PWrPK7888S4y+0yTss220HsHfOqr0kh2AjjX4Ef8ezCBgIrsL4L+PgrKvu39 IUL2uPgUYkXvImJ9byZeU2MqDj93gWoSSb4fF3+3kVin+N24eCTl6LvO9aY4 QdWULUYGVAyu60eTKchHMaKQtHAZlLG5wZlW+/RuUPbXQdvfCOr9updJRKza om9h0bbZUCz+UaqTP/aXQdm/SBmz4WVQppcO+FNA8mMbFdpatgzG/XEwxm8G bQ+CcX9VyMOqcRP0d3cCliEehWSkTdonwlG6xJNt/+8HTaConIQrFNUyKKoZ Mbqpix/4blC2DMbNLtRRmet1MdSuQO97XdmeTXXV/hNG+JaPJX1UJ+TB584e 4zPbNolD5wGquu0GmdqdYZt13xAwqbcOwLwbjLEMxnCh+Cd/pev+VxyINmfR sfkoaPLPXqbHjS6DMg2SwFiIrcfK3g3KlsG4+NW7zD3bKcMlUV32a0FbPYTe 4rZrXDikKV5IgeKmS3Ho0mZAmLBySN70lXoHAXywsD2u5f1nkheZGvMsPOOk LB4JWmMhXLTz65dKxrwh3+TfpMGJfuAeSu6NAYVLYl3gprBpMTPNp84Ueqm8 ajJ5dkLjtiFT9mwQabL/iaeMQOAgrKt3joXT+LSYJejP7K192uPtlu6Vw1Df uTlwTWAbD+e2zQtgJCvzG8v6XrejtMonjQylOoW3RvR0ktaB4LTDBuR3rbhd vePAYZOgpnRSKXEJuix7QHok+gbisfRcQ4qYOHd1uSgMWwVUPIzERdFh7T8C fe7louolYHnZ3W2JGGX+EedkQUlSTMOsafG6M0qYCIy2+4EOrCMbs4jUtRWd EcINcv+aWV0PskkeWIbm1QK8puhNCdyIsO4STOJcyCRPTqo0NPqjZHSPNejP /qy0fTnGFIS9y4zhBrrMUtQz8dDLFYhB5BnuuLhKuoIJ4LrtQi1dDO3bdpBm So85eG/Yb6q5ztfFxqtoaubSIi7lMY7jNBkvWXR4N5G3wGndmXheCKnh/GNP Q9Ediq/SibPMTj3z2e5KtHuA9ilHxE5Ln0im7nZossIEgdaCMfEEdsobXujp JSvqd8hrwWAYFSqEUnSnivi3mcXR5SGZEWcVdjodtmkYsl9TnBudzKF2V7Zp Xjc64Z4U516GgcgjvXakkJ3/663b47JgsIfRtL6zUM2RJCjiQSGj/bbW2dxU yPKuh+owejcDGvZ1aS05sJOJL+07IO890dOKNhwsZl3QtutsAhAyd3lsOPP2 blE8HhRUlURxjzijdPFlK7uP+mqa1OsJ4YiJ1V4zYY9n7VbZsHPY/4VeKvCs XN8nBzAK1TOJj7WfQGRGDt7JQBMj3tYEXKHrgzJAI+8w0l7Gx5d9Fnmqxz4s 5a3MuZbAmaZbveF0jvjV7+5W71poW8xbyKjb6m2Ro9tzGDwqSExVkpdUxZDa +QfwriRbYdj2qPLn2HgBJXLfifWgZcasskuxKu7FdZHto3L0kK7adWR/cmA3 +Dk2u9FxCridTrV3+7RniF0cyzYpE5jPkFN+gW7Sjd8OfFYWjUCNrTas/ALy EmZqGboL+wupV88R20oDnSnIXZVmgjDJrY96eR0ygWeliWQCcglc70FBmNLy G0bpfZTt7TYqVyrqiKX6+tjWuSdO2tx6gyUKhkdk8sNdMkGQZmyt5BYvuT3C O6+FWJCZcLL0qI/6yo2FwL9Su9Tk7Jb/uaOgmVXtecx2K2sS7kPTRTCXeyho Tfb8ELTx6bYCqV5/cIc6c4pflKCJybExH+Qy46q07ofCDF5s1YrX5N3eqgI+ rJPxfycMeGq+8qW9rmznz0/7v2tv5M14XKU8UDl/0fBzE/JTTpM9Ax+Zbub4 THqFXlS3OrpRn/DZLRe1AIwwcREdUonKUJJI6Wq36GxfgRFmHVXMaqmODz1+ LeyLcYginFmPs3zE2wkFaeQwzk5zoogCF6kucoxTiSNJGSeVTNnTJrhLDnSx P7hJVqd7r7JXg3BUJfLqrVD2uPfk3U6Dex6MkaeJTUmy4nEjHaUbXngT9j4J 2jmmGgJB6jhJPAUdbolkHlZbQb4srUwKfGTS7dpGhDyRMrBQHwM/YRPU09Sw Wgm2A6LBlGyTh3AwC8hFUSVZw/yL9pCj2j3qR/jhvbWZ2sjhlZw9kzsTyy6i 9pVlejI4o95brj2+TB2a7PWgbd7esVjyAdJAO+QPBuer2YoYFFOlih75KHv4 DSk0FwKDO7foPdVnOdnJLherF4G1wiMy6x40ULWs3YltNVsY8KRK9hCdjOIv p9bK4Yx9JtqbuRW1qxkcXJtziqyl4H4s3icSs8urqICtD0ju9iouBvbN+Cy8 HKVRdOBv3IGKNXRcds5HCRvB0tbp7/AbV4GbhVxqb2yMddAfNpGpfCW5jcPJ YuQ0406rE00FfqPbo3R7HY7YQioPQ/WbgZ8x4beuc/8dmaPRL/YZ/TjoALcB puOS+KbB1nFsUu8uvZhlrG8a6qLCiizRezsGYbSVceLQ0C8byz60HlBw6/Ys XkTqZutWn6m6ShXus4p7pRsQgVlEgwwcfZVc//ToRm5nm6NDIvgUnkyaPuFT RGfDo/ynOfHZVp31Cgu93WUb9DXiUzxNX0Nlv+uoYa69j09xVtVn/w7KQQLa ucY7qN+oznQr1RHoHUcg0/8zjjnOgs3+esoZ8qPFJVJxZ+foeohT47G6SXNF Pn49X+qBl8YRU48j8n0+z/e/VOu99qgptMXTaOk6g5a7J4LYAxDyQkedn4Iz unOlgBuFbsj4/HVCh7vwz+w428n4AGhn26sha9p+7JGLfks/Y8QKysZ9j+OI LZE0LScgHoNEaYvATakCqTxF8XZ7GTuINymkrQconveEBzLc8ZmSyga+cMcH XPWUk1/VNhEW2Qy+7sptus6D9eRWf42PXr+6z04PyXXsk88FGweOft3ziMA4 cgxZeokjYU0IoszdD9D1NmeB1HfR75lrMdF4RIQJ8tv9n5E+mRRz1yayPEIf aNaGzmEhGCKgEa8Oi5SdJNdJ9LdwkL+jrpxS/5aUYS32u/QrvvEDofBJVEhZ I6g0IbwjWWqAQmKfgqdoZDq5x3MvDMxofo24h3qyOL3TnBy2iXPvsl7Jx5W2 pQLSYYNwvc3W5Q2y8BBeBbAmZUozIhgbeCbOagtYhyFYsnTIjOuNGwzER2XJ 26b7DY+i3w5z8mgP5sTTtM+8Lf14cMex+rO143NaToAgDS15IpJ0MsF1evy0 +d+7rh6YkhZFa4TaWcQvqsW3nmUhW3hEHiqOOFjVVMfqq3qXJeF8lyTMoUH5 5vBxMYhvJGCCidjT3mwghwDPKt5GlArK3JCcDtRXU4Fb5NNGhg359TniNApO lGkcMZJ+iX4EmqjDj4ESXwrxTiWKY0aMMx4k7toTyNdAtMdkc4JczACa+cnR 16d+dYGvv6ccH02XtGciBqPzkfJDU6I00xP5nLPfczgf8qWAgbnhSqYIDNRL MhlAYfGW15f8lHwq4XYMz8Z71MnPHswWZy76+43jrGo9JpBxyvcZim9YncJx WShsUaZnj2s7GAeZNFNxS2jW3qHDdxQrfeyRLA91n5S03EmmISEk4nKk2+bi I82RarN8FEs3YJJNgyfaJ/Cui1iJJBdJ13f2OCKZfBMbRPU3yLPHBFpaTxc4 nJcdJlit1Deu5mPa3g/KNMuJY+t6Ao25nLN/spgpxxu1bXRvgR71BDdu3tfl 7u2g7Z2g7WEwLncjaD4TZgsx8h+WBgh0CX/m/UjdqfTeBlE+NTNuawvFyeto OU3Zy88A1bZApTOErwDDUfi2RN175Q667u8b3oQ50T6dx4CtpgDblGUowuxL T/22MwZ4KDJUL1rqPWImYnueyNcUKX7IilmxmrLT9xmhtZoZKJwe/yr0dbWj ZM/j9P2cNUr9zsim2qa2x8GfYRiMhphw1tm6FMk9pNH0xGd1M8Oivocw2rOP 7AFtCTXZJxabZDoqqGJ2qxOz2I1vBv0dBWVnE2MofJwQFnI4HgeVdl5x9fcw rmRicBqAsAy6ZgNHwNJ+osPpGsexoU2CR7e2PKSvc4icAUt/bQEPGPhqPG4B X5k5JCFf9i3dpSiK4N1BHNlmqWwMc+cDGZZ6dwJQprwbFnm+uVz6VIo+lDKX 84KewkiwUOQelIpxw5P2PJXLoBudTqu7mqrvtIs2hpjMvpBbEZu9qmV/ZmSt G0LpeVQulaoP2bvJeMNfjZ2pJuqHLskC2P2G+otpy1q7z812sqyDHu4HZXrD ANYHj0J3u4jetQenDPZvBn0cBWXnwfhcy8H6xSSDr5bX5b893tfpRNcRGioF GmFrj8hHqi1t0wP6pKgbs1TZMHyv7DXOptrHt8f7ytG14+Kdt6tKxNVXKa+J 5HF29TKAZHzZV19bjSorBR9KvTo3KLh+atlvatT0QZjxVHwpczHW0aK+xypS McJ3Lct0CaIn3519GmbG7Xhq3xeXb+Ai3KAxYEeE22ZSWXRbjqcmdFWj77Zf By2iu3TuT/ayDVq8X1psghbvBONG9/D8lvCCtsug7cQ9PNf18//oi6FuXrr4 2v8Ci4nMdw==\ \>"], "Graphics", ImageSize->{785, 77}, ImageMargins->0]], "Input", CellChangeTimes->{{3.411279120606574*^9, 3.411279121709567*^9}}], Cell["Steady-state", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", Cell[GraphicsData["CompressedBitmap", "\<\ eJztXV2MZcdRvr537vzt7OzM7I/t9a534s0/SmIvBJyIiCCHDQjlh6DY82qF KNkH4igJL35A8ICQLZIg8bYQeM4jL2SRkAIEsQSRP4UVP0kkkIOIBC/mif/L qe76+nzdp7pPn3PvndjBR5p75/Y53V1dVV1dXV1V5z1Pf+qjH/7Fpz9160NP H7/7E09//KO3PvTJ45vPfKIpmt03mczOTyaT3z+eyP+L5l/9SK5L8tEpfjmX 3nX/7y7u3bu3uHXr1uLk5MR9y++7d+8ubt68KZhw5S+++KKr865O/e3FjRs3 Fnfu3HFl8i2/3f2mDSDyJtX7A/f/3uLq1asLxXbo5/bt266+/Jb+BRa5Grim jixnFp///OfDcOQR7lp+U9e5vndcu4Bb/qRvuWScUq/pZDJ1z87cs1LWPNf8 8mO2cFYa8xfc/xvu/rPPPguAfRebDhQU63AFPbsKAbXqm/spavqOPiSo0zYm aFd+S0UBT4YmKG+e26F2BWVNcRfkP1T2ENief/75AJugS9qUtmX48j/Y4wMd VM8dXNKRXPK/0GWq9wjdoJ+v/PNGQ/IgAEFDMwOBL7zwgkOgfMv1c76tp5UE IKc83jRzqLiQGlLcgOq7fYd2K2NEU0pu7Xbm2lB2D+wiZcqTvqH3+f5/ge4r vibncgRG5/KgdIq/5rd2tBvmGuYOkIzGhNiYHO/1MBwpuuQRqSLEJxb2wzoK pAX7yGMCCSQCqMBlLCUExU35VAqV6enRqbQ72YpaxryXVprazcgXbp4KBAIc vtET9TLx3RyEQaFdCATUEajRFvBFz4N+8pjyfKCzVBMQmc6CXkVEg1H/Kd3J s0AEiwN3fc7TAUwnfC/tyJB9X3tRfeE71AffJmT21bY6XWG6i9SaKusDc/rs VKtyqywthNM3lNmANFzcHXXlmzwIjxoAu/8FceBNVKfngWNAIwRGGWSGkB70 kea0G6VFOyowK9inoaOOqqV189ewnHzOwhqywFx016c9dAdaEYSRdcI3Nndl kEFYgCDoDDwE2ZVSTgWsnwJnOrdTauF/IbQHZQfjNKmlzWv7mzkSTZ0k3HTN QPpkKCS1mM2EqwWrUrWh3hntSAggnUOY5iYHcCzEkfvN8wrsRgroGPQKdEEK zYME6KMa1obNChRrF9rHYdRHbkZA1griePVCvynCF0EUbTiWFViUA6E2yE8B ReYxHgXjahdHLU/JxzPycTkmA+bNws0q+Twu8iTuCakx91CG+Shzmpcn1t0A IVQqZQHux9PgimuqQih1umDaQazKJc+jK57NEc+fjUbLELOWAAmukknZppVU LYd6zU0XwkiilSTT/fQcyv6C2kOZ+/w14+FrMZW7k+3ItcNLvFzgBqwRqj46 WFlNkDJl6alb3g6CRqFrfEAVK5NY/NANFJQGZR6qeSA66Z/K3dexVkTdoAvo x9IkECFMweoFVIRkFQyggHpQu6Q+1iMpA9OJ7gCKow1Zr96oZdjqyK8vaxn0 4A7VIIENqnWXoVkYk/y6SjAIfMKJ1qbikvHcO4gz0N6XqQ9Vqzysv04Dg1L0 sIfV0nWmSX8ioa5Rf8oekx0D1vPuczPaV8il9c5rFWkW6Hxtgi6ZaH+pZTI0 JWc8FJrVGIpXn7dM9VnRHkgs1XXiTC5oGauMQLkMVQVHgBMsKb88nBthQqEv uX7J3dvGbihMfPxWUoLipMMpZ0x+mwiBwb6LkA7I3kujwurjtz1z3h8HLDyo mOJ9Mk9Er9B5IQjdT2r8rNH3e4y+f7oSxkvKLDJ0yBzAG1STmDESzAi0CuHk CeoV9Hk/IRe97tfR5SFFIGRvwEJzeQSeiYwr6fIGCad6VrN3kDq7ju2BcFhL DIPOW43RvG/8aB6tRM5FHbX8FsQKNPIt8vGsPg/tceGW+YgemG/y61CpywNG k03zM2UwfVyx4z8tAw5wCmnfNHFEAGHTvjWSt/18OVtLnkBmWfwPynx8RW9D IOFSRDygKDeYKRLFUl2WEs9IOzwtWEJE9V83EhtYrrqYjemJdjL0fGx9SL04 bDrlWWUQgz42jEHTlXQRhJ7fFgi5pMcGAkwutGpMLrUPul8eO2ciJvBPt9qv 7i6CtWDPYDQ1U5kbmG0tY80WepO0DTmyrbAMkYZW268bwNhgUIEBisS+js+S XVcV+nRjqDh6QIfAdGXFGqokqx1nBoCLRZ6He3kE2jBsRv+WDpvhiOXHRsoK N9aI6YtLosXisK0R3G5x2OsV7toZwJZkjP2iohSKv4y76RPVpQhbw6l8Yjys qujE/g0FJz1XESPYLoGDrqeF52GghEgB2nFAkEHdlBift36Fox5dMLaCuDXO eYryBEdQLbU3Xd9oQy4dxtQpfduR3cWYL9YyuWP05nepu0E5YkuGGqyD0tT8 PqvM14+MjYAMxbMHfF6cUXS0peTbSMk0FdpNFXswJOFKVpCHtAmBTm1c0gx4 mHTYIiPtKEXY3ALLefPbN3cuklSw5GCaQ2LV4kwZxx8VzCM+SCVFl5qtdcQL PPncDOdCWJBVSnnUn8kNrloHwwlIyrZGu019WS02UtkMutDM01X9B5Q/d9cD rcUZA6RKr2yMKWTJsIFSZb8aD8NFLJiKSbfdS7pZmAOp+UeeF3PZvpZBriza RezTyeMyPXaTMrFYgauApRZzW0GAQKiAKP7cQqRCe2IkbQIVepbRATnnIAC5 Z6jvA1esGU91rXvYGQesi0PUylKfUAnbPlvrm+D4HD1XwgNmM9hE50naJHMU JrKv6NHIFvyYFNth74UrUZfQbEddgoUQRkwWSLqriuBidtpVZEEQsdrZoN86 jMXchmCv5STL9mlpHJuKKtivyaUl4jjs6zaUkzJDGMRJvq2L0aIkV65ttJO2 bc042I3/H3DkbPVDyHOKJVeWl4/LyJQDem6VstUi404vGWfMsZEQAM7OUrsq g7FUfUabx2qHS0DcSqq1E8hasjbCKYAeBU5bFmpJgaNDubDNtHyi5EqcympX oa5Wv5mC5m4GzX27T3O3eoNRVR5NlHZUC/a6Ad5ywC8PYqaMAIGpwEeqnyqW pqaCQzV2uJv1lKXrBw4xaRfVInCGERFmsqO2fPkshXVL8cHnRyQ7uitED5C9 VIbnEKHeXQNaNbgbR3AvAz45OxyMktTuzsPxImLsDMSBywDRYmHWd79bxCzu Nb+hsLHgTOStAEOnC273MlTegiHVjQHFNBi/n5HFcDfspXBlXG2xNWLTffMI nBmkL1UFwin0TKU4e2vwNE2ZwIS7rIMO7d6hbaoud1Bf5GEwxABH43l2KLNg 1mk3n3M+yA9GamtVxgaSDqG8e9fZQodd2bwREKcHOefKQzwag8pJ7AKSF8Id aOqpu92RvGZT844zl8guz+Uz5vIAZQfBWy8D7tgbDgo2VmuboxnZYmF9zg5h HSj4ACI7VeH7PUZQxYOCYO2jB/RquL8U5DcWGRxgC/7RDfum5OX3Zmhe2sJR SANCuuNobWybuViGi1qlbvM0456bMjFxb3Jdd+kSuW80va3DEHxiVRVyCxIw hTKQYusEh8pF0Fv86kqDDlCwMtDcfwNBBL8rSzxCIKF3+Wu6nCnwunFzgKvd MWhAGeAvUc8xLmbMmaZ4nBe6tbRoTPAu+cpt8Jka3CgsOmHxgIFXJzr2Yusj 31G5BwvHeVYeNInOGk2XWPkMoQiDGIciRBkAGvxhx92HOr0HuUS21FgubbNJ wtVkp8Mgx+MjVGvbN6PmcGHLBG/5ptmzij3uFbb4EiHpECJ0TwYdv5qfNxrY UZLAA0bjmYrMbIMHa133RGc36Ccn6hwKL1x5FtRu2oQgEsTBS9ISRK5Zf8Cy kbov8GkD1AEc+smVCK/Ar9aQNhULSR2L7bEEYb+FS88NLQGGCccsQVA7oGHa ZPpmR3itRMt5IAz0h3bXujaCHhWah/96HTvPrdkyOTLaKHL0PHjl3tBYM1GX x7H1ZuoO4voH5Ro4coihEKGJ5QC2p50YB2GfdV9bwVdBLvCPhlYEBZpduSyR xPzHlko1KVg7fQqshOi0yMduNbwUo8zSrkA2aJ/6V2LentBPzB12rPlRLYNy 0eKhHzd0Ns8xGjFTtAGbXU+0LKQbhapgBkvYkHrjLh1BXtjMo8MJhT7MIiYb x0JihK+yScQ6MA41/L5kKwrpgRTV8Ncx5DsuVylp7X08afFzhidRnbaFOmCv Pcnj2GOpjwgMqgPGio0Oewac1TuJ4MGWwnD/+iy1rEOLdtNwpGajBMpKQgPa IS6VyoeF7jgsGixHjhNht3eD3GdRF0J/QdKD6+7Sc6oHRutkypcc42XzZf8Y MDPZ8fZxRU96HKoohGUW2LNOVK2zvA3qKvU96wNzZtSFBsMohFC5Q1F7culB FghPQsVd2qwFNTYmRFB36TPXDZpB3MsjYHy534r7cXR5VWVd9gwAYmr58oJR 1+JL1kTgFn7PZ9yIHGGHjpEXoPRgExKChUlqLl20UuMzNJTW1ORNU5BqC+JL Fjy8nKIuzo9x4g/wwJPyDPzSqE/XDzZb4CzVAx9S2pAQ6zT5agWFAv7C8a/F YQPzKiB2iKIHvABwbk8eOYwGj4XtCAvGsRl7+UIogLaWwPD8eVALtSsz2oFP NVwWoGLiMYDjz8lbfwDWKBhknNOlBOJnIAKYQMAqRfatgjDHw5q4UsFetdDP hnVtQQ/6W0d5CLkozXveCyQRH2xctQL/Xuc5uoFkj+5ibDBKcMjd26gMUgHG 5eSkInXGoGkwOSrce7sB6GsDoK8xgLLiBdsarzVqwEQPFVjlJtBtkcLyC9Fo wt/RW6xzfoOog5Xlgo2o83ax6/0nbUABDGJG5VcCDIsRAAMbqPxyzf+KwSga Dvs5qoM14etadk8TLHXagc1Afmk7v0u30Dfa4XMH9/nLesOIiv49ggd1vqbf k8mv6jpmBMEv4qs/dZYPnRwe9OYnd3VImSv/YqffYQE9Q4KI3I8/oQ6PCaVq A1ufA/wZ1lLd/RU7cneG5xXDob6TF1fhOxnopSanZR3+XHt/TGN7ROuemsPP 2GRmDDQW1TWejsPwMDQ32p8YYK76lAq+XpmzENf3VwgOWERWbHcunUO4Cl81 YFiROarH8Oh+/5Xv3kvk3sB0V8aWi9Xsb3EwVZUDzmdxUKt3NuLY/UYOp1Vp 4t66NCxdnM/zoUOMxc9dCVv25LNiMwMIi//gNrweB+dhGPAh3pIwHs6VA9NN OTvX9+K+ZDgctClzGH0lPtkXtK2JT4B0ST6+xq11eUInvOXy10L0n3EbIAiw KMNqhmJ5qtSO/qtUt4uR++P+IVAw61XC/5O2gUlutnGoWBVg0Jky7eS72gDa P0FCGHc9EDeAI1wBQvXD0EAnDQs3cKS043OnpsfvanGSGuWDrrhOLPgkl5NP KhS8PRia8uRJRXUxRUPcxceMsncb3U6Nsr/3kH+CmlhzSpIn9Z417a8YYDxe 1+Wbx1dlI2iKKy77Oz+EdyqFXkkXorfhbYVLEfEGA0+AtgdPlcDiJCMR/OAi Rt/1YS2zn58x8mNjaD0sMDOAOj+MLa6UgeJYxlST4DJl459wX68k5lhRYg5k bOCu431p58RtyJb6nDZRGwtWm7Di+gAYStg5HsFNVo6QCyvgsMMCnDA/MtWn RtnfeuAf06ZSC8JtSmTBFgrM4FcSWWhvL91EFpiUCZmiaHOQ827InNpZbAYk s4CHRrqFeu655wKFC7jR+XemiuEw8tTXChI0g9wRuO1PuLDVSbjAmx3LoRA+ 8ymPegNJP6bWxEYrYhmfT2lkBpz4+BW7fANRGXm1nnQOeUGzVCYOSOvuvI3L VFrjCLvrb972BNaTb4pOfiV5w0sueUPqs2mRAmi8RbmpLRVpQy0ftE2JnDJ1 aTITOLBPC29mFU0AvYuhroE/YboOpQyuC+UrxXQ/VlMGYNuS5TFbCmz5PjAU 5uB6mWf5hAdgOAtt3eik05E9yNO3jhwVGC9P9KlR1ivRN9Jjplnb7yuJDZYJ WIfSVgirbp6RSbMZuSeSUleb2wAuOTj8YHmIc2GMksKHeNDYGFvcAGZlfBsc MeLEcUhQ/wOVzMN+nSsk8QrIeUVxPDZPQJ7L4pmNremSM3NrAHGs45d96icF l8v+xn0WZVRysAyVmK0iryQDmKwo3HsrUs8AYym0WKdW5IKKOeG4YMtRJrbk wmyXdgY1XK7I8GANMhMbB/ybDgmlGPudiHkyqJtYuINc7sMV7K6w0C3DZkPR MsLZojbav5cFJkaqgjG5PuwsCLUicZwoqI32r0UWeMA6cC7lx7BEDMCVv2Y0 3nPQFKb8iimyFf9gROavLuKbF3rCRQAutd3ALfj1BDHKeB2g7c1G70BKEaK9 FOQIgB4fJq/27dWGt7v/TyTMzE8BPiGFHaCPGZYdfGYkyLI6lGw4gyTe7Au1 z2cvsIXO4NkzMN2Axb9WFgM7qNH79poSIw2UJ8+04CJy96UWKL+a4GpsqdjJ xYoh1jUN7xniaPlZMkyZMnMb8rFhm5gTGcLsFQbtRd9B7wBTh4aEfUo2LKZv z8CHxgWWyAkXu0rSXdemrJj2fWMk1ky3MkoYoOUnw8Ao/n5TvhWlWNANGJ9Q vuOQ5O938PlyEaRLB6azZR0xR3Mb0lLcJEbBQRqWMYIgvGxQMn/YF+N8BIQ9 +EKwD1PxwOjZmiVsJEAQjGU06mGuRwySWb4HpTi9wqI3pWo4U8M+9Ii6SX2D Tjukel3huY9rGWs3nGMh3k7EMFlRact4a99fIGEtjmvhrMXZ49QenmM3eV4D olDzGbNU1PRQVkIEdZ+LWpolm4zjmAGPabWaCGGIVsH+KUUIrykAtY0M5gQt 6GBuAAKOZRwM9OW/VKAGfC0JP0Ggd8Go7pJXMqAZyzmTohMYPWPiD8U4XmXI GJ8aZbDuJiZQVVMsL/A2/tUKK7ViXfdCjSfs3h42upmHSh8x7g70CV/4xlo2 g2BahOvQeLIT+pl98l4a3Nl50vKiap88SJ+UX5Mn5ONrdKu9OPbSd7sZqa+r 9eJ2lb7U6XLXjRmiiU2FiX/kUGfbTn9QAGVYammbIOpS6G04CcGnMeea5IbR Bf80fRozw9yJPBXvaHwWUKvrmYqmg+yxPZMWnRrH9uvyBOqMzU/y7YBY6BKM 4DCsU8313wH1mj4EIzzvGrrW3NPNk+2q/BkBC+OZIIoM4TE+V5kL1rX+dYNr NRrClXF3zLXwYWMNzdj198ZbfsPoH9wvF1fk/sEevMkGezzbm+TN/VaBzO8U hdRFbzhT54N/DiG2IOK9Dp6/UZ9BytX5SgzabU2ppKbdCDQgAMswi5c+JZRV mYHakCvTaNVMMCW7mrIlJlz/xdW3rDhKjCRoUlQ/7ATYioFwQj7tazv8F+7Q DqZcxNd9XCMbMHm/9jTxoZYX5eObcU3MO+BHAG4Ah/l75Biy4Y//qO3aIZR+ B1EMf0QDNPfyDcA8/iKFP/6DNgAAT6L4Sc3Vkgl/RF0OnXzKldXFPv6Rb/3j 2gwrnPnYx0605VOK4lMKe/yOB/oZaqIU9vgo4R5z+o4GbD6l96xoEyue8WNG 2c8YfVoRiN/2YP+4+1p73pCXzquoK8NOLysprLDTNxLOUsDlKuNsp4MzA3IF syoe8ZFhSNmrQ8DDIxnDeos6ghMrmeWhOgghg/ssQBGnry9TDezRbAF+Kb3D 2XNUViweGN1CES1G5cYY5ZGNxai2UQxUtBypYfnkIaCsG6hYj028NCCDuWsj GMuKVzw/gNmsmMzDMphsAywdGXzLk+BNiiQ+T1IhNylt7XsD/daeU8nj8YAP LN01KrjyZf8m3P5Asx3XPlYMYDLVPyzXFsiHVL1WkYbQO2Yhqf7MM88MCFIc bUFaE5tBOtVE8BFiTfdgy3MAr8Vj9r0tyV1qEbYq3tqOhDlhZTQPXVbK8ExE vYzMiNAW+wdvRygy5FR9lOLSL9+GyWlZDNVGKaqQfoveogkYMsKtILTPlfcZ JgdEUnl2j8PcwQNLBlS+XN72Whszp0avCRtjaB+AR2GSuJEma+jioSquHCIb O1MwQLvqW6jrMlvJCL5GZmPs14btAdOWI7K16GHbmjLxi/kYznUx2NAhDmWm 84qEdH7CIjtAlBSjE7vi65TePL006rJ7ESsQ0SrrFeTLRgCOiEg70pZJMLhr bJTk9/ndrji5L8Vw0V4AlE52nSXXbgDtVYlFUP3iebobDljYlpLqX5nYRNjq 88dysbo2nhO6AqYaddYrlLao2ZgiKyf+agh9WTtexbum8yEsmOQISBkwPfPi bNmh18bdqFdHXmiNivobEZnlhm0F1vGU4Av9q3WyGET5Enzr6fCwRKxpUEt4 94kkXLXhd1bYdb4sTqYLVWiWQ8thmXGYQgMZJ4PR2kA1YBDBirUMYKnX2dGP Y4qhQ8gzQSEwMZky9fG79cJv6Iwv8uxWlE15NXNkBSJxUORfjwfINW2xq0sP imwc+rrUnhe75gMJ+2O57nJQYP8eLE+VedBCPUFI6mRGxS+BlSsKn16l387+ MFxYuR6gTHX90lf5gtuBgFpEQ9ZecOP4lyHbEiMDuRVcBPv8EqOBVa7L2VZZ G1uPP9lA/rXnR0tAgNUsnyxnzz4pJ8A/1jbJHNoXFTfgRaVFHlp9MKGUN98W 93M8NPynZwQ0pmozvo3SWMrRkVYMXAn7CB+uHBh4zXJvOKABogxTnombGd3Y V8rWBgvqCBB7RKw16X05cJffeyMFrd3kfBio/Pq8kjkdXJScxffO2VjH1b15 3wsj4G1vhYpxTNyIt9JalB/xqs9XGz3zOz3j6N6NcLSQTL4ESMvvrz7O1Qq3 yw7qQZue+eO2mBqZAbD9Lh0AScagzp5479M+CiBkg2l/aECVn0q7ERvKlenK YqnaUELr/a/RBOl9VwlHi9VGvyFVNrkTuUuXWCz4dM5ffPfqONKNCyJ8jQHb Pj0HrWEjgVcWHCtgD4vX3UJM7RgUY6llwloRd2zGhWdXCvutFb1P9Me0rGuW 7rKCcl16UJw2XerOes1qbYAhr6zpSYLOjzcprhJHCG9m2gwMBybUo5SBnt25 N0Siwxcy77fEKw8tcs2GgWCFGYKS3fQnMz6MNwMO93RI7IOQIGkoli4WqIUT WsKgCdYK3qmJoEQmThqUaHLLfsQtcg3ssS8gEexsHeQoO1v+2e2rK624Yqhy 7Dfdxp+eDXWfKHRuBSluhJofNe7WenBnXqypo/1vqgGR/QG7hoP3i77a/2g1 O9rxYvyQHeiYPHTPjHHUh/5XMa1Bi9+kUpVrXSC8RbMU2bjw+F0saj3496jy v7r/B/oll99EdrbTfL0XJ2IgLbcbV3mfGv+WNtCNd9w24x3JoLAeB6ve/OaZ IewWYxlp13U6/gjjs/26hzdpfN8m4E5OonjGYP0YfHg4PtOne+AcwfcdfQjW 6xcosch6zPyllHrMHncJMtzHOsdy0dWBOKfwxoDeJe2HcBiSS2XRnxNosRN9 HL3i6sDemol7BIqWNXlA11QQ36JEwkSRxxoIfkuhZO0YkLO6GEGuzOPKCMye /DPu9w95aKCD6mbZ/fpNLePNI7+YLIoLgzuT7nhcmeEkVhX+6AMCwsYDU+nE hYrI5yU+Ug1ClFdPEIBsSEEbgN8DhyMoAafO8DIL8ji1G2BxxYGvTDgpl78g /C4E7gRNSj1XQO/13P3gqwv5CY7ix0Fn0m39oOY8KDSl+Gz9VrXcFz/gpkPq YcJRNnLhIBOD5ecBYQYBHl8HbFFmwMP+o2qAu6FXNpMqZQKkDcUGetpDynfN kW3govKA5ThPs6PNCYZTzhGbI1f2ep4hm9Fig1HcaLOI8xIB61fA/rnASjie 4k4huBCcKxfZxztLmPCUH+z90aEkTtgg7cAouGf1i3sG6NrvXjQNwBWMKPiq KitAlpMNMPEQb8OC0VTrOegVdeoCDkgMbUK2SMFRdtGyix29rYQJC3N8eK4j nPQPsfVTed6/GZyL8XgzOWr9nrGP7R66zSOlXgWo6b+IrXz9m3H9GqJTYD9a YcEIPLEZ1dA3GmCQxwBSWB7BbWki+CguFkhNwASDnQxHY4HUkwcjIt3xkblh SjDheHmyQChAHyWqg32LYWVFnzJeZBlC2+GXk6FZJMDq43EFP8vjpWFaaOEy DBvclR9S6+mDP2wQhKd29ZmS4yAik9E+LsxDXtqaNst5gd7poYe8Zn9vKGRX 5UV3iyCvU7HgFuV2mYNMlN5xOsGYCzzb3RxiAygdNw1uKi6wbLMeApzCmAOT MfU4qQJ6L5qLjGomPeZssMKWKLzL3BY1Jd/EzB6C7TBAAJcwcX4j2p32BuY7 krGtP1+ah7HPk3mDjbPjT8sHDAaQlHEDOjycnADH8kQ6bMkoH8fyoftSzvsA ZSlWCB7uoAy6mFzk64DEG2H4+D9dyMEbqRLCkZiJnx/4IVktAzenQvVqyNHf pbgBvkrErWjvDCtKvBo/ZJoDeGnCMLCYELwdVEAJJ24KcFnSeJFwMhxpYKlP 0F/NyfEYD6vGyNEuKoBC3zIrSn5jYOw0YkY5GYKIJxSRC5aJwRqG4/aprhsQ nPLHx9XYnSi+/dtrNiI9PhTvsFN/AJE3LJ6KMp22wpaAHcPVOKAceMZBBX0P 2GF5Dqr4dTmGoTAKfXYWlSFSA30Ym1Gttx3ZzPg4Xut4il2NmsJpZIoWLEto Bo7C2Ganw0h3o0jA0Z5Z+LNQJkWKNpRrWdCWQCZFuS/et0YIrAfq8BxRvs74 S4Hb2YIhVyTGu9yuW8/vKa06CYD8u+4n7GSpMibMcT7IhucSTjZZpqThaItF e7jLdR81yvaNutcVEYm7BBDB3qjgjgQRvONUCxUQAcGXIgJrWSqYWJAKocA3 R9QeEAEvC7JHB0Rw3UeNMqTTSD0v1BgJnzw+GM87wMSapVwqKWA1N7ZjTGog CxrVCZI2PRUjKzVE3aS3E5DBefJhLRPk4tQTI+oe0G53zpzZvBImWnzO+M9a ht3VBJNBQf6CfLmjPbBcn7naI6GTDuqDCmPP8dW/+27drR8xeswnoLJzOT2p /JE5zlp1FqrLBP4PUzuw/1qpqCpTIcGX10qF9KTesw7VrIxVj9d1+ebxVdnQ nSKMyx4khN2ntBqQiWpgAlcr/9X1QhM4NMKK1tTxZ+g1WafmnJAJIiLsYYsM 2ZPrJ0YRqNCDosqsT/5styrj1fVhLfecLB8bQ+uh/swACkmuKjniShkoGK/7 vI+YjQcmmhqaFNhKTGW9cOHV+rTRbqDQZKKQD8seZfklIorNEkFY4BnkHQWc ZQihB6m2GJOp1S3B5JAsYaWcVtaxt5XoyUL69QEwlDB2PIKRrGRWiJZbhrkO C3DiWLrPa9U7N07wGoTUb+N2eJl9nJUEk7c3P9TpJKrOZzeZd/YZ3kbl+ymc jmlMQ012nDORrdWAOeIuJHmBDAcn8lGjMedT9802aGFoPqtZoN5dStOULCv5 zB5VeVJgVE/P/p577rkq5GMKGpmQmvre8ziRPjhuZH7rdUMalNgI7vx51G51 vJDYBSb/Rp7T4NJBQ10RF13u4fWi6Ig9rj1H7ViIykis9eSQy4uaErZ63dNq E1upvP43vcXG7o2kJ7CefA/MFpWefq8qIU8pC5UV2th3QnuuEk4cGVm6J7E9 8vmsIFuTeRhcm9xK2r1FSXUsZaiU4LMrtPtzsKSRo7iUBFbaJo/9ix2Gw8kf UAOnEDRrcFwo76diVUqjWkynzMUugaXXFq6fWauG2e9QuhxDHSoL5SaElwH9 8qSU3IpFGMxWpyF34Lq0DmdcTmlQym7VK81bF/qhSaUsH0m5Ci6+JenMyh26 L3kZWAGIRvfMzEiajyOFESmcLFUUmlnBcVkPTWIrM2luliQAsvqSveBQHw6i LAzlf3SpyOQ1H7g8p7gckHHJ4IhKn++uFK3z+bYC0k+ReVZAZW9xGv9mn1JK K57ZeOPNkjNzawBxLIf82swt3q7qTw98Kql5dJahQ5tk8uEUU0gt+7Ih32d9 hiZrfNlEVJwv3AApn32nkCxoRPamDXqGr75oB51QZsIO5GuozdUEC14KAw6n 5cLWMYvPXaKhXDc5kUwmj1LsmKG8oyrHTsQ8GSpNLDJBTtcGjMBYtxY2y6Bl RLa32jiYEmf0prsyOXhAhrh6+Xg6oqCWB6ygodp8gGBxgCt/zWj09YuW9ofd mCrBYZ0Yn13JSm1g7WZgubMclXpYNdPzNb1NoUdurL1jsZIHbZWipjo+6fLL ynl0jspax5lFYHDa6/Tjo5wuBxS0MjwBC4uwnGeRiCw6Q2LGTiQUwvM/HXia CcPGcUJp5D3Rb8PpiGPIAWxUypplSZzBU6c6hg87iC5Dx2WcLCE93NN3sFri AlsAnphw3acYpFKaJmuagCvI5hrUvMSrq2YqWN2+Su/ls0qNS5Ol65e1K8Hk v93J1NOOlBXaZKS8j4+9lNpUKexw92ySpodoM+lNXeZpftA7XD3Jd50bvFMy ZVUQl0FPh8y+ZfaQl4swVUJeL/DJvjESa5qnswTISkDLz4TqeFhOD1Oy5nMy d+j7Ba2A8Qm1GwGknP3FiIm9UOAAPpcGByS+imOZvidS95o2SzFdk9qEW2xO jcWnB1ONLLkRQWDdvZvPFsQZp3oyal02KJk/76vCeQnCHry+3cDrgdFzKWaC mCws6QOY6xGDjJYDAlY86wylsOJNqVoSVxAM930x2VYSJz5CgeeSlWyqnzi1 ubvipFTsP4wyK1EWqNnNdDpjR0QTdisDjXW6UJsg6/4CCZfBsQVnLW4fN3DL eQd5DVC+Ym8KxMNPK7uzhlmbIAt6tmHPxgx4UavRgfYk9/JjiOB2AlWHYD+k 3ZC7chBY7NZsJXiajusK8lJGxJIfWn+bBQkcwlsZK/sUuJbxcG4YcJcKFIG/ ZR+OBqIe6acYH2nCK/CqNgcbCzHAUCq81cC45YyOw6jENqmqimvZ8gmfe+I1 tSw37bdRGRbwvVDjCbtLK8tV281HjLtjPMT/lHgNEsrdeL/xUCc5lfXQvXtJ cip+6Ev6ENuM3Of70ofkl89gxal02quTnGq1pZP7/g9Kmn6o\ \>"], "Graphics", ImageSize->{787, 177}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.4112791690508423`*^9, 3.411279170543787*^9}}], Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 3.405907109932663*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzNXd+vZUlV3txzz73nnnv75/QMw+1upgdmhl/CSI8RAkPwRxx8QE0QsBFH MyKRjuDoMAKDRuOLJBgTjULi6ItASCb4B4zGyItJxxdfsBETEyATH43Om754 3GvX99X+Vu1Ve+9z+7Zwku57zt67qlatWlW1fnyr9k899ezHPvqJp569+ZGn rr3nmad+42M3P/LJa088/Ux7afGKpnnFHzRN8w/XGvu+ab/iv+7zOfsPP+72 92axuXXr1uall17qfi1xzX7bdfv1O+nx/5XHP/vZz3a/9nHNfvPx3/aPX79+ ffPyyy+7x+23XZfH/xG3nnjiiQ0+zStR6Pbt25sbN250/65evdr9tc+LL77Y 7NivttwLL7yQy627//c2N2/eNK6Ssu6ZltK1EI1iTepO83dgwvPPP99RYqXt 7+c///lmJR1iS3t43iiy6uyftdpS3OzinjVhddgzds/qWoBOq6vtRaoMlBpz rJcYEqNlR1hvj7W3c8ftUbtmTe6AKD7HjzXdNpNa3c3UGjXtowvUboSAteTH 3+OWcHGUD0YM+2P0m0yzeuMDhAGEHuaRhYCE/LBnrJ49qcfa0Q5jZHOHwQDy TdiJa7uZVGtaqLTH7NYJmLCPmo1gY61V0/5bCBEmV+mX/X+ma410s5jxo5Ra uwYZglwtTI665ts60KlVnhn2ofSjTfvO2W1VW3UmR6xO5KV5rt5xSjVb5780 0u23Yg5T5iC2pcwJgZkSCkA/Wp6EA/xvVcnqkkdTBMCV9yQt8uRun92WC/Xh X3bPqTxb9SqIRnbfDV9vtzR1MzsRtMdZ1JWibLZ/d4Wt0hDbMVkqpPgvZezH VvtXbtldii0XlH56JxE1MuzaLkpZWzLCea2y6XyAOsk++2sj1NabBY9Ls93D utaQG1av0QA6SEawsP2FcGNsM7tvJjfO4hp3Nlvkd6UNNn8GwwoKu8LGEZTR NY5kHQhZxXb1IdziktHypXm3UDe2714Cz4yfVjV6yNZ0Ep4TMWHnOIlsiCGE 6Nz+YDWmNLZN5VV8plrw8wH/3zWTSZdwzZo3iTEJu4oGKUVUK8gFm6xnhBwq ZuVua88tpX5OapUhuy5duQCGGxc5YG1vU80Huo/reHZUoAeg4nzeGtgzqhaU KOuNMdKuB/VxCzQiWbz9nob0MM9k/rWS3Fi0SD/z1nmmcqnSFk2UcG/HKmg7 q51L3GmyVgKim4jKtqod8HmESvBpL9+jWuGoWI6weDfrk7jOy+S8jZbM1ynF LLF2yT7kmWFPJmoW1BvRgX4WslMflLZmqOv3yMzhDks1wfhSUzszi89lzUy1 OqOQvKG42jOYAHly7GBacgj44ZBRmBIHUl9UbfX3Fire4ObBQM1VrckrAEfu XvksNUqrH+1S+Nisu3zkWtbvXDK45Ds9dDngddtwFnNbSAdjsJsnnt1ui3J9 GSrBfj0k+9WQoNzWFHRVfbl32fSAitfSn9Q7I4Vc/CcVtiOnb6oqJjpo99tI aL+zFaOcmwj1BB2gQlZz77Q5+9h3DgXuhcLFe6tTFiQOP7pnbVCPK0l1krHK ix/VPUqJe2w33wLDVGMm/6iJDM2DpTMPQHvWnQqrJVKI/00He9d1Kc+NPbc6 CK1pmTvMOwNpVjHR7cDGeSHMK3mezeLlVsOe1vi04nL92tyFNaUUhW4PsWZ3 c7OuF7vlOrLTcWAvK1gFEanUupxRTnUecL/XFDfdTr/JumhgR0Wmk8qhWHOR sHTqzvvs0nNDsaFykuXvQrQPZWpoUFoxihfWz6q82D3jHU3sllTKBLwwXVH7 2+8zq8EexL0LOmzacM+EYsK5wLGFaHXf+1l4dnTrKZpTElPxB1zTLG4fLh1q VgRkZEaSXNY3xnjsPmKfUvMYulbGLWC1TE+0yfillDZYlte1Yy+VX9EryZuk pp3NOzx1SKqa3MLtGucgi7fV7XRG6YGzc2Swcot5vUgFFrnungFHOivzd1ok Rg+/Q8/nSstHacTAyJHmDrS5KfqSak6NnR82Iu1nSaYpw3+qNEdsh9a8gpzU zfyFaspZrsZcDaopP45rU5ryF1Wu1k6uyAH7TfZBsI5QE61Vk+6L0iKX1zcE 1x7CyFXMf3WVjlm275Sqx7wXX9AORqbAcmCFqQFsssL98ULQm7Vcw3xtrlR7 Pe4XYNen/AJvwzXx7WcZmCoLdowa4nvZbrMPb7eUXhMBgh2JHbT3c9mvy8Fz DwsxzYhHQRfJMY/C2yBG5S40EuD4s9T3uV7AtxTDePcjDiDwm7g1NHDWA/kp PdzYi9joDA8/Gv0XGccxnXmOV3nKt/6nqclvdX+ORp3Ype+36T343Klqvmu0 8q/2R/Zr7z4Fv5otnMmOYfEKToHVFZxDMsNB61q4Y0epq+10PJNf8DJzWl5C VPvvIkYz9q4vSu18/D/8LRsXsgi3voDh4Kw13rel07pxJoy30sbiXONv7oBp 3jYf6/6sph5/GARwXbAW88J1FIYB7SP8Ui37w/MafTZVdxOSVansYdzmJarM mIRJyA6rJNpf8sz+mr355HiLv5XqeBI8KfT4HRN3Ojwwx3ItUWvcbMBTUdj8 Ts0FiwK82Qw1LYlFZtvPaOAa2s6nM8VQYon/UdROynR6UCJNf6NnNOrJpxJj fhGPqHGCYLJbiY2ovrMDQneEIlobO/b/q3HD6rZne0tyocFpp6J4DX41cAWY 6LErbfmu6C5MG9lRmspe9WO4KZ4Np+lyZ2TxoqvV5j6uHF07Q5hip/IO+5kM LTr1CAgS/+KooNmQ+1jv/oBvFEYLMZ2TurijkjEyfRrVmhltrJAMiXpSasGG mEVffQyUsnKqGHVvRg8UvqC+LDVmNMbJuqxdrtj02emu/uNyzcMG9mlHhVz7 tHZxzenozFe7Rsse93YDqn4ArZnAcUkV66Lj2mXwuVAdumGSOPYiuxZVSLQx jMybhWO8xSp0+3sE3dOtyjhCi9lopvXZ/v0hVMTBQvC4oxuSSQm+D48Wqko0 IxfBNQT7jrs/k1uSWlDco6mHqCH3EVyTocDw+EhtMkhOtoNfRX3R1Ap6eBnE VjY1mkaqTbFnqk39Cq7pKvUmXKP7ru/Z1qrBA6hqaPouCOwadirejdgjVTkJ BVCVk2NFKkzEXmP/Uz+1LrHdQ/y/jTrxgDRa2mZWD4lDILC03MdjlIO95BAs qYcu95xKYh/o838iHebypBr1HWgdX059o99lXjhssB1UVYK05MwLn7GSKHwm KKns2VR01O8LNxD+cfCS01Iz5tKThDI7jIb28P4ghqR7D11jaomS9RVUnD7K TW5bReErieqE96jGM6KN9zCgohLjiAjuxO9dGwpB922N4oUuMFcV6PxnV+yR X0u9utf+dPOVeJahy32lBoMKjg9bTI//B/CcmpPX0aFi6788s0onUrHHgOI2 9PmuIp9vHtT2+Y+iqBq513GNCLG0xw93+jejiYmN8VPagapDQlei6d1hYHpP GKWfVhrG3RgkZGrjfX33/0GGl9J/L1zLuuhhMRjq6yfWqP1NAKzCj1rW3IvL obF/Ml3lfZCmaHv8jPJq2j/D7VH9M6qC0T/zOvBLzXPWzS2CdR6BXyWf5Bmr m/LBSJvtzFzERt0PW6tB78cQFLsoWDVX6b4XXFfHObifTROOPcVHbI6W/U1n apAlYOVOZ7EtQ04y1C7oLbe+UQBo5sB+p1eh3DX6jIFdd31jS6yx3ycSqGyM uVLSQG6nxX1AJsscleQ3U6U/jfuq0HKsKI49rKjXQq3n6oXljMtQI4+xTI/e 5yYhxZABZ+MUJy+jppyoWDm65zAmGjBTbB8lqR36JYSfBioxUQ6315vJZfxv zHnD507F2xUnfDyOIowcY6eInAfP1QeTPBBNXjm/liJusHZ6jIC319JiduCG pBRQ6M9QXvaz1NiHCl8U/PDiMt8VdPoutDj3hEPCBbtQxlTx+sz0kNDgIuYR W+4KjejO2T5C5Jeik+wDhWkft41kNTHQsGYMkI4VRkeDbezx2OjQ8Izmw8mc cgN1XhltvUGR35tmKoFLuhS0pc9LO5zvHewibTYqaCvUVMIhTMjaYuy9RqRr YUv0nNNAPV935tsbmBOPgwmqInDt+d0616gWkxodHqsG++RFGUldvjUH66AY AFYJxNgcthXQIgLKKGehxRDDg94Jghk1Zwt8Lnkbkg7P/cdKfHqKVeuBwaoL K0IG9rcTOLeIkq+mVa9BuwKnmJjG3V/VIvojKTEq4SY9R5AKStikQzJGvxDp QrbZ/shdjcsRndwmoG6RG4JSsdeqw57mgq4XtNHOYtCsChkUp4eQcTRRiLW3 dZwiNtyTvdgxEKCr/i/hmuBX3B5v16197LTvBb9DzMfZPGT8WA+pxd4QBJX4 0OwZ+jvsMpPg1BPnvXy7ztRpizNPtZRQtHIetQ8ciSkB5iD3nYshA0gSyuGI /3HBGqvrGVTDZZxCV8SiVHC6+/RwqO7Xsvo5eSTINv5PlCKWDn6lY/AgsgI7 RT5NCEkhaD6RKvwvdEmCWNmfow6INEhxrq19bL0TEODTWvsyexbF7M1yqwlg S7RFXZHmoYhBRIGq6ZisjaOgzwDkYovwRj0N93weQYorHemBotsRWURVQcDL 6FgZETNFsd76bl6koOjs9Epwr1oQhkKxteXA9Xs/G126VvuNdqnI0TwBmYWq CFJq80w0wMxZ4rKKQxdtT1NYXNpe6Pbzts2h5pDaokwX95A3/WBy3S9i06pM AK7wdbk1BghhNJbGXdoKEuZU1ngHc+E15nJSbqgm2M5cZMFqpCqCHD5WrX6h uT8MuHwSI6Aep7ZXP4LLmqLHuHYzDdEhERoa08yZIsnwWdxSnZkUGOusGkD8 ouDCGEJT11vEYy6B2ZwC7GNvtV90iX3qRVE2qUuEO0iR0ae5cpJC56hiXoZM i64qetFpzfK+GQEADNssOR4k2dmHTuHCgHfw9i37R3NKHxn4Bo5GucPvVMQy sOaMI0g3/DvOMowZK2Ou/GiYDEqbmU0rSZDEpp57uHLJpPZhewiRK7bxpOmI f5s4qr57uk8pxVxKaCuX7rACd5zv0SIrcvGYelhJ0UPJWhpA6c5wG/AV1y4V H4o+H+cmXdJ5gv7xwIzg1iBbcHjvYGCiq7cMq3geNRH57E9V8se67pjqSYIi MZ7AeJDFjnLGR9iyWVf1rMZdF+vo/CLW5tK5xohjJZWnneT4tTSIjKxQg305 n2qwyJO5b+ow2+QVEcjXjQOK4fVon7M1J8WgrkK1TMXP5+EvUwu1qsKL1H1H d1I1q6ne3JlAx94/KkoN8Umnk0bpCeEIKCadhiccq8mnTH+kyZ8C/32A3Fup CtfmtUpAPEJx/40XPNpFG5Fdjl4peLUwBKtnuFCzDzn5g1zFEQZyJDVA7jeO ZaZSkhmrS1kp0n3dq6me3S0hdEmUvbIK0YnWVNZedHoos36jEm9vllvX+H5u nM5oEz+4sGDqVhEQ1BgiaWyaeRmd77VLv+DlUjQ7SPz5vMyXSGVdecqESbK8 k7/UIuyjam7kWJKjF8w+v0vwV5n5EtVNTV8alcsT9G4PUqLVRtSrSpil5OyA GsFQu/2OCqhLGn2ouodskzRqVRaw0WrzCpxiBi7LtYzp80hpPA1BLaefR0pM uprSnBNqSid49Miye9YNrpoUpSGjWZzZ3NjNrITWLBmbF5yur5NdNOyBq1mN tLSqmzXR+Wc7EmhzqBKmCa/kEurgirZl7zj3WXP5uPaiKOpbty323CACWqOm mtIK8106r4ZPQRGWiYtubMaGmQBhLk2aUd6KzFiSK71nYn9tneT6MyLMEeCI wvykF+ZIedVF/gFcU5+8HojEefjD0jyfewNmVAUipVr+mO+EPVMvz6ogQXpW t0D96VQPynPsLY/jkkzX7gP7m1XTHLdfUYJr6vg4Lku9gmO+qzQA6wEui2Sp U6MttwZ7atAszC9iB5X3UZoodnaikEofFVy1HHzNe70YXItyYd9YCFjTxLgs LsxTeXPExJ0S8MirhJcGWCfVznSVKPme+Njo9Ey6olW+7zBaimu6nU/Bq68O xULkLBeuDhjHr4uwjjmP7y0GpYYgos4+BoIjB7vVRQKqe9n7Tq3WgbW8+1VD eb2/re8MpYQyHKkP6pBkjCFyA4BX3wGVFeCNnjEoMbwoXknLu0R+kJPqlqIH lHJE8W2/M2ZCNxo/tFBt7FP/D10z2lSg1zlDDZ/mw54HFaSLpqv4zvaQIVWJ IRZ5LgsEieJhekqPdjO5IYqg7JLzRyxUVw7zsYseVWAminIgBHMpBFAYxL/L zghwJx9OyZiVfeinZX/KXAKMtp5Zo54N7B1PajeWEdYjrbwOucDRtn2H+ZmC vLWeKFZDXcCOy3vK5e4D6QdV38VTY5CKJs5ipI5ovwiG4GTHP+bGRLuqyrbG qRWmUOxp35Vb06gGH4vbCcpSK+KqpuBQtURSPHLPjb19oAjoaqUeAs1uDbSe JBDr7ZAKK4dRI0Sby09L4Dmh38fUD3QjzgNNnQvFHZ+4QYPgrszZJKrtLXJv pi3WlQaS4FvCeDbyh7hGxdx+pdU9J+rzHG779SzYMYEzJ/4XCIfuV9L/8jkV tPzt13X0Ygssw9tRpILb1pNbyJHLngC9dR1CMRPq8A6IHvtAem1RocKoSz1a 5oFpHHj7lZIRTwX+kI4eGcuDX2gefA2pi7yZ9imQ/c8iXdyYUlt3DJh4FIxU T8icDPW5ENfDgPRj3yva0vaLHDwpEONRiNFW6eEe4MxTpDUv51WeYpl3meKT 4zOYDUu021RKdwQBvk+uUeZB9DdwS8CSYNNWmI7HhLNyPXO0cK8xJZecNRUc BP1VQauJ1aMiC9wufrAQTYV2vB3U6Ho1kkTNcxIEK9bcn6j5kowpFyMeIcS5 2lPjkSC/LNcowa7a/qBebjfGyiu4p/p4rw/eGLwUQp3f3NpIjmJCSI66DgJy dEntE+EPsrbMefI8DhCjampO/JWQQpJ1qyHJNJ8VrvHG4Dma43qMKki+AJJL M9bmaJpdry1BI12dfJbABS4TXE74vII7uFSUgA9GKBTIUKkPU/a8Q59EAJKI 5olMET2LSvyeqcVzIQIkgmBocfsk2EXC9KqmrDksFISixzuIJbK6GYienIZb Qnrs45Eh52f7LpKoeJlumZ88Ooezcq+++tWvQrvZDNQGirusk015HJUMSIgt /MngGsWea7LtihD76MS7tOLf40JJHCiKkHKBSzq7qqPiQ0v+7NaMErsnLwZj VY2k2mQB6HWGpSPXO6uiF3XEyRweIXI4itHQ8r0+c1+mr4atqfVX6yv7eWMr sA9Tb0Z9TNgfuSMoqmlu2Eg5WcmFa+s3l9m+s6cUL2bbLb2XKq+8piO3rfwL 2GGO/JfdUC+VDg4dqoIwcEkwvfy/yg2khr11lZmoq/se4VDoyOAEUHqnJ8Dw 8GhFlCRsxzXFdoRCylgP2R/RPNbHmtCjbxH6hy/TGHEiJgWhmvhHR6+Gcihb nCanLYM2CyZl8NxsGaTqQcNVx1q3GO6Kylt1c6QFNMW8ivrq1cVnxt+JGGqI ycE6Lo7BOgZc0chv4W7V49S4hHrGeZRLsXH1cJYKIsjDew7A9jHfL88JGk2D 9BB1DRSOCSm9rltlAbwjT/4t3mLVlXyT3dboSSjwB3n4uKCI96jYzQ+diV2q YIqSTFqmPXQxc5eLbDmOuvBwQQvqmyv4nuSD0CtQwEXApeM8zwm52RYuUupj ZbcKqdfHX0wJ4U7qJwFH60nAERQPJk9yrIsYARPD5qkWs7JcS7f0Xdcehq/X kEggJQOmj8fjsjqBtZzX2E82QIypyNLNw6rjQl2X0prqOnR1RVAYqSv72jhC qHMMCcI5PkTUHGc+zEGDlDiYokvVhNEurHizO75deyrkKHTGAbBjUNHScYZm 4kF6oBI3Suv2eArxuaKc2RRzZZKn9EyFpg+Dsltafrot0xOl7iDvWfcK06PB NaZaTcW1jgcM1pTi80IBvUARVRHz3irMG8vGWgdlR7xFxFKMTPxwfLnc0dll vwitET9298Ezrw2KsPfq+uZptlPRuGOQPpaLrBynC5ArMCcVuhW9Bu8iWKpB AdqTGlfDnCWmYgrwsw6aOt6uqX3pBDWPfB5T6MqM/IIo2TAor97Tckm0YWAI 72p/Gml2Y+q11wTXePbWRDzyWEaf+lmUYM2RVV+zHrwNQFDzatyJoCGR8h7B piLI2iNb1qsnP5HtmiVZ+MG/IU16bNUc3NN+HkmFgBI9oABwMf3nAJUouUOg 0mC7jTBKPBKu7EGfjXFavRt6wWQrzn4gaiPWNUXrFbGOKBREUOA8/NQymtf5 cI2SVEyR0rN6K5/LFkNLxCemfl77IErKBWrMZ3DyjgyzKajZIcSkp0xAT3YH 1bGpkbDhFXSwAtmKzkqiQIyBqmoIpOvp8A/1tZRAEimSVRHlL/PARymuJamk KIYa4OugiYJfGhgmvyrwrrGDjCKkFtNNSj5hiCKf1LZ8GqX0sKS0q09TGMna lIm7yXtEJSSt8XXyqgIcO4+RihBf5Es5LR1fhh4RmJnRtNwbJ+YsiLGBIZAD 37OIcPYKduB2GtiWQQymVuFlQwAZO1kCyCY6iQ0g6iSTvGjk62AKQedENMp0 lJd4QmKf9brJ6lQImaF7ahTCNoCmce0a4ryWbsShN+S1/bocH2QfLCERao2q RzR7mL7RX6t2gGp4megDHlARCWA+36zemsbQ0TBUbByPztPENGxUeTvRnQo6 cojK0ISI0sqboq0T3A5NlCQuV0peSCo3eRFhyNLaMRuBF0HrjtDtElqXrPqh YwVTsNHZU6rFVNL6XXpLkOAi627P51ekhhA44vCsdm5Ib03MbX+qv2rMvn+3 PFcg9zoaI6BgVM/TUkbPZRozj389lUm96r1w8Ok8CO7NzMRIC8+8A3X30Q01 2PB8M9duBPFfE1ngmvAASJkD01/PeJb65gEYRS0e0f+5VtInPMXED2w2veM5 sgWIFSjhDDdO/9hZH8hZd7+5kWjWGje9karIMz0TkKqIHlkpEgRH4103vIpx kNHO1Kr+r3AlH8i7wyNnh+cvIqe2vC1zP5W+0Z0BUaodPbv7F5K4E0/28+Bx 47YPJmhz+hYWpuhfo2LdWPQEK136bXj11AAyfNaxsNUDLTVpwi+IQ3sTVUTm xh4K/j8YTx/3rBMGZ9aJN6T7mLI6xrqKLRGlgCjOmJu1UokdoiFAtbBDKBYV UwSolbtmUCnvurAtw50cJ3rY+myXrc5mTVv7KsfFODE0MaMtQu0mskqYHXv6 5pPbFpdZ9SEBfTrtyhkX9hFfdJ+ZcaLzV5PZsD+IFLF2kx12s2LH0Bg/VbOr WJC45282PcqJwAP2jGT1kaY7Omb1QRA4ao98L+wtbIp/hAFWx1YJ4Wx/348a 2Mur3dnxfa1+adsbaPjFjGZAtC8ybcdcs/8jO4YL2mkYX097rqgKLPoPFW1y hUtpX/tCbZC06mGdg6dfowB3eCrrNWEWzRh1/typ9QWe8LXRnL+ilnYdKqDR quEWOGDYbq/Ka3MJBB7DIdN8IIUlKFhNj6SlbjYlDDovdnthFV343fixzgaN 4rH1/AX7nXMfdh2Me8MjA3sILsMlSksEgmZIRMXvtjsyr3+dA3YRHrcyFwM9 kov8q4n0LWxaSMi9UlnppRiibu6n0uxkmixQNUKVvDmwXYehXbrjGajn1pRB V3SRi/Zxrf1MSUDVJFhYy6iyNNVrrMyKfBBoES+zFmB2SrDwcgAWTtGLZFxw 6xhaotOwnu+eZPzPnARB2uzAMB9DsKJ9p+r5mPtw4FGGL2cgSRUQ7A7gQ6Ri DCfLpUL3jpk42eiMNj2EvFQHKd1R/vnLJxmjMWDlhSr1czCdEDPgQZdqdk1O UpQllJRFuezdGMJEQ7JGoKSEGpISSmytxyPnmOXcHJK32TCONe8QAeod9qvb g5+xRz4+NZzrXJniJrUDQAymxy9pFW7dmoNVDNCDGmc3ViB5UpGScrmKP9Q1 Qde3KeqKQSWxooY3Ux3f5vwvPjMNleSeOnNNvYDa1PYhX7JCve+ApYowTJuS 6TKX5mDrcp9KaJ9qLDArU7Urp5nyMc6d2/1rYYJbdifVcuxqKXGDWnONwBos knVB1dopqCn6z3k+90wsisk0vPB//HByQwiH0yPCGA/SXez1uHYSlN5/e0pU oQooUSQdXxXM4cNKxzxZWM2QyGFH5kLbHIEHGcpNJy9tDtHcAVXpX2IMZw8p 0zOaUpruJBIL4/Xt7s8yC4RqR19Kj3yn6Jb9+vL31a1vCxu4h39lWIocQqnn 5ZY/98Ur/++Z+dxbZj73odT8n8vjdOFGr4r+iZnPHWPcOT04rfkbiujcN1Sn yELzs+iG2oitBPE9NZx3GhjROFf0osorIDTyyFBo29/HaFlzeCuvDIhaOaXX WYMN7w+E7/HgGqe7Rs6it4Zexp3I/8L62ufp+dHUFb5/ysaVms/V+EUGUcur oMoUyr6zt2T/XGJULT9do2R1j0mf4F28lWB4KD92q6R8rnK5Sm47jUA+RmnQ phUeSxWzdI1UHBuq5JOKPvSYwEq6pdoncsygU0358oOZGfup2BlXTNPg1VFQ NJ8lV0G9tC/FH9dwPBjqDI2M1cCdrf4kcctoFDOJzok9PDoN6y/0uUuvV6i+ Mn07Su72C9yxmkU5FQswjgaVjGnpg4CsHI96eyQ26jwDrGfKL0ZDRA5eoVdI ya3ER7VqkHsU3cvTgUoYQl29lnsxz5qT9ugW46+bjR4PXlpaYYK8d+4ZA25J 4vnw9Qp77nA17s5Z3V0NYnCkAMM39lYFya1soheDl+dDTrvjGEaiDRFNFm7K w76e2qsk1Jxhp+vvw4pI8dsjyaPzDHKltg/52L0JeBeyXBubKVqx9d6DZlX5 u8UjuQ7mOCMbom8ilx70yIZvsVDxn+PohDAQVTV/4o4f/y/I8ixHlGLNiIoW gTGy3azdLXsRJfjT8TF8h8RuuRZEJ3aqk5KwhehAZ74KdI5/VM3naHJpQpEn +cSvvYi6pskX003vD0LP7IYphUdB/VuQ8sHu/3Cu5DjymFPYO3JBHJz2S/dm CAhU1ohKIS7qL5MsSnmESrnEWN6t6dO7rHvhrvUiOMwhVVt/xU00yybOJEjq zlFW/lmUuxbXqMIRr1OHKM2x6TTmqY7ONNj2rAK6CSvd2OJVHpFYL06XGsU4 0pVxGDS7BYXBxKNXqiKqL7qE/z57nWcP6BEI/fZo0/HIbZ0laCtoI8pwUqgJ hCFNvteF0l062IsTFJxM1ZTOMj5QqohlT+qHSlyoneSQu0Zrd+R8hLwVQO/E OGyg5en70Gltssa2pRK4iY1WQaXbapgTBznzxHrdZnpy6y8mWblBEXgDiYy2 zr7iSyev2NljPk2be6DV2Ac59mpBjp0eLdmxheZ9b9qvnINfHHddmRd5RMHK tVCeeNCN69Bdksb6kgtiRBEIhVsrJq10sQDxDQdQOjlBgx6VnjSugPZDCRIC stVEn0PhJSHTtW37wEky9koQDRCUkG568dGSIqpoo1/K4hUFW5iVPVSotn0/ Se+GJS91K6g4MMaauufkTbnZ4A9Q58rVPhSFix4Lrj2EarQhq+Z6SjNXY27M rzmWtqVRJ2asD/m01ftTxly2W1R9cWbVznSsvj8+YrnqRLy2Dq5dCco+hBqi g+Dh8csmzJSDngCBqaAbx0c8ZujD9q95ieiIDpiYU//FmfVjcqSZnw7TliwS dZ+7JaTxRzxoShy9vOvg2uWg7MNClV1L+pZ3WyYzaJN3+PJ0FonGgL7JQGV5 iEut2ej9MlGz98ys78LM+jAw3+NoYidXn/v++d684v8A1plnrA==\ \>"], "Graphics", ImageSize->{390, 196}, ImageMargins->0]], "Input", CellChangeTimes->{{3.411279201622027*^9, 3.411279202891055*^9}}], Cell["Equivalent circuit", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 3.405907109932663*^9}, {3.410151936770359*^9, 3.4101519419755697`*^9}}], Cell[BoxData[ RowBox[{Cell[GraphicsData["CompressedBitmap", "\<\ eJztWs1LVFEUv84zP7Ky6MPABiSYQokmnLWQLWxTunCRLYcIHST60KIMWggR SBtpE6Yk1cb/wIV7wb3gXnSv0Pp1f+eec71v5o71Zt6YxXsw97778c79nXPP Pee8d+Z+cXri8ZPidOlRsefui+KzidKjqZ6hpy90V9CkVNOgUupTj8J9qG+5 oOsOCm4c0f1HVDeB4YPToYLQgtKtPk/f+8SmX6SyOVxZWQnHxsbot7e3d642 Kv39/eH6+nq4uroKSjGpnOG+7e1tooRWhsoWwoe5MzMzVAOnrhNboZVWKJVK NJbNZumBoaEhtNXZ5BgBA3NzczSRxYQ5dTAiahxwubm5aeedr072JarLGDnr EIvCDUgigIzWBZRdeOK5Q6KM+oVY8ghI7BBztWd9HDxNbnnwBh6PaHnZqwzv FeDwfjVqeZ9BSMkeL7LkAy7Ge/BB/dMLVBqbhDModglnUpvAgB/R/oAe04qq bsVbwRy2NtJx6V9YWBA3Q33aYchpxJCcUF6p/1D5+Na8zn3Ly8vSb497d3d3 ODo6yi2DTc4l8Jg1FfXBLGiJuJaQBRTBVqNKHIZ8amqqAjnak5OT1Gp29g0i g8vlDcLeNXscQb6xiCEY9G9sbEQQDw4OUusEle3WfUPDcDk6IFrHGBsEtZW2 n6HSAGq0h4eHtUjNc/D/YpYzLHLZf64bivIEoczlcuH8/LygNE7DQOywARuO C3QAF+IJQBeJ4tJQjZ/RJcajIL345aBhc3AQjBR0yxcGxRU/+gYGBixjqAuF Aqlsh7Mw+IA2FKrjNBa5hXYKYoAJEwui6/rRtlHf+Pi42AxCOzIyIgp0+/fg oC4ABZ6gPqxa9YC7RmW71VyQFYCoZ2dn7WE8BOFp7oMmSYiXYb7RhnaJhWkg +rW1NTsO9BAxzIauBX03KgpVO6tiDixWBOwZKAM7FGDWtQlzKXx9iLs+Urk2 WkuwmOUMJsbSi44uM3DNw057TMlCOeUcQqpipBOULCQI9Pv7+9bSSQ3d0GMq 63m+p3Yuy+NaeYEyM0zJpoRanR56cdkUVZdNE38PtlkEybHZ6m4mXdg8bKbu V5cSYkeMInTSCQLkjCS9a74TJCGOL9qKx1Jgj5JZA/vRLBGBKGWDOXK8YwIc nYwEDtC9fD5vTa9z3K4ky1X56YKj42i1Lq5yVLZaAwEOcEENESlrDiPRHHNu 7HF97NUTI5XDlks8CTyHwGZPcpxgi4OTy3GEFrZjDGqCHeuFyQUmyoxLFFob VguM/UctwO7FghOEOzs74dbWFrXk6xls/O7uroXIc2Ketz9F4pt3PMhSfErm ILB3velS6VLpUulSYXjDkqW74XgkXnmQvU5JpCTqJ/EznZ7M9LdUVuRtX9VG pSxvG5OKSQacJCygpMzrCn36wmtKWc42JvVpKk/ZFIJ87ARlvAiBqidn68tQ /HaV6Fd+CTqd/Iebsq2JD/Pyxh+A1Lu/RsLN69ZIwtkQ+3ogosI3uDfxyMqG QQ/BoB6LvPDKvNTi/BPTj4e/SUmkJIjEWzud7q6aoa8eSl/+7yESTQP/0/bD LKgdgTr45I/WZzP+naoWMvMIFuBMOUMDp1Q2S7JnmF05a4mqU9QrQYcbIkhG CJ6q8ulFqk7blKFkTCWdKOt6UKoICZPuEIcsiR5JxjL/VVj4whTEcUJSbdyH eAoS1E+qQ6Z/r8TC6XX1LTrkcGo9NmDKXy6WXLEeJM9cTyx/EcGMxaPRKPde Nf0C0YyddQ==\ \>"], "Graphics", ImageSize->{321, 147}, ImageMargins->0], Cell[GraphicsData["CompressedBitmap", "\<\ eJzVWsmSVEUUTWrqLrqBbnFApCNAF4aGEyhoGKHhAI0zzvbCTQca2qghCgvl E1jrBvdE8Af8AV/Awp0RfAFfUObJPCfr5OtX1dXYIr6I7jdl3uHcm3fIV++v X/z26x/WL26cXT98+uf1899unL1wePXHn+Oj7q4Qdi2HEL45HHA9ipf8l477 8I83/+PrP9Jpz+jatWujtbW19LeyspLOV65cgcLpjEP3x44dG924cSNsZBJv pdP86ObNm6ONjY00FeQ0BcPj/WIaNqyG4U8c8IzX4TilunXrVnp2+/btUWYW wDldX7p0KdHCgTPexXM4V0vVlMbJRBKLHAYhr1+/nl7jlezM6xNp2OJUgXAW dDivrq5+l8e8ytlgEJ86iNVMQKDreO6maV1nEnp8BgEwPJILHbAMC4Ucji30 CceMDt9FOvjfT/PcOrB1h9whPkCAiBFWKvhaOi1V3oIDEmIkDhgBdgJVUHEP w33kIuVwSzKZcSd5xbDYWv4jMF2z50nEACZq85W55BAyV0QiAd7DzDgfz3mE dVMzod0hEymAu4FJL8YyISCl3xQTXr58WQ5coG8zlRSCwwuVTGNuk0IyZ6Qd vnfbDFzUdIB91HTOJIRhXWrXzh1P2k2T+ihnaaXgeTSbyGgKVqyzkwiVY/XK Age2EYfs8V2NToN2NyjDa4cU0P2Q10VAwCoII/lfMuPXDWD3aHgxPAuGXCRH UAYVhwnjqHp40aDjmsqrmkaVBheMdeVlsioWgZg6gGIKYox1BQ4FAdydtrkS 7svM9NF0GpY8AO+Q2bTK8Bx6P0hsgItQdeeLNGLsHrNnOCt2VqhzMcFPts9z B9VKlzwJlQydsQ7PGlIcGvaSQVtewhgFELyL8w5QK8Uoz4TkHNpYH84AHkmn +QICzramZK+HzATwI9CTN+O+Fj57eB3n81xKVfDDOM3dwzeusESRD0JL2C+e j5IETTKRhJYnxJRW9MqM3UKVdTw0tXAlYOFhclLeY2JJlsF1I8U34wfuXjEM FPwGJIslwWelwoAkUoC+6dENnOHCwkUkRiXGD1rJxmstWFJNdyLtNcpyerZY MinY4s88oA3LTouUjzqMS0kYIKx1C111rVAMDoK34Z7KYUwOKRX2mRAxRf7x tEkCLCIZzh0W5SEKaMjoDJsJgOzKc8WXoCjeyYSg15tRliMcBxrKjwMC3JRF 1wrpjYJEAEMlTEXA7c8oRo5uy2keRJGHKrJ5GPK10aZ6tTbmvRRJw3QPElFE Gc3XxH78fwK3u+mFTiRKL1UdtYx4v6igWAaLpX5hZQaCXjeJIHByTArBOAKY AG/i2ymFWKNeaxGqgqlf/F4HsnybVMpDWhcYd5o0LAjKOQuNzdbuVQ4Ul+PL FLyFTLqGiFGJPmcr22J21H+/PVa1E9XNo+tir8G3DgPj9sDV9VJf6Xkrpz5h 41Sr/hN6T06h5/XtrPTy3EFZPPJmZhFZzv3u8YzUQb5SW4I7XxPgirsPTFsl 2G7LuDemjGMHnO4O0dHkziooUSA9lUX7i9O0MnD3TP1Ks+zVGRKG+qrY6Ffh TYNT2xi5lhkvY7yLQqmm9zJIhZ/eKQapj416lGyp3ATiuSoLH/GV97En0/+8 UMAZUKjvxMHQJo5eCQASZI+ekWWiDGcnczyV/ud4o7xaluJcqTtwqO8hyqXw EqTQdwqnVT5Th5s1zdy9ZraE49NnoAyQ6/y0kGCRXowKjuQoU8190VeTWWRX GVTT5B5xnCIXdAM3dk8Kh6wFRHEGPt6aGfbKupuzSa8Et5rJGUNY5Vl8e5J8 IKxKK0EUibg+XBmY7W1cA7QP+QruCCKIKafoptpPwKJgW0FN8jsIoDOcyDc8 FIRo/iTkv7jx9xNZwx5qvAQ67mWn3/Pw8zZcMUlbB9ZBh9/y8LzjVfdeOOPe 2mDtlSwY3Oz2tPGTV56cGcP2c7DqSRdFRTTuPqblfWtT7Xxy2dzLedtzwqXv VyU4Y31oW7G5Ihq29n6+NxKBCvebqgJyaEAqT3xIGXzHUXsr2ozDWLoZzi9l 6Z8nIqq5hbPiZxzJ4D9XcFWBJk1zuwk6+6qywyM/A1B6rqivkMdmhxmw3iHC gcAlGbzD891RLCy1two3o5Klc6yB9kyTnpTVHb+T/i9UnY5cUXV5E1zRUQKE GET2BfMybXR0bDgzUfAc2vD+Vv8Zu3p+u+Rxp9qz8LbN29lGo+0VrsLXApeD Y0FTjDkPPGkVi8cp76bXy2Vr1l1dSAp535XVUsChdEo0j5MjbG3bYMoIMv0m oOja7k4CH3qqG/LytMt5Krh0aFsWhhE+ThcHxCuVSLesqrE4XZ8S3qZ3aoeJ lkzy5PHz1WpQuSZxIu0GPkpmip1cd6ooPJzGIVLVthsSbfFEQ6NoaXbOEHXS wu+WHIb1sDgBF4bStp3wabhIDkZvZcdmgMgZIAd/qTAaR2hhIwOyJpRLLpnM ci9tAcQpe8gUhOV5LH+Lus1lUqm7eTcdpOKU94yxRfhmP2JVIHevqFHfY0uJ xMvZNlYvKnAhju4hsvoghnNUVDEAzqUWqstGyhVjaA0dE90DADX13kjh9V1O UVBQvGM/k1simqxe54pf8bxvigMpxOFukWrK3/kneznaOKplO/Blmw6mWhVg vkt+is+0gsfPwiP2Sp33AT4j7JX8VpOXltZ70U7LXI1TCkC6lsNayaO4XZKN B26WQdXelYq8fUafAap8YvIdJKp8kOQ9VSo75w8Bu0sf3MxGIsdeN0fY+Spi YZp/ETSHYPNqxh9nVB05TACifmV9roWqohWtfXQk7QfyrC+ikgyBkhjsJ3ft S1sJ0foNjLvCeU+gA0G0nb9Vtd2zZ/VW9t6Zvx4rYdJBconJ7bbxzsG4nx+W Use/amOMuDW/Wk7bkVGv5zvD83TsZmhpfh5W2rFIPjPfc7WaVpwG7SYCVDmJ dhylbgQsTX1/pJRn8Xa4Kdyr0bPpYTz/YC2LqV0+3CrgAHqtanld/vY58Yut PE61gG8c/7oZBW0D+ode7QvNurf9JWVv/Qw7qNKJfCmSnJW6ts62WhwrtXLM 2JWXqAzF3Xmq3fQ6XwGfGetpbe2hmrV9q6m+SCldnG84UP0J97H0bJvNcf2z DHWJ/6Q/pk4ark970Em1g/YLHc5pX30fo6h30jh7waWd/DtpnHOODg+YuIrZ SpG0bHiZ4rZtmT5nZp32ofaA8dnpbtveT436V69evRe6bSK/1mJozwo72Tmr 25mSWeI8cNtdlRl3tXc+NBkX7VFtowdmozbhR0iKm/9R93twa1W31872OGuL Xy/dzU52Bh2ntqXb+DXTv9GibumN7T1oTn2z/CBqUycqeS2szCIvQ8sUeT/h zAmd5VJ2hKk/pNrhfpLCfk7ajW8Rn1KMrVrFvcR6lh9YeZs4ueUfVo4ifbbT SrL4+oIs/OtHNsPMbaD/gm2Wn0DtRB9I6f/MHrGNhowTE7F76GfbO3Uddv0N d4bhjw==\ \>"], "Graphics", ImageSize->{273, 103}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.41127922765763*^9, 3.411279244907958*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", RowBox[{"CstLevich", " ", RowBox[{"DXi", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], " ", RowBox[{"Nu", "^", RowBox[{"(", RowBox[{"1", "/", "6"}], ")"}]}], " ", RowBox[{"Omega", "^", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", RowBox[{"DXi", "/", RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tauXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}], "^", "2"}], "DXi"]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"ko", "=", RowBox[{"10", "^", "logko"}]}], ";", RowBox[{"kd", "=", RowBox[{"10", "^", "logkd"}]}], ";", RowBox[{"KoV", "=", RowBox[{"Ko", "[", "V", "]"}]}], ";", RowBox[{"AmV", "=", RowBox[{"Am0", "[", "V", "]"}]}], ";", RowBox[{"\[Theta]sV", "=", RowBox[{"\[Theta]s", "[", "V", "]"}]}], ";", RowBox[{"mAm", "=", RowBox[{"mXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"tau", "=", RowBox[{"tauXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"MAm", "=", RowBox[{ FractionBox["1", "mAm"], FractionBox[ RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"tau", " ", "p"}]]]}]}], ";", "\[IndentingNewLine]", RowBox[{"Rt", "=", FractionBox["1", RowBox[{ "AmV", " ", "ao", " ", "f", " ", "Farad", " ", "KoV", " ", "\[CapitalGamma]", " ", "\[Theta]sV"}]]}], ";", RowBox[{"Rp", "=", RowBox[{"Rt", RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{" ", RowBox[{"\[CapitalGamma]", " ", "\[Theta]sV", " ", "KoV"}]}], "mAm"], "+", FractionBox[ RowBox[{"AmV", " ", "KoV", " "}], "kd"]}], ")"}]}]}], ";", RowBox[{"ZX1", "=", RowBox[{ "MAm", " ", "Rt", " ", "\[CapitalGamma]", " ", "\[Theta]sV", " ", "KoV"}]}], ";", RowBox[{"ZX2", "=", FractionBox[ RowBox[{"AmV", " ", "KoV", " ", "Rt"}], RowBox[{"kd", "+", "p"}]]}], ";", RowBox[{"RpVcpROhm", "=", RowBox[{"Rp", "+", "ROhm"}]}], ";", RowBox[{"ROhmEt", "=", RowBox[{"ROhm", "/", "RpVcpROhm"}]}], ";", RowBox[{"(*", " ", "ZAm", " ", "*)"}], RowBox[{"ZX1Et", "=", RowBox[{"ZX1", "/", "RpVcpROhm"}]}], ";", RowBox[{"(*", " ", "Zs", " ", "*)"}], RowBox[{"ZX2Et", "=", RowBox[{"ZX2", "/", "RpVcpROhm"}]}], ";", RowBox[{"Zf", "=", RowBox[{"Rt", "+", "ZX1", "+", "ZX2"}]}], ";", RowBox[{"ZfEt", "=", RowBox[{"Zf", "/", "RpVcpROhm"}]}], ";", RowBox[{"ZEt", "=", RowBox[{ FractionBox["Zf", RowBox[{"1", "+", RowBox[{"p", " ", "Cdl", " ", "Zf"}]}]], "/", "RpVcpROhm"}]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rt", " ", "Cdl"}], ")"}]}], ",", RowBox[{"2.54", "/", "tau"}], ",", "kd"}], "}"}]}], ";", RowBox[{"logwmin", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Min", "[", "lw", "]"}]}], "]"}], "-", "1.5"}]}], ";", RowBox[{"logwmax", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Max", "[", "lw", "]"}]}], "]"}], "+", "1.5"}]}], ";", "\[IndentingNewLine]", RowBox[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], RowBox[{"if", "[", "VSta", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"AbsoluteThickness", "[", "2", "]"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", "Automatic", ",", "None", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], " ", RowBox[{"if", "[", "V", "]"}]}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"Am0", "[", "VSta", "]"}], "/", "AmEt"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"\[Theta]s", "[", "VSta", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SuperscriptBox[\(A\), \ \(-\)]\)(0)/\!\(\*SuperscriptBox[\(A\), \(-*\)]\), \!\(\*SubscriptBox[\(\ \[Theta]\), \(s\)]\), \!\(\*SubscriptBox[\(\[Theta]\), \(A\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(E+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\!\(\*SuperscriptBox[\(A\), \ \(-\)]\)(0)/\!\(\*SuperscriptBox[\(A\), \(-*\)]\), \!\(\*SubscriptBox[\(\ \[Theta]\), \(s\)]\), \!\(\*SubscriptBox[\(\[Theta]\), \(A\)]\)\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"Am0", "[", "V", "]"}], "/", "AmEt"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{"\[Theta]s", "[", "V", "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{"\[Theta]A", "[", "V", "]"}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SuperscriptBox[ StyleBox[\"A\", FontWeight->\"Plain\"], \"-\"]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.7"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.6"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.62"}], "}"}]}], "}"}]}], ",", 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[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\"Z\", SuperscriptBox[ StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"], \"-\"]]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\\\"\\\\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.65"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\\\"\)]\)\>\ \"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\\\"\\\\\"\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\\\"\)]\))\>\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\ \)+\!\(\*SubscriptBox[\(R\), \(\\\"\\\\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZfEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"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", ",", "1.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.6"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}], ",", "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[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZfEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZfEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZfEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", "Purple", ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"AbsolutePointSize", "[", "6", "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\ \>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\ \)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(A\), \(-\)]\) + \ s \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) A,s \ + \!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< A,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d2\)]]\) A + s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logko", ",", "10", ",", "\"\\""}], "}"}], ",", "8", ",", "12", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkd", ",", "4.7", ",", "\"\\""}], "}"}], ",", "2", ",", "6", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalOmega]", ",", "2500", ",", "\"\<\[CapitalOmega]/rpm\>\""}], "}"}], ",", "500", ",", " ", RowBox[{"5", " ", RowBox[{"10", "^", "3"}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"DXi", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", "\"\<\!\(\*SubscriptBox[\(D\), SuperscriptBox[\(A\), \(-\)]]\)/(\!\(\ \*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))\>\""}], "}"}], ",", RowBox[{"5.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"5.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AmEt", ",", RowBox[{"5.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", "\"\<\!\(\*SuperscriptBox[\(A\), \(-*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))\>\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", " ", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "4"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "6"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ROhm", ",", "0.", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\ \[CapitalOmega] \!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\""}], "}"}], ",", "0.", ",", "10.", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"V", ",", RowBox[{"-", "0.1"}], ",", "\"\\""}], "}"}], ",", "Vmin", ",", "Vmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logwc", ",", "1", ",", "\"\\""}], "}"}], ",", "logwmin", ",", "logwmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc1", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \ \(dl\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc2", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = \ 2.54/\!\(\*SubscriptBox[\(\[Tau]\), SuperscriptBox[\(dA\), \(-\)]]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc3", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = \ \!\(\*SubscriptBox[\(k\), \(d\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Ko", "[", "V_", "]"}], ":=", RowBox[{"ko", " ", RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Am0", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"AmEt", " ", "mAm", " ", RowBox[{"Ko", "[", "V", "]"}]}], "-", RowBox[{"kd", " ", RowBox[{"(", RowBox[{"mAm", "+", RowBox[{"\[CapitalGamma]", " ", RowBox[{"Ko", "[", "V", "]"}]}]}], ")"}]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", "AmEt", " ", "kd", " ", SuperscriptBox["mAm", "2"], " ", RowBox[{"Ko", "[", "V", "]"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"AmEt", " ", "mAm", " ", RowBox[{"Ko", "[", "V", "]"}]}], "-", RowBox[{"kd", " ", RowBox[{"(", RowBox[{"mAm", "+", RowBox[{"\[CapitalGamma]", " ", RowBox[{"Ko", "[", "V", "]"}]}]}], ")"}]}]}], ")"}], "2"]}]]}], RowBox[{"2", " ", "mAm", " ", RowBox[{"Ko", "[", "V", "]"}]}]]}], ";", RowBox[{ RowBox[{"\[Theta]A", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"kd", " ", "mAm"}], "+", RowBox[{"AmEt", " ", "mAm", " ", RowBox[{"Ko", "[", "V", "]"}]}], "+", RowBox[{"kd", " ", "\[CapitalGamma]", " ", RowBox[{"Ko", "[", "V", "]"}]}], "-", SqrtBox[ RowBox[{ RowBox[{"4", " ", "AmEt", " ", "kd", " ", SuperscriptBox["mAm", "2"], " ", RowBox[{"Ko", "[", "V", "]"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"AmEt", " ", "mAm", " ", RowBox[{"Ko", "[", "V", "]"}]}], "-", RowBox[{"kd", " ", RowBox[{"(", RowBox[{"mAm", "+", RowBox[{"\[CapitalGamma]", " ", RowBox[{"Ko", "[", "V", "]"}]}]}], ")"}]}]}], ")"}], "2"]}]]}], RowBox[{"2", " ", "kd", " ", "\[CapitalGamma]", " ", RowBox[{"Ko", "[", "V", "]"}]}]]}], ";", RowBox[{ RowBox[{"\[Theta]s", "[", "V_", "]"}], ":=", RowBox[{"1", "-", RowBox[{"\[Theta]A", "[", "V", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{"F", " ", RowBox[{"(", RowBox[{ RowBox[{"kd", " ", "mAm"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AmEt", " ", "mAm"}], "+", RowBox[{"kd", " ", "\[CapitalGamma]"}]}], ")"}], " ", RowBox[{"Ko", "[", "V", "]"}]}], "-", SqrtBox[ RowBox[{ RowBox[{ SuperscriptBox["kd", "2"], " ", SuperscriptBox["mAm", "2"]}], "+", RowBox[{"2", " ", "kd", " ", "mAm", " ", RowBox[{"(", RowBox[{ RowBox[{"AmEt", " ", "mAm"}], "+", RowBox[{"kd", " ", "\[CapitalGamma]"}]}], ")"}], " ", RowBox[{"Ko", "[", "V", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"AmEt", " ", "mAm"}], "-", RowBox[{"kd", " ", "\[CapitalGamma]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"Ko", "[", "V", "]"}], "2"]}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"Ko", "[", "V", "]"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"logwmin", "=", RowBox[{"-", "4"}]}], ";", RowBox[{"logwmax", "=", "7"}], ";", RowBox[{"Vmin", "=", RowBox[{"-", "0.7"}]}], ";", RowBox[{"Vmax", "=", "0.6"}], ";", RowBox[{"\[CapitalGamma]", "=", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "11"}]}]}]}], ";", RowBox[{"Farad", "=", RowBox[{"F", "=", "96485."}]}], ";", RowBox[{"Nu", "=", RowBox[{"10", "^", RowBox[{"-", "2"}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"CstLevich", "=", "1.61197581"}], ";", RowBox[{"InvCstLevich", "=", RowBox[{"1", "/", "CstLevich"}]}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{"Blue", ",", "Purple", ",", RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.6142719099991583`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.404272476373662*^9, 3.404272477958503*^9}, 3.404272668581314*^9, {3.4042727232240887`*^9, 3.404272728454939*^9}, { 3.404272786841215*^9, 3.404272804870813*^9}, {3.404272838309691*^9, 3.4042728618375607`*^9}, {3.4042729526001043`*^9, 3.4042730381516457`*^9}, {3.404273079691609*^9, 3.404273217892606*^9}, { 3.404273294955968*^9, 3.404273298760388*^9}, {3.404273387794849*^9, 3.4042734503165693`*^9}, {3.4042734961086283`*^9, 3.404273547525057*^9}, { 3.404273625605628*^9, 3.404273650497052*^9}, {3.404273731173894*^9, 3.404273767096957*^9}, {3.404273799830763*^9, 3.4042738707648983`*^9}, { 3.40427393239679*^9, 3.404273934883729*^9}, {3.404273974145442*^9, 3.404274003508957*^9}, {3.404274114255464*^9, 3.404274136338912*^9}, { 3.4042741762935133`*^9, 3.404274195910239*^9}, 3.404274257986496*^9, { 3.404274329300447*^9, 3.404274329827894*^9}, {3.404274362144527*^9, 3.4042743661154137`*^9}, {3.404281794664309*^9, 3.404281797246611*^9}, { 3.404281837182343*^9, 3.404281875096817*^9}, {3.4042819679357033`*^9, 3.404282033539279*^9}, 3.404282085939872*^9, {3.404282140862443*^9, 3.404282160336235*^9}, {3.404282299291065*^9, 3.404282345207913*^9}, { 3.404282812673225*^9, 3.404282870347505*^9}, 3.4042829101123857`*^9, { 3.404282941905983*^9, 3.4042829483433933`*^9}, {3.404283073216866*^9, 3.404283082327835*^9}, {3.404283141356715*^9, 3.404283182821355*^9}, { 3.4042832155227327`*^9, 3.404283258833531*^9}, {3.4042833626548147`*^9, 3.404283398426738*^9}, {3.404390659988315*^9, 3.404390689351815*^9}, { 3.4043907568818893`*^9, 3.404390784286687*^9}, {3.404390860657833*^9, 3.40439091742135*^9}, {3.4043910359543037`*^9, 3.404391054714142*^9}, { 3.404391767968842*^9, 3.40439188885679*^9}, {3.404391935788953*^9, 3.404391940364382*^9}, {3.404392002048643*^9, 3.404392004447742*^9}, { 3.404392051525515*^9, 3.404392068363361*^9}, 3.40439214659828*^9, { 3.404392703278009*^9, 3.404392771112996*^9}, {3.4043928035315*^9, 3.404392840756844*^9}, {3.404392972994961*^9, 3.4043929740834846`*^9}, { 3.4044290030768223`*^9, 3.404429021544701*^9}, {3.404429287683379*^9, 3.404429317399768*^9}, {3.404429368432976*^9, 3.404429454063241*^9}, { 3.404429505178494*^9, 3.404429557925486*^9}, {3.4044306288480873`*^9, 3.40443063643995*^9}, {3.404436058103282*^9, 3.40443606382516*^9}, { 3.404442176375844*^9, 3.404442230132934*^9}, {3.404442261628434*^9, 3.404442267453909*^9}, {3.404442314318016*^9, 3.404442328013001*^9}, { 3.4044423891008577`*^9, 3.404442389940579*^9}, {3.4044425469300003`*^9, 3.404442548202819*^9}, {3.404442639671391*^9, 3.404442640118331*^9}, 3.404456693542221*^9, {3.4044731628011703`*^9, 3.404473224992757*^9}, { 3.404473319237414*^9, 3.404473331786914*^9}, {3.404473366700746*^9, 3.404473438662547*^9}, {3.404473479901114*^9, 3.4044735206668663`*^9}, { 3.404473554174704*^9, 3.404473559247058*^9}, {3.404473610185067*^9, 3.404473670607089*^9}, 3.404473917120986*^9, {3.404473956994831*^9, 3.4044739580180397`*^9}, {3.404474088931505*^9, 3.4044741427717657`*^9}, { 3.4044741754491243`*^9, 3.404474290693391*^9}, {3.404474329701288*^9, 3.404474330346374*^9}, {3.404474373890414*^9, 3.404474374373801*^9}, { 3.404474404892201*^9, 3.404474408099757*^9}, {3.4044747799074163`*^9, 3.404474789322126*^9}, {3.4044748366129103`*^9, 3.404474847666203*^9}, { 3.404475972114959*^9, 3.404475987975752*^9}, {3.404476018684896*^9, 3.404476038872746*^9}, {3.4045301344013033`*^9, 3.4045301513930283`*^9}, { 3.404530190584299*^9, 3.404530267364694*^9}, {3.404530412065104*^9, 3.404530421363574*^9}, {3.404532943959751*^9, 3.40453302831153*^9}, { 3.404797302593358*^9, 3.404797348319078*^9}, {3.404797395180875*^9, 3.404797445296929*^9}, {3.404797512936145*^9, 3.404797531923532*^9}, { 3.404797584908869*^9, 3.404797680615205*^9}, {3.404797888873632*^9, 3.404797927843219*^9}, {3.40479798203458*^9, 3.4047979846574163`*^9}, { 3.404799350410967*^9, 3.4047993800733356`*^9}, {3.4047994156019373`*^9, 3.40479946595382*^9}, 3.404799543220315*^9, {3.404799579114188*^9, 3.404799613458438*^9}, {3.4047996653481293`*^9, 3.404799762097822*^9}, { 3.4047998049182034`*^9, 3.404799895494069*^9}, {3.404799942573794*^9, 3.404799954307382*^9}, {3.404800020381646*^9, 3.40480040525935*^9}, { 3.404800550808537*^9, 3.404800608631371*^9}, {3.404800645053679*^9, 3.4048007327873917`*^9}, {3.404800953337172*^9, 3.404800971605794*^9}, { 3.404801514373068*^9, 3.4048015834412746`*^9}, {3.404801626280081*^9, 3.404801679756674*^9}, {3.4048017255455723`*^9, 3.404801764976033*^9}, { 3.4048022738128366`*^9, 3.404802309061829*^9}, {3.404802472835491*^9, 3.404802488648676*^9}, {3.404802873068316*^9, 3.404802940995611*^9}, { 3.404803021397653*^9, 3.404803089530534*^9}, {3.404803131352415*^9, 3.40480331416397*^9}, {3.404803390688555*^9, 3.404803399355961*^9}, { 3.404804076089295*^9, 3.4048040991309633`*^9}, {3.40486865759769*^9, 3.404868695689033*^9}, {3.404868727872806*^9, 3.404868752113332*^9}, { 3.4048689449556093`*^9, 3.404868945390654*^9}, {3.404868977091063*^9, 3.404868999611095*^9}, {3.4048690325438747`*^9, 3.4048691321976748`*^9}, { 3.404870017553321*^9, 3.4048700526476727`*^9}, {3.404870143865489*^9, 3.404870165374588*^9}, {3.404870236586739*^9, 3.404870241266412*^9}, { 3.40487782873768*^9, 3.404877843702971*^9}, {3.40487789143778*^9, 3.4048780145768547`*^9}, {3.404878061361676*^9, 3.4048780949841347`*^9}, { 3.404878133750465*^9, 3.404878280232869*^9}, {3.404878337386598*^9, 3.4048783719798193`*^9}, {3.404878438417426*^9, 3.4048784934083*^9}, { 3.404878523465645*^9, 3.4048785775459213`*^9}, {3.405511207402516*^9, 3.4055112246878357`*^9}, {3.405511272072027*^9, 3.4055113144445868`*^9}, { 3.4055113899812098`*^9, 3.4055114055521107`*^9}, 3.4055114565897427`*^9, { 3.405511542447608*^9, 3.405511544702585*^9}, {3.405511578649404*^9, 3.4055115867779827`*^9}, {3.4058475004512653`*^9, 3.4058475057616663`*^9}, {3.405847683675837*^9, 3.405847742261528*^9}, { 3.405847813034894*^9, 3.405847862566736*^9}, {3.4058479034737253`*^9, 3.405847915737713*^9}, {3.405847972630558*^9, 3.405848071685534*^9}, { 3.405848263832196*^9, 3.405848371901084*^9}, {3.4058484122428207`*^9, 3.405848434439968*^9}, {3.4058485048212976`*^9, 3.4058485149310703`*^9}, { 3.4058488561629763`*^9, 3.405848893735724*^9}, {3.405849690954006*^9, 3.4058497433152037`*^9}, {3.4058497908573227`*^9, 3.40584989515611*^9}, { 3.405849957531012*^9, 3.4058499590584803`*^9}, {3.405849992307493*^9, 3.405850043794392*^9}, {3.405850099359001*^9, 3.40585011759512*^9}, { 3.4058517151923227`*^9, 3.405851779818666*^9}, {3.407381728101392*^9, 3.407381751973065*^9}, {3.407381805775076*^9, 3.407381829965534*^9}, { 3.407381996344166*^9, 3.407382069327729*^9}, {3.4073823592813883`*^9, 3.407382364765223*^9}, {3.4091446948309183`*^9, 3.409144704757983*^9}, { 3.409145150121394*^9, 3.409145169748128*^9}, {3.409145221801231*^9, 3.40914534214545*^9}, {3.409145555864357*^9, 3.409145570587775*^9}, { 3.4091457201985807`*^9, 3.409145810944936*^9}, {3.4091979660446568`*^9, 3.409197989979432*^9}, {3.40919803855297*^9, 3.409198045609851*^9}, { 3.409198098466488*^9, 3.409198112257579*^9}, {3.4091981504837227`*^9, 3.409198153522263*^9}, {3.4091983396772823`*^9, 3.409198394447831*^9}, { 3.409198430147241*^9, 3.4091985144139557`*^9}, {3.4091985569382057`*^9, 3.409198645920292*^9}, {3.409198680357965*^9, 3.409198759343459*^9}, 3.409198797333907*^9, 3.409198858249975*^9, {3.409198898586858*^9, 3.4091989590514393`*^9}, {3.409199010753881*^9, 3.409199011201825*^9}, { 3.409199080287072*^9, 3.4091990871999607`*^9}, {3.4091991313120327`*^9, 3.4091991506497393`*^9}, {3.40919921656496*^9, 3.409199219103196*^9}, { 3.409199254442206*^9, 3.409199358914257*^9}, {3.409199406952813*^9, 3.409199435516676*^9}, {3.409199472250305*^9, 3.4091994758022137`*^9}, { 3.4091997282430983`*^9, 3.409199729777094*^9}, {3.409199856059022*^9, 3.4091998895127573`*^9}, {3.4091999729793043`*^9, 3.409199974582591*^9}, 3.4092000546359787`*^9, {3.4092001436980133`*^9, 3.4092001934302177`*^9}, { 3.409200247031893*^9, 3.409200349184458*^9}, {3.409200427862976*^9, 3.409200432516345*^9}, {3.409200542244075*^9, 3.40920055184779*^9}, { 3.4092005960240927`*^9, 3.409200599302109*^9}, 3.409659897133309*^9, { 3.40966001382692*^9, 3.409660023471949*^9}, {3.4096603583021812`*^9, 3.409660398665349*^9}, {3.409826369914709*^9, 3.409826549832324*^9}, { 3.4098267129596767`*^9, 3.409826763001767*^9}, {3.409827039601323*^9, 3.409827041308535*^9}, 3.4098357049570847`*^9, {3.409836076781519*^9, 3.409836082369824*^9}, {3.4098362001620293`*^9, 3.409836205395507*^9}, { 3.409836243672278*^9, 3.409836250163774*^9}, {3.4098870624197893`*^9, 3.409887079496112*^9}, {3.409887480167531*^9, 3.409887579914795*^9}, { 3.4098876544890757`*^9, 3.409887764519596*^9}, {3.409887859654282*^9, 3.4098879077556553`*^9}, {3.409887976652581*^9, 3.409888061869278*^9}, { 3.40988810046828*^9, 3.409888150048283*^9}, 3.4098882021345673`*^9, { 3.409888254379335*^9, 3.409888294266397*^9}, {3.4098883322826757`*^9, 3.40988833307551*^9}, {3.409888458439542*^9, 3.4098884772445374`*^9}, { 3.409888971709462*^9, 3.409888973717918*^9}, {3.409889033847617*^9, 3.409889034565271*^9}, {3.409889118168438*^9, 3.40988912242384*^9}, { 3.409889184644986*^9, 3.409889245842848*^9}, {3.4098893768829813`*^9, 3.409889398954444*^9}, 3.409889446666225*^9, {3.409889504149583*^9, 3.409889509922298*^9}, {3.409889553883994*^9, 3.409889608326518*^9}, { 3.4098896500586777`*^9, 3.409889656222608*^9}, {3.40988977856738*^9, 3.40988981125292*^9}, {3.409889870395122*^9, 3.4098899106131983`*^9}, { 3.409889969637135*^9, 3.409889974296064*^9}, {3.4098902765772257`*^9, 3.409890283751268*^9}, {3.409890415914304*^9, 3.409890418997225*^9}, { 3.4098905365496683`*^9, 3.409890552736751*^9}, {3.4098906794376574`*^9, 3.409890683419834*^9}, {3.409890862230513*^9, 3.409890862679196*^9}, { 3.409890930368342*^9, 3.409891162540668*^9}, 3.409891262503067*^9, { 3.409891318307454*^9, 3.409891396810326*^9}, {3.40989148470792*^9, 3.409891561310915*^9}, {3.4098916666894617`*^9, 3.409891745151566*^9}, { 3.409891790173766*^9, 3.409891793373557*^9}, {3.409961984636973*^9, 3.409961986696422*^9}, {3.409962096004808*^9, 3.4099627009814453`*^9}, 3.409962748548418*^9, {3.4099629640122538`*^9, 3.4099629663158293`*^9}, { 3.409963014267139*^9, 3.4099630700368023`*^9}, {3.4099631037820683`*^9, 3.409963195971099*^9}, {3.409963538379722*^9, 3.409963546515532*^9}, { 3.409963582654696*^9, 3.409963585095978*^9}, {3.409963619057889*^9, 3.409963652687055*^9}, {3.409963687375931*^9, 3.409963695576548*^9}, { 3.409963766561234*^9, 3.4099637943730783`*^9}, {3.409963830067019*^9, 3.409963905879588*^9}, {3.409964004179577*^9, 3.409964017983913*^9}, { 3.409964114927113*^9, 3.409964125998127*^9}, {3.4099642392248297`*^9, 3.409964267664547*^9}, {3.409964354097486*^9, 3.4099643557036877`*^9}, { 3.4099760538093853`*^9, 3.409976069020897*^9}, {3.409976110760868*^9, 3.4099761636454268`*^9}, {3.4099762146885977`*^9, 3.409976215664937*^9}, { 3.40997630849279*^9, 3.409976396858018*^9}, {3.409976457868639*^9, 3.4099764704991198`*^9}, 3.409976598000903*^9, {3.4099766817519073`*^9, 3.409976687061287*^9}, {3.4099767313396597`*^9, 3.4099767335465918`*^9}, 3.409976823154581*^9, {3.410149429685978*^9, 3.41014953731946*^9}, 3.410149977823204*^9, {3.410150030864727*^9, 3.410150043755621*^9}, 3.410150428436063*^9, {3.410150572093894*^9, 3.410150580297813*^9}, { 3.410150632005249*^9, 3.410150660879929*^9}, {3.4101507708731203`*^9, 3.410150827384691*^9}, {3.410150874753819*^9, 3.410150892525072*^9}, 3.410925648619673*^9, {3.4109257137752953`*^9, 3.410925931001933*^9}, { 3.410925962783224*^9, 3.410926039061837*^9}, {3.410926141628758*^9, 3.4109261865971212`*^9}, {3.4109262351245003`*^9, 3.410926235632906*^9}, { 3.410926460538295*^9, 3.41092646919339*^9}, {3.4109265185715847`*^9, 3.410926521212974*^9}, {3.410926563750085*^9, 3.410926588842351*^9}, { 3.4109266673503532`*^9, 3.410926689245442*^9}, {3.41092672586158*^9, 3.410926726939378*^9}, {3.410926834128446*^9, 3.410926841127451*^9}, { 3.410926888512619*^9, 3.410926898799737*^9}, {3.410948286155225*^9, 3.41094830480709*^9}, {3.410948342943017*^9, 3.410948370822774*^9}, { 3.410948414514083*^9, 3.410948420041129*^9}, {3.4109484535241756`*^9, 3.410948475580389*^9}, {3.410948545505292*^9, 3.410948556483491*^9}, { 3.4109486081637506`*^9, 3.410948639113728*^9}, {3.410948686968917*^9, 3.410948786916319*^9}, {3.410948820525895*^9, 3.410948889716655*^9}, { 3.41094895982858*^9, 3.410948973563656*^9}, {3.4109490123964453`*^9, 3.410949039378408*^9}, {3.410949093988408*^9, 3.410949119312831*^9}, { 3.410949181859564*^9, 3.410949207457135*^9}, {3.4109493969999723`*^9, 3.4109494162920523`*^9}, {3.41094951686439*^9, 3.410949523211501*^9}, { 3.4109496137771883`*^9, 3.4109496282488127`*^9}, {3.410959864850168*^9, 3.410959865242928*^9}, {3.410959901271183*^9, 3.4109599688163233`*^9}, 3.4109603353331537`*^9, {3.410960504365419*^9, 3.410960507542637*^9}, { 3.4109605570033283`*^9, 3.410960583845331*^9}, {3.410960650615024*^9, 3.410960659904011*^9}, {3.411018163793982*^9, 3.41101819758845*^9}, 3.411018240714653*^9, {3.4110182753073597`*^9, 3.4110182916074266`*^9}, { 3.411018374934937*^9, 3.411018453709412*^9}, {3.411018539856038*^9, 3.4110185415574417`*^9}, {3.411018600069673*^9, 3.411018639741459*^9}, { 3.411018737642906*^9, 3.411018806227697*^9}, {3.411018889697266*^9, 3.411018899540937*^9}, {3.411018978844326*^9, 3.411019059562706*^9}, { 3.411019272938204*^9, 3.4110193144978533`*^9}, {3.411019361965736*^9, 3.411019372193111*^9}, {3.411019404767762*^9, 3.411019427728716*^9}, { 3.411019477122229*^9, 3.4110194868236837`*^9}, {3.411019646963661*^9, 3.411019689435801*^9}, {3.411019800276325*^9, 3.411019807295128*^9}, 3.4110200511512938`*^9, {3.411038975170105*^9, 3.411039002271379*^9}, 3.411039052939898*^9, {3.41103908925704*^9, 3.4110391994789677`*^9}, { 3.411039295780336*^9, 3.411039303362499*^9}, {3.41103936985748*^9, 3.4110393755857077`*^9}, {3.411039474422398*^9, 3.411039520498662*^9}, { 3.411039916830832*^9, 3.411039918816587*^9}, {3.411041088269456*^9, 3.411041105119681*^9}, {3.411041990290862*^9, 3.411042186760646*^9}, 3.411042264322444*^9, {3.4110422977362537`*^9, 3.4110423931057997`*^9}, { 3.4110424857212543`*^9, 3.411042499328354*^9}, {3.4110429337898808`*^9, 3.4110430750119057`*^9}, {3.411100935682583*^9, 3.411100955262154*^9}, { 3.411100990652575*^9, 3.411101018822084*^9}, {3.41110110697653*^9, 3.411101107729434*^9}, {3.411101164217008*^9, 3.411101177853368*^9}, { 3.411101214258018*^9, 3.411101270993619*^9}, {3.411101342344133*^9, 3.411101342500997*^9}, {3.41110158781468*^9, 3.411101588271044*^9}, { 3.411101667804233*^9, 3.411101680101733*^9}, {3.4111017701552067`*^9, 3.411101830789118*^9}, {3.411101868258917*^9, 3.411101870533207*^9}, { 3.411102020118251*^9, 3.411102020441485*^9}, {3.411102058667342*^9, 3.411102108798935*^9}, {3.4111021571221457`*^9, 3.411102179426759*^9}, { 3.411102253801669*^9, 3.4111022614889317`*^9}, {3.411102420943939*^9, 3.4111024801211643`*^9}, {3.411102867430377*^9, 3.411102874126959*^9}, { 3.411105230462811*^9, 3.411105267147752*^9}, {3.4111053005971003`*^9, 3.411105306267056*^9}, {3.4111053695420027`*^9, 3.411105581691329*^9}, { 3.411194183386841*^9, 3.411194228878758*^9}, {3.411194315208947*^9, 3.4111943156239*^9}, {3.4111943835416393`*^9, 3.411194409299473*^9}, { 3.411207457162108*^9, 3.411207510683132*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`AmEt$$ = 0.00005, $CellContext`ao$$ = 0.5, $CellContext`DXi$$ = 0.00001, $CellContext`logCdl$$ = -6, $CellContext`logkd$$ = 4.7, $CellContext`logko$$ = 10, $CellContext`logwc$$ = 1, $CellContext`ROhm$$ = 0., $CellContext`V$$ = -0.1, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`wc3$$ = False, $CellContext`\[CapitalOmega]$$ = 2500, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " \!\(\*SuperscriptBox[\(A\), \(-\)]\) + s \ \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) A,s + \ \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " A,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d2\)]]\) A + s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logko$$], 10, "log(\!\(\*SubscriptBox[\(k\), \ \(o1\)]\)/(\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \ \!\(\*SuperscriptBox[\(cm\), \(3\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 8, 12}, {{ Hold[$CellContext`ao$$], 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`logkd$$], 4.7, "log(\!\(\*SubscriptBox[\(k\), \(d2\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 2, 6}, {{ Hold[$CellContext`\[CapitalOmega]$$], 2500, "\[CapitalOmega]/rpm"}, 500, 5000}, {{ Hold[$CellContext`DXi$$], 0.00001, "\!\(\*SubscriptBox[\(D\), SuperscriptBox[\(A\), \ \(-\)]]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))"}, 4.9999999999999996`*^-6, 0.00005}, {{ Hold[$CellContext`AmEt$$], 0.00005, "\!\(\*SuperscriptBox[\(A\), \(-*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 1.*^-6, 0.0001}, {{ Hold[$CellContext`logCdl$$], -6, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3}, {{ Hold[$CellContext`ROhm$$], 0., "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0., 10.}, {{ Hold[$CellContext`V$$], -0.1, "E/V"}, -0.7, 0.6}, {{ Hold[$CellContext`logwc$$], 1, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -0.015221799121618806`, 6.222063556239492}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = 2.54/\!\(\*SubscriptBox[\ \(\[Tau]\), SuperscriptBox[\(dA\), \(-\)]]\)"}, {False, True}}, {{ Hold[$CellContext`wc3$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = \ \!\(\*SubscriptBox[\(k\), \(d\)]\)"}, {False, True}}}, Typeset`size$$ = { 545., {169., 173.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logko$373$$ = 0, $CellContext`ao$374$$ = 0, $CellContext`logkd$375$$ = 0, $CellContext`\[CapitalOmega]$376$$ = 0, $CellContext`DXi$377$$ = 0, $CellContext`AmEt$378$$ = 0, $CellContext`logCdl$379$$ = 0, $CellContext`ROhm$380$$ = 0, $CellContext`V$381$$ = 0, $CellContext`logwc$382$$ = 0, $CellContext`wc1$383$$ = False, $CellContext`wc2$384$$ = False, $CellContext`wc3$385$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`AmEt$$ = 0.00005, $CellContext`ao$$ = 0.5, $CellContext`DXi$$ = 0.00001, $CellContext`logCdl$$ = -6, $CellContext`logkd$$ = 4.7, $CellContext`logko$$ = 10, $CellContext`logwc$$ = 1, $CellContext`ROhm$$ = 0., $CellContext`V$$ = -0.1, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`wc3$$ = False, $CellContext`\[CapitalOmega]$$ = 2500}, "ControllerVariables" :> { Hold[$CellContext`logko$$, $CellContext`logko$373$$, 0], Hold[$CellContext`ao$$, $CellContext`ao$374$$, 0], Hold[$CellContext`logkd$$, $CellContext`logkd$375$$, 0], Hold[$CellContext`\[CapitalOmega]$$, \ $CellContext`\[CapitalOmega]$376$$, 0], Hold[$CellContext`DXi$$, $CellContext`DXi$377$$, 0], Hold[$CellContext`AmEt$$, $CellContext`AmEt$378$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$379$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$380$$, 0], Hold[$CellContext`V$$, $CellContext`V$381$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$382$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$383$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$384$$, False], Hold[$CellContext`wc3$$, $CellContext`wc3$385$$, 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`kd = 10^$CellContext`logkd$$; $CellContext`KoV = \ $CellContext`Ko[$CellContext`V$$]; $CellContext`AmV = \ $CellContext`Am0[$CellContext`V$$]; $CellContext`\[Theta]sV = $CellContext`\ \[Theta]s[$CellContext`V$$]; $CellContext`mAm = \ $CellContext`mXi[$CellContext`DXi$$, $CellContext`Nu, $CellContext`\ \[CapitalOmega]$$ 2 (Pi/60)]; $CellContext`tau = \ $CellContext`tauXi[$CellContext`DXi$$, $CellContext`Nu, $CellContext`\ \[CapitalOmega]$$ 2 (Pi/60)]; $CellContext`MAm = (1/$CellContext`mAm) ( Tanh[($CellContext`tau $CellContext`p)^ Rational[1, 2]]/($CellContext`tau $CellContext`p)^ Rational[1, 2]); $CellContext`Rt = 1/($CellContext`AmV $CellContext`ao$$ $CellContext`f \ $CellContext`Farad $CellContext`KoV $CellContext`\[CapitalGamma] \ $CellContext`\[Theta]sV); $CellContext`Rp = $CellContext`Rt ( 1 + $CellContext`\[CapitalGamma] $CellContext`\[Theta]sV \ $CellContext`KoV/$CellContext`mAm + $CellContext`AmV \ $CellContext`KoV/$CellContext`kd); $CellContext`ZX1 = $CellContext`MAm \ $CellContext`Rt $CellContext`\[CapitalGamma] $CellContext`\[Theta]sV \ $CellContext`KoV; $CellContext`ZX2 = $CellContext`AmV $CellContext`KoV \ $CellContext`Rt/($CellContext`kd + $CellContext`p); $CellContext`RpVcpROhm = \ $CellContext`Rp + $CellContext`ROhm$$; $CellContext`ROhmEt = \ $CellContext`ROhm$$/$CellContext`RpVcpROhm; $CellContext`ZX1Et = \ $CellContext`ZX1/$CellContext`RpVcpROhm; $CellContext`ZX2Et = \ $CellContext`ZX2/$CellContext`RpVcpROhm; $CellContext`Zf = $CellContext`Rt + \ $CellContext`ZX1 + $CellContext`ZX2; $CellContext`ZfEt = \ $CellContext`Zf/$CellContext`RpVcpROhm; $CellContext`ZEt = ($CellContext`Zf/( 1 + $CellContext`p $CellContext`Cdl \ $CellContext`Zf))/$CellContext`RpVcpROhm; $CellContext`lw = { 1/($CellContext`Rt $CellContext`Cdl), 2.54/$CellContext`tau, $CellContext`kd}; $CellContext`logwmin = Log[10, Min[$CellContext`lw]] - 1.5; $CellContext`logwmax = Log[10, Max[$CellContext`lw]] + 1.5; GraphicsGrid[{{ ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], 10^3 $CellContext`if[$CellContext`VSta]}}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, PlotStyle -> { AbsoluteThickness[2]}, Frame -> True, FrameTicks -> {{-0.5, 0, 0.5}, Automatic, None, None}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], 10^3 $CellContext`if[$CellContext`V$$]}]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}], AspectRatio -> 1/GoldenRatio, Axes -> None, BaseStyle -> $CellContext`monStyle, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], \ $CellContext`Am0[$CellContext`VSta]/$CellContext`AmEt$$}, {$CellContext`VSta + \ $CellContext`ROhm$$ $CellContext`if[$CellContext`VSta], $CellContext`\[Theta]s[$CellContext`VSta]}, {$CellContext`VSta + \ $CellContext`ROhm$$ $CellContext`if[$CellContext`VSta], $CellContext`\[Theta]A[$CellContext`VSta]}}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, Frame -> True, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SuperscriptBox[\(A\), \(-\)]\)(0)/\!\(\*SuperscriptBox[\ \(A\), \(-*\)]\), \!\(\*SubscriptBox[\(\[Theta]\), \(s\)]\), \ \!\(\*SubscriptBox[\(\[Theta]\), \(A\)]\)"}, { "(E+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\!\(\*SuperscriptBox[\(A\), \(-\)]\)(0)/\!\(\*SuperscriptBox[\ \(A\), \(-*\)]\), \!\(\*SubscriptBox[\(\[Theta]\), \(s\)]\), \ \!\(\*SubscriptBox[\(\[Theta]\), \(A\)]\)"}], Axes -> None, FrameTicks -> {{-0.5, 0, 0.5}, {0, 0.5, 1}, None, None}, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[1.5]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[1.5]}, { Part[$CellContext`lHue, 5], AbsoluteThickness[1.5]}}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], \ $CellContext`Am0[$CellContext`V$$]/$CellContext`AmEt$$}], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], $CellContext`\[Theta]s[$CellContext`V$$]}], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], $CellContext`\[Theta]A[$CellContext`V$$]}], Part[$CellContext`lHue, 3], Text[ "\!\(\*SuperscriptBox[\n StyleBox[\"A\",\n\ FontWeight->\"Plain\"], \"-\"]\)", Scaled[{0.1, 0.8}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"s\"\)]\)", Scaled[{0.1, 0.7}]], Part[$CellContext`lHue, 5], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"A\"\)]\)", Scaled[{0.1, 0.6}]]}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, BaseStyle -> $CellContext`monStyle, ImageSize -> 250, AspectRatio -> 1/GoldenRatio]}, { ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 250, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}}, PlotRange -> {{0, 1.01}, {0, 0.62}}, FrameTicks -> {{0, 0.5, 1}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], If[$CellContext`wc3$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I Part[$CellContext`lw, 3]]]}, {}], { Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logwc$$]]}, { Point[ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I 10^$CellContext`logwc$$]]}, Part[$CellContext`lHue, 3], Text[ "\!\(\*SubscriptBox[\"Z\", SuperscriptBox[\n \ StyleBox[\"\\\"A\\\"\",\nFontWeight->\"Plain\"], \"-\"]]\)", Scaled[{0.1, 0.8}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(Z\), \(\"s\"\)]\)", Scaled[{0.1, 0.65}]]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "Re Z/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle], ParametricPlot[{ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $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, 1.01}, {0, 0.6}}, FrameTicks -> {{-1, -0.5, 0, 0.5, 1}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], If[$CellContext`wc3$$, {Red, Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 3]]], Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I Part[$CellContext`lw, 3]]]}, {}], Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Purple, Text["Z", Scaled[{0.1, 0.9}]], Blue, Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", Scaled[{0.1, 0.8}]], AbsolutePointSize[6]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle]}}]), "Specifications" :> { Style[ " \!\(\*SuperscriptBox[\(A\), \(-\)]\) + s \ \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) A,s + \ \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium], Style[ " A,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d2\)]]\) A + s", Bold, Medium], Delimiter, {{$CellContext`logko$$, 10, "log(\!\(\*SubscriptBox[\(k\), \ \(o1\)]\)/(\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \ \!\(\*SuperscriptBox[\(cm\), \(3\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 8, 12, Appearance -> "Labeled"}, {{$CellContext`ao$$, 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`logkd$$, 4.7, "log(\!\(\*SubscriptBox[\(k\), \ \(d2\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 2, 6, Appearance -> "Labeled"}, {{$CellContext`\[CapitalOmega]$$, 2500, "\[CapitalOmega]/rpm"}, 500, 5000, Appearance -> "Labeled"}, {{$CellContext`DXi$$, 0.00001, "\!\(\*SubscriptBox[\(D\), SuperscriptBox[\(A\), \ \(-\)]]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))"}, 4.9999999999999996`*^-6, 0.00005, Appearance -> "Labeled"}, {{$CellContext`AmEt$$, 0.00005, "\!\(\*SuperscriptBox[\(A\), \(-*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 1.*^-6, 0.0001, Appearance -> "Labeled"}, {{$CellContext`logCdl$$, -6, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, {{$CellContext`ROhm$$, 0., "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0., 10., Appearance -> "Labeled"}, Delimiter, {{$CellContext`V$$, -0.1, "E/V"}, -0.7, 0.6, Appearance -> "Labeled"}, {{$CellContext`logwc$$, 1, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -0.015221799121618806`, 6.222063556239492, Appearance -> "Labeled"}, {{$CellContext`wc1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{$CellContext`wc2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = \ 2.54/\!\(\*SubscriptBox[\(\[Tau]\), SuperscriptBox[\(dA\), \(-\)]]\)"}, { False, True}}, {{$CellContext`wc3$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = \ \!\(\*SubscriptBox[\(k\), \(d\)]\)"}, {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->{963., {240.375, 245.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Cdl = 6.095368972401693*^-6, $CellContext`ko = 1.*^10, $CellContext`kd = 26915.348039269138`, $CellContext`KoV = 1.4298722333809288`*^9, $CellContext`Ko[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko Exp[(FE`ao$$1 $CellContext`f) $CellContext`V$], Attributes[$CellContext`V$] = {Temporary}, FE`ao$$1 = 0.5, $CellContext`f = 38.9, $CellContext`AmV = 0.000032936883483942096`, $CellContext`Am0[ Pattern[$CellContext`V$, Blank[]]] := (( FE`AmEt$$1 $CellContext`mAm) $CellContext`Ko[$CellContext`V$] - \ $CellContext`kd ($CellContext`mAm + $CellContext`\[CapitalGamma] \ $CellContext`Ko[$CellContext`V$]) + Sqrt[(((4 FE`AmEt$$1) $CellContext`kd) $CellContext`mAm^2) \ $CellContext`Ko[$CellContext`V$] + (( FE`AmEt$$1 $CellContext`mAm) \ $CellContext`Ko[$CellContext`V$] - $CellContext`kd ($CellContext`mAm + \ $CellContext`\[CapitalGamma] $CellContext`Ko[$CellContext`V$]))^2])/(( 2 $CellContext`mAm) $CellContext`Ko[$CellContext`V$]), FE`AmEt$$1 = 0.00005, $CellContext`mAm = 0.0162992784444163, $CellContext`\[CapitalGamma] = 1.*^-11, $CellContext`\[Theta]sV = 0.36366743484524, $CellContext`\[Theta]s[ Pattern[$CellContext`V, Blank[]]] := 1 - $CellContext`\[Theta]A[$CellContext`V], $CellContext`\[Theta]A[ Pattern[$CellContext`V$, Blank[]]] := ($CellContext`kd $CellContext`mAm + ( FE`AmEt$$1 $CellContext`mAm) $CellContext`Ko[$CellContext`V$] + \ ($CellContext`kd $CellContext`\[CapitalGamma]) \ $CellContext`Ko[$CellContext`V$] - Sqrt[(((4 FE`AmEt$$1) $CellContext`kd) $CellContext`mAm^2) \ $CellContext`Ko[$CellContext`V$] + (( FE`AmEt$$1 $CellContext`mAm) $CellContext`Ko[$CellContext`V$] - \ $CellContext`kd ($CellContext`mAm + $CellContext`\[CapitalGamma] \ $CellContext`Ko[$CellContext`V$]))^2])/((( 2 $CellContext`kd) $CellContext`\[CapitalGamma]) \ $CellContext`Ko[$CellContext`V$]), $CellContext`mXi[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := \ $CellContext`DXi/$CellContext`deltaLevich[$CellContext`DXi, $CellContext`Nu, \ $CellContext`Omega], $CellContext`Nu = 1/100, $CellContext`deltaLevich[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := ($CellContext`CstLevich $CellContext`DXi^(1/ 3) $CellContext`Nu^(1/6))/$CellContext`Omega^(1/ 2), $CellContext`CstLevich = 1.61197581, $CellContext`tau = 0.08318701020277325, $CellContext`tauXi[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := $CellContext`deltaLevich[$CellContext`DXi, \ $CellContext`Nu, $CellContext`Omega]^2/$CellContext`DXi, $CellContext`MAm = ( 212.7178149057586 Tanh[0.2884215841485745 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`Rt = 3.1112609905000097`, $CellContext`Farad = 96485., $CellContext`Rp = 9.547826292266254, $CellContext`ZX1 = (3.441453872377401 Tanh[0.2884215841485745 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX2 = 146526.50133204646`/( 26915.348039269138` + $CellContext`p), $CellContext`RpVcpROhm = 11.607826292266255`, $CellContext`ROhmEt = 0.17746647375077282`, $CellContext`ZX1Et = (0.29647703073143666` Tanh[0.2884215841485745 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX2Et = 12623.078399240876`/( 26915.348039269138` + $CellContext`p), $CellContext`Zf = 3.1112609905000097` + 146526.50133204646`/( 26915.348039269138` + $CellContext`p) + (3.441453872377401 Tanh[0.2884215841485745 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZfEt = 0.0861487736654237 (3.1112609905000097` + 146526.50133204646`/( 26915.348039269138` + $CellContext`p) + (3.441453872377401 Tanh[0.28842