(* 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[ 134569, 2605] NotebookOptionsPosition[ 116388, 2287] NotebookOutlinePosition[ 134089, 2592] CellTagsIndexPosition[ 134046, 2589] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "\nVolmer-Heyrovsky reaction\n", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["H", FontSlant->"Plain"], "2"], TraditionalForm]]], " evolution reaction (HER)" }], "Section", CellChangeTimes->{ 3.404105671464055*^9, {3.4041058687932377`*^9, 3.404105894346611*^9}, { 3.404213587340118*^9, 3.404213726194797*^9}, {3.4042141164993563`*^9, 3.4042141198459053`*^9}, 3.404263543202744*^9, {3.404428502542997*^9, 3.404428526361329*^9}, {3.404803514291835*^9, 3.4048036710571833`*^9}, { 3.4048037326798973`*^9, 3.40480375081988*^9}, {3.404803802948029*^9, 3.404803841092787*^9}, {3.404803900224763*^9, 3.404803903078836*^9}, { 3.404803944287771*^9, 3.404803994883864*^9}, {3.404804025477119*^9, 3.4048040428945847`*^9}, {3.4058481919806213`*^9, 3.405848194745288*^9}, { 3.40920423621765*^9, 3.4092042366118298`*^9}}, TextAlignment->Center], Cell["Reaction", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.410151720218337*^9, 3.41015172165478*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJy1WctuXEUQvZmH5+FneAfkxCQQXgkLi4eADSsTgkBBBMshbKwIKYOEgkJW /gRvYQFesfUf+AOQ/AX+An+BlQ8Y+nTXaVff1O2+HsNIM9e3ux6nqqurq9pf bz95+NMv208mD7bXvni8/evDyYPf1jYePXZD3QtVVT1138/XKvw9dX/Kz9Op +7jJ8uOOf3SnR0dH0/39ff/2d5j6VqZ2dnamJycn/u1nGVtfX59SW8f/dqcH BwdT+VQ3g4gPhHxvby9OvWpofN6gu+t/5zzd6urqdHd3188DjnsuGixXUq0A yanXlDEce86g+97/9r3Wra0tbzi+Tk21aNCLymVhgw8AFr7B8/j42DGEOYjj HEQ4KNUrhsjxjLI6wk0+mgpaeGkymfgxPJ0sy5oFEe+mPRlZnO+rD2eE1RU9 5HOerZYaze56b0MOdHZFgoSfwlhdFPKNjQ0PF289GQNsQAC0S41mlnm7EoII U0A/PDwMAty8+7sjLBAh4qNorW5e0YmYSvPKQlVvyRjUIP40bwlqX8aw0PSy tcJjpRe8oOsovfA83hZTL8MDsr/jgmJRoMqxxE1tebnEO/RjA2+i/hAizMu5 FW4Q3iTYSHddmUzzyFvCxghA8pFk5eeByy1bycNUpz0MVsPDkApL6laA3GnO erjEOxQrEFSgxRwsgpXOc5YVdJAY6t9u1uIECzNuCYGOxDtUR0Xu3fE1Quh4 LT3vfOAAZEcfEkjM4NAMRFiyjiwcjyiHrHpB6LA7MO6+gUIsrI/p8Bm01EEn 02qVAzFPMZhuA4HRNvWJNfDC+NNsH1IjUy4oGEv6dH5JTmfQ8BQftTSJiwYT 6BK4UPIfTZrFq30RTXGkR2w41cn6Djynckjcgs6AeLLr0FlswUcnsLaAwdyn uqiYN+RbqUfz8jR4W8ZYTSCW51tg64mPMAbn0zuOJ3N2DqIMYOCZKRte+KTU mmNq8h/AAJsjGxrSV4yxpbyYkUzDOXKU+Q9SR0PerJ+S+mSCGFmT6FOMMaAX 8mheblQ3p/dFZHOqEm/1/SLI8csdFwNIEnrBVbYMfVhIsRV3tkqTZhCyWIN/ WaxJrVe9I/QqyGRT2DisOpQ6KV9j0xtkIXUVlhjTPL7BcFZXWTJWDfrbGXrL pCsBajgOerEylnzWFuWyzW4BXBeALNVYk6ME7EpmlmNTOeAZ0UVbuvE8R6qd kzFI4TnQF21qi8T6Qa/msiHvskHHlg3bkIm+J4leVXLVi0KnS5+OWInIhPVS PKwYqi8ZqmuWIz6lrIj7SS/hVYPultjKZI1xVWLH9QIMJmlaALS6hGdyR8Ja MXR9FuDSESolmvvimkF3S8aY35HP6zXlKaRRLArkcI9FHz4wB569aOj5NEB9 3YD1yP/OxZKGH4h3IkIt0PcO5fJLqVN9k0rVLTilsrQDEG5iB3QogYKIoC2O RAT+LjqZ6SEEupHQ7qckynH+i1pHSP5QhjHlMuU5tnuaahB18MMTGt7f0jrH sdKDXgEeF4AHumPbDFzptcw/4it9BtxIp5jz1NRXMqU3i7V3N42VeC8VoTPN ZWMsI+K6+Py/uwspXwrkzkf4G7yAKpdHckU06x1LKLQwJpV3EV/Y1EntctZL i7ade6lVrvekCMvcDQT1trssOXUNI6OE943UNbPcNLRtuS3XkJdtG2D21Bjp rFsE8ra74Sjjq7liliuBXNOcu61gl4G392urBGGjlphGGf1vBvNYm/6fTXuh vTxP58rggCjWmtzyszTjw5buGOVNSpx79o65TQeZix+GMbYP46LUCVNnuUvP 4xLT3xUHZVtSq5I/U2OYualyeLmrmQSxJRjvumGlkgas4zyGxOB8Y6lLuGZr y01e7oAFHQ9YPLXRugElvYW3LY5rqelW49fWdKus+TIj96OgOlQ5z7Ro59Ea tsgoHqf8PwOeiBpWkEgDDc1nAi5toZjsSt0gl6BUPZ6/80vHrLbv49Qc3U7p m2mq+sH/Ls3UzrkIzaHSqgXVDeWAepWkUd2XsXZd2yCeHhq50MWbbq1T1vwT Q/WP/rexWxvWUODtdipNF/aU1tClDZQ09l+hj6j+9A+7RdtMSawWTUj+UtYY LdpdTZVv0b7TOlu3aOE/4W3+nW4+qgv/AlTDxb4=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{243, 64}, ImageMargins->{{256, 0}, {0, 4}}]], "Input", CellChangeTimes->{{3.4101517257746687`*^9, 3.410151756455851*^9}}], Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}}], Cell[BoxData[ RowBox[{Cell[GraphicsData["CompressedBitmap", "\<\ eJzNnUuvHVeVxw/3vO7b9r12iB07naRbPCwGYJD4BoEB3UKIgdVqdXeIkPAA NQ1MyBQmifgEEQMeAxQhMbaYMconyJRJxAfwJ7jU2nv9dv33rlV16hjbcUnX 55xd+7Fee629HlX+93d+/qMf/vidnz969503vvXTd37yo0fv/uyNt//vp13T 8nOLxcF/LhaL776xsO9X3Vf/p7/+y/7Rlpex4Tx9X159/PHHV59++mn69VVv s9/Wbr/eC/p9LejH2MePH7PcYhOMvRmMvRS4zmTMe+/l1R94m/1mzEr6PXny JP36/2Ds12eO/ZK3vf3226VtHcz3SjDfRYb/T+nj6OrRo0cmEgxJ3Wxaa3v4 8KFNv3jVp/nwww9TezdmceCLRv3vO+AGGve6+Q99mgcPHhSoLxowHMpw2qVg bXN04CxueJvNZ21KMWv74IMP0q8bDm67Tjd3h4rtieXVvXv3ijR8vukv5Ol6 5v52j/5fjlHejqK8KdQUJho4ETQH/wTmG7/zySefFGp231+35gObaRPA+Eow eSU4Wc5clRT4tO2Otwm1w35fCdog20cffVRk+XLmuuwDA93aTHKglc1lcyqt lIvXXRplvnTZXE63xLbus2yKITyrtIbNa+O6zwhFqK4o3vTlVUDHlldW74sm 5LW5vH1xz9tM1ZmY6ViF8dVgjbzu4rc+uU1rQoNwG9h2ZbVh0n3E0EISQ0P3 vvXK5DhOO8E1cprPQOa3jTUt3o2JhGHpU7DX7A9w7JOtauB2v7OMnSfk7JYR 3Wa3vcTeAQr97UseJBSXRVn0ECzLVPbrxAXVflu79Tekut/dHKaS8nYFk649 Qk43LlOv/N+GB3nWZWnqyFcgAwqF1iCqN9Qctm4KW5W1Aj3asevm+3mcu41k MIWt6nvhJeAuUCl3T2dyNxBdpc8L4i5G2ZB0k+OsWQ84bmZnIxhzTFo6YYUK 6bLvygPd4LaWUaVgvymgwkqfbh1g4hrnd0I3G2F0U0FxEnvbNg23he2z4W5R itjY7q8jgf27xJYKy48hSFnbiGEIqVlP5rynLzRX3Q1GbT87aGQ+nCR+Aa7v uDSWJbHSPfqbavvY5ZLI0rLrOlxqKpopOfClbUNjCa0/FDTs2LUtBa2PUeEq sMYGImKoZgX0bU7EUEWY+TbBfBHH89ijAbw2F6Rjq0AT43LLeTeFAs/hKOd9 rbwb1+k2u8FQtQk/Q85DTeX8ySjnzyrOv//++xz803JjlITbz1MCDpv5bF2k Yh4Ha1j0rMmZOaIV3LdxDkthCWf1bg49M0FSwFPUXIP93plmUIthYVbVzmiP Sx9iwBqhZSVbYRMMwYQbHdVE2283muV8LfhVvqcrbKfDRudPl+u9lUwD2VEw bFBjWSv1aluiQ45hy1l14+i0RBOJD+E4nUPsdcIU6YY6OG0jRF/5UCMCAmdT ZEF8YcRfyjQgzR7fRfz1BPbs4WfBBGI5tg5+4U1fm/MfV+vo4IpGeKa2AzW5 WOIr0UJoK7MR22CW7AGWbclJyYhnABjQ3bSMJErRNTsOq0JTd6ejrtsMavfT daUfsorHw/nBllcQVGy6z1lbcV3dsssEadsT6hCsSgfmcwujglih4GoOrmx8 OoPY25AEuGn0j5jHzhyh96HTlsO/n5Evp0i+KnvV3YXNi6F6hB4SySkhHxD2 5cAAf40hPAMmsDPVerMzbTqJSCUqsqf8GF9hOtiZEvDicmuNKNn0ddBqcmvC EY5Iro2Jgew6xi8dMT8GpHvu7yyu+T2jFarN7vfb/KR4ddAU4mDjrc1d2ac5 k584G22IBOYwKoSCYBnKvafduhCILWCivpb+nETO5hF019lKtc1nTNDo+Hb6 4giasD0wQOaeS1fNCkQnjD5RXJ9dNjyf9qEF12TEBnDW+uXyxiXWFyFSnVHX emrGtV+84cPwicxipyWv+0oGMmzvEGcZUU1ZAHN05VpC21C1yQwO2Esg3kip QXZwsNHqftTRmG2ak2gMsVQXNd8B6+KVSfDB5zyskLdLUip2D45okEKnben2 5stEN+RB6Xb22dHtXHaD4UvExlypy5FpDW2ZFpOjFtCuKqS0HfhyGNLeD14X RcH9RbHx9T3HgDTJHwQCVB5ee/f5uuPNGcV+XTjrIaf/wfrhgWJVAPAcEl6z +tVviaQRsI/O7jZVHdLN4zTQfz6N1L88F6TuBkj96zNE6pq34RrYr1syF0YJ sEzMOgzLscaw1ainw5kwrPwRZNa8LSyYBncAoIRE15Uz5DDXArbUg16FHhsZ 8g1DCH2QQpXnkCN9KNttWLLByJqmDd90DpJYch9vHYCKucIMunt3fSZWrP6s sYJaitVb/zRWFzKrn6RLbUGEKWcdbSP6qm0KZV56WwwA1yBSemBf1fGQY3EL uBc75BPAcdHIKPomY0fs4DUHCJtghFUXXxfs0PesyHF1uFL1wjzWJlpOqYTk oWY8QYVlE8AzXAeJB0tASObs2n5Y3n2+WN4NsHzrGWCJLOLNG1CXYxP4zqkT SJuqZMEuh3EpUzON5qbw7lTRo2HTUdVOxpviCXC6dchdFv+WZbhrmNrbBgLe sukDY87rAt5UFdF3nnqFe8EKUf3RN6Qf+/cgGDtRf/T3ADQN1ND2x5n9/lJP q0nOPwdtf83diwS8DFViz73hF+mjLhv7btCW/v11PcZkH7ZqOIft1X3/dtA1 msrutYESLeX4VtBP5zlKH3F695bcw1VwZYb1yHFo8QVKcBwNZgMk95tc4c5Z 4BaHMrxcLSbQKewUzkkdd4XdJq6Mz7+Jlrb+50IO94QWGpXF282b7bB4PBwN 0OPuTWWFdlLSb3Z5LKN0U8zMGTry5QxLbP2NACxNI7ScoSItmh+dhBnhL1er Zea0Vs11NhUJik53C7VtK6B5Nv4vBAIKGyrKcsia62OsSatpOYae29t+X8zS SzJJo/ukyXYF/TKIwwIr2T0Yr2LKtS+Z7kzv03KPUHVb4ABBvR8+MWFgLnzz UmgyvjLOinU3YpnV2UobB5H9MqJ1VhOJtH3mDjPHRTmElmiDXcbXlPrOc0qx R4FOKi+r2kWwiPLE5K7m1WScAUYhrBadSB1NUbx9VWkfe7OLIMaBy4uiTbBQ 51H4jWoer1xwIJLN5Xv8dJA+CLidvvtpSD1CrdVd0C/XBIfbI9fsHQ/E3ktJ 03dJ91H+My75q3LPfa02mi4IVS4YaQXKM2YQoRSSasLw0kXL66qq8X50LMQH s6uiAFYlQO26h4wRXW2K7u+Oj4nSkrlC9jCJAKFu+0RhunghQRAGbw/9iYLr AV4rwAlprXERAhcEZb+Wox3n5qeROGcUEqdpm/0kbjOQuGrqGpuLPaTO96pK HVJQS12dWQuKTKd0LYKn+bBXnJ942ZTkoo1wffr82LqMx0rY3Fu/R6wCDWMa 6bbfi3Jut3x9vDcbR8geaqKRMm7nhTyEg1t+j8DfVhibQtRSqVbxqTexfPEi t98ZYJZownSYxbGMk0pf23NZGVDMAmYCBiMAtI8cExzEa0WftNRiw+v8aF1f uxzyGcefnd5TTuQpElSrEux1jDSSpoWefVXdRm1tmstFR8st+7BWh8Wxz6lJ BVeqi2NZj3a051z+c3ZT42cXGX9kijHuCWlpv1ft9vrjJKJAmRXVZDPlzP9V dSLKM2SoZrC2zNucCnQLqwREhEwds34LN5PaTgiHl7eHTmdqgxZPNMvFUQHJ lsUF4Lt7FUU7E2eRJFRlETkWZMqel40jmrsKr+G16NrdmGPhsTy+oeX6bT4K fRwd6TlJADE7oq2D8N9aJYg51/pyyA1RFfHctjMtduGypspKINAS1JJuaJOD vT0+jrAstJY5VMu0VkPAKKfCGawqRwKChSWGeFWMEcIcESwtOLEBNGdDXIXC y5FjtAqkV9m4AtoWXaphDxcld+xr8G55myqzpYdHJZOvT0OcNuLTQ1zbU/9e nXzQUDa2L1PeVD4RYzuQ4KccUCp+IAbddGsHWoxJ5nVGluz8VJ4tC+3pQGjV OlK0yPhurJ6O+3BEXi7AOX037Xwk49pTtY1BGoiUtUecfPLL1kdZhXFPP3KG ZFLytOb5hhOXTeBz6XGpDV+g/dXt9f0XStxd7x9VrfOYq6avOK6jK5nf+gOX Mt3ZUESrDZm4qka07FZb7SLVQ+GeJlqwK6N2wwWqLa4ntgjqWsi76Msp0WLK cKRfnp7L+ZfFwjMpJaIbxQlU2/hWKI9g7qPJkF2JHy40kscxnnwP6qjEKqLo LmXRrSRZZA8g0dg20T2RyrYWWh+YrpNPfbmmA9Tafv76euRVpU47wHG4mJ3D mG07fYR2kZ3uCUu6OxVGXQOBabdLJICRH+veNQOwunMd8EsPvqIw3RNLj+WG bktfj6PBV1dLxWpoBJZNMSYy3wzIjG/zzYYzTv7/8GY9WHbNP4ub02Ku7wru VYrlNyIUbeZL26gN0GzY/aDth3nuX8oUBN9+ItyFsr+TfvWTuHXbNpgPp0Oq mgpI2nYQjP2fGswn8sx25s2mKFcqkp3Z5Jw0UQQWWhJwM2jbBsvpIzUozvtB 20Ew1rH4ld/Sx4xvOxbq4trlbi9YaJrqt942fCq6bjsKllNe4IDcD9oOgrH/ nbHYpT9dBZbqHffoCm9cQeTb18vjUuxZPDCI0T6IqlmP4o4sNeJcvNeZ+bM6 BTc/D9NC4+5OVkJnrTuZvnMEG4HAQVhX9xwLp/FpOQxooAXFxDi7fBy5K60t XCwq16Lm4qpkwFwB5Oa+5AAbV5FtVcGcngBYpGXg7RDNmzspjdgEpCruFPeK ATkfdJPyiapWpUmqkQRUiRyIxxRvjgZCrGnRGvmjUeSHuc4oXXgYwaGSPp5p 3E7RvVTgKLc1nmdtyFLKZuXDkDy05VBflIBZW1brG6VIsbUT/QCLAeHPC9Qq GUAT5UKrDbCOeLOIiZT7z9mfQkAf92/VHrSLw08TKxtgbJdSrNVUgtKkRmuY qgF2zQLlAksDfDv1PoCi7mX8gkxnEHJSHaNRESIl0SP32deY/YqCa75PZQpd 9X/T7Qm38ai47CgC/d6GbzSgyGra33HHuSEk5hofKDAAfcDubG5CvNzroTqM 7s2ABi+F0cPHHadSS/09IO/N/GlFG55M4/TQjiu1lauiG9yT11KdmmsnJYOo +BLLY3OPQQz3TATzjricnXeRYFGhWEyh2oPgpUI6V8n/rwoxqij1cZW7jmRv JCc3ZMmqFdely91cvIeFB+NjJ2TZx17MXneKv4/796TQpQ+mRAV8myKQDQGJ o8pBp6zcdB2kVr2aXTdjBLjzY4QdWwdgBllmbM6L6t6Y0hpDVGiUp7s2h7Oj 4GqACt9L/aL+rHFVacc+fRWNPayiK8Qe+N5pBhJwNhXuVwmS1G8WIMHiXnxh WXs4b4tupiC/7gIn6yh0E3ZJC4ww/QFdUREqMU1Kv3wv5BgGX0ucJnfYljpi PZfVT/Fk0JqilSFo43apAil6j9mqyOeD/KoOrVuIRX5Q6hBVrrX0AS+CbJGh oVzFiYUSrLbElEHm2Cz+BlZyTx24e99HJud4MNVjf4MTZ0dnBwIVlBJUxKug GSF79BK7ecrtyEk41rcqn6pzp6s9lkGxRRwlWU2sAsXCPedoqe7UcbIGNgWn WohUZWx6cM7KVPxFICg/FiMU3+xNivnmJJKJKRyFPJO1cDvVSvSIO8/wPJ54 VUhWsicVIexq6yykkqAc1zAy1mfkJQDwWZPdXuBbWRNzMXnibgrcG8EaP8gk mXJjxPjsYHX0Bsb1YGyOZPTRnE/61+vhBXIey9nl4tAVyVS+RqZpD3ORXPcQ GIKYGOmH5S0qe9Vj4syjEAXWCo9Iwt0EaCy0NubHRYbY2KTEZpBitNtzMyCE TiMDAn0IoyEDO2rRIOEOtT7Ghb40+NlYkaoccqkC6rJzMpu2T9KTzyYmZxVX CVVCqDY6Q2autSJclRXJWWYjLAmOnmc3RkEdA0H7cwSaovyzdU7ie+Bpvw3O IZ7RmWKkwHWnyolMSWJ89Lab6E0ChIdbmzJxPPHHm3nQuVn9cp/Vj4MJRkxE fo4yB5nVY5rmX2Qizqr+xFvt0pePMM4PmS47X6jKdu3C2ZxZ4Zm+71nqNwob CjhV21xdtc588Tcudq6uNarqixKi9fGtAbFLqykbu6oGJKujN0vxg0ISHFwq yOya8tbn0nP+3l5hC8hRZvrWJkRB1wTPjurMTMTXylT78kGgmou9c+RsJ+8D 6fWNe2c2lcc4rK/7lYcUWjJmlXY+ZkdU6KulHOSDCWiJYURQNKZwLgcyca5P mpQZhJtjUfSeP+40YVGGsa4pzdTUr4exLg6jUoxVXuUUWQJMi1LcruBtaVS7 aYWUE7z0EwU4K9DlWcdSwj8XbI1k2+XZsgiMdzP5sqn6/KC6l65tHbKXiJYM EDKikDeHZn0Cd1s6kMSzRXj0JKN7WiXg7CI4AGBNhqt9rlHhnSjGFbAOQ7A4 upXcbS+XeB/UqFBG0R4wh2Xh18IcHePB3NZo5/w0vR87xwo1uUttzODFkRw5 yEFyjQOXjxx9my12e1AMMkHTKu1r1xhh9HtOfHajqBbTTlSJUsFJlUpTQT0p iCg4AXwqYVrF40wuj+eKFOWr4xSOnwogVDRjCXbTe+nhdGUtYTEoo+ltpSAP 1qnctuxrxL/fKXdL9cyENI2CE9UczOFAFozXKks1Y8sNpLMd1woMfXLOzvB9 teAbkSuCYywFLzgpTPpmetxfDsRUpXtp8JShaosJdoZo68effHhVxk1mBYM1 J7bGK09nQK5PYeFr8RRWBEZlsOLicyQ2b+3cJo+lhicOyjM5BSoVtHR7G4yN /rOYS1mXKt6bAcxUs+sbDr8iY1uY1Rf8XrDGnaDf9aDtIlijraS0+fgfU7R+ Ebkk7+Z/+hAFzYu+bAftjFhmbzjTtA3/AlUf8ViSfhpwmrZbTwHVNrQZVBBH q8wQP2qArq4o9azflJZnSKKi/+cNJzL2qpQqVTGSKanTdxhRlcobRDzpWoEq T1iVforS/WC+42Asb2Ft0XSJ+34Awm3ni7K+687LVtuQqWkV3tioz4XZ9bBU w290CR1LcbkWE+tJ3ZYae+Maik/Gpkvfz2Cfloc6dDDQ7ly+pV6duSTHEiJw XiFTtIRP57Xiuwp/cSNIrcohfsEbO2mzPw7F/syONTVvjdMZ7gRt+qQ1co1G 1DclK0fbV8Z8OZjjOJgD7ablgPz3dBhYO+/w+sf2aOrzn01MrSCgxPWZHLan nAfCt8cjSTI2XSgfSmeNWTwRJ4+kFWU8b51NtUns8rlcbFJT9PiCew1Sqyqi XD0xP/Vww+3JWbbBCIUrXS/ZG7SeomHxuX8AuJ+2bw==\ \>"], "Graphics", ImageSize->{602, 80}, ImageMargins->0], " "}]], "Input", CellChangeTimes->{{3.410596378103438*^9, 3.410596381776462*^9}, 3.410597408952116*^9}], Cell["Steady-state", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}}], Cell[GraphicsData["CompressedBitmap", "\<\ eJzNW0uPXMUVvu7b3dM99oztCQMRxnhY8TJRGFuJMGBlAQMk4mGxwLbAZIIg ngWPOKy88tpKSBZBQlb+gJU/4G3Y+Bf4F3hLFv4Fnfqqzlf9Vd26d25bPcCV 3HNvPc67zjlVp/z27tdXP/189+u9T3a33ri2+9XVvU/+urXz5TXXVB+qqkM/ VFX16VaF95l7tR///A8/9nHQ73/x76uzW7dugYLZzs7O7MGDB77v7t27/hvt Fy9eRPvjfvioMdwNrWrPQj3b29ub2VO9Laiu+Xc/yoPG18Da8G38VxNr297e jnCOW4/M9c/t27c9PtDg/r4r6D4TzgCK5N6/f9/3YxraTp48CTCkBE137tzx HHVRF7Xl5bE0VPfu3fOydn8r5ebP1g9GbV6DvDmcSVQQUIMkkmJjpwUuxguh mDZQgHSwQ724toSFq4YFY69fvx51CHadtKYZqjZhr3SDWTGNgDroAA+oaqMG IKAXUA8hAZWjnpi5BtwQU3PtMXHFjszo0UYK6z6gh7ObN2/6aabuJnEjL0bM AiRSsdkqk/L4DwtwRcX+nyOhE25pvMLdE52ALTzg2pbmLwqgJ91TLgv08yaw zOk8bSSSWT4gFm2w1Q3DLIZimLvnXRL0LxulGEtfE7r9eghkrNLIorcEM3io E/S54Y8vNvyDAiF0ghSbffc1z383QK54vkARzFTFDFn8R8afMxwYZ763UndG v065AwY4weob+t9aZV79fnbjxo3XCwjAm3mCiACAQByQDh+CWcK2YAFCEr8L wpwBJAxrrHxF6ADz+HrT2kRoDqbD4CgkbSbIdT90FKMBbbItdr5WQE1Xgq+3 CnIv6WLd2tSxhnHDPH7uCMqPjVwaKf85zdj0USPgOXC2vJrz0Be0tpRAqRwG h3u0L1hK3bcxeykF4JI4MA9wgAv/4AprMSxGztXMQGcLR9j2IJ4t+L4BG6SA dAYdzMsDtrL8RzMSkEFjde9DUTCbAQoSWylwvU/A1lSECh11T+mK8crAroGG /AxMRerxzQwT1EOPXdS3BPMVA2ogfLMbMu6e1ZIClGiXWZF2xgjwjqngu532 clqw0dH3fsHuQSrXDnEOjUtND/AAlqPb+8HcUStdpbRio6OvRJe5pEjXPFFb aVgoHpiYs5tGAJmJ9ywlcy15yvHu7gsFikEROCKHoIZLWXKSSA2kbqAjNUK1 f2Albh4Z70ptjvUY816D7NTCHTmkGNTBwmPotaXM9abBm4G6FO3CuN550dpi w98RhiykXzK+GPk1tftnOgRILIhHe7Ihh00h1DmjndFCfUF/RGLSCiskCIKO yDVVoW2q298YlMgRvrEAw9hJ9PbsVwk48wreaBL9JUCRWA53fQO/eEJSQLfj 0y83JmAKhgcR0GtZ0jiwBIzSEeQxOkpEDor4JoiQkZKWNA9jazFVo1rxl3ZP EnkewHQx4Dum+U40cEZufnOlF+DQcDEFTTDtYPRHGfgjaAZqvkOotCWMA6lp NjuMKNEfc52hR7cPFWwjQ8jI/Jx/BFYYUSmsubsLbpWrPqVo1CHMcUOYxvGo Y2qeqc393DTRg8zx79ZnJK83UAs8zyKVQUvOJKfoKWRMARo97fomFR4s2fJD o3oYKU4wPJTcBl6RE0bc/WywmRvtL8LgH4BmyKwkBbuamCDzY11tHVRQktyT YfGSmkySzcj/RKtOlRGJe402LCguCYpV17Jqyo1rl+OJuF75wKORNOZneCAU oLQNQ0Iy5ct+PCCRc9MlsZrMxUN3yblql39Ppdm0y03mW1GHeBgUNfOkyefj 2UY2wyYWpjP1ZBAWxWFbPeKpGMb0lIUOh5rhv7kYjiTwePqgdoh2WoDDF9KL cRu7gYqh76ZAPTKkzrUGu6Dcv6WCbXrLdMv8pLUxEZj5Vdgc92hhnMf3r4Cv PdzNTyHAyClro5trwxcS5nGSoOORebNvA+qQrKw0khW8Q6DQ5XOGQgRc8fxO 9BFY+i7A9e8/ZtXiFZOGbpDxaI7K46sTfmz/Y5ez/vfAKiKnhI1XTa5Nx5q2 lSoix6ytx6nObzvQLKnw8pRw9aIIcImHPO2Fl+Uf/Dy/PBZ+otqRKmTb+vud E6Xn7A5eX2UsWj/qcxx1eiGYP5uyl0r/jGFZ4PhryWWvF/pRcICFt5I8FjtQ O9ja2wt9Zv2YxcCmwJZTDDy3RFi/KtC4jMLiuSXCUhrPiv0up0j50tIhnhZ6 T9h0ntggMX3UOD6ImueazYOuzaFZxjj3q7rfYkLtYGweIFnP5yIZ2KkSU390 B1EfVBH2iJGueRwP/rgZwUMP6r43D5SgZ0UmXBJWGfUVTD1yY9s7In+6+XHr 3HmhS8J09XkD7zBaN6zZzWfo5IknQPb1ledtHKTAAuu4jKa2ZqZKtvDHPTHp 5YVHDA83gDA++hLX9hi6X0KderV7IDlnAETg24yTtwoYOZmrylRwubtbj/+4 Yf2ioZhQn6MC7b1xJtMmnzc6YNC4wCfPcx9G7ps2k8fJeES0l7u7rxUg0RD0 hoZrY3DquwN8ohvcb/x77w3ithDq3ffAH9jWEST+nDH59djNnWqD0Xebd0YI esz6IRLggC0F57L8TdVWAddpkeUSN1rK4mvWv8xtyXsLwdx3W3JWyH3djO8h suwL3VNLef6ZAubFMtULfWalqXOT3XKCeaWj73cFGKUE8EpHn8LYEdkV8rKP urvPNyB15zQf9hjzaoPD3unBpcWGvyyYCiduz5gKGdFxnOr7v9f+YTzFZcEL z3/DkKkYia2huNRj5BzHI1HaEZ5YlzwanQ3+MimWNIPDSyXOuDpBIEvTPmgN QkgNhWtZ59XArkmQEC3h0tj1woNG6kK9NuRAR2LpSSJEMlz1FA+158VMQiSv XaB4OsH6bFLI5Q0+lXfsnuwna8YmZVzq2aINk2MdSzLzgsEw56qoCyDyv2+l tsRKNB/A8jDQvRHVwwpyW1lW1cZ1YbstPfySCm+Vt6EUExKgE6zmRqq4ScnJ 0QKY5nlUP4MpA3+hcG1Viqe8XpQ1zKeFkjXg1uqUsq20dMEqFc67Kls5z4I3 DD/eKn2iVjHkpPL2XYB12JsmSWxjz9STlNXbjayOy2qu9mkCO98Tp7XrSQyW WjSkaLxnC8Pycig1biyFYb+Mi52pRFsFPKcKTw/pcGMtlMTE3jYaIojSmjis 41qVwE1LXYCzX9G/jb3ErkYluUcTzW0oJy/RzXpUaxdHbYr4g1rTalJAwSO1 3CYT66zia+nUYwFzjELcbPQwKnp7uwLCS0Ftxf+EmGmsvJPFgigqxnEqlIRb 0hZ0u5IkUXgINsSO/nZkcKI9KpyB3dfRCxYpmaOSTRn+dJFTeMyrWaEt7TwI u2BQ1SIW1aYVs6hVQ2NRO3qFuW/baLDQdplB1aGXIex9YFrTexEifePaDR6Z QbVdgsgMSnNfuvpsXxQNquW6RzCoZ2Jwo5CYEOoUHmfpWstuifj3EixuCTP0 idLUkLIlpDaFqZAa4yolYMLubVNp8FuPKUsXa22KSbzUJA8+0Yea0ussQ8wv cZg+a0tRKAsjurZrJbqGNafl9/y6c9gW6BUSu7qthDBHyAlxbNaWa5Jeu2PB NJMCCWKfI9R9kyXWtV3akvTcD8muxXDBtEBp3K7puvUS/scMGFhL4PEeKeDl vJM8XCZV5gUPr1dyt6TJQddln3CTJghOz/H9b5Y6yZFQtGDd6/J+xkY2fjbj rYP0Dg1PEpgt4+vFwri1wjiP8E+BPrpO7o6Mr8Sj650b0lKir3Q3R+Xy68K4 dTMy3bvg0fs7V1JS1ctb8I+VML2n85mII7mnE44vWnf41aH/A62d96s=\ \>"], "Graphics", ImageSize->{492, 101}, ImageMargins->{{64, 0}, {0, 2}}], Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 3.405907109932663*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXVusZUlZ3pyzL+c+fU633TN9oQfGmQFGQFtuKkwzAw6Ko0DU5DyZmQA6 YyLgiIqTiBMUMBNjzLyY9CPBS8cb+MSLoi/2i74YO6J4n5iAiZFBYwAfjuuv +r9aX9X6q1atvffpc6Y5KzmXvVatqv9WVX/9t/2Dj3/4iff/1OMffvK9j9/9 jqce/9ATT773Z+5+5INPNbdWXzIarfzGaPSSD9w9kv8PRiP8aq/n5Bff+ea9 8dvu/9WDZ5999uCFF15wn8Z6Tz7Lffn0r/TOb9E7165dc5+m8ntFPnJL/+76 wfXr1w/29/fdz6VLl9xfuXC/6Wm05drODp588knhl7uvEB3cuHHj4MqVK01P fuTm/4ObN2+6T/9M432Inus1Out+bx48//zzrl/0Kf9Lv/IZ9z/3uc9Ju6a1 70eeq+iMVvTe008/HbBe03vyWe6n8LzP/T9xz1QO3U+Dd4Opf5dE01OxaS+4 yzvyI/RocFWuTBzNHnnkkUDPZmyFbS2Lo9Cq+X+SoNWwonm16aQZWNgi96QL kLz5vKqjymO5hUteWhH4mlcVwvBM2jXt/4UI8X6DoCCeRQBhoDBDLmWQgrIa CNDcV8QnbnhlgLuadxWzWSCCE8hGZOVdQUcYjT6Fgbjn+9xg8Y6EUvoiQq9U gEyEHf3THGTxsjJ2aAooAmrzg+7lI0QS96Rpeo8oEYYRqgnoLTXHYXoqWJB8 hnK1DBGP1IcwlhsZFYv1RMkHSHhIlVw3bNMPDwmE0aWICl5foXYAza8nW24Y EQtceA9sBpYK9rgfEgv5t+vzvrX23CCpmEQzXljZvBewBXjch1BJsQorHVaU ltDtSiMiopQIq1BpzJy0v43w7+4bQ7EGT7BGtgLsRxDM5R4oLO3BlW3tAxjI X8FC1jOsy7TihfXVGNO9b6x4DxM6uh0FdHj7+pZKtHdIUOR92TKBmiw7YPK2 kpXBE2boGjHVV6xdTKhm7WIPF97hne+M56Vs1BbLVnmFHt2h9wQ24IMJhAWl xWfmhFEniLt0S3MrPfY1uVeiNSP1xoTu7V64ynvhIhvgWWIZ5tZFRUfoxrs4 WChDbhNpSqBNPL2brmbhP9a+3kQ8ije3WbS5QUR0To+G7mi417eAv4PkrFbX /C4SnXibmnDfYGNYmiv2JffeQzTWd1O/yW5Q3AMrtoFd+f0eucUL4vdoy+7i 2zK/vVe/6NYyxP3+zg617XURnJpjXXyLvipzGK+yLqrb7egbHVCy6xhQ7FvH QGJeIrEcQZmTT1/vDF1eckD2viXn9foEe64qroG6Oi/xKlZDEfMuSP1LggMr WRLepJRkPVguQa8hyQZRA4z4Gg1dq7W8hhjaC6IBjnCngZYnd3oEYm0dzGRQ f5Gel7R5ZgZA0MWuZu3jLZ2H/yjJZGmtUsxNjRQqeGb94uWHh/4lGsZeuqYO JKIchu1ZxXIjPqPPu2vX1AEPxRG0DV2Wl7Eybcsam0oQ0bGsJebE6KOKRo8K BeOFfIJhQrC2JpHvsk6LAWoivX3rwkfpea+qoOQFzH3L4K8RnrWrtruOgVnr 0G/8iPszdkyBVQemE3d5ZWL0o+6PoXhwo1Th84qMX3L0GOO06hV3b9e1E8nB /k4bTlj7UhOacAtHZK/XSl+zcNTl/uSvrLd+omyFZ/KDRQkIG3BABwNtVJhX vC2h+eTxmIa1BY08NVSAz7nJxDpqCWUsQzDUoDsYfLAG6BwepcCsBWQANRPP 7Usyt2KTQsvIUx50f6hpiY9L+uHNBtIADQBY4qQgUOt0D5hj2YD+lRhplFln Qp8YS3YxCBFWMTyDwBVg8TN+Em3X8ZClZztY3UKX2IVyqMvn5i9ED1s1dR2a Y1gsYMmosNPJKCzl0ASYwNJFNH13maGrzFDSsfxyGAZTWIN21LVITaO2hBNv SdhtoQqgG33G+zWNur4Qn9Y66hjWEe0e8DPLOvCvRVPWGI1RItj5aAGCtaw4 w6zYiuYWVB1hI1aDpG+/mIyD1VdtDSCJCAOEI9bLppG8gSQJA/r5gt0Y47fC sDxewdyVQVkfYUoxWtBHdNblebYRHmEjwdQBBZW4wFea4BDU8pLXyXHL+t3O hAUQAAyrGLjM6mXMt42AoLwj0Mk73KeeSlecNrXlHiWqfgmUCclhQqpofecZ 7kY7CCsTr3ngWw5xXan86xcdoGCe4I8ZAEUycd9EEEkbXoKZjkInzCrQCxx2 V7QgbpuzEP0TT8L9po3K5VqkkqS7LWkHZHZ24Oj2vSL9Oa1VNRNcUPVZDUhA gHASZio1uwESacrDSleCIeQcRyysGnivaTfySsKko7W02K+yTuGVbxUKCARQ kDEglhl4IPCp7sZTM+3KXXvMzI2ImaAY74hKSaippMl4w1ai375C7/HRsR37 VTz21FSVwnSJ+93Se0JdLC3W+LBo0No+ulADU14PnwQhJzEZ3a3t+R47VGAa OZ/0K0LSDv6AH7y9ccyOOsu48cfuT2xE+jG9x0YkeEP4zHlF7/GZ84eX3N8r PZifpW6hiDwmv526d0afsi3xdXqPD9HvWUovfhaNPkPQwjCyrr/TVU7+itzR OhBcXdAsYf2RDdOfAVfDPWl5dmD7rQQWbMoWLJjUbCDFBCZjaAe/Up93KrxG W4V3yvCyJeXdJ6Q9LNImwstWepjKeCW2vCt+g+gqu2q2xl7JRncQbqfu1R1j 1LyfJ/Z1WsOyYRAzuxbbdaO/7ey74xQV9vhgTXvXCfGPjvj3u9+j33F/JpGZ UH5a7/16x7MMkwZM1t6G7490CGLQ402eYBvBxCH3ZWZDmcNsVrMIK1qyJbEx Hnql6DX5aK3NoBbjICF/cWjzdCj37UHeqwU5UAnH0OQYBnOCnrwikemCv85+ gx4GrEUMMIbeMIbBgTHtFhINSiXd5gkVey5KDrOrJ+J3In5HJ37+fBQWQRAE RjN/HvZdduNP7ojsPXLB8iQXzMXShnkFUxk705T/naW/lYf1yCWMIzTkR+0U JhP9OLtRFLFcsMfAmlDT/3gQzLMomjr1BkwIVoSF5COOp5G/Wy6lPUyhGdKv tDwMI+dlcKPDUWAFKkXdTkwiWU74ktP+6onwnQjfUQmfLoC/6/6MWYflGKau ihkHrTNLxWo4Nd6bECk5EF7NfwiahatULgG2LFnWzFjlo2DwZFj99oCEYRkL 9pzBDlISnJRK+pn3rhLR1o2uWXYBwlDMLcZmAubfeiIaJ6Jhi4YuHte1DSIY 2jcs8Vhjw3MkHnpgZe1UHYSBZgiQYBdIs/StKXxwJ6g6WJu3AbllPxs4ol4G JW1niEkZsJmBi8Wk2njYXGhi5G4Z11PUGnEaeTuodw4b7iFLSYhwUNEwvodO pOdEeuaWHl2CPqlt+iIBkcJDRO7o2CxscDRDf9ZF0vXZLJ6wr0P/g79bSATH Tnfpn3FgZuQXl1jRnUKfp6jPfrV1K4CKqwedXaOrSYYSCdjwfLLeWYqmfekJ w15cDLvsno0+oQ37shXOaFccvSTP+SDXzdOYRdHQuhq4dwUEzonTA6D7kdOQ xbyZkpZzu7FAN/3tFLpDVF2dhcwK7C6jYjFuSu/BVkUkde9xgAHID65ZgeSX Ttj1YmLXZfds9HFtyG5RK84eXBOwoBKpjSBwjX1r5xRwjTB07QFG099pA8uL 5Vfgg+KEphLhOSPhvNHuLr3HWQob9K7KQ9gWTigkn9SV9ww92t/nugu205G9 gaeVUAKiEBmzTPrg/GRsFZ5QsyjCTy55T+6J9O8RgWNqld/DrOFIgTWjL5CM 01HOG+3uNAQDY3A0g2fVZjBGYibjM4djKz1HVm7aNxstNZTi5/QRtPb+DEBN Wsalq3JQ9dkXdKPN9+LF9LQ2hdFV53mbs+8jWjaC4oTTB1Z3KG2q5rxmWPP1 MA5ipuDDkk9WzBSC71BvxUvKAMJR2KlceMdlrxxkNrfbk5Qqdj9PuPTlkFOe TRSPhG0F5MI9nbmWUb3WOgDVZFlxgJjQAh7uYfJ2SbDeIQFUJPKOBPxeZKTQ kMiP6KNuUmtsi0CiVdPOit1lzHB8swwR/54dbs00feCU2hDRyruvHVZzNX/B /bHTaGeF7uWeRkWb3bv9xX3cLozA64Y84+PBYqNe9ujB/Mc5uxxLFQ8wDpqR PrNydGul8wvG0KnLkXfwQwbny54gH1FuQO/A/iwrGAjDCz4gwYFPtVAroRil yHg6fgchjOn4YAGECfWb1naYE6yfrQTrUSZQNhUac6IvFfqDNCqAdnUn3Jb0 YHmQjcpBPlwcJEKonIhtaWvW8edRJTsnngRD7yo+uk/bCnUaSsvqAKYyW4Tn CUvuD9udRGG7qryO3lJBGtC9jzQ+BH4tJY3rD8tbA9dOBtR9V1zHT1vSYc39 0Q+/EQU5QIoM8qTUASXbIaeR2kwU+gEWof6ce3YrQm4t69CjigYdclCIMCzn gVZ2cCzvDtbBuzYQ9q5su07QKy8uOHm/uZIyDE6JMpAiizJAOVBmnaF2FybX TS2FdzNUUbSpw1TMU6duHIs87/TyU+tN8eXStqI1Is2YJmMELIh5984di0Q4 mtVKDimGdFdpku9mYkVCmsGd3D+Mlz9UyYHvUw7wMsI+BPSp576UA12d7fTC MaZgupBikqG+2m0D2dpimGNezFMdqp76WSYydCyHILzOgL9VwLEz4MKhVXqX /z3/PL91twmEYmWxLmZtzKcy+SmdU5YdEugtTN0gtGJsWzkIbURer0+RKPB5 FOEkeD+lKG+awym6nlI0nGVBvraC3oxJGtCNSbwZkeO5555z/wsO4H6XpLuD 2ZKHMabp97OwzgKpcGEmCTlYY4ztTtkYJ2vTWWbU127Fe6jtUQpUYvg+pSil 81ZJgy2c84Mrg88Q3QECstyk2y3zrTacawg18rDE1Ejkg+TBdU22w0AZmpqh okYxOiU2GFLYTFdEFojdWYW5QU0Onv9knqgdoifihKn3m9mRp5FhhOQLzEZ1 HE8/fw9qIctcD2WhJeiGVaJsuqzeespyXUsDaEMuv6BU0LocYRtXk2NNXMUc ISB31TXbIrjjPaydSChNAXRlL5oXahwYsfcsD+qI2rPO0kh2jKLLHj7woWEA 5yvacDV7aGKf1vfkM4sd2ogGNy+8rDguC953MpmtOkl+WcA9VEHOuI1hK+dT 4OupG5zYPq33iKthOPYxLWm4BEnWMBhJ0ASlkUseyh3qC2smhmavJTDNERbv LnPM6DQwiXY6aeYtMlI6ZZX1OxWPateXg9iZAF8X/vPfYNEuC1husNRod9uL j6RmR9ccR8w+2+tfV7bjvt11zIp+HMqND7g/hcKLGrMKkzPvjJ1GfsuYRKdy 3R+j1Rdiycy/Egoyngo6A96XC8sRSXzUF+5fQcWjDbMbrtuow6I57ATX6RtB yA2HZ74o0VaYjtx7ATk/yjgFatHijr7k0dnoxGaRRS6cS+QZzv3yPIewAcfg uo5+1fE2y06tx694JHg9V3OzisvLorAUNsxwGUYlReeoALGBAqGm1tAXW/7Q xugnLNwY3+Mk9y53TkD8GbKGvvkkBI8B2s+BX/h2lzzM/c/YGuLty0L9mUkf 5Hmi8h0f4Ut467j+tb3QdGgxSSYHjDBf9WNjiwRE7RlzHIxo17iu4Ga0COSE B0fZ1aR733EfgdvFso1tW+8IDAQUVsn2/bhtCqvCorCt9eGzDFlJ5Hy0osQB uQ6CkrPVOeJZc5JQ5oMFdZdia1W2BJ/lMzy2WCAT8ZDbqmX5rjwGZ6IhifFF 4WDlFD6+cLLed+UFqEil1Y1lMM2JCYr7YY20xKx9v1M288ilZBxWBFUK/Uax mRWSPMI7WSnBwoNVwqyl6TOKcjt1IjG0jKkd5HJnqca5ipdqYEVnrmhdwxkg V6Yy00+vyEh71OjkM4WOXXj/juxWVIFfSAmxJgs+G++BofwIvjfYlC3yXOMq nmvZKp5Rs7MmQEIoeN8BAfSfXBFPJgaG6ltpRm1k6k1X+mM/FCCRC9oUl5gM 5VxmgSap8tsWwlwPWBjdYAhVsHcCKGgPvwaogQO6vE8gokoZ5iYIqOBUIuXn 0ZmohzkrhLKKywcMaLOJcjrqKxAKyIsFQrc6iwevN2Rec/ccF/dDzWK9Iv03 r73E5tO79R47BKwioq833j0IV1RbfcZKdyAJ1tuXEWCwMmwb99iyAWcvLFoU /qIx4D2A+T/TjmtXjQtvIITR7y6Nj1mHCqV2kVAtv9veOAbH8ocJYgT+vIow K0Whso0PFPgM9f0Q9a0TPeobytRj8nuFjbM4HMqnPzJ6xAFSPr2SoJgn1OpW V4AswcIR15BzUJmzv/+QaPJWoihoBirffmUDQQ3Ys0WmmBpXjecvV46xuUm3 iGz0S1/8BeC83Sqo7cwV3VKkQuwE4IQ/iOsfGAxkcQYD0c+1Tv2n4ZEJfcEe 30z1n0r4q24Q8Y4V+d83eMcn5Xvc70xxnOUEBty+xXEcwVdk6vEUeTB5WwC8 V+/V1giZ2xt++9YIYeUD5GLpBtnZlQay1xZfgJKS8WEfh+IL23QPqU6/R2Rg XVwlJnxvILLHDsLEH54wf6PgeT7ihHk+aEMJZtKwAQdovZruxWviccu5dtA7 HYelHjTivQe1Qf1xJ84QAKspQ4AXWUgUSHBcM4B3qC/A0GV1bHzUU0sgS0oO /3oIeed1CTvzHoECFLwkHoO0U6wW7JFgmviF71R1sDvTAwM3g/pj8lIitkFi stWFEEGgiR/OF+OZhBzvvtMwqMPbB1MHJSz7AqY1JgX2G51r2vlB1V46VoAq IomjcIkkkpgzw4CRlUFpUe3Xq6hRjsj1lB8UqroIyG5CfezgmWeemRq9WMCX wkUBfIqgag8smWnZoz7ga1WqZ3vQgEKXiS7crBxmnFDDivnD5GAK1fKFvwoI E5C/+R2GICYf+rOSovlr7/NkKYcBIgSuFHoHDYIynapxhrGGzWT4/uh9yq6C HsvVi6xKADPqD9pMF+f+mDwkl/UF0/F3LqY5+H248+EIWy9kkVYojRoYB/nU deCCEiZvn8t+4wmfn1ElYJ4vW5ljaDAIhv8cg/riCcGgvhhAMIgEeISwIOg8 Og5kkdUqLpAC+bSsA5br76L2wCunXImVkDc7iBDuWbV6+qyJ5+cfluPAMWx3 P6iPfjynoEDCWbem0EUsmjzZAIoQHmqB1/+3O07LCiveqGR5ZKZ5WJZu0LTK rKwqWyk73l18MIxz2Xq/U2FPBTTtAkapjJ20FmJe2TAbWD5gOeCNOHUVsZWp zn63Fq0znF2l7fYGdVdnwrSyt1eVCFeuLKsEfC4tDFAPMYpaEGPbJFuJaeoB 5YRK1rcPMuaV+WF75VdKxsp8VvDCpbKtr2AcavO0wONwaRDfshhjUh4ctAcu C81hiVa1+Ts9vWcsm0PYEfnyB9UPrss9il3TzLke22mJaRSeYjKtu7vGRk/U cbQsj5cLz/iwEK8xg8u/5pKCEiOpVeo1zSWTBZqt8PC7IsyTqdC1a9pGxsuF Z2xtibfG4dU5OWOHbau0TZqVOEEDFi6LBryOck28OFwya418afnxDkFhaYLQ jd5QaIfQZvnE/uKHqB/o3dCh2f4If1XJjnipog2ozPEWfOzQbTyE03C7VWqH eAqOjkAsh5AQHHS4rPggeflcbfY7P6w5V3lMD6fQuuSTdTgFXhTBFOH1NpJM GADAo2UZBVY9nZpbn6WR3XUMonSOwQ24XrDA40fMpmwBsuJb2yhAn8qRy/24 En9xuL4axOxATMyyNB5R2gyCvpkEIdJzYmXANFi7Wnr7rlgDT6V2XfHBgZSm EgwufUgGSO9IIY26SeM3UxhbVnt9NTLexCv4mUEpI/x/mp6hz3y390RNrZSL UlfLznBBSRZSb9xlZPDo+fNVEfssmC2csGnmMoEyJGNYA5/RpibbqI7Vlgkp n8CSTyixzhTb0btWDsUtSlBB5EDK6ijz484QdopIcEqFK2LB3QKKQh5KjsGK hMWXlqFby2cotMn+1I+YodaqOqy/eVNJevjpZ+teSJFhJyX52XqR0e5xvsnj tp3laSGRZ8Sh29BZW0avEaO9Ufl0Z6r3ZVLgGUMRZ2vshVMZMuTSd62EBKO/ w0r+8Kw+H4gKIuayN7i/5/WbAmtQSnidp9iuBSa3q8nByW3GseSDXnRW8nrE LLKWMWpt/seWmSoBc1SaYWFkErRdrUYa3nISNcaKL2dDsFanmRYASkihZ8AR Uq0q8NDeRyhQeahpMqtBqA6imTxjDk8jDsulKw+7yDCBYItk1zdisGBLiMe6 Jz8Wjp1JpA76xYmV8yy2tBvKxwCVpd09xivsuOiSwkf4htgz0rBHiKknN2vo jLgcJaWkMRndYOK4XQvIAx6Q9sYxO4a5/3+CUFAjnX/wCmr0hDbiQOj73L32 m1U4mMvTbxzZ1Jt3/oO6hBGKDP2RRZgdQ9ep3DazEzOO6j3oAnpqUOg5Oxv0 YAULxxw+Kgi7hS2FK5lR4fx9tambrs71MomSt2AAXK3sgwOf4Guz8GCzEHJu 2Qsh44ggcIwC8EEgZcZrgd3Rkqtx3auGLwsVviMssLswFhSkh5NOEYuMnX+r /PgFAxqc4RganNtwZJe9MQ+NbQIvBQJ/leB4Qtux40OdmUEZZuOyXKHKBnke LLgso3QpAJfh+kntl02xiKtJZU4uVfVHFjyQeY456jEob5Uff4Ug9QWhqwqA n9WmsJCr4QFrApl9A8yciMi+oTQAsGmDoLKS9Xizos1/dZDrLUt9ThGDFGlW KpiBbHa/cHtbFoQSly+W7VuQEjMaaHVeG9b8PwlXb8lfSqll1/4q9e0t0IsX u4Wo9IXUud+v7QAwvIBpBpPhlS73/MtNky9Rb293//fUJ5wD3bcrlKUQPHfj HZ2X+mPYXONHjBf7Yqs8hOMom6D5/0IyriRE/E+H5PXRQa9WonJGG3ja3AN3 OETcct//N4HgC2ltD1Kw2iOS9z3p8ApcOx5gQHzzAhFCDDK+e6NO+xmHhE3d /UpfIFenlMWacNMtQ/fT2mFGqTlljN6jQn3D6L2op/RPq56whu6Itr5hfbVj SXf5P6NfS18o9Wu1536fImIWijVy12vlV77e6b2uQGI3KrL83tc61Kne7Qbm efwvjeSuY3ByPQY3IBugYHso9eKcePdCfAVsCLD0wu3UOje79fL0HORVgs2I cToJLY+cJr/6Cc3L/FE5IAuoL9cB6ffZaGWITwFnOqZ9/kzher1eM93OYKdP nXYlBxocUn6xuvWOwnlRnstR2MsSK/J6wlFRyb56KgsfXGgILkzdbLofp18G eRC29lvqyDMwXIoj7+75CI45islVQ/A+/1fkNpuwPyqZA0fhcbORPQyP28U+ jrRVX+m8HwakkgZoroIQYARVEwdUilKpcFsCwVH7x7p1HJbtH9OFCWW72XMC uPfx/TDtN4tZ7qSOU2ct5/OB8KQusVYHaDMzWv+PN8EZDq2j8HVNy6hPD8/d dSFmGIIgTIbFMc5n9R7J4uh+vWe7u97IY61zLCqP5f5X95cmb42D1GlI0Ut1 nHpf1ht47HaV51Nat55Ua1XQYw/Gtd1UV/0Y7Y1joGTfRxCDS3C29SVP136h rVVy7JMEw70EA95hGODHeUx+R9+l3JdBiZE5UPgTNPK36nOYwHhk6QP69u1U mgw7YilfstRn/7dcZvMl+dvpkTjycWIHXNDY/mQ43Lv9qqJZNkGOfB6aK7lu 9LedfbfzvZJWDqVVuM1iGK9351U++MysW9NJ4bbQ9y0q3DYzUMAJuD5Vs4oJ 68ZQXp/tT+GkCd8eyfpTOHGMQtfoXtrzVzhj6f8VEt2XJyjIWoMsdFBQ3oUO e1Ky7taVrLM8FWyJz+arDiP9hjEMHCJ9Sazab83XRbIiAYllLJSKZqmFXzYk FnEa8smfck8K9UUg1RbqK4lZuu+P2FjUT7T8Yrj8dF0YmOEXEdFtfrTUVHPH WvZgXZBPl/TeSRnCucsQrlRCuvxU4+6I09gW3PbOMWc9ZCnJGdQSLeVl1V3S ZevL9AiUsr7u+dv0Hlf8wlH6NirSmF9vBqdIW27YiVJijrRpGAJZMdDRIqgR P/oxz98vEd+wI2HG8DH8Ab3HBQUu6pC3UaXJvLI9PPnbYvCU3mMS0GndTAhP Az2hJsvWy0HZOMEpd/9N5SmJLXZDkfEAuy0nPaN8PwgrZz9eIqNYY6dDXSIJ PD7VNUsc5ST280Y7JDuzVaut1qkrJBaGjJmBE7TRhx9rPVLk0/BAuWSFYhMD cNqle4B1Tal/XAt7zoy+cA+ZEGkZA7S7U++xfPL3yAEnlfq/00cg5SX3XTr+ BKjxlKQ+dzmnE710NLWOsn6/qA+E1EXd2qdZ645D4Ceh3Bt+OOCfhRcKGYNz JOVLYenFsi+fLEsvOMruWeXo39MjGDzhYSLzcrTOgaN6Tisd26xjXq3i6t/d 7Q1RlQvuU2ztsBApFSI2pj6PnHgADiyXy7L4W2VVlRtf1EeYeu35bxKRILYh 2PmmyYnHmgx+FRoeg8tUGkrNv8lj/w+EKS+A10NVtymSg9K0+Iz6XUJ6aLxw rQgNEm/3mnVIUJL8oz7C6hZebF5SH2VUWCLgbKurbIcaOh2R9WJFRidK9xJl 4ouKDetWOnpBfbTVOWDPW8tp5a0Vl42QZj6uYJxa1FAsnReFRaq64LRgLOVf VMDgtgAaulOylEGUYIlhNey0MUJqvxSbplVvs5YqfKYFJxYpBsvfwYQDR0SV WRTHIhemf5tXFGtLluaO/dYKq+eauCANIgwDKitqp7JUZlbLHiCAsCsPcW2m pZr5dOIiErwpBOEqkBTFc0jRWNaBVDdYpGgsGMlFY5O9kUJLTN3TqtFknbtP K5SlJAaKbQzh0Qwab44YCzW72EvJZoXcnJJPF5XKqd6M/hHp5+NgW5wwd2ur yVqV5VFYLnPaKnlC8YVlLO/KtaFWLl51rrrf25EvrtIlaK5YFsWXWAUWpxA2 xnUtDad6XYuV/j/mnd98l+V4jcF+JY2H3U+Z6/rEtxtiXko/nnOzjj+qLvWl 7BMbVgN2I1qFEIeHY3wnkHGuMrAl95fFrVPKs2V4G60D1iuIs1gVLV8Zm7Ue NOBknbtQC7arXPc4nyZRgavYZjCoFiwvY7DgWI5CKHCLuNWsowQIzaZbi9BY XPoIXXQAzVdMtbIQbBI5OUchWMt/gvLrvMUGt1It7HN5rkrcwhEyxy1KQAjc Ig9EOGJYno3LhWeLFIFN3BSoflpywFiujPvpHiYCO0C5zAn0mbfoPeuUZRn/ LxeezVMBNmfMv6DymPFPWLZ+oM8RWYw+Ih5J4EZv1nt8bDq64q+ISOXirxxz BgwgP8JgYMCnm+NQ/PU+aqdLUxR/ishXmEVbbuywcu+u41cClmOHIUuMnXvu yrNigi3LRND2/Ks0nruOQUz1bXLjr9yf/nPN91a2u7ey3cN6j43RPOGwrF2q 7O+eyv7uq2znCzmN/lIf9Tm/31bZ7p7Kdm8lMCNTnfOXXKzs5WXFXu4tPlUC /IX7M5d/+IISt6J+CzI8cELQQzmfSGHAsUa6MwES2ys+a7va7kBeqLtyEL5L IeRdumlrHVs4nT0twdZwjCufpefVPsjOl+nUhSL2sA6kU1937/cigji7jMEl 797urX6Tj9kfh2RQNZVyWZ/UYsQjW/H4O4qAll9yN8mLUjJGcdeoNgI6PE1f W2hhgMAXPaVhGA6A4C9Ew+EOmHK6CGJiWHeG2lRLGUh4hrB9YOUx7SVsX9cq Z3+ij465075QvagUKtvFao2xco0xjJrEgElqiPOWXxG/+EsqLb+RFReQB2m9 A9INDY2CpWvfZRIsDtcpletaqnsR8YfdUlxuDU447cmF9R+0TpNaWpymUdo0 0YZnECRhKImBipJ0tAzWp9/8OIfkzUGNRZlTErg5wPlxz/A/JfrcovARdkBI l9Iu769evMJZqe5SF+1xija6ZmuoolpMeLBQtxadPChrEShyUe60jAcKpebt wwnk2erlRCIkwwi/FWFLUu7Ahf2CLMD9xJ9EE0jacERYH8Fh/4KVM1Q/mJ/g taK/mgWxVzy7JvKyeBKFli2eaUD7PCC9z/0efV4fvYjiqgARhwfEoMc8zyde VIFcCubtDh1nUcBd0rRZEIoawgF5TsofRriNAP11rQMqF+VXACb4LzKQM5Ib 2dFmEa2kG5F7eDOXImn90pF+9dtBWCWqsFuSdCwIhU7mP3N/jmuY4DD1xMaC yZ0KRQXoywCBbT7QhEqTe0kUxbAwarRgLgOdWTj20K4apiJmewYVxnqzd6hx GEL/liZ6BfFOF0a0ou56JJ2hOCxxKc32CrB0tv+5PjrECNhaAiAd0oqAbQTW ykriAEtAzxaf1KdcC7K1IFtjgQci8+l8WmT8ZQQNNyRDWlEfGnBXwvVITrVQ DAriWUKBVcMtYxyuD642vqhMzLzkqpWwqQETWM15nTUS3qeZ14qLlVc6dPxI DT+aYG41go3yhYxtuNaWAFdefbLH3FzCmDW02BoIF0Smm3q6ZsHl3ld70VZF t4ugu1fBwjnAtqxuNZybYyi1qH3e/TnUKH4uHW/VlZ6VQbByPC0Q8lKf7Xqj suta7DaHgwBhsZwrnP26WddNHyZ75W5mldDkD8C9tO7rWr1In9c+DzuPglM4 OBM1xqoMx7QSjrU5+1+v7L8Wz8054ZhR/yWH8+aAvvpwOl3R17QSrkXp39d/ JLq3NnOEXCZRknVp/Gnl+HuV/a0fEj5nKsd3Y62EZcz9l34fXvHdatgraZvA UovHuvGuhvmchIEVw8AOwlUdWPcu7RPhmXSM8NdV3+7dOiqbDDqNcl/x3gb0 +4WG3bQwKFwJFZDrvpzdJYSI8JwOdkzAXvi2gTDZtIsoLLWNph1HbV26ykiM x1fa75eHmYU7xAFT7au4nN/Hh6RThluw1MrQ8ICqH9/E2gDDV3428IjHjTPr Wrb5FPpIKY1NAHFqHByION/Ee+xWti20IDxT8XAxs/olvnJRIkA6ROgCeAjK bZHyiWXgjKwG9rMdbHEBZI1GCjF1ICXQuOYrMAJjdpyUKKXD8qgFrLKjh+ss M26cDgXEEbqnmWyEeMwruYy2QUhH8ddn4zWRyySmhS2sN26E+v/rC3GpmyM5 8iZPqNZjxYkDb6ibHH7onZsxIxV4LgAFxb3lxF15TgQPdOkLvruc0FQzbtvH CePbDFLSQSIhUlrqarH5U+aMW6X8aii3kSMRYttiyhtoY7rkGJTBKR58NQwe M47XvvEBoctpJDoR9dm5gJ48ly45V4OyzkKAbOIzD6TCGJQQ2SEpTgaQaN0G UMbW4Er4DDDxLER37USPwChoEhBcymYBVgCOvbYG8r7ZngmQ9JrBKTt6uAoL Xphmp0L+En6wCWNzhKIAUGCsEzButnVbORI8Tf9PMvdGHGNCghbadXWLM1Fb UoZDqjvkmMbpoAFlIYDd5uSptR680C0r/PB2mxDA3c9ABF++gViYfDR6y7pz zLr4y0tpJ7G+oYGzbRRqmsCvzfcLBmT6ZaMeNOgN4x4C7IvjW9847gR0FMc+ 4+REzA8nLKzfDAjfu5CMITpdC8i3e0DaG8csd6f/xugl/w/QNtoS\ \>"], "Graphics", ImageSize->{656, 366}, ImageMargins->0]], "Input", CellChangeTimes->{{3.410151855548067*^9, 3.4101518785314493`*^9}}], Cell["Equivalent circuit", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 3.405907109932663*^9}, {3.410151936770359*^9, 3.4101519419755697`*^9}}], Cell[BoxData[ RowBox[{Cell[GraphicsData["CompressedBitmap", "\<\ eJztWs9uEkEYH1go2LTV0FYPhoaL0agHixcT4xVjjCdjwsVE0piUg1JrYxtM L73BAxglJtUjdw+8AU/AE/AEPME6v29nJtNldmH/4CLZTZg/3377m+/P7Hzf 7PCqcXL4/kPjpHnQqDw/bhwdNg8+V2qtY06yMoxlyoyxbxWGts2boqBrD4Xo rEj7D6qH0PGZRmCWrZTmvXsG2tPY2HcFrVar2fV63R6Px+xGMIgtQWu323a/ 36delsq8Xa1W7V6vR/zD4dBuNptxwpfLZUhM/NAAsyUU/LoOT9doNCK+yWSi 7oVFd4SX0zlLZR62ICaMANNzBcLBF6aEh6mF8GzbG/IS1U1drWkjW+RDAKJX QnkLT9zVIFzopQCSamY2Smqi3QkztMkHFs1Nv2djGN70QqawywVLa/BusAdf J8W+pyTe8ZV9FsQctoxi89Uc3jF0jtYtefH29WSloonA1miJQyiRYRc1X1m3 DI/EIN22GFUGeIyMH9p8jTfZxG+NhUkR0NHLApTTZIwEbXOxWoj0xB4MBvSD Jh6eNWkhpZuOoDlyQ6fTkdr9Q+U2BA1JEqTQpRIZjcPIVLg3hc7wyhdVjtbt dtXclPXi5qaf4pivkFQpjqQ3iuIbvtmj7KONobnbY1guiqgoE5OymlTFFIPh cfFJnQUDZ8X8vqIqJYFSKlOipM9VS5RSOWUIEueNwivN5x45lCVKbWk1GqVg oBU9feOfHO9EcIRJjtvzqXzVTRa9D8JNRpGCqTw7jZ83016w2hARqsejtv/m Ykk8rb2QsXna/a7qm5qEPO0WCZtz0KOqHSX7C6iOaahUzFUTk3ZP17wECbS3 8hnKxP7iv4elTCSrckdqzevndKh0qHSolR7qvoJ94LXI+kB8MkhWTSFSiOgQ /ZQ9EfYvgqafNT4KBwGaPE8MCNGicp2+XmA3xpytir4/pr44TwyJLg701DcS +bENmyDtODEg+kdB0ze2zteYPKFiZ6kfJ4aEh3AQHr0niUHoSgaEaAka/Cu2 nnK54CZ6HAzsSAMTk0Xta/VvVfvBYJfq1VwsO00D15r9NoVIIZKBeKnY36Hl nDixnwakr6t9i0wT83+aflOVUyceuPjye+bc/UXVGq2lCFI4HMLnStT8iVOH 65Kqgn4iSNwaJxOsP6ja9IzmiLcSAvd9IGaFbIO8EuI7Vaa4XFRxGRfuu6Rw IehxU266pB78HjvzZr/wluVC19QrLJ47TD2NyS/cLXAOebVZ5i/BjqPl\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{285, 150}, ImageMargins->{{48, 0}, {0, 0}}], Cell[GraphicsData["CompressedBitmap", "\<\ eJzNXFuPHEcVbu9Mz+xl9hqMYzubGCLwA4qVWFyFIJjLgoAIIxAsEgreREjZ SAgULEL8BLxhJB78EmTekZx3JIc/4CceLUDizb/A/IGlT9X5ar6qPl1dPTsx tLQz09VVp86tzqlzTvW+cnTzjZ/+7Ojm8etHl77+1tEv3jh+/ZeXDn7+VtM0 OlNVZ96tqurwUiW/T5qf+uGuP8mH3nyAv3/nvlZP7t+/f3J4eOj+7t2757rI 74ODA7mfaTd5hG77+/vu++7du4L3yfHx8Q9dt/XQJKMfP37soD148MDdS7sM a9qfdt1rGemapYtOXK04XozcLHpVv/I4/9Z9rTnI8vjRo0fuucwqIMDDW7du VRvaV/pIO7Dh6fR3dehuRvysQcO3EdyGDb7t6tWrAbUtnYfnl0vmE2ofPnzo 8Gu+q7f9pP5rFrrIMCFHumGoMAw8FhCOJW2Mav0U8WCIDlMKyjhwXeFAGxoO OuE09w0cEcsYaLg+zZgcg4gR1URBSz8G3aAcgQacBjxAgxHS9dce3Xfc166D INBwCQNktECCGkNnwRhom/wWosFQMK+ZTplWOziCKa45I2qTgd8hlJXZCmsj 4CbXnTt3sGacGkGFlfpGXF0c3HU6InilNLO6SR+hReCKoKQdCtB8QwU9G6dh veKCjIWkSUKS3I21jdQ1sBGaPm/Ls4rRWiEY0ib6i/nLFGwazcW0CCysE8Eb bOlgCbGAJeO6TnV6rFQmX6eK2ARNPAkGxWbJdSWOrQCTINrSoAywsKhNd6Vs FAyJKFGtJpQWiE6/6sbdvn07P4VfkeQGdPXdUoYLnqK9WMvyu8F7k7RDmucS mwRNg5bob1AuJAkUGCkRktxLe9N9p1Puqw4ie4Nk6G8Y9WnLcMgo6S1Le6az CH8Eoixi8BwmSu4OFRabNNh6VZnKwnhKKiZ4WOMidEe8QFsuSWzShrYJ34SM BvWAsjACYlgnjZR2uXvNQPGPfvofu6+1YEKhMYYvr84Sh6DQQBVrXNpm1AZU sXgETXX4gSRF3d15zapb+HRtGL6pMMiEg7Tvua+dwEUZBg9Aa5gtueNYYqk/ rBixE4cerQiwZPlvquwFPHtqCEnMyzphHXv4PRNd+Q1TYqFr7EH+zUxYdzNj 9wSsoJ0yi8qUDU+MWL/heYG0URmiY+3p8VuQT6bn/UDp9H9nguvW0vfi8sqO Z6JcYG/qnw9UHAYc91swhnKmcAx/HImjDrzAJQYeSwk7wRPyLyyPD8nnZbld L4DGLIKztpzjnjy7Kbc/YFS9LGBcgA60Zg409lUTmjwns08Zc4yoLd6NtJzV QNX4vnaHvvNsYIncvWL0Y5OsUUF1mfrBY/yE+oFDP/LT/1MfsbU+Igpip1P9 g/igiqWbxjUOyByFbJuEN2KFt1TYpaHXuaQ/LGpXf2/lt0ojQdcOj9DcJ1QK r1IXZkVp3DYkIrMius0B47cyOPHihD5RlF35mLn6vTIYu3n8SRD7JR0GhyDs 9kyfQC3DpbbUz7QRPKUMFUOEvQaGUSRncnFEchTuQJYwiNAH+CPINxPCWbEN Nubd0eFaFB0KPHZ5gD1SFSlElylOuWDJTcBCD1VufzCY5uU1CZgJ42WoUBVk s+MQZPGx75YLOyn5FgJ4LTUsscTFLhJ7w5SgOZFrRbGiFWzBcxfGogiZLfCp Rc+jvBpZNyN0Zp8IU5wR1TUlR6AIE4QYwUSiRY9ZO6KkTEq0ZtQmBv/G89T6 BOESLvVXU+1k+d5u/i8e7I7z6GCJWmuA2zKM/bK2CUYyi5jJsdFvRSkhF+tJ VOcwx3YcObIG3kSJEAKgiJBNo4hTHVW8LZhE2zm5dPGuEKT+ILnOowVx8o7I 2shlePsVbZOloDME8SDkZd7CCbCGCEbiW7ARwMoVrIHWWZo71rzecHszAxYx ceEShTUVUNhTQ5cbsBw7xnmnSZSuhnI1YEEzmRykPE2akVrKBeybGZggeKD7 gE7xkmiGc75SpVo9rUM0oA6SVk19yiDqYn4ItjSq1Iyz36qMHRvgZBvcrxly grFuHrOdV7utaE+DduCSPtImjN3TcRzDXywYl+YZxFofxkyXrtjCX1OiBHME 8WQtsDGROx/zrweVh6mCOkDndTm8MKw79rfGpv9fJPmCkMJBX3K96MBA4aqB wtTo9xnSAFWQ6tvaJve676leNfp9zE//NX3EUdInDYbVRr/PyeeKqOS3aFKY jBvhqU71VcICERYiUtapsdHv89qmjs/dfYO4BKv3mtHveT/9Z93XaliSnO5C 8qjRX04xg1DEgWmsZsWBKMGlMaMvjHivSBk4d2n0Yk09U3ClYeV591lcMOQk CHZb4Kturk0OcBI/zVvCcHdzIM5BYnfXjhXLYcw6JGThZ9GsOnLFfe0VVxC5 uIvkINgTdGmLPWnAioMyYAKvmuy82ZXtqnxLwtBQTBwHldLMjxV+jRR+iuwC gWqoyVih/TZp6MCIsiQTIG3IeL+saGAa/M2T+WtRrteSzTxgHnHAbO7eFwqW V1sxRyKs7trcctRgcyERd9Mfy0BX1ouKcF99WcXBxb84FJ+0onzdsIObQAhR QpLhsPTJbydnvfkCcDSp1CNc4aiBnRJHEkh6ch6nP0iPa1NWDmi3EB4zNpeg YdujpFdfdJ91EK+ojVrBALcdym/05jQs2ixcTkMby6g7/l+KCgxLGU3NFBxW WU2oQgwf9Tj4FTVPTuNK6+yCEtJFWk8OC12yGlhWqRWKoow68qqahPJguxeU pQ2zCFCSgAtFNmhJg2/OzvCUiFA7EjAj5VZJfm63BFRv3qw2kHxZ9Zm2HvP8 ZUyjZ9d2SyyUkGJZRHYb2oN8Tg9PCqSQWTNLkXJPNg+JQxCLFAQTa/E7Wir5 IyjYheo+XgV1Yi4NzWKxGiKzZqUqxwRaCBR+jt3niIPtkB7tz9zVIWKRS+Pg rEu2lko2zZdLc5aS0jmFlQ61druo0yBHxBS1F0vvIZzaGNqTXAQzLH4D47Ij QovLdUD+M8dMXQwvKTTrrFEzIxSYjmYotBmnQgN7OWWZpEI7ssx7yo5cErXW oSJMLPamT9/uKtZwO1m6qqCTJPNeZgira3o+jD0z1JWE09oYsbr2pHytY2mT XjRbTMud7VtABnUGAysVn9nCvKRYWGfHdIMZso6cjcaCgggR9ZBdD9nYjow1 wLYjYCvxbWehn80845R8Go4KQ/lIONsSCkcjMhfJkluZ92meLblE/rZB0vMs SPtUHfK/cocjaJxp/7S2cV7cyshz+Gek1/fzj7cIG3gSyENTAkEeXEDiJNi5 /BRWTeCZ/JBNAytl6Tl6hMgCbdaJQJytZDZzZaAv04p+Y1WTXCXgmYI+II0z scCVD0tioTCdl1UwAot3IPNwZV4GnQtmeNWjhA4YCiOjjKOKbDhxvPWsPssd Y6SYOIiMyyK5PDz382wtroecH9bdlU9cHh9zc+IVBsPiwcfds9j/N2KeBIAD 6z5XhnVfC/NoAQI2AMffRAo+Ml6N9mW0kYIv+ARp7jKqNGxe4p3odnHy2UAz GOLC6g/XJGPn6sNbeCksQGz7m+/Sw4B/1n58TNVzabM3GWhMW3w+9T1PIcwQ QM/Nnl/2nOoU5iCa/Kv2yb3IgaxqMvZv8czsEzEzzuBC27Dpk52AcyPvypAN 7Z0LW4FDAmUOZCfGhhNQ2K3Byw45/vsX99n5xkLqwIeAfi/WTZkBvhHLht8T eV+5lHsB4UVCZxnL96kYRUo5R0EhQLxvqIKV2L2ibacrxipy2K5phiXaLGBh SSHku66trLSXvl9IZbbKKst9Qefre4XhI66tuDa76BldHOqwiqMuk+mTZlRP 5e2SNfvQ8uyFAcwGo3jn4VOTUX419mReoaAU1xMlsxTPIzSfCqimFmM+tlVH QmGg9J2NSyruovLpYoeVzytdaerOqkjy2X0rAolr8WUHmC8Wcp4rsbByKuQb ylVs9Qa84GnJlsMSVDtS0B2F6LR2xtWOVxVU6a6lt8BnhfqnP3a9ewo47fPQ Vt5gbxmV864j3h79U58atzSPw/lI87YHvxhLs0YLNVa79iFn8p/hpR865GzV I26obvdtIcuqXx/I0fEdVYtSUFxHMspS1isxp68sD6mIlZc0c4ph5QN3WO/y h7Ctt5e7TVy3o4i3lHbiHfiUvM3drhst55x7dyk1Hps7nJ5b/jxXTw01Vxja yw8trVFEilD4UnXpu3Cdp9GtOl5H8hsaUVJJbFdQlnxQv78MVzIFKE3qIUst Jna+M9BHwLgEene9oUOteuouuwQBiHSd0k+KJm8qvh3FNU6KpmqQK8VcKOiD ROVpamPPZZ7xi/eJ3T6iVdFVqLCYyq8BdNVx3tQ+Q2tEPW8sPIHy0HOZZ1Yt RTdf7xiMepvQSaOJJ1RfeTb/2KpkJARx5h0E/a8rGfsFfawKgJL2HxLx/1mW /8Kw7vNkuaaPXCdsrJacN3Own9D/4+r6XZ35L/9Zcqc=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{407, 88}, ImageMargins->{{18, 0}, {0, -10}}]}]], "Input", CellChangeTimes->{{3.410151912026204*^9, 3.410151914104878*^9}, { 3.410151955087166*^9, 3.410151972479734*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"kr1", "=", RowBox[{"10", "^", "logkr1"}]}], ";", RowBox[{"kr2", "=", RowBox[{"10", "^", "logkr2"}]}], ";", RowBox[{"Kr1V", "=", RowBox[{"Kr1", "[", "Vc", "]"}]}], ";", RowBox[{"Kr2V", "=", RowBox[{"Kr2", "[", "Vc", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Rct", "=", FractionBox[ RowBox[{"Kr1V", "+", "Kr2V"}], RowBox[{"f", " ", "Farad", " ", "\[CapitalGamma]", " ", RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], "Kr1V", " ", "Kr2V"}]]}], ";", RowBox[{"Rp", "=", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " ", RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V"}], ")"}], " ", "Rct"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}]}]]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rct", " ", "Cdl"}], ")"}]}], ",", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " "}]]}], "}"}]}], ";", RowBox[{"logwmin", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Min", "[", "lw", "]"}]}], "]"}], "-", "1.5"}]}], ";", RowBox[{"logwmax", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Max", "[", "lw", "]"}]}], "]"}], "+", "1.5"}]}], ";", "\[IndentingNewLine]", RowBox[{"RpVcpROhm", "=", RowBox[{"Rp", "+", "ROhm"}]}], ";", RowBox[{"ROhmEt", "=", RowBox[{"ROhm", "/", "RpVcpROhm"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "Zs", " ", "*)"}], " ", RowBox[{"ZX1Et", "=", RowBox[{ FractionBox[ RowBox[{"Rct", " ", RowBox[{"(", RowBox[{"ar1", "-", "ar2"}], ")"}], " ", "Kr1V"}], RowBox[{ RowBox[{"p", " ", RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}]}]}]], "/", "RpVcpROhm"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "ZA", " ", "*)"}], " ", RowBox[{"ZX2Et", "=", RowBox[{ FractionBox[ RowBox[{"Rct", RowBox[{"(", RowBox[{ RowBox[{"-", "ar1"}], "+", "ar2"}], ")"}], " ", "Kr2V"}], RowBox[{ RowBox[{"p", " ", RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}]}]}]], "/", "RpVcpROhm"}]}], ";", RowBox[{"ZqEt", "=", RowBox[{"ZX1Et", "+", "ZX2Et"}]}], ";", RowBox[{"Zf", "=", FractionBox[ RowBox[{"Rct", " ", RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "+", "Kr1V", "+", "Kr2V"}], ")"}]}], RowBox[{ RowBox[{"p", " ", RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}]}]}]]}], ";", RowBox[{"ZfEt", "=", RowBox[{"Zf", "/", "RpVcpROhm"}]}], ";", RowBox[{"ZEt", "=", RowBox[{ FractionBox["Zf", RowBox[{"1", "+", RowBox[{"p", " ", "Cdl", " ", "Zf"}]}]], "/", "RpVcpROhm"}]}], ";", "\[IndentingNewLine]", RowBox[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"Evaluate", "[", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"if", "[", "VSta", "]"}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"Evaluate", "[", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"As1ifsta", "[", "VSta", "]"}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"Evaluate", "[", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"As2ifsta", "[", "VSta", "]"}], "]"}]}], "]"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "0.5", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "0.5", "]"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", RowBox[{"-", "4"}], ",", "0", ",", "4", ",", "8"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Vc", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "Vc", "]"}]}]}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", " ", RowBox[{"if", "[", "Vc", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(i\), \(\(f\)\(\\\ \)\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", "Purple", ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(i\), \(f1\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(i\), \(f2\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.7"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\\\\"\", FontWeight->\"Plain\"]]\)/(A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))|\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\\\\"\", FontWeight->\"Plain\"]]\)/(A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))|\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"1", "-", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(E+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0", ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Vc", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "Vc", "]"}]}]}], ",", RowBox[{"\[Theta]A", "[", "Vc", "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Vc", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "Vc", "]"}]}]}], ",", RowBox[{"1", "-", RowBox[{"\[Theta]A", "[", "Vc", "]"}]}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.7"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZqEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZqEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.32"}], ",", "0.32"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}], ",", "0", ",", "0.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZqEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZqEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZqEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZqEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\\\"\\\\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\\\"\\\\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.7"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\\\"\\\\\"\)]\)\ \>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\\\"\)]\))\>\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \(\ \[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\\\"\\\\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZfEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.01"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", "0.75"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}], ",", "0", ",", "0.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZfEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhmEt", "+", RowBox[{"Re", "[", "ZfEt", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", "Purple", ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"AbsolutePointSize", "[", "6", "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ "\"\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \ \(\"\\"\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\"", ",", "\"\<- Im Z/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(A\), \ \(+\)]\) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) A,s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(A\), \ \(+\)]\) + A,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \!\(\*SubscriptBox[\(A\), \(2\ \)]\) + s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkr1", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ar1", ",", "0.7", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(r1\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkr2", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ar2", ",", "0.3", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "5"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ROhm", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \!\(\*SuperscriptBox[\(cm\), \ \(2\)]\))\>\""}], "}"}], ",", "0", ",", "100", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vc", ",", "0.07", ",", "\"\\""}], "}"}], ",", "Vmin", ",", "Vmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logwc", ",", "logwmin", ",", "\"\\""}], "}"}], ",", "logwmin", ",", "logwmax", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc1", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc2", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Kr1", "[", "V_", "]"}], ":=", RowBox[{"kr1", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "ar1"}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr2", "[", "V_", "]"}], ":=", RowBox[{"kr2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "ar2"}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"\[Theta]A", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], " "}], RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{"Kr2", "[", "V", "]"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "\[CapitalGamma]", " ", "Farad", " ", RowBox[{"Kr1", "[", "V", "]"}], " ", RowBox[{"Kr2", "[", "V", "]"}]}], RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{"Kr2", "[", "V", "]"}]}]]}]}], ";", RowBox[{ RowBox[{"As1ifsta", "[", "V_", "]"}], ":=", RowBox[{ RowBox[{"-", "2"}], " ", "\[CapitalGamma]", " ", "Farad", " ", RowBox[{"Kr1", "[", "V", "]"}]}]}], ";", RowBox[{ RowBox[{"As2ifsta", "[", "V_", "]"}], ":=", RowBox[{ RowBox[{"-", "2"}], " ", "\[CapitalGamma]", " ", "Farad", " ", RowBox[{"Kr2", "[", "V", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Vmin", "=", RowBox[{"-", "0.5"}]}], ";", RowBox[{"Vmax", "=", "0.5"}], ";", RowBox[{"\[CapitalGamma]", "=", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "9"}]}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"Farad", "=", "96485."}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{"Blue", ",", "Purple", ",", RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.6142719099991583`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.404272476373662*^9, 3.404272477958503*^9}, 3.404272668581314*^9, {3.4042727232240887`*^9, 3.404272728454939*^9}, { 3.404272786841215*^9, 3.404272804870813*^9}, {3.404272838309691*^9, 3.4042728618375607`*^9}, {3.4042729526001043`*^9, 3.4042730381516457`*^9}, {3.404273079691609*^9, 3.404273217892606*^9}, { 3.404273294955968*^9, 3.404273298760388*^9}, {3.404273387794849*^9, 3.4042734503165693`*^9}, {3.4042734961086283`*^9, 3.404273547525057*^9}, { 3.404273625605628*^9, 3.404273650497052*^9}, {3.404273731173894*^9, 3.404273767096957*^9}, {3.404273799830763*^9, 3.4042738707648983`*^9}, { 3.40427393239679*^9, 3.404273934883729*^9}, {3.404273974145442*^9, 3.404274003508957*^9}, {3.404274114255464*^9, 3.404274136338912*^9}, { 3.4042741762935133`*^9, 3.404274195910239*^9}, 3.404274257986496*^9, { 3.404274329300447*^9, 3.404274329827894*^9}, {3.404274362144527*^9, 3.4042743661154137`*^9}, {3.404281794664309*^9, 3.404281797246611*^9}, { 3.404281837182343*^9, 3.404281875096817*^9}, {3.4042819679357033`*^9, 3.404282033539279*^9}, 3.404282085939872*^9, {3.404282140862443*^9, 3.404282160336235*^9}, {3.404282299291065*^9, 3.404282345207913*^9}, { 3.404282812673225*^9, 3.404282870347505*^9}, 3.4042829101123857`*^9, { 3.404282941905983*^9, 3.4042829483433933`*^9}, {3.404283073216866*^9, 3.404283082327835*^9}, {3.404283141356715*^9, 3.404283182821355*^9}, { 3.4042832155227327`*^9, 3.404283258833531*^9}, {3.4042833626548147`*^9, 3.404283398426738*^9}, {3.404390659988315*^9, 3.404390689351815*^9}, { 3.4043907568818893`*^9, 3.404390784286687*^9}, {3.404390860657833*^9, 3.40439091742135*^9}, {3.4043910359543037`*^9, 3.404391054714142*^9}, { 3.404391767968842*^9, 3.40439188885679*^9}, {3.404391935788953*^9, 3.404391940364382*^9}, {3.404392002048643*^9, 3.404392004447742*^9}, { 3.404392051525515*^9, 3.404392068363361*^9}, 3.40439214659828*^9, { 3.404392703278009*^9, 3.404392771112996*^9}, {3.4043928035315*^9, 3.404392840756844*^9}, {3.404392972994961*^9, 3.4043929740834846`*^9}, { 3.4044290030768223`*^9, 3.404429021544701*^9}, {3.404429287683379*^9, 3.404429317399768*^9}, {3.404429368432976*^9, 3.404429454063241*^9}, { 3.404429505178494*^9, 3.404429557925486*^9}, {3.4044306288480873`*^9, 3.40443063643995*^9}, {3.404436058103282*^9, 3.40443606382516*^9}, { 3.404442176375844*^9, 3.404442230132934*^9}, {3.404442261628434*^9, 3.404442267453909*^9}, {3.404442314318016*^9, 3.404442328013001*^9}, { 3.4044423891008577`*^9, 3.404442389940579*^9}, {3.4044425469300003`*^9, 3.404442548202819*^9}, {3.404442639671391*^9, 3.404442640118331*^9}, 3.404456693542221*^9, {3.4044731628011703`*^9, 3.404473224992757*^9}, { 3.404473319237414*^9, 3.404473331786914*^9}, {3.404473366700746*^9, 3.404473438662547*^9}, {3.404473479901114*^9, 3.4044735206668663`*^9}, { 3.404473554174704*^9, 3.404473559247058*^9}, {3.404473610185067*^9, 3.404473670607089*^9}, 3.404473917120986*^9, {3.404473956994831*^9, 3.4044739580180397`*^9}, {3.404474088931505*^9, 3.4044741427717657`*^9}, { 3.4044741754491243`*^9, 3.404474290693391*^9}, {3.404474329701288*^9, 3.404474330346374*^9}, {3.404474373890414*^9, 3.404474374373801*^9}, { 3.404474404892201*^9, 3.404474408099757*^9}, {3.4044747799074163`*^9, 3.404474789322126*^9}, {3.4044748366129103`*^9, 3.404474847666203*^9}, { 3.404475972114959*^9, 3.404475987975752*^9}, {3.404476018684896*^9, 3.404476038872746*^9}, {3.4045301344013033`*^9, 3.4045301513930283`*^9}, { 3.404530190584299*^9, 3.404530267364694*^9}, {3.404530412065104*^9, 3.404530421363574*^9}, {3.404532943959751*^9, 3.40453302831153*^9}, { 3.404797302593358*^9, 3.404797348319078*^9}, {3.404797395180875*^9, 3.404797445296929*^9}, {3.404797512936145*^9, 3.404797531923532*^9}, { 3.404797584908869*^9, 3.404797680615205*^9}, {3.404797888873632*^9, 3.404797927843219*^9}, {3.40479798203458*^9, 3.4047979846574163`*^9}, { 3.404799350410967*^9, 3.4047993800733356`*^9}, {3.4047994156019373`*^9, 3.40479946595382*^9}, 3.404799543220315*^9, {3.404799579114188*^9, 3.404799613458438*^9}, {3.4047996653481293`*^9, 3.404799762097822*^9}, { 3.4047998049182034`*^9, 3.404799895494069*^9}, {3.404799942573794*^9, 3.404799954307382*^9}, {3.404800020381646*^9, 3.40480040525935*^9}, { 3.404800550808537*^9, 3.404800608631371*^9}, {3.404800645053679*^9, 3.4048007327873917`*^9}, {3.404800953337172*^9, 3.404800971605794*^9}, { 3.404801514373068*^9, 3.4048015834412746`*^9}, {3.404801626280081*^9, 3.404801679756674*^9}, {3.4048017255455723`*^9, 3.404801764976033*^9}, { 3.4048022738128366`*^9, 3.404802309061829*^9}, {3.404802472835491*^9, 3.404802488648676*^9}, {3.404802873068316*^9, 3.404802940995611*^9}, { 3.404803021397653*^9, 3.404803089530534*^9}, {3.404803131352415*^9, 3.40480331416397*^9}, {3.404803390688555*^9, 3.404803399355961*^9}, { 3.404804076089295*^9, 3.4048040991309633`*^9}, {3.40486865759769*^9, 3.404868695689033*^9}, {3.404868727872806*^9, 3.404868752113332*^9}, { 3.4048689449556093`*^9, 3.404868945390654*^9}, {3.404868977091063*^9, 3.404868999611095*^9}, {3.4048690325438747`*^9, 3.4048691321976748`*^9}, { 3.404870017553321*^9, 3.4048700526476727`*^9}, {3.404870143865489*^9, 3.404870165374588*^9}, {3.404870236586739*^9, 3.404870241266412*^9}, { 3.40487782873768*^9, 3.404877843702971*^9}, {3.40487789143778*^9, 3.4048780145768547`*^9}, {3.404878061361676*^9, 3.4048780949841347`*^9}, { 3.404878133750465*^9, 3.404878280232869*^9}, {3.404878337386598*^9, 3.4048783719798193`*^9}, {3.404878438417426*^9, 3.4048784934083*^9}, { 3.404878523465645*^9, 3.4048785775459213`*^9}, {3.405511207402516*^9, 3.4055112246878357`*^9}, {3.405511272072027*^9, 3.4055113144445868`*^9}, { 3.4055113899812098`*^9, 3.4055114055521107`*^9}, 3.4055114565897427`*^9, { 3.405511542447608*^9, 3.405511544702585*^9}, {3.405511578649404*^9, 3.4055115867779827`*^9}, {3.4058475004512653`*^9, 3.4058475057616663`*^9}, {3.405847683675837*^9, 3.405847742261528*^9}, { 3.405847813034894*^9, 3.405847862566736*^9}, {3.4058479034737253`*^9, 3.405847915737713*^9}, {3.405847972630558*^9, 3.405848071685534*^9}, { 3.405848263832196*^9, 3.405848371901084*^9}, {3.4058484122428207`*^9, 3.405848434439968*^9}, {3.4058485048212976`*^9, 3.4058485149310703`*^9}, { 3.4058488561629763`*^9, 3.405848893735724*^9}, {3.405849690954006*^9, 3.4058497433152037`*^9}, {3.4058497908573227`*^9, 3.40584989515611*^9}, { 3.405849957531012*^9, 3.4058499590584803`*^9}, {3.405849992307493*^9, 3.405850043794392*^9}, {3.405850099359001*^9, 3.40585011759512*^9}, { 3.4058517151923227`*^9, 3.405851779818666*^9}, {3.407381728101392*^9, 3.407381751973065*^9}, {3.407381805775076*^9, 3.407381829965534*^9}, { 3.407381996344166*^9, 3.407382069327729*^9}, {3.4073823592813883`*^9, 3.407382364765223*^9}, {3.4091446948309183`*^9, 3.409144704757983*^9}, { 3.409145150121394*^9, 3.409145169748128*^9}, {3.409145221801231*^9, 3.40914534214545*^9}, {3.409145555864357*^9, 3.409145570587775*^9}, { 3.4091457201985807`*^9, 3.409145810944936*^9}, {3.4091979660446568`*^9, 3.409197989979432*^9}, {3.40919803855297*^9, 3.409198045609851*^9}, { 3.409198098466488*^9, 3.409198112257579*^9}, {3.4091981504837227`*^9, 3.409198153522263*^9}, {3.4091983396772823`*^9, 3.409198394447831*^9}, { 3.409198430147241*^9, 3.4091985144139557`*^9}, {3.4091985569382057`*^9, 3.409198645920292*^9}, {3.409198680357965*^9, 3.409198759343459*^9}, 3.409198797333907*^9, 3.409198858249975*^9, {3.409198898586858*^9, 3.4091989590514393`*^9}, {3.409199010753881*^9, 3.409199011201825*^9}, { 3.409199080287072*^9, 3.4091990871999607`*^9}, {3.4091991313120327`*^9, 3.4091991506497393`*^9}, {3.40919921656496*^9, 3.409199219103196*^9}, { 3.409199254442206*^9, 3.409199358914257*^9}, {3.409199406952813*^9, 3.409199435516676*^9}, {3.409199472250305*^9, 3.4091994758022137`*^9}, { 3.4091997282430983`*^9, 3.409199729777094*^9}, {3.409199856059022*^9, 3.4091998895127573`*^9}, {3.4091999729793043`*^9, 3.409199974582591*^9}, 3.4092000546359787`*^9, {3.4092001436980133`*^9, 3.4092001934302177`*^9}, { 3.409200247031893*^9, 3.409200349184458*^9}, {3.409200427862976*^9, 3.409200432516345*^9}, {3.409200542244075*^9, 3.40920055184779*^9}, { 3.4092005960240927`*^9, 3.409200599302109*^9}, 3.409659897133309*^9, { 3.40966001382692*^9, 3.409660023471949*^9}, {3.4096603583021812`*^9, 3.409660398665349*^9}, {3.409826369914709*^9, 3.409826549832324*^9}, { 3.4098267129596767`*^9, 3.409826763001767*^9}, {3.409827039601323*^9, 3.409827041308535*^9}, 3.4098357049570847`*^9, {3.409836076781519*^9, 3.409836082369824*^9}, {3.4098362001620293`*^9, 3.409836205395507*^9}, { 3.409836243672278*^9, 3.409836250163774*^9}, {3.4098870624197893`*^9, 3.409887079496112*^9}, {3.409887480167531*^9, 3.409887579914795*^9}, { 3.4098876544890757`*^9, 3.409887764519596*^9}, {3.409887859654282*^9, 3.4098879077556553`*^9}, {3.409887976652581*^9, 3.409888061869278*^9}, { 3.40988810046828*^9, 3.409888150048283*^9}, 3.4098882021345673`*^9, { 3.409888254379335*^9, 3.409888294266397*^9}, {3.4098883322826757`*^9, 3.40988833307551*^9}, {3.409888458439542*^9, 3.4098884772445374`*^9}, { 3.409888971709462*^9, 3.409888973717918*^9}, {3.409889033847617*^9, 3.409889034565271*^9}, {3.409889118168438*^9, 3.40988912242384*^9}, { 3.409889184644986*^9, 3.409889245842848*^9}, {3.4098893768829813`*^9, 3.409889398954444*^9}, 3.409889446666225*^9, {3.409889504149583*^9, 3.409889509922298*^9}, {3.409889553883994*^9, 3.409889608326518*^9}, { 3.4098896500586777`*^9, 3.409889656222608*^9}, {3.40988977856738*^9, 3.40988981125292*^9}, {3.409889870395122*^9, 3.4098899106131983`*^9}, { 3.409889969637135*^9, 3.409889974296064*^9}, {3.4098902765772257`*^9, 3.409890283751268*^9}, {3.409890415914304*^9, 3.409890418997225*^9}, { 3.4098905365496683`*^9, 3.409890552736751*^9}, {3.4098906794376574`*^9, 3.409890683419834*^9}, {3.409890862230513*^9, 3.409890862679196*^9}, { 3.409890930368342*^9, 3.409891162540668*^9}, 3.409891262503067*^9, { 3.409891318307454*^9, 3.409891396810326*^9}, {3.40989148470792*^9, 3.409891561310915*^9}, {3.4098916666894617`*^9, 3.409891745151566*^9}, { 3.409891790173766*^9, 3.409891793373557*^9}, {3.409961984636973*^9, 3.409961986696422*^9}, {3.409962096004808*^9, 3.4099627009814453`*^9}, 3.409962748548418*^9, {3.4099629640122538`*^9, 3.4099629663158293`*^9}, { 3.409963014267139*^9, 3.4099630700368023`*^9}, {3.4099631037820683`*^9, 3.409963195971099*^9}, {3.409963538379722*^9, 3.409963546515532*^9}, { 3.409963582654696*^9, 3.409963585095978*^9}, {3.409963619057889*^9, 3.409963652687055*^9}, {3.409963687375931*^9, 3.409963695576548*^9}, { 3.409963766561234*^9, 3.4099637943730783`*^9}, {3.409963830067019*^9, 3.409963905879588*^9}, {3.409964004179577*^9, 3.409964017983913*^9}, { 3.409964114927113*^9, 3.409964125998127*^9}, {3.4099642392248297`*^9, 3.409964267664547*^9}, {3.409964354097486*^9, 3.4099643557036877`*^9}, { 3.4099760538093853`*^9, 3.409976069020897*^9}, {3.409976110760868*^9, 3.4099761636454268`*^9}, {3.4099762146885977`*^9, 3.409976215664937*^9}, { 3.40997630849279*^9, 3.409976396858018*^9}, {3.409976457868639*^9, 3.4099764704991198`*^9}, 3.409976598000903*^9, {3.4099766817519073`*^9, 3.409976687061287*^9}, {3.4099767313396597`*^9, 3.4099767335465918`*^9}, 3.409976823154581*^9, {3.410149429685978*^9, 3.41014953731946*^9}, 3.410149977823204*^9, {3.410150030864727*^9, 3.410150043755621*^9}, 3.410150428436063*^9, {3.410150572093894*^9, 3.410150580297813*^9}, { 3.410150632005249*^9, 3.410150660879929*^9}, {3.4101507708731203`*^9, 3.410150827384691*^9}, {3.410150874753819*^9, 3.410150892525072*^9}, { 3.41059833537533*^9, 3.410598346089198*^9}, {3.4105983867993107`*^9, 3.410598444791081*^9}, {3.410598481020668*^9, 3.410598579557877*^9}, { 3.410598618730739*^9, 3.410598619118001*^9}, 3.414811364388958*^9, { 3.4148114001071568`*^9, 3.414811441516014*^9}, {3.414811547903932*^9, 3.414811557919297*^9}, {3.4148124696541777`*^9, 3.414812506325016*^9}, { 3.414812588522403*^9, 3.4148126401892433`*^9}, {3.414813362528664*^9, 3.414813364430286*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ar1$$ = 0.7, $CellContext`ar2$$ = 0.3, $CellContext`logCdl$$ = -5, $CellContext`logkr1$$ = 0, $CellContext`logkr2$$ = 0, $CellContext`logwc$$ = -1.6501421074426652`, $CellContext`ROhm$$ = 0, $CellContext`Vc$$ = 0.07, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " \!\(\*SuperscriptBox[\(A\), \ \(+\)]\) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) A,s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " \!\(\*SuperscriptBox[\(A\), \(+\)]\) \ + A,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \!\(\*SubscriptBox[\(A\), \(2\ \)]\) + s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logkr1$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(r1\)]\)\!\(\*SuperscriptBox[\(A\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 1}, {{ Hold[$CellContext`ar1$$], 0.7, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r1\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`logkr2$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(r2\)]\)\!\(\*SuperscriptBox[\(A\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 1}, {{ Hold[$CellContext`ar2$$], 0.3, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)"}, 0.2, 0.8, 0.1}, {{ 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`Vc$$], 0.07, "E/V"}, -0.5, 0.5}, {{ Hold[$CellContext`logwc$$], -1.6501421074426652`, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -1.6501421074426652`, 3.1206364150319272`}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)"}, {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {False, True}}}, Typeset`size$$ = {545., {180., 185.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logkr1$4385$$ = 0, $CellContext`ar1$4386$$ = 0, $CellContext`logkr2$4387$$ = 0, $CellContext`ar2$4388$$ = 0, $CellContext`logCdl$4389$$ = 0, $CellContext`ROhm$4390$$ = 0, $CellContext`Vc$4391$$ = 0, $CellContext`logwc$4392$$ = 0, $CellContext`wc1$4393$$ = False, $CellContext`wc2$4394$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ar1$$ = 0.7, $CellContext`ar2$$ = 0.3, $CellContext`logCdl$$ = -5, $CellContext`logkr1$$ = 0, $CellContext`logkr2$$ = 0, $CellContext`logwc$$ = -1.6501421074426652`, $CellContext`ROhm$$ = 0, $CellContext`Vc$$ = 0.07, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False}, "ControllerVariables" :> { Hold[$CellContext`logkr1$$, $CellContext`logkr1$4385$$, 0], Hold[$CellContext`ar1$$, $CellContext`ar1$4386$$, 0], Hold[$CellContext`logkr2$$, $CellContext`logkr2$4387$$, 0], Hold[$CellContext`ar2$$, $CellContext`ar2$4388$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$4389$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$4390$$, 0], Hold[$CellContext`Vc$$, $CellContext`Vc$4391$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$4392$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$4393$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$4394$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`Cdl = 10^$CellContext`logCdl$$; $CellContext`kr1 = 10^$CellContext`logkr1$$; $CellContext`kr2 = 10^$CellContext`logkr2$$; $CellContext`Kr1V = \ $CellContext`Kr1[$CellContext`Vc$$]; $CellContext`Kr2V = \ $CellContext`Kr2[$CellContext`Vc$$]; $CellContext`Rct = ($CellContext`Kr1V + \ $CellContext`Kr2V)/($CellContext`f $CellContext`Farad $CellContext`\ \[CapitalGamma] ($CellContext`ar1$$ + $CellContext`ar2$$) $CellContext`Kr1V \ $CellContext`Kr2V); $CellContext`Rp = ($CellContext`ar1$$ + \ $CellContext`ar2$$) ($CellContext`Kr1V + $CellContext`Kr2V) $CellContext`Rct/( 2 ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V)); $CellContext`lw = { 1/($CellContext`Rct $CellContext`Cdl), 2 ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V)/($CellContext`ar1$$ + $CellContext`ar2$$)}; \ $CellContext`logwmin = Log[10, Min[$CellContext`lw]] - 1.5; $CellContext`logwmax = Log[10, Max[$CellContext`lw]] + 1.5; $CellContext`RpVcpROhm = $CellContext`Rp + $CellContext`ROhm$$; \ $CellContext`ROhmEt = $CellContext`ROhm$$/$CellContext`RpVcpROhm; \ $CellContext`ZX1Et = ($CellContext`Rct ($CellContext`ar1$$ - \ $CellContext`ar2$$) $CellContext`Kr1V/($CellContext`p ($CellContext`ar1$$ + \ $CellContext`ar2$$) + 2 ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V)))/$CellContext`RpVcpROhm; $CellContext`ZX2Et = \ ($CellContext`Rct (-$CellContext`ar1$$ + $CellContext`ar2$$) \ $CellContext`Kr2V/($CellContext`p ($CellContext`ar1$$ + $CellContext`ar2$$) + 2 ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V)))/$CellContext`RpVcpROhm; $CellContext`ZqEt = \ $CellContext`ZX1Et + $CellContext`ZX2Et; $CellContext`Zf = $CellContext`Rct \ ($CellContext`ar1$$ + $CellContext`ar2$$) ($CellContext`p + $CellContext`Kr1V + \ $CellContext`Kr2V)/($CellContext`p ($CellContext`ar1$$ + $CellContext`ar2$$) + 2 ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V)); $CellContext`ZfEt = \ $CellContext`Zf/$CellContext`RpVcpROhm; $CellContext`ZEt = ($CellContext`Zf/( 1 + $CellContext`p $CellContext`Cdl \ $CellContext`Zf))/$CellContext`RpVcpROhm; GraphicsGrid[{{ ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], Evaluate[ Log[10, Abs[ $CellContext`if[$CellContext`VSta]]]]}, {$CellContext`VSta + \ $CellContext`ROhm$$ $CellContext`if[$CellContext`VSta], Evaluate[ Log[10, Abs[ $CellContext`As1ifsta[$CellContext`VSta]]]]}, \ {$CellContext`VSta + $CellContext`ROhm$$ $CellContext`if[$CellContext`VSta], Evaluate[ Log[10, Abs[ $CellContext`As2ifsta[$CellContext`VSta]]]]}}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, PlotStyle -> { AbsoluteThickness[2], AbsoluteThickness[0.5], AbsoluteThickness[0.5]}, Frame -> True, FrameTicks -> {{-0.4, 0.4}, {-8, -4, 0, 4, 8}, None, None}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`Vc$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`Vc$$], Log[10, Abs[ $CellContext`if[$CellContext`Vc$$]]]}], Blue, Text["\!\(\*SubscriptBox[\(i\), \(\(f\)\(\\ \)\)]\)", Scaled[{0.9, 0.9}]], Purple, Text["\!\(\*SubscriptBox[\(i\), \(f1\)]\)", Scaled[{0.9, 0.8}]], Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(i\), \(f2\)]\)", Scaled[{0.9, 0.7}]]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "log|\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))|"}, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "log|\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))|"}], AspectRatio -> 1/GoldenRatio, Axes -> None, BaseStyle -> $CellContext`monStyle, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], 1 - $CellContext`\[Theta]A[$CellContext`VSta]}, \ {$CellContext`VSta + $CellContext`ROhm$$ $CellContext`if[$CellContext`VSta], $CellContext`\[Theta]A[$CellContext`VSta]}}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, Frame -> True, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\[Theta]"}, { "(E+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\[Theta]"}], Axes -> None, FrameTicks -> {{-0.4, 0, 0.4}, {0, 0.5, 1}, None, None}, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`Vc$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`Vc$$], $CellContext`\[Theta]A[$CellContext`Vc$$]}], Point[{$CellContext`Vc$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`Vc$$], 1 - $CellContext`\[Theta]A[$CellContext`Vc$$]}], Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"s\"\)]\)", Scaled[{0.9, 0.8}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"A\"\)]\)", Scaled[{0.9, 0.7}]]}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, BaseStyle -> $CellContext`monStyle, ImageSize -> 250, AspectRatio -> 1/GoldenRatio]}, { ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZqEt], -Im[$CellContext`ZqEt]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 250, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 5], AbsoluteThickness[2]}}, PlotRange -> {{-0.5, 0.5}, {-0.32, 0.32}}, FrameTicks -> {{-1, -0.5, 0, 0.5, 1}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`ZqEt], - Im[$CellContext`ZqEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], { Point[ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{ Re[$CellContext`ZqEt], - Im[$CellContext`ZqEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]]}, Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(Z\), \(\"s\"\)]\)", Scaled[{0.1, 0.9}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(Z\), \(\"A\"\)]\)", Scaled[{0.1, 0.8}]], Part[$CellContext`lHue, 5], Text["\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)", Scaled[{0.1, 0.7}]]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "Re Z/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle], ParametricPlot[{ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 250, PlotStyle -> {{Purple, AbsoluteThickness[1]}, {Blue, AbsoluteThickness[2]}}, PlotRange -> {{-0.01, 1.5}, {-0.25, 0.75}}, FrameTicks -> {{-1, -0.5, 0, 0.5, 1}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{$CellContext`ROhmEt + Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Purple, Text["Z", Scaled[{0.1, 0.9}]], Blue, Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", Scaled[{0.1, 0.8}]], AbsolutePointSize[6]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, { "(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+Re \ Z)/(\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)+\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\))", "- Im Z/(\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)+\!\(\ \*SubscriptBox[\(R\), \(\"p\"\)]\))"}], BaseStyle -> $CellContext`monStyle]}}]), "Specifications" :> { Style[ " \!\(\*SuperscriptBox[\(A\), \(+\)]\ \) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) A,s", Bold, Medium], Style[ " \!\(\*SuperscriptBox[\(A\), \(+\)]\) \ + A,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \!\(\*SubscriptBox[\(A\), \(2\ \)]\) + s", Bold, Medium], Delimiter, {{$CellContext`logkr1$$, 0, "log(\!\(\*SubscriptBox[\(k\), \(r1\)]\)\!\(\*SuperscriptBox[\(A\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 1, Appearance -> "Labeled"}, {{$CellContext`ar1$$, 0.7, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r1\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`logkr2$$, 0, "log(\!\(\*SubscriptBox[\(k\), \(r2\)]\)\!\(\*SuperscriptBox[\(A\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 1, Appearance -> "Labeled"}, {{$CellContext`ar2$$, 0.3, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)"}, 0.2, 0.8, 0.1, 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`Vc$$, 0.07, "E/V"}, -0.5, 0.5, Appearance -> "Labeled"}, {{$CellContext`logwc$$, -1.6501421074426652`, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -1.6501421074426652`, 3.1206364150319272`, Appearance -> "Labeled"}, {{$CellContext`wc1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)"}, { False, True}}, {{$CellContext`wc2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {False, True}}}, "Options" :> {FrameLabel -> { Style[ "ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2008. Hosted \ by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}], ImageSizeCache->{931., {215.375, 220.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Cdl = 1/100000, $CellContext`kr1 = 1, $CellContext`kr2 = 1, $CellContext`Kr1V = 0.14865902771995004`, $CellContext`Kr1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr1 Exp[(-FE`ar1$$37) $CellContext`f $CellContext`V$], Attributes[$CellContext`V$] = {Temporary}, FE`ar1$$37 = 0.7, $CellContext`f = 38.9, $CellContext`Kr2V = 0.44179911109758013`, $CellContext`Kr2[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr2 Exp[(-FE`ar2$$37) $CellContext`f $CellContext`V$], FE`ar2$$37 = 0.3, $CellContext`Rct = 2395.3202441875783`, $CellContext`Farad = 96485., $CellContext`\[CapitalGamma] = 1.*^-9, $CellContext`Rp = 1998.4569885341298`, $CellContext`lw = {41.748071157774156`, 0.7077141721685822}, $CellContext`logwmin = -1.6501421074426652`, \ $CellContext`logwmax = 3.1206364150319272`, $CellContext`RpVcpROhm = 1998.4569885341298`, $CellContext`ROhmEt = 0, $CellContext`ZX1Et = 0.07127218261325266/(0.7077141721685822 + 1. $CellContext`p), $CellContext`ZX2Et = (-0.2118134862541802)/( 0.7077141721685822 + 1. $CellContext`p), $CellContext`ZqEt = (-0.14054130364092754`)/( 0.7077141721685822 + 1. $CellContext`p), $CellContext`Zf = ( 2395.3202441875783` (0.5904581388175302 + $CellContext`p))/( 0.7077141721685822 + 1. $CellContext`p), $CellContext`ZfEt = ( 1.1985848371670726` (0.5904581388175302 + $CellContext`p))/( 0.7077141721685822 + 1. $CellContext`p), $CellContext`ZEt = ( 1.1985848371670726` (0.5904581388175302 + $CellContext`p))/(( 0.7077141721685822 + 1. $CellContext`p) ( 1 + (0.023953202441875786` $CellContext`p ( 0.5904581388175302 + $CellContext`p))/(0.7077141721685822 + 1. $CellContext`p))), $CellContext`if[ Pattern[$CellContext`V, Blank[]]] := -(( 2 $CellContext`\[CapitalGamma] $CellContext`Farad \ $CellContext`Kr1[$CellContext`V] \ $CellContext`Kr2[$CellContext`V])/($CellContext`Kr1[$CellContext`V] + \ $CellContext`Kr2[$CellContext`V])), $CellContext`As1ifsta[ Pattern[$CellContext`V, Blank[]]] := (-2) $CellContext`\[CapitalGamma] $CellContext`Farad \ $CellContext`Kr1[$CellContext`V], $CellContext`As2ifsta[ Pattern[$CellContext`V, Blank[]]] := (-2) $CellContext`\[CapitalGamma] $CellContext`Farad \ $CellContext`Kr2[$CellContext`V], $CellContext`Vmin = -0.5, $CellContext`Vmax = 0.5, $CellContext`lHue = { RGBColor[0, 0, 1], RGBColor[0.5, 0, 0.5], Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6], Hue[0.6142719099991583, 0.6, 0.6]}, $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 12}, $CellContext`\[Theta]A[ Pattern[$CellContext`V, Blank[]]] := \ $CellContext`Kr1[$CellContext`V]/($CellContext`Kr1[$CellContext`V] + \ $CellContext`Kr2[$CellContext`V])}; ($CellContext`Kr1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr1 Exp[(-$CellContext`ar1$$) $CellContext`f $CellContext`V$]; \ $CellContext`Kr2[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr2 Exp[(-$CellContext`ar2$$) $CellContext`f $CellContext`V$]; \ $CellContext`\[Theta]A[ Pattern[$CellContext`V, Blank[]]] := \ $CellContext`Kr1[$CellContext`V]/($CellContext`Kr1[$CellContext`V] + \ $CellContext`Kr2[$CellContext`V]); $CellContext`if[ Pattern[$CellContext`V, Blank[]]] := -( 2 $CellContext`\[CapitalGamma] $CellContext`Farad \ $CellContext`Kr1[$CellContext`V] \ $CellContext`Kr2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] + \ $CellContext`Kr2[$CellContext`V])); $CellContext`As1ifsta[ Pattern[$CellContext`V, Blank[]]] := (-2) $CellContext`\[CapitalGamma] $CellContext`Farad \ $CellContext`Kr1[$CellContext`V]; $CellContext`As2ifsta[ Pattern[$CellContext`V, Blank[]]] := (-2) $CellContext`\[CapitalGamma] $CellContext`Farad \ $CellContext`Kr2[$CellContext`V]; $CellContext`Vmin = -0.5; $CellContext`Vmax = 0.5; $CellContext`\[CapitalGamma] = 1. 10^(-9); $CellContext`f = 38.9; $CellContext`Farad = 96485.; $CellContext`lHue = {Blue, Purple, Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6], Hue[0.6142719099991583, 0.6, 0.6]}; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 12})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.404800717010476*^9, 3.4048007349077883`*^9}, 3.4048009791949453`*^9, 3.404801519837368*^9, 3.404801555665226*^9, 3.404801586035572*^9, 3.4048016282041197`*^9, 3.404801680365943*^9, { 3.4048022954497643`*^9, 3.4048023678537703`*^9}, {3.404802462648266*^9, 3.40480248967946*^9}, 3.4048031341791162`*^9, 3.40480323379039*^9, { 3.404803268741662*^9, 3.4048033374937983`*^9}, {3.4048034005313597`*^9, 3.4048034163819227`*^9}, 3.40486821121375*^9, {3.404868705367366*^9, 3.404868757868535*^9}, {3.404869116901802*^9, 3.4048691363260403`*^9}, 3.404870055608944*^9, 3.404870166776676*^9, 3.404870243061685*^9, 3.404877844114212*^9, 3.404877901483165*^9, 3.4048779518628883`*^9, { 3.404877988725613*^9, 3.404878015229787*^9}, {3.404878065796543*^9, 3.4048780955227013`*^9}, 3.404878134728373*^9, 3.404878205307247*^9, { 3.404878255150634*^9, 3.4048782806989803`*^9}, 3.404878373492175*^9, 3.404878440977964*^9, {3.404878475945093*^9, 3.4048784948480797`*^9}, 3.404878531305519*^9, 3.4048785797733*^9, 3.405510586620102*^9, { 3.405511226161893*^9, 3.4055112429751453`*^9}, 3.405511315608555*^9, 3.405511406172207*^9, 3.405511472547344*^9, {3.405511545883634*^9, 3.405511566517263*^9}, 3.405511767175766*^9, 3.405847507474002*^9, 3.405847744449215*^9, 3.4058478631378736`*^9, 3.405847916222649*^9, { 3.405848055128502*^9, 3.4058480722061043`*^9}, 3.405848328008115*^9, 3.405848372511467*^9, 3.4058484351426363`*^9, 3.405848516234066*^9, 3.405848900003933*^9, 3.405849700382514*^9, 3.405849743957779*^9, { 3.405849874847921*^9, 3.40584989584645*^9}, 3.405849959944483*^9, 3.405849998062675*^9, 3.4058500547477293`*^9, {3.405851762969138*^9, 3.405851788635597*^9}, 3.40738160522288*^9, 3.407381945410864*^9, 3.4073820825499973`*^9, 3.4073823672186813`*^9, 3.408020015022265*^9, 3.40914466508846*^9, 3.409144707297956*^9, {3.4091451509260483`*^9, 3.409145170558647*^9}, {3.409145223827775*^9, 3.409145239764941*^9}, { 3.4091453302658854`*^9, 3.409145343639382*^9}, 3.409145775512993*^9, 3.409145814717046*^9, 3.409198116732567*^9, 3.409198158986372*^9, 3.40919890620217*^9, 3.409198968302579*^9, 3.409199021598887*^9, 3.4091990963038607`*^9, 3.4091991582271976`*^9, 3.409199230560492*^9, 3.409199335067842*^9, 3.4091993664673243`*^9, {3.4091994150096684`*^9, 3.40919944029423*^9}, 3.409199746860559*^9, 3.4091998933768463`*^9, 3.4091999795203*^9, 3.409200064267725*^9, 3.409200197553776*^9, 3.409200358982931*^9, 3.4092004367084093`*^9, 3.409200557175161*^9, 3.409200603518158*^9, 3.409659910568177*^9, 3.4096600327339983`*^9, { 3.409660091707613*^9, 3.409660097899055*^9}, {3.409660202857298*^9, 3.409660213345396*^9}, 3.409826773901395*^9, 3.409827042643901*^9, 3.409827106705249*^9, {3.409835800641861*^9, 3.409835824910121*^9}, 3.4098360875834637`*^9, 3.409836206635317*^9, 3.409836255363801*^9, 3.409836290637307*^9, {3.409886980421564*^9, 3.4098870163768597`*^9}, 3.409887080675951*^9, 3.4098872056308937`*^9, 3.409887587775372*^9, 3.409887769529964*^9, 3.409887802723216*^9, 3.4098880667783337`*^9, 3.409888109798459*^9, 3.4098881546235647`*^9, 3.4098882168726263`*^9, 3.409888300116394*^9, 3.4098883443348207`*^9, 3.409888490297759*^9, 3.40988854350572*^9, 3.409888879062887*^9, 3.409889044272605*^9, 3.409889140962571*^9, {3.4098891907601*^9, 3.4098892469186497`*^9}, 3.4098894210451107`*^9, 3.409889458687312*^9, 3.4098895114643497`*^9, 3.40988955757618*^9, 3.40988961207395*^9, 3.40988965723277*^9, 3.409889722403647*^9, {3.409889796374792*^9, 3.409889812769383*^9}, 3.409889873819603*^9, 3.4098899131234007`*^9, 3.409889998850369*^9, 3.409890284916614*^9, 3.409890424371376*^9, 3.409890566222335*^9, 3.409891189254623*^9, {3.409891244932268*^9, 3.409891263602167*^9}, 3.4098914156815968`*^9, 3.409891570330901*^9, 3.409891754032576*^9, 3.409891810182384*^9, 3.409962711384685*^9, 3.409962754819952*^9, 3.409962880140072*^9, 3.409962967704153*^9, 3.409963550541718*^9, 3.40996359135052*^9, 3.409963919625001*^9, 3.4099640235588093`*^9, 3.409964136843704*^9, 3.409964269321042*^9, 3.4099759540422277`*^9, { 3.4099761509636297`*^9, 3.409976165827221*^9}, 3.409976216870792*^9, 3.409976397857567*^9, 3.409976428273657*^9, 3.4099764729458857`*^9, 3.409976600628902*^9, 3.409976688744515*^9, 3.4099767339461184`*^9, { 3.409976828391384*^9, 3.4099768487425003`*^9}, 3.410149381394435*^9, { 3.4101494908811693`*^9, 3.410149538520008*^9}, 3.410149980132579*^9, 3.410150430112067*^9, {3.4101506490485353`*^9, 3.410150665996497*^9}, 3.410150752988676*^9, 3.4101507989157057`*^9, 3.410150829895742*^9, 3.410150894195256*^9, 3.410594787550206*^9, 3.410598358464679*^9, { 3.410598423230947*^9, 3.4105984453951483`*^9}, {3.4105985300184517`*^9, 3.410598581556423*^9}, 3.41059862025382*^9, 3.4148114064998693`*^9, 3.414811443640429*^9, 3.414811560245689*^9, 3.4148125240288343`*^9, 3.4148126414791527`*^9, 3.414813330929825*^9, 3.4148133664232397`*^9, 3.414813400684889*^9, 3.4148134329091578`*^9, 3.415510869078451*^9, { 3.41551093688098*^9, 3.415510967546009*^9}}] }, Open ]] }, CellGrouping->Manual, WindowSize->{1230, 694}, WindowMargins->{{122, Automatic}, {Automatic, 65}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], "Graphics", ImageSize -> {516, 41}, Im