(* 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[ 129842, 2588] NotebookOptionsPosition[ 111460, 2258] NotebookOutlinePosition[ 129134, 2562] CellTagsIndexPosition[ 129091, 2559] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[" "], "Input", CellChangeTimes->{3.416277705052497*^9}], Cell[CellGroupData[{ Cell["\<\ Redox reaction (E) on rotating disk electrode Steady-state and Impedance\ \>", "Section", CellChangeTimes->{{3.403415856707246*^9, 3.4034159010519753`*^9}, { 3.403842695580738*^9, 3.403842698565597*^9}, {3.406459875106577*^9, 3.406459906072886*^9}, 3.406689909722328*^9, {3.4066943349019527`*^9, 3.40669433984967*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell["Reaction", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", Cell[GraphicsData["CompressedBitmap", "\<\ eJydVktuE0EQ7cxgjL+RWIAQsuRNkAAnkRxxADbmvwIhb60IKV4gUMjKixzA R/ANfAPfwCfwCXwCn6Cp11NvXDN0Rg4jzfRMdXXXq1ef6S+Tm6sfPyc308tJ /9315PfV9PJPf/TrWkTpkXPuVu43fYd3L6/6uPVyyeR9h29heODn87kfj8d+ Op36zWbzIpv9GoaHfr1ewwy+/Gq18sPh0O92u5NM630Ymn6xWIQZaI5GI7/d bsMK7AlZr9fzy+UyCeq1oIrNsk0czDrd8UMYUtgIU6LmEpURi4zylaGHHqzA qnii6D8qehiazWaeF/wUzbOiFjSAUGAE5LAhaAtaNUjCDLRhTVa486KKAR1u MUeVTwYRGMcFe8Auy06tVj23wQsbQwbPB9ZmMw8K7MI9bIqLcDEny14VYn+i jCJuernvxSmsK011lXPEAbhxC6oELxoeruhGdmkrSzAKpHAIt1DuzpQeZc1r djOsqS6FCUxzufDiGhm4jlqEGFaRU6nKwImmgjuOIGvhGdzgCg1L+HpkUlKz 1j0xKamMSywyGfFnX5lfTCtaxbf4pdjbBju0wEhNZVwJ7DFWmwYJ16ZmLdHR C3imkcq9gB5QV3uR5jmFeLMomW8+JG5wp1WCJI7qVBpynzXMkMXcIRX7xEnz KpAEcs+MDUCF240DoANLuwiTTQqQ6iXo8JQyNjm5M9DyZEytjJ3Nh2Ipuo0o pvpkp8gyZE8FO/vz8ExDa2Iu1itcBD76UXIRW2AK9cIt2KzQx6oiQSpQUAw6 k9JSxk4sTOfRQXJURcd2dmBEdDoGegLNRv4Wg9lS/tgSeIEN6R42nfWv5J6q DM2FxJbRIUSJBgp6kIM9i87Ey5sKM3Wep26sDyIn2Ea13xRI199EXqXIFaSx DU4sD6AHMkH6HamOWDJuiBFTPUbw24gppjWZ2Qfin+JHsdoKqir+QQkm9B5X mLcyNU/CQZ4WTt5KEWtmWddAKps3Z55K8xHvO8Y8PCt3Y/39u4sg6x56cAoy wpL4xlDZNkDTGv57/LgvDFdV569EtwQCgFTwxyou/ceDnmJjxSk2ezCKHNVO i1p3HNUKWvGj2llRJXZUU5XPBlHkqDawWtVHtdfW5sFHtZfZqv8910cHd/QX WKNrBQ==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, TextAlignment->Center, ImageSize->{126, 53}, ImageMargins->{{430, 0}, {0, -2}}]}]], "Input", CellChangeTimes->{{3.406694604209671*^9, 3.406694624693883*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, { 3.406460288938157*^9, 3.4064602946306343`*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", Cell[GraphicsData["CompressedBitmap", "\<\ eJzdXUuvHUcRnpz3PefauS8nsX2dGEhECIlCLEVIwNqBBTsirkAIrAgpXiBQ yCpbdllm6SWPhSXYgZRF9lZ+gH9BNkDYWLA/THXXV/11T/XMHF/HMYzke87p 6amuqq5Hd1X1+Ie33n/3l7+69f7td25df+u9W7959/Y7v71+89fvtU3Tp5pm 8nbTND+43sj3bftV/6Trx/KHW77Ihn+Fj+n27t2723v37oVfX9M2+S3t8ut7 Tr9Tbfvwww+3Dx48CL9eDn8X/Gy45H7b7w195OOPP8adtnMXzImDwi8ixp8T iNu3b4dfL2nb2dmZYfcdpx9jfOfOnfDrlfB3xs/KNZEO39L+N27cMNTmDoxn nPF/HtH9iz4kaMht+Sfo3L9/v3lO77XfQxvfO1S0Pvvss60KiaABZgk2165d k9vNngNG/rVDtj0jGLknIKS9/X6oYAS6Ete8rl3lN0Zs748dEYhXRlzSjMoI 8uubDhYTYrmAiMBi2wcffFBMQ2eY57WrzAwEZ+YM/WzP0DzMhcHpm4bfgkL7 XPNanPU/q2Rj9hRcANMOh4mXkaEKeqs5ImzVMJiKCEWQ5T29wzBkGJ02EC2M wCOYdSECzHld2+QxiG59OB/luTMWYAgzoSav6h0aP1xyv+0HMDKleGTpgL5G c3fz5s2OiODZ5yrDKfwL/XO0IkHUS6Uhnxud8d+Hj4MwODRIkBPockFIRIUE GagTj9oiGmd/A00LtwSMylz4zuxvH1FWr8LQ8hyGABrCkxbWJDiapREEIoQ9 ArY1aMZGGQ5snCjpAlL6CjgxfvKpZsY+IYRKWaZ60pamalZyahJomYZuOh1N XYgXLofafhuVVmGWYKV2M/wuGNJEjqQpjr8iGmp7iAN7zBXjIDgi91oONROd kspkQcaZIQuVdPkND1Qwp/G4AxcxgpEwFsRIo6DtBz5DFUQUVg6mx+HvvCPk QjgUnoRefcGFjDIRD0yMtIOh0i7Pyr22TZm+MPGCS1JtXjgUEfoLxbRvij79 9FNPBUE4rcrUwu13wKnlMvmHTgnI9vuRPiyqA/zhKS5FifuDjgbTLU4bjgjQ 2k9t8x0Rpo/Y1PY0aTYq4nRsApsFc4wpnzAwpTuf6zOYcjBL+gi/4SPkuxoe mzrmhlzyfDs3EY2LmSuBBHB3uHb5FPCKHuSb15DTgosi8/OiTTBDP8Ea9g1t vDwYy9GJqq7HUV1GqO7tm11kgQcsh4tgogqFdVOJnertkolyu2UUTBYkDwPW p9hnHjlHE8shhh6O7McWBozHGLqKydrAVDHdKwdnWKBxapCr3NLBD+MyD6aK OXiIC3wW/rbf2XFhobDUGSNymaSFzphOYAcyukcDEVUASpvAe2Zr3YEJxYRm CSVtnwl7qCEuzmg8LBzVpv2RZFOow6UrjSt6WxYRWJtBaVps1gqYdCVbCEi7 GFBoAC3GwqV9psoVwi9cnkRjUbANpi4ND7rmCksIYvcJnrZt2VIHUw4PXVA6 kcFBJosIL6RLMks65Hfbr+92+xsUwpaKZ913KPSwBwf7qD4e0WfPgc2cBw4X HbxOlC8sSmrHDGesHBiuRwdx2nCEe+W9B9qWDqw9hVWym/kLOrqamNPrSd9z Tr9Cq6QrFBrC3ArWFZ1HYKvOOk52NAHShLUD1F8uEU+535qWUUrlkbEEBHsE izUx11AqXdwRS5ZGDy4YmXL/UCqVS+jCZhmEimQE2xYhEa0Pq1q6WZooHph6 Ef8WD4/UPu3qIx9SIyMKmbLZDgEabQO+sxGwdtVCxh9aKPDZdYkXmiuXNABj Y+s4QI0Ui28H6YDjZouPtq7yrTABNlQxA6C068EWmc+muWS5hswOqmJa1wtf VM4sRjDOf84hbIEg3Ws10TdszG+ASOxWsA6U/jKuWMNy0Y29scyXCXPc65aa i50981IeF/cTxHkiX7GlAtHYrAnCPFu7rqFZzbCfkku1FMtnLI15h8zL54If kwIqHsmWz/vMjozL4J4Gg0IfRBcmHKyCBU6U+By61HMPJmNoIXyxmIvxQlaO mqJ2cYPN2qQU4TYcB7a8Kk+LiEsLzIvsQlMH2Ald6XrK7qOFYNaVfMdl6pz3 ARZTO9V7sILYN0ksZqP3oJ0I8whTY0hpbXFlWAeIiVAElNvnvXgb9AFaybG1 loI1TamMAIjJXa5452WCD9vcfsIWcFgthiqWHYIRO6ttO2aKLeJdwFhQaJ+t 8QPfERbVYerxx6VhhHgLCJKl2jBT8mXlZByjwJSebi2ouBYFJcoczGIl4vZ0 D8LH+ijLpVwWxy22/3wpkfC65TYV0yDziIgSwi0gLOpQQoEvpWYzYko83V7Q cwijcd5Nnutxu38iomGxgEKL6RV9kjxD81VtIxdnyUU23TCotM+I27TICnsW ZlmjnuHXkTMu3E8luXB1JFrwMpzWYE/eh+pRtd/S+vGk6aTY3BOJ4dKY/4GD 5iWd13KXpnMadkUAK/fZ4yppXsQEEoolDRQhSW/asPESyFvktZS8oI+wRL5E ba60LW1xhwsxGxHWy/o4r1IhcmoBw1ryUjEX4vV5bnOvv8xig3JxmvLYGROU V7JKV0eihElAsmRL4tZFc8pomrj1keOJG0fZ+pLABw6+JzRmGQEQ0VUjka2N OSCldDLZ2PxjdwcxV+GYpNBsWrrjqpEDwaOhtchiljnDdoxYSaBLk7Wtl7Av AfOwntO1FLLZ8EEyv1zFUZoYrJNlNQPisYa2JZQunln01VafOMNh7evlJ05H ojKPHG5ZOqkiNWWkLNTc7be0fvAQ5Jxtdtn5YOwjB7PjAXxgX1H8ULhlomme JcCSL5ZR9jslMzIWHKz0FXywEKegBpHRvEXCBt1Ri/aYi33eJNB4ZOKA6Sn2 SSx81EVQMG6MCOpRhnjxotP2srYp7Rmx3PYzwuENwgHe/TVt4yn1SpledNpC KdPEdvvhm4737/AxM/cqgtSihcUWmiVce6Rdi8ojb5t35EOFSUHYStz/OSuO oIBca+MNs3SefVXb2Jt4HuankVX/0Vu8JLjstHmFOhie12vHzrNeyu081Tne msAbw3sW7KHYi7GH25Q9fw8f67GFLhzH0Ay5cm5dK+HYxoGsPzJj40s6lhZk gNH30uW8IcSeHu4LRjZte1OgN0NryhlYs/9PZm0L0EC2OmGc77jBjHrxRCz9 K6odTOKYIwjnlLUzIzh0MJ6ZHNxGscrEaVMZ/kehGkNFF2Qebf28W4nAuloi 8NFHH3FoLvLrZNdqgdBe1ltQvNPLZW8KLqSV9yrLOgNDop6TxGWS4/+o3gL7 pSJ+Dtne6NQOpexr6fU8E5bDHltscTCyHzQEIVQeg9t+EjXkn8qNSgr/ss6a l9jGSEOJbS9V60XtSbKRuYYUR0MX2zgDi9y6oAfb+iTm8HuyqgixlY+MIzOH NSaRfzSiz9qB7aUQCxmqJKwhQ0Ued6NP7ZDHhVUok9bQiVRO6Kc/u+nVebbt VStiu8ZKvhGxXJa2Jy+5rX3qmXyPHzPjR3/yu84KXyIfRfJ7DKyHktzz5XcH 0pqxgO1k17RmaIdw4HePn98GV7gNPh0Ot4hFI0KLucOUprn7X8750irAS4Fv lDcDico6b3JwfRngk557cGw7eWc/c3lVmVBJ5KESfId8HSaTc5fKcW8rFWlZ ZruHMjm0IgIAUvOcT2wSc9mXxGzByjxOedViM8h7K3CnL3U2zB0vYzzIsehb Lg51s88iaOrtp3r2WJ8rTyvJOkRUvGQdR09w2IcTbqx5X1KyzkNr5vRD2xCq h9V+K+7nZVDY+ZfxG27L5qU/rYWwoJfW4twQDvRAB9V882GsLyGzVcFq6nSt Y5ontw6r/VYZRT3TMzL6GE376MwPTp52Mj8h+AtOAEW12rw/fIwpn1Mfm5nT dWz+56Daby+jxDFnOo4XLA+PPAkJgnA91vPgj7EhlsDkDEYJBzM4dH6ZHrxI D8JNQN44bRI6fz0++DtnsFe0Da4gJuLOOoeLfkRI5ZYvT2f8zRkDdT68skDF ZoSxsvp1LCvkEuJ1q/VmToFAgqx8g7DQHXYWuodLflvb2LHipDSnG/7qjBG5 vTQXDwMMgyz+4ppSWW7AY9C5HVFpWBMe2B5MdZOgcTZ7loPNXCWW7sXSSQ5+ Y6lcCZBbUJwT8ZzXgvnh4q1reqIWuOEk7SStDJPHavIby1HYUOq04QQyKAq5 48gkPtYLH1Zic1wdFILF+yOGJhezMypEXKxAeLe2qMmRtAjqrORabD4wG83R UhEyJDiwf+dyN+zN7fjyPFt4Nxanj5yUdiXQ2mjjbMXogiEIYtnixAkW5nFx H+WQnXIKLNVmcZ5xQu57iZkIQ2R5z2DAWjiTp33nHblPIdXODGB/UCNb0cAW hinBVPMuvKUiKu3CFAnI6MZrXtHpWOwfH2VboggIUigRBAlY/1BOo7PXukGF t6SJTFtJd9CXliXcDQKJvZEJXTIY3uieDq7sWB3+gakq8UslE2oK1EBykpQ+ iV93cIcyMeva5ydaEyMCzHn9XemaWoBkS2v6mriOhTpnqAHlFNi/ULVkhaUy CUlKsp/1YQvHu2rAI6tdChE8dMwDb23VC6JxL5bxLLJ4q1xatsOldHkFUx+4 dQccu1nMplUr94GaMqhskwh0tFIIqcFuNeZex4OUAbpofLfB5sOeP9AT5hF6 YyVBtfyc9sF6AcYqrW/2slggeAxQyiDL32LI7r3NLujoWiHBo0DsiLH2R40F dtrWMaFY5nuxTAN3JT6E9yIwGpgZA3kp41Y5SSxeiBVhdYQAKE9oTuXK40D4 rmZwpRiWE6iyUxb9gv+c60OYP44qMzPFPITmqKOnVjkA06CmJYNd61POD6jt Eekxoqn3MjEeQMWiFN2D6LNME7eyjbXSYjPuaaWytdW9WiRLnsAY4oLFS1UQ XqB/FcSPUYZIZuK2yThQE4+cM4cZZ8rnWAyBdh3WvMc4rDO4vCiBkGkh8UK7 lzmJokAY4IfNwYqzCRkYVRQ+WPvwBHqJt1VVwrN56wP7WsfCiFJIG4K9NSNX s2Lg+ZC/wJjSj+erJldd67i0JR4uiDurCWlWtqmGPxyb65qNHjMd3kSYQNc7 u72ToX8oDv5hj9/j9SEwbCCq4r6X3SoVHosDJBVLAYo7rbh85kSuXFAPtVsY juULQxbqMkITZyWKXsp6QV2xlbW91bmgc2lB0RXvKCtZlW2tL2VkezMw1vx2 kd9U+2NXwhEtPjPqlO9gRV8OK5qMPRrVKzKb3TPi4D3DQ39OD+Yau+wT0maM ZOX1IP74/HKbXJe61U2qW1ySURoeGFf2x6SSsS07OsEDzxzIcbSnewmtzX3O gEMv7jdGxlxm1lW4O3Eofpe9vFd2Nqz6fffqdCFjioUehPbh6EqWIFnAJOjy K87fLuYuX9bIhQiD1ugDtnfuDsONMebsH3pMDHZywCLNTkrtIfBXvJOBXoJg GcIxYNjohO3vSfXhKT+sSYjePTDaMFZdiLyao46ZR3xRa4wYpB2lx5B46yUv U++k00WPyAP2YcRvmspPkT2yIViq7mkuqGlSZl5kom1DMUuve5x7Ji2LZtCG xSUApnKsmaM63uIdqQOucZ2B4bobSlrG7hZDjO8KhSfGM1yeD47EMKkwfW3q ykylFSFIqxUR9jB4yDkmLPI9O5eF9zlMOoXhOUy841DauHCZnKVlhR/oi6Tq LnOVla+Q5OUc2DyE19wbI069S5xdPWYR9HysHrMmy+f1mGnKVx0jAXkebSFz p8k7cnkG1fRmujZmuirmiTmQBWzICu7oPwl5fXRtNMqFgDdnaXUTeVIFMc9A ZDzJHGf3ySk/qafk1HGmU4Fql2JoapUlfRxK627zgrX11YVC8TWsoN5qZRYS /bn6jSIeZ+lcRiEdJ9kcQXCBAkzZEGryW3hmu/okEfpi5cjZI9eM7DqamfDk SulMS+imO2p2pYRjH3tKV8oVZbDSSOyMcaXMWghj6UotuqkBZM5/6R7JOw3A caKb4XXKLuvjJvPZ6nu3GGStD++1ER1lbrFPIzntY7QSaozGZrAHjU7MeEva Lr+hDvrZs0WcZb6zvUIDv8i6DAojMgcjj1PrRVC4lCVv/vtIJ646Mpb7zDK4 7Kh5R7kcwQmf6lcaRITLjQfnTAj+edwno4HMMqPeJXFvDIlZrbUnuNmMPT+a ayz3AF0zVRV7xOTDaLAJY1AlhxxhMgcKtLmAsSTlfvhvLM4674HfLeLrjZUW fZ988oklaRFCwwnGXV/B2x0nP8aa+eUDXu/ZDAn7sMxFwpzPa5E9jrUfy3KB A86pfT0L1aSYXOkDobDX1y1MmwFK97ZcxqIbzLSA2+9stQAcbJTH4IvsqNK6 VtwfHkfJBMXaQVYsJ2ia8lREyR3EVmzEgeMEG5Nyhggm8lrdqsD1eF6BMLTJ cvwQ/XhUSsaKa2MkQsAn2Cur5zlG2Us55R0Wl4VKaOdEfZTOjSk6b08x2TzO XXo1P1cg00R4RSjIYJZv44PyJ/O6cfvwIQuuzmPOOSIMrkemz7M9PSaE30SD q0Ahi2vny91unPhGPJt53m2vUPiA3rIkMMpTskw1F9ckOVuxnHkCAr2rzX+h SJHfs/JtibzBJlvQkSBSP1sB8hsUQbwWuzQInqAyHEFB3mIUWqCla6uqhgis dsypLqgeASXIV3pCmk/HeghWuBdSZ0EhRNtmGbybeLVC2qI5lih5gEUmJNnJ rAiFCqs8+UB8lRxAFo5V8bbS7qF+V0f2y7yhF/2YsphaIkerIbJ+5PrsKAIs M/fjIwfei42vOPBOnHGfd9rK/wmB4fEY3hFY7/8z2nfGOHT6gX9cU14zXMrP 3RJceVEKB7G4FIgPYEECunG8nD3eS//6Atjfd1hySm3527/Su24Yp6F+V0b2 i0ez7PUAtbWc1PZwfK88ecSk4yAGDIcYHgwtwwKdsZLrVRhcVAiES7i0D7jE qCIiwe5MLg2uPaO3yy2T3uYkxRhx55H7xJ2Pv3niTotprq1ibQCIxOdFJuoE BtPFx0xO+wkHUiXblNNfCbdzOceGFnrH2zGENqWv9AG/KMTZfLt/ci/TI+Uh O4TSt9v8FXN9/a6O7KeGvn7oZMqRfaOMPJqqxtK4gH+0YWnKgv4tqQD5YlMV hg/rxCW4R04bjiqRL++8L1bGmDj95s64F5xnrzttod9EF7NUON6gcLtMZwlD uPqfq5BS9X/+eo2zeGbL5n8sQcygF1QEy+WI9oFk45ArIl84HC7mct8Z6rvO UHjZJq1+4r4F+y8OGVzZpfPlXTqrIwg/HvooXbi+yJN+zVP/Be75NEA=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{597, 73}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.406694656799842*^9, 3.406694661117301*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Steady-state", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.4060057621201487`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzlXUuPXUcRPtz3nVfssWOTxA4hEEIiSIjFU7AIEBxACgiyYGABingIS7yU sDIggcQqCxYgJAg7kEDmF1iCsCT8gWxgaUEACSRLLGB1OdVdX5+vuuu87oyB hCPZM9O3T3W9urq6qrrvE099/Yuf//JTX7/y2afuefzpp772xSuffeaey199 um6avqqqJo9VVfW9eyr5fVP/qv81z2X5j1s6G74Qfp9unn322c3NmzfDXw9p 2wsvvLC5du1a+GuibdevXweY6ucE5/ME57nnngt/vSX8v9gcHR0FWHguXbok Y/2CXv8cDSkfy1+74f/55sUXX9xcuXIlgJF/NQrVXdpfhhLy68/rv+JwN27c wBABtvSpyeDhPqWv61Dhr6W2Xb16NVGwqyClHygXsDJkPczSAXNa26SLEq2Y zQP2ytCA5eXLlytG6yPaT1BQyYZ/9TsJPRK2tp3dXLx4MTFYUBd8pF8NP4wj j3BQ2qQvcFBuJrLks/qnN9Q8/L8zFPyEQMgINXZJPgJCuuNRMDMdR15h0dXM SNonXeXVWiWqHxHjPkrqo1hXK4eKhbYJ1jpOgg25inpNMniC/kTx89Sxa6xh cGdJlYXGGi64RTMiPCK7uiu4JR9BnMLomv8VM19el8lxHG5xP6Al44qa4hFO 1JifcsAsu1/ZIULZkgnf6o8DoZOgBavUrvMv/C2yELD1331EzrRNRoblDAqn bcA4FxMTLkOJkosaQI1qAewNBN0DZscZeaJcFDDSHY+8JiKv+ZqUk9VBfspn Pz6G6IFag/o8wJU2IUGUVVTutANj2dF/l/CAvY80HASaZBnBI+8J3WRRg9AF FinENmTC0pEBTaykeRv+1ezvJNPrDzLJ5Ckbd82kFjbrdIDNC78LnGj/6reZ wEfC79Zo1ATcOZJuXut4ZoP9sHU1bbc5YFbdr6z1FUEOfsSURgbHf0aEXaJh 8Pkd8v8k6HI7GXmb4AHNmuonYCseEZkiUutdCWs14D2MR15HsjNCgMIzRD6k fMNyhuVOiYZzI81qO6ozkQe1sKJ+7mDqh5fYNGC6yWc1sHPjus91bPLZKrSx m/PTgpxlkhl8QChm/ftg03uv9uvzR3ltQr8Sp0Vgr5CO1YKNyCH1fzOJUcaQ NRMrM7w/gVV/HozAlwTS9x0AgrhOvwRAeI3pXSOLOdDHi02UeTmGEKwWsHrA YdjHqJ/Oy+qHBOeI3sH0fzIpGPd8mEQP1t9HrMcM21NKpQ8co/p3IAzvUGzZ 7QRSlbD6gTMkVkYe0vPNyZdj3+BNhCVMIYaGic2Hfjz8Pi+cXPG/43Cntva1 Fc1JMBAHxoORR0AKCJqKqV3ACMj690jBbaNGBgeEOWKxZso4kb46m2nhqfuw CyJgciZ9kJQLfi3WuW386qmqjq6Z8Kmj0VkFFFTkiUJFSyg8N3AUTEWBLq/r SJiK4MVm03h/4HFNVAWmkNjM7P+Qag77uIKSbFRWGTqbbLF1fOJ9/Rj7DDxq Ve/ofpuRtat7nEFYptbUD7beIwrvgCjxbLqIavFtQRSWBjzC+xo8dEjEIKPJ cj/TRZ8W36S+PR60RzyUpB5xMPFYHzFTBCEQP9Q7PlDE4cVKe/35JHBynpZ/ PDLE2Q5w4BTsQsOVKU+PpMi8boMV3Yq8MN6sPLrDCuZrQeMP8Zqj67gX+rNj rxuU8A4WDjK5hx0gwQIBB3IjC1ZGvxywbB08+/bh8PuymMryyDvizYADI/zn qP27xZQGdbDWiP3IUnm2GyRUWEBIl8bPWgasYCZzsGz0vGXww0RdbhQFTbgU 8AvHutp7qg+5IQArhMsiaHwuP+u/zwwADZbAG5eVe6p6IVwHFx3wPFs8v+RD xAHhbPLXdDaBk0E3tvHU10of/KrM6gTxshnXpzocNww2bXAOsebKUPXfUYFm Zl3ZOJ7hJ0mJhvqd4dHo85GOI1jm+6C/2C5CmG5wE1raBcEjzAp1p0E/5iSW d1hHtX4TFSIMpKz0sW1ttufw38FFVXjtu0qLID5nrtdsW6gCiqJBoEAW3YO6 iHGPPjRWluAx1n3iSDGULiwgR6khZJ64Q4MnlSE3MUrjpchCTBnodeNB7aeN BlQJC5gyy+ymsOmJ451y43nszNHu1oOD6YhFJi6V0ha9X8ctSr9z9F/6Car5 ngxD6k4FzbCZHViwY6tLWhz6z5EUeAdgVmOW5whqGoZh6WxnZhkcVYrnHa/m UWBBI/ZfF041g9fPFOWDYmiCF0iEMKDJGed4eA51yzC6H2ZtBPOwXomfOqfX ihG24ttEfVj1qPp0kH3EoSyM9kGGibomrDJgd4wKYtPGs60DCw5NaH4rYZNx EtA3GwTHLrTKlAmhlb5okwmVb4R5LrOk6n7tfLwrzVc8YtGAGpYneYQpmp/i jV0akj+XByFV1oqc8XhgLvEu6+WfLDdLvbwdvnGSoTxYiHl3ApXP+6MNZEpY J6rOOvl2um1JKzXcxWYZsk4BDA4kg38NG/YMPMTIWA/VIwCLorOzaCM3YhEd BzA0DBZ9MFrsonD/aBlbWku7ubxb2+AIbMIsLPudc/qF8f4Wx2tf7qbJFxFC XqNtMHNt40XvK7oYEIo89N7m73Ho6KwsC2dF44pBlg/qEMTgGPtVkuBWBbjR 6xqa6n+FNEQPxlYihP8/Yz8nJ8D9HGZzQ4KVvxVu9XptE30GnK84/R5w+n3P DqW5/vAX4hOUAa9ep21YTuWvrzr93uj006F+HX4Mz54fEtbYzUx0N0PueJqK 7D1i8cHaJTBqvZwQSMyORdZV/tVgzyjXyU5saA+VtF9cK2xIMGFNhcHSq5UI IJLV0T789BF9NhtSRQvTgrnb5AimaVchbXe0MmKsfNZp64F/MCnMIURQsQ/X 9lwekdq4VGDyyFDRri9NbvkYXLqo9MIph4WTp/4JDMh3qh62Ojy0poFzVSCw Pec+TdrW6HCTxIiMaPphesV+KyM3ivoE/Or+S+UFuimKQzGcqzLnjglCG7Ix hUurHAmf0R7Mq1nA5GW/C219zDijiGFdhj8lURbkUWAUWIlBljgxmAjKJDMR hgp5aOIwsmeNNZ3hFqyM45wp3Fh40+iPBRf5InzmjHEifL2gNKiVNAEPJMwR gI8VAHHODCyPgR9BcTaj86pVZoNr439zA1rJ0iWtUX6FDy1h7VtGdGsCJqoN bB4AtKrS3PZUtw9/js5CPXYIf7BRXURT7IJ5D5qkn1ZhNCG9WdIG+ajusudA OBwhmdPKHN788CvipM6VYXnUVDNaWA/ha4h+yevAsnH8bbIsz42cFFNRT1Ey NS772K9hHmEsaZe1e+68H12t6lf00ZACKM44w38GiZSTUBjrotBKBMXhd2El SOeSTt3v6cLoKL6qO4eu1OsZar25FKOLFPSjcEKKlcrwsGS0a14QaCvgBq3G eE6TrrKw+V2UAg6VEjxS0m+zIEAJkP+juEZ4NAaFZRLOEASpYKcORLTdAqZ6 jOG0jW7/03BIT/OM43fjDkBnwM7Q0rgFQe9aQzmJCMM/pTabWFwXlXo0/xHj SxMFdomqEQav7d5ioCtJjDlgsVQDMnY29dGLfqKqSPNA8HksWhWBzSVcH976 2XyZzeXuO++eGifxoY4n1zqMmXS67mEzxtEmGHEF2TnjbgHjuY4v396DSl73 YMbytC7eNTNu1VepGQo1byeswdRphkLTtjLhT8hQppWixcU1Girs8q2iORG8 sJfE2EOnQ4n3rvE6uFYJrqo8qCuBlef4IjaNk4yYxu3fSRVAyAwJfArjYS+M 7W5Wa8YUoWoyr7RLbKq5PnAUmkGC7M4IPRi3os1Z5kjupf0nR+PhqsEJ7Zlk pThnRpzBGY8GgisGjifNaZLmFjxnyaYsrpXiTHWGdXC8NGO1afV7IiP3gcsJ a4uXuTAC5GI7QHmEDqewMZvyqKBHT9oS93KroLCwVSYzlwomuE5WTOKuMyR7 cegPvzjWN9r6Iq6syK09qr02ZKbLsdZmLHkgb6w0Yue4MNWbb3YfuU79eAuC OaaabtLFWoOZzzeARVspiUMjCQf10D5AHGecYWEhHGmk3Wvyi5toYBNSajDm OM62QnhtRPcPCobSpCZElPvZFOpIPIefLUPWQ+3S6xr80k3DLJUoKtYr1VC4 KAJdS8Ui9InW8fHsgAwIDp8PsVQsTDmRPJlmIHDLRFLMp31ihUqbaBqS2vAB ARYcnBdhPGYlgl5QKyF0rvadE1RGRcOgHApA2fP9CjUPeQnUyJ3DVF0DvyUz ZYYS2GUHHpcVWmYvC2Yzipy96+I43G/INzqnQxgTHUMjDY195SxrzqE2zi0v lL60PcZnS5MN4sdgPFUoViiXzn1JrMKZLwknu6kynKatRQS02XB1lvr5jChY PXNen1NbF9btB+2WhbFBOkLkgQXWW5VgOqGBPDaJOS2S+XlOtTrtC9/aDAEm czhetO0Nio6TwEncxbpvUlqz5AdqlGTSAamd0euiOtzDEvOri9me5zKE2RRC q1AdzSVw+dGgbTmtK85LpEtwuj7epl88reG2o1OL8KGX8AIwWfXYRLCI51rf W6X35IH1o5Dwx5VDzke8LrSi7LkGHsoIvSG/crA9ysr48PF7iNPYCaAWGcNC SSB8cXM5zg47VVODVxF6lwcZHF0LUv5xwKt8AEuM65P6atY+HYDwYdeosxxh z/CMIDnH+17i+GPKcY5GQv84ZHiP0/Zp5927nX6vdtruIxyiMh6vAWdqt7mB 4lvaBoXmd7kIeeq8+xjhgFj1iNsrvkUgEbgLr5gVnYtQeECcpkVmUP5qOUN3 lzbD+1CXAm5oy20X3yQuyNQVMxIHsDcYIEaEM6d8Uo9PNHA+RIf4ANHjHRHt ulCj5dDeSVyo8YwDA66lnuwkds/T6U554NmuHBjQkdJXWaQIEB7FRTn0Tx3J KVXpuNbjhI4a2q34whnuf+9qj09of6c8qOO2grPhfa7JHcM0LKlQg1q1vKG4 BH3bA5jeCSRmA4QFLR/KtrdHdfsXgYeinvRlKC2HNo9/D8o82TlkSRo39cQu Q/lk1tbHITIRx7ouBoI6ietikClU7mMG0mQ/Doe2VCXPNrYcUv3v3hQzVgPK xedWEMYBki0J6xDc/+ftN7jqiyU4lhOe9P8znCj3xNtz4h3tqvEKuQLIk3Wf Xc9dypMkjT2vY5KmwvudQuYND3xv3vC8YaCQX1YXIKH8vY/4+0eqAbmNSQ1O gnjvJo3ZtsSrAkBZedupif/61bFiH3F+/Rbe//RIJ01jpcmJWJStnBxNGJnP znMEHBi+N4rrt/oRb8PBFj5o/rpI7qWX9RVXFwk+gh7whgYxoEzkrQlkLmhE 6QQkgme3knxG1yM/EznHGrgACd1xvohzKf9rt3xd0DY+cASJ9tHHdzaBbaiI kTFB862ldJY46sWWHo0ii8Vd+yYimx9VR9YCbbpopJ0wZ2dq48B5bdj+d2vb NnebIT7H5354XurQbvIFbiyvc5PxaPcFWZcO2srg58OP8vITCEuLvkObbrbT SsyZYqSMuPzCRkv6Pe/vEuo4ELJUAthtlqe8RsQLBpw8jr9kti2LOh7yF1No JN87amkAF3jmd7nwivoTbUNFQQwdbtLstyGJYw933RKYO8DwXzj2k4+YjvI3 I9o9ox0xOG/flqYd5w04Cny7WESRDleVBVVO9Z0Z7zvSFJ2y6jcKQy8HSBWa qk8YgvYkY8gcq2Hv0n7epGZbxGdu0O8O6gc1BAOpLQyk5Ixg4FhKPKvKFyXC PHmUvI1Fs1OYJ5wPy2x+DzFeePdxbSuyRdkiDCR5kQK7+SgCnHVsO46PIa43 4hRYOJcZFk/POXgrM8/TzKaiVR71y00sN8ftCOfCrIONkkF2IrFp8JxSdsRZ WXGygvMRXPy3JXofpCHgjwM9dhq9vU/GRM+yc0kV+bxda8/EGf0BaoMIoy9X 5Ba9dJmXCj6vbZSGq9iDwLt3EjxbEbVEdCrxmb36sSQ+SG2WxLnJVCAO713j dt6BgTZ2bz06VZjP65DsTgq4qF6So5ybAJ56w20+WVP9ESsedob6qThHwvvJ YyT7oLKRawdFtg2lH+R9p3Ycb6l/97DiWGOXJ8v7jPzmQxYYn1YdkjnD1pA4 r+MvTDaFpNUrrHNKWcs1q16aIJJyeptkbyITkeDI0n2TRB6oN5UnIqQwRtwa 60lmbE5Tnaehcc/I9FXfRqNLB4elPm3+20sUoogqvygqu8C2HZXu7QgzHIsO GC7cyLcoQzN/sPN9nL6dxso9feiv2HAvxsbwuliNFRDrPut4Ld386EOzZzmW AmxzF/CU3rUKMJzzqup/UeF3bfq4aA/o9+QYuQJTXuP0une+Eh5myxXEXWLt 20N61yhBdbECJOYPzHu+k/DJD0Ahpngz3LzdJvhWzsFb9DwIkFzmSscLkHPN XSR4x2T4JAfYNx3Bvkz3uvbjUP9jZjh5BuY6l3MuuyG6HHlhVFQeBcEnfLEs eVdX43IFvvmN8qpdaVXspD2xgeNNpevQpHMr3w4c7KFxJyE274CiR46nhYjC MxczTnZmqGOqp/qrcsCLlDzXnPAtjV/X7dtetrflRu4pI2/OGqAtn/ZNBMS2 saphkY7v7qOKMgAcmAROusanxb2bv9uXN59FsOac60dEpyVe1WXB+tDj9B1W UFw3ymwZwRqjOks3koMtGAdyrf4MT+2Ceg6pQ/spThMe7HC5vo7H7kpmljGf Zhbmu2C8yydXIYWodLvpoC540pt2hsaVF637schhhPlMxZaIixH4CENLaG40 U0ta5sWScymcmtuk2WtvJNgzjBzAzMBLo6Me+5qbpHFjFqy1ptA9Ne1JWMN8 eWnxnKkqlHhl5ywfvK/wz0bXll10JB3l0gC+pQRW4X3ahqhQc15olU5PyeOM 0V730MorzhDna18prWUKb3oU9tV4WmqaC/u7uMVBR49bj1gFK4OJSz6cHHBC TTqXVo9NkMMvKxPyu8W8wrz3xveS/dD4IaFDhsUOMYwvw4J435/1a9hdHjod hms3r7Ayl7Ub/cFfGr+LVSUp9rAygeEIDYKoHPwFl1Sx4vagK7C5NDtdCF9+ ysYvFlANzt1ziMNWC+wnjwrTRD7XKdU6PI7IlVG+ZdoTee/xuXWsS2A2HRXT Az6t36zAB7SPyZlg1KlOpEsk8YSrM2hkx14bum3saCKcK4cHqin/cPQTxWkc Wdp1+l1QNvJWXB5NS0Ir+CzXEw4YVAtyXnDH6dc2nLLFGy5m7k7uCNzLogF1 eAiPiXlpOl3gTrPk+tDqFJ9Yx5Kclqt65wVP5XSB1yJ8hAPSdJHbRDctvH+E EQB6ECcqERC10QlijhOaNXXCG0HKDlZx1MOECH+pCDbr6A8bi2UOJgfTk06M gvSU1qvMd340pimHGV1fwak5X3qJroMv2qJft9vJqot6j7EanwpfcYI+HtFB InHMch+yLMBS2D/hD7Pd4L+XfGEwx0ORYA35+hRpz3UqfXxgTECXdNnvu9F8 jQzxsSDsBr5ahvCJX0mEI81HR0dmAHgQX7AzBq/g0YUwqvOhOaaNzan6P6E7 JiQrEhYXlLdRmtvb4qHtZrqj8C7OAIcHLkuODmfV2RXEWqdw4ZAXWaqj9C0w XV96cqqYewy3jSWRz+G9qZLFYNo4psHJBE6Goy8BZfRcsoE6bvBog2ckcz5t NHPUeKguUB4HLBft92TkkqRxY/fTg4WLLSf3V+pSeJDJs2j1fnXPNbp2xkye KZuMdMVEm4xhanjLCTcJNUTAPlnB2C2vHYEmK1Gx26uTIZN/UExU2sKf9bCS Z4D4J1qG6MW02ufOulWbmCFexii+v2veb2OY+pPK2L2CYz3k8fB2o35bkW/l MEEbaRYdewVRhNv+PUhtEjKm5NSg+ZopfPjdqJa9Ks4Krrk93tGjCCvGAnU2 7CQU8MDBgFkw0/sgBYKxWMnHsChYJVH/UWBeTgqsw1p8gC9J4/oEup7CIrNO kxw0tit0k07iDU4Nvn8d6Z4nbfwgbCucdcrnhMcvDUqlk2L4Rhlm3ACy+SYo jl4AnBHL7qDpYTGbGVDB9zhq/5ory0PLl33z2UD6KmSynVlSjZkmjqaZabJW WAjVwFRfS3eOHRb4t31jFQsDqy/9DtSQOcdDr1VUh7ky1RCU881nCUei6Co0 hy2LFFFnO5aKLPZc3WCpQvON8O9vZQhek1GkTzZxcuoN065nN9xhD8MKMYRy MLMNnvG47k7uMaMOcNC1NlBjv8mMWMFTBckwBIL7KPSmivW0Thuy2tBpUzed rhGw8bVWudPDddciyXjz3irtGvIvI1OypmpbsvtnYvPaWKiK9on4OyYyNimY AFuNXVSGCJzbHJGa5thtlvDVm/G8jDFMK5DgDD6MDQfZ4o2OAn6/kx2Ah1Sq GqaK958aaNC45inDNw60sE/OxcUZ9d5dAPiymhyc3ddL6HHF+/rQj8lKrvth K6icC11cTKLcN+CwB8KhxBbxVpCvFsRgGMSbEUZiN64Lmxh8j7qbx06KydLw 9yZduMwpBPld1s3DrP9m01yQpH10+sU2bMPkr3NOm1eFc84Z40FnjH0HXkD2 25E2rJ+UXMDG2cQSkHg47Yx72unn5T74+8CRT/TSWbhjCwud7mjxOm0dzXG2 nA2MTkwalvFjQmXzTcsR9ijUG0z1lKRU1ZuI60DrvFLAecKaCmYAihfzGxwE 5KMOyIDiNyKKDf63MpZcverfLzhRQA==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{580, 142}, ImageMargins->{{0, 0}, {0, -1}}]], "Input", CellChangeTimes->{{3.406694692791266*^9, 3.4066947175029488`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzdXU2MZcdVvtP9frpf/8xvZsa/M57EwR47xB4nIRBIiCPGNihODFE8IIFk RRjPAhElkZxY4IyE2HhD1g0kiAVgBCTZWbBn2IMR4lfggAAJkFewAB73VJ2v 7ldVp+rWe90zHrhS93uv7q2q81enTp1zqu4nX/jSSz/9sy986frnXrj41Bde +PxL1z/3xYtXf+4LfdHmsa7beL7rju1e7OT7suvwb7h+XP5xyf+Tgm+475vL 1157bfn222+7XxMtk99SLr++SXW+TnUODg7cr5n835Cf/OQvuu/by9dff315 7do193ffffe5T7lQ3rfU7bpn58vr168L8V25QrS8efPm8sqVK31Lvuf++/LN N990v36P+rtO9/Xqzrr/O8u33nrLtYs25bu0K79R/sYbb8hz/dO+HbmvctBt aNkrr7wSsN7SMvkt5Sk8P+m+T909FSr31+PdY+rrkpx5KvbPC+5SR/6EHj2u ypWpo9nVq1cDPfu+FbatIo5Cq/77NEGrZ0VftW+k71jYImXSBEje/97UXuW2 FOGSShsCX19VIQz35Ln++d8nQvyUQVAQzyKAMFCYIZcySEHZDAToyxXxqete GeCuvq5iNg9EkEtEVuoKOsJotCkMRJlvc8HiHQmltEWE3mgAmQjb/e4aZPGy MnFoCigCav+H5uUnRBJl8mhaRpQI3QjVBPSBmpMwPBUsSD5DuVmHiHsaQxjq RnqF5p0q+QAJd6mS67rt2+EugTCaFFFB9Q16DqB5fbLruhGxwIV6YDOwVLAn 45C0Il/m9jQaycKivl7AAt1yG4K9Qhs0GDTFQMBBgwjrFcOgXWp9lqT4B/T+ 2BxybkX8QXVowUFEfV9CAylDX/I86L6nbQAX+RR8RGNB85JOCxrU6NPVN3Ta 9xMo+TTYiuw+EUoAlKkQCIk6AZP3tH0GSpihY3+mVazZSQC0ZqePEIg6Y4Y6 PMOe8UjJBGwxapM1b3dcywQ24IOBAUUx4DN3wqgC4i6dqpwGx3wlZTUALaTG pul3Ed0xQO5VmOQ5nmLBB5kd9gi/eA7d5DnUw+4kYR6+sWn0WCIfpXYOMQE/ T/xvte0eJ1LFE+I8mhDlokmwW3UWRNmY0nf/jxGAV4i/8bw15Yqga9DVDRPV Sfn/3PLGjRus3Z6gxpM5ojozNkwOrp3j1NcH9KFcaw8CN5S1a+tWar9Pn5NB CSDZaNR5sfvjjCG2poW0raFpoV1ZB0LfwAqTXzczUIo6ElQY05Ef1DuYT9XY DNjpuEBVaDqRxByauoYDs8Y03IcUM7Zl5ZK2e2wXRBjw6I8yUMaVlgMnUVrf TfwfrWuAKMzom+Exmi5t2AoHrxn8VgPj/dROzZpnxgJUVVwteoznSwbzZZKv mmpSCpkWKUzwgrpiRcNdf5m6sZXUzIFEFEa3I/qq1ONX9H6uqmYOeBiYoG1o sq616rSt23MqaUTHug1ZEreXFY0RUwvOC/kFx4RgbQ1A32SbtQPURHrHdMzL dH/UGlHyAuYxbfpLhGfrZOCuO8CtdcsLPuk+Jo4p8OrAdeIuz7nuWfdhTPv8 ECQKXPR2i1c5ushx1veGKzvpnhPJwXROM0XQfakLTbiFJbK3K6WteVjqcnvy KXrZD5TdcE/+oJSAsAEHTC7QRoV5w/sS+l8ej1nQLXjIU0MF+JwbTGxv1lCG GoKjBs3B4QMdoGO4S4HZCsgAaiaem79kbMUuBff/rz3UnpUD3XFJEzzPQBBg SABBrEMEYB3pAWloDJhRiX9G+XQmtIm+ZAKD/ECB4R5krQKLH+zTaEaPu6zd 24diC01iAiqhLr/7T0gdZmlqOjyObqG7kl7hopNeWMBhBDCBpQmM3L9hXm4y L8k08kow9KNgBoMk90PNomcJHZ6IMMfCAEAzeo9naep1+1As2sqMNWgPbR7w M7cy+LeigWr0xigR7Lw4AMFctb9jLuxGIwq2jTAPwz9p1muPSXDzqhMC1BAR gEjEhtgskjJQI6H9OEsw/aL/QQ6Ojk3wfhVQ1lsYSIwWDBAda2V2LcItzBwY MKCgEhf4yiNYrrjnWDFOBoafzEYo+gdMUFtgMJuSMcsWATepI4BJHW5TV5Mb znLadbcSs74GypREMKFSpNB5XLvelkEVsZIDy0qIq2ry1e91gIJvgj+EH0Zj EqqJIJJnWOcyHYVOGFCgF5gbacA9c+yhaWJHKO+fUWnciiyPdFIlI4C80A4S naU3pD1nnKoBggsWPc/2CQgQSUCwDHr1ZIBEHuVupSnBENKNlRR0Ber1z3Xe FphmxsmA/SabDt7GVnmALAAF6QMSWYAHsp6aaDwg06b+lvm4iPgIYvHEp0SE c5MMFu8VSyzYh7SMF4eunf/gbmemMRTGR9zkrpYJTaFGrK7h6iA93t0zAk7Z vp4GqSa56C7q81zGARX4G+5O2hWpcI39p+834H2nrV4aC0BraEj59TWj7A2j DgeovmaUcR1vxUyCwtMFwy/bxVZNqDaBqv/0QEytvIPuRr0Kr3VQ5ZVKc5cJ Gog95BCjSx2IuF2I0n+1XhumHnumMBt+pd6ywvgP2gI/oSGRYIpirSQizyEs RTs8R44MNYQWYULFVYAGy0N4AtXh9JkVoTu/EnSbDJ0ZrQAtC+A9rlXkcQFD HtdFZ9+caP5NNtG6K6sRJWGRAIaZR82hzF0oMxFYBBtNEADCtMgpRpGGPIlY y8K2BYEUi8+sCN75lcDbzsDjuT7lTwKaD9P4bA9ao4f1t8zDH1iRCg8TU3ys bSu0ySMUzoX+NzAmX1AklWlKhlTDNMYrSICAMvmt5r3nQiM8d90GeJ7QMlhk 3AfMXiHxE419KNm/Q6ALo70HLBdAtS+7CyoBvLhnG1ToNTW6YxDU8Ol+bMW+ Lx5h3yAT1uLMHiz85Ndj2kLSj9WNUvQPqZVaHMVTcuEYhcUGxgvsUpK7C14e B9cIplW5RDOiD05QmWrv0I0aCHj41oB4sRVETL4VEK8kj3IeGS3FAn+Srixi qPb/A0I+zyjxKHtHJcx9ZDTA9O+/bwj+F1RWsQQEKTyqnfNeUBwiJJgh2qqh j4eODKCLRwMQxgZp+UjV6Iq7e4zKdLZWj3fczaOe8N/W3uAtViOfhaIWnX0q kOQBvSskgPj6DJ+dkASK+BuiZGnwu5To+nToBTpBKKDmi65PZtGUiWmzr3JW q5AvJQgt/CdMTEZgT6nDTffU8aGN7lvaMRwYuNSpUQu6cz7OU8QxwfrGjRvd afmPNSknNPqciUU06jH7aA6vK9NOt43+ni71hwUM2OR7Wi5TexE+OphgcNwz FeEmY2ozHshSo7h9yEH2EabuN0kGscZEZmuas4uF0hD3HtamQ7bBlpVLxKYu KzNAD3LB4pJf9yddSKrXrAiulS0Qez3VV1U0VhtSnn7YABPeAYy/JZRYw6IA TMbwIV+WR8ub/vMIFrlymiyYJiEHk3HU75/2jP8tEto4mWFqJTNEsQbcy9KU M7OZDZBVs4V+goio5mYIKudQb2f5Y7SEgr83E9tbmVuGpAVpE5PJXGGtrUQw oUwb+4Ebi+k0036QswB7GgEt5Bx5mvjxo/6PlXD8qCf0b9MYKKWmQHsM92aR j5zGg7UKsCz5Lxa73bIyYtx3nYMPmXT+eeo5XWtwkw8b0MCeAd97iH7UQ/k6 kayUZkMTnbt00injE1v/FhmdAD0QCP8++XZyFJRpRlZ2kVh0hXKqpCy6bi/F oCy0emEhwj2dlv+7Q6VpEH5c7EpgQXb5uuek5ns8L35HH+IEJPgGkBGgFmk5 hTIz7g+jT76PEEbdywaULCmsA9UQTFXgAMLRJ3x+xAD5klImWbeAnZzE3bp1 A45yBD4YRJ6Ctxrbi7SanRSGeEKeepotKnhIALNnqDogfqjS3U6xu9FM1x8x urpExKmtXzhhF+sEK5XuOSZYMbMNSIwlyD5NdOwGx/xD9dYXja0/Y7f+bUah nkmHnsayaiHESaIvVhzQIsLfc/roCoGGuxog3W6E9H7tnvvpv2PzCBKH5NfZ OqRWfOM3mLTjyYSuqSRLGCEzniv2kjKh41mVkfVCJHc1QrhtQHjBaJocp9AX AKwB2FpERkna6nFzW2x6wiI5CdLIHl1aOrDKl54Hv/pusMkwdJJMCN7HJp+I oGEy0pkgzY+bRNmN/UMbQ6rWrYgGvXslwu21Eo4h6XxSyF7EWlBqhIJ9XU9z wjD4rAS2Th1UR0DKQ4euLmsxImWaAwI/JqWwaobpIrQs6EJ3pemXlC1PgXVg DjPtLxIceNcDe0vRFHSxwI4saI/XTpaGRqbI8sUXXwzMFyfCXFkCbUumR1jV lxPwb1tE7clG8qC6VIX67r9PGyije0RcUyXK2Bmlh6HMoYJ5l5W4rC/UbOh8 IPZEyFyCV4HXXbyo4OREcoZZixsV2b90HzPYdgEBXWrt6m3ggisk4/mGOYcG JKelUJoLapKcFy56HXn07hN1bHnfaQVbVlF3MrYsWZw/J0537GSDooOFIFIH QaX0H7nmapNzVri33YMUIeucE876xyFFnOUsl7qRgTd5s4NvjRfUpdRVpcNC Kx5FXBKCUkAIglJAiPd4AcbUWXybEYIsiGjzJCcsRaCJclHVWJ/DPIxy8KDQ HmTmT4OuREhMRJDDKQDHOYjypEUsD2oEgp6T732Tg3F++GDskxUs9pUYCRac iFg5RuXw4DcEah9WELGIlioUVFd3mB/AKJMaWFTj2eH0lZ1o3wmiOzIIpG3I UEEWaIrHNB6oyHYWmobDdFu7Nows9yytWKCelPKHDrc+WQH9eAF0WMliA5ZA xzxzC0H3g3sRFgtq/YTmrvk9Tsg3fUTFkrcHAOseOk7gR7qthkiDVwmSquxX 7v+VNqzbEFzDsIT62nzqUZopC0sa7ox8GRAPLSdMbuw8X+8UC3PqNAr8osHt lTv+mN7lvZFsImhGtcbdZ4GegZve8ucDVrDjoq8OI5i8Yhml51GqPEipvFHh mmeTFMU5QiSdjSG5FGMccEHy2X22oWtOcE6JybHjxerdf1S5haCoDDe5D4sa w0/WUo9Q81jlASQsx/0wm0cTnFzwyGXKbYEkKXcbQ0suTB2qkreUUPBNYuaQ Kgj/8gkinTp5TmgZIBD4Tg3rp+b+vURvmf3js6+6vwoIjyj1sTSD0GKvCTmZ 9NlpEAyANuz/nUVrJrl0vwVbvXAL6oLFPfZv7vskWK861F6kR9x1B+SVr1bw 64o4u4K+rGXsCnJ1fAym+wbVwbLBDaeNMAnokz/jPrKNvLD/2ImOhC6ezYJl mxV/XFtgN67r+MO+45f0PlupnCEJsB8nSKA3rEgm+uMkF+4P3kr2lEH0cMKL sQnYNTFsPj4R+kR9uTDBsnVk7dYNPrCF2QzvUdZu8TgnXGKgIlsLmtI5RmWo 7kYbedF6BTk45hKgDruR2e/7OZttX0rJIheCDQgE4n4JYQOOlfcwewPYLzt4 BQu8k/3CPgA1jdyX8n3I0J8GxQd/67DVfOhikKaccoq+h2oaZiiSjA6b8mqi gGahCMMuqrl1C5goVLuBhyWxAX0zRuh4huMy5VB59KR71IG45UvuhhO3DtxW ds9VcnJlHU8iZwcWO9/r5ZSPArwaHaz4QDATkMcNceCt5SrtkZ8cxhXvNYQL Fm2l5nihnWAl0fZ3LbsQPZ/Wh9CgbZ6Qk0NQ1sEvHFZZhnn8Hgu4j2YJ9ee1 /fHhWAY2Ymt4a7++2qnw6Kob5Jkc/Xd4WThTy0+FJ6KVDDCgDIhiFzc5vWir KFQ6R4OOEGeWDw/duRa6RAkV0AYN9wIfarID5zsRe1w0zhUx5++cmwXFBJBT FEH0QXymkWO8xe+vVHe/XKXv8bzglD/YuelKLdoyvxNN8jUmD9mg8bppfD/9 gMJBOB93O9MW0E4CZlw/fjaFFTmXmySoFXyOQlEkSq7bUOKAXAOndrNokKWQ CWXkqRRcrsDWOq8BfJbfcMD0Q8VK/UJcONUNWAaxlu6bs0xc38TxosgACthS ZIoFUcChJjXWp4Rgp2HKm/I9a6kfp+eibk8CTvBaXUROjB3BEbpLy+7joyLq 2JR0AspcpUQnCAfUIeLlx4vtmYi8gHkMftbBfI5FhxMwtvjQDauZMiq5boAL FlZRnRTZMSDvuGqYhFGllq63E3eKmqGM8H5RNTSdDeKF3rCjW9UErwtZTYQe JqGHyILYL4oSAEFCTHKWDLhSJsntUxLY8hdi1jWBKOvGhoNfQk6DoSCaUFlH Q5DqV918ITOosGZhY5yVGeBhsxIu1dJZK4V2RlWEPI+DZtjdq31X6g+8WQM/ VRRHchQNWAjXsEUeRQemQekomuixsyZA65xEw8Sg1OM8I/r+rDp+47PUBUDl g4NqspWAZLEZpkVZLO4P3WI5zlRpuYdhXBMhKGApEzh61MCgFaUn43fh6CFL ccTLje0gVaWu+SBY6qLNrCCXiG/HmwPk4nNt8kk5YSU2DwMidV8O5/lsBxE2 mkEX6j7aD6DgeWRjYSjwRiIC0fvJZtGBSQROI1JeCs9ELax50JH7VKKwixhL +cS92I2dcwTIq+cc7WaWAhsXlF7gyhwXr4UD1/SK1iqxFh6iWrAVyQkRfCRp V8YBVZEj0JIIA7RBSOJD873c39NEMFCG/JZN99g9OoyRGA2MO/ZvritHKS50 yJV6hCfp2V+e+jth/Wal7iVdB5VBGisKe5S9E7HdiQR2TtuzjsP6oFEXycoc tsGyAJkCqu6srU3njG5+UMs49H5Gy3izBKOK4Cr5cQMnYL1ig7qmPURochlH ppFjh32MnKJ8b4UcvKmBfbg60QQ2WLRgWB41YDnl/udRcoUNwdpS8G1bq3Mw DOTvf3+IOAJMTxIUmHuwtZjjxC4wjiUYxwSvIcl7EhY0ql+fMro7a3Q35Fk4 XDSCuU58dCDY7Y/t4ogPjEhJp8c2OT5rGkfpMF58GH16/gMUTKBUgv+vEQzo j823h6gd7MNiGDCyfRjYH3jAS29deTjRc0zKO5wGQUOYTzQxxhCEURJkeIO6 5phFJ15hXCFbKj32QaK6Xjqz7U1YZELR0wwuXUPOeej8SgEToK+huIAJ7vm9 +gNrQdZ96gMsg6JmJYpUHN7sQOkUc6MZ68xAmKfXrg3HLAj2AjKe57A5o+vn hePBmIZJlBreybaaQBaZ8n0fe8Ezj3mMAzwQisRXVD3cHvMK/l4vvFbOl53J FnqtG2ZUoAKsajVZXXnr8wg2MnndTIdwoBnrTVXKvCj3HqPL2t3JDPbp2tvV LRTPPfecOjq8PUcuo+Y9sNiflWb6YS6Q9pDlTtMRhg8NAdN+Kb9NzzpMoX0/ jqVYan0dZp8P5wZzCF7JAs4jLUKu2ulz1mryION8cWuD37Sc5wrScVPmZo8Z dRtroHaO5R7R4gaNE0Yz83oVpBimLkzVQ+qobzpfztpGY9E4JaK650Dj9Agv coVE8zvY2Erj1sFpZbWC7tUNHK3jvtjMwuiZV6qcO/RW42l01maYnCkr7UAY w5JPiofUYWj3IGMnAM2ca2uxoa69M+Gk0ca88jzvUoiXK/vBO4ir8bg561Qd ZsC7Faha2j+2j6faiXbUh8xwNg5ayYrZO3eR2Pn+NbJaz4OsNI13iP+zcsdp K1jsJ6fHde74OGuVz5M4CFpLo7+LAIpH2mZIs1qSyHMO+6pEZSOW9beRjH/c aGarXsV62xCnB6f+C3YYWFRLlTNnw4Nq1qzHp1HyXoFoPm99ceScOsIw3NQ7 tbz6faOt1BNi1UN/tAyK8mpBMBCxtB66pH1BffAKDyntnojTaAGg2Y4dDg8m RR/t+4IIsuGGstOewCGA35wHf3a1x/mkqzjaES++dgI8vPb9rD65zuKeDSI8 x/thrMW9u47Qa4FosLGLSSWmJXPaZ+eWklavxC9E0KqBB27dI7f3wpJohazR zOfcmjYa5/rG+Cwiy9JKa45yeSeRrLkegsmxx76b6CSKEqIHxiucdgOwreno rtzzmJV5rLjrr1XyteNIFi//IQ90z4riqzms6Z+ngp0Epblmrt+qqX5emuMg M7q3MlLVvsG6Lc28UX8Lwt+4nR7JUEM0hnY/IxqQb8ktHmW1ZRuUkxXLGWRW 9P+ujKiQabnwecg0rpWzNNIXVOGKUv7uaUmsC5spMe+VwB5B0cxsUhaYbHIP /PnRsxbqZjz362SGB9norux2J9+MsNVr3VMhAjqSDVW8H0X/t4KiLmAIE4Vv jab0xe/Rcs/9KfHaBxJPZ0N+LLvG6j9O1Tgb1onIi7fqyoXcmDQj6BbnSnj7 az8Ds5TRYyawDNzg23wAZgT1+UAw2lJag5IJ25yWFenpOIMSvKVFkY9jxyfw MiRDrPucmToBb0WacYGYOWiHiOptiGlPFXMLTEjWVbzmahFyfijXM8JSPcub OqAIQDXl9qI9IGkgvx55b8meiV1K7v+fMI/jhEe5VIWwPoduQ8yVI+PvN8pc O/9e7gYL1Z4cVjdw73HQGUecFILOl7QKx8etla7777frmq+msg565DAANACn J9Si1A8YZa7VO+A1VZ8i2LC+2zXKrBcPf7zxuUtG2asEw7PUDqyGXaMMvORV 8Mcan7tklP0CweBfTTO4ZNXIfxeBDqfIrlFmvSd6XwnCR4YhKLaj3SXnSd67 UtObIZp3MxybUIg2x9UZcaRasJsQiS7sRds1ytg5DcbiXKX0uEFdfS6M240R 5bGeMRzZRwioWbNsGnV/nijyoAoRMo1xcVCTowYwjhAeS0Ov4vvcUQh5ym2M RmfbL+UXElmwBlJxZVs7fhPQieaAc5r/q+KLU+UgsUgfxplDlKWnq+jY/c4R I3AWYTI2XDE/9y2UkwgLiO9nMesVw+AQHQme4sShGsJeatLQeUx/S7TgigmU 6IaoaXrajJBympTx4U75/s/xGLdcVI+XNzBeENhlz3vsFm6PNVsaEPYvoen6 hQJGmE5hgSHDSUaWSKGM51re6RGHuu33HLSSoTWUj016bMkGr83eKAXKkfoY HEvQ0rYpcmwemY0UerZ2pa5wbCtBbZCEthh9HmGdRda4B78bzjW1QskjMXU7 1wJLtOUyPhTZEqQ0aoSlCSgYrcdWQmAkj6AVgbnRNLPen0mzHXaXGAFqIBIs XX7XDofsQQzeWYH6On1VxaIlrcASi3Q5or9rYlEI7+PAKfbOo0XB8C2cVt21 JylYYoKBluxRx+0VEBrJV2hBqE1E5mE5zV4TRSRMtEgb1Gf17WN9Dd6jh+lV fY+RzZoyyspQIFJwlRXEAUpwkkDFiQY4640Cy5GTSOJJNfWABTj3w1lqMH9W YHo8o64P9txoM58Phhes6VGdUWwfvofBuTVswISXcgjSznjac32Ew1j6G0yy 2O62EyqGYOwgJOw4jUiXU1btLUBtpUPAd8ArLnrLVI3vHGYH8umEpwA3Smye k7EW0HOjOeb6o9Q0H3QiQ9TK6pkph9LZX7tzqxHUyzMs7K20ZFIHKSFOsqcV hLo5bNPgDAucz1ZIysDb0CwOwtd0EE4SnkW+/MMBxpaJAdh5owpzCRM/mCy+ Pd6mAtfS3UqF1DwVbvK6WSeOsGgg7R7aZRcZnssTP6ysk2HpTg5eHwS2wePs UHZCQNhqOSJ4c5+Vp0K2TdC4RK7DgDZtAO2sUU/9Kv/jPk41p5uzkY5lNIZN 3929KmTJkpdVvjq2g+2GHajBhklsyOEdopxxZmfGTPhosqReBhTLbbymaM51 ea9CiGgFe9Vf03eCrgrCZDUQzhhNsM/smDY3tszW0WMlr7W+uw45Oe+kf/aY DofxRd48GBi6ZyZ68YGr9LTRcG2ZYL0p0qVduaAf61G2HQwDkydLULc1Pdn9 /3DWV92WcQWfzirZCZDseXIPf8qoaK2qSRvnFY8pz2t5b3zwoPv/LDXwqjZg 7XR5k577aoKG/Pqz/0P3X/VkzjMlLSQ5A1Ab4XdGQZCQwqVJYIF2Q4x7GC5p EtmV1iMadyKdpqwxk604D43d64XjU3n/SdJUR6lj0zStTNu85jai88zBOXH4 XUDdg3k8w5ybGckt8xz7F88dWFhQ+8sw8M5EaQBy8e80Gcq31nAm3l6WilXL i0ImiddQ+ck2Rl0N7F6OKJz2iTKY8Fb+F+V4rYzyqvlfo9ywnEFx8lys/U4U QWtJmOq6zjoAaab/Uy5EKVnniylXDBGgwCxkQSmXgaFHsH4E48HwZs0sIetf 16O1kUI0Suux7KUon2jK+USJ5Bdpvmq+FEPFZl7klKshu1dEtpIwVc6Y+ucx ZgzHMdPCzMr14awhTlCqnpIzYFPL+kkg0LFxdwZZS34TJzCVtBEWVglTDKSj ND8L6xUSnKJ5AUOd1/kA+RqydxdhcBmneHCyDoYsZw2luTwNZ5LEqTuz4MdP IMAZrZUjRoYcpU3OUQotW1lXCYBxntKsjvqshDqsnbUylf4p5pV6IW1exYfQ YIlOEth9l5ZlmUrumnJf2+zj4r7cd3Up6UaK4axuPeAY3ihOX2LXWYSiuybc 96DRvQ3pxYPDNHjNKLxGnV88oF/OSRr68P7EdzThaLzgMUWBt6tYy9Yf0jJe 3lqvqHxv43NfJxiQ0MZnUVhpRZ+gtuENHZwrD1bvcn94DTon73CeiC6nrVwg Pr1CFUA4eQIzHPtOkiiB9bbb83oHjiqBCEKLDTThvKjx5n6VEL2sROBZAc32 hMYUybk5SDhElbAvOlnIHNemU8+tan7eoAdmoBn5Dd+Y1TRSuVL7xKtGcuyP Nc6kuEjkUw0etCCO6eFd+SnJdNMpZxfA5XFzeJE6xwb8VvX1zsFAkJTQz8zn AYM5Y+AeRpa2lXwxJE7k7/P0E5Y/yIRtPbnUBrBAS48vHiMucxZghbyiLQsq i9hklESs5lOfcJoMrAtSDtHwR9kVv4MbbNafmMCsvJRbeSJG/722RzxHcGoh GG2QSLOxKSEJyEI4O8KYhMs8dGVaBCmmOQQJkzuWi+RKzlMyMj5YO87zXaqb nE4SCMS0j9ch5QMWEBy2fMunlCYtSTl8cMbYhuoS3Bjaw71Z5EcgCuPNJgiP CWP6P+sUC4unswZoqDdsgL46nBeaZ1rE9LSObsi3bE+DpOAShyhbwTAcyD1r vQKzxr5Vz+RoHfZIXaihkFq+OoeVqTiJFuSkEi0BblNMNQgnkcJuYTJTfYzJ 79H7mAuHdmbRygdh5ZvDa9TZT3BzCBevo55HEmasjAU+mACAAzLYh6rFQRfr VA8dzIxIpJBqanfLAAHrP7YnQUPBilPdcngyolozQK5rpwEF2mliHueFbjBm 1Y9pJWucVkxqcR/OOQdV5hWQ8Hye5rwV9CR4z9kYBctntlZXRexLJs0l7Yyh om2XfOocxMA6NuM0ERlst2JiSFbNiVoEAVUsm5xP5CjbM4duOifYPPLwyQU1 P7yCMD7Ew1rzIUA9FhBkOGOq1eFYUPu1ld2W0f7sCNvP6Ref9WlZ9LwogeRZ S3cvee2x0TON/Q9vUJ6Hb6cPUZfdBHeCa8RdzR6dp7VNjlBGZ1qoS+oZ7ZWn 5Oyh0kEgPmy7DGJXOOCjW+Vlhs78Fw6dDoYqYK9ELoMUaRNRtsmQPHnYVxpO omXwAd4seCIKB2LC13hxaKmEtQHGym80DGz7ew8v69bYkopf+FI4qkOV2m7x 2dTLr5Kx4SofDyq9FtVEE7wFd4h/rPtmmH3ougAyYh8crJALaKibChjz4q1G Ke2We61gVezdEY95Nkl74eU8pCDGOT+3xHg2iGY3HFzA1Yqx0OwNP3ih6noM 2sqA7brhvcEHOO3ydr7Myz33j2UmhBXOtHJARs4E5HDTs2NMMCKjKdUghxAk DXQcbtTUmXIlf92Qks8iuoE2BkmJNwWc4s43Q+eBZ6zsJkvClKPFOvL03rmA mdxPj67AKJUL7v/0/GVQqRwwHahJ+c+QJOkPb3I1GBJ+A0zcu2/8nTacFwIm keYDcE3vtDllAiStFnAq9i5XRcOFwXUiLPHxl55aMfI6Ed/MTli78fwLJJL4 aTh4JA3HpseaDSbELXrByJBOq+drgA0I8+OPp9aV3zGysBALQ456d2XfYa7N stlPuWdFe5GNxg4h9/x/lZsE2QtN8sIW5vHCKLNezMBdWwdP+CPm4jgvlg7E 7bCc4U2uC6PMej2Ca/W/PQwB3zsh7HvUBd2x/wU1rJWs\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{599, 268}, ImageMargins->{{1, 0}, {0, 0}}]], "Input", CellChangeTimes->{{3.4066947323606653`*^9, 3.406694804628934*^9}, { 3.4066949799729757`*^9, 3.406694988764286*^9}, {3.407124789212747*^9, 3.4071247892129307`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Equivalent circuit", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}, { 3.406459821066276*^9, 3.406459824773054*^9}, 3.4090589019399223`*^9}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztWc9L1EEUH/e7rkvRTzNQECxaEwkEPVtpsIWQBBIInrYtaYkosoN49OhN 6OTJqxcvRUh56pfl3fAu/gH6D0zv8+a92dltdls1K2IH9jvzfe/Nm/dr3pvv 7N3Cy8ePnhZeloqFntsvCs8fl4ozPflnLwiUtBjTcskY86THYGxpKA9ul/GQ l988/sZdYvf29uzGxobd2dkx7QxLY2y1bW1tXXczvnLXCogdHBy0k5OT3K+s rJhzjMswJ8C1QRNaYTjkkOFZoETD+t3d3ejPygIRJkZk+CBSz83NWTVVGs9E EJgnrD0MyykrhUFFZZDws9XOzs4qjH/Eq3pd6A5pYa2kjjaET8sU70w2rYOV SiW7sLDAb6mI1mATaP1Rpq2trfFqhPbTVKLQG6maSiahb4UuY/P5vF1aWvIG hyjEk60pInwSliADeXl6ZQhlIlq3BnQQkdRwcxNMu+EW+CxEMAvMg7cTEWa6 APSA3qS/ueVYfIlYtz3iuNFKn5LFKq10LogbRaQEHZjJ3HR8+OWQu/C7LIV4 hllJbHPHobaCuFADgIwkMLcdCTO5Bmy/H/WJlYaGhmyxWPQ+xZhgiXDV0FDf kW0quFZZve8IsF6RqLOz046MjFRIlM1m3Z5Is2XVc2T5YxYGsFCY0dFRy0nA +jDX6DomSXIC29/fZ3gul/M7amxsjGHb29tG7YMNDm8hkumXry3VBTxTkhsd mUtotPFONyhdh6yK2MCqaDQ+U0eRzc3NYLt4ERxCiVPCF1rA2/g1oI0kKWxV NPSwB81sVKGQDaZqzsMmp80QY+MUy9r19XVvQnhLTUoes8vLy+O1ZT/lzEDr uH3XxlhNOGpXzfYx48ZU0TIdVgxyLa9Tz0GLi4t2YmJCHEReEbrx8XHgzIEV QZNdwmNJKg0rckpggSK+ruF9enraF29kxl9omLUzMzOqIXtNQxJwSjcNKZgS XpIVGQ0FNXCkgh1dx6w/rCDlyYHDF526MZmwluJPYgfvJZzPFCaq8uoXbeAT xHx1UUNZ0QU4uK6VZ7T9dBzTMw5yY+LNxtR9zDBrBwYGfLTNz8/7Me0W29XV NVyusg05w5Vv2TKyk2NbohJ2/hfeqLZCeEyM8csFMAQWjJ5iYyespASbuRqZ e+Ugymptxlnl6MrGHajnsBh/J+wJu7u7GyrL8aVxR5WJcUTTewh9Gw3E3+Dm yk2X6CG5Jj8netrnDjQaaz1FWnHKsWEOqHztdH602EVyknJSV6nV1VVswGql tEIDRSR/UKnYXBVWswYa1V0VVkuwhOI/IqyUGIWzsBpygANvq7LIXxRX97EX lw4zKm5g939D3AwXFBQPbf39/YCpxECBpBGJubZ11JKJsb1iJPgNic4baWpq SpcEXPxdb8liBPWqSd4kb5I3yY+Z/B6eXIgSPxpusmiyOASL+578ZrlCmrcR Tg//bxSb5hj/l3nPnbsgw4eg/B447DvuWvnGAGd+/R+G5DNVJPAkPgnwp0EV yRvuTvpbTpCi1+s1uROLTX3NXdZ/hOgUfUfPd1G4UE50Nk8qhBzct55e9LtD VRu/B9+A/vvtJwEcZ7mMp4nspLKZYms8qUQFCvhzerC8mQ5N5f4kEFP5jy6Y R5p5VN+rpuUH1iWYIg==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{289, 107}, ImageMargins->{{210, 0}, {0, 2}}]], "Input", CellChangeTimes->{{3.409058885925214*^9, 3.409058894976873*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", RowBox[{"CstLevich", " ", RowBox[{"DXi", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], " ", RowBox[{"Nu", "^", RowBox[{"(", RowBox[{"1", "/", "6"}], ")"}]}], " ", RowBox[{"Omega", "^", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", RowBox[{"DXi", "/", RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tauXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}], "^", "2"}], "DXi"]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"m", "=", RowBox[{"mXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"tau", "=", RowBox[{"tauXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"k0", "=", RowBox[{"10", "^", "logk0"}]}], ";", RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", "\[IndentingNewLine]", RowBox[{"R0V", "=", RowBox[{"R0", "[", "V", "]"}]}], ";", RowBox[{"O0V", "=", RowBox[{"R0", "[", "V", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"RtV", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"f", " ", "F", RowBox[{"(", RowBox[{ RowBox[{"R0V", " ", "k0", " ", RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}], " ", "ao"}], " ", "+", " ", RowBox[{"O0V", " ", "k0", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}], " ", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}]}], ")"}]}], " ", ")"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"RpV", "=", RowBox[{ RowBox[{"RtV", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["k0", "m"], RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}], "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}]}], ")"}]}]}], ")"}]}], "+", "ROhm"}]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"2.54", "/", "tau"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"RtV", " ", "Cdl"}], ")"}]}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"RpV", " ", "Cdl"}], ")"}]}]}], "}"}]}], ";", RowBox[{"logwmin", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Min", "[", "lw", "]"}]}], "]"}], "-", "1.5"}]}], ";", RowBox[{"logwmax", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Max", "[", "lw", "]"}]}], "]"}], "+", "1.5"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Zf", "=", RowBox[{"RtV", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["k0", "m"], RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}], "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}]}], ")"}], " ", FractionBox[ RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"tau", " ", "p"}]]]}]}], ")"}]}]}], ";", RowBox[{"Z", "=", FractionBox["Zf", RowBox[{"1", "+", RowBox[{"Zf", " ", "Cdl", " ", "p"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "ZO", "*)"}], " ", RowBox[{"ZX1", "=", RowBox[{"RtV", RowBox[{"(", RowBox[{ FractionBox["k0", "m"], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}], " ", FractionBox[ RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"tau", " ", "p"}]]]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "ZR", "*)"}], " ", RowBox[{"ZX2", "=", RowBox[{"RtV", RowBox[{"(", RowBox[{ FractionBox["k0", "m"], RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}], FractionBox[ RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"tau", " ", "p"}]]]}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], " ", RowBox[{"if", "[", "VSta", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \(o\)]\))/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \ \(o\)]\)+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], " ", RowBox[{"if", "[", "V", "]"}]}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"O0", "[", "VSta", "]"}], "/", RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"R0", "[", "VSta", "]"}], "/", RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"R0", "[", "V", "]"}], "/", RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}]}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"O0", "[", "V", "]"}], "/", RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}]}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \(o\)]\))/V\>\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \ \(o\)]\)+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.875"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.75"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\ \>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\ \)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", "RpV"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "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.775"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\ \>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\ \)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ "\"\< O + e \ \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), SubscriptBox[\(K\), \(r\)], \ SubscriptBox[\(K\), \(o\)]]\) R\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logk0", ",", RowBox[{"-", "2"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "5"}], ",", "2", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)\>\""}], "}"}], ",", "0.1", ",", "0.9", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalOmega]", ",", RowBox[{"5.", " ", RowBox[{"10", "^", "3"}]}], ",", "\"\<\[CapitalOmega]/rpm\>\""}], "}"}], ",", "500", ",", " ", RowBox[{"5", " ", RowBox[{"10", "^", "3"}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"DXi", ",", RowBox[{"5.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", "\"\\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"REt", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", "\"\<\!\(\*SuperscriptBox[\(R\), \(*\)]\)/(mol \!\(\*SuperscriptBox[\ \(cm\), \(-3\)]\))\>\""}], "}"}], ",", "0.", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"OEt", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", "\"\<\!\(\*SuperscriptBox[\(O\), \(*\)]\)/(mol \!\(\*SuperscriptBox[\ \(cm\), \(-3\)]\))\>\""}], "}"}], ",", "0.", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "5"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ROhm", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\ \[CapitalOmega] \!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\""}], "}"}], ",", "0", ",", "100", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"V", ",", RowBox[{"-", "0.01"}], ",", "\"\<(E - E\[Degree])/V\>\""}], "}"}], ",", "Vmin", ",", "Vmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logwc", ",", "logwmin", ",", "\"\\""}], "}"}], ",", "logwmin", ",", "logwmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc2", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \ \(dl\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc1", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = 2.54/\[Tau]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"k0", " ", "F", " ", RowBox[{"(", RowBox[{ RowBox[{"REt", " ", RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}]}], "-", RowBox[{"OEt", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["k0", "m"], RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}], "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}]}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"R0", "[", "V_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"REt", "+", RowBox[{"k0", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}], "/", "m"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["k0", "m"], RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}], "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}]}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"O0", "[", "V_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"OEt", "+", RowBox[{"k0", " ", RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"REt", "+", "OEt"}], ")"}], "/", "m"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["k0", "m"], RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"ao", " ", "f", " ", "V"}], "]"}], "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao"}], ")"}]}], "f", " ", "V"}], "]"}]}], ")"}]}]}], ")"}]}]}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Vmin", "=", RowBox[{"-", "0.6"}]}], ";", RowBox[{"Vmax", "=", "0.6"}], ";", RowBox[{"F", "=", "96484.56"}], ";", RowBox[{"Nu", "=", RowBox[{"10", "^", RowBox[{"-", "2"}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"CstLevich", "=", "1.61197581"}], ";", RowBox[{"InvCstLevich", "=", RowBox[{"1", "/", "CstLevich"}]}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], ")"}]}]}], "]"}]}]}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.4023695361461477`*^9, 3.402369674827173*^9}, { 3.4023697765829*^9, 3.4023699547166243`*^9}, {3.402370005488802*^9, 3.402370018431055*^9}, {3.402370052619474*^9, 3.402370104981262*^9}, { 3.4023701590050898`*^9, 3.402370243119587*^9}, {3.40237027455987*^9, 3.402370329528116*^9}, {3.402370384343309*^9, 3.4023704987216682`*^9}, { 3.402482859565398*^9, 3.40248302156184*^9}, {3.4024830536030493`*^9, 3.402483098071499*^9}, {3.402483146978909*^9, 3.4024831563281307`*^9}, { 3.402483195965958*^9, 3.402483268056141*^9}, {3.402483425822873*^9, 3.402483490293881*^9}, {3.4024835580708017`*^9, 3.4024836381413603`*^9}, { 3.402483670938328*^9, 3.402483708771574*^9}, {3.4024852890688133`*^9, 3.402485434788199*^9}, {3.4024858312418756`*^9, 3.402485837150496*^9}, { 3.402485915685755*^9, 3.40248624722701*^9}, {3.4024863102816753`*^9, 3.4024864195417833`*^9}, {3.402486462882098*^9, 3.4024865337273684`*^9}, { 3.402486609670967*^9, 3.4024866165403748`*^9}, {3.40248665067288*^9, 3.4024866604687157`*^9}, 3.4024868590375547`*^9, {3.402486907262285*^9, 3.402486915747499*^9}, {3.402488329871443*^9, 3.402488361675241*^9}, { 3.402488396714031*^9, 3.402488516153315*^9}, {3.402488655750746*^9, 3.402488965308111*^9}, {3.402489000444693*^9, 3.4024890040365353`*^9}, { 3.4024890589346046`*^9, 3.402489062410473*^9}, {3.402489130832069*^9, 3.4024892156252747`*^9}, {3.402489294420019*^9, 3.402489344499359*^9}, { 3.402489419831357*^9, 3.402489526998837*^9}, {3.402490383226593*^9, 3.4024905707564363`*^9}, 3.402490624558634*^9, {3.402490672720195*^9, 3.402490718199432*^9}, 3.4024907588747*^9, {3.402574717052318*^9, 3.402574769906005*^9}, {3.40257486912783*^9, 3.4025748808768263`*^9}, { 3.402574925421788*^9, 3.4025749387882967`*^9}, {3.402575003501624*^9, 3.402575018596941*^9}, {3.4025754898518963`*^9, 3.40257563218882*^9}, { 3.40257567730838*^9, 3.402575809526437*^9}, {3.402575874843103*^9, 3.402575879033408*^9}, {3.402575935744194*^9, 3.40257595844971*^9}, { 3.402576157191975*^9, 3.4025761727653913`*^9}, {3.402576224707034*^9, 3.402576228230336*^9}, {3.402576483749071*^9, 3.402576523324802*^9}, { 3.402576564703891*^9, 3.4025766023925047`*^9}, {3.4026199023445873`*^9, 3.402619948709725*^9}, {3.4026199850524893`*^9, 3.4026200413967943`*^9}, { 3.4026201510059843`*^9, 3.4026201592745333`*^9}, {3.40262020611094*^9, 3.40262029407122*^9}, {3.402621027672077*^9, 3.402621134104281*^9}, { 3.4026211684080963`*^9, 3.402621223194031*^9}, {3.402621265215824*^9, 3.402621267902812*^9}, {3.402621334818672*^9, 3.4026213494917727`*^9}, { 3.4026214649411373`*^9, 3.4026214711931047`*^9}, 3.402628313929721*^9, { 3.402628403990634*^9, 3.402628475924038*^9}, {3.4026285329475117`*^9, 3.402628569365765*^9}, {3.4026286056221857`*^9, 3.402628641301815*^9}, { 3.4026287171490498`*^9, 3.402628718792757*^9}, {3.402629209570641*^9, 3.4026292330136213`*^9}, {3.4026292822945547`*^9, 3.402629294686112*^9}, { 3.4026293253815813`*^9, 3.4026295010075397`*^9}, {3.402629534731275*^9, 3.402629537163505*^9}, {3.4026299325197887`*^9, 3.4026299348236427`*^9}, { 3.4026299728323936`*^9, 3.4026299823479843`*^9}, {3.402630036321167*^9, 3.4026300394143963`*^9}, {3.402630134678294*^9, 3.4026301584997663`*^9}, 3.402630195728856*^9, {3.402630242528446*^9, 3.4026302508320208`*^9}, { 3.402630473877427*^9, 3.40263050834774*^9}, {3.402630544010498*^9, 3.40263059729458*^9}, {3.40263075907216*^9, 3.4026307629079313`*^9}, { 3.402630877676293*^9, 3.402630889050021*^9}, 3.4026310448648443`*^9, { 3.402713838212441*^9, 3.402713911468562*^9}, {3.4027139646195087`*^9, 3.402714061855445*^9}, {3.4027141859392157`*^9, 3.402714196148651*^9}, { 3.402714270448277*^9, 3.402714307288842*^9}, {3.4027143399674253`*^9, 3.402714367340341*^9}, {3.402714399336391*^9, 3.402714444833983*^9}, { 3.402808494640152*^9, 3.402808498889625*^9}, {3.4028085360993547`*^9, 3.402808537077035*^9}, {3.4028086473870296`*^9, 3.402808669589512*^9}, { 3.4028129814770727`*^9, 3.402813071708537*^9}, {3.402813354504629*^9, 3.4028133674794903`*^9}, {3.4028140087262583`*^9, 3.4028140835208187`*^9}, {3.402814198214512*^9, 3.402814225387941*^9}, { 3.4028143134468307`*^9, 3.4028143140638123`*^9}, {3.403415752692627*^9, 3.403415789486211*^9}, {3.403415820099463*^9, 3.403415854364264*^9}, { 3.4038412807653027`*^9, 3.403841297141389*^9}, {3.403841342463997*^9, 3.403841343606017*^9}, {3.403841394294342*^9, 3.403841395787012*^9}, { 3.4038414536171427`*^9, 3.403841465485631*^9}, {3.403841535799437*^9, 3.403841536805583*^9}, {3.403841575028674*^9, 3.40384157755285*^9}, { 3.403842684339519*^9, 3.4038426930629663`*^9}, {3.40384293481987*^9, 3.403842947396359*^9}, {3.4057612568039503`*^9, 3.4057612711786213`*^9}, { 3.405761413018404*^9, 3.405761413379381*^9}, {3.405819052758778*^9, 3.4058191806141376`*^9}, {3.4058254594678288`*^9, 3.405825460472539*^9}, { 3.4058255238072653`*^9, 3.4058255537622643`*^9}, {3.405825592564384*^9, 3.405825621441044*^9}, {3.405825667462978*^9, 3.405825850482213*^9}, 3.405825923900382*^9, {3.405825974910058*^9, 3.405825981235718*^9}, { 3.405826725138728*^9, 3.405826833608189*^9}, {3.405827059778594*^9, 3.405827064172968*^9}, {3.4058271387232122`*^9, 3.405827213120493*^9}, 3.4058272758905573`*^9, {3.405832978349814*^9, 3.405833000966395*^9}, { 3.405833036382531*^9, 3.40583306067715*^9}, {3.405833176572535*^9, 3.40583321314117*^9}, {3.4058332531527233`*^9, 3.405833253880949*^9}, { 3.4058333230905247`*^9, 3.4058333537832117`*^9}, {3.40583339037722*^9, 3.405833397297024*^9}, {3.405833456191784*^9, 3.405833459433735*^9}, { 3.405914947970791*^9, 3.405914990155654*^9}, {3.405915053544611*^9, 3.4059150909548597`*^9}, 3.405915225179245*^9, {3.40591526744986*^9, 3.405915270548851*^9}, {3.405915301808464*^9, 3.405915321927217*^9}, { 3.405915419846855*^9, 3.405915484582204*^9}, {3.405915534940544*^9, 3.4059155937038*^9}, {3.405915628710429*^9, 3.405915664762396*^9}, { 3.405915733685245*^9, 3.405915784222234*^9}, {3.406005848446827*^9, 3.4060059731594954`*^9}, 3.406006028562162*^9, 3.4060060942888308`*^9, 3.40600612822043*^9, {3.406463419039475*^9, 3.406463425238011*^9}, { 3.4066903506344976`*^9, 3.406690443971858*^9}, 3.406690499516057*^9, 3.4066905503317738`*^9, 3.4066905957921143`*^9, {3.407124824025661*^9, 3.40712488777756*^9}, {3.4071254127123632`*^9, 3.407125511656246*^9}, { 3.407125621068823*^9, 3.407125627106802*^9}, {3.407125698338458*^9, 3.407125715189062*^9}, {3.407127971888411*^9, 3.407128111744596*^9}, { 3.407132607468183*^9, 3.407132810557522*^9}, {3.407132846515971*^9, 3.4071328512121553`*^9}, {3.407132882565301*^9, 3.407132961279566*^9}, { 3.407133145831996*^9, 3.407133178690206*^9}, {3.407133256190797*^9, 3.4071333621614847`*^9}, {3.407133401990312*^9, 3.407133404923534*^9}, { 3.407133511086211*^9, 3.407133606601411*^9}, {3.407133786471115*^9, 3.407133819055318*^9}, {3.407133897889572*^9, 3.407133900626096*^9}, { 3.407134000050082*^9, 3.407134033500201*^9}, {3.40713408343684*^9, 3.4071341035917273`*^9}, {3.407134176008397*^9, 3.407134180705052*^9}, { 3.4071342261234303`*^9, 3.407134239989393*^9}, {3.407134298328951*^9, 3.407134321617826*^9}, {3.4072115787283278`*^9, 3.407211655798607*^9}, { 3.407211720192656*^9, 3.407211721350059*^9}, {3.407211821671218*^9, 3.407211957640573*^9}, 3.4072120251697083`*^9, {3.407321374151374*^9, 3.40732143149428*^9}, {3.407321483339652*^9, 3.407321689133381*^9}, { 3.40732174225331*^9, 3.407321756526184*^9}, 3.407468559221903*^9, { 3.4074686042015142`*^9, 3.407468613173256*^9}, {3.407632614109585*^9, 3.407632636582074*^9}, {3.407633179453594*^9, 3.407633226738256*^9}, { 3.407633263704661*^9, 3.407633273254887*^9}, {3.407633340757958*^9, 3.4076334509675293`*^9}, {3.4076335924771633`*^9, 3.407633617748797*^9}, { 3.4076336518133287`*^9, 3.407633678164957*^9}, {3.407633837040856*^9, 3.407633839716528*^9}, {3.407633914802175*^9, 3.407633919538014*^9}, { 3.407634047170767*^9, 3.407634138405661*^9}, {3.4076341817700663`*^9, 3.4076341825005817`*^9}, 3.407634240211247*^9, {3.407634301812029*^9, 3.40763432948796*^9}, {3.407634386524521*^9, 3.4076344786663017`*^9}, { 3.40763452095863*^9, 3.407634615769261*^9}, {3.407634663437511*^9, 3.407634664153561*^9}, {3.4076420369877453`*^9, 3.407642038539229*^9}, { 3.4076422396796618`*^9, 3.407642240010373*^9}, 3.407642366022933*^9, { 3.4076424168558693`*^9, 3.407642433242609*^9}, {3.4076424997802057`*^9, 3.407642505390004*^9}, {3.407642890281104*^9, 3.407642938477268*^9}, { 3.407643004855083*^9, 3.407643045671753*^9}, {3.407643126121427*^9, 3.4076432039893513`*^9}, {3.407643274620451*^9, 3.407643402344458*^9}, 3.407643440500742*^9, {3.4076436360881987`*^9, 3.407643651014803*^9}, { 3.4076436830538177`*^9, 3.407643699414385*^9}, {3.4076437438308277`*^9, 3.4076438052153893`*^9}, {3.407723105617982*^9, 3.407723131009368*^9}, { 3.40772318093289*^9, 3.407723183502035*^9}, {3.4077232257375183`*^9, 3.4077232722293253`*^9}, {3.4077233153072023`*^9, 3.40772333175991*^9}, 3.407723830746306*^9, {3.407801393812868*^9, 3.407801433050661*^9}, { 3.407801475684045*^9, 3.407801644315567*^9}, {3.407801686898203*^9, 3.407801687444189*^9}, {3.4078019034766483`*^9, 3.4078019055357037`*^9}, { 3.407801967194628*^9, 3.407801987412714*^9}, {3.407802116198209*^9, 3.407802192781536*^9}, {3.407802223563013*^9, 3.407802235192724*^9}, { 3.407802320856599*^9, 3.40780234353391*^9}, {3.4078024755540047`*^9, 3.40780249766354*^9}, {3.4078025992840023`*^9, 3.4078026181743813`*^9}, { 3.407802743349875*^9, 3.407802754836812*^9}, {3.407802845578381*^9, 3.4078030007898407`*^9}, {3.4078030718886127`*^9, 3.407803087083434*^9}, { 3.407803149762556*^9, 3.407803285788198*^9}, 3.4078078439292316`*^9, { 3.407816385183852*^9, 3.407816451736855*^9}, {3.407816568865127*^9, 3.407816607783514*^9}, {3.407816917083254*^9, 3.407817047671504*^9}, { 3.407817158538056*^9, 3.407817166544321*^9}, {3.407817272689571*^9, 3.4078174065956383`*^9}, {3.4078174442433653`*^9, 3.407817455952848*^9}, { 3.407817528228136*^9, 3.407817593603441*^9}, {3.407817632601115*^9, 3.407817698102681*^9}, {3.407817759477508*^9, 3.4078177602994223`*^9}, { 3.408768314953371*^9, 3.408768317666675*^9}, {3.408768350998848*^9, 3.408768351563596*^9}, {3.408768421471817*^9, 3.4087684381559*^9}, { 3.408768515610013*^9, 3.408768533511334*^9}, {3.4087685935033283`*^9, 3.4087686065150003`*^9}, {3.408768787579864*^9, 3.408768795941227*^9}, { 3.4087692721353073`*^9, 3.4087692800176077`*^9}, {3.408769330015802*^9, 3.4087693527795267`*^9}, {3.408769392941648*^9, 3.408769408213292*^9}, { 3.408769442017375*^9, 3.4087694730297527`*^9}, {3.408778024382725*^9, 3.408778062885744*^9}, {3.408786907304696*^9, 3.408786921686583*^9}, { 3.40878698777698*^9, 3.40878702293543*^9}, {3.408787059181932*^9, 3.4087870758089447`*^9}, {3.4087871514704514`*^9, 3.4087871641438503`*^9}, {3.4087872025153713`*^9, 3.408787229521022*^9}, { 3.4087873631433287`*^9, 3.408787377372427*^9}, {3.408789320473781*^9, 3.408789370967847*^9}, {3.40965652102317*^9, 3.409656710684648*^9}, { 3.409797726956243*^9, 3.409797751431407*^9}, {3.409800183113947*^9, 3.409800210216268*^9}, 3.409825285772604*^9, {3.409976181564497*^9, 3.409976182956599*^9}, {3.409977644819428*^9, 3.40997764586185*^9}, { 3.409977791643078*^9, 3.409977798575795*^9}, {3.41619233216367*^9, 3.416192348626918*^9}, {3.4161924432749643`*^9, 3.416192517857542*^9}, { 3.416192596516665*^9, 3.416192618184429*^9}, {3.416277725199008*^9, 3.4162778015502043`*^9}, {3.4162779314766273`*^9, 3.416277932220462*^9}, 3.4162779702774773`*^9, {3.41627800442106*^9, 3.4162780330172*^9}, { 3.416278097354622*^9, 3.416278169056424*^9}, {3.416278215092228*^9, 3.416278219509107*^9}, {3.4162782810178547`*^9, 3.416278331650453*^9}, { 3.416278365783244*^9, 3.416278371750903*^9}, {3.4162784959840384`*^9, 3.416278529755891*^9}, {3.416278571111394*^9, 3.416278641974003*^9}, { 3.416278827881386*^9, 3.4162788429099894`*^9}, {3.4162788961036263`*^9, 3.4162789087249203`*^9}, 3.4162789575991707`*^9, {3.416279272815426*^9, 3.41627939554913*^9}, {3.416279433980397*^9, 3.41627943732544*^9}, { 3.416279478253883*^9, 3.416279499399646*^9}, {3.416279549778398*^9, 3.4162796919578543`*^9}, {3.416279757862335*^9, 3.416279758319778*^9}, { 3.416279796814864*^9, 3.416279886883999*^9}, {3.41627999356279*^9, 3.4162800003983917`*^9}, {3.41628005810175*^9, 3.416280066898951*^9}, 3.416280112348137*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao$$ = 0.5, $CellContext`DXi$$ = 4.9999999999999996`*^-6, $CellContext`logCdl$$ = -5, $CellContext`logk0$$ \ = -2, $CellContext`logwc$$ = 0.10877196642481457`, $CellContext`OEt$$ = 1.*^-6, $CellContext`REt$$ = 1.*^-6, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.01, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`\[CapitalOmega]$$ = 5000., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " O + e \ \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), SubscriptBox[\(K\), \(r\)], \ SubscriptBox[\(K\), \(o\)]]\) R", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logk0$$], -2, "log(k\[Degree]/(cm \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -5, 2, 1}, {{ Hold[$CellContext`ao$$], 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9}, {{ Hold[$CellContext`\[CapitalOmega]$$], 5000., "\[CapitalOmega]/rpm"}, 500, 5000}, {{ Hold[$CellContext`DXi$$], 4.9999999999999996`*^-6, "D/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))"}, 1.*^-6, 0.00001}, {{ Hold[$CellContext`REt$$], 1.*^-6, "\!\(\*SuperscriptBox[\(R\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 1.*^-6}, {{ Hold[$CellContext`OEt$$], 1.*^-6, "\!\(\*SuperscriptBox[\(O\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 1.*^-6}, {{ 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.01, "(E - E\[Degree])/V"}, -0.6, 0.6}, {{ Hold[$CellContext`logwc$$], 0.10877196642481457`, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, 0.10877196642481457`, 5.020337740685341}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = 2.54/\[Tau]"}, { False, True}}}, Typeset`size$$ = {508., {155.875, 161.125}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logk0$18175$$ = 0, $CellContext`ao$18176$$ = 0, $CellContext`\[CapitalOmega]$18177$$ = 0, $CellContext`DXi$18178$$ = 0, $CellContext`REt$18179$$ = 0, $CellContext`OEt$18180$$ = 0, $CellContext`logCdl$18181$$ = 0, $CellContext`ROhm$18182$$ = 0, $CellContext`V$18183$$ = 0, $CellContext`logwc$18184$$ = 0, $CellContext`wc2$18185$$ = False, $CellContext`wc1$18186$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao$$ = 0.5, $CellContext`DXi$$ = 4.9999999999999996`*^-6, $CellContext`logCdl$$ = -5, \ $CellContext`logk0$$ = -2, $CellContext`logwc$$ = 0.10877196642481457`, $CellContext`OEt$$ = 1.*^-6, $CellContext`REt$$ = 1.*^-6, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.01, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`\[CapitalOmega]$$ = 5000.}, "ControllerVariables" :> { Hold[$CellContext`logk0$$, $CellContext`logk0$18175$$, 0], Hold[$CellContext`ao$$, $CellContext`ao$18176$$, 0], Hold[$CellContext`\[CapitalOmega]$$, \ $CellContext`\[CapitalOmega]$18177$$, 0], Hold[$CellContext`DXi$$, $CellContext`DXi$18178$$, 0], Hold[$CellContext`REt$$, $CellContext`REt$18179$$, 0], Hold[$CellContext`OEt$$, $CellContext`OEt$18180$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$18181$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$18182$$, 0], Hold[$CellContext`V$$, $CellContext`V$18183$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$18184$$, 0], Hold[$CellContext`wc2$$, $CellContext`wc2$18185$$, False], Hold[$CellContext`wc1$$, $CellContext`wc1$18186$$, 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`m = $CellContext`mXi[$CellContext`DXi$$, \ $CellContext`Nu, ($CellContext`\[CapitalOmega]$$ 2) (Pi/ 60)]; $CellContext`tau = $CellContext`tauXi[$CellContext`DXi$$, \ $CellContext`Nu, ($CellContext`\[CapitalOmega]$$ 2) (Pi/60)]; $CellContext`k0 = 10^$CellContext`logk0$$; $CellContext`Cdl = 10^$CellContext`logCdl$$; $CellContext`R0V = \ $CellContext`R0[$CellContext`V$$]; $CellContext`O0V = \ $CellContext`R0[$CellContext`V$$]; $CellContext`RtV = 1/(($CellContext`f $CellContext`F) ((($CellContext`R0V \ $CellContext`k0) Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$$]) \ $CellContext`ao$$ + (($CellContext`O0V $CellContext`k0) Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) \ $CellContext`V$$]) ( 1 - $CellContext`ao$$))); $CellContext`RpV = $CellContext`RtV ( 1 + ($CellContext`k0/$CellContext`m) ( Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$$] + Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) \ $CellContext`V$$])) + $CellContext`ROhm$$; $CellContext`lw = { 2.54/$CellContext`tau, 1/($CellContext`RtV $CellContext`Cdl), 1/($CellContext`RpV $CellContext`Cdl)}; $CellContext`logwmin = Log[10, Min[$CellContext`lw]] - 1.5; $CellContext`logwmax = Log[10, Max[$CellContext`lw]] + 1.5; $CellContext`Zf = $CellContext`RtV ( 1 + (($CellContext`k0/$CellContext`m) ( Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$$] + Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) \ $CellContext`V$$])) ( Tanh[($CellContext`tau $CellContext`p)^ Rational[1, 2]]/($CellContext`tau $CellContext`p)^ Rational[1, 2])); $CellContext`Z = $CellContext`Zf/( 1 + ($CellContext`Zf $CellContext`Cdl) $CellContext`p); \ $CellContext`ZX1 = $CellContext`RtV ((($CellContext`k0/$CellContext`m) Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) $CellContext`V$$]) \ (Tanh[($CellContext`tau $CellContext`p)^ Rational[1, 2]]/($CellContext`tau $CellContext`p)^ Rational[ 1, 2])); $CellContext`ZX2 = $CellContext`RtV \ ((($CellContext`k0/$CellContext`m) Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$$]) ( Tanh[($CellContext`tau $CellContext`p)^ Rational[1, 2]]/($CellContext`tau $CellContext`p)^ Rational[1, 2])); Grid[{{ ParametricPlot[{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], 10^3 $CellContext`if[$CellContext`VSta]}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotStyle -> AbsoluteThickness[2], Frame -> True, AxesOrigin -> {$CellContext`Vmin, 0}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \(o\)]\))/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \ \(o\)]\)+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}], Epilog -> { AbsolutePointSize[6], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], 10^3 $CellContext`if[$CellContext`V$$]}]}, BaseStyle -> $CellContext`monStyle, AspectRatio -> 1/GoldenRatio, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], \ $CellContext`O0[$CellContext`VSta]/($CellContext`REt$$ + \ $CellContext`OEt$$)}, {$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], \ $CellContext`R0[$CellContext`VSta]/($CellContext`REt$$ + \ $CellContext`OEt$$)}}, {$CellContext`VSta, $CellContext`Vmin, \ $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, {0, 1}}, PlotStyle -> {{ Part[$CellContext`lHue, 1], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 2], AbsoluteThickness[2]}}, Frame -> True, AxesOrigin -> {$CellContext`Vmin, 0}, Epilog -> { AbsolutePointSize[6], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], \ $CellContext`R0[$CellContext`V$$]/($CellContext`REt$$ + $CellContext`OEt$$)}], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], \ $CellContext`O0[$CellContext`V$$]/($CellContext`REt$$ + $CellContext`OEt$$)}], Part[$CellContext`lHue, 1], Text["O(0)", Scaled[{0.1, 0.9}]], Part[$CellContext`lHue, 2], Text["R(0)", Scaled[{0.1, 0.8}]]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \(o\)]\))/V", "R(0),O(0)/(\!\(\*SuperscriptBox[\(R\), \ \(*\)]\)+\!\(\*SuperscriptBox[\(R\), \(*\)]\)"}, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)-\!\(\*SuperscriptBox[\(E\), \ \(o\)]\)+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "R(0),O(0)/(\!\(\*SuperscriptBox[\(R\), \ \(*\)]\)+\!\(\*SuperscriptBox[\(R\), \(*\)]\)"}], BaseStyle -> $CellContext`monStyle, AspectRatio -> 1/GoldenRatio, ImageSize -> 250]}, { ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZX1], - Im[$CellContext`ZX1]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZX2], - Im[$CellContext`ZX2]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, PlotRange -> {{0, 1}, {0, 0.5}}, Frame -> True, ImageSize -> 250, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX1], - Im[$CellContext`ZX1]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 1]]], Point[ ReplaceAll[{ Re[$CellContext`ZX2], - Im[$CellContext`ZX2]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], Point[ ReplaceAll[{ Re[$CellContext`ZX1], - Im[$CellContext`ZX1]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{ Re[$CellContext`ZX2], - Im[$CellContext`ZX2]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logwc$$]], Part[$CellContext`lHue, 1], Text["\!\(\*SubscriptBox[\(Z\), \(\"O\"\)]\)", Scaled[{0.1, 0.875}]], Part[$CellContext`lHue, 2], Text["\!\(\*SubscriptBox[\(Z\), \(\"R\"\)]\)", Scaled[{0.1, 0.75}]]}, PlotStyle -> {{ Part[$CellContext`lHue, 1], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 2], AbsoluteThickness[2]}}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "Re Z/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(p\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle], ParametricPlot[{ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, PlotRange -> {{0, 1.01}, {0, 0.5}}, Frame -> True, ImageSize -> 250, PlotStyle -> {{Purple, AbsoluteThickness[1]}, {Blue, AbsoluteThickness[2]}}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 1]]], Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], { Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/$CellContext`RpV, $CellContext`p -> I 10^$CellContext`logwc$$]]}, Purple, Text["Z", Scaled[{0.1, 0.9}]], Blue, Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", Scaled[{0.1, 0.775}]]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle]}}]), "Specifications" :> { Style[ " O + e \ \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), SubscriptBox[\(K\), \(r\)], \ SubscriptBox[\(K\), \(o\)]]\) R", Bold, Medium], Delimiter, {{$CellContext`logk0$$, -2, "log(k\[Degree]/(cm \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -5, 2, 1, Appearance -> "Labeled"}, {{$CellContext`ao$$, 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9, Appearance -> "Labeled"}, {{$CellContext`\[CapitalOmega]$$, 5000., "\[CapitalOmega]/rpm"}, 500, 5000, Appearance -> "Labeled"}, {{$CellContext`DXi$$, 4.9999999999999996`*^-6, "D/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \ \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, 1.*^-6, 0.00001, Appearance -> "Labeled"}, {{$CellContext`REt$$, 1.*^-6, "\!\(\*SuperscriptBox[\(R\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 1.*^-6, Appearance -> "Labeled"}, {{$CellContext`OEt$$, 1.*^-6, "\!\(\*SuperscriptBox[\(O\), \(*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 0., 1.*^-6, 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.01, "(E - E\[Degree])/V"}, -0.6, 0.6, Appearance -> "Labeled"}, {{$CellContext`logwc$$, 0.10877196642481457`, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, 0.10877196642481457`, 5.020337740685341, Appearance -> "Labeled"}, {{$CellContext`wc2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{$CellContext`wc1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = 2.54/\[Tau]"}, { False, True}}}, "Options" :> {FrameLabel -> { Style[ "ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2008. Hosted \ by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}], ImageSizeCache->{893., {220.875, 226.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`m = 0.008942400716525736, $CellContext`mXi[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := \ $CellContext`DXi/$CellContext`deltaLevich[$CellContext`DXi, $CellContext`Nu, \ $CellContext`Omega], $CellContext`Nu = 1/100, $CellContext`deltaLevich[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := (($CellContext`CstLevich $CellContext`DXi^(1/ 3)) $CellContext`Nu^(1/6))/$CellContext`Omega^(1/ 2), $CellContext`CstLevich = 1.61197581, $CellContext`tau = 0.06252615893239909, $CellContext`tauXi[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := $CellContext`deltaLevich[$CellContext`DXi, \ $CellContext`Nu, $CellContext`Omega]^2/$CellContext`DXi, $CellContext`k0 = 1/100, $CellContext`Cdl = 1/100000, $CellContext`R0V = 8.664965980030587*^-7, $CellContext`R0[ Pattern[$CellContext`V$, Blank[]]] := ( FE`REt$$309 + ($CellContext`k0 Exp[((-(1 - FE`ao$$309)) $CellContext`f) $CellContext`V$]) (( FE`REt$$309 + FE`OEt$$309)/$CellContext`m))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[(FE`ao$$309 $CellContext`f) $CellContext`V$] + Exp[((-(1 - FE`ao$$309)) $CellContext`f) $CellContext`V$])), Attributes[$CellContext`V$] = {Temporary}, FE`REt$$309 = 1.*^-6, FE`ao$$309 = 0.5, $CellContext`f = 38.9, FE`OEt$$309 = 1.*^-6, $CellContext`O0V = 8.664965980030587*^-7, $CellContext`RtV = 30.176040873805174`, $CellContext`F = 96484.56, $CellContext`RpV = 98.9464462971689, $CellContext`lw = {40.622997532059365`, 3313.8873458647354`, 1010.6477164391221`}, $CellContext`logwmin = 0.10877196642481457`, $CellContext`logwmax = 5.020337740685341, $CellContext`Zf = 30.176040873805174` ( 1 + (9.11398795407041 Tanh[0.25005231239162556` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]), $CellContext`Z = ( 30.176040873805174` ( 1 + (9.11398795407041 Tanh[0.25005231239162556` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/( 1 + (0.00030176040873805174` $CellContext`p) ( 1 + (9.11398795407041 Tanh[0.25005231239162556` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p])), $CellContext`ZX1 = (111.0981892064374 Tanh[0.25005231239162556` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX2 = (163.92588381895928` Tanh[0.25005231239162556` Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := (($CellContext`k0 $CellContext`F) ( FE`REt$$309 Exp[(FE`ao$$309 $CellContext`f) $CellContext`V$] - FE`OEt$$309 Exp[((-(1 - FE`ao$$309)) $CellContext`f) $CellContext`V$]))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[(FE`ao$$309 $CellContext`f) $CellContext`V$] + Exp[((-(1 - FE`ao$$309)) $CellContext`f) $CellContext`V$])), \ $CellContext`Vmin = -0.6, $CellContext`Vmax = 0.6, $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}, $CellContext`O0[ Pattern[$CellContext`V$, Blank[]]] := ( FE`OEt$$309 + ($CellContext`k0 Exp[(FE`ao$$309 $CellContext`f) $CellContext`V$]) ((FE`REt$$309 + FE`OEt$$309)/$CellContext`m))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[(FE`ao$$309 $CellContext`f) $CellContext`V$] + Exp[((-(1 - FE`ao$$309)) $CellContext`f) $CellContext`V$])), \ $CellContext`lHue = { Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6]}}; ($CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := (($CellContext`k0 $CellContext`F) \ ($CellContext`REt$$ Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$] - \ $CellContext`OEt$$ Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) \ $CellContext`V$]))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$] + Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) \ $CellContext`V$])); $CellContext`R0[ Pattern[$CellContext`V$, Blank[]]] := ($CellContext`REt$$ + ($CellContext`k0 Exp[((-( 1 - $CellContext`ao$$)) $CellContext`f) $CellContext`V$]) \ (($CellContext`REt$$ + $CellContext`OEt$$)/$CellContext`m))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$] + Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) \ $CellContext`V$])); $CellContext`O0[ Pattern[$CellContext`V$, Blank[]]] := ($CellContext`OEt$$ + ($CellContext`k0 Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$]) \ (($CellContext`REt$$ + $CellContext`OEt$$)/$CellContext`m))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[($CellContext`ao$$ $CellContext`f) $CellContext`V$] + Exp[((-(1 - $CellContext`ao$$)) $CellContext`f) \ $CellContext`V$])); $CellContext`lHue = { Hue[0.1421359549995791, 0.6, 0.6], Hue[ 0.37820393249936934`, 0.6, 0.6]}; $CellContext`Vmin = -0.6; $CellContext`Vmax = 0.6; $CellContext`F = 96484.56; $CellContext`Nu = 10^(-2); $CellContext`f = 38.9; $CellContext`CstLevich = 1.61197581; $CellContext`InvCstLevich = 1/$CellContext`CstLevich; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.408769355348136*^9, {3.4087694484784946`*^9, 3.4087694751310062`*^9}, 3.408777968329568*^9, {3.4087780379281797`*^9, 3.408778064905078*^9}, 3.408786844489086*^9, 3.408786923867711*^9, 3.408787077379937*^9, 3.408787231163015*^9, 3.408787381540905*^9, 3.408789339151071*^9, 3.408789372859098*^9, 3.40878962161872*^9, {3.409656551136643*^9, 3.4096565731050777`*^9}, 3.409656604221139*^9, 3.409656657020328*^9, 3.409656692098794*^9, 3.409800155238559*^9, {3.4098001918458014`*^9, 3.409800211523019*^9}, 3.409825225065648*^9, 3.40982528804598*^9, { 3.409977633234215*^9, 3.409977646912912*^9}, 3.4099778017809477`*^9, 3.409977863179803*^9, 3.4161923501798058`*^9, 3.4161925189098*^9, 3.416192558544381*^9, 3.416192620532634*^9, 3.4162778188021803`*^9, 3.416277889707838*^9, 3.416277933825938*^9, 3.416277974503883*^9, 3.416278130614502*^9, 3.4162781741372957`*^9, 3.416278223085311*^9, 3.4162783345440807`*^9, 3.416278374440221*^9, 3.41627853236252*^9, 3.416278624235118*^9, 3.4162786596914473`*^9, 3.416278846074704*^9, 3.41627896024618*^9, 3.4162793975191936`*^9, 3.416279439965844*^9, 3.416279505010384*^9, 3.4162795684349613`*^9, 3.416279599313499*^9, 3.416279664499365*^9, 3.416279694944427*^9, 3.416279761459733*^9, { 3.416279836645417*^9, 3.4162798891571693`*^9}, 3.416280002434647*^9, 3.416280068945673*^9, 3.416280113412251*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1125, 642}, WindowMargins->{{20, Automatic}, {Automatic, 16}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], "Graphics", ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], "Graphics", Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], "Graphics", Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], "Graphics", Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], "Graphics", Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "http://www.wolfram.co