(* 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[ 136665, 2647] NotebookOptionsPosition[ 118172, 2320] NotebookOutlinePosition[ 136185, 2634] CellTagsIndexPosition[ 136142, 2631] 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", "\<\ eJztXeuvZUlVP3PvOeeec1/9npm+M+0MzPCUh2nA4SU9PGzUBNSBxKtfZCAC /QFBJDxGE1ATNROin+1PPmBgvqmfBo2i0dBKNH6QISioiW2iEBHmL7ieVbV+ tX9Vtap27XPO7bkzsJPue+/etatWrbVq1ar12m97+CPv/4UPPPyRa+95+N63 fvjhD73/2nt++d6rH/zw4tbmbaPRxm+PRrd94t6R/H40GuG/7npU/uM7378x 4Mbj7vfNoxs3bhzdvHnT/TXWe/K33Je/vkrvfJ7eeeSRR9xfU70nf+OdJ+md T7vft4+efPLJo2vXrh0dHh66f0LL69evR/cff/zxXe1ObkmTRZeLv/y9y5cv Hz311FPRsPK33E+H/bA+v3r1KmY/ukNBkfZPPPGEuykgg60UBPf7AjSAQk1G G3pPmgEDM8KAvj76CoHyXvf75OjRRx914Ehf8nMxxGiLpgYwp9pewJE+5Z+g Y4EppdDEjSN9SBt5tuhb0TQrTu/SpUvy9ySZ1uL2YlqLjhYDSxO5J0Sh19Gz jIaegTBAt2gKOkkTeZQi4n0GQoE8CwECDYYTlhwFUDwBlB+UKPsOahlXeSRi LSAe93Fv8XNMXcqQgucNBYToHFhyQbcNhV2a6+IJKBaIBQICVprIo2UR4rlk HCYkfS3+oXv5U5aS/6sbEgy6aQwz13vClDLUor1OegzaxdTfPCLpG9aBNBE0 ChONjXb/3DNb8DPAwD9P6sVvyRLe1LeUcVPOg1Dput5kho3ABgjb7v9d1xVJ mEBH5Tz3HLRe/M2zFQhFUPVh4EdpeMhcLEeWuXcM4ouJawOw5bnAgqkCS0x0 8JD8tSP/b3TrYOoQKDNCj8rkjHoaCOMIb1o8/haaCxgSUo/3jNsHzhlrAfKn EwSeqQUWucd7mrLCQlT4PjBD+SkzXvQTYCNZFxaG/C1j6XgYriTvMHXet9A9 71utU99P3hWhP6Z3AcO+ElLBdC/L9PUdbJ1D9rA3G+/MjXfOEwVUXoZ2vBBP EVUwlU16F2jYV6SxHJYL3CZ7KOYzRD14dYLybhPc5E0wwGRxQ8Pud4GGweK4 W6eEZQaFSP7WBRFRGppvCp60g/DAYuCpS1+6j0dTfw2RMt7uYvKyAIGwwtQb 9jkwpkxRpfoCXC/RhcLghB8jFLXqoa8lTok3r0nYvMIAi4tVntpu5f5/gAZ6 nWK0sDdsGH3wVlTbF87I/w/JLd4hXi//OUoDZkb/ABHcin73/4sy3NqyEZ3y agBMDbLx9Qapre3vuxk4RVnG6mBNLr2Ohq7tQt/Jhq7LHutoYon4B/QeH2s2 Gt/NYeoXDMwSEAw8XwiGBxS9fE6QS+e8baDy/wicVoXmZdSuJm43CuAow4HX GiQvQ/lJYpJY4m1nxCUl3/2dKD8Ngo9H/pQ+7xNUOt9RTaD0Ca9v07i/5n4v 67RypXotyck+2cVD/br8RxJrEumPij7tpUly5fhrV9QGCKN8mEEKkyVk8i6H Ky59AuBT9HyoZmAJAO77d/T5EPnsrhNgzjr2G+9wPzaD7WrBhtTolb7RO7WR UsH91TV6hW/kTlwLJhWUorcFqT0V55ENhgZzFJd7MrBvexpj4H4wB4GJZSkK F8l9oz+oc8IQeH3xu19FO0HE4qe8CanFryyWlS7w7bBCIVl4RFl++mxDOlhM lifnsTMK0l2BHllQLrryt7dqUAa7Fp7BNBZBMamgeBwMgnofaw2Yjynsj1Gj PWIDmCNgMhJQcBICm0BShlmdCnYstoEJCAAHHCJtdH0nm/88zBoXsAT6yUyw G/GOGz/bZI5SCTvPdmji+GQ3242epW2xJ0v/Oi7ojWGj27vRyPw7JCJOwvoM E0xxvRg4cJZszxkNNnmHLtF4N1IWwMUyDu5hXCEimY1k3rERbCvCS8IigaY8 nFzyOzCgz0ya4tlszfQD1nV6MgbsSCmoEUFmYZlDDwFxombj8EgRxlY94K+j zR7TZhxBEDhoGq0h6tpLg50gsjAEU5XlVOeamJooCnbiySAqeeEjoGyGVX50 DCsvpZwTbjLsOAwbzWKcrrYNh4FpsNckQEDDThZApMtl2O/215iw85yw2NcC U5yx5Kl7GyJfLnkNDKByoEhReSazgzF9IZFANXW6uFflZycvZ5kshQxW3c+r VHsmIcGtwD4cMfJ7d3jYr4rQZDgG0b9+dzQ0XpcLazE9IyRgBEQCXPRXQ7y7 tpmOsYiApTPoJdvRLKG+kGYAEP2evB82DGgBUBawI8g9MCteX3S34Y4T80hN J5yFEcPC8i9shr6PggzfZfaN3JxQXvC7amoQSWgKY6A0XYBIw815uD74vHIF nQsXBqHxlaF2gjKKf6z2pApZgZzbETkxsPwNqJWecKzijCPL7qzeYxv4i4x7 3dj38diWrjXJNEsZCO0FexCtZ4yBtumeLnQ13fYAVFXvOxcrE2QBx73atbyl 2qn21Lkz5K+7jHYdCPd7ELobJ+wQtY4bf+p+xKfUn9d7fEq9YLR7hdHunWvu zzPJ6E+oOYwGD+s9tjieM9q9ymj30Jr7uysGk20Q6JZtEOeMdq8y2j205v4U zD/WR7kJZs42VccnMJRBnooXEBsOFDGWDG5flHW0GfZB39gPye5nOA4xJLYM rzj4PujENdodACJOHWxRmhkwlK1R8zA9wCBT5BO4wGn12T+vaXSSlEvh/Oln B2XQ3sLY6pTZNqdnoGPL6HYF4ujqeUx7hfLjNQWPFD7k4pCZxvnAbgrtUgw+ MITIHopjhxVo4u9tBVMUkAAFzCsh8vYkKB0eaj74TgJh5D2NG6tGT0Hpa4PZ 23lIgdxYEux+VMRm6HL8k+V09v4KTEvICb0ssRewFxISvxZqtSK2rJmxnyMN Y7vyPceQ2xmK+SQg87nB0VYFDLdA3ZkstUf24IAXLI/IMbMi0+AEsaJXREaf 0yY418vr2sUIBi2O9oP1JJxWt9ikFxTCkTewmIFnoAu66iySm+H8L+/yWlZG Ce1gbpd3y0jdhdszMHMJVjXKMBg49W0OBLdv+pbvtDyF01msJVHA/Q0YSD9n lLFrtV8irhVjPEOwohXb+uD3Fg8CDhCsAaOt4KYWy6RLSxLeYjZsk4ZPCxuq RPy84lBlsGuy+MnWfVyYs7PFyeOdABeZ391gwihACyT5VLuU+aexGCHMeTs6 3GgwRRaku/hZ24P5MMIsmEDptxu/xWPqGnAeFmIBWPhyavPlMAtAWIZ6K0J1 gu7RBrUBOHzWYD9em+hbI5asmPEsiv2NevvZw2eWgJlEFFIoRzUUTlqgHYcJ q+HWorUVwL8av+2Y/MYIY7zPi2Pdal5T0Ybcp0MNuz0KO+E0m7wG66Q7imqc aTKNJ7XvSdAzGnVueu1ppo2SUDIS1e3pEPA4yT2K6kyhRJYFIrPkkqFZnhWg nRsTtBAOyCneNIOc406tSDfIMt6UPMFGYTOzVtjQJJK1Yc3mOblHuSlvenYx 2yajLSJjrKTZeOsBd07d1aTXrea2nPtPKrclEo5wG1yUqQYrgKRBovK3GjY4 wwTxp9hJ4dMnF6R0M1PYONFuIa3LOscsOKsBWALERHuEz1MJNG6Bww6d5ZDT muUjT3/YCpYPubA5qvc9RLqyIXnRprwHLjt3rAueCNYFH0jgYX3jM50lEkwX 0DKpw4FUyoQ8FjLXyRVWBsrTzxLe6T76LQKuloJzQUGUvzmwS624VnYIcMNG PY7eECG7pxDSoR6BI8HpmmcAbkUZgEP6PK19LmP7RHQQaM32zsW4Z4xuWsBF RASDBMJZiY73PHMpxn1C8Zc+9yt9IlvwGUwxXWq/SYSDi9CqoHBen1Cmrrv0 qMVRpOjmDn2Fz4vCC5rfwQ53TPTu+ivIQrT8nhbaGZoDo92B0R+H2SAO4OKJ QtKl+iuIJzpOJPl7o0+6H+Moa3TRpLU8BtAlLMuKqCbUTIxubidg0A17w7HI sIpIjw7BUn3vIsqJQbVShtlikXIKt7to9Mdj4Oiyr6SC9QLyEX/rJnlCsXup 8V2sr+PErkYZfNL9GDsEAgvOdHOUMb6Vbu4R6A9AwtnSO6Snlc10QecH1Qjn Ng42weFo0eZlw5pz5iPCBM8ZULzKaMc1bIA35ORTOw7ytfJYnwYkvXxYc06C G4okZZqP6iPqWa2is6waDeSeOps5kSANc8XWe8PODr2HRl1HzB8oDrOGJ1Jp ZlbOq/d7w5CrFuxgazCmqAHzUziywzOd570G6KtMUcMaP0aMGufSjqNcR2fF 8jZbNl4jH3SJQgJkbwmZ7Gxn+SeiM+xs0yK0Vq2DcfAaaGKAH3qeHY8tr5nl R2wF/T88bj+eNO8QFUfFWP4j9ivWsoT/uzjGjMcADQM3BgtVk53dstlp0vAn lDCF1ORpcZDGkgpfllt79UHYcy0dSPWRMlKr1YbQ1On3fy+3VNN3jOWWAKSk VUgDXVwu50O3MtHXw4DAodAvPR3mQMws04D7PcpXGcjFds42trT8wNmUs42i biyrLus9llVvqICwWwRhZh3cAtss2n+8cfgrjIhiVjk0rr4t/5doVLR7JbXD qD9SH26ncbiPNg73Bp5kPc/d0i0tFfrtSjaQ/LDLQwk7J0XkDYqutvTv2YD3 71TY0gjrGyEIdxIF4eq8FE11/OwYsFn4ecdS+Jlk8/Pag/dXcFz12IDjVuDo CrNSf2kDoIY1TKvo0dsUdBi8sYMjIwmyV9QomDrY0WOF6oCNrFIQfe8eKEJT l3chgJEXJSrn9KEGp5Y+1Dw0GDV53qkV/2qZXG4Berzoa7Zj+6o1OyE7kU77 4New3T/22GO6UnKI22Nyp7wuOSivzGNDgp7HHBhb6tZbEXYjw64Vh+xxmQWs WRFlvDf/ZCPyf2JNyEeg1ZAwbsKQGb14TJg/q1NuCZhOgyv70K6s/zXFBhuy FAsU8ydz3AruN/kJsa6H/DBEWzxoPcwNHsFqyOpOFtFY6/KscnJfKGkSAWeG DVlnzc+uCY3D4lTn2ZyNcLO2CODl0NkXw7osOpk5Nzg6jeohhC0VQHT3irFv 1paCV3iLyuIFu1e4/lIuJe0Q4dEoxLxVg1yss+lnBuOgJ1oRdVCtyJ6m2Ml2 XOTxf6vh4vXEFpT5h0vPmTg10DrsC1az4j2ARh5BrnqoVTnCwZt1Vf32pjmu tVgLjKoGscQo+j3538kYI7lPEYYhcC7vmCZGWk/MFReXpsgMaz2tGW9+iHoE 1gCcRWw1DlwrYDhrsVeXyY6nB69irAg0poHRMd5F0hu/AkME23o+2w77bh32 08vBfqAkqcWyWICrpP8XfT3dP7laO06llqMfVSCGBiQA7FqAgeWxf6wB3lqw w5kl4b1LiVcISrBAZQxH+wjgEikOu2fBV43IFz6e/bDe4/PUY9VB9uuDnGoc JGEZQT878Vl1Yh97zdmJodmAAdsVG1I+1zDmfuOY+41jqr3sa/oI65BP8mqp cy08CzR74gAFH/zZaoeD/2ONw+8NG36vcXhFguuCNY6aNfUrje2uUN/uOmF1 S47lxgfcj3GQ/Kzlu8tvRqNfdD9KhSm1EUKwoMdB3e9OL2cdJXGfj9sMAB/t sYkIF1CJSQhJvg0tFmVtUI8N3WLLglMHAhbPxYuj9Y+EoQ/CcV0aQ7pCWULJ P65VKdcS84NSyk2o6w3dNGvYwe/YKxbQeQztRQDxCsTk8JO6GzWVvbQRSzRn fIQuZXgU90932W/5qUAY4GB8FCTnWQeFdA39M7X6ABQ2AiYGyW5b8noS9pnD vHKkvomEde4USg1oS4P65nGRNOwM4Dk0h8KRwrnE/JD/bjyKcsjsZ/PomVw4 jQAUNnoRr+m9letqgoG6Lgt1Nafg8LAm0YR4CBoQCkQ8RV/yAHvK5FGqFopZ jXegv/DZIf5szn5m5C71xSa74BE+HfAKu428kpIcr3J3Oh3fzaxvNqtxSm5h xwFcjxLrrN8ZAwIKsCETxgZ3b0ONkIg8EGay2AJxMp7NjoJ+oB1GbJGQKsM9 vHB8ogXPGzUxK9MDnjk+AJoPR/kgOE7fLa7glOG6vmd9MzsuFomKdXZqhxLW EiXoPZl0zlGxfFaquN/BVdHgW2Fw2DUQCydmKotpaJtXs8LpIHqwzVtyOq3J CXw45pA2ZxAvFDZcNIdUwxrBMPJ7aoxF+jGGlOcIJAVm0E+w956vMs0Ss0Pd Ae7Wgp71g0DC/QwaNWDwLuDuQxuJ6pI+pyh+ad69+MRn9hgZpeHZOnLTF3lt lDf7EeKscz7Yk6t/Br1uHMBULUkVV/FanYmUKuZy0qiCbR96H2vDXpyJ2rYf uBXKHW+60Bs5NVH7wFIeODusK/ScNudZJK/Go4vkP5XZvkvQFEuhajgyTR7S z4BIl+CpiDY1MiNkCcteTiAW+1haDLF5CEdl8/8e3UO+FswobKQPuIlrJFvq d/xpredQOwAC+xEVR3WXav1cW7KtJqrCBJNRerJU8wLmxYVOzxr36sVPtRht d+MEnNXdJ+CcVvODhCeYMd5F88GpnEM4YGP6LPX4Zn0Oy4zw1Iupb5jc3q33 OGYLfauJ3/31Ger7TTQ2InUBN9u30LeVYkE7wOiPjL5p8whwL1s7Mq2MSDLT DHCyqivCvFsOWmorHGnBZ8WqcMIT1gvjCWm6tI2FpbpsuTw2RfeXVFtPubxU 27TChaw8qYlyUwpzKUylU6DXWTOvHHESW+X165mLniwakpI+eq7O7lpjcS+5 VHfjBGNIvOMo7mX1x+ExVsKyJ1d/cS+QqxJVNCxoYitS7tJzDH+2CLvHDt1T hXH0h0S1B/U5eQVG9ysiG4oTEUMiFgMQrqE4EVIR0i6sSJHysrLiGnYjMdYQ 6tFUmKgLDYLhMp9srASBPDgyyF9/YJCH3RTP03ukqBVrqyT6N2hzPLVVEBJR LlAyjbIECUC2HsRLY6mSKrPixGz0c1gKo/+KPqfYoNHz9R4NVywpkXrDE8fz +kpKlKXUsZaUiEHnXDzIEv7sAWQZYxg+PNJEwocTmSr3KTgy3sCkfk5wSH3S NT83MlXzhOblk/qtMgw4uwjKIAN+n1AEBy9LsZfSfKEwAUXrywzHh41XTJ/H BHEgtSfYfZEMhzhBJj4cjKAByA9oVnL6xGonTTYgAxY4XGvITMYhjZTNlfK+ gTI+p5bQAz4TdAg/+cPhLApmlLFYU1qMzxjCNoJp8LkAQ52MTFsrHRnIIrUw Qpbn8tORpSg1q6ZWjhSxC9AQBdXajcpUS4Nm3GO7xldDcd4B518PHyuz6yP0 naO5ZggUI8aOE18U4zINeISpOYTZ+YMS5dmGyfWlxI2TQXazQeTC1LEz4WgZ gvNinZj3G2DW2vR+l7CCHTvDgB6PWFniHf6goQ2nKgGerWTsVeCWdy24AQNb t0Hpg4Y2VoDp1BjbghtcW9bvjAJ0v3FEqm9pdlsKhzzDxkI+fP4mUI3zJvVu sPkeB1+5fqLoMbSUNX1QfQq4WEJYockWXGxZgWR4gMaAZJgZ7ayAIrQrSRDm H8CFOWEJy18XG9uxcoOdqXXuHBEPjeY1eo8tgFOjnZXdycmp1t6S8gon1vPG f7GxHUfuxT66zRBuImsLNGaFg/EBBWZb/+fjLJxHhqXuLh2wbEicZIGCsuas zNZbkTEJ1izpSSgjB9UQUgA6svxcsPPFtmZYlKxhMyPhgAMdmdVqdr7GdoeY qe9WrKUeQMtsyAwExfppyjzk2HZLn7+iz3ntX1LeZEtmxURpZRCOcksaT8ir bOvNjbOSz9goxfZmtDmB+XL8zXXrhHmF+sHmdknRmZo02gyVs2h1a80NRjm8 autMFitXI3lGJZCleVGpycSyCeL8SVJkBBV/QD7ZufortfSrcsXiE5uShXsl 659lG68hemiC1hYdsmKYhuYtlYuTP5NymTilzDKGs4cJ2yq843mJl6Lp8p76 Y84qiKXILUss4nLNYHh22ljuUiAit4Dalsh7K8+s0qPLlk1dIuuHhwIf8PTh VRdMx9UiY1UIK6Bgqryn/tiqcWkpXFaaj2UHsuICOOYABGS12jo1WGbFVQoj To1xrVweLqZkxTogRoPWhFJln22G7mo0AN6lQDc2tyrzWXVTrCQdUKwUJdLF tIBO6zpxM69YsS/uOgFRPSfghrcDTTKrbFfK7L4058a9jrY4EENBgI7NGhpO q+xo4HwZHNbZ81PoT5fg6Sh5x8q/sWDOkmk2eQrKNXEOVHD0njITaKwMFn5d rkuuXqMvGcZnLxz1gBVjxv6s0yXYWCk/yURDDEuaERUu38D83rmXR+ei8GOA CiTy4RYHJ7kgOFIXPbDKB/JLqOZ6Lihita6sHBvuTsENezODG4cPWd972crO 63mmy05wlFm5Jvy+KMb+ndsDfKUcodJ8U2sPz/OwJ2lpM1ga5K+O6nWC0z13 sZmeoYEhAIKVz2oxwS9GkKN9GhDb05f73cpzwdEGFGd4+yk+zSjOGSs+d+Re zh0xqYKgXZhPLZhrcyxRWedmZRd15Bz30fRUM00hvWGlYtzlFq+tCFY29vkV 6EOTk/7K3U3WTlYOHosSPc4GaI1EjwwraMu6t4KwSZBjDcaImxWJa5wUsxyh OOGnoznIPQ/Agz1Jw0qE4U6IE0wniFK2gNBvU9LoLNvVwrspncDGWB5Gf61k j0GeRyAXMjRUNzkIXI4slwEZGhlKrGklNOfm0nWHtVm04Io5Plu1HB8idrRL z7PFTPY8oFCVjLhOssKLfGZpcNrhg1c/8CMsBa0F/I8JYE8FWX1fO1FfVioJ 9RWpJte0QusjyOG2MylguMOzLiPlIOAhPSYb2RRZHkkypQx0sJ+zLAsg82im BA6nnkQJq3ZSziZjhuh9G9M7Fugs8XDesj5fh1MU+89fbtzrBr2bB82rl7DR eMsYEIaG61rtUf5C5gfWDy5tc5/xCn9tBWzbvaj13a1ziopAZYi4ZmnKOF1k 2ibON+6vM8a95xr3OoB8KO+JOcC539+nEPPB2Cq+/k165730DgwvXGAf7/wP veOO7FRXSJfcD+hrbO9AV2zv4K6u6nOsRPkLluDc+dbsgbVSM9L0DjobeI42 amOp6QlFS1ucsGB9C1Knn3vtmBNJvmAghD2hCA9JHXDXQzXk/OR+6OorHAXu jy2L203esBtdcXLevMvfo5lEBsv+3JBCjsUOGy3dtWy6yDpTUKJNtJCC8mcG JSF0RV9Jg5vEOQfTIQv7Z+PnwVfLHOEprPsz839OVHurPmdjLJhbQ1wDemS+ vCPG1NsKqKP2gROgmLMk6vHsPn1fPl7p++Tr/U42rzDQCnYEphVUOlyiG5Rp 9Sz8luugbzCvkJuSEcQdX7EtwdwBNViONzUy5N7Gk/0lzEEfi10uA4Wl01VC q4CNjKgujHzGUtG9Q0o2+6Hzs8U0bCu4VCGAYaXgaTyOjx5aztOzlWd/l3Lh qIsEZXgoIjDSH+XYVsNMepBR3ZRdi5i69ck9YLDgET1Tf/wlmtyLtHdK2+Ay ZfHxh7+eqQIxKuCfejTZl8dRDnwc1I3T+rpD6xfesGj7nKqnGtv9LeHnhe73 eTVvQy4RHndoX1ijfmvs5tDJ7kP3BTHIf1zJKRQUoGYjlhzArPX9Mo/OgRUS m5v/DSHoHvf76hXzH6B7rYdNn3l+OuMpTqwS/i2lMOgUQSMKlw9R6xwm7/7/ 8XT8QWWz3Ws/l01hUJlpF/v1aWn9hayjAcV5l5ivN2HkJh0uSOtuPJy+VCzX ajfvqX7qv+YwzwKTOVJYDWsjBE+n5+cbhQoK/5nhtL8e6U9pOzZjWR4FbOKs tJ3RJ6nCnZxk/4vA+gChqH7i7I3LtaDLU1PXMhSf6ng2KP7ZFmA6TqM1W2di HZVrcazp+QE2YNBGlgtP44M6Sk8QZx+YW/VuoAdbursFTU90Ii+YkErcfuDY rI8CBTTRfi04Cyqslde6VX/lu1nvQ78Ebrd/ivr9kEEk0q+s7zTP6q98J+t9 uQ/vzhrf/XaGpebN/2BY8/+lkdx1AgzbJ+AGNC74eYCxQ5/UkkY4se86CefR HeliEIppPE8tnAj+Xrms2J4kICsECSf32USQduGsRLJPbIfauhxWxcXR5O9F G0h6jsY6womkiyPSZMEIFiuWCSFR8rddOHiTd16ilRc/Uepb6j7LvdB3hs1P rtYonJYooCgkZ8IhOWgWhGOqTRSiebq4os66aEDVG3vE70B4gs1qs9ZAdXZw kqsd0NouvKWIs7dM8MzIB+/Mq8E7UGitUjb8lRemir7jD2uzvvgfD8WdUc5/ ilBet0LzWqnf9F2Fxip/22H94jJYr0W1nCnC0xJQo+teg3EmQQuhdsU1oe8i jgevVmJ0TLAqcTyIdAEk4MHSjNPCBfIMtaQRxUMhFESWC31k2TbDbxgQDTzx zc9zF9Fybwl5MYJQsMShVgkEi9c54IZuWz2EUQrBNFXoCgE3VLk1Ykdr4gMq txJhfK2S6Fs+fOlgkMEcV8RxM14GyyZ6viViJMCSBqzwVql2Xt/tzAqtCbwb 0oCm1iN54ns5iHpJo2G45xKApWAf9KV7/EYCTTJ/sHxrpdQStSBBTWrF+xJq 0rDYf6Hes8NkfigeixUAYyw+S/ixuqLfKioQL6H2Z2WpHNQOhJczCPMQbIco KuijpNVpTnj3PWx1wmBsrofajeNz/U+M7u1+f4H8t8HRQ2x5fJfeY8vjBaOd lSeyG3r+VRoP1chwbBKR81zqEZEp79Z7HCxzzmhn1UVIixbJnvMrBAMK0nE2 E2bPhvd3J/0wDH3ZRzAuwmEv5p5HDBgg8eUv4GGFCJ2hhVJhDqpF9JA4NAu2 4itIjSDyORwztwKLuLpFjI28rqtl8bSsjP1Tm0bWVrkUTsS3cbGNTxBB79fn nON4QPfkHa/A+GFYoCoIsijgt18hkGg9kThZEFEtPgnnz774pFqQz8aKYJdR EftCt4x5bClfMYblwuGtb17s4+y3vq4TX7afF32j/y6xOf4A5scNBqZje/Aa wGYApbnD97EEU60jEont7LVaqwRuFBoB9axUw5cjndYBr8W2HO1VZtueksSz 1nizPuZdJ8asGYJ5+SShJ5MoIAVYYubl0Oe49EG3eKQv+dfF060/lqwpKmse bZW6LWZelRoJcjD3AmqS0LQQPGZEfZkBFBm4vbVRrEq1nKWNe2yB4EsZD6eZ wkQi32krr64LUeVqIeMQhCB9LP5xzBWMDx/z03TvsaYJOYwFIEMqgisxaMND 6Jq+LlwLhRsefcdGHOKVNPrOin3rqSliRdqVkTXcjZeyZ3SazgqQWMkiTwPO agwq93CgXXQJiPmT1MygOIbQxj26R+9BOeu6X09wYWMMX+JCLatYsxCsADUk CUkca49JVGBPFWkr/JCLn/Rv1kvW3M581LVozOWmbkVjguNYn8OJOt2ShQuV jb5Fj8AZQBObCFAVmsOFUK9Z2mAtQBKH81GcfIGFWwikrNW3Lru/61VianW4 rZrZZYYYXgO8FhhagxlmEYYLBObxVNpEMdzYyD7qCfxNIjDO5hwBCQK/hKaI QzEIzNFphEYQmI/9d+orAwINlij7XaMRQ3NgtLto9AcvBJQ8wt9NfUR2iCBO 2bLE0ToQu5cIpMO+UFVWzeJEMC/jsMLIBWiFoCKkc5lYjFVKjc+M/ljo10Jk 7zT6w9Ik3ktJkrvtYupzaAko7Y/JbdGxHKZfK22ebnkqdq2q5t4Q3hyK8rJh za2q5ucMKKwqRcA3l0BVfP9rgm+f7H3o8utQs8T0Kc4yKw1bUsgmxnLuhNVH P0v9rsPWjnXHG6ni+evEwzBE46RFfB1EUXC2zEyzAumd1hkewmNozfW9QTXX lVvNYEasLyaZpSx9lfACa4ai7BvJJLrD4zj1tlpqN1t0UiWR23kmuLVl29NZ y9R01v/mfuyGQz5rj3wcTmIQeGYwvddmi9mlMQU3n45i718+GnXF3g2c/Lv8 cGyKMymOyMCOsiYfteRSac1GwKFL5BiLw/fy/iTMD4JRrO9lhbVzhKryaBmn zwdk4iloen3FovIvpXYQk6+mMSAmt4x2ljiF2mqI028oYBx1BqvNgqLMSzWN 4bwxAkel4d4q5eZfQu0Ay2sJFsx2YrSz3Kr4yKSxmX9D0csbilzg++tUKbdP v+U9D+dK1hfRbpVq9C8xYIH7v6UaQVqKPi96YJeEt3CQlqKv+TRxEKpWQbCr 4GPKzF3JfgdRIp3gMAFVjE/8rPXxqQ9a33mdF88AEbZQsm62V6xHSpRVsd7S 1vme9eHbgn/TqhxvHUYt8yOrAVguF7U18xLT1fLl8dj47qpxfFzFvvKg+3+l wvbk3LFw3l7Yvuu24JKySiDk/s4hftsJ+1dDBpTlVvDTWK7AveXqYrhfTOMl phXXp2WCfVDRWvK31p2O9WICy1a3h7XN8l+VXXw9DsvuI09y4cRW8wB5SXK2 1/XcWAxhw4AcCcKGtdMNZXl1rhCoevVVflihyP3QOgZ85PATGfHSIy+ZWZ8K 0jv3sMVF7qGXtzotEC3IWoaFaPb01hBdTcpqrBs/bemrqWR8Cfl1H1PBBzAp wTukzn3iBbCABklKHk2OHAF7vIHeiZ1Dy9a5h76XV4sY7FNZts49EME5AVYI DceAARH5oWl4nXvLs2A5RFq8CEvUucf0BZPgA57+8+g5tJgf0Xvrq3Nvme4t Pc2qc/8CaodzBAfxWZGhICDr7NZ5xLJpt9a5t2zf1ic/rUhTzKkUaYqIW/IK KlVuVZ17y4JsnSUsCzJ/vVgtH1Esbxe/DDqtywgAvKpu5/7ikd11AiK4nyU3 /tH9iMnCH4gHCa42tnu+0c46I725sb9Lje2sMPpW+Kx2WiXjH6g5JBw4mY00 b2lsd7/RzvLgvrGxPzb46RWSQfrefU5jOwtmq93PepR9SWmeGEs4lQRyFb2w XPWmg1mQUIiBlQu69mKjhzeYvEdhO+obAp/2A4Swe+NvtSIP9Qzj4C2nOA5B T8NV+8DboHfBoqfoHlTJ1v7uUoIAVYrRVoKsgC2rO+USpKamZhpVJXjvit29 s4wjfIcj8KeVgODQt6EZsmym0+FG1nhWdsQpBZv2SnatWAqRZYfmz4Mp2NXE CcoUhEJtesnnBB6bjuT9BeucSrqD7tKFFNs2NwYdSrxgHnHpXO2ohM3y9AZh 0wLJq8mjv9BHuWu7s6eyGzZlvUNOBRkPcW8jcZKWg+sR5lTtwv1OXfHBrRZN 2zahzVDR85HwyRTbadQwMysoZxg4kzBjsoCFwCcjlkBzjKdRWrNcCpf3ZO41 xxJ4pvBGPMtPU57OvBQJ4X5XJ8dwDE8Zw2ENkvdqKCTS+3X6tEQZqfEX2i0v 4ZkiDDsZDMAyzLI6Fpk9m3hsGMvbqBjOX/2oUHHyl/ooj+DYjhxurOdg4Sfu 6QERHH1V0Xy7/qJzbF/CigCUZIfL41itCeceRug1LGpym1PTzC1RUwYl3g0w DIzr0jZY0+bFSBq5kOJiWZ1bS/K56ZB5vMv5QThNwhzD0L6boR0bDDabQjiE ifUpTxH2Nrm3VQRgYgHg8QKXRAuKV+F31gFi4MbpKsRXlHFr+CIcRp5Zhp0V 2NACRwXRF/VRHhc1CbsJmCP1qqVobAqOKtaU5LTlmuICjsohjmsBWBlMrZCW M52scWcRpuRCHRvVf8tegyzTyHKftASVsZq2HPa2o1nAM+oekS47ivP2akjc Lg61FQ2lmkZwXFosVsBWOSitnz/K3yvun1otrLxvuglvVPx5TdP9GU+Vv3I/ ypF+csHGD+vwKE7z64/0663ligDpDr/tCVOIxivMwKo+z4ulBv3QrLEeUDgi QLVsU9qAijhMJOqqtcRrkZSsTq6G5P0qm8jYeIaD/EB22dH/a8PAd6E/q8s+ waA1JDzqhSFru0HfbJDE3BqGigrVtdkT7wxgnYoA+Gv5EYW1PukLAaYqy5i6 lqshrLXt3NBUoJkj/HBvHkDHUZq1/QFhuJZY7jqHBBEZlnoP8uPFLNKB2fCi I7K+0o+cYswvapDYMHONdTVOm0eiAUjayzqHu5gjhHKE2BmDq7DNNEAyM0Yd MCVL0clx2Eb39mlGGnR7dDXm1Rpd3VOUHPEDuSpigzRbDaSy5mMPt2sMhwVm JCi693W8C4GCVmz57kBA5gYgA+a9M7BrMJOVhGn1f+74uKh8DLCH2zGGGzqd aG0Miqy3bPB5lgG2T84yyOdXHLhch6o1fbTY9Y7R9SrZAjvDQZgZIFiz21lP N+fq3bQSuVYyvtD1dmPXETcOz2iwPI0X9EntWw4c2hXPqA4Dc10NBiuTtqX/ HaP/VbI2dpaEw8r6tea5u8a+zjf01coDYLWh895u7F+92V+kR0IGbyM5bErl 4FCKOJWj/9MfB43jThvHPdvY37bR3wopKbc3DrvVOI3dNfd3vrG/VvKmcf+l /uaN/SkXfj+WqxrLdRSu5cPl3qZIgDImlIosy1ps9u0EGtSErJH1/Wchv3dT +mflTy50RpGkFMU0Pb/CGbihcSZ4TyZh9I+MHTSTSw0VYWgudgHbNOMEkVvo gyIkuFg6oOjsyvJsJ4qalkugg7ygaGly6+72zcq9SyD61/ai12COkaaszyTD EyW9/mB+4hxJUnIPMIMdwDKxa+Ag8u5DONzQpCoNHnHPcMoik3/fGCFzgkK/ 8MUDBpdB4Nep6+CeNJ4FnMFfBkdjOBmcDahddkb6N/gunSAzCPb4w/zrE/GS 3GdCjqPjfLBozFs+3zDixC/1sAYQ9SShbfajGbd8GkLdy6jH206rSfUZWA3D cjAlJYWZdK+BHRFqnM7C+kJlR5CzZYJclq8TesilO9AZmcc8YxYi/iDs92n6 LgKgHqHOSYqppP+NpFk6aZVnk2Om0dXw3YkOg6VZQCRms9gvgmeREiBcxWcr NhnH9cUEra8wWxnOx/ocBaEJY6DQCtJEri5yQyi6G615FpoptnWMlH7KUbzc 5Zmn3wtMBKUfaACXjcgV0ycP4eHDqSOVXulMGAMa+aTYOhNEjAXH5cshKwji 3xq/tKfFlk0OXnsifBViGsU+Ydt3ERnCpQ6Tbkzso11O6ywEKgGmhGL4QASP gGaYrgvyyPUSvxLOB4AS4AI0+B27PrCf6jKaTK2alrcqHlL6TWEmo+gFngcD RACEAFXohYk64rva5LGJeqeYevEHb8ESixetD0a8wrjX9fvCcr+EMKtfnFgQ QHB01AUe8L00KNoc3+vMYzcXCrm1vlaLUxtQ/CSVpJaVgEP0tnHvLuPdDhaf lXxicnhuzY3Rbf8PDlUhgg==\ \>"], "Graphics", ImageSize->{648, 377}, ImageMargins->0]], "Input", CellChangeTimes->{{3.436759119814143*^9, 3.4367591228805323`*^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->{{65, Automatic}, {105, Automatic}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ 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=="], ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrintingOptions->{"PaperOrientation"->"Landscape"}, ShowSelection->True, Magnification->1., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 895, 19, 111, "Section"], Cell[1466, 42, 148, 2, 26, "Subsection"], Cell[1617, 46, 2441, 42, 79, "Input"], Cell[4061, 90, 102, 1, 34, "Subsection"], Cell[4166, 93, 7726, 129, 93, "Input"], Cell[11895, 224, 152, 2, 34, "Subsection"], Cell[12050, 228, 4019, 67, 111, "Graphics"], Cell[16072, 297, 227, 3, 34, "Subsection"], Cell[16302, 302, 15716, 259, 390, "Input"], Cell[32021, 563, 255, 3, 34, "Subsection"], Cell[32279, 568, 6347, 110, 163, "Input"], Cell[CellGroupData[{ Cell[38651, 682, 49382, 1077, 19, "Input", CellOpen->False], Cell[88036, 1761, 30120, 556, 454, "Output"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature fuDZ8zvbVRtw1Awr4ODEn9ck *)