(* 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[ 134128, 2607] NotebookOptionsPosition[ 115874, 2279] NotebookOutlinePosition[ 133338, 2578] CellTagsIndexPosition[ 133295, 2575] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Insertion reaction #1", "Section", CellChangeTimes->{{3.403415856707246*^9, 3.4034159010519753`*^9}, { 3.403842695580738*^9, 3.403842698565597*^9}, {3.406459875106577*^9, 3.406459906072886*^9}, 3.406689909722328*^9, {3.4066943349019527`*^9, 3.40669433984967*^9}, {3.4067217324958153`*^9, 3.406721754220429*^9}, { 3.41022058562568*^9, 3.410220601542646*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell["Reaction", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, { 3.4107542133055887`*^9, 3.410754246790176*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJytWEtSFEEQbabnI4IzDoQKKiF6BFi4w0/I4MYNK7YTBBHMwtBAVhyBrYoR LNxzA27ACbgAnIATtPmq89VkN9nNOEFH9PR0dVbmy1dZmVX1ZXi4v/d1eDja Ha5uHQy/7492f6wOvh1IUzqTJMmV3OurCf5n8ld/rjK55OOUj7/h0couLy+z 0WiU7ezshPv8/Dx5Z0Xa2draGprxlt3c3MB8dn19vZFL/QyPfnZ6ehok8XUw GEAi9IBytK2srGRnZ2ehTQ1Fjfgmz0RV/gqPNBoDpoa2XVxchDZ5alutD7+N D0dHRxkviAnKraIUJIAFCoEfhgRzQaoVvMAXSMNT6ZF8LooY5OEWcxQ5MYiO j48DGjog3Qa51EDdBat6JbPaBmTKZPIh/HYiFl4AgDbQ9MrR1XN09XPTm4Zp VZk8NCMCgvD2Xr/APw48aIUzuEgTvomul47ax47aEgo4QYBz2gaq2LbnyPUd udxUsu5w0S2hQCTOG7RwynJm+247fRecviXz4KRsHkiBGG+PjJxOpChn+247 fRedvjl09aoVkHHIgFo8ipPJRhE8lXf5hpSTBm/QF5JPa1yxcsGVBkK95/Qg IgCFA7gxlCKusT1vtYULswaoTXCFdtWRO9IOYnBGMybVNCIeHZMcdIcTMJpB XDPTpAqd0x5vS447HDdA0fZIitdm+84ZObg3znB5G+1yfIFVk2gcDFCh868w xWk3NX0ZL7QBvjS1u/6mjr5ekUKbYXHBhOa5/6YQcHSmRVduxVUFhbDLHEO7 rDd4WzBy5XiGe+UZb7E0K3zFkKEf5pLna9PxoWvpe1BQyQoCszAv7w1Hax2D txNAdZIpM2htkBnWFHi4rG3McQiarmPXY8uUcLTXsmXx1rDFWgOziH9599ji uHOtIneOV+XKbTZm2toX6uvqV0fbWBbvssE1URbyYN4XunTFItMz5wgsF2tk GnM4svMLzdFahQqjaTG3HPo4T3EBN9NkxaBYdwuDklqtglwws6xYc6ozBtF9 B6+d/vSDQ27pYxYUvRELqLo7oMf+cJ4ixdX5yqGtDOhxN7PyjCoBnytqqmSk WQq8GnsfGZVFSeiJlIJi6ls0+kjVMyPHiOw6WMqUmskc/dcU6FJamVHHKmEK 3bA8o0rA5FKuTCneJ6F0mjrPJQ8X/dy5IK0+UXm4o5uDmH4xMbma9Wp7U3/p M2gXvakxx1xDd5uOmkJJH2vDZ0FaNqKaJuWtcoFYCom6ta7tmxo4cFCnTQXK pmPJcdfUJyoCcdQ/hbvTLO3fahv3z1gOLjn6LAVcwkmYEzkTR4kCZ3MQQLDa aHovWMD8owWRYtnGeLAItcxGgd2ZQu5ry8VUg/hmMW1qMTWbl+S50acDFQm0 dukHCEXbOLVUuuzs7GwBhBbUg7Zpq8swr41c3V53Q7n7n6MWei/ZY9kxw1zO /RSizIOdOnDUc7upNLEQSkXbfCvtw2L69piY7Oxh0hOiZlw8KVt5GHSsmcJ2 EXvejpEpQScUXU9G1NaTN07kzhrU3Lnlm9zKA6pVR03PUdMvIrHLsAO1UHG4 pQdOJzpS3uHWVlHEO9xSkT/GG+dwa9NK1R9afbI2Jz5k+pj3mvZQNJn5B4z2 rwU=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{226, 51}, ImageMargins->{{309, 0}, {0, 5}}]], "Input", CellChangeTimes->{{3.410754132536951*^9, 3.4107541466408567`*^9}, { 3.4107542267092*^9, 3.410754240283842*^9}, {3.4107552514422293`*^9, 3.4107552514422903`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Scheme of the reaction", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, { 3.410754164110176*^9, 3.4107541702116127`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztWr9vHEUU3tyd72zHP8DgGJsYEpLQYBQwSogMSLiwLSGo0hg6y0LYQgiI Q+PSdO5oXaVN4zpF+kipaCJMbeUPSNoUy3xv3jf7dm5290xs0rDS3ezNzL73 vZ/zZva+2bi79f1PG3e3Nzcurd3Z+GVre3Pn0urPd1xX+1yWZS/c549LGe5z d6tfL3J3ucGza/5G08qfPXvWko52fnx8nOuVve0nrUrTydfX14Ern5+fzx89 erSlTxwcHOSE3JLvdn7//v1A5V357sq81VUhJveLi4tgfNEzWZFmyI7IvWOW bXmU7uf7Bsru7q5AefDgwbyl0c23t7fz/f194QQ6QPfkyZMfIjJtdMqgI5W9 U6YBpODPC5gcp5hGJwBW0PPNZJxyCjLXVG5AgTRoIZmTIRtALGeHNC2HNTB1 DGNaMFCkZtwXtNbStleeW/G803HHv9Quh4eH+dHRkfy6bIe6+b179wTE3Nxc vrOzI1OfPn2q1lvzuNyEH8PdZSXqZgU/bev38vJyvre3lz98+JDe/jqaPzE+ 10SzQIPP7du35bcDPgAa4H78+LEVMTV95XSGFpQrlPr8+XP59XnT9CFRMESj mhzgbGkwLuWM0BF7bW5uioacJW5WU+nhbiEykHsku9HEuSdapT2uX79O20Lm 7FYzcIBTh6pTz6mbp2ZoRqEhnhGsXk7f5wKR+do8UUnC5KFAAiQ1p9SRuCAd Pm0gu+BCllKSLdBww1G3tA7gAITxFK8SYeT/fsIKu4/wUsKQo2HStL9zqvSr 3XCgCZmQXpHmmIFdPxdFDFH5n2kf0glZ9NI4uuJ7CX/slSG5540dSsJCr5Jn HUeMa39GZEZv2afKFAEOxmAGpsp8OAYpK+81DTRmL4jTjswzQUOWoGFpA2z0 497aB37ivPOmoiQaF82ZMPzII6AukRzihBGFb4ypG5YuYoKRHA6vmSGBBHOa Kaohn6AgrBPazfQKAC9qsltlT+YXgDOrT2HPGeUOrgDIIqWw2VBYb9EirJ2i AoNBbbdkJIEn4lfh6LPGO7T4CR7DmgeIvhzEl19N3usb4sJp3Czzeadt3dLX cSchgQzTTGJYjUdvhwpRQMF4tyz5xqRSRx1TmQa0sCxTbzdmhmrybfqC/FpK g66I6jqq8OV4A2C3ETf6BdBYDU5pgjX0QbskMVujM9DifgPhBHsmdFaOwuFS FEInYEejOn3WcbQ+ABKorxMc6yJvUCHHlSUszF0GPqD7iWf5gZIyy0eS1NnH 7IQiYXp1bfZd9XTJVy7fIPtgOspDrgRoUbTVPM4SBukSudilyUzKxpo6kS6L ypsLUicvSk3q79tqEueloxtyJlgTteurATxp1MPSv4bRqZvnovpSKoV91fxY Kjc1PlbOOV83T29KJjW1JIGmEsIA8qWiuuaxy/pYKjJX/kOr/j90pkNX1MzY azFZw1O8f+bBxdHnE3smuYkLAJ/DPa5izqQ4qvZJdOGyfHjogt+Yq4sH+rOr LwN5LkBGy60lF2FPz4+DBoIB95ij51dJyGjxHObpcRYLFE4F5fdeBvlYQAa0 LFBYZVnkQOj6O9I3mgSMaRCOp4myexgA8Mdqd9oVIf9GUghQ7xfifABJ6yv3 lBC6PhUVWspT5AAXO5yOdGGaTu3zk0UFb0hlUxH4C8GWuj+Re9idPoMWWuf+ U7VdAg8fYDmJK6h3hMeNJRk059Lzs4FMIad1jqA9n+SOz+7+PEG/nJjTCe2b D0wAwIRZmBtXiDwEYYjjYsjTsJZWas0dibQ+GVyGM+kWuKd2U0gK6caDNagN SGFPeRmpVDuWOe65aa0+3/G1VieIhI+Y08nlYpJ4aAV6CbGjZQaRx8CuG5TL x9XRWKGn0p+Zrsezr0nTK71eYKUNnoUrjSTH6eWaDHTuXPBs6wW6N5B7tKRn vYA6tmdgllZUQhVOwMA0LqTClYP1SmSVq0EEXHxJwNcShGrFJTQGcEp1fMHA RYDKTyT5QE/nlwzTtgr0+2x9nWBCrK2DdK9i6lt9+mM02UiLQQOkBWdfO5GW Ju6xoM0vlK0JDpfF6/TP3QQ396iIvfuMhoQSuxqToXLxvj4V8icTY0r1ieWq QfWMGr/0+BiHjqlHWR99UuxX/UxS9eZ9WgBl5QNgCmNltrQQZuRra/vi2K0o yLyPjwk9WAU0GGp2NYxwtJQgjUkzaHi01A8jNTPz8OROjVqr5V5JNNqoyMo+ 86TGGYrgVpV5KB5sHWWOgAjgrS/gnjUaaSX2REXmibXd4StemS5eCmTDVcou Tuvx1vLNkl3AlFVQ7NQ2ZZqVv0LdqaWeKqla6jleLHLToh6owJYLeB4ooK66 pZ7PsQ/0vemKFS2xj6xW9VS8pNr1N6lrW0UARmlNHQnhTZLUNYv4QhPtwC5o TDXtT9jLmXtU+4xT+QJGVyy1ZdZJzJtIiD9lntWrdEzJFXAk0TdbDfOCmU5I 0wOy15cSJ3qhamH5ClyEDbUgqzhcXJFoDr6+08pp4d9wGw8Bhn5mF7hpXGvA 2JoNsw9PxqoDVi01R/wvBLt1OSF9GohbF5BlmSvz0d0L1ax9wVTJ6TdpeiXF UxU8DPJl60jYzIJn/CaJDO72k7X/gzEvQ0tbf9o7SiQh9Oym5lfLoqz5ce2z NclO9fTf/dBZ/FMoO/cP8Pvilw==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{251, 145}, ImageMargins->{{291, 0}, {0, -8}}]], "Input", CellChangeTimes->{{3.410754176503833*^9, 3.4107542230125628`*^9}, { 3.410755253473165*^9, 3.410755253473219*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, { 3.406460288938157*^9, 3.4064602946306343`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzdnc+vJEdSx2tf9+v3e36898a/Z22W0cqIH7uyEByAFSDhhZX2wM0CLtaC tD6sWC0LB3NDXDASB3ObK1z8H/jOYbQSHC3EhYv/Av8FTUVlfKK+mRVV3f1m RpYo6c10Z1VlRkZERkRGREb/8MOf//ivfvLhzz/60YfvfP9nH/70xx/96G/e ef+vf9Y3rb7Rdav7Xdd9753OPm/7j/5Pc13bP5Pmr6X134b/Vtuvvvpq++zZ s+Hbibd98sknQ7t9u/U2e+azzz4bvo2d/aB09u/+0Hvvvced7lg6e/r06fDt FW/74IMPYtCxsz8pnf19AsXa//3iiy8MsUMH/edv+qMff/xx9LcWgB2e7lVv +/LLL4e2vtv5cW0MG9u+bbzNJvDRRx8N3x7LALStBRAm+5pMdoq5Py6DXjqu 7CWDzCb3/vvv2wuOreMBIO75xLsjQQj3eqBXQ/P5MFFnwuHPxjdcGnz2/fHj x/b4kYxgPdst6+3zzz93Zji2zzEC9zY+Ou3216PjyD4cWevwqTsd4NDOHfwB A/FYoQt8cyGMaZjoXwnGNJQb6PbtZgFzkE35saDmanjfeWUYA9Cs3UmnY1ub Y3sz4ILnmU4/XsYlD30yS0M01PBhTgfu82lmxD8TxpquosI1/URHNNq7RrZz eRERdewksDZQVeC4HOAwNNhlHGQwWX9GLkWjwdfPa+0UcW4YbtkUx6mdDdP3 xTV0DTpgWANTJYcNM/J7WWBGhW1ImHo8+78buLBMgXsGtoJsfTCdgrDhuXuC NaPkuBBGTJrwgOK7MLlKqKBSlqkwPdBgY6ycGwwO6XOghD1jnNF/RvQYJl3l VOsFGQgo+4F8OlDHmTnAsjGcoiBYCWrDQdAZ3gEyBHk/gvBukdPdPSesgW7D 2WUYNEZ4NNxbD5gz8HzaR8M63YCB4bJZOc2ZKLjrmzqEn/XEawbxyK6rWHWK QGexQdAofX22e7DlOu459Ct5BQQC5us+hHCvK+UcQfCD0QzQjxrQx+mcKN8M F5SxsVmJ2naS9DUIuyMDRScIpw2aobwkuO4QFw0lB0Ke+BNISMOtKImQcnCK PYewd4kbSNKl7vTvEWJPXE/YxY2D4XMjGobPxtUsCvrtnwVProUrdmEKtqR1 rfrVZVLzBbCLq66KXTIsFdA3A4aZsYCwdi4RDtDbRpQQhqLeok25pIBxFm2G wBmE+ribjHh2f+MzQqzbzOy28c4sk/A+mr1HRXDzfirxON4FhSMzXcScAMqN vmG+iMha+FzGgmC9QAIjE4YS4rPH9boBdxsG003FDaAYcqEvWjWIQdXweuGi YUHvq+lg4wzJ8JhBB1LscrXCbQMEiWY84WbFpsDSd/Y8ao0dhL1rsLlhAV2t O2sSOgQPJjRXHhSdgh6Y48GNGgLDbZtrj4Yju/HQOxSlA1F6fjG1tA4i2/2+ j5XPig1QJW4vBq5zLavbkJBT1mav2myRYZm8QseMCD/TXcfQD9acPVur0XF/ wZ9adMKmvdVRnodISo1zQTfU4t7NHthVEwtVTZvqVvRia3axd7S1zrxUYLps 9vc31T3u930+8onqXiAhE2si4QV7fCOsKZsczGNwleFxhKh00t33CbfGhF2u dHw3c1ktBcAxgqhIt8vawkhch3lUsedJSCVGZM/ThUG3UjRWW/vWAlPLAjeD stZZ826Zz8gStD3aAxuQ2DChVonv/jOLHI5pETVy02hljatjUyHbLt/hFifO RWVlY+5ClwazlaZPaNjaeuO+t7SxsWUTqYgc4Ssi2nlqFcJgRMEK3hi+PXA6 qJpvt2bM0b77lrAl+qhRN5WLwf734deiE2qv0oluNANjzq7uOlorLxlvHLui UXWG1cYmEhYy5ONG24UQZuHGTPTtbgBYSw1yFhlc7FAeWR+wndoGzivVnhOn mPIVZpnyS4Lc4KsZGmZ6BbWlZv0OpI4sVpREYBnrKMjrC98Xr4uudTznlhUg GFas2Q22tSPA3maisETmxDICwI0YWAXlI1KQfDaymy5IKJSoLflsYV1Jm3Vj +L7Zc+LQ10DCWjoqnNFPWlWYuv4KZ9g4lxUdkM/GFewjDCKMtf4eA6pfCobC odLauQlew7vYUOzYm9XpOPgQt1vdKro4y+T9yEMupv4ueeg73oaEVlTucoz/ /j6D/m1DUxMP/5K0/ZO32QJhW3XqbfbdF04Z4Kel7+Hzvwq02YvImsmLv5tM E0mO9LVvf+htIqVjANHjlSOP5x4m/f2zt2FJ2LdfTZ7786S/byXP3cqcfidB hrsr+q9/4HO0kdH2LrKHpw0a2JVlrM+ZBbJORriJEXAG4OWwb78ed/8sefdJ 3PV5/Obw3zq0mXXTA8TM7D0XR90bMpob2749rZ0O/5C8+5a36e4KqvomoWqT LWosGu2vyK4LFQfDhS5BHBgf1w6PVeB9u62dV8CFrDS64UPN4HojgeuBtzG+ ifA3HMWYbG5vfMebNZzSd8+eGF43J8iNjOS2/FzU6mEC6CqZ0LW/bm3snPrP b+bNPK3isQdMHTFgr8jGY+WSARsmfFf7w3xdsyeqzkbq+QVhopvw4pw6qTz/ dqnl+4/Je28KG7YSzd7NpBxq8LtJf5fOmjYbNeAx6LHQZVs9MZeUNRUu4leY T2XGU7iYk8KFsFX9wXO6mflu8hyENrZA0Nwm7x4LLDz3QNqAD7Gm83jgI0mY Ivbcfdvry7evE2iAekrZuhu7PBK57wScPa+8tzbG6RZ1CUE+nEQq1QGHjdga L+zbDeUmA4ap9asLu2kh8tkdua2r7OfmcOwvMYB0bzKYbmYerNQ8i1caSdW+ IuE2hzbr5jTthnhVfy97FR7HDlNeE5kUSIKvrA+2GGz13MAMJMHngFP2EKU3 +w4B2gD0/cmbTAQ9CllZ1TwXvXV1FBmR3jzbDnwZrjXkK+bkIhuu1dNW9m9G t8sqCgw4O+Pq63b2GhoayTFEbYqJAJBl729Dn1ZyOmH6duYnsytpJOjoUNQ2 AVY7LOA6VzlHjQ4D9bPjJNA9ly8pPD3q6CPabhP0vdUkHB0pFasgqDqdpvkI B0OG5Joum+NY/8aorll96Isq7moXy0etK3ePVNsXhCwuYo0GtKkURMSwko4S WDP0qMUGem594agrODyE2fTvTcBBVGK4tTEW19plpPOwztBCHk4o69gVfP/a 6m50w4/b+A8C4HA9l0XBogVOPObFq78NTVtbEZdhCLPNRsGpSJHJIHAV84is Bp2seSTg6JepX2/jmNvQ2lcHUciXVHc0Su/Ywl47Mt2YDtwzY383e7XM7mxO 4igtJgK9fCtoEGdPJKvo2oB4SozC6/b+ZvuLX/yi8lq6bf1CCLLR14fLVVix F92cfSs4XnOMkAcYXXPPWI9Ev+0iCw7TXPtyJj5qFtqO3Br1R5HxRL6afSd0 CtEVGjfMEYxi9xINqyK0TRg0NjxJFC+NQ+E8UoFZeP4VDb1WTKFItkui1ZN7 Cr/71svUHlS3dr3GZ/H8qsO3zSY4XbjXZhr4phISQ84d3FXIeTshZ8aAO7hF oSPSqvN3AKsQXs0K5xUr7OTji51LRKDrNAUjx2V9zzmpI3CnfdJvjyllRtwA bCg1N0zT6Yj/2MWMyS4cdxPrmL2BMtjw41C1MN1U3u+vPEG4hxb5qa5RXjlg Qpg8uro0RQASE92J4O1FFSWEC2A2u9j8jmQ4qZjLrike6/w8QjC6sAEnIgQT dOpEa3Tum5twWs1EedcR1SYijsCOxrMGhECOa+bjg6AZZTIrx5ji008/hbJs fTTevScD3Do1Z6R8UJE803Gdb2KimigjVrpnKPsA28GG0u2zXXRhbTjXxeQF T5rv2bbpJkBCdV22qDT3jUDBvqRk7aqnrv98WPrpaSUWQB4u3b67dvs3vnq5 KAwTOkEmIbemf2Z5rmptKZlQoIxacFQgdW+l8Ovz0OtY6UU4tquMqzqarzJA 8vKAxJrrEU4mJoswYlA+SxiQviYLnL2Hb1MU97qlc/JhBCkkfitG43GF7szp A9XFwx04AzK84GIkhRxW9wtetCWVWd0rIck6ui8PsZefs5aqx86qxwT8atjd 1tJZRX/80GyayQfS3NDa9XA2oZTCUucTnWaMoDAVkXA+4bMWLKc4JlJC8IxF ZxJR5+e2hLfM1h7ZS3PNVRn28irWovq94fo2puBbJD2qgknaWD9AwlaSDLHO t5Lu6Rp6dfHnAnw/qAmsTYXRcSSuQlVziHGPvaFdHqCsduhgQHVfG/zXdJcZ VGREufYXNDcetuindeG3NUnKLvdqDCGLoyEEtlIlfxCtHzlYmlWsmVWe9ltt kVtQJVVIZ3eRtCkWQOK5gFCHT4o0k9BICKUx7lf3TxhiBmVv+fwQjq78Bo8H YKh60CBIi4lMusWSzxbPyeQVTQLLfKd3xUIJI0b8jRlh2pCYC9QqB4vqX8cz bvghmQxxkom4xBXdcgY9PSLE3V7ItKtdDguWCYblNtj1+TUuPGP320RysKxB CiiWaWHdU5DLQ65buxEWmIbPGpDzYFwksu/rt3jJmpgp4zZH/Y0cdJxxWZeJ icXTF3dSyBl0lULO+YER53D8lDNQu+Z3uFbGE6CKAPHlGjY2M8qC88JmUyHO LgdfQ8Fk8mQyhGMk+4CWHQS9lbY67bKsVOsDZ7ftOUAdwor7yjaZOpbTNlUi LfvCbL4ZG6KL1TUiaEMXk7bEEG5paLZI10Vmy/lzIrGImPOQxEhwEX+RVhvn FA5S0qCMFHcTNmv/F5eXR1D0dfchVGddayfTSaCKS9zCi7p7BsXobibn1s5l Q7dGyWlQzrF0dw1+CiriFTlgacBg8rwIdFRK/NXJaWB2GwBu7XPP4PyFZQj+ 15LvtZgxR8YQnCrK5pzIcD739KSbP4dk0gAqQ0QK81LY4VQRm0Fb1tBZJMMp gHBzq9JloaQqHfNCBBnWdqXKFSzo3Kpyi/W3qhz45vqYcZ8HzIkFgG+loOOt 9BkdVogQYOMlXOI5xFpjLRV2uh/DtLGIjI2amad6PQPRQUKzJPzh3P3m7Mzv MsuWB5s+XS6ehxeM7RmgW1+8208J2a+82Drxxradup1kn22j258jAHF82ITU ZUEXmQ1N5r0e2CCBTSeuXkUfIvaXOtv5cMu+btwdFsB4EBGQjVuv9hxCwzgs VEzRHtunLwfJ5bmLObkbnmPr2makJ6MYTs6PGFjqDKn3+6fRNa+gIz3BaFga cuh1eph1XP81Ia8WKEBO574UYAVhhTkFikF+uSgTEnRl6xK6Jv74rVgULbYo BOM7jos7Y8vtB/LDSWvHPsp0OGeNjtz5xjOaceOu4TKYyxDm5S6SYncNp39K 1oa6khlviGIMeq046jDpimuu9I3LTg+/9vghitmW3/EoU3Fijyl1CXSjrTCm VI36fB0OCQf2MFPhMjuIG4vHntX5RDTn7Ug1JycHBQXwJKjhhJEuqknqUO3Q alQT1DCvFjJi7jkd21miTF6yKZ19lHt0xvhXWgq3oAbjnO5CHBZjO/kRuDEH sniDjDOy/NyTeA6BNz1gfZOuoZkZTsBF2NDnhXMMyRuebqYcCO2l9pFyIPqq zZ9qtjHTiNpxqEwWdBsYJYeqIPgQX/2+E8p015FAx7JySoeGlXBlhMGm6aZZ QabTbNZB8r6PW8fnDv0vPRMw7sAWuIGtTVCevlS8oBUaESkpv+dV1nUrrumv fz9LkCxS7iQkGkmRYspH2ldWMoCcCzV4wKms94z3qCeS4fubTirMfU5OO87P /fbMep3DC5+Rvd4beJmy2UkMDF70wOpSKYXnwIsfuID5RX9XRd1YJPeS53Al co5opHTt9biW51yqhGEIO6v9EDnuY2UiZxp1jND7nyZQfDuZQeaP+WX7F0Wj gR67RFd1WrpDvGc4cfVVPxxTHXFvN1kfjOVRNAdGvUyEtV7ZF0Q9WjsBcTMB 0bkVukpWYvCEHvPJwpYaWJRNHuAjCDM3Yg/TpbyNOcA66OnmYcm+n8uXiwEC vohF+0YytVra6lgdA7dfUV9OtwdggBNYM1NkZNkVFI5scH/7YqApZE1X/KWM 6leoymzFi3zxd8cziO6k8mO7xSrSjD5F/yEOtF8ROuGBP0/aXnP8qAy0y5+5 TV5Rl7FezrlPBDvILy0j4Iq0W7KuyHDn8ti8+s1JN9MClW2GgJ7opCzBLrCW bAFbthgqHtcPUa+x/GvplzCJhk5wnCASdE9sl8P9yIdNcifDRpDuhov0t2dx 8ncVunAc8sWjgaOcWOdm5VPCllX3OCq1ZBGkaZqlo+HBHlNl+Im6aqjw6MWA 5MLhWnrzzVRkxGgb5XKJhxiCi++kPn8d9uAoH9xOURcb5MA2ZiR5vHtXRoTb zpO2t5K2m6SNvGaxYh2/66qKbuzb13GYzi20THANbVKyY81Ch80v44FXDxos Q1dW8IsSxTi2MdBtVdw0wNXlglmHV/HUK0I59GkPFtFEfVmNVvZW7n6inDOM 18Um6EXPXWsitJocL5sxKu/O1WSBRQYkPDhstlR0lHoJUiPi0fNC40UmfpLM /j+StqymR1Yj5NvJu7+WvJvVA/nL5F005suoETJevoX5L39B4wwXSRvnhBSo 4c4fJSP+b+n7P+UWhMA4kdBk1DLQwiFD39+3fwbSNT1qYrNmLWdJ5+7Y7Urt 80mFi9/wZvapbl5CaEXub+WPPll4tBmsLLKNWiLD5ebW/9SzlHOGVQE3cMks tQ7CD7xNNR9TbMpWMEWJqwXczaNPkkd/OxlJjfIsPxNu+u8y0beH/+6H9cGf Ri1IueB8BnIZ187RuOMdObYcozCt9LA6HomXwS7aMCyhqnTe9DUenXwap8bH ygAFmLLzbs7bZ/Wc4sTsWKyWW8+G1LwiyoBuHHEsurC7nkAm0I5Dq9p74xGi cAmHwdYeeF/pyNUBBX9LiXFZCX1FMhRsvPIzJ/mzQIMgZd9yD5AA1e7PQgLN 2PfKD95NXaONnBuWnvrpMBLZkapPqu+TY9TovJYfnYLnDiiPWW9J8YHjCiE1 1Sc4LJui8WQG1TdJzBtPDJ9WmEDIEbEZ8F3DcRpB0fZhJ3/LOtuwP87b9TDH 0LrPq48ajUmEfignJRz6p3gy9iDS1Ij+RCqlSwgmHMsYXS44SKTTk+Jw54jB HcvtXlVfAmBFrMydBD/aY/44bKxL/NZhY9W18uo83nr+wzqQVX9WOfRZ5Rq0 yma6TyWNdbUOY+VPSyiO+T15hRYtCSIwbCYwuHza8xdANnMcPCk74lmVXXYW DTElPp5xiLPKKzCzQCfI3YTM40/rmciKX+SmmXotdTUBHL2H6rkJtK1sjPGu qpTLTOTYpdjTagh1HHKqOKYKTxZviJwDBG9b3L8i56Z9uubsWmQWL1v3juNZ A4p+aixyEJQbWP/oZF0sRGrBXHKEvRD0dUXm5Igkr7TdkDjTHnnVUKk6zk8c vYzFei7r1O49yu6BtHQsfX6mSoGPO2oErkg13wXWZXUPVGjWCmD64iuvPZyc /7hDvYDA2nzC5lKdiFXkMWyFwcECAaCxrzxvWb3BRVpeTMIaEkyKeRJJ3Pe4 NpRq0e3jE3EEhbxaJW/uX8egxvCNJn0FlqGOYl8/M2vAmWOcpXeE8sXauKrA XGJxEP2J/OLS3FJxEPRnXvhZILKnl2h46I8nEE0lxU55THkS/ta8OYetyjNg mtTsb+Nm81S/nki3RDotHg4Pi2CKOswte0Qzv33Kh2HtLBSeQgdEjjU3Se+H pudqz742ZQUSzBxWJ0S3PwmD6RJDq1Iq5MT5eo5oC4Ixki/mCXy6a70Q42yx VYnrlR4c6Nofi0l0ZxzY2l8g3FbQqehviUdfO4iCQdbo5t04u+u9RxMzYGn2 GfYOVWSZYiJlah8hUHjv4RIlU7gSFvfg37yR1tW/eOL3nZmuIuiKJYJJqGAw fZhMS948e9YcV58tkLCahTCrWbr/4lIk+VAI/PlaCNmQm4qzpevdLFgvol1k XML304NOQWaWWL11XjoCm50p3K8QxVK2eYsJdIYcXiYbLX45VIlBbF8xchAx lkyq7HTX+LM/1RCn1dJPusyYMXklY7iT5NWEWfVUMUm7Kp2NzO2vtti3c39v CfXECjXwT7izq4usaEU9ASPTNTOoqjA9YfO9Cl9gaVtbmx/+pReMPFLPnUi9 yASdW30Nb2VLZrFGR35u/an/ulYzkzMHZg5vFW5qSuz+8cObXTwFodOKKk1b 1zpxeVfADVG112qp9xGeuREpnPJ43O9m+KGlhz//Ms2MTCfumHX17KFS+sWY GVdL1JuFy0O1xaw4rzwKdmG5sN0Ox4WZTudxRl7duVJUitHnDyaPaqQ9Xyob /2BB5OTj5Lg0PJSN9bymxnsUpjgJMTtf+OFrMzl2EOFrMDmIWLcmBylR9k5L Y3USkCKVSVdgUMR69lkkQS2ZGwcTYj8PDhfbETE3AkQqNkKwfVgSl7S8c4jB 0bAqCwl9IDkPMHynmd7GSg4deUxLeGc0+8bz6grg/DKyvQHj5RkcS7U9yHHT gBKjkDwEROZ+4Tjk3LK7u62xBCWekEwEyoGCr9EOaVhtaM9wlLTFQp8a77VB cdhKqt/NUgQyY+TQOje7Ywx3vXe3uRMn/nqskby8xl5Ktq7+VAWnpmVA3Poo A9ybPder/i5N06gMlAfD15miBxHpVp9os6vH9T53EFvjiOKv2s05Dyttbfeg 2txQKm7dpVSJG5mlFg3WTHgvZrObP9/e20TZQYY7VZLYHaXas6xIFrDar9SI Vi+og1X1CXqEN9lLEK3rqvP+LyRWNRUa7SxklaXCKEf04+hHEtbSYJUm0WuN gF2wwLp4NUr0fLtVD05FuDeqrhLOD+x03bSAzdwKSvjkbJl++0ZceE6KHy3E p+5XLmGVOksleWqCvpmuyBb5CyJqZxEVIUoHmsiO1NXbHMxfQhP5Kjak7PLm MfVkVr4w46bKxSI2DpjxHA+pKiW5rCDnaicREhHYKbvvAn9pKWRoStrmrbF3 J5ryrotdh+V9FSJ3LFG0u9jh5d5YrAz5qVjdY+apLVbrqLNURzXgdNS/yuyw XFxn1JtOfYc1UcWeTiZOIuyNMW6eH80eDhd9EFUbPF3L85seVLUismoL0EPz ByWXrGRmXs0VFYk5aYIqCvxE8IK067pptY20sMdmbqiV+4yyKhc+uaiDBV/r fk7fcYk0KH1P1mtuVQCPFTI2KQ6/2LsGBw6sF1OMRYRyqDz7vqNAi/48FoKU LjVNmnWmGaiu0TwGNbWa3LNS5PKjNJ2fJST1PSaTXUChg/pqWpjBKwxV48Dl sKry1UzRlsAcW+uKRcekYzDyhfxCtGIkGKP0JAnlR16ng2WXrbEZ6lelElq6 kBYs+jziEvNp0ePeFRFQrKgA9H4FqGJ2bt1MsXk2JzBCmIzVlDYhBhs0M3fP Zopbtg/nSDR1Q3WD0YNRpnoRaONvochHWPAJz/q9+6lwTiDPSBwkEbURBt8M NgFJ083d+xIaLVs6hCxr8E+yfhqhVxSMoy2SofW8SpEUr0zE2pwSOnA5MmWl nCfsxxEScsLfbypyzejA9OjJ2qXWIYqrQeucJPPxyqGShemXx9ZtlSriOzaa HLNdlGEowz3lKvmgGQ2HW87+KooRkw1b+6+UzGfX1CUP9KQhm/sHSVtWIj8L ZnAGTm01KtnN+NyyV258gbRHQ6b1XcZyRd4ds5w7A4jSHqAf4u9LOR2Cg+Fy IPUcMDC/PYeOYRCUA9S3y3crE6f8djueodXeAFS2Dh0lUOTgubLMa0nXHBFm t2Pffs/btJxNBlbGL2BXQb1OnjtNxng3acv8tmXqi4Y7ya1UFSE9QEHUrfYm eW6ezesdGHGfbzmtWtZWE4BFbTDyWVwxgVKFrfD/pOKJ/gK8xGD3qYECUrFH FStafwKsiGcofqtV7e++z3uOHkHgcDkycAKqL5HSKHutmxSKckCG3Elkwet+ T+kAjbIqM6wk8Dv2X3YZSfrw0krCcrNv3/M21dGv5eSE26acmnMb9Yw0o8Au f5+Eo7bGjDMWuFc+uzfzio9e4A4KyQnkOC0kDqjAqhq5FMYQWzVSCdq9nMuw X/JXtG4GSlhVvV3YohiBxLh0YSk4igTPDAtZRVxED0PJWJXV1mpo91hG0gCu vu12zEbT7X7/WYvrQP2sZIhWWGjLjehzUEkx/SQf+jZp7rt/3enSWi0+8mUy gAbKETUsVGrN0JWx8GsJ4J4J13PRXyTUYVnOMItKT7BDDYmMD7Xt4eyEXmrF h219Xf9/au2+8X/zefxQ\ \>"], "Graphics", ImageSize->{783, 62}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4107556141821404`*^9, 3.410755619142214*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Steady-state", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.4060057621201487`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzNW8uuHEcZbs/93GzHtwThg8+CHHQSRJAFLMIGQWSUoGwAByMhnJNgyYfI BCVZIO9hYV4A+Q0MO2DhHUs/gcUCdn4CP8HQX9X3VX/VXT3TcwQ2Lc1Md3VV /fdL/VXz/vEXd+/cO/7i5OPjgx9+dvzbuycff35w49PP6qbxmao686+qqn5+ UOF+Wd/yK1z/xhcfXvL9vfAzWT59+nR548aN5cnJyfL58+evhOZxeATaT548 qb7Etvv376NLeApTfTef6vHjx2Gqegz6aio8kgNpKkB9+PBhZ6pr4WcW3gsF fG7duoW2MV8/ePAgIb2/vx+6PHv2bBRYPV5ev349TFo3VbFtK7XhwuyYEcPQ juf6l30XCWO9x/Xo0aPwXGM9C1gsAgHAAlMJWXWv342AWs0WjKwx0Ywj9ImQ ZmEo2IpffMDCRMg0vGoBr8ZkISBjWjyNrA28iVyK3ybcMBeJuxhebyVe6INn 8i6ArKere6Hv3EEG4kEs+tTtNQr16BoFiaMGFyX7tSjZrxBFkII+NaVEey+g BhQFG7+yGeEBtA19suG8a1e4MBfmp3aFZ9AVsejMI85hCJpAxDS0nQtTaKhI FiiRL66iH1AVeiPahEDifU26mgFuDRZqE0EQhGQPGYORjZznCRLlnzQSOjPh OCl91K7IRqOQ829JQKERv0IXuEAnYVgLjgBM4ec4A06NY8IZ+GYmfxhFss/3 EnqD7zTMA6VzwY/4rl8pZh2loOSmK4YKdb0DGlNjh/TJxoR7viPKZzugbb7k 9cByOYqWBjh4KQuGAAw4UXNkh0RCwPQXPtMF6gNetQ0DzzC8HUKT0cH5jTkO iKFdl4yybssMWnKDPsjgp4Zxh7hTiSy6lUWgXVq4wozt1WDpRc8PMNFcQXA2 7XZmxbjHMHdYK7CQEMFWYEEz2GZXCA9N4K66yuUBQn1/nl3N/WSQZFRbpNqN Bs6g8bTzICyxEZeMv+2tJVwRHEfj+2qvhjtvQZIcUbsN5MnRSdLuoV156n79 ov1y8sK6XOcBStNCTgAJ1ggdgZfI9R4XUNTY3EHsZWNxKTZrLK004QAfOCMN eM4Vf5yyCIhAbev89MjGDlEJKZ7RloxS+CuTQdISOh7lqtC188uKBckmcCkp AE/9HeZv91ebZNQkEluBh5pLskR/0dEkbOM0xzLYT0OzJzaNDHez+eRC3a4t jwK8wPxaiD3kRiwm4bW4GYBB9NMsLeTESSGU+YDwKxsJ9VyYC/PqA4wUCywA h2dFHzJ6YADOc3dlcErxG1zyflcK/Y4K/UqGvTBcKNTkuyAoCUWK1vRJ5iND iTS+Hmnszz7HaQUEIV4zGZBfRRpjkJ15IuZ8vsghQFF52mXqZTu3gh4rGoAc sWLM/u7f8L6J1WNPbjNyr5Fl7WUUI0qY4w3OYQpdCW9fR0icsmenpbB4SLQo BDktwB9jJIbk2agGHJPREu7/jxbOK+/vhPtJsmE69s+ty+1wv5XyevzK1yn0 0SRohrspB8dH6qY4o1W3wNUy+pWB+5DgpHayci3mmRIauFm2ZhI6teq4wVKD qw6oUUhlFtkCSdyA+qGtRnFCtARGWoiusg5Gh+pOh5xJFrVqENucTgrmiYCC A4sGyfeaYVW/6ICYZT5UKXg9b3RR26nZcxBQYTEeU0yNaYI2KWBw0zA4DvfT 5D7wYZ2CHnKSIgerB75WkIjrYSXoHviVaDCwplgAIlTqucA2PMspHLSxHQGR 3XgHe557TA6XxdWU6XrpIyX7s2yo0o7615FTMLwUQdaPHZTo7snktObRhF5L EcegHqtYBrWSMlNTyZ6Jl3gAM04zD6rgLlxRG+DFWdWglinKRtA3C3qiCCkb hQvdIQoMJ3IfEzaDX2jKimhljfRESsHA497U+kkE7UU/IrFqf+ijGO2UvcvZ JAx9oIPzAn6vF/A7G76bCpbyLC5ok5drqoBxcSt6oJAq3cGy2kWYZQpcUQJy eWJrqwJWKoBpuGokbTa8V2CxBOzkfzt8v7qyuMVVZFpeKU6YLwrPcmV4ls4C V68RSbQS97p6jquUcoT9U9OZp8BTawPeiAijwnxecUNfvtNwGAHLGqlktqrU IXZ4dkqS/sJXilN42iu0/bGA5UaVuKOGgFniifwlKyJiBejLM9utYm20xZ7E H3eV4s+qasEK/vzZtEYZ3Vm22eq4yJ9+rbiysnCgjBLvAKNVmUnPBe0XB6zq TA6UF8czQ7Gl7KLcbUOU2xp8MOXfITJaokj2zBejV9tWSp/UQ+tTj+71FCUH p8hm4UQbEWTMYt1i0o2x5eTED9+riPzYC8+2RvB6dXYvVw2lG7E+z3VQyokj JXFlJD/XiKXZzYLvOGSbB9Xz5ILWSx4WXh0oK/k4D40yEqtbZOlnvnwNb7LE G0Zd97kWufmIc3p1qpZT3GfaGrIwIEIX0nYFLvcSfi/LltlJDVTNDtsZyJhy nl+kfFvhMYGTLAox6rTrHYnIxTGlYDdBw6K8cqmw+pVq+fzKUjwjuUoBKbPm po9W2kpMGs2YJG2n6/b8Sl1HVJv2qoy5TqYc3YoER2kSWVPCOa7lItxLxbqt F01dL3CpTuNtiiR1uwTjew/t2I2Fp2J3C6T2BjZYj5ZUYbYRFtNUFZQawOc4 Jaq4HHJ2y6ISjLrtjag6tYQlbA2mP5Z3WFcN8eXNI45x76VwP2Qt7akPLga1 5PVidpUUZu6pRtr+a5jYNf9LZIq5twSo7j0mKwSXZrJJOeC1gojnQ6CW/fvb 4d2itx5DVFRh9Kgvwx64WnbZqbtkN6Rw4dm4nMMRCVeq5lX3Wq92Nph+buiJ ryrmDds47kXjBxRSXxEqKlPUfM+gP4qM+wNhuK9dFNoumzwUbrWFN7Bc4zYp 8R1Re5QMAiRNotrdbHrPHXPelVf5XR0vo/EO3sXS29hLb1Vc8FS/53xgrlZB qmtrH9k5aClGcs7DKk6+wJGdiIFeb5Rj3d1o9hkx91UNrlItaxUPS5i8Q5Ct 0uKvcw46t8RB56rvfmTHc4bUxaQKlhtXb4bv6NoUmuXHdBpg+Nw9NbfmqJHV 2xJ9zsHFanS+z9c9xdO7kZk/IS6tmtmhocgjJfjoqI+WObisGpD8oYcn34Vl yVmS8cWZ0oB1RUHfrJVneZMaJTvUJTSQUmwPnL9Pr0sFx5LnWwzAJYqmXFWm XH7KqX2tc8hh4L5WfVyXSLHDYbeIhoKCkFYqyhyrGXCFA/y0giju1DDn7Rpm 6Kpd8yiI7Wyo95NBs/g3p5YNq5Z6nUPclgRdAhc2Q+J7kRH1DJ9E9sSl6iyN 1YdKrwOD7aOJzGTawTMeH0JkmLbPH9oG4vlO7l6qpUqchaOOk0SFPJAQEJ5K H5uq/6VeIF64tSpH6teDoMGfZMliDVOy9g3/qjkHoB17XdJemYgU07WXHkRL d3mVdcXAHxV05iObTwkdw402rP0AjmzMBdZemIXDo8uln3tadUxxTEbIFykK 9xWaWXIrnT+JhnKgRW/iaeuoY+aVlTiXQLXr2EBRAUccKIyVIpZQ0HGcuTFS ICsrErLc5j5NFQltZ9q60Q/fahdnaJn3WwP73RzYTysS3x36ZJ1G7fVqlJZf Mn/V3PqOiJTr8jHouQNVNaLnaJ4Kj4POTDbnI6mNQqyrnM1x3KzrtASIoXua VZxpAoR8Nqs0yzVKR6G/doreFSvcv3t6sXiNV8cQ15xkHHTMcpJW+mRnSZ4T CqeExHrhREB7CVD79JyXr1rCqmTaGlvAgClr8wcC1boyxzVzD56mSa5z1gmL jBOhtvF1vAlFzvfT3e9wt79OoK+lNE58kmPys4d+dFOmXTq/WCjVyWH1bZQw GkiqVgygVI/WnYJM5VOvjpRAtU+0+Ek/cbZvbB8O+WnKWfLL0ufWaWNlltLA ZhHUmIGWCfzV8vxFu+0/uersuuokZuO5dAwyVOEbm9K16oSjncSMfpmLXmma bWbbpnFWmhTikZ87WcWbZcQMpChq0sBXiptaQsG3ojwNbEXoyvEkDsmXSd2Y Ckq2WqzH4bHNK3JvWT+RWUrowvdlF1xu8ypTKrmIjFp2/OmJ9Vu1W7oOnv9L SzhuF+BdZZtXuN6ztlX7lm+zzffT/hlRit5vWlq/VF/lMD9q6Id5RLbQ6G4X 5iURoeFkEY2/Eg33G7hihXH4RpmfxBYq3wjf506zsyXPnVYeG+5w3SNZpfMy HzjlpeLnRhsofrxD6iGTGLqN0yrun2Ib5zcFCf8sp9PLpfrf0pDtg2lh/FvE sGf7YGeD6T8dhrmsWpgPKdArsfX6/zeJ+f+o/n9nPTWub5GawdXwkq5Fgl5o sf32eiK9Hq5C6rCKdcmRiMYXWw9fQebf+Modb0B8+GHO3EPrHNFLKFp/uJ7M 0tG1dRVaL3lI3SOVL74C/MvIvu6hhA9yOj2lkAIVq56zTn2VsShS+JJLq7eN HBkhJfp3vlqXrP24MO0/4hTh4b/8X4DqzH8AGyJrgw==\ \>"], "Graphics", ImageSize->{475, 89}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4107556384480352`*^9, 3.41075563989958*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzVXWvMbUdZXt3ft/f+7ufWntPr6RV6IRQ4bdG0IKbQg4iAKMIhNmJDMLSI KBKxB2LLLSr+UOr9JNp/yvkhakzICfaPijmJihFIf5lSzElUMBH7T39t1zvz PrOemfXOrFl7f9+hrOS77LVnzby3eee9zay3PPKR97/vg4985NH3PnLTGz/8 yM+//9H3/uJNpz/04fbW2hVNc8U/tD/Hbmrk/0XT4Je7/lF+6Yfv4f//z/1Z W3z2s59dvPDCC+7Tut6Tz3JfPl30zf+Xmp87d859msnviXzURs+5P5uL8+fP L86cOeN+hG7ywLPPPrt49NFH3b22k2ZHO5R70ubixYvNRO+1/y9OnTrlPm3o Pfksfcinv/fD/R19pVdz3P3eXly6dMl1K6hId2CfDC/gyXXhwgVp17buhtV2 AZSzZ88GfAGKfJb7BMoX3Z+p61rFxf20zcJjQYJAupbeAo50JVRoh2cGyK3T p0+3kLSNWhgFWlw57G644QZHyGmCUXtf+5m5NnJP+pBL26wpitpFGCqBcI16 lqZEgwuEp/ZQxF3YJkgJEu33wL3FOVDcc2HLfQbXwDkBTNqi61Y4PIpeIBS9 wEjpQgAWhqNbEuYgh/hMJJ6UASZiNl8eR4o5UVNwET6BwhCldrQwlDAiRYyl dpPaCbTyLKAXehG/rcfXDHAYS6BSwBLNMfVFb07d77UAAQ8lbWQokVrcExYA JJ4RmP4W6Fvu906QClyQGrBT2Cz/67PrBhgjMc7zdT3cE1607VPAZTSwDPK5 cOprEaaCEk2JM3Xt5L4QRJFSiHvDMY0TAf09EjIgAqXB2v/ESIRlegiJ5aft BxAIYtCYIC8mmnzaVQB0IXJ/BQlRn3PqAyBM7OGYvoly+l39Ck8EoN36VYvm XsLAViIjicezHp8Z4AoSKEC1w830EWtxEconi8s7FFuhCBaWtrfXEL+g2SBN vFoe08ehFBRJ1hXA7xCJhQpRmG2q9dzivaf0k3YqKu6SIaVNS+UgTnKvYjH/ CYMFryFwwDSeL6DTVYQKur1O7wnZ46XUsw/97VK7eKlc46XSo+OEpRMbNXvQ BfHHT0btQqW57VbuHXFDCZjQkUSNoAbkvnwP6REqyz0hhYDjCKUcAOXRn/wV yfSc2wnfyY+gzRaAAQe0CdDR1XTiV432k8djFmYBGnlqKPVO8ELeAzFFGZoO qzC6E7TlO7kv3NUJ1KTAbARkADUTr31ioosZ6KUdYyb2DaWY+1BkAkdsnPRs OMtCeidN7gpjG2oG1OpGu8Y115UKBHf/QwuA4vJZbW2YAoELcg9TFe3kUiro WFeGPjGWKE8INNQZvsP8KcDiNcKUp3gyZOm7PWiW0KWgJUPkUJfP7V9MAzIr IqMZik3uQYmHUQ+Hr4AwzzgYkExg6ULaqm7E8tW3P2NnCvdgZLKEVRiekLoh u8v9viYvZq4fp9y8xgvoK/WiwQG7H3weURXMiJkYG3fAD33pd2t0m4beXEl8 NqLvACHEJiA2iySJukEvrNWM0Rglgh1Uo87DstE31mfMMh4J3QwZ6Efk99sX Tz755JeZ1bvManfBVCbzusdxrw/XMaCDtZVcYCpCDDMyMG8WyQKonfB2mOVQ xRh6EfTm/omBwE9ikGKrX0GJMFqwflTP5MVhK3xFTl0YXO4pXYGv2pb6sMfJ 8GwiLwq8tzwrS0ZcJ7ezeMTaY9LJbV8JAk2gjpUBMiQDi1xHQrEVqCfNsQhx d7pmTtxc2HFfscIfgGKqPDL4EC2XrJrcaIuwvPASAqHI4ayK3z9+0gEKyRDU wSsstEm8JYJI2vCKxiQUOkEdgF7SVqVvS1nHviLYrSY8iUWVj1i7lrxc2w1Z Nf/GQraX1UEgAogCAsn9to2fG/PQBD4KW7xrapkiTqImHUzHiTRyOKhVjIuD kxSQ7A+/FoZfhPXrSABDmvKw6neEWY4pDBMCz7XtGm+gTnsWM/stZM96VqjU QmKBgoyBeZOBx4O+2/MbWDGlXanNrF6c7a2D/2woQ/QqvPUHSKT6YeZIkLZ7 ggSOwQIjQQrhZqgR+XRU77FWvIOAQrtbFYyMN88BO8xAeKnszd/nfs+DgDG5 NeJt+u/PM9aWUzAL6ipIpseILQx8c8RAGjoEciqf4D/3CVF2+zlcoJ6jidV9 Rv+1QXelSN7vngalQlOzuSlpL/c41AZ9da3e45DAbcY9y1FkoYYwdAGDuxOk q+PyUysu3z4qU84LJqsznVHf9GSqjfW9gihdEymHr9SLlE/ZicGMa6yV5hse wq8S35cOW68HLa5mm2Uc6YBfc3+Go8XoMYoWr0f6NFlDk4G+TuKVRnJlMCzy cSR3GtmIaSAuS8Cx8dONgB/CF6yOOgHyva8czXyee9uf2GHU5XIxPF1TnieA K2wZB7GRVf2gPoJ5saBlhrXwhnHvTuNZaGv5DNpagdtnjHasOdHfbTGYEGIe iiPkGEo+IyhxZ+FZXratZ58x2jGYoLKC+bPKBpjWup4cMXrGaAz9HeXHYUjn Hn/GaAdgacFNgWXXp/3r19bjUU5cnoReE84g2gnNK49jCstf+Qx3jrVC++wd pVGPmpl4ueQ+5IdHFWhglyC52t7n4BRE6Uvu96GxXbl28lf8VyXdB9yfLmaA JVDx9USfR1lv/2BDGi046RuBtog1Qa3rA66Ze+D2moGnVrq94bGSddn91bDC RP1vtlMx+l+P6WLaM3VFvykBH1P+wOrwxsEiLPuYV34t2CxRMvAmJabwHktW SkwdBpr+JaPAKdF3m0UuIg68c4oyNGsGLF9aoh/ASnNTbd9AaQRyLlLemqLA vaxZd28jVC+kMaPgaXaE54i7QEnBA4wg/MB6CEvILCuZl/Ij6n9uRP4nxIHi Lv0sEBOVqII4IIfG5Ypi2OtpJQe4TotB4BYcfrmg+pnrFYQ4ogJnlem8QcmO eD4UrnRBadOHtAsZHWpNm7XQi3u8xpN5KYys/IDK3wdINOMhvEzGPnds9Xma H41kTi4iXIiAAFSkTw05nWqnSXYChUSlfEnIymxF8XTOSekqnNr9rPOB4xAt cK9Pi36YWhd2XSKEqV1IBsYBs0hpQX32CHLMAP0hvQf1wJ4zu46+43m0igFM pVyQ9SQIUAM9mzYqYL+gX1nKTJcGQnarJ0xsDkDBOb3h6c3qRC7tkvOwaSEU Z4z8vb1ekoaqZ0pZKEuKNhWyVFEpZGkpXUePGdPDwhVaI+nRwtWSkdPECaxm QIC0d5AlTF1uB5kQ+YJGLkI9jaBWZuqC7mWDk4Mci+XoH1jWVSFMWWQdSFJH kiaLYODqX1AKX3WL7UYxkxJMwaklGL1RcSnxtzos11MMp4Qg7H8Mpaa3iSAI gplRQBBDyGfhhYQFnU7RewDWyulco/csV5PdwBupHQwc1mhod7PeG3I/r6Ix QBZMX+TX6kg1jUilRhnk783UZclJv979ngcfSi7Yd0r9BslECEBUoreRzcZE q9c05IFK4pUkerb0a4rRMGAnbbisWPXVes/y2NmbBre5ovSlRMqSxw7OkocU OEsINvd6DH/Y6LaL398Q/lOGqQHl8dLHIFNXKyHMksJ5NnHhbVlvh1Etb5MW TAF4pOq4Jl2ee+qpp1wv6wZo19iglXhkxSo4iHAj3YNBAB4NBSqO07hYnlP/ Q8iiPHoTsa8UXLuOupD7Tz75ZDsR2997Sd88Hi+Te0YHt8lvi1Dsu4FQ3lw/ HMVI5EIlmDwrfJH2UBscI9GVjuP+WEgP6z2EWuTTtlIzF6rJRToqQzVgE1QJ Y60sd5/u8Wx60P2ZRpk4FbTqRMn1JC3A0nc/Y/3tLuXc4ewjvQpSrFQw1QNd J11abB452mgJrWGZvDcSbrCsAZSIJvD1erQcy9DISi+WMRgYAq9QPbdYxK4F pq1OKdT7QnLgQenycFRZicI0jVF3hpSOBHTXVBzh/bMbBcFK/M8WOh/h5jgH Jj7QX2JvB8pyObT+Q8Sh2OFeC/K/gOJPkhkqncGEhlTD/9Qpy8KDoBPSD6nw cJTmpA4p1GEnXqiwl6AiGt9HoHZZlbmrJFTIaq4QILuS7imYPmGBlYuyedAH kDE1I4IwRMUvw0UbKeEZ27ardYIM9gN8ZS4VBYJtF+xUQYfxKt1QYJXoehDV jb+v7aQ7rISQQrBHLp1YgRhgLwiiXj1LIQoaeK1hKWSLp3YTzC3aDguHSBVi zulc9REC79KzNKqhF0njyKhhLbgP9gWRy6m17MIpuwlnDWCiLcIauxmlP1T0 QsZYF8hIp3SF34uenVG7bekLATJP5TDrIZ1IhQZveDuKjQE2foRiuGZUBVsY +qGTmI1qC4Zw4Yg4XPPjzJcplzIEnwTrGcgm0rSjrIAaTwvYwFe/unjpQjkQ +gFpogT5cO2hM+yeklsoPRH8VGkHL5FnrGrK4FyxLebRJ100C9slQCpt7vSu ywdvKydM/74f1RqI9GSiWt1wtzCLZiEQz8tLe69WhyPiRwLPj7Pu9vcOhXgo otuQKWkHZjItYHF2qqVbOBmExE1dpZzwaaU95JEJiso1uaI48yz4kaC7ijdY gzA07CZ1t2eVQL1M8Uy89FKgqxQHGgh0VWrgPR0JyRMUvYiChMPOleaAlm1M RO8RaxeIQ2Bj3T0KJrTysEG9xkUkVWV9TvNqTgCSBT8FKsUtGG0f9+jzQ+US XNFXiiO8z9MMWX9U7y6ghtTFggip0+dpjJrT1FeiQsoItlL5y7f13lB9xdkY XjAhhRemCnJPewQG7P61pI+ueHO4tObbBmhW8CEBl7fzA1yIGOwAMf52SXjI pUQKBfpbC3u7cp3uv/9yTePgwBJeucJfG1r8ScUJPeJHMua/EWAb7W8+qA8M JB9f6R/+SwWMjaBPEP+15inaPoHQgZeJnWhFg9yDLJVezINEHxgVlkf/ijzU n6RucY+7UImMtjJywd4S1u7rSdhLaZW7h6Fmb5TjVwpN2Li2ZIIViZ2hKH0B 0k8RshBhbMbQtSnQcrnMHYDk4PI9wwDRgq4AbYZlDNcSGSMrrwpzG4/gR6ru 7xqGlEXTSkkiQsLyBDWGjcuqAXW0v5A/EzVnYUCxXNFeyuKQHCLjkknVmil2 5L83n9Z7bCbwLICwvEM7twIqnNmD7wY7XYd2976fwIV1w0d1gGoPa3/ndEOw XPAJuL8/UurC6VR0uQmXZj6iw7NRgELsc7p9VD69mp75af2eZmqojwYp0mfe Q32CK6+isbFi3kfP3KjfX6SaT7iMkIJQuZq0exmxECv0vUbfVqHmUJ0oUnhq FSpj6vqzEoTbNAZox7Ai65Up1RyqFwW47GOu13dpmWE7Rpf3GBAnhZdWcalV NMqReUzraX2XliUGiBHVJYiRbGDxedr9ztY++hGu2q8KUtcOpYVWPDxNf7Nu S4t1TFAPLG8DunIuIKErT4nacu9fIZ6sViS5UgUpQtEs51yCkGaq6sA9oLQM WMGzRlnxuEpKZroPeV3gRl1d52YxYRBzZ/XSU2gys6qzEwz8dCE0m6s0iyOr dRjty54nKdazrnF2IRWDjA4d8mafIPLrVSiv7GfU9qGcNZ9Q6KVKuHwIq/QQ 5+MgdC2mlzUfAa4n2DIWwMxPkOaX3Z+lF4gVQwifUcCGSiZzdWdja07ZEGDD ELmPVcQC8fi68s/9y2FYRZEWfMrwj1Lz4dXoILaOfCb8N1ALyT5lVeGoXYKJ bXxsK80UO2J0ZFOJD8jCEDG5BPv+pkFKVY4F3g6tSb7bA9/M8mklcqmYkNMB q9Y6Zs4OZIJhUm/RvXgC14MLOVk5e9GD2Er8Rfq6vnK/X2n2XdhF40zEFasX S1zkUMz2PoyVlmkKl9VKgrVrafnLv2ME0JDIhl2mFqHYLdk2nr1d7xleQsdD Li64fHsankhAE2bemho3Kb7sCqceUOiAy60TL9XTN1YJudXqACv3P6/dWf7K VoKWfMIJEUY8ozZbc1dgdz+FmykAR2zVOi1BPkNW3kUYot29xj2FuFwYfZfC wganyzJXT/Z3EAGj802b+GRSnETIgT1kXDlwqcE5FKFChiGeXISKPM1iYWcS 7yTQHn/88a4M+BDBAi7er+hRJrw7oyk+6xRjwXoXmN5J92KdFys2Re/1hALE jhVDqbb2PXqPa1Lv19YwwvAddKXmAyDtcAOZMWSVlKLHlRWn1kbHfMXpzpiK 004DWvRbqtj0pxLuiaKZ1SFKZ8CERzmMFSe/lkYUKq6zKUedCSrNwMh30eOQ qUKKYZ/KPy2jzKobWqLm0xKGtHTogOo+30bsQSElBCdDsHEHlU+DnKKIyrvp izCTYhtigHA7TDh3gRCU9HH3lUiZkAhPojhaOIwYtoEg0iCfCmmxgapPK4zs HxlX62kJj6Wd2aiyZPpnyuDiTGxS6PL/GIi5qJ5YEhXfX7SP7LSQ/Vsms13E idIui8b1RZzDoHAR32AV55vl1lYF1KznxkO9HhLbqn6tgJYFuIWgWzSekI+v ioV7xbrMWuWK8EplUSbsuAOuv8RmT04S3lsmTK2uARGAgSyflvJckjCKfIkw lrFaC/1feYxLVZelLNp3rerylfT42OzkVQVkYXMR51CoZtpc45AGU0ecIMlm 1Q/oPcR65BPMKvajvMlgloVam/H3vRz0FYSSesFj8pXYV2qVs6r9G/gyqpwV 5Ie9zQCo6o3oDIuE6QzL16Bzv5y1t62Q3UJdfIMOW6aSFZReMiV4dRZyXwXK az9vMxsCH4SGz59zaUForspaJzhhp91lMOmtMfG5OPcYgQlKrV6U61XOQCJu I3ojhZGIg5GMWlbprbTPV8l3tYEmZIzTIm1Xe6Mw5Uge5oQVXHktsQWiwmEp OKYlJcxVWAhucp5bWVobAcOUHEqUbSjjaDqz/hu3o9e1fjuNUgqksSJJ892I OOpc4L3JpQMPrEqot3goH1PCopAYqhceYv49Kp1UCOTjj8KqPx8swwPElcfs ja0opvgc8QSQYMVmh7f9Af2HDjPYMbpU+numXRm25cD7hG2AboAzp24Krywp eQN1FQ47vYAVHwrObFhic2hFdQPYwIFZJNnTs25OhZOi912VqozhaGUKUzQ/ why0jmWyXu6xGfxnrnoA1+EjWuzjQ6OHKxFmEYvkUpr7R7ZKGzeZq1bS5ld1 HM440qrAtfVQFRBXtTk6rbivejZZkjDtOD8WMa1/ahKWAGUcO0/Es/oDk0rl BH0W6fdgUeNDZOHrdBNnoZzgk0TWhsLAqmYmuvWFdhdEznq8bX0tjHyJTvTm DONl0t5cBIg4JLQ3NPiz9Ao6ThRGjD8U5fBAW8wsVnzwH7mOsepAo7qKA85F I30K0PCcMiS3gbNcdPBJIhO+KmmZ1DK/SLUp1sLB0Qro1gNcODhdCAlgAVOp MQtQVAIeI/YAosTi8aZS0+0q8tSS352zCNZByMKBSSuWKSzLMTYukFCz5ujo tWJeWivMIjyYq8kB9HyWBiBVpvwSARwrkPIRSvLpTwyCyeVL7zpFB+jSGl/5 tK2EgCmQaOx9UtjanKcq1jKKjBvk+aiOnwYqlDTsB6imb26T35/IkMarGy/j tOmxSBphPocMVE72UZOd5a3o9pn/FoBKIxj1fDIPVjHCP8wNFitYCgLBM888 oyo6N2Wn1nsCSqC5h19dgIXT8zt0D4sXKnjYnhzqG84yr+fo++GHH5aCA1d6 cKv85iR/smK6Ae5TxA17IiqRhd2HWhXD9HL9vYHGg7mGZwwbO3qGGXevce8t 9Az2P7IzjfoHwxuOnoGrJZ9gc3De9q30DKoGeH8cqhWMAJR75o0EWxQxdEey /KjRsjKG6z7kXnePtP/Qjrd7jGeGtp1Zzwxt/OJnft39v9oR+v3+VtoOxN35 urFx53dpKA4rKbswNVtdThnDjzm4SbnDw4/ZZ9Eb3p8W5FRLL8FLpwWF7wNs Y+v4deQ/16+G0jN3F9qxVD9Q2e5+4sWYY3iWKGTX0qsv6IhDiY6XF9rxXLx/ VLuRp8yMr+JOsBxKMrAtVAqWniz0x1rmmsr+jlf2h8K2mgNc/LrV/Jn7s/zh napJsFIPFTZev+JwKsnWmbrWcFfuz3C/5mn1cyoEbG60PbvZu0TovbZa8vrx /Schp0MqWUYUsncGeQ4KdtSgDg+tDJkP2jUf0q/Yg2SlGPvyNWGZ/tljharO 61YaKl4bQWsjwBTFtWPtN2N43KVFqYf3ETQl9iEdEe4CRFkDphP6OsmxWPmU 3bCywq/MJWpw369a8uxmsJDxPfejCRyNUmxFq9tpPXUHVRtgtCs5kuV9J3qN Crq2cJIrYLOeQsR7OtGTmVWyMGm0RkWDDrjO4UX3hyOOo7AbESf0lMM3DL5j Do41ELiSbTjRgjwuuUui6vBVS29P5LdqsEyWw2WzaF+KXNo+k/myqnL9rNiN omVpngokwz3sYVw2sOfvHR1bkwz5SpUBjC8qoHHXmfDGyDU22QPxiAxcgT39 LlBE9QmiX+f1TKUL4YCpnZAwfFbfGpxLGkYJwusjcw/1oMCC84+MHdrws5wK KeQlPQGuix5FwIRXNMTgkpWtiFkGpOjY5fS7yeB3exyPCJSHJ841gFpKixIk //hJjtkU0c5RkzMToC5kwxpeU1gw0qCcWJ30J9teT1VU5gc5lx8Xvu9rcTY2 USCNgAtEFGhCEezqp9TCnSsWrW9GkgGaJImOkPZlxSSXlbXgxBJvTFOven55 iVDLG795Nbx9GLPfbzLzHXG2rcmmVa3JiJ6sjLrvfTc7c0oZdviq0Hmc32P2 ol88j3sKRxBMoMJtaLzVdNBG9B2RBarZU2In0tQpBQxMrd75ER0FgsAbcvlV 2rHjMotkU67l0tpcum3lukoV+76gbB7pXrk4q4nJlnov0RzPnpyMzfZcXgKm pDsjctkj/YzZkGTL8nm9g8TL+fGPSUrA5w8iRuui3nTvDVbh4cuc1PEeYsoU pBUX3greBneZTu5/Y36bEoBJha2CCMx0kyqWLKxZyfx+EUxv53x41wZKXici nmaaILpL+A7NcuUGV/XBzAljr4WxOzGchsgXLom/89I5voqhNOmbpmIXC71j IcX1UnhV02qZybptOpWTvmnMV6dbk/7g8PJ5kjDVOYvoUb6lpi4mWrNheLCV CksWUPDaylYwr9XQAZH/sBWGFA5ItwhBQKvosPmZfijcK2GWgUipsmOyI7Fc +Dn2KPAVpjkIBEJgnpOngYmcih0YHjW7MktK+Ey8CVS6yY2uGppPm0BQEXvZ DnjDEcpUUPqMmIVmdU+oUFTukrLOAZkYiLDiTusQLGy2a6AcRhYnYXIl+5to OMQm/WzNr8+U5epKmuZc0hQUD8qXEJ7gMnOOL/rth9JP90LAxkdFwlqgsUQf SpyFhCCG03zARPrjKislboPnsI6xLgmPbETpVQOCqU4B7iGDdNjYQ2n68BwH B0PAdj0aLWjXo0GP4QczAIEMPDIA/ETZyyTgsGIyerjX7QGahrbgkpihvPE0 rqGr2kh2TIUj9T4R9xbGHNfugHHddr7+gQF2hY0F1XYFVDhAmMMe2C/COayd eEb1Hdl4Xb5R73HNGiJ0aqe4T/cZz97qfs9CiA0gq2XH78OCrrU2nWHTUr/O PH61jePLmN16QwNvVw58t7KHS8Vh8av8RnnYWJd2YoCAqWgy5JAwOUW2kQfm PJqyMx807eLqonOw3ZdLA7APGoKLS1E4Rl0jnw713ef2nNu5CxImIKEvzNhc dhCiwS4fp6BwD5ns2l2DQ+PuVI7r6xM2OMvpcMWirIs0L1GYk2A6h8ZQfMEb GcEdZOysSclJR/VkDykX0myc/K+YhrnKe5SPGvcgg1xseJtxz0rqHCOwMces lPoxJUdaqOzzFj6dwMWbXjJG7VasgGJ7JBS3uN871ekRlSfeaYCivKmSIfUV gBznfcDQNFfEcuRNBz8ORS0avBNqTN9kT5JDuhFVLKgpFNalFi/UgXMpPdab /rLW/I1+NVS2crqynS9bOTwUQQ73YGY89NBDDjO14PisXNic6RaQC8nLT2Kd YWt2izmzUf2uc8WF/HhQNyNsyTFmXoZtwf2FyIODSVKKvmEKcbgkf6bILDgK uJTih6kbUGJefiR9kyAUMPPawhQQWZiWQg6cYEqP1rAwRSUQ2+KtjPHe1JJb NNBNij14JE3gg9Ri/24dKuPIYb72jx/pdibCLZc1AMP1eWm330lQkWERLxeQ uWZ0SGTfraOVzGPg0z9VY8qzLqjQEj5We4+Pn5kIXVBAgGtQobN4leeixUQ9 EorDpijX+MfuzywKHUExtajg5AXGdKP8iO7985Y2F8LJhWokRpX75mRqeq9v fcfoD9llbL/Fe+jmURBJLgoNRsc3xDQoPwe2YV5LbBjrBpXBNlDQrFBBKzx7 OjlhzrDy3TNebdXbKt12LWQp2HbisiXMU43/HB/XHBt+0FQja9jODMklfRXC LOgZpTpyYf1y9kRH5cSNdU1R7sfBpNdpq5TiXIjCaSw1IPaoW7xByRJeFpQj xjP8/Qn6PrdhYcT/39AheP58y3/1VfdnFmI0FJ0QRHnZxpO8nxkr00RXJsrk N//qR/gX92fO4YCwBkMV5oeZhZArohSqp56Le6edQu5xKro3e4diRj2eQKQh 5eY5Js00stJR1z4uQtvtmRFr7hsx5TFX5KIKIQtoVvnoTYH9mgIL9YCEqWj4 EnX5bCZwqKWb9upo6WrBSn00TRO57+o8ah84qTWpWUblObxH0WO+GH472scC UxvMxSTXsgmNcGz0IilyUfAQbj9ROwgyzzzgdFZP7JGLqtAUJ1QGkw2opfTr wbvSuqN7lXOcWZSLB8BadFLbWjECfv4s3kydzOktBYH1fFiup2EZggYW2VBh 3KXeIM/Y6EcZmcbXbW5GxRRyId9E/4fkL6YmhvUVV9L3XmQJWJW6ciGuS8f1 oLgPwgNpx0phdZU9iYXLdFUVYEHV7QokGT05nujcR8EHvvL2RjzedkQLqhgO awvwPR1edTGuoDJOoM9Dyp6kDGKg8ZulIxLsJUAxsXZwv6/wA8NY4gwqHFPY nVF54FZ0CIFcXPgASXgB2/v7R05EVRbXZ8s1KXbFVmGQR3TJ35VKP6Nhu9IC hLChmLRWkQP3ik9YmBiS+pKJ0nez4MkAWo27elWyXRX9QJc4+QeqWAWl9gXV XoiOjA64sB5Q286MjtQKH8JQUeXIVlhgmfXIxmDqnscJIwPCZ52As9mrSMuz rVd7M1XhSkc1m60HcdUJdXDytcYQhARUKShknWRgHb2AtbJlRU0FWxoaWyyp obi2UvnVWBKS1m+griNsaBiQkM7TgQHjE8qy1G4MSUlGSLCvlNVmzK6uPhST jhOpPPlQ8HA6nEZ4sOKzWHT5y1KkrVZ8IELt55paKA7gge619r4Dydkhz+Xl ynd2KKrvkYsXcg6jnOo26cOq1Nl9IidYIaWWqyni+iMKFxt8uaa3iqV98bj4 Dkoc6TPAz1ulCMfGRRuGywV3IkspNyh9l24Ax6X02VRhy4Q0XVP2Rs6GI8jn kSeC9Qk7CvapggcpNtZafCAn7llbv5/PC+BUMTin+73Y1lIbtuH3Tmt+soGt y+cXytXtkduIykmY2ZpSnmiolHUNiIjyQe6CQMqU3PjIQq50B2KT7rvjMh04 IfgcCmWuikTfAolrThCcQAGNUiZ9rsE+v6QyclOZUgpJ31zRxgpDQ46GNtEX ZAYbnlnZfh8NBcWNobjSAzHWoVD0TZXtrCwQxh3aQT+I4nq0T6t91B8iE2sl XSIVsziMIpf6S2nJTC4IfVNlO96LC8Q9v1feP690wXsF2JWF4oMI6PEgbg7e pwRI56hOAj5qEKqewxE10eiTI9u7qpIldsMrBXxEcZzbjUNWlj1yVaMwPohX 54gts3WSiuziIWt2Tiy9Fe6b8Ug15doj92go+XWgr2urzJq6WiF+NEZZEf8P Nx1Wat+Jmw+pgu8wVesnx3/7x9yHsdkEnLbFQf5d497n6JmX6vdE7agYEMkX feaf6CvlV3ODomhVRuAk8kSx3ardoPK5G3XXfWZVjXAC8qj4X2VOizi8N4Ug H3Zfe156Qwn6VO59zGPzFUJeFxStg7OLuUAYXk+BChXeaLtjfBSau9gZ4P9T A57UEcgRhIXR+Lh/+J8VBAK54Rwd1wZJV96BOrxqTRK72hXdsBcpPXSaa/Rb vPDWHy5ScqrBB78relD6XAl/LWIJ+1zMHrk4xYF7tHfpiZgjtAaFxDkXBG0a 98YWH62N7IPnDsL9VfuG4xPujukjqWWlXbBfx5smtQvEyLiyFHE+IOi2Xoau 5pEPx6kSj3B/dnws5gV21Hm4FmGSYx2TR4WeA+VKOzVf1+2v5EQtgN427k1W 7PM3Y0JAXJkQUJzEwUCIYgHUwNd1e874JGgAzTUX1j0sTJMR4/AUBAV+KyYO JRUCcWDewaqUpaBUCLU7+F31nh+r2mZC3aeVJqBQ/3jj6iH5CDO4BEqkr+jI bMxoIULYN8iVVOCBS8NR4YhVbbU7+F3t9gxOXCFg2yDiGp9FSxUpfFi0TrQQ u60bl2NKsASUcHfqV7TTJpRYs2X2x9qOi6bwcvhUV8mFYD6Inynu2qn4umaX RUkajSqc6CVSoMikdjB+7QMsU7VC76CvUGfByRyYfk+63xvRssk7LVVpniB+ Ul0Gl/oDAHYOMTnWlUGlqrLt6jbDOx8sLvDJ8bjHb6yLtykNj8GpFQiiEv9Q QlREILiOzMjlbwRdA6cbC4da1yhRosyGBi3XI8/2HE6nih0nbBfgbH3Yz7fJ vQY9nhyV1WQO+JoES0Q3BKW18gpVw2Bdik5fj0HFlOFiA+2rYd1CFnEPhrRQ QS1C1Sq70cE/IEcd/vZZYUYRRsyNzFlhR6vjNFwYxBhe9KXDmKToTkWCVyut MGmwPxO08S0WixGVjxvLNK/dwmJVHO7orOKoByjR63Ge9uiaqrvTPOXnaX7/ 2CwsaGYyptsezk4Q+6QwRPUzlApxMHgUnMeSSxdHLFhpxYOO6J/u9rozyZPB +bEwQjeTds3TODJQhWQWbzKKY0Lr6bN+wm3xBE8TumH4SzhR9+bQJCXAMhhn qleyWOri1UDIh8KZCqN1xkXtG1XxRvDK0FR+K+s0miFx8jE+KoSTZpGgxscf yAXvh/RKYE7bBQ7gxGNJenP4SKYjWdbBhIQChLrl9ihtsPbypgcyLmiNJ2Wr 967OjpfCBGsOcT6GievgEnyHjmxRAzF/MNNmKdCNzyHchywwPCChkmt0LBaj /hkD6ykTLcixPlLcPCdBRrQw8O6UfRhNrhLCkCr7IKC8VPFyy2o+lSq/6J+J zujRfvIa8HgI3JNzlR1yBFjs18LZiTHey2KcK5Ep0B/53FK+A9OLk6VOtj4l J019PJYyTlXOVU5KFRDwxmDohNXhcLDY+IgYFi+ubIKaRR1+iBrs5USr7vSZ ayO7UR7lNYs3/1vrU+5QFgMEPxFOmNBZ3TCfeXiWBwbxdHj5+GaPIuyPKfbN 0Dk0uZKZgXNosIpYaa8WZYgaTN/FiNXV/V6LpbGv88qvgIJ5g0KM03yoR1dV rf6xOwdFq4DRGs4g803TBlMlP3tO2N0IjaDuYENHrGwNHTnivjsvZ+5J88O9 Im8OABI41ridYb6T+9rsKozePzNGgYPygZx1rtZeFNBZ4qgVq2rGAhL3ZCqU 6lhgargb18UCZdliRkIrnEfBOhObSdh0vMNo9xK9Z+Vi4fIEgb/Ww1fyc+ic DIbxZhoGywG2h8Agv+APgD1Jo8cRufhxQG6lhVGPIZ9+UClnZXLSA0Kkjy96 JH3QZat0BgSL3msVGQ4RtwgBGa72eLkCVEpQU1GB7sJb7bALRerftcGKecj8 0Qh7o7qm9WfJvOSferz+QwF6sRwpoNAtkeRThP5Tn8zkvPZh038ppfX5GIjL sx+/Jp0UAbafe+hHp4d4wj0dQ7WfO+Hr8iCl+DQD+gce0G+RpOzPXnbHw1Xz GVZ2LYL4YLafb9FzWG2tAP1ySa4/ZNk4qF3jcwVtXDDU4oGVU1IeuIZ3Gs9a mRDrGf7+afp+H7Zzj/3/eQMkq2Jctyxgt/hQsbA2/x396vzAGTuvM7pY5RVX PqPe/LbRhXVekzdZLttrpnwqW99ruJ7ugX1AecBb2TAQbf61zhu7TntMco4c I4fp5UzOA3wtlOL4NmIOLLAHjHuc20zlikP71ypxrIQNeZaWMQhlrgWhNOy+ v7HJVyoW66VB9UJSUh2144P5Q7kQMIUdB50olzWGY6V0P4+6QIxDhS5EAtOU Xwdex8emiZKu84gpqY0Jqia5RgfIs3Jq6Bl3pHm6eXvZFKKBG+6Pft3QLIJI riRsSmdzuutM8aU51ruD6jdeJ/kRnlN53+R74SVKOofyey+3GNnhFGEcXuf0 1jneXH4sSgKURuDvsMsTYqVhqHBQD7clyHgMJd0p6zsW1xDay2XYeBdeum09 R4IMTCXchjJ8vFMSCwWqwehQ2XTHtrun/j1MMXb3lQsNCzzK6fhgn5IbBq4M 5R7TdI9gR1XgRT+5j/aL6RVC0eTqv+qcAwRGKrOXq8dlZOXc/WgH/aHebDCG 6ElhTPMxM8reMpq+TkdBtF6Zk0vPjcw/6kjjXgyzblcn2O/hgNmn6+myL3mx tshboo4Z3of6xfA6m4KIo8gY8mHkWrMibiQI3f2CiKNeD3nvnIBoRCFSF3FJ y+pij+/AW4h+l41dC/e7adKX/SQrPCT7ihoEtSJD6s3q3ZBJYPrLxWd6pd7K iPeELLvnf9xS82J760tmbuCH54aRKO5tt0fC1Eho8v8wsNKwJh4BD9ItMXIh GM71ZmJQe/rebs6LpMrCzIPjOyrwDAZWLqcKF00uNgrlMjLagzndDG5DOV3r 3SK8R5K9Q42OwUFhk1K/ioL5Yw0qrqgz0stWyJcPyAf0K74ZpVrjZxLNW2mi 2TUzsqNQ8lRR3xuNH4GwUJIsCvUmta2K81X7crAAh5E7v3vXzNKmuaDE7mwq XySCIQzU3GOlBHHpXRzQw+Re99JYkLwXMq++KL2QAwnofErpQN4REont3LLF 3V+hDkZiXX4PQYtJM/CmDBh4SDMskvkIo6P0pgzOiFtpknkZhNqXdRSiAByi QBfolgk0p6EQ/dwy7uElFH1Cll9CkW7sykVESy+h4Cw9xyljau7PyzA0Mls6 1ZFM83B2BisvdEsn5AWS8r3rkjFEidS+8YEjVWCvFUyveeMD1xBcXTl+7Rsn lJy1mY4fq2ynGQwH8z6nfJor/h+W4fnH\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{458, 275}, ImageMargins->{{19, 0}, {0, 0}}]], "Input", CellChangeTimes->{{3.4107564094710827`*^9, 3.410756410368019*^9}, { 3.4107564430625563`*^9, 3.410756451115147*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Equivalent circuit", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}, { 3.406459821066276*^9, 3.406459824773054*^9}}], Cell[BoxData[ RowBox[{Cell[GraphicsData["CompressedBitmap", "\<\ eJztWb1PHEcUH27v8IGJFNnBNpyQaCiiSIdNiEB2YUDWIROFFDQ0FOgUiSsi W4BFRINESYclGuSCloYWCuSPwkaiR6JH/AGQhChpNvN7+97c22EX7hIwhe+k 2/l6897vfcyb2dmfpudnfvl1er5Snu4enZ1+OVMpz3WXXszarqDJmKYhY8zr boN6aKv8oN8wHty44fo/VAThyclJyD/TzH1HR0eu73GcfHNz8xz5zs5OMnmL JneShDuXJhMeHBw8ieb9TUUb0crc9fX1sFKpULurq4vmobSzZDw2O0eUIoVn WymTk5N2DG1vtuHpvysdxW8BPdvCqakppwhYWGZhqVQiMSiTAQlHqNPX1wdL 2VakIqymQYLDysoKtdM5/sEcMcLGYI63iYvmpmaTPtK2+onKfzI7kEBo5A88 s87+AGnrAXeLlL29PQwxozM2PRwlWuAHjfNKiBcnZ56B4I3RaOgvHlLuNiVl hBz7R3N9Fo1To9510YpHBux+8HsZIHyOVr8az/I4rCExk6FnLlxcXHSxwn7g sYD6MI7ZxRR+Ii9Hz2ayBGQgcsRglkdvNL0HxQAIvne1InPr7e0Nl5eXlXuD cGxsLMzlcrG+/f39sLOzMzw8PHR9SUhkKcoPHq8NyfDwcDgxMRGTCnScIl3f 6uoq9Z2enl6IBLbQSGBvD0nGIUmtFaOaBRawrP7+fpKvLSGYNM4kTPAN6GCl FD/VislKgN9iUiW84Cz5waTWtCZIgNXM4FRao7VuIZn/iOmcJSSsNzY2BJKJ 2VMDauE+9hW1ij6QTsYuyQuT8WfD3k1AV2BFYXO1hVGOrNIXmWp3d5eYiRlt 6VYu9HN6WBrrg0TT1qUJJiI9ImTxBxOb1JI0kSnI2IgeuEtkWBa+MnlSwlOG 2u3t7WG5XJZoRRfrZp76OL9hXhDomY8mcorTvMREdy7QASoDO7yCPMFtX4c2 LHUN0AXZ+Pi4pAynl3XeUK34xYjszAzvmZfhv8t6ghVPZ93zbilJhk/VLVpf t2N6yYK2fqHUp/VCENasmNq0EVAZEHjHsfoUqwYyTJQBc+4DHU5R5zVTCV2y kE4PsUSeollA7OO7Z3xfv1+nf/QpBL6Rk0+yfyhRRacUpw4SGRAdHx+LCnxY aENRqKJvTvNLB+oDPtT4wTJw0LQX9JmcPPiIiFv1XiB5Kbb02QFE/nWysc/D ZVQdjrCDYegVUvXAReGDlMZ2Nw+8UMnrUHALwu6vVN/a2iI3tCfI/rZWTbTh /6cmWOGS5X1NWt3eIVEiaVe0Qjk3N1e3MrI9449TjU25V6GMWg4JykgAra2t xZTBQdAqIUrVpEx1edaO1l/48lqVhDbrggeh7najLDVHRkYklq4UbJXuoaLD +dkoBEjnPT09YsJrRoA8VSgUKHMJAok8zlvXjAAWx/GiiiBw6wF2uXe94iUV WqVjry/os264CfGSywYHBy8VP3Ch0AEtStalNa47hKKNEEDrMj/XIWp7e5ui ypZOFNoLCwuXiXqVMPSmQd4gb5A3yBvkV0X+HE/qyrjajw0WDRZfMoufHTnV vouGPiRwWmgM1TVEtv5MXyT3qMjSjYj6VhgFiflERXSdiBdzvB6rD13zEdVH Km65z2P4gVpRGiZ9R8VXJApMDb854eWZv205FnKHmcJCPgYKarkeBAvcpiXg FRZvqYiugTDFsuCTd56myi0Wxj0UHgcIlU94t7hP9MAXv1fp5EvpWJa0ptFN Ar+fy8W/RRhdfJv3ish4L/X6muu3zx9b11E3Tf8CW4oIPQ==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{320, 146}, ImageMargins->{{20, 0}, {0, 0}}], Cell[GraphicsData["CompressedBitmap", "\<\ eJzFml9uFEcQxoednfWatcEBghQplkgUICHKQ5yEIzhPPJAnHiJFFoqEFUWJ CE8+AkfgBtyAE8Qn4AR7Ak6w6a+7fj3Vs217FxanJXt3unu6qr6qrn/2o6MX z37/8+jF8dOjOz8/P/r72fHTf+4c/vU8TLVXmqaZh5+Hdxp9X4Sv9mu+CCMs vufHr/GjXczn88WrV6/i07bNnZycLGw0v62472o69jNb0la9oqfvbO7Nmzd5 +57NvXz5cunY4+Nj9jafb/i8AZs60qTIxx4cHCzevXtXHLu/v5/nth15He3Z 3NR5xub1+DFZvH37Ni49efIkSqgRvo+iJUziaRpashP65TYv66z7Ds/Xr187 Bm5HKqKgH72jTw3tQ9V6T2t6lgAIp2dZ5eHhIYLFtQDIyFkLMu+uItjVqmD6 ru2ipLlw5NdnCnUjPq8jlDSoPeJUJCRUmEcIk8mRMCXdiG8Z9ahLbdMpmpec oqJPrelTo7KOMHpdDPSUppE6Vi/GTk9PgUzfR7YNGXWitsGVvRK3jbSKVJDv VbO+OFp36ERiYU9NnKkJpTltw2AqIjWJxXGWSeoPuhrFxXF8xY0olV2erfhx NZ6obdKwBBIX+g4l+z42RlF82Np0lbmbcW4rWzw/YKU9bbTfzjvISCYw34C5 BAGQ1n7rGetqHW2TskHBZ9lBceN6O9A0kg/tIFxCfxVQSeBuYvghKJeQa44N n4PfxNlXjFnzefOJzTn8GjwVLiAwnHQbTkBOwy+eH9jA9zmvEodBODZbdugV 8tVMztAzlLcyfKIsaxcpM6asHYcd/mDLHoSVXtMr4sosOrvIAEogFWbDG1wc Cas12BQ7iVRXXQN0nQ2YnTEI+4t4f9I+7oKfcxA0mAR8M+x8XpHU+Is0t1Nc KQ3v2j3Kei/o0duoJCMiQnlgo97giDcBgIlhDXERFJY4KMLTqlgjoI43tWcn cBHGXGwuQOClif4omDz7xBeGjEkZkIWtEOwIseKc85fB75bAD7KZvF0N/MLE dZ5oaJAqeRN30JcmPvXi58CJmIFM57gD7aFV19ZurmituBfi3GLgNnGvXqvk ByDn0dE7gR9DZxbFESK4JYmIB+QdiRrohN2LIk5pBFRRmkS0YwqlnQWLWNca EMiAb9iaj8KmVGO5yzmc9th1SmeO+ixmkk2ZYWBh6WvhhJlhxqSxya8vsv9H GUV07pY8TY9/ebta4wYBLcSM69O31rSgZR8wLSBGag1z+Z1J44HRcOBlnHNM nuSwxyu2fWZwcPHNfET0feAg69V0MDvgkJiWBmU4cL6ysC2bMwVHV9F+VDgk o7fEAo6CH0qjWl70qUNoE2EQuqLJRQAHd5Mzxwgc4B6SSJEnKVdzePwS3kne T3ZgnzM7ThRxwh+CQDdgz1sCbIllDAlfY0GIu7EiCDjmVUFgP9loAYKVDSkA ggV3Q6daEGu+WlPLlCa6a7g7AqKGqcMy0tYL3uw7XeDfW0cfnr6Mv3cj7x44 0YWW5rkq6DYgkZ0Ut1I+/f34bH5cEZqxKYQkjiG9B5Z8QOWVx/H3dnY7DArv xEBT1EB6Lu91h8vy7zY1evfSgT/oYxQrhumwGoz78TDhvQhkZ4UDSDPMLn+p KIryhRCnYylLMNlUjvYisNcy/8L1UDDcK5XCXfNK0VZsnbtLYZHiforwvhfm exXMPbZTuXVmR1xK38Kx4rIheyN4a81Si8yKJ3E3SfPICUq754/KnG0/r0f5 r712Ue/xWtr+vcNxGOClztJyEjd4d+7xpvqMxtJBBScfeDF+uiTUiHradE/R WNqzDVqiMSYUsD6CkAyaNqm/dz76iKRSpuSgp0XNx/2iDAvPO5VtkOQexdK+ F3yYA22oiUid5Wz60pqIk6JNpmFCFU3fzgMMgcJxohCURP3rlSQGmUNJQ+Uk qg2eCSX5HpMLF2wlZPvTNKzyTsa2s24X0Ydz4tM3zhwuqYNY64sWpW+9q+hj hMUMHKVXGHWcXvMdRMV6FOcdRuJmL/t9hjdi7UdwfYot7ed71lgtzvcJttKH VNDNvNu7yBiKBI47ttlW4jBx7YG8nrl3QGaLMG3H7z7Kle3YvnDGI/Qpa60t +7Ebi2c2ZYvqebfaY8QduoZ0Tsp8H8nbwao9rlquiF0JacKfT0GYa82MkZoh XtEQqb3jN0cGC0qw4JKs3LBxvruICtySmsm6LP0yOoveftfrLO6c1RmMzzrX 56euxWpNvxxQBq2r/6eveGZLd9AfqrQYqw2RmqO9VZnDWl27snoj4BITYpg1 UjuaURZH49f7erLNWUFPrjvHkZZmsm0q+cDWYs0Cowd1rcHeFnuBpks9HdMk J5HWQMy3CS+rq3ittJrzuoqkHL2E4yL5DWt0U2olsf8Lt9Mcy64XHYc0E5SF vZADeXvx7Wsf+soex7r2sqFeYptjizC87dgjgvKnNp9f01SEDO1sIrrVKvkP mpfaXLzubaVsLiKzb/ztOsjWjY3eKnyWbOlaWt7KDQZBIybRgtztzkDD0rrX MOGUPlut+0Q5uKku4vDaiE7ge2Li4B9cdYVWU51qRZsf5sVI1j9uQ9EsoNZQ BBY8qJ6oxGuadVVJHJaRdQYFf+xjkI8rpd1xpCjwvaCgve3mMFTmLuo73rU5 LEzWk3ibxffowPk6rTK/dr/xi4Qw/YrlXDNFdmpby1GLFtcwOpO5J+Z7UbEH /7dwaAGTubT49JPR941GEzdDY2dmMX0DczBfbU4+SJu/NZ3W+pCW46No8rn8 vwtlXPD/NYJusR8Srb7Y7W+1LgMg+H7KQweC6LC//4P3rHDKLtbW5qvtzQel DSy3MidZaoZeD8eTeGDJ+EZfFoSjrjnByuq17IZwz71lPDTV+O5mrlRnRULg 5a3MV5uhqWlhVCZFLa1h7Uj+G893Ih+7OTpddtoH/stn+dFc+Q+o92tj\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{227, 54}, ImageMargins->{{38, 0}, {0, -26}}]}]], "Input", CellChangeTimes->{{3.410756487453931*^9, 3.4107565313411303`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"ko", "=", RowBox[{"10", "^", "logko"}]}], ";", RowBox[{"kr", "=", RowBox[{"10", "^", "logkr"}]}], ";", RowBox[{"mM", "=", FractionBox["DM", "L"]}], ";", RowBox[{"taudM", "=", FractionBox[ RowBox[{"L", "^", "2"}], "DM"]}], ";", RowBox[{"Rct", "=", FractionBox[ RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], "+", RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}]}], RowBox[{"f", " ", "F", " ", "Mmax", " ", RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], " ", RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}]}]]}], ";", RowBox[{"RM", "=", RowBox[{"Rct", FractionBox[ RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], "+", RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}]}], "mM"]}]}], ";", RowBox[{"Rbf", "=", RowBox[{"ROhm", "+", "Rct", "+", FractionBox["RM", RowBox[{"d", "+", "2"}]]}]}], ";", RowBox[{"MM", "=", RowBox[{"Which", "[", RowBox[{ RowBox[{"d", "\[Equal]", "1"}], ",", FractionBox[ RowBox[{"Coth", "[", SqrtBox[ RowBox[{"taudM", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"taudM", " ", "p"}]]], ",", RowBox[{"d", "\[Equal]", "2"}], ",", FractionBox[ RowBox[{"BesselI", "[", RowBox[{"0", ",", SqrtBox[ RowBox[{"p", " ", "taudM"}]]}], "]"}], RowBox[{ SqrtBox[ RowBox[{"p", " ", "taudM"}]], " ", RowBox[{"BesselI", "[", RowBox[{"1", ",", SqrtBox[ RowBox[{"p", " ", "taudM"}]]}], "]"}]}]], ",", RowBox[{"d", "\[Equal]", "3"}], ",", RowBox[{"MM", "=", FractionBox["1", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SqrtBox[ RowBox[{"taudM", " ", "p"}]], " ", RowBox[{"Coth", "[", SqrtBox[ RowBox[{"taudM", " ", "p"}]], "]"}]}]}]]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "ZM", "*)"}], RowBox[{"ZX1", "=", RowBox[{"RM", " ", "MM"}]}], ";", RowBox[{"ZX1Et", "=", RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "ZX1"}], ")"}], "/", "Rbf"}]}], ";", RowBox[{"Zf", "=", RowBox[{"Rct", "+", "ZX1"}]}], ";", RowBox[{"ZfEt", "=", RowBox[{ RowBox[{"(", RowBox[{"ROhm", "+", "Zf"}], ")"}], "/", "Rbf"}]}], ";", RowBox[{"Z", "=", RowBox[{"ROhm", "+", FractionBox["Zf", RowBox[{"1", "+", RowBox[{"Zf", " ", "Cdl", " ", "p"}]}]]}]}], ";", RowBox[{"ZEt", "=", RowBox[{"Z", "/", "Rbf"}]}], ";", RowBox[{"wcdM", "=", RowBox[{"Which", "[", RowBox[{ RowBox[{"d", "\[Equal]", "1"}], ",", RowBox[{"3.88", "/", "taudM"}], ",", RowBox[{"d", "\[Equal]", "2"}], ",", RowBox[{"11.7", "/", "taudM"}], ",", RowBox[{"d", "\[Equal]", "3"}], ",", RowBox[{"22.3", "/", "taudM"}]}], "]"}]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rct", " ", "Cdl"}], ")"}]}], ",", "wcdM"}], "}"}]}], ";", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", "0"}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"yM", "[", RowBox[{"ao", ",", "VSta"}], "]"}], ",", RowBox[{"1", "-", RowBox[{"yM", "[", RowBox[{"ao", ",", "VSta"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.01"}], ",", "1.01"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "240"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{"yM", "[", RowBox[{"ao", ",", "V"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{"1", "-", RowBox[{"yM", "[", RowBox[{"ao", ",", "V"}], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(y\), \(\[LeftAngleBracket]\"\\"\ \[RightAngleBracket]\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(y\), \(\[LeftAngleBracket]\"\< \>\"\ \[RightAngleBracket]\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{"{", RowBox[{"ZEt", ",", "ZfEt", ",", "ZX1Et"}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"ZEt", "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"ZEt", "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"ZX1Et", "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"ZEt", "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"ZfEt", "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"ZX1Et", "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", "Purple", ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.5"}], "}"}], "]"}]}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.4"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\[LeftAngleBracket]\"\\"\ \[RightAngleBracket]\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.3"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "2"}], ",", "0", ",", "2", ",", "4"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "245"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}], ",", 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.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.6"}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", 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[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(LF\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re Z)/(\ \!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \ \(LF\)]\))\>\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(LF\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(M\), \(+\)]\ \) + \[LeftAngleBracket] \[RightAngleBracket] + \!\(\*SuperscriptBox[\(e\), \ \(-\)]\) \!\(\*UnderoverscriptBox[\(\[LongLeftRightArrow]\), SubscriptBox[\(K\ \), \(o\)], SubscriptBox[\(K\), \(r\)]]\) \[LeftAngleBracket]M\ \[RightAngleBracket]\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logko", ",", RowBox[{"-", "3"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "4"}], ",", "0", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logkr", ",", RowBox[{"-", "3"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "4"}], ",", "0", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)\>\""}], "}"}], ",", "0.1", ",", "0.9", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "1", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"DM", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "7"}]}]}], ",", "\"\<\!\(\*SubscriptBox[\(D\), \(\[LeftAngleBracket]M\ \[RightAngleBracket]\)]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \ \!\(\*SuperscriptBox[\(s\), \(-1\)]\))\>\""}], "}"}], ",", RowBox[{"0.1", " ", RowBox[{"10", "^", RowBox[{"-", "7"}]}]}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "4"}]}]}], ",", "\"\\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"1", " ", RowBox[{"10", "^", RowBox[{"-", "3"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "5"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ROhm", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\""}], "}"}], ",", "0", ",", "100", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"V", ",", RowBox[{"-", "0.05"}], ",", "\"\\""}], "}"}], ",", "Vmin", ",", "Vmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logwc", ",", "4", ",", "\"\\""}], "}"}], ",", "logwmin", ",", "logwmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc1", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \ \(dl\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc2", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao_", ",", "V_"}], "]"}], ":=", RowBox[{"ko", " ", RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr", "[", RowBox[{"ao_", ",", "V_"}], "]"}], ":=", RowBox[{"kr", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"yM", "[", RowBox[{"ao_", ",", "V_"}], "]"}], ":=", FractionBox[ RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}], RowBox[{ RowBox[{"Ko", "[", RowBox[{"ao", ",", "V"}], "]"}], "+", RowBox[{"Kr", "[", RowBox[{"ao", ",", "V"}], "]"}]}]]}], ";", RowBox[{"Vmin", "=", RowBox[{"-", "0.18"}]}], ";", RowBox[{"Vmax", "=", "0.18"}], ";", RowBox[{"F", "=", "96484.56"}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"Mmax", "=", RowBox[{"10", "^", RowBox[{"-", "3"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"logwmin", "=", RowBox[{"-", "1"}]}], ";", RowBox[{"logwmax", "=", "6"}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{"Blue", ",", "Purple", ",", RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.6142719099991583`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}]}], ")"}]}]}], "]"}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.4023695361461477`*^9, 3.402369674827173*^9}, { 3.4023697765829*^9, 3.4023699547166243`*^9}, {3.402370005488802*^9, 3.402370018431055*^9}, {3.402370052619474*^9, 3.402370104981262*^9}, { 3.4023701590050898`*^9, 3.402370243119587*^9}, {3.40237027455987*^9, 3.402370329528116*^9}, {3.402370384343309*^9, 3.4023704987216682`*^9}, { 3.402482859565398*^9, 3.40248302156184*^9}, {3.4024830536030493`*^9, 3.402483098071499*^9}, {3.402483146978909*^9, 3.4024831563281307`*^9}, { 3.402483195965958*^9, 3.402483268056141*^9}, {3.402483425822873*^9, 3.402483490293881*^9}, {3.4024835580708017`*^9, 3.4024836381413603`*^9}, { 3.402483670938328*^9, 3.402483708771574*^9}, {3.4024852890688133`*^9, 3.402485434788199*^9}, {3.4024858312418756`*^9, 3.402485837150496*^9}, { 3.402485915685755*^9, 3.40248624722701*^9}, {3.4024863102816753`*^9, 3.4024864195417833`*^9}, {3.402486462882098*^9, 3.4024865337273684`*^9}, { 3.402486609670967*^9, 3.4024866165403748`*^9}, {3.40248665067288*^9, 3.4024866604687157`*^9}, 3.4024868590375547`*^9, {3.402486907262285*^9, 3.402486915747499*^9}, {3.402488329871443*^9, 3.402488361675241*^9}, { 3.402488396714031*^9, 3.402488516153315*^9}, {3.402488655750746*^9, 3.402488965308111*^9}, {3.402489000444693*^9, 3.4024890040365353`*^9}, { 3.4024890589346046`*^9, 3.402489062410473*^9}, {3.402489130832069*^9, 3.4024892156252747`*^9}, {3.402489294420019*^9, 3.402489344499359*^9}, { 3.402489419831357*^9, 3.402489526998837*^9}, {3.402490383226593*^9, 3.4024905707564363`*^9}, 3.402490624558634*^9, {3.402490672720195*^9, 3.402490718199432*^9}, 3.4024907588747*^9, {3.402574717052318*^9, 3.402574769906005*^9}, {3.40257486912783*^9, 3.4025748808768263`*^9}, { 3.402574925421788*^9, 3.4025749387882967`*^9}, {3.402575003501624*^9, 3.402575018596941*^9}, {3.4025754898518963`*^9, 3.40257563218882*^9}, { 3.40257567730838*^9, 3.402575809526437*^9}, {3.402575874843103*^9, 3.402575879033408*^9}, {3.402575935744194*^9, 3.40257595844971*^9}, { 3.402576157191975*^9, 3.4025761727653913`*^9}, {3.402576224707034*^9, 3.402576228230336*^9}, {3.402576483749071*^9, 3.402576523324802*^9}, { 3.402576564703891*^9, 3.4025766023925047`*^9}, {3.4026199023445873`*^9, 3.402619948709725*^9}, {3.4026199850524893`*^9, 3.4026200413967943`*^9}, { 3.4026201510059843`*^9, 3.4026201592745333`*^9}, {3.40262020611094*^9, 3.40262029407122*^9}, {3.402621027672077*^9, 3.402621134104281*^9}, { 3.4026211684080963`*^9, 3.402621223194031*^9}, {3.402621265215824*^9, 3.402621267902812*^9}, {3.402621334818672*^9, 3.4026213494917727`*^9}, { 3.4026214649411373`*^9, 3.4026214711931047`*^9}, 3.402628313929721*^9, { 3.402628403990634*^9, 3.402628475924038*^9}, {3.4026285329475117`*^9, 3.402628569365765*^9}, {3.4026286056221857`*^9, 3.402628641301815*^9}, { 3.4026287171490498`*^9, 3.402628718792757*^9}, {3.402629209570641*^9, 3.4026292330136213`*^9}, {3.4026292822945547`*^9, 3.402629294686112*^9}, { 3.4026293253815813`*^9, 3.4026295010075397`*^9}, {3.402629534731275*^9, 3.402629537163505*^9}, {3.4026299325197887`*^9, 3.4026299348236427`*^9}, { 3.4026299728323936`*^9, 3.4026299823479843`*^9}, {3.402630036321167*^9, 3.4026300394143963`*^9}, {3.402630134678294*^9, 3.4026301584997663`*^9}, 3.402630195728856*^9, {3.402630242528446*^9, 3.4026302508320208`*^9}, { 3.402630473877427*^9, 3.40263050834774*^9}, {3.402630544010498*^9, 3.40263059729458*^9}, {3.40263075907216*^9, 3.4026307629079313`*^9}, { 3.402630877676293*^9, 3.402630889050021*^9}, 3.4026310448648443`*^9, { 3.402713838212441*^9, 3.402713911468562*^9}, {3.4027139646195087`*^9, 3.402714061855445*^9}, {3.4027141859392157`*^9, 3.402714196148651*^9}, { 3.402714270448277*^9, 3.402714307288842*^9}, {3.4027143399674253`*^9, 3.402714367340341*^9}, {3.402714399336391*^9, 3.402714444833983*^9}, { 3.402808494640152*^9, 3.402808498889625*^9}, {3.4028085360993547`*^9, 3.402808537077035*^9}, {3.4028086473870296`*^9, 3.402808669589512*^9}, { 3.4028129814770727`*^9, 3.402813071708537*^9}, {3.402813354504629*^9, 3.4028133674794903`*^9}, {3.4028140087262583`*^9, 3.4028140835208187`*^9}, {3.402814198214512*^9, 3.402814225387941*^9}, { 3.4028143134468307`*^9, 3.4028143140638123`*^9}, {3.403415752692627*^9, 3.403415789486211*^9}, {3.403415820099463*^9, 3.403415854364264*^9}, { 3.4038412807653027`*^9, 3.403841297141389*^9}, {3.403841342463997*^9, 3.403841343606017*^9}, {3.403841394294342*^9, 3.403841395787012*^9}, { 3.4038414536171427`*^9, 3.403841465485631*^9}, {3.403841535799437*^9, 3.403841536805583*^9}, {3.403841575028674*^9, 3.40384157755285*^9}, { 3.403842684339519*^9, 3.4038426930629663`*^9}, {3.40384293481987*^9, 3.403842947396359*^9}, {3.4057612568039503`*^9, 3.4057612711786213`*^9}, { 3.405761413018404*^9, 3.405761413379381*^9}, {3.405819052758778*^9, 3.4058191806141376`*^9}, {3.4058254594678288`*^9, 3.405825460472539*^9}, { 3.4058255238072653`*^9, 3.4058255537622643`*^9}, {3.405825592564384*^9, 3.405825621441044*^9}, {3.405825667462978*^9, 3.405825850482213*^9}, 3.405825923900382*^9, {3.405825974910058*^9, 3.405825981235718*^9}, { 3.405826725138728*^9, 3.405826833608189*^9}, {3.405827059778594*^9, 3.405827064172968*^9}, {3.4058271387232122`*^9, 3.405827213120493*^9}, 3.4058272758905573`*^9, {3.405832978349814*^9, 3.405833000966395*^9}, { 3.405833036382531*^9, 3.40583306067715*^9}, {3.405833176572535*^9, 3.40583321314117*^9}, {3.4058332531527233`*^9, 3.405833253880949*^9}, { 3.4058333230905247`*^9, 3.4058333537832117`*^9}, {3.40583339037722*^9, 3.405833397297024*^9}, {3.405833456191784*^9, 3.405833459433735*^9}, { 3.405914947970791*^9, 3.405914990155654*^9}, {3.405915053544611*^9, 3.4059150909548597`*^9}, 3.405915225179245*^9, {3.40591526744986*^9, 3.405915270548851*^9}, {3.405915301808464*^9, 3.405915321927217*^9}, { 3.405915419846855*^9, 3.405915484582204*^9}, {3.405915534940544*^9, 3.4059155937038*^9}, {3.405915628710429*^9, 3.405915664762396*^9}, { 3.405915733685245*^9, 3.405915784222234*^9}, {3.406005848446827*^9, 3.4060059731594954`*^9}, 3.406006028562162*^9, 3.4060060942888308`*^9, 3.40600612822043*^9, {3.406463419039475*^9, 3.406463425238011*^9}, { 3.4066903506344976`*^9, 3.406690443971858*^9}, 3.406690499516057*^9, 3.4066905503317738`*^9, 3.4066905957921143`*^9, {3.4067218119549217`*^9, 3.406722029779256*^9}, {3.40672666264081*^9, 3.4067267029103823`*^9}, { 3.406726743485927*^9, 3.406727032307323*^9}, {3.406727065017516*^9, 3.406727086894677*^9}, {3.406727166363841*^9, 3.406727325538702*^9}, { 3.406727356971039*^9, 3.406727426028167*^9}, {3.406727461115994*^9, 3.406727588676793*^9}, {3.40672764141194*^9, 3.406727712311068*^9}, { 3.406727837934157*^9, 3.4067278878622627`*^9}, {3.406727939550693*^9, 3.406727954862232*^9}, {3.406727986428549*^9, 3.40672811396737*^9}, { 3.4067281458961573`*^9, 3.406728238758285*^9}, {3.406728271576572*^9, 3.406728309736939*^9}, {3.406728343232458*^9, 3.406728375670203*^9}, { 3.40677109179745*^9, 3.406771121573444*^9}, {3.406771220912818*^9, 3.4067713541562138`*^9}, {3.40677139844212*^9, 3.406771401825457*^9}, { 3.4067714446930513`*^9, 3.406771493737382*^9}, {3.406771662741357*^9, 3.406771664146846*^9}, {3.4067720152618113`*^9, 3.406772032104451*^9}, { 3.4067721226583433`*^9, 3.406772126769464*^9}, {3.4067721767613688`*^9, 3.406772177732239*^9}, {3.406772213408807*^9, 3.406772227995462*^9}, 3.406772278700742*^9, {3.406772337274784*^9, 3.4067723975784283`*^9}, { 3.40677252069921*^9, 3.406772643858377*^9}, {3.4067726927191477`*^9, 3.406772724553761*^9}, {3.406772790192916*^9, 3.406772810962482*^9}, { 3.4067728643212023`*^9, 3.406773078482822*^9}, {3.4067731126341753`*^9, 3.4067731633476667`*^9}, {3.406773294186666*^9, 3.406773356301826*^9}, { 3.406773409278254*^9, 3.406773409572299*^9}, {3.406773472415373*^9, 3.406773481065853*^9}, {3.406773558009564*^9, 3.4067735662063*^9}, 3.406773610437707*^9, {3.4067736828309307`*^9, 3.40677373887646*^9}, { 3.4067775975723267`*^9, 3.4067776986499243`*^9}, {3.406780421253631*^9, 3.4067804982419167`*^9}, {3.40678053652246*^9, 3.406780561731225*^9}, { 3.4067806210807533`*^9, 3.4067806234227448`*^9}, {3.406780695355877*^9, 3.406780810643201*^9}, {3.406780859962933*^9, 3.4067809276740007`*^9}, { 3.406780960703113*^9, 3.406781046175239*^9}, {3.4067810862763042`*^9, 3.406781093242486*^9}, {3.406781167012849*^9, 3.4067811825322857`*^9}, { 3.406781251344014*^9, 3.406781277730423*^9}, {3.406781353797323*^9, 3.406781358602261*^9}, {3.406781388753023*^9, 3.406781390060025*^9}, { 3.406781527013426*^9, 3.40678155994066*^9}, {3.40678160151996*^9, 3.406781601739043*^9}, {3.4067824080447073`*^9, 3.406782425268762*^9}, { 3.40678828436969*^9, 3.406788285248328*^9}, {3.4067883472396717`*^9, 3.406788364963787*^9}, {3.4067884114604588`*^9, 3.406788515751669*^9}, { 3.4067885480115633`*^9, 3.4067885775580797`*^9}, {3.406788616700295*^9, 3.406788643832851*^9}, {3.406788697406749*^9, 3.406788730034595*^9}, { 3.406788776156234*^9, 3.406788786066964*^9}, {3.4067888490595922`*^9, 3.406788926206868*^9}, {3.406788958850506*^9, 3.4067889915715027`*^9}, { 3.406980618602788*^9, 3.406980621457486*^9}, {3.4069813382516193`*^9, 3.406981380078356*^9}, {3.406981442557928*^9, 3.406981489524311*^9}, { 3.406981528825574*^9, 3.406981569704323*^9}, {3.4069816000712633`*^9, 3.40698162169389*^9}, {3.406981733493487*^9, 3.406981739067021*^9}, { 3.406981957488654*^9, 3.4069819982181253`*^9}, {3.406982034630686*^9, 3.406982049471929*^9}, {3.406982082778748*^9, 3.406982083687392*^9}, { 3.407807500729887*^9, 3.4078075056256647`*^9}, {3.407807599126491*^9, 3.40780765265665*^9}, {3.4078078686844893`*^9, 3.4078079055924997`*^9}, { 3.407808296271274*^9, 3.407808307913868*^9}, {3.407808342439193*^9, 3.407808342866433*^9}, {3.407808386436602*^9, 3.4078086422488623`*^9}, 3.407808679014861*^9, {3.407808721062316*^9, 3.407808855067522*^9}, { 3.407809000624577*^9, 3.407809001849386*^9}, {3.40780904158095*^9, 3.407809089501124*^9}, 3.4078091391039886`*^9, {3.4078091974083242`*^9, 3.407809259931882*^9}, {3.407809299823391*^9, 3.4078093390737123`*^9}, { 3.407809581711879*^9, 3.4078096800810003`*^9}, {3.407826083076*^9, 3.407826096150407*^9}, {3.4078261452362947`*^9, 3.4078261565326777`*^9}, { 3.407826203088941*^9, 3.4078262142590303`*^9}, {3.407826254347468*^9, 3.407826262277145*^9}, {3.407826309531111*^9, 3.407826310472638*^9}, { 3.4078263592112627`*^9, 3.407826366274282*^9}, {3.4078264201024942`*^9, 3.4078264452408857`*^9}, {3.407826489988632*^9, 3.407826499714402*^9}, { 3.4078265803999643`*^9, 3.4078265861552153`*^9}, {3.407826632681047*^9, 3.4078266696724367`*^9}, {3.40784080736869*^9, 3.407840873359908*^9}, { 3.407841006928914*^9, 3.407841032755272*^9}, {3.407841073686043*^9, 3.407841135532281*^9}, {3.407841452954433*^9, 3.407841454187174*^9}, { 3.407841503000503*^9, 3.407841508844502*^9}, {3.4078417429697933`*^9, 3.407841795498805*^9}, {3.4078419106370363`*^9, 3.4078419976779423`*^9}, { 3.407842088952631*^9, 3.407842147525484*^9}, {3.407842319943303*^9, 3.4078424463958797`*^9}, {3.4078426602137117`*^9, 3.4078428337674026`*^9}, {3.407842872195163*^9, 3.4078428852836523`*^9}, { 3.407843016502172*^9, 3.4078430195101137`*^9}, {3.4078432145752287`*^9, 3.407843215995356*^9}, {3.40784328844932*^9, 3.4078432896546097`*^9}, { 3.4078435103250713`*^9, 3.40784359540233*^9}, {3.407843682309774*^9, 3.407843689543956*^9}, 3.407843729585647*^9, {3.407850564291857*^9, 3.40785060733881*^9}, {3.4078506378698893`*^9, 3.4078506693730373`*^9}, { 3.407850705762002*^9, 3.407850712904756*^9}, {3.407850771788886*^9, 3.4078508207483788`*^9}, 3.407850871444521*^9, {3.40785096694849*^9, 3.4078509711501083`*^9}, 3.4078510290887823`*^9, {3.407851256495919*^9, 3.407851328527939*^9}, {3.4078514456294737`*^9, 3.407851447046379*^9}, { 3.4078514957798862`*^9, 3.407851505517021*^9}, {3.407901268990594*^9, 3.407901278452107*^9}, {3.4079014679601316`*^9, 3.407901469154531*^9}, { 3.407901510347446*^9, 3.4079015341979313`*^9}, {3.407901569722208*^9, 3.407901719944298*^9}, 3.407901777220297*^9, {3.4084491465441313`*^9, 3.4084491487691402`*^9}, {3.4084492990296164`*^9, 3.408449416323303*^9}, { 3.408449507220433*^9, 3.408449512924794*^9}, {3.408452802914364*^9, 3.408452826265423*^9}, {3.4084533983648*^9, 3.408453476348256*^9}, { 3.408453541358642*^9, 3.4084535970965548`*^9}, {3.408496806018746*^9, 3.408496816855735*^9}, {3.4084970677466393`*^9, 3.408497107716893*^9}, { 3.4085063549362698`*^9, 3.4085063596632757`*^9}, {3.408506402665029*^9, 3.408506405841099*^9}, {3.40850645191385*^9, 3.408506455138687*^9}, 3.408506495423027*^9, 3.4085065346152697`*^9, {3.4085065684373007`*^9, 3.4085065699902153`*^9}, 3.408506624128717*^9, {3.408507161821216*^9, 3.408507165243559*^9}, {3.408541209727187*^9, 3.4085412313533916`*^9}, { 3.408541268730345*^9, 3.4085412963012867`*^9}, {3.408686239325432*^9, 3.408686256169495*^9}, {3.408686292032134*^9, 3.408686324077881*^9}, { 3.408686410318695*^9, 3.408686411158773*^9}, {3.408686459226623*^9, 3.408686461331758*^9}, 3.4086868212620583`*^9, {3.409057886549198*^9, 3.409057889322401*^9}, {3.409057960736418*^9, 3.409057991519616*^9}, { 3.40905804330056*^9, 3.409058057357868*^9}, {3.4090580988271427`*^9, 3.409058137161257*^9}, {3.409058196043766*^9, 3.4090582080796833`*^9}, { 3.409058340397925*^9, 3.4090583748001823`*^9}, {3.409058409298263*^9, 3.409058413742051*^9}, {3.409058448965068*^9, 3.409058497504405*^9}, { 3.409110755716734*^9, 3.4091107931088037`*^9}, {3.409656768677964*^9, 3.4096567791667233`*^9}, {3.40965725877743*^9, 3.409657268336651*^9}, { 3.409657299391069*^9, 3.4096573071039886`*^9}, {3.409657375621139*^9, 3.409657398069779*^9}, {3.409657435307901*^9, 3.409657515967517*^9}, { 3.40965761797808*^9, 3.409657628396587*^9}, {3.4096576845304813`*^9, 3.4096577048312883`*^9}, 3.4096578398040953`*^9, {3.409800662494561*^9, 3.409800712453971*^9}, {3.409800837583973*^9, 3.409800850636065*^9}, { 3.409800960021697*^9, 3.409800965577908*^9}, 3.409825338559375*^9, { 3.409825395221032*^9, 3.409825397337636*^9}, 3.4098256440591927`*^9, { 3.409977895083487*^9, 3.4099779010712633`*^9}, 3.410003018022663*^9, { 3.4102207023734407`*^9, 3.410220737513959*^9}, 3.410220883200602*^9, { 3.4102209377186413`*^9, 3.410221131004793*^9}, {3.410221200640538*^9, 3.4102213289839897`*^9}, {3.410221362990202*^9, 3.410221508885247*^9}, 3.410221613607895*^9, {3.4102217451299953`*^9, 3.410221752431975*^9}, { 3.4102217847788267`*^9, 3.410221816914756*^9}, 3.410221916806489*^9, { 3.4102225501871967`*^9, 3.4102226927346487`*^9}, 3.410222812074254*^9, { 3.410222875930374*^9, 3.410222952195322*^9}, {3.410223008090868*^9, 3.4102230338505087`*^9}, {3.410223147204076*^9, 3.410223148849596*^9}, { 3.410223379468111*^9, 3.410223444680496*^9}, 3.410223476078685*^9, { 3.410223645053804*^9, 3.410223679780548*^9}, {3.410223818111969*^9, 3.410223840135191*^9}, {3.410223932881379*^9, 3.4102239508419447`*^9}, { 3.410224007367136*^9, 3.4102240315618963`*^9}, 3.4102240861884336`*^9, { 3.410234337742487*^9, 3.410234338592636*^9}, {3.410234377143044*^9, 3.4102344038244677`*^9}, {3.410234590362834*^9, 3.4102345919313726`*^9}, { 3.4102346597793093`*^9, 3.410234675361557*^9}, 3.410234732359823*^9, { 3.410234841016128*^9, 3.4102348658923903`*^9}, {3.41023492975443*^9, 3.4102349302397337`*^9}, {3.4102351077131977`*^9, 3.410235190470541*^9}, { 3.410235274751482*^9, 3.410235301743273*^9}, {3.4102353378617153`*^9, 3.410235343461095*^9}, {3.410235387777892*^9, 3.410235395151232*^9}, { 3.410235438000476*^9, 3.41023544091741*^9}, {3.410241896981451*^9, 3.410241904840377*^9}, 3.410242038603013*^9, {3.410242089730349*^9, 3.410242144483452*^9}, {3.41024217926112*^9, 3.410242236183262*^9}, { 3.41024244044209*^9, 3.410242446282289*^9}, 3.410242511703434*^9, { 3.410242561219674*^9, 3.410242620185546*^9}, {3.410242666964566*^9, 3.4102427438187313`*^9}, {3.410242826725644*^9, 3.410242827599092*^9}, 3.410330480711639*^9, {3.410330562990808*^9, 3.410330576128911*^9}, { 3.410330750021736*^9, 3.4103308148168163`*^9}, {3.410330970710306*^9, 3.4103309778725758`*^9}, {3.41033116701737*^9, 3.410331195140925*^9}, { 3.410331278449394*^9, 3.410331309566949*^9}, {3.410331352818241*^9, 3.41033138720304*^9}, 3.410331625852038*^9, {3.410331712723604*^9, 3.4103317623666286`*^9}, {3.410331798039033*^9, 3.410331801342513*^9}, { 3.410331866218639*^9, 3.410331890835101*^9}, 3.4103319417809553`*^9, { 3.41033200080748*^9, 3.410332048394121*^9}, {3.4103320894883966`*^9, 3.4103321998353148`*^9}, {3.4103498143364687`*^9, 3.410349817652465*^9}, 3.410349870528575*^9, {3.410355420757636*^9, 3.410355481166644*^9}, { 3.410355576510457*^9, 3.41035559755891*^9}, {3.4103556679588547`*^9, 3.410355704717784*^9}, {3.41035574186266*^9, 3.4103557572493267`*^9}, { 3.4107532228497543`*^9, 3.410753258001152*^9}, 3.410753309173004*^9, { 3.4107534119035997`*^9, 3.410753412404708*^9}, {3.410753521302183*^9, 3.4107535303924227`*^9}, {3.4107538346246653`*^9, 3.410753835995514*^9}, 3.410754058061468*^9, {3.4107554456220303`*^9, 3.410755446821062*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao$$ = 0.5, $CellContext`d$$ = 1, $CellContext`DM$$ = 1.*^-7, $CellContext`L$$ = 0.0001, $CellContext`logCdl$$ = -5, $CellContext`logko$$ = -3, \ $CellContext`logkr$$ = -3, $CellContext`logwc$$ = 4, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.05, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " \!\(\*SuperscriptBox[\(M\), \ \(+\)]\) + \[LeftAngleBracket] \[RightAngleBracket] + \ \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*UnderoverscriptBox[\(\ \[LongLeftRightArrow]\), SubscriptBox[\(K\), \(o\)], SubscriptBox[\(K\), \ \(r\)]]\) \[LeftAngleBracket]M\[RightAngleBracket]", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logko$$], -3, "log(\!\(\*SubscriptBox[\(k\), \(o\)]\)/(cm \ \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -4, 0, 1}, {{ Hold[$CellContext`logkr$$], -3, "log(\!\(\*SubscriptBox[\(k\), \(r\)]\)\!\(\*SuperscriptBox[\(M\), \ \(+*\)]\)/(cm \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -4, 0, 1}, {{ Hold[$CellContext`ao$$], 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9}, {{ Hold[$CellContext`d$$], 1, "d"}, {1, 2, 3}}, {{ Hold[$CellContext`DM$$], 1.*^-7, "\!\(\*SubscriptBox[\(D\), \ \(\[LeftAngleBracket]M\[RightAngleBracket]\)]\)/(\!\(\*SuperscriptBox[\(cm\), \ \(2\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 1.*^-8, 1.*^-6}, {{ Hold[$CellContext`L$$], 0.0001, "L/cm"}, 0.00001, Rational[1, 1000]}, {{ Hold[$CellContext`logCdl$$], -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3}, {{ Hold[$CellContext`ROhm$$], 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 100}, {{ Hold[$CellContext`V$$], -0.05, "E/V"}, -0.18, 0.18}, {{ Hold[$CellContext`logwc$$], 4, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -1, 6}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {False, True}}}, Typeset`size$$ = {498., {218.875, 224.125}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logko$723$$ = 0, $CellContext`logkr$724$$ = 0, $CellContext`ao$725$$ = 0, $CellContext`d$726$$ = 0, $CellContext`DM$727$$ = 0, $CellContext`L$728$$ = 0, $CellContext`logCdl$729$$ = 0, $CellContext`ROhm$730$$ = 0, $CellContext`V$731$$ = 0, $CellContext`logwc$732$$ = 0, $CellContext`wc1$733$$ = False, $CellContext`wc2$734$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao$$ = 0.5, $CellContext`d$$ = 1, $CellContext`DM$$ = 1.*^-7, $CellContext`L$$ = 0.0001, $CellContext`logCdl$$ = -5, $CellContext`logko$$ = -3, \ $CellContext`logkr$$ = -3, $CellContext`logwc$$ = 4, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.05, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False}, "ControllerVariables" :> { Hold[$CellContext`logko$$, $CellContext`logko$723$$, 0], Hold[$CellContext`logkr$$, $CellContext`logkr$724$$, 0], Hold[$CellContext`ao$$, $CellContext`ao$725$$, 0], Hold[$CellContext`d$$, $CellContext`d$726$$, 0], Hold[$CellContext`DM$$, $CellContext`DM$727$$, 0], Hold[$CellContext`L$$, $CellContext`L$728$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$729$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$730$$, 0], Hold[$CellContext`V$$, $CellContext`V$731$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$732$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$733$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$734$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`Cdl = 10^$CellContext`logCdl$$; $CellContext`ko = 10^$CellContext`logko$$; $CellContext`kr = 10^$CellContext`logkr$$; $CellContext`mM = \ $CellContext`DM$$/$CellContext`L$$; $CellContext`taudM = \ $CellContext`L$$^2/$CellContext`DM$$; $CellContext`Rct = \ ($CellContext`Ko[$CellContext`ao$$, $CellContext`V$$] + \ $CellContext`Kr[$CellContext`ao$$, $CellContext`V$$])/(((($CellContext`f \ $CellContext`F) $CellContext`Mmax) $CellContext`Ko[$CellContext`ao$$, \ $CellContext`V$$]) $CellContext`Kr[$CellContext`ao$$, $CellContext`V$$]); \ $CellContext`RM = $CellContext`Rct (($CellContext`Ko[$CellContext`ao$$, \ $CellContext`V$$] + $CellContext`Kr[$CellContext`ao$$, \ $CellContext`V$$])/$CellContext`mM); $CellContext`Rbf = $CellContext`ROhm$$ + \ $CellContext`Rct + $CellContext`RM/($CellContext`d$$ + 2); $CellContext`MM = Which[$CellContext`d$$ == 1, Coth[($CellContext`taudM $CellContext`p)^ Rational[1, 2]]/($CellContext`taudM $CellContext`p)^ Rational[1, 2], $CellContext`d$$ == 2, BesselI[0, ($CellContext`p $CellContext`taudM)^ Rational[1, 2]]/(($CellContext`p $CellContext`taudM)^ Rational[1, 2] BesselI[1, ($CellContext`p $CellContext`taudM)^ Rational[1, 2]]), $CellContext`d$$ == 3, $CellContext`MM = 1/(-1 + ($CellContext`taudM $CellContext`p)^Rational[1, 2] Coth[($CellContext`taudM $CellContext`p)^ Rational[ 1, 2]])]; $CellContext`ZX1 = $CellContext`RM $CellContext`MM; \ $CellContext`ZX1Et = ($CellContext`ROhm$$ + \ $CellContext`ZX1)/$CellContext`Rbf; $CellContext`Zf = $CellContext`Rct + \ $CellContext`ZX1; $CellContext`ZfEt = ($CellContext`ROhm$$ + \ $CellContext`Zf)/$CellContext`Rbf; $CellContext`Z = $CellContext`ROhm$$ + \ $CellContext`Zf/( 1 + ($CellContext`Zf $CellContext`Cdl) $CellContext`p); \ $CellContext`ZEt = $CellContext`Z/$CellContext`Rbf; $CellContext`wcdM = Which[$CellContext`d$$ == 1, 3.88/$CellContext`taudM, $CellContext`d$$ == 2, 11.7/$CellContext`taudM, $CellContext`d$$ == 3, 22.3/$CellContext`taudM]; $CellContext`lw = { 1/($CellContext`Rct $CellContext`Cdl), $CellContext`wcdM}; Grid[{{ Plot[ 0, {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, {-1, 1}}, PlotStyle -> AbsoluteThickness[2], Frame -> True, AxesOrigin -> {$CellContext`Vmin, 0}, FrameLabel -> { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}, Epilog -> { AbsolutePointSize[6], Point[{$CellContext`V$$, 0}]}, BaseStyle -> $CellContext`monStyle, ImageSize -> 250, FrameTicks -> {{-0.1, 0, 0.1}, {-1, 0, 1}, None, None}], Plot[{ $CellContext`yM[$CellContext`ao$$, $CellContext`VSta], 1 - $CellContext`yM[$CellContext`ao$$, $CellContext`VSta]}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, {-0.01, 1.01}}, Frame -> True, ImageSize -> 240, Axes -> None, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}}, FrameLabel -> { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\[Theta]"}, Epilog -> { AbsolutePointSize[6], Point[{$CellContext`V$$, $CellContext`yM[$CellContext`ao$$, $CellContext`V$$]}], Point[{$CellContext`V$$, 1 - $CellContext`yM[$CellContext`ao$$, $CellContext`V$$]}], Part[$CellContext`lHue, 3], Text[ "\!\(\*SubscriptBox[\(y\), \(\[LeftAngleBracket]\"M\"\ \[RightAngleBracket]\)]\)", Scaled[{0.1, 0.9}]], Part[$CellContext`lHue, 4], Text[ "\!\(\*SubscriptBox[\(y\), \(\[LeftAngleBracket]\" \"\ \[RightAngleBracket]\)]\)", Scaled[{0.1, 0.8}]]}, BaseStyle -> $CellContext`monStyle, FrameTicks -> {{-0.1, 0, 0.1}, {0, 0.5, 1}, None, None}]}, { Plot[ Evaluate[ Log[10, Abs[ ReplaceAll[{$CellContext`ZEt, $CellContext`ZfEt, \ $CellContext`ZX1Et}, $CellContext`p -> I 10^$CellContext`logw]]]], {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, PlotStyle -> {{Purple, AbsoluteThickness[1]}, {Blue, AbsoluteThickness[2]}, { AbsoluteThickness[1], AbsoluteDashing[{2, 2}]}, { AbsoluteThickness[1], AbsoluteDashing[{3, 3}]}, { AbsoluteThickness[1], AbsoluteDashing[{1, 1}]}}, Epilog -> { AbsolutePointSize[5], If[$CellContext`wc1$$, {Red, Point[{ Log[10, Part[$CellContext`lw, 1]], Log[10, Abs[ ReplaceAll[$CellContext`ZEt, $CellContext`p -> I Part[$CellContext`lw, 1]]]]}]}, {}], If[$CellContext`wc2$$, {Red, Point[{ Log[10, Part[$CellContext`lw, 2]], Log[10, Abs[ ReplaceAll[$CellContext`ZEt, $CellContext`p -> I Part[$CellContext`lw, 2]]]]}]}, {}], If[$CellContext`wc2$$, {Red, Point[{ Log[10, Part[$CellContext`lw, 2]], Log[10, Abs[ ReplaceAll[$CellContext`ZX1Et, $CellContext`p -> I Part[$CellContext`lw, 2]]]]}]}, {}], Point[{$CellContext`logwc$$, Log[10, Abs[ ReplaceAll[$CellContext`ZEt, $CellContext`p -> I 10^$CellContext`logwc$$]]]}], Point[{$CellContext`logwc$$, Log[10, Abs[ ReplaceAll[$CellContext`ZfEt, $CellContext`p -> I 10^$CellContext`logwc$$]]]}], Point[{$CellContext`logwc$$, Log[10, Abs[ ReplaceAll[$CellContext`ZX1Et, $CellContext`p -> I 10^$CellContext`logwc$$]]]}], Purple, Text["Z", Scaled[{0.1, 0.5}]], Blue, Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", Scaled[{0.1, 0.4}]], Part[$CellContext`lHue, 3], Text[ "\!\(\*SubscriptBox[\(Z\), \(\[LeftAngleBracket]\"M\"\ \[RightAngleBracket]\)]\)", Scaled[{0.1, 0.3}]]}, Frame -> True, Axes -> None, FrameTicks -> {{-2, 0, 2, 4}, {-4, -2, 0, 2, 4}, None, None}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))", "log |Z|/\!\(\*SubscriptBox[\(R\), \(LF\)]\)"}, { "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))", "log |\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+Z|/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(LF\)]\))"}], BaseStyle -> $CellContext`monStyle, ImageSize -> 245], ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZEt], -Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZfEt], -Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 200, PlotStyle -> {{Purple, AbsoluteThickness[1]}, {Blue, AbsoluteThickness[2]}}, PlotRange -> {{0, 1.1}, {0, 1.6}}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], { Point[ ReplaceAll[{ Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{ Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $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]}, FrameTicks -> {{0, 0.5, 1}, {0, 0.5, 1}, None, None}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(LF\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(LF\)]\)"}, { "(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(LF\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(LF\)]\))"}], BaseStyle -> $CellContext`monStyle]}}]), "Specifications" :> { Style[ " \!\(\*SuperscriptBox[\(M\), \(+\)]\ \) + \[LeftAngleBracket] \[RightAngleBracket] + \!\(\*SuperscriptBox[\(e\), \ \(-\)]\) \!\(\*UnderoverscriptBox[\(\[LongLeftRightArrow]\), SubscriptBox[\(K\ \), \(o\)], SubscriptBox[\(K\), \(r\)]]\) \[LeftAngleBracket]M\ \[RightAngleBracket]", Bold, Medium], Delimiter, {{$CellContext`logko$$, -3, "log(\!\(\*SubscriptBox[\(k\), \(o\)]\)/(cm \ \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -4, 0, 1, Appearance -> "Labeled"}, {{$CellContext`logkr$$, -3, "log(\!\(\*SubscriptBox[\(k\), \(r\)]\)\!\(\*SuperscriptBox[\(M\), \ \(+*\)]\)/(cm \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -4, 0, 1, Appearance -> "Labeled"}, {{$CellContext`ao$$, 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9, Appearance -> "Labeled"}, {{$CellContext`d$$, 1, "d"}, {1, 2, 3}}, {{$CellContext`DM$$, 1.*^-7, "\!\(\*SubscriptBox[\(D\), \(\[LeftAngleBracket]M\ \[RightAngleBracket]\)]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \ \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 1.*^-8, 1.*^-6, Appearance -> "Labeled"}, {{$CellContext`L$$, 0.0001, "L/cm"}, 0.00001, Rational[1, 1000], Appearance -> "Labeled"}, {{$CellContext`logCdl$$, -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, {{$CellContext`ROhm$$, 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 100, Appearance -> "Labeled"}, Delimiter, {{$CellContext`V$$, -0.05, "E/V"}, -0.18, 0.18, Appearance -> "Labeled"}, {{$CellContext`logwc$$, 4, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -1, 6, Appearance -> "Labeled"}, {{$CellContext`wc1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{$CellContext`wc2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {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->{895., {255.875, 261.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Cdl = 1/100000, $CellContext`ko = 1/1000, $CellContext`kr = 1/1000, $CellContext`mM = 0.001, $CellContext`taudM = 0.1, $CellContext`Rct = 2.571502533880031, $CellContext`Ko[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`ko Exp[($CellContext`ao $CellContext`f) $CellContext`V], \ $CellContext`f = 38.9, $CellContext`Kr[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`kr Exp[((-(1 - $CellContext`ao)) $CellContext`f) $CellContext`V], \ $CellContext`F = 96484.56, $CellContext`Mmax = 1/1000, $CellContext`RM = 24.818831765356343`, $CellContext`Rbf = 10.844446455665478`, $CellContext`MM = (3.162277660168379 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX1 = (78.4840372430637 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX1Et = (7.23725619043111 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`Zf = 2.571502533880031 + (78.4840372430637 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZfEt = 0.09221309765216912 ( 2.571502533880031 + (78.4840372430637 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]), $CellContext`Z = ( 2.571502533880031 + (78.4840372430637 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p])/( 1 + ($CellContext`p ( 2.571502533880031 + (78.4840372430637 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/100000), $CellContext`ZEt = ( 0.09221309765216912 ( 2.571502533880031 + (78.4840372430637 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/( 1 + ($CellContext`p ( 2.571502533880031 + (78.4840372430637 Coth[0.31622776601683794` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/100000), $CellContext`wcdM = 38.8, $CellContext`lw = {38887.77035312278, 38.8}, $CellContext`Vmin = -0.18, $CellContext`Vmax = 0.18, $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}, $CellContext`yM[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`Kr[$CellContext`ao, \ $CellContext`V]/($CellContext`Ko[$CellContext`ao, $CellContext`V] + \ $CellContext`Kr[$CellContext`ao, $CellContext`V]), $CellContext`lHue = { RGBColor[0, 0, 1], RGBColor[0.5, 0, 0.5], Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6], Hue[ 0.6142719099991583, 0.6, 0.6]}, $CellContext`logwmin = -1, $CellContext`logwmax = 6}; ($CellContext`Ko[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`ko Exp[($CellContext`ao $CellContext`f) $CellContext`V]; \ $CellContext`Kr[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`kr Exp[((-(1 - $CellContext`ao)) $CellContext`f) $CellContext`V]; \ $CellContext`yM[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`Kr[$CellContext`ao, \ $CellContext`V]/($CellContext`Ko[$CellContext`ao, $CellContext`V] + \ $CellContext`Kr[$CellContext`ao, $CellContext`V]); $CellContext`Vmin = -0.18; \ $CellContext`Vmax = 0.18; $CellContext`F = 96484.56; $CellContext`f = 38.9; $CellContext`Mmax = 10^(-3); $CellContext`logwmin = -1; $CellContext`logwmax = 6; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}; $CellContext`lHue = { Blue, Purple, Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6], Hue[0.6142719099991583, 0.6, 0.6]})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.4103309800392942`*^9, 3.410331031911626*^9, 3.410331205730419*^9, 3.410331311057296*^9, 3.410331354274549*^9, 3.4103313893457813`*^9, 3.410331626866753*^9, 3.41033176353211*^9, 3.410331806034396*^9, 3.4103318919010563`*^9, 3.4103319445870953`*^9, 3.410332051527831*^9, 3.41033214372337*^9, 3.4103322006638308`*^9, 3.410349871459302*^9, 3.410355482293298*^9, 3.410355537543943*^9, {3.410355578259568*^9, 3.4103555990268583`*^9}, 3.4103557591524487`*^9, 3.4107531137559423`*^9, 3.4107532597349663`*^9, 3.410753312095826*^9, 3.410753413622499*^9, 3.41075353153563*^9, 3.41075383779632*^9, 3.4107540596406927`*^9, 3.4107554480423603`*^9, 3.410788653960664*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{969, 691}, WindowMargins->{{-15, Automatic}, {Automatic, 0}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], "Graphics", ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/