(* 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[ 128562, 2567] NotebookOptionsPosition[ 111366, 2242] NotebookOutlinePosition[ 127854, 2541] CellTagsIndexPosition[ 127811, 2538] WindowFrame->Normal*) (* 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[{"O0", "[", "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, 3.450669078673538*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao$$ = 0.5, $CellContext`DXi$$ = 4.9999999999999996`*^-6, $CellContext`logCdl$$ = -5, $CellContext`logk0$$ \ = -2, $CellContext`logwc$$ = -1.3974539047268313`, $CellContext`OEt$$ = 1.*^-6, $CellContext`REt$$ = 1.*^-6, $CellContext`ROhm$$ = 0, $CellContext`V$$ = 0., $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$$], -1.3974539047268313`, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -1.3974539047268313`, 4.726137205156277}, {{ 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.84375, 161.15625}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logk0$31543$$ = 0, $CellContext`ao$31544$$ = 0, $CellContext`\[CapitalOmega]$31545$$ = 0, $CellContext`DXi$31546$$ = 0, $CellContext`REt$31547$$ = 0, $CellContext`OEt$31548$$ = 0, $CellContext`logCdl$31549$$ = 0, $CellContext`ROhm$31550$$ = 0, $CellContext`V$31551$$ = 0, $CellContext`logwc$31552$$ = 0, $CellContext`wc2$31553$$ = False, $CellContext`wc1$31554$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao$$ = 0.5, $CellContext`DXi$$ = 4.9999999999999996`*^-6, $CellContext`logCdl$$ = -5, \ $CellContext`logk0$$ = -2, $CellContext`logwc$$ = -1.3974539047268313`, \ $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$31543$$, 0], Hold[$CellContext`ao$$, $CellContext`ao$31544$$, 0], Hold[$CellContext`\[CapitalOmega]$$, \ $CellContext`\[CapitalOmega]$31545$$, 0], Hold[$CellContext`DXi$$, $CellContext`DXi$31546$$, 0], Hold[$CellContext`REt$$, $CellContext`REt$31547$$, 0], Hold[$CellContext`OEt$$, $CellContext`OEt$31548$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$31549$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$31550$$, 0], Hold[$CellContext`V$$, $CellContext`V$31551$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$31552$$, 0], Hold[$CellContext`wc2$$, $CellContext`wc2$31553$$, False], Hold[$CellContext`wc1$$, $CellContext`wc1$31554$$, 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`O0[$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$$, -1.3974539047268313`, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -1.3974539047268313`, 4.726137205156277, 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->{898., {223.84375, 229.15625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`m = 0.008942400716525734, $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`DXi$$ = 4.9999999999999996`*^-6, $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`\[CapitalOmega]$$ = 5000, $CellContext`tau = 0.06252615893239913, $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 = 1.9992462524531304`*^-6, $CellContext`R0[ Pattern[$CellContext`V$, Blank[]]] := ( FE`REt$$30 + ($CellContext`k0 Exp[((-(1 - FE`ao$$30)) $CellContext`f) $CellContext`V$]) (( FE`REt$$30 + FE`OEt$$30)/$CellContext`m))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[(FE`ao$$30 $CellContext`f) $CellContext`V$] + Exp[((-(1 - FE`ao$$30)) $CellContext`f) $CellContext`V$])), Attributes[$CellContext`V$] = {Temporary}, FE`REt$$30 = 1.*^-6, FE`ao$$30 = 0.5, $CellContext`f = 38.9, FE`OEt$$30 = 1.*^-6, $CellContext`V$$ = 0., $CellContext`O0V = 7.537475468695908*^-10, $CellContext`O0[ Pattern[$CellContext`V$, Blank[]]] := ( FE`OEt$$30 + ($CellContext`k0 Exp[(FE`ao$$30 $CellContext`f) $CellContext`V$]) ((FE`REt$$30 + FE`OEt$$30)/$CellContext`m))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[(FE`ao$$30 $CellContext`f) $CellContext`V$] + Exp[((-(1 - FE`ao$$30)) $CellContext`f) $CellContext`V$])), \ $CellContext`RtV = 59.410443560058276`, $CellContext`F = 96484.56, $CellContext`ao$$ = 0.5, $CellContext`RpV = 78968.50291339672, $CellContext`ROhm$$ = 0, $CellContext`lw = {40.622997532059344`, 1683.2057464595357`, 1.2663276662300174`}, $CellContext`logwmin = -1.3974539047268313`, \ $CellContext`logwmax = 4.726137205156277, $CellContext`Zf = 59.410443560058276` ( 1 + (5311.698045212085 Tanh[0.2500523123916256 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]), $CellContext`Z = ( 59.410443560058276` ( 1 + (5311.698045212085 Tanh[0.2500523123916256 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/( 1 + (0.0005941044356005828 $CellContext`p) ( 1 + (5311.698045212085 Tanh[0.2500523123916256 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p])), $CellContext`ZX1 = (315570.1132263711 Tanh[0.2500523123916256 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX2 = (0.2236967733044444 Tanh[0.2500523123916256 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := (($CellContext`k0 $CellContext`F) ( FE`REt$$30 Exp[(FE`ao$$30 $CellContext`f) $CellContext`V$] - FE`OEt$$30 Exp[((-(1 - FE`ao$$30)) $CellContext`f) $CellContext`V$]))/( 1 + ($CellContext`k0/$CellContext`m) ( Exp[(FE`ao$$30 $CellContext`f) $CellContext`V$] + Exp[((-(1 - FE`ao$$30)) $CellContext`f) $CellContext`V$])), \ $CellContext`Vmin = -0.6, $CellContext`Vmax = 0.6, $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}, $CellContext`REt$$ = 1.*^-6, $CellContext`OEt$$ = 1.*^-6, $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, 3.450669081054043*^9, 3.450669123064643*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1125, 642}, WindowMargins->{{20, Automatic}, {Automatic, 16}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXlYU9e27/fe++Pe9757be9tax1AkUGQAMokiLMWB9Q60Dreaq2tA1Zb LaJ1wjrVjg44KyKCAzIj8zwFSBjCkDCEBAjIKELRKhqSvJ3ssNmckxNGxX7d v+/od7LPPmuvtWJ+a++19jnqbdy5fON/v/XWWybgz//811tvKc9FA4RQmDVv AVdnbMpy5+KEBNgm7kT6t3uleuMbxxrVsqbI7T6WTVsrn7paNvPTRs87VUUC cNREx7e67HlpOVNhYt0x3qJ11LiaS1cGqhIBAQEBwWtHzg0vro5eps5Yjv74 /E9WC27fEeXmivLzM8+eZxtYKsYayMaMe2Y+U+a0S7b8oMz5kHzpfrnjVy+W 7nzh9EWHzbIO8w87TB1emDk817doHG1QFRM71AYREBAQEPQBcPIvSE8vMDQW 6Ojl6+oV6Izj6RrwLOx5do6RJrP4rKkKvTGKMWM7DFjta09Jt17r2HpV+qWH 7LOzslUnpEu+kzp+JbVb9XLS/OesqfW6E+qMLcuzOENtFgEBAQFBHwBjQXlp abb91OLRY4vG6BeNHc83sMgzss+fuCTefnXTBGtlLNA36NAf92TGCrHbrao9 ng/3eDV/6/lsx+WOLz2kq49L5++UOqxsmzBDomsumTRFxOMNtVkEBAQEBL0F KgqA87yNm0Sjxlbqm/KMJ2bOcWQvWpa6Ym2881q+48ziD2cK5s8VLFrIn+WQ vv6LxO2uydt2sbd/m73dNX/rbv7nXwvWbSlyXpuz4COuiW2x9YzygoKhtoyA gICAoFcQY1B+PORerWPEs5hceuFoTcDl6oBrVUFekkDPOr+Ldfcv1gVcrgu8 Wud/ufb+JUnYrapwH8kDn+oHPjXhPg/DbtWGeD8MvFETdE3sezZ2ynRBarr2 octLSrL9A4TpPXQjICAgIHilAPxf0Ql1MPjukGScde5XX9QG3mgIDquLSJTE pLeFR/4REvokLKItMrYtJq4tNq4tLKwlKrohh9eQV9CYndfIyW1iZz9OZIP+ 1YHhkrDwIo+LkSs3Zoc+KBcK8RFLBQJuYmLU6dMRn2/irFojuXCpoqhoiKwn +OtCGBIi9PYeai0ICIYYaCEAo0ClCspwIBKVLFsrMZ+Xf9i1NiywKTGnNjWv IT6Nf/Fic0zis6z8p5m8p5m5Tzh5T9I5TxKS29LYLUWlzcWipkJhU1ZBXSK3 Ijq9PCKlIiGjPDQueJzdzeFjr1ja+i1c4rXc+ecFC/c4TNltPP63d98LGz6i Zt16SWrqUHuC4K8IEAj4b70FDoGODjh/RaOkD9GCNzw83MXF5eTJk3w+f0gU IPgTAY8FIApUqSAuLc0/fKzUdK5w5voc971VUQ+q0/IakjJaElNCJk9JsZ/O v+7VnFPQmlvYkp3fks1rYXPApZa4+OaU1EcpqfVxiVVRCeWhMSWh0WUxifyQ 8O8/GLln2Du/Dnv/0N//8fXf/vf0P4dFvvd+wwjdjgkT6695DrUPCP7SKN28 uWTVKmU4GDasPClp0OXn5ORcuHBh0MX2BiAGBQQE7Nu3z9OT/MoIqBCks1Nu 3ky+dSs3MbEkPx/M/8uFwjI+v4TDKYqN5QcE8c56ZC1emWU4NdPOOWOhC9fd reJBYH1M0u+xSY/SOckLFj3UMc4bZZC0co0gKLQuO7+Ry6tncxpSMhrjkxoj ImtDgiVBASJ/v5K7t/N9bhUEB2beu/PV8A/OjxzvM1zHb/jIsrF6ckMjhZ5e h4VVddiDofYHAYESICKAcFDs4DDokocwFkD4+vqCcDCEChC8mRALBNX3Ajkr Pz2vb3hk5Ae/WVl62NoGWtukWdlmTrLhWNvzJ08rsbARmjlUWs5usJ7J27e9 +r53U0RMU2Law/Ss2PlO5QbmFaY2pXqmKfoTEnd8LQiPrmJzq5LYkrgkSWS0 JChY7O9fcvdOka9Pzs0bOf5+/Lv3ci1mSEwdpJNmyFl2cpOJCv3xHRYTq6Oj X6mlQm/vwcoDl+fmKqW9shwCwZADrAhgsmjQawdDHgvA6sDFxWWo8lQEbz4k Sanir77JMbVINxgfbTSeYz6xzX66YrKDwmKSwshQoT9GYTBOMX5CjpuL+N6t h5HxkvhUUUp6xDynIiOLIpYNn2VbYmqTO9YkYpJt8vEfBFHx5XEpwvCoMv+g 0jv3Cn198ry9Mjyv8e/fb4xKlq8/IluyQzZtldxmvtzERmZq9TA4uPeqAiqG v1NwgHPUDhb1Gn+/cI6HDvARXQITP3z6R/kIoL5lzx7UUnb8OBoI9ASX0C3w nN/50g+gBkUfujRcrFIOi4UPrUxTdBoIExdIeWQUaAfEBRQABwpP4ESgo4Py 3vBeJBwRXdm5c8iloA+0C9xSsnAh1BlqhfxMvxGOArUCfaADgRxgI5AAtaK7 DmpC0QqqDYZW+5bFgo7qugsY6O0NxgInoJHuQ1wZCiia4/4BosCh/Cq734i+ 4m5yGBxF9wwTtMcCwNLh4eGURpjnpwg5efKkiwru7u7x8fGo/bffftu1axdo x3NBuFjQB3wEqwMtOkAAOUAaRR+kDBgUDA17AmVQcAEdoAIBAQF0i9BHmK1C QnArcOGwD/gbSqPI5/P5wJlIVdATnMNqCBwINMKreFqM4g2NntT+pYAhoA6o BZiP5ODeoDtE44javaFFOFzlQUfh3ynFRqAAuJFumhaIU9PEn216PMmm1ca+ berMduspcj0DxVgdhZGR3GySgmWb5ba95M4tcUScMCaxJCHZ33F+qqF5Bsua rToyzGwyTCzDdQzuz56bcsajKCS8ODCI7+PD8/LiXL/Gvnq5LDpRkpT5cs8F 2WcnZU7bZVOWKVjTms5c7JOSiGNxmsUDBE62iDPBCX4Or/YjFiA2A41dxDXg WICqloj8KZ3VQUfFnIiiwUcwND0IIsUgLaP+XVZA2uwUDg2HhkCBQIJI0/SY cqOaz1Xmw3O1EBYLaUVxHdRKyerd3QXG6gqyKrvAgRQA40LFYB+NPoRWMyV2 cM3VgWDYMKVMHR0Ua+hfB2VqweQoumeY0GMsQKSHAFpw2oE/bUAXASoAuoMk AAkKcgJoB3+DPnSxUJoWZgBXgYZIOPgI/kblZqQMoBrUDQwEhoZ9gAJAOGiE lEWxCH2EcsBdUFs4ELwFGgKFgKs4kVLkAwWQBNCI8zMKEEgIHhkRLWv0ZI9f CugGmRn/RqBWSBPQSFeYaUQt3tAiHKoB7ALt4G88xCOdgTPBcECHfmwYEIvF VWc8nk+bLbObLrWdJTWbIRunr9DTlZvbyCd/yHZ1KfLxKg2L4ofHFEbFes2Z e0fP2N/Y4j52BJhY3NMzvjJqzO3lzhmXrxT4+OZd90y5dDHH905hbHJpXGrL gcuy7WdlKw/Kp69tX7ZJ1H1zaY9AHIL/9PAAgX6eKEBQGBVRbl9jARoFMTZg rUGJBegq7Ny1oaWzgomkoYEA+agH6uxM4XYYOJQZrc4OlGAB1aZfhcPBEwr3 UvgWNxkOCiIC5RLV/M5FBGVc1B+NBXNxaoernABaIOVqJHyK/ynANVfP4TsX Fyh04uZD5+NjaXeU9kiEMPBYAG7X+NMGbMD0k8fFAjKBM0kmcqDoACaokFQ1 KgMBRKGJKBP5Uz5COfglQFnQM3DpgbgUfkQ98XNInkgCnDyjbni8g+GAIoHJ k9odAkMVnMDDFigHvwV8RN8yfjvTiFq8oUU4xXyNNsJ1InJmX1FZWVkTFS39 cJHCbGqHnbN03jappb1cV0duYZfqui3P+3pR4ANecHheWMT5mbN+Ga13Tt/4 bPcDtHjoG/8yQveUrt7djRsTzpzJuno1OzQqLzK+KDrxofuVl67nZRuOy2du qL/Xh+wQhPpHpyJhCvOocxSdJAkW7DiTiGhr+T7HAtrsfbByRGh0eBXnImQj kkZXA87JURBUB4thw5gMwTvgUYZJKybJXTaGhOArFwiNqw8kiqIVE5NDJ6Dc C1zj4KYh0B2OA9cc/hNCy8Ou5U9nkk2dslNN/rsCtFZH0X2uEQOPBUwbgQB7 MG0QwmeJkLQ1JqOYdIAKoGwGPRbA5Azs0KdYgLMijGUah9ASC3Dh+I2UcWFm jLJU6eWWKoooSLn4WHQ5yBbK7UwjavEGk3BY98FJnm4j6AlUHUhtqKKioqqq qjY5tWP6Yrntx7IV3z3acrpt2gLFOEO267aiOzdLH0QXRUQXRsZemj3nrK7B RcMJGo9LRqYX9E1+fW/UVXOLhGNH86LiBIlpJXGpVe6Xn7iel288Lpu/tTqp z3pChqEk2NXpdDTtV5G/RnrB+acfOSJ1DFq4EPLGIMYCmMKCVAnvRVwEzYFD w9tRsl2d2FdFPURE9CBI4WGcw9E5kEw5RPQ1SPeJOm6Usl7QGaDVzsEsQh+R KFH3pQRTLEDkD4wCQ6C1nsbavRYPdzM5JAStd+i+RcoAzaEn1QsorY7C5Wv8 fiEGHgvwHA4EmpBT2gEgVyCxMAoAzgFzZjTV740OgFKg2hRlAM+gPJLG27XE AjSJpZjZ+1gAc0TAKMiilFhASf7TVy5MntTiELgogJkcprhD1wRXXuOIWrzB JFxjUMZNg6skpojfS8BYAFYH9UGhcqslsmX7WlzOFu4+1zxlTrabi9DftyIm sSw2qSQ+6bbj/FBDswiWlYbD1CrceGKUuWXmcqe0vS7xly6UxCWJ2dyKtCyJ +6XHbuc6tvykmLez4YZfn3RDVIBOYDv8LSvrlaoTOI18FbEAVg/5WDF6sGKB ms9VVAkJUEmqKiGQLdWTf2wpBMMifqBcCr97KZPOw3wsT0IR0iUNz9LA8jFN Mr5Aw0ur6NCwTEOrKkwrevzCPQNHwQ+N5WOUsoMUDcMH+uLwG/E6NTq6fKtS DC8uwC9Ri6Mo8pkwKLGADqZ2xAwoYwAzJ3Ty0a4DuAtWH3BlYN0WZr+Zbn+l sUCkmiTDMgHuChFDLKB4g8mTWhyC8jD9jgUaR3wVsQDGHbo5vYdYLK7sBDh/ tn6XfOHOZy6nha4X8r/5Ofu7r8QBvtVxyeLEtLLk9MD5C9INzTlmNlks1dF5 kmlixZlgWeg4u8BtS8KFX3kRUVXZ+ZVpmVVsjoTNrfn+8iPXM9LNp+RLvpU6 bqrK6kMuS508UbEHvn5HJIwWCKLByxEhiuimiWpGjRdPBxgLkG7gBIrCAxZo VM+QMT4XoQ2u3t7q5RJlh0/nWBpWCnAmrMqTUDYpdc29vb2ZyJ+yowlPDUFb wL0U8qdXovF9SspaAHNdGLlU6fPuGR4c9DCtXFB0kjNFc7VM1fdISXDh+TqU L9LuKFH34hETeowF+LwRru7pOSI8Sxyg2oJCbxdhfIgoAmWYYT6BadsMPRZA 2seVgXkhes/exwIKlfUjR4QAHAX0gfVTjd1we9ElJk8yWYQWBRQl+5Qj0jii Fm/0O0cE12sDWRegh45hLGg9cEo+98uXX/xUu9uDd+Ay96hbdeDtuoTU6pQM UWpG5DynYgOLElObElNr1d82JSZWJcaTKqY6iF3WZXicSvb1zfa7X8fNrc/m 1Wdw67Jy6tjZdQc9Wveel244IlvqqrBb2b5sS2VOXi/V65aT6Zy8qTMqqh8y 3mGwasdw3wtsAYSGT1whL1GyHJB8ENGp58woDDHPG1FuHI8FaGlAKRMoNcG3 1FJ2+HQvZaLRUcYGJy54FW1hpVCculzLYqmdprpR6RMsEdQVAbEMiYZtSN3Z XmP5GEnGgbfg8ZcC/CtAkRoFMsqNuEzKVis8FiC1lZFRq6PQcFrCWY+xAAee lkG8DRrRBiERNtWnFBlROkjUSUeQvVH2mCl33ctYQN/pqvF2Fyx9JKLFApyp gFGwZ59iAZ5jpxRPKbVjijdEzJ5ksgiXT1kf9b52rHFELd4YSO1Ye2FIO/AX UCjfRFQmbP9og2z2RtmG4627z5fsu5B98kBt6L3mhJSGtKxqdlbcfKcKffOK CdbKw8Sqwmhi9SSb2nVL8391z/T3KwoNLwh9UBQU3MDJfZSd35yR08LNa8nI btlxom3Hz9L17rIF2+TT1ynMHF8sWCNJSu6NhvQJG/gBohMRVnWF/Xu5pxTu MFfvG1dtNcSTJygVA+elkFHxPaWwMyIi9WbFTmnKjywWEqLlzQbIOjwWiLCl Ac48cBMmRROU5Ee7H1FCu0sfHR2UckGhAdVfkDTkQ/QRv1FtV+coXaWK48eV G+9XrVLq0NkZsC5c7KBd/XCnq4hhn5LSLihBta1UpIpH6swPerACq0EjoLUY WsWoBaoWU5SFGxhCaS/4hwEU63QOvKRxCgGDiBZHodoKfZMqQv9yRLtUADcC Psc3GUKKhmEC368IaYGSw6ewCj537VEHuPtIhHEgvvMTjgjfcYGWNmiCCjdV QtaixAKNuyiZYgFdPgCSAE3GGRiGoYCe9pTSPanRIfiigKIk07ZPusJMI2rx xgD3lNKjTC9BeTddXVCYzGxmx/RVspWH2refqXHzyPvxUENEwO/xiY/Tsuqz suMXqGOB2GhSJcuybum80qO7Mm57C+KTHqamP4yNKwwJyw8KauTkNXF5j9jZ LTkFTzLznn5+4I/Ve+Qf75PN+Uxut1xuvURhvVDqML/c06tHDfFdJXBWCX/O +C+XQrngKr6zXeOzZvg+VZwHELGgeoTywa7uueuubAk2KUUjwkeZ0Eft+88R 50DFEKGhpQFlvkrJeCuZE5u64wfwFSofIzrF1zsiVR4JdxRav6D8STe7zp3r Zhe2J0ejf/AHQPDwQd9cRKmDoDiLlyG0vDuOog/KU+FVclRwxwfCTaYEFMr8 n8lRaB6CatN09foXC9AjV/Be9PARZSMNeo4JsiKaM0Ox+GRV1Jnkoe821KgD 5HNR9+UAPhzcKo8vasBHuG0JDATJTdT9WTN4if50FX3FAe+iyxdhD1vRTQaX mJ41QwYyeZLuEBhQ6M9ZUOS4YI+DaVRY44havMEkHELLs2Z4jaMf4QCPBVV8 wfN5S2WsqVK7RS8Xbm1fd+SRyy/5PxxsjPB/EhvXmpL+KJMbscCpYByLb2Ip mjND6PoF58bFvLAIcXxyfWp6fXJyXUxM2YOwvMDA+rSshoycxjROMze/NTPv 0X/2PV228/msTR32q6VWS2Rmc+TmMxQWs+QTpzVv/bqSncGkHn3vH+JAPp6I 6NxohN+r8R0UPeaIKBK6NOnM0jOqquqAFy5hHGHqD4G2A1EsEmGcSZ8SQ5bD hXfbHbR5M9QE3/QI8/l4igk3s2e78LEY7IJy8CHw58tgDgdpojEpRNeQqTMO ypdI4X96RKZ/lailm/J0J9MchYui/ANA6EcsGDj6JJbemak0MJCxNJY+B1G+ lm59dTKkcUpCpvf692a4fntjIIP2CBQOWj//smOC5Qsz+w6ruVIH5xeLdzSu OZh7dF9d6N3WqKjHcQlNySl+cx2TzCcWfrmae/7HnKAgUUx8dUKiKCauIjqm Njq66sGDsuBg7n2/h7GJDxPZkti0OnZOMzuvddOxp8572ud8/txmkdT8Q5mZ o3zCNIWxrcJ4svKJBoupTZ9uqggIFJWWUnRDczzUgnIUeKOW2iIFfYoFrwFd j9l2JqjRJWQ7npTQDsojGPTtoK8f9M02Gol3IKDUL1AOX13e7f5A3OvHny4W wDwMnuUelLH+XLEAf7Aa4q8QCyBKN2+VjjOWmlg+NTRvGm9TbzZbYr+Kt3Br 1hG3Kv+bDcGBDaGhteERwYvmp363I8v3ZnFQqCgiUhgeWRwWXhQaxgsOLggM LLp/n3f3Tuqtm+XBEcKY1LLI5MqkrMZk7vP1x54v2tFuvVxq+uFzm3mt67Y9 3n+08bRHw5Xr9ddvNnpcbtn//eNde+vOUn8yeNq2U0/1Dx/fx0LvxgSNsYCy Uec1A89aUKad+KXe8DksntKfwu7xnTmvFCAKwBoHRSvt2bM+yacko/B/Hhp3 Pb1O9Gkf0QA3h+Ni+xQLKO+gAEyIaBAVkZmQo4J24aIBsJ92+fhAgxgLXGhv cOq9/r1R+M2MBWI+v9Flp3S0XvtovWYd/VpdA/E408oJU/iWC7jzN7MPfyv0 vVJx20d8927F3bvsX37i3fIpuOdX6Ocn9A8QBgQU3L2bdutW0s2b4Ei/cSPj +vWYy5cKfe4JQuMFgTFVCRlNqdkvlu6S2q9qc97SePZKZRaXURVhOaUB/MxR zVHdRZV2oDTCMmVvuIUSC1AGA3DFUE0d4bvX1G/j6T5VVpYtOi/17y2pvXxn zmsG1GqwHA4rI/gBn4ODVylv23v96NM+osF6uXRfYwEaHZYs8as9xoIehQ8w FvR+oEGMBZRFgYh5G1X/8AbGgjqfuy8dZreN1qscz6qcZFNmaSOynsw3NM3V Mc4yskudtSZu6xf8O54lt31L/O6V3vcT+N8vDwoSx8RWZXCqc/Ml3LyatIyq 6LiywED2bd+YG54xntcjr1/NuOldFhYnikx6XF4lCY95OWXNHyu2iAXFg2V4 vwGJF88moULzEE4dXx3o9r4JgKn41/MOcBQphuqV40Pyzup+lA5fNQaXS+nQ YvJfwRsDsVFcUCD0uBS2YWPAvn25AYFlXK6wsFBUVCQqKChLSuKdv5D00epQ qwVBk6eyf/lRxMmqKytrEoubJNVNdfWPGpqaG1VHfcPj2vqW2rpHNbWNVTX1 5aLK0tIygaC8WNAkrnjyuLW5srJg9vJnJrNqb98fRMMJCP4sGPL/v4CAQDvK i4ryORx6Oyoll2Rnh9rM9dU3uG1sFD53Lm/95kK3E5n7T7L3Hc84cDz7yClw cA6dyHU7LNj1XdZ2t+RN38R/4Rqzcfcdp6UHpzlEzV+Yu3RNkdWcJvMZTwys qkPJf2FG8FcE/C8GhloLAoL+AIUD/9mOv777rzMjxwpt5sk2n355wKvu2C3h cW/hiZuiH33EP90S/ehddeTKHztPijYfzV13IH3992mrD+ev2ONtbLv5nbfL jFgS44l1hmaPdA0qfe8MtVkEBAQEBH1GcWrqiVEj3N9+98Jw/fYpzrLl+2Vb zj1zvfJ4v2fDYa8ad6+qIzcq3a/XHLjSvPlEw/rvK1YeKll7VLB8j8Dxy/Ip n0TomcWN1i0bZ1iuZ1Sto1d67MRQG0RAQEBA0EcIhYk//XT83Q8O/t/bybrj ZfYfyeZuki3fK/vsZ9n2Cy++vfJ07/W2vdceuV19vPvi75+ffLrm2O/Lv2te sf/h3M2Vk53LTGcUG1lmjtFLGT2mYIxe8Sjd4sXLROXUbUIEBAQEBG8yyoXC 7ISEI6N03P/x9gsTK/mkWbLJS2TT1ypmb1UsOSBf+4Ns028dm890bDn9cv0P L1cdaV+877mjS9usjU8sltRPW1ppO1swxpA7YnTsiFFxo3TYI3W5hsalmsoT BAQEBARvMtJDQjb+7e/JI0bJTSbKJ9gqTKfLbJ3anbf9sfXwi09c5bO2yRbv lS12kznt7nDc8Xzqhj+sVzw3mdN44ldxfoEIHIFBhavWJI8dF/De8Ij3R8Z+ MCrbq+e3DxEQEBAQvFG4fvDA4X/+U6GvrzAYL2dZtbl8I0lRvyJJXFLa6n5G YbtSPvU/8qmfdtiueG7u1G44/ffPvqII4cfExC9zvv7Ov/3+/X6E02KSJiIg ICD4E6FcKNxuZSkcMUqhp9f+oWNNVDS9T9s37grrJfJJ82TWTs+Mp7cbO1TH JWqUxr569byO7uVh71RpkkNAQEBA8GYiMynpxL/+pdDRa/n6G3H3Z7ERKvIL pbOXKV83ajb9hZHdkyWrRUIhk8CCpKRTxkaxM2aQpQEBAQHBnwW/bNvaNHJM ncdF7d3q7/grJtgpWA5SQ8um33p4ARqfw/nFwlx89drgqUlAQEBA8KrAZbOv vj+i6ezl3nT+Y8knCqOJcmOryti4HjsLcnKiXbZXcLMHrCMBAQEBwavF1W93 N+4/2svODVc9FcbWbVYOpTxeb/qX8HilJBYQEBAQvNnITE8XnPq19/3FZWUd 9rMfLVz66lQiICAgIHjNKC0o6Gt599mqTZyPh+z/jSIgICAg0Ij/B4IFulc= "], {{0, 0}, {516, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {516, 41}, PlotRange -> {{0, 516}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrintingOptions->{"PaperOrientation"->"Landscape"}, ShowSelection->True, Magnification->1., FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 69, 1, 27, "Input"], Cell[CellGroupData[{ Cell[639, 25, 364, 8, 89, "Section"], Cell[CellGroupData[{ Cell[1028, 37, 95, 1, 34, "Subsection"], Cell[1126, 40, 1497, 28, 92, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2660, 73, 148, 2, 34, "Subsection"], Cell[2811, 77, 7723, 129, 112, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[10571, 211, 102, 1, 34, "Subsection"], Cell[10676, 214, 9143, 152, 160, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[19856, 371, 126, 1, 34, "Subsection"], Cell[19985, 374, 12733, 211, 285, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[32755, 590, 180, 2, 34, "Subsection"], Cell[32938, 594, 1932, 34, 126, "Input"], Cell[CellGroupData[{ Cell[34895, 632, 49620, 1095, 19, "Input", CellOpen->False], Cell[84518, 1729, 26808, 508, 471, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature @uDZBjn7R3zyOAgRoO4BwTOH *)