(* 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[ 161210, 3046] NotebookOptionsPosition[ 142910, 2725] NotebookOutlinePosition[ 160611, 3030] CellTagsIndexPosition[ 160568, 3027] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[" "], "Input", CellChangeTimes->{3.414544227983162*^9}], Cell["\<\ Volmer-Heyrovsky corrosion reaction\ \>", "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}, {3.411624796644362*^9, 3.411624801778154*^9}}, TextAlignment->Center], Cell["Reaction", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.410151720218337*^9, 3.41015172165478*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzNW0uPFUUUbu6r77x4aBDUDA7hoaiMcUSMxp1mjBESTUQGBZMJwTCJRoKs WPgDWOuCWUrU8A9YEVfyC/gF/AJWLNv6qs5X91R3VT9m7gx2cu+dPlV1Hl+d OlXndM/59VvXr/20fmvj6vrSZzfXb1zfuPrL0urPNw2pvyfLsmfmc2kpw9+F +VO+nhXmMo3NP2fsT794/Phx8eTJE3v3j2t6X5o2NjYKubJf7fewePToUbG2 tmY/q6urGJp9HA5DlwcPHti7H4S2ubnpWR0UVtCXdGFHVmdl2O3bt/2wa0Jb WVmpsIKmItL+DSyE1TH7My7u3LlTLC4uWqlgwe6w3Ujv2W4LthvsEkStYjAI 1/379y0LaoU2Y4BDynwLjJbTKdEMYiAOvDDW8M960obxHCO4mjbo3rc6QBf0 PB6xfFa+MY76UrcIrS8snj59atlA7RlRAyoANHwwHCouO/COq2HgiLuemlJI MA6UkT3uBR3pN7KogU4U5W+ygXQxLDuiaNI9m7PfuRUPNXjBb8WDvHiIBg13 JyOgzSs1xfO8OVXawKqOSQIPI3us1AOuRsVMm0HL33ZmnhDNwUFf4AYacI4B N1IW6wsi0A9L7jUZp1ARl6jKgxthnHPS6SI1wHcPIgkOvIiuQmlca7h7Kw0O pxTdjYI14IxsXxiOvlzaRuySmg6whnM6XMYVXDCEgUM55NahmQlCmrNzci/r JRur8bTqXQ1KqCm6QFNcJU1juKALYxe0RrtyXYYip4gLNYyKuFsQGherm6Sq VmjXi9pMQQw/Tgdsh2jzcUqI9mWadpRRB5xhAjxCVLHcaDLaBAkz3vkVTBFQ w9U6DKyU4OkDttqOCL6g02dwB9hBiGR3xjaG0olnhjLhkVCfMoWn9wXMz6xq 40aMcZA9FDkqemT71eyTpt04DNnDCrzQ1S5y4StQe9v1mte2M64nIKavOvZV c0OIR1q0veB8pp1OJuvd3pWRBUuw09sv+iLCa2RtyOlN3HnssX348KG1hxu2 YES4NbQxuOeEHRXRrBjYDR77ZCi3mAk0DnkuhADRgTdTNqt+xMKyv3LX18tC Dhy2x6L0Aw/6x1wJVR4BsCP1RRWuEUG0L44CNRQeHCZnnoko+kNbXBnc4Qug AzTIgilQQTbaAwoRnnV4fFuuYskZMc2Dkl2C40cl5DE55m/2BjI8EngU5jxf ejjUgKb0BAZ7qMX414TAN1X11bxohYivkXJMyMQDo8xvDwS90sV7JFoM/BoD G9NG7rCHiJsmN6H7LJnnO4Z27QiQIHsaJ5502RKGepuwH6zgvREY3hQarYEN 1lOPa3z6/jzn2kP1A3CGgdpyjs96k2ObxdTMltk0J+BwBg1LujBITEp6giZ9 Ax9GaqJAlBjZjcA6X9CbTOALk53dKO/didszVvxhS8t9rAZdB1mcGF1Ckvs4 wjkjKG6uCkRN031Boczdk5JVKiQLYuTTLWjAmTNj5iL2bjjb6Lk6UTOScpkz gqhyt+yQcGPsNaZUYg4gcrTZ8qLwcDCvkvllNIRd6EqxCF+5aKlRNRq/kLbr C0GEhzZeUMAIHCthdBjRLzutAE5w5azz2CxBhlxBosU8nNwNOXCzZlCVMPaX 7jXUEHvv+Nt1ORcxkJuQ+f1T93JuyuODPlmysHBPy50N0mydstMdYK/p84cb FVZCvorAdy9sgjlMSH8Umj42M2vXFYB3HAvWWfQyfVUZRNqLkX4XBDIdQ5nw GHUWIkOOhlK1o9VJrW4obq8ElozicIqFSH8R6eLRTLSCQmilzeOl2rKXIqzn hGd5ianqCNuE5yhoY7nDzBWdiPuji23Vwk0s9MwLIrFKydnOKobFHerF4IKz VGx/o15N+ruxGSMNZ6AoJFkv0Q5HROkgzkxuEKFRdQaUSao0CpJDXOLCMf+h ZU1llTcULawONavKvZjOqc2s6pJUf//ugZvLd10VaD7Cn4g01WGIZrWC1Hbi R9YPiZJKYtLA1puzb7fRTZaR6txUJ8zLQquWm9qDKGmpFaK2zzrvTGjd0TvZ j3tnU3FGbzPMItvinChL5dtQgUu6qb5zQPqxDo0QfDhZ5mo/b7p6T95TMSmJ 1q5Hn+aqVmy3jEWgWFXolNCqFbG2k1A9uGLvqNs9m+yJ7J4Ygs17IGmxhrht sa0Mu+bHc+QE9mSlq83umaoYnVIqhFWyZrUOJuUmVe3oq23LPV39t6nKVXfa i9WKWGWoVsWadUqj2Kxnx1PdtOF8JTL2822YffT/Z857IkkqNX5r0Od2Pocp ikn9fEfMH2qavVzVKV4SQ0bFoKeDWVc49FgmhpVymttVZoJqFS5EYsYWKTa2 VuBgRIEpuMhSRFRM/Kf2u00ZbOTLYLgIgdmudSokdVM/JU3iP3SWbjd/5iFf I3BEeG41Of1EmZXVVM76IofnLklkLW+WD3jK757Thzp94OA6GjH3hv1urKFJ MchbBVf9MuSqMyVyra2hDXy5RKbflY6y32Rwonx2RfeKl8++d11+j9imymeX da/m8tm3Wm7r8tklNyosn/0bgWw5bNLlM2linS/2iFTTLirlSTsdsqg6fEir YfG6/dm6Lx6KiONrGAyIfC7CohGOnrGD3HSLTHtTdTB/n9DNQRIcF+uC18tJ BPp+1esjKd8fm1i8+8Wgnpoh/T5Xk74npwsN2WpRHPu8Kjt8VtOk3xSgsOb0 7Jbg3rTiozP1GGkn6y95jfyOi0DX7ru+5sKcn89s2V+y1HzbrHe/QpLXmzS1 CJP7/RKS+ExdCmM15d2dLU2MWuiWgCCVf3NVNpUZmJPLA0rS7cQaNZ5X+SCv V6ujP7R9L4KWMY3X3t9UwtqpEkDeUqcTOwNJ7HTUNo0/s3sqrQiN8cNlPDg3 DbwMKfa1zbE6as/yIqToTNvFRBdpdXlmXmlctqxDVu1COo8zvQhth+yNzdZ3 9rt7Viw5YflF1S1asN0TOllryy4Lrd37IGPvh/JqZvAKoH8Mv3UVnbtLGSDU 9IrMTiKhnYngey7kps8D5JZIZPnOCpMD6XLeMbwrgxOJ7JruFU9kJXvcjNik EtmLuldzIntBy22dyH7tRrX/bxn5yfb8Bwa3g5U=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{247, 89}, ImageMargins->{{199, 0}, {0, 1}}]], "Input", CellChangeTimes->{{3.41481738082091*^9, 3.4148173889885406`*^9}}], Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzdnUuPHUlWx+/Urfuqh5/latvT7vb0SNM9MM3DIEYs2CBhNiDoWVmzQDI9 I40lYJqZhkUjJBYsaEuwYoF6M2LZG8TSEuz7E/Qn8JaNV4hVkSfj/CL/EXky b95y2ZRJya57IzMjzjtOnHMi7h8+/vQnP/7zx58++fjx/d//2eNPfvLk45/f f/jTnzVN82/MZnv/PZvNfnB/Zp/Pmo/+X3f9j/2nLZe94T/bP/Ozr7766uz5 8+ftt1/zNvtu7fbts+C5Xw+eexw89/3guV/xtmfPngHRbBm8exK8++ME+n/I 4599lgB84G32ncf35bkXL1603/4yePc3Jr77KHj3t4N394J3P/C2hw8f5rZF 0N9p0N+PEto/bP9szp48eWLSxyttd48ePWrbrPvmtdltf/aLL75o2+2doWd/ 2RG2e9bmfa8dkgcPHmSIb1QgOITtX1617pvnmzc7jK2PBpTZdW+z/qxNKW1t T58+bb9dd/rU4zR9N9Q11Zuf3bt3LwvQW9XzkMbQm/vzkMCe/G6M8moQ5WWm pDDQwImggf/nx/zg7Ouvv24hNmraX/tuz9h369famvfuOOJffvlle8v+2efm 8QYMI1cCw9q67ucqA1n7FOu1A1iBsWcNUb8HDkcA4mRB2AvIsRQ4EK7m8zvW vGc9RcCfBp0XOpRUzg14hk8EbXYnaNsL2r4X9IcUGW1Q65vBc3tBGybBQLc2 ox+0sr6gN6KjQn2t/X+j/bUXOm80NCk22bg9CM9+O4bzzv5GKEJ1RfHEh1d9 HRpeJf98aB60nGUSsb/Wj7X5BNJ+b8a77Y9bsw+Vh7VuXdJa0BolhlHKZKBQ bDfOrhqK5ntDyKbTJFZ06wqybMEIoJxKEGRGCYK82VDePrvnbTaM6d0QGreD MT5OcP2Rd27dGsQYP+OjXc1QbouXvJplxNBoPkcac8P5YQYTImAtlChGzIEu 5t4FJtn+AZX9xaIb1M33xNIrLY52y4TRejfOY1OAQr87MnstpvM8p3QQzHNX 9u3QJcK+W7s9b0g1390UJzMGjZr2yAKoQaPrff+/YgWGmKaGfBkyoFBoDaLS 0OzGXeWwQM8k2jzmdm6YuwMCYqO6jbgE3AUq5e7RRO4Goqv0uXTcXRfctWfU mrVgdCxyVrgOLyIuN90aoIuerbXWtq+W4okOm8xQfBfjCr6JAW92MAG6ypYa LhrCCM2e9ycsy1yO2bXMY1cIzzOQ/qkZVyXCukl+ZZ8wTN8vxd6lsre9nLUb 792Qcn/TFW7R47Q5WUuBmmXV3NWlJpQjnzVLPXsby7HeqyBEQb078Ff59Onk j0Ub7A3Thlq2EncSuex1G9glI5oHGA3H0ubedkZu2hCWs6zPB9BFRbLFS137 gaF0fgax2nqbUCR2HGbZ5MKfYkhc044Ky8I22uVyy9CibO5NlO7Cng9t+oz7 Z89DSMMOZfWhsutgzxgVlKrKKGRdXQfQtz6RRrVP9LcM+osYn97d9OC1viAd igJNjMs1593dEXjWg5z3sZIuLtrbKIWhah3+H3IeairnDwc5f1xw/vPPP88u Lv5mREm4fZkkIFr72mXj2jhm24DxZSXArtaXSXMC3CegYcM1ryhFrKkzVKvC oTBodD5gWtI1kVHQu22/O3f92RvtdzDmedXnIepUIM8dPJfj3B2gpFDKWXYd IKxOGucTiKUKBAS2vjZVN4Y1w03jYwmCLrQJGEQ6gwzgVHAZ9QCz6UPXR6gW 4KmI+4T2kSNrUIv3SK8g21/7LHOUREayEZbBK3hyRkL11FjxmpTpmhWWafzS 5+/sXtQBAp//9qUbyM5Eg1B3gtpZP5WaaCVj2LIuXTo6NdHE8oVwHI0Te+20 ct3MUtI5q4NE3/dXjQgIHAv510h8DUKBNLZ+G/EXI9irnXzFTCAkgk8NiBOY AAZ4oQ5FSzj1KeswmUdXxCCtC1sLJTDrmdCrXpiqL80xOHPnsMaTznzB0HSr y6GaCBfPi2TnsBUnwgAJEPUibsREI5nzNY+4wXjHSneQt3lwFfTyp4nYmEiW pibITKFNtysnpSYl8op+P5POQ7vL+OlVAtgC2WnS8lWQU+Mge/YGhAJiFzLV /J1kHBfFLbsS1zO51uDWkyv3/dQ0+GxdzGPwZundGcQ6feNtGAYNFyIWoqYD VNfQPqH6ZuQBqsMjFNcX3MvXQ/UIPQ2BOkQNX3blQA9/DWm/eiZsHAjyNgZE Q+JRJiyIyOc3OqOyzBYVgruKqIuHU7OTpVwD2xA9FyPA4SOz6tBoOWtQTTsI KV4JP0q3FnuJ+8tlUo2l87hHIXk9eynpQS73Z1Ft677MaY0aTDREGGk0JCOw LeAxd8TcUW7veYBodtXvGa2YcOy+GSINX5WEO8wRNOgMwfCMWZZ0TspOEY1D Z629Irk8XDGyR1f8VVyijp6LTDTMlAnXQp7Hfz+eRuRtKxKdES4hkaOF0NGl IfKNCyPyoS7KMzbqyUOBFG+1d3ZZkK8zWrh2FbWOHFC7jfGVuLlMfL3V1LkJ u2ejTF0671cjEG9XYdQSFCDvL6G7FIdP7QSxIU03XLKcpB4jRIpl9EIX9nBw dt9fI3iTqxqu+UgGMjrWIM4wfXdhP3PX6zfcbTT37WrOPLCcQJ0oJzEKa6kI qOnypJ8sWhXZB1Lgdhkex4I3iuF9eJ/rgiZ2SVGQ3YNRGm3XbmtyfusNICfS o+Q8vpzkfG+cnJvsYSq8+GFoxl6rht2gySNKwUjN2Nnl+LCCZTIYJkeyDaSD SHVKdDqXMVww2TRbaqaJRI55nzcHujUSSrc4VurnCREIzUjYpb1wF7u4+CLL Kvdn2bkt7zkG1Ar9QCBgEids3Px9R0gM3mla69ao/m9YkbqEslvwduZ525/X 2KpKG5UaUfDAhi7TvOk9rfC4Mo7Zu68Os28GmH379WHGhKKYfScA6bsXCBKq SMzEvt2SvrQ00y7PI+SVhcGqmVqHs6V8EahBoZKup5c1EwUAOY27KKJEDnMp /XNdaxXoYZyRVY38EhNlTdqRZj9bq7w+NY1bFczCEFmb6TGZJa3x+5Z3R9GT x8EWAdT4LvhEHgK7NhFBRn+FCEJDRfC914YghkwRfD+A6IMLgwgVsqnvZARK Zjhtg37aplAyO+J8cPWSj3v2UWNGGuOoAPfC8+SrHuRpjdlSiyWszVcjGDvY bQYQdCWoEsZ30VDrEj/CpM36QCKVPOgD9tl9B7oWiBNA+B12udvnC6rJ6L39 itB7O0DvvdeP3r0AvfcD0D64ANBQDKLCZjJuDnXgpEQJmCe0MN0uh3EuXdON 1h7BJXXsmZbaFZ4tKJc5MsGi0CF3xfjHpFBNQ+QQaMybNjU6Y9tP/mDnnu8F Pb/MhpUH8hxGZi94d2TDyj/7LS0y/Legrf3/39M7mY+XbePQRTT8ov1zvk1A XWeJW7O/DjrDqTvPdpuHQX/t//9VjmeaA6CaVEA5z7VP4WHQeTS43asDyhdV AP57wRgKAyGrqObwltxjfe+TgZR/ulklLkZ2GFNL8tQ7aKNdjR/NLbxuAlm6 TtYuzLVinUiMgYlG4g/e/zIa2p6/IuTw8EVO2b1ZpZiJzuscSGF1hufjQZo0 PRzmcjW7PHqdH1PaW7CAchfjA7JMJF0Jp+UWNZHYxRX1j8OA+8e/rhJ32ZvY fQakPFvRqbYxofpL/x8CAYXXWWkdVCk814aEpx1Na9N16SjPXfWuNVHUPvdX Sed0kwdOOjv0tqWDEtj9nTliL3APck5Mny0zdUf5HoH3WkAhsj9HHInkIBdh wFyJPzwy1LHHjYDmi62kDf/sDawm27WUVYdFsUid5k0Za10m5VisXZ4Q0ZUT wg8BZNNlsU8PwkfVgAc7YXGc8zJcauc0Scx82qWtuzyGXcQqKbRUtMnRaD8K P3mfbtPJXG2Ec+aoV5sQCGj72V1kja3IPtRWjvHzjUyFPzOi5Wxgq7X3QdpK 2X6Wii9moWEF3s/3XDbrdLEgOVOvm7w5SbQJhJnd9TcuZ51SEu8VW0MKTFyf e7ai638/2wo38FrQRBfNv7sj+CYfMCUZSW4StJfMrhYS474ZeZikmG06gBcK cC6S06wk7h4IijXJbGCpd3YOfXCRQR+0QgLpaL/8Q3p4WPaXPdkvui6xYW/S FPl3S6LyL/UvIv9lURGTlnQ9NnmhApe09IR9uwTM2KeLB0HgoANtkVHBAzA0 KVJiwsMUm+lmm3qE7i0fn9gHNe5kDqU/J8OVzCmyirXoDcBf77I1s6Dzbz1D aFghUfu1Sv9u/t0kLUH+kpbcLLwJ2biQXzdmwGTdaBC4eQ7G1Wy+aopgX7R/ phsfO+nK/4fqhqluHYEDklROdM2h6Vqw2/y0VN+o7cslGEmCEAnphtB3pM+a UquJ4KIF6nzYRVob8dVd9bkYZj+nzwureRhhmXvFIFtPj9pSz44BKMqhQzVB wnK/laem1mKKbqpXAHEIY+wwW2E0WQ6zQuxCF5u8uLdnWEny2Renef4JSg7C cytS31eyrsrcVGSnWPzq2M07lA2g3vwzUHQf/JuX+z91okeLVVw6CIsi1hOw f9fVHn6VbiRGOti8ojUY7v75umorwZLkHfYoAmTwCUOoLh7hp85BOoiwzQyQ PtRG13OngJEXDBMkq0ijuv+cbPFZNuXl/BgTrh04WfxQfzVpTsz0pvOz1l83 dmMVfQYtTtapPIe+MSlUZ6tQlfym1AZoiFN9rU52Si/aa76zpujSnXcbjiFH 4h4Wmeqa2krZwwnkSupx1FMP9VS0gtQdfF0YdeG+s2x7Kizbz2ZDNvJevaCy d5C3W96mMh2hmFjQfhyVZd1zm1a2+1m9CuauotAfqPi8v8qU0VC7G3QP1ZZg go66q3NPH4oLleeo5i+1MW9cQQDrN/QZaXrQHv+T7onfhAhlRahDpz7/ogh2 q3RY94ta8nbLXKKsjpJEpOUIlmUbFZOcHGWTzEWexC77qwXVs247FJZfyJQB ltRTMkVp7tUUSBSKU5PlSu0mdVEsJxhu4c6qihhLkvbL36QWzZLViXCcT1sQ kndH7HN4MMpcMQVpzNJpkucBpibr6J4/b8jxPCcNoAxvXBHALX9LD39rEyxn hU/Kv27X0n5hW5qeiS9AAhYExkvkQsJdobWkbRvJqGhkJecOCGtBhN4eb5oB WC1IA/zcc0s4SB54aFO+4Sq9q2LW3JLPCtmEaoKJXcBDM8JvDoigpaV+y+9F m5t/VWRi17qG3w1g+nQinCoOLHW+X0mQi8k/iTiKFv08bm4Hc2XPPCpKEP4l QO80aCPdpCh/GLT9ffDunwXPJWM8+zuRTKTipwEX/lXa6kIFbVsF/dGmBQ0f Bm17wbt/G4zxF8G7hyU6WqqQYgzL7OawIcY+NxqlhwBhc8A2qozQtlUwnOYA meU+DNr2gnc/af/vgj4GphxS0R/6oHfKpl1qqnyZS9SaeVYyyMmtTCZJHGxH uDv0TO344LGfJY4VV7R4A65obMUuR/0jf0UB+oW3aa3IadC2DoajTWtKPnQQ pK29/L0/8VfYJmvfbko3tEUHTybubIod+ZIUzlzK8cXg8Ej832p9dse71hUh 3j5ds6y6K+CCdZqLtroeDk1emXmsK2uOy1a6fa1tImFa1bu0EGm5AVFyRLSh NROk5Edzan9iWU1ZmTO9+KGGxhUmeZNv9W7h7rE20w1DA7VCQ8POIB4RTqZm 7Qed0Kn5xYvuwKTmnQTqlaKMO0rE2cWsS3DgIae+rQYhf96eAmfysSlWpAPY OgPWBW8C6amHDVjqLv3VgglERrU7DahWouJEPhkl8jlkZK8F8Dg3Mats63I2 60616dfslFSrwSCMEr56Ojh0wHNcyB4Vg7alixdOab1VzhVmXLzuDELHySOs 9vA6tvEjkpdEneMh0zCmpE7F64PvgR6aRU4yoOwssopRf1uKsBJI80EUNQ+h hWuAVrUVBw6w00IKIJdFXFUMzFzeI+ymh6qxfOGg8InwkJuQLvpmbTVmgf0c zv14DhhXplyYdDQo2bCpKtRcOHeHpExLFyMlcSvFlkoN6yLUOdK33jZzggNV mChyhAfeWhs4No5f68FZa0jUjVhSrVEizLd0iFRC7dL96sxkOL8tz5J4Ry5S Wu8dDh7hiy7bxVZYjSyxxOegZ4rdcMt0XvCYiwZbJQudPMAo7FLXviraTd/J IxyJlW5yJBqB0M91NkRTh4ymz7s1JXiC1+AExd1Clbp03fHUCsqCP0Qog3sT oMFZ1jdwgDVsvvNIy6K+liV5vn2YewFnLfFDiSgxTGJ9im+d+YvPobKjUEXc UYh93UkB+1TyBsIB0npLHmUEHdyTNUUZ7RQBKOh4Xr7vUrMX5RP2J7zvfkxx QlNZPHZjp/KZiLtORM3FlXSNaqRWoQqDbnrm9rkEShNw8HKUMYuemlhskzKA YW6c996tLEJkOsfQHCFTwOG4xnW43GBVzCmQzJ7T1Li2pZD4ce+9ofSV2hAC uajZ03Q2q6aNymKdjYaH2lcI4Mx8kfcsn4oQH2arbSSTZRwFL3VTlpPVdjjg asRwl6+ZelhAP8ZMdz80NlaWPsdyhUrVmix2fTTFnAtv1r2kU2izVkUZCCOW 0tbf2zAsmWPa0iX3O4J2bDVPZ+VEriXy4cPyfGEk7nk6d5kTptVHY+jdNi1c 6w1F6VgUbgzyTFNPTWd7EnM1/LZnotOlEUWvlN3tgOZFuBmFrJbqkF1ePj/i 5uluCXU2Q3U66Glh/bj7IahFLfo5ucQyiiSZrkTK6qM1hmIctOHpvgApOni3 AxOnosui7VzGqtsA7PYzOamfNkfwWB7Fe6BuVyNjrNXxxLdZvZRq2xTR44Hn tzpxBY23OHH1jyR91Za6EmQzLErOLkPOytacc3AUKzfFe9tMeNaHyhZOVSeN f22yhAzwMhFqroSaRW2aFq1VsJxyjncVG2HYJo8ZzYSQo5byM1GmV+Wa6bpi DL8R+gQsjQvOh12z+IhVynKG2lKM66AQE7sGtiZxgi/JFw+tD27vkf1cs1kX j4Ii7k0Vv6kzBu3NYBwc72FTOZ27cGDfqTKRY5uRYYaOx3Xh4EgiAsn10qKD JjInqyxnTON9DONNo7FcbXes6pmDgt0v0ulpHO9aixPo5e1qLzgNOjqVZ+sh 41ExBAfv4ja617LXZafGzzUfkPhItBO/R4NTKo3wcoiufb72pTKF6ExX9rOD 6+/Vv8mQSnBz0DnHwtRriTykHbyWNhwbAsP+OV2W5uql3XyWPMgiDyKvFOgM Wdvms/6IQ+nLrAqVJobli8WtZCjCsEnHgvK1gN8X49KUtolMGgVfhsyEnXHR KdLTWb1LPOpiPJq7k+WHJKpwdJBQQZvuOio1M9bWYQG6PghiPWwVxFcGzMb0 4NUFnuIfAq3IupUu1Vx5od5NVBqrbdFBzdTv1lOUw6cgUAPixfiST1ZgOAj5 PMAcBv2NmtDdfJmRWQPdVxYFO2THfOch18Yn7TTwYXb+uDQawWiTgF0VfqTu ZRyT2Zf1djp27ue4jVfODnk7EMQjgRRTWbP10JXI934mgF92qKoo8W1whzzV uJRmajie8hMES53yMpGbR3fwaIwZiSWbot6K3qZ7NMfF85RL2CVbLvN7Nk53 Rs93ig3JdrECJGC5ZV9r+3nHnYWDsNlfDwtGwSSvsnS0r4YzVr1dd2DYEVEs 52wiGHb5MQGR2xOFhJ+lUzyKbiPw3LlM7s7N0N3Ztgl5XGhKjJRBBbHL9JOG cKlmnygThGJfUgzSb6Wut0kW/k8khBp5rXNv5QGMdycLMbsxlABDBAvahv2f g0gPIomijmxIoCJIlL4DPNCIpQgHC8Nh+TqaLKOFG96fTwLSTvaBShZvim3L A6Ix0w1FFD5retfnw1yNKse1h74T/k+d/gj8HwyH7vHxZXcuaOrvmJ+WhAOt 86BAXpBqGx8nAondPcMm+sbWWaJSUBVHFZjIowoOUkiI34pElXmvaEPPGLEq 3MmfOzk8KYoAJ8yzGVNsZBVhHVIFrcOb7lr1z0GC6Dq9v+h+srMv+V2AnuF9 2uOgv6lHTqgZ8dBt3joyLbu21BOK8g7Fps/jiaBoyqH21kQfVai9Jj15R2/1 Nq/zaH0agLXLRthM+jo6y+hZR/hlvLre1AZ54OfKkFWl9o7Lk+UZMGTGPVs1 zowNPDwW7DEXsNYhWKyuv+YY3zIbops0dEj9PDzkcTEklo2SSLtok+rQbN0k xJv3WfTdtKMc1qWcsiZPBN/sfrHDRdNb0WvVGRRbpaVGi2fZQ5qpfbOgqG4l 0ikvkIeIooVNoXC8uJfYcn2bJEyRrPx7GsGzeeIBEUcqmfQdDkdAjJStEZGC tiweteZqNW6Nd5u6tCFPpkjSIDhBhW6tgwNSwcFCkZoPQRIfkNJRuZYUAWGW wDossB0ydd6WF/kVcxG+SB5YL/cqxLdUF2kVUuSb1bXAgW9GbEoPT1LeaDmd Fp3jo+2SljsPKpANE8I+gKFi+LVLyJCVHjI9PfVMrD/ISEV6Ih3A9eoYHfYN 6LDBtBdp3Kw969ynSzVt7qX5MykAL5PQrP7xpWg8yIJq4tGVQrzI2CLMKZJj 9057AblIKaOJzZ5hTwLJX1z6F93vovaVYZn1mZWAp8g54lpup2nyHUcDh5c0 oxHtm95n5DDl4x9K4SocpvjkDcxlJ4vleZFRLIazQFlNqs7JWQ/FuZW8y/5P XTKeyLhgeyLv4iGwi1NPNfte8O48GPcjeY5x7wawXAvevR6MUWcf7RsnkusW T2Dpp/gX2tZeSVgftdvyEWQXZrxl9f3tejB8wI8WF2A1leu0nchz0yE8qCFs 71Mmyj2pkdAhNTIcCQFtvxMwYx206ZFmMIh1iDJDC0bRkfsjbVoGfs+Jqvny timRPKLsBPUjfH12RjC6LD1lhAaj6zICKyIQ14WVnpQ5pnXYLTmQK/8IFQtv Ll+Mq3KglL8UdLOR4Qjl6bqw3AxTgsqvNwkVHPxuw7snafitUjXkDkb+FWMB q718+IMBWvvjnGahW+mnJt+iH43hLFatkQ7KRtcCtKqdy/VpMNpUCNQvYVnk mabCt6EPZeEUiRkg5KF0gyS8769IW4IxsZHDA2vORVxWhUao+P1WpTU0bvrg pyQVMfSd6fYs63tc3RsRzA8x2LZh3q1iVgdZds74MUvafDGBq4b9qH69SnvQ 0xXYsarhJFigP2KLLeEHI9Vx9ErgrOTaxybo43oA0ycioaQBVWrUu/X+j4Lh rgdtJy6CuFdcbEdQJz9oizKCeryPdBlt5UO2DTHa+BH5l4Ag+mWgvWAo9dam 8Frb9NB7eIdaSpvyB7XU48UG2OdDrnp84XlTAHRO294NUHq3I3+589gup4ef UtM2RSfloGxiU8Mf7YlOz3kveHcdPLfjiToZhcv2A0cX0TD7xv8COsx0Ig== \ \>"], "Graphics", ImageSize->{759, 82}, ImageMargins->0]], "Input", CellChangeTimes->{{3.414817411478074*^9, 3.4148174125807*^9}, { 3.414817535866075*^9, 3.414817565250361*^9}}], Cell["Steady-state", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzFXEuPXEcVvu7X9DwzM/ihBOwMkwUJCRGME0HMgg0ybALEGywwAROBPAsE CuEhb4AFAia/ALMEISzx2CDhf+AVj40ldjz8C7xm0dyv6nznflVd9/btcRuu 5OnuulXnXeecOnWS12++c+tr37j5zvFbNw8+9fbNb906fuvbB1e/+XY9NDxT VWd+UFXVtYMK32f1V/sTnh/ij/34P3z/U/hYnx0fH4Oo2f3798NrfF69ejWM Xb9+ffbo0aNqGuYOw7g91W74O/b1t2/f5vp6Jtgchnec//OI9rfhY212586d 2dHRUVgKsA8ePAjz6iXVICwfze7eveskBXiRCvtp9McxgCKm8eOiiMMgvmYe n7+ItP/OkGEUQOtZNaA4BuAYu3fvno+R0NJYG/GTpXCMHB7m1991KrRXf1ZG /e8NPrBRWSaO2cWLF4cmNayqfwaJPXz4UKVTbRQIXusDdt3B4tPMCnyEqZB2 vTwnFNDAGnjBdCyvdUpjVEmO7S+IBiH8F80QsIezk5MTJ3rYjWLNwMGCaPMg tkAkhmn+4Mt0sSZEAkINuFN6LWCmpmXQTsnVtCY0jNVWAqAaYXWuFVl5/m8i yD8UtAkrgDbrz/cUoE67l/w6Av6ScUIbxsxavHsGULxQdcXGMMUQ+RbAmJlN xbU0o4aYxWt/Fan6iryCVPDrqYJ9vRb+btAI3Dmq08QY7Kee88xy038Zidkx QeItZsNu8AnZ1GKLNrvvJkLbxTTQTqdNO9cx7jg80EA9PsCgORCZOgDc2lIU Mh0pHUrcbeuBAhDHT2ISLFVEs+tMEa7Zna8B1YRFUcl86hDTQEr96fEAy0Ci 6hqSNUGYS50EdHTqqgU8W1EF27YcOwMgwG1Es5UshX1zKS06Uy79qWKhWkzv 7sQpNJs7sKUKVb0UAtjITIzy4qPoBFUEuetTCwSH75AZ9xOXy3yKl9RAtxyj V4HWqRqAMzSmhoYr2iktp1ahcdWoGQ53bP5bk4//RJq2bDrVgWAZQYzDmOQk IRQM7F2Bew8Jub7MM0eb35x7neuI36HeSMo6uSvqyMAb/EmbYgbBM04CGAaC Fr1glRqXRdewtNbZpiGC2IE8i/Hh+1YqXmgDr+qpRucop/E0kgVh7nHGvtsX KYxhYtJDuobCcOwlONq2AP0qZGYxLMGby3rmbmcUbBS0mPEx4uOnpZQ+lTZr KPYx/COMfDcVPrfHzAP4QacRStLpW4xj3HbYuuYY3Ai5vUgXs2VTvOKJkn+f ZyUlyYvvmUOhGqP3xIP5RKXbNzHy7YRbpZhLNdiZA/K0mg6pscuhZ3k46ajj WsIBze+Q/QBWYzAeKpOe3FLDgErjOMbMDgchCO16yLcg7Jxq1ihHFg+0FkyZ IVNnkmiaST7nhwZFQxTgBuMASbOCTjX+M4ZnscpJofCZEmE9owbGaDMI7noO AgxElU/aGGCYsqvXZYtxN34/Vc58dBg66fh1UVCBDNjLhqDi7jtfmPd5mWfm Wn3WxvCbJH0vklTKLwYZWDiJZ8WuTNl+WlSSYj4ew4JuCVun6bqddKvLZgh9 z+1DgcEUOcaQjUAa5kqW6gYm2dbUUNKe+BoKOTTecnKASvNF9byUlAg25s5r xdzZdF19UOzBNmV11sY0X6SeQS7N7HJB+BpgZefRxDBMk9gygYFq9Yi0fHWw POIOmiQ36BdHyMMCGVSQxiOOAT8Vb3Hlp6aMvDqC9ItOAuRQ+HZo93x2cVVl kldVuooTzGPxm5LpQBExTB0DHh4nKFQ/LjSnTYMQREoqaKCe4w/wk4dKevTo HyNSiGUhbQu5L+kJZFskpZ5+JsZO7zUVEDzxjArz2gtG/QoxI9O1BmQ8i3Cw 2FPyC3hgjlZisfVbnp7yYSTXMxFDYo1/X9hg/UJOGb3rZpkYupQDauwcROWc 2EahDfFpTsepkpjdtxTJuupNIwFHEQ26wcVIse8bg4ZINTAgMkli7Ma45mmm vn2jji4Z0/CvCV4LKEnFWmLoO6lYaSd8EPy7xNpZKZyrnnVJtAUSJQqLY3jR OgvEob5djZoZDNfVoAPda+ZWNdiSNMJDPtmrVjlKAiZRdEuZAYixEgGmS8ot NcpdWyLOwsXZsoTRmkk+E0s8zM6fMbB0uD3AsnLH480s37DTpPSJRxOn+p26 gbSkNPXdQp0SjO0YBg4JZH58LRVcd40XmBGPjTSTmq8L9hrE8azEfev1nC7I xaDyrgmeZ1vyQsEj42iXwUZy2sPTUvOlIjQFohm3LHnRXpvjyKW8YPWOoSjk O+/Kq9yOGKf4GMuaZ5pZJkXkrsIyKdF0ue/aF4ws/KbOaeo1rGFPMJtCfpYm n4hpNPcj8EOx8kT3zk1Vz4kF3B1/zadnbXvbpJKLuufyKJLGhdu5a2j22BMK T3OQEo9TJpE/2queZ8oA/ZQ3rn8PH/2OOu81U4AZcJwbNaQrUXMSJKtXTSal JYVL3YihOQdSdLGkOw/+rDKx+ARSujLeMwHkBRwKAKqxKmX10QLM0h1qF55S 6T3HE+/Jqj+Hj5WcbkpSON319CQ55rBiIqjooJDsvrQ6sCX5roIDKU2WOIjn 7uov8mpFmXyJieUu2ptthf3CIzsLWFKBfGkpsNMiWJHV47QI5FfvvNEvUM1t 8FdDsEQ6X5Ltgp4A1oNYHyYj2I8f6kfBIhN9DAoyUZwm7V5ZIwJPMKyY2FZ5 uc+qtPlA679thKkPPR1h51PZteTpLLot0QhxZeUQD5XU1fRQfHyFsJ6L5P2t YMeP14/BBJX3/vj1wsqxvD+S/6KYCXVQW89PbJgnTyvmsPD6JBs/eCkA1lnw 3TJtaEeFFInD3eH/grZno9BellfU0I9NYggXLHnVWzFa1ZPqS9ErSPISx8oX veefKDWXonSUKDsVWJPJeU9A8GRNK2GMdYa82IwxvONZXJtYQkoBCxhqVu36 0+aTiSkJBGMc/2qzjlPP8hrL/X8X5h7UR2wXHCwroiScY5qZdXXg5CjAMztR csHJvabdrW/OnTmY0eSdP15jiFo79OtDLaBJn09yiUpTPA2DLHpoixEeu/uh 9lg2sSl6tc9GpRrCZ2STMhFpgTDs2DJfVaOeuFHzAVvhDB5fayAWTuLrp/wS iim9biKW+sEsiWACmN+tmQAtPl2YK8+TMn7XZpQSXr4rkJ7sIzq7KLBzXg7j Q2NQHvBpVwOOp62ro8EXIxLLUy7CkZORtLVsJFDbOHdbuTTXCMHluTD0jkPn n4bBeo4WBXl0Txsg1hy0XGKHefFKJlakJWF2/SxqiPiEzZPaleEcl3AmnT26 keOpMcKSJNpxavL8RpRH3Dw7Sd+HSl47Wcguk8Ka1Fhzn7rLtf4pP9pbDxFP U3nxImuvMtLBxtOJftlxwM2kussvPnMSOqgv3glSaUa6jG16otllS4Q9KsAe mrT79CApb/Y+Lm/aWcQHzbGa+xKK27Wx04sbgpIYuy7WxyXWk1Hd6HjX1eaW uXK9N2Vi7Ht0MmdGtg9iMN1I3CUkzx4DlaqLYToHLetD4+ZndNSsIu2GGoff dI6GsepFdNMV2pjJGs+LYTodK3seh2KSmZnMKTG9Nm7alhMSRk5C4r+72hJT qjlfTSaNkPMOIDf2BvZOL86k1s7wsy7y1tZGE0K4G3oNb2Opf6ttYhvecFy+ 4t/YlzT2tAprUr4vzfHNtA2P3Lh5bxPx6W2OdgRqYMTT0sbHYqP6wixuVqUM C2iaLTuvtgL5ViQ5555CVUXydd/kcbnU1GhZvtGxF9Yw8SiJr6v/MuV3w3Hi PQMj+ZRL/oj66U7LPS17mVqSfIElQl4gq/thQl6LZipLulKMT4e/221gOo/v vNfumVKE/TAI7zdcwvjX0l0Zp8e+fD1a+PA6b3Zc+Nps2fhZbLi1rgZJi8mb fl/MXgm9tuM5xfZBldPQwYXNHSZjY7NdPaWqMZAPjSukJWscdQeusELzlMtq LxEh4WiPK/eJ8qvHzBgosOt2fA/ymKzuJ29OFXzcrkuyl6Az1RT/o5S8qYJ7 yPKbL3a/vhXNlLUQbsimMDH2naNJNwt54gi8W4B2Nps1BStde1SYt12Yd2j4 mRPTRmDfNzre3ZKdZ2cG7QVv0pC0K3a/wJK2YthTTQtrjwrztk3wMi8892N3 xCUjjx4bnNshvXrF3umVji2tSp21FztgxevP3pe5H0iFp9URNk+zgCmXFdXX RShsmIkcNpV9K/m8alLMY0jW/HpQXv2xgpZKt43PRz7+ET5WcpepvaafWx3Y AtH/tFd9GzFVtTy65o2YbywFc+FtYqzzV/8yGz9FN+K17qWl67nnU6TL9epd 67MqvenKmGy5/nmz+/UrCqR8Q/Pljndxt1T/LkhLLkne7H59WYEsvj240XPe R5S13tX3Lyw3/cMRSXj1BP8nBtWZ/wIRaEtd\ \>"], "Graphics", ImageSize->{383, 82}, ImageMargins->0]], "Input", CellChangeTimes->{{3.414817584039132*^9, 3.414817585209835*^9}}], 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", "\<\ eJztfVusrVlW1uq99rrtvfY+e586dTunDlVdN2iaVizoLtHCarApCJdIJJjT rUE7aKSMLabhQSq84YslCY9q6YO+dGiaN8VUIPCEHq5RjEcTOhBJRSOND9ST kUu2a8w5vvl/c/5j3v619qki9J+cs9f617yMMeaYY445LnN+16d/+Af+zmc+ /cOvf/+nn/nWz376H/7A69//Q8+89oOf3b2af2A2O7oxm33guWdm8vlqNsN/ w3Mp//GbP5Uv/tj9mV/dv3//6p133nHfjvWdfJf38s3V2fg6f0R13njjDfdt qe/ke1RnHdd56aWXrt59992ojnyX92mdX9LfX3vtNUA9e9z9v7l68ODB1b17 99y/u3fvur/yvP766zLQV2+99dbs1JVdyWf3TtrRvq8+//nPC6yzDcEt7wIM Kw/Dz7k/C9eG1Ec7b7755mxNOAG+pZYXeKRN+Scw7eBVui5cP9KGlJHfpK25 +23t2nr77bd9Y7u+lJbu7+77nEgvP+9Qnx1JQ7t3QgZ5J10dKTDchDzS5a75 owKUR9qFQKFUjSjy8/o7NV2khIAFjISjZoSGUEI5QvvdhpHFSFUockxNSVeM vQ5ywF6rHykPSXHlefdYkIIa8l1+n0oNX/zYYSeUlrZ2/0AI+Sos5r/J/6eu S0CPakIYgwg7MvuaO1Zy3e7qKujrMDV4GqB+IGAWMhKa/sMyjzgYHFDgnx/y 3adkMs+1lnKy637XFncNomCYMT7yDVxsEWSpYyxNksxx9fFZ64UxZlSP6qC1 UiXPDh50ZnQGB916RPKouracEPBEWrqWhHBaG4wOGWN06j4LByiPQwT/S4WF lwfwGi8Pj3fiDWaD4BkEgOdhAUPeeYxOXF809EH+STvyKOMutHlgJ3+F4XY/ K7MtXRV5h6mlIhHEMSALjIOZpMTBdOV1cKXveB18rJE45/oO66GsC8fUB6Tx VjFh8IRAWgfLKkm/0F1umbunv0O+7Ag0e5VAxJK9SkCUb7fc/8eO46R9RRMr K8/YG8Q6wBBTSoZdp5ViuBoJcHCorO5As0ej+KQxEt9okMvSCm7pO/CPLDR3 FU5oB9BIQAqZzluCCWpoumRLuQW1j2nPWpWyeoTPhZJe6Imh2+Htm9+wRsAj 60BRNBSUi0gIsHICBhOUhKTy3mgP8lIgRfXdZ6xlmE34KzUxm7jKjlnCnMfk lbK89sk7YSr97Uj1uFTDQxfSvAI9s6AM6tCqBKXSaRl+g1oSQbEokPgYnIT3 eA3Ky2jR9K2peJ60C+AQ5oiU9NDModMpAsN8BFLfS321av83aQ5hdYaqIcRJ dTWhhGpWvtiNoN6xwiVggkDgWSmDNSxerDdhHPBg3MBRngyeRCDl+Lc587iS dBOVZ1TkwaoLdTXVsPk7dFJpX/sFB6Lb6PU26pk/Q3hgGdDfUg0IRN11HHhd 5OpoDI7D7JOfd1Uh2MdqdCwZe3RnSHbWncFdMkdUPdzB71VDAQVUdP9/kjlu yxwXZrlgjXeggsCR7AywsPh3q2iUEoYNKHJ38kB/RllZhCwOw2/rA3MTeEDR kz6g8KWgRuyxDmJQByawSlTsOPykBGOVG/SDijLeZywCRxHsuc0Fmh6p0X+X R/w4wivMkmUkJwhgL/VOw0IBwJlXUt0fWqFF+F3PwK1n7L3I9wKYdNSDS5eU H9ySIt0eh24jLI5TiXLkKLAMmlcChK91kk6rSLkeUX9QIa/cwn8VNFVjF9ax 8bI4xpmwvju8Wo55BwpL4MRLa1kKIGFvKtXAYypOs0wjvwkBsVvfwQvGUNuO qyp/h2VnPVqSsJSphuuVwTOTVzAhMMDYA8nnYT6eF1eipDsG0Vd/Ouoa1eWB EOGdhwFGICTARXslwutitGO6K93SQium9SZa9XKbZ0JsjzUnlqzYqwXOPYlo DK2YFE4QyOtv52HVh3IJHRTLurzDbET1XXNHbgO7ibZCNGKhxyA5jnTHi7YH Kmx5fobP2K8IPPisGwDIXBTFFke3QNTdhrurwed1dqjyeNAJ9R/YGXsc/GNt 2iK7qtNrZRbLJADGIBU6MFfJQsEq9F/UdzULiev8WWauk4i5QAb5TtY5+cw7 SPD5TeoW0vZDxrvndfgytgI2xJY2v3+Bmi6ZOlz7H2QsrY3CYrRRE5TOtLxw DdbMSwOlE3qn03f2VBb1shEB+NdsHB/Td5i4LGpqdZkmxQ37Muzv5MHPO3Cf IX7S/aYurYO1TL7dMcq9QBDNCuYHFpwwP/AIY0Q+pgyVrkxK5ROqEhmaPA7N BsWPJANac3Sk4ERWveMgIBIz7sjHoVD+V/19vBs6GbETeZzc98jYehyWOqW/ tSfinqEq1hTsWFGM9SJ2EgkbCO2yGvfTvt//5v5si/ZyrPRSRj8vqFn1K1S7 +u/yhxb3wbkG1UCQxs4Brajgs9b3Mf1scQ92ZnGPYZLvgpfKyawTLOqmywSb 9TRGTfbbPGsi5wH9XhIAlv3REgDc9jv6e8/iFxBrd1J/i9HNy0Y3f9so93VG uW8yyv0No9x3+e4/QcUxmt9AlEHxr1D82TctvCfWmFeNNj5qtGGV+z6j3HfG oDFDADRmCAfa0WBvd1NO5MKrRgMfNRqwyn2fUU7h8k2cRH5LGCOhFeq0lOps qgHWp9qE5b2HZINCunsPVmX/4qUOCK3a7ge/EZOJsAzbGjw6Pbd9CJx6+u6+ rbNw9DXWjnleh9uEJrDfk2bYji4T/8kqleZMpbDksCA70TYMbGbWyDzeAZ/F HNsEZghMvzv3MJN1WGHYjHA0yDmzRvAiqY/+LHg3VdiWkeWauE5nz4cUZvhc 0Dp5O3VkzsI2SB4OlYC1RpUIj4ZaruBhYddBoS/f1SLqKjaFxIq35dtcNKMU 9xPrOYtAcKknbeUiVuAdwTsof+Jg8qufjzRpJJl8dOIT9hswOOAnXUtg3I8E 295RPVLt4EADmN8Xe/UXBJXZjm13YkXnQAmsWRDHsHaMx8RrHy1jbmnwR8ko bYKgxUJvTQaIp3Hs0uCT9tDI/2tXf8/JwkTxtD4dufHqXDI4FO9zcJgfIrY0 gXESmlskt7gBius0Xh5BeayNshjGzy1cAY09wdJiiO/wxP9q/Qka8OAdmwcj qvQGmcFWKbVOjsoP8XyrkS+srZ85vkfb75oc5QiHlj7QnqfmUBd6qbUfPUr6 GExfG3amBTODTavlyECt0X4QoTM1FIPzsd7qpN0f+9JIrkbQHWrUPFdcZLkC mhzapk0It80b+1iAnsIkEZpOB6U26Ozijwd9FUIyA81nwescSMCTwBKf0LZg phWU1LS/N6nHstNyDtRZJPWJqTeLeRdrDo0cU6lG8ZoMbWXmCqSpHFXmwCzL QRq1Mmd8TZmgovTD2qngkRrBgl93Y2505JEqsGWw6QgkOSo3jxg93jXwkq64 WcRetQF+T8PJZaYg5lAoBdOXWKbm2iAB7h6M2WCyG/x37LOrEQa+39TRBnei vMfSTp6YfLjlQYZrXm6qcWigN9Rpt4r2TrwV5uidsXS8HE2IdAxaxvhY0Unh TMbEO76WkZwnopUiYKHUSlX5x8bsIo2PU2KUJCNPrqYR3AbywIIlgGINxeJA w+V7P61SmUYieHA6WJUN+QRdTgjq99Q7kADn1cuFhaJJwW/3TUMIItgVa4SO Ovb/UD7Q+aAy2kKv2JylY/QG2me7gI808VVEi8EY4jVnLfD4Qi1fKEcZhAgT jje3Snq2JR0AudJwTCa9RY9VFNYALsSiuqR6mKWOQCtVrdhcxVYGilBICQw2 sMYNNh6WYBbR78eRhBaVoE23Dgirl/BhNQ1SuwzLNLNSusGhJI9gA0GjxVKN KuLXeLjhoqLYkRHuHEPShOdYXulAZwDDOBtotcgpGI0oDENa3WhnsOgoDPmI m2xLWOfY4VhSworNHAddVLcrvOuAOgp1Q3pM3ZVYoHbUWmiHCYquqFu7fLgc aKpkP+8HPUPLebmWRbc8+VehdXmwBGtEV/CXskV6V+amEgrEw1KcEIrjNIn0 YDwOE1PaabzfCc/80W6fSGHpQuARWJEaWA15dAmaFtWaiH8WXBYcO1Rhqygr BwNXUmr6kIH0r4zZQmsnCFjTJdq9LXjHGcwij2g1KxbKKv9oFl27/IWWZ/sc DGhs+uNhkMXnVIkhWCI8DXsV8qxYTp9lJ4iX1d+s2IFBurAJdwf6He2QI8lS 7BDaNTJj67KiGM84oA+ooO7YpuAVXmhm2LO8PeT99mFol7/RMHiXBoilEUCb vSRT/v4axZ73EIK9BqwAGnYkWpsiqoJZwQisy1WwerB71EcGjGzWlkystH5R /hkJdoziywZAjxk9g3cQpy8PDVKFUlbPx+UqLxhAVNBHJBzjEg2+/yleTOac lxQEEUcyHDXWBQeRkh+lVpbqImCPoyWADlvf1nv0cd5Zrhb18bgBC9hE3nHw qq5p8z1AaK373B4kgv5oBK345fEkrLPYvnGwgLzT7dYNxYMCpgIxGqrf7uuN AysRioWAI8t+cbOv+W1fccTqcrDYRw0IfZzYoKNoFN98/96O+pr4mr7iTxm4 KJdABkA0yrc/p+9qAWpP64BZG7mPG20cIHgNUdhKefeN3dsvJQkRvJH/0WT0 eCn+e3HzQigEebvf/9D/joBnjl/aDeGj2sNs9q/kv++IC1Ogm8ADF1MNXPf/ l7ipOavWM+iIZF6c/X4j1X/dN/ubOoBWiB+H35dC/H7NN/Uz7k9zUNimr7gT h1bA3x1tpzG4DDsdFtNIbJwSXDYOhlpEwlPFMugNIjWG6Wz6irdE7cU2qbzD N9Z8Tgp1+Z3V77nRBwxDmaAHVod+1SPov7REaKyjWBXDZQ7ff+oxN2JKQpr8 Az1GwGzqOG3q4YVWLSNkdVvEjtC2OKjTpjioku+6dGRSPhRmwaEw8OFGXuPU icvbJGWNn9Kf2tzwZy3uQfd9HC9yNnI/9zhArVCEawoYAe81uS/7YzsaPHZ5 6E+q8R4N7izLp6/s8AXtK+N5g2kz8QwcafQHBgUPudoU/pumAwiwM9kO7+HO e3BafNBzXrJMD05+1OIzBlLKpJkv8pQs+r8SD1XRuzCyQne66yxj+cNz15Vs 4kyRFp9bxia+6IS40RuXscc2DGfGPHxD+61Yo/0AbEIG+huayMsg6udZn5k0 Cxm0614nhWUPXCqWFWs3zH5s1o4EWMmq2WJiXuZMzBndqxbccQALct582m8i VVr9tPaYsa8hVNYySHWY6Sxj4G2jGbwz9Nefpp9K9pwXieTponcIUxpvfJ40 2sM7tifpDs/zZbPN4QXFxFoTOq05reYZBfSL7s9IcoEZGvfGV+GZfhztdxtd tmb6vWSU+2ajnGUs8eVmf4WKHzLT7+uNNj5ulLMy/by9R4s37/+xZDL7YqFo 2bc/pRjmk8IWkUcY+/Yz7YklGnZcPWaKp/raOe1AzSLNPiaNVtIgZ81immf3 hP+0ClOcwwd8W/Lh7iRle3LfxnCMMy6VPt8c83mjCSefHDjN+HKpyLLixMg+ MPLOxomQp9HWBtpALgOpbIa6mNBiKwX2MV09eQhKWVPfIsITeyC07QDU2i+W 4vnHAxWXszK+kJvbAo9l4PMzRNeUAxr4rOSmzhzRqnWttneeasgDLUOMg53l xAoxjmMrGfJ0zu26fNclBqfGjvfMjDlk1SmIHsLzIoSHHT7kOTGDAE82XvJ5 UoZxNB/JX0rePY7soL2jTuM053HCrxVj4uSs0An03WsCVuiDaKAJZLZk4b7z OLFqw+uQmtH2ZAo+1RJMoRKVIyBmVbt4T5ZTf44ojA57WY7bUVELcjEnBvXH WYMnVQO4Dhy8QywviFrvgeGfz/8hCwwrLLFboj1frzlNZ2mepkuBoGDpDnfC RQJsySczdfCRMVQaLnkaVr59M0a7aT41a3vbQi2mOvsLS0QHoUQmWqHEvdmi aF+Z2kqUGkE5jTUs15JKVBwWV/TO9GdKVZw9NeFY8RnVs6Gm+o7ee09YOQ2q g6588jQ/Wob3PSX/GcSURT/LX9aXoVbOoW1cSfZI2GzNaqo0g7yYBPl2D2xd X2tinlh60JD1jphFg1c990Bi9Hk4S7nkxVSxvX2DTd7MTF7N1CTC99pFW0l2 mkLwsSCJGp1HVMi4dR1xStmUFf93MQfqcgRggd7h90Rsd+ftTsikrCRIdcyQ DO92UTP24yO+6UDJlJX0qWnDbRHqVfd/kE0ZpzhCYTsSJ3GnUIfrHa5V9oND Kym53nEZYiFKYEri40XLz9uRsp06+xNob+sQViIfkFLBtIAY7cVzQi5iPgoi W+W8DbG84z/b8llby1YYRaSsv9+yA7PBEVtF+H2YGAgehGjBUJHqNEN2YD0w xTJbZ4NVLNY+cFJgqfxFA1ZTkwJLbVoRL8rWLyv2mVCVP6VJgR8zAHrc6Pnw SYGVKi/2o28lBerg31begQYBOwZ83LIyPkbVSxFBX04ctKOiENzC8D1hwHKN iYOtw/D8HiSyEgc1NsfLcvt2Vs9dX04qnBi19vUGhD5Y5jBJhZMp/ZG+3qyE QuUeL1cugr0VtTitQu3Z4Z3BaV+rPdRC557W8W3NQTxAWJ1jm6PBDH0S7MxS EP4/yGdsxmazoKjRhtG8uamUqPg3CQa6DB4PeaqCZmPNY/fl9+O2Evd/GPN3 6NIOq61bV0DYZT/qWvWIMqTUwEqHPBRMxMI6ho1rjVa426Q2xv+FoKKxmwfV Uax8X6LGSsGOv8EoznkQgqxFyJh8+119V1tmkmbHNu1YrP9b5b7G3EcE1aVB efczgfR+CzlcIQ1nljzYVpLxj5WiTWdXOD+/JX7PCr76z8zI68iCIlBiCqq9 uz2XsHTu9XBGIJ6p7R0pDRLN2ZWBVR+oMGVEqko57CR4cKh9pxX6UboxObxl gHOk4dfDW+qHcluxLTqov6g/tTk06wcat/q9S+2xnop1WmVIoCxvMYRi8vm+ fZL8RL85xiaJumHg8n7z/kN/LceojtF/UAQy/pbG01St81VGrWwicadCYaTZ aeTTveEqYmuhZLnArd7HBZ0Vh+A2WK7kaYAr7x/sO3HUsur+p3gois4Oa2Ar dmlbw0LVlLrqEcBRB0pU9y1H2aqHxIageuhkU5pg/VDMhLwZs6WV7nfcUiVz 7tmQWi6tuewtjymJiSgGDCoQrsfstFRnkv4ulZYVa6zlJME7ttBGUqNkeSsn waUSF+4qEXKwoD0sO6ai9B91rIsGpPLPkXIK9DkKvmb3ikCpGwLOusqtENce qM7rKNpqVHQ9AzRvOk+nFJ8HphXBiekj33HZZus+XYF2XXEgQsOuIxBrj1yy v2Z0+eeNLltzyVoP3nnFd/+9VBzch2tUrVwy6+qsV402rO2VVc7KJfOX1c7c gjA7jjYqLoTY6U5+wNUdqiWvRlyKjKv2DKLS7sY+BGbbCSdcZJm0mDudzfWg WEoqa6n/xF4ksrnn2Y7+80PcvildJf2VEsU6jyFaV0GxyfMKM/wiMqVAH7JS kEpZZdbWiN9ZqUFQB3gU5Gk4zgexO62gs08ctpB8Wll7u63oYyKMrRv1unD7 TyATItQyU9+iwOMGBBZUFjPA216BNL95aM1ErB8/dTKdaH450lWhxbyzCiYT I4sMe8hd8evJXbFmGbsJD3gK1NheYZ3RWzqpKXsE1kAlnWEiumW+oW9dliL7 Cech7Id66xAeJglvLBk2I4ta3gzWlH7k58m22TA3ZaSjhDEeHz5sO5W2Yze6 311KOfyDIeVwE2P6fYKVSXHBpAqQlCgOsN59N7pqyhJ81zKNL0YG52viEZWj r+hPbSka9lEOgJLyZfZLWFkV7WL7Z5p0mBdnVu7Yo9XTzRrJFPWXJg/qSJnZ D/ufG3feBSO1OXXYEErBLLFnzpF3BV2ORiO1oe832uX7BVtXu6WOrsAJ/ZXm 40FmRv4ejlau2LbQyn2O3BbLEckVzMjOVROiBz748OiauUMl6Dcq7BmHBnaB 8PHJozNun3yxml5ZSY4pmfsrXhErcQaHPhpIus9JSlN6BV2SlDEBnxKVJ1DU SvAgd06eBJaalz8BBDuz+l1Jjbf6rQJJWxcN5COQFW7Q0iYcUdl1fd9KcTPw 9vVnXYl5kzMMl4xIrefei638WVxBTBQTVxaFDJwJeTDXmsmScWlVPH8ILzAd dFsLfTNpSaufXgdK9iBMJviYFNHJAZmL06yW5gGoe+7M3N3/KExJdZGEwQ6g eM5n54V7mUzG9lEA0NjJTORnyz/eNMArM+ZOkYlsXbFv+uEkXsZIYjD3GuCi QMp4rLF2dSQK5RNoujLDoN6lXuzED32iGCdJU+BR0Fcep4P6QSGnZuEa8Aq8 FaKNHfIVl/qTGYwTvz0fxsfO2XfCzXYLZrew7udTx07YRxogMxCz0sbAzZkq MDdXkNojbayJXDFvRTq7HXiAlMhxUIFd3rqWqjdtDJs7bMlLAQnjK9bWYRMp D2SU8pb87T32txSXkSdPOZ4CWS2luIx9bpbjqAS8g8YjZEA/utsrDunUa+VK uO1zrVwPvZTD/5ISIBOEAibsSHKy8n4nZ5DF51tZG76m05q78OtLH/NR8BCN 4JoJuWMP50I5Hfbb2iVsGfd8xDDXKIX/3CBgevOUIBjIgL9XuhhiTKQMdFLd f++VNtYaCmXRoi9tzGnoYXWCOWKfnLHWus/tQR8rZ0xjcMBdMhukuMyO3cr6 tHvdHLJ1ruhRKJZ7Gqvf6eutlC5mnfPSmS7WGa6GQa2FoX1QIcRijn9DaPef sIvolIMudOxb88bwWQ85RShcLTzuaWVUjv/eiUErGu4AUXNpqthilCrmlRYf rUVWqEi5eemlyi1x71BvlaQw9+L/xuXJ3RsNmshTLIMj+8JcAdCsL906+twl b9jAGkVZX1jOa1j9M4PMrxlkfsooZw3bFwi6bPbX56kxLNHfRgyLxm4b5aww xp9iktSzxH5S37FUR/cscW8b5azVJ+mezb3Wwu0vO+wLrxsHlC2i8y3ks+/v 3igcERY1K9QPZ7Sn8XFW6J0VCYTDNNiP2ZW61hb1Vz86f3w8vIKpg9OYsfYT rlh/xhq8f1bKlTcLdQY1ZQ5qXoVRYq14sNoE6+6Gw01y0W3h2I39EvRiD0A+ 7OlmcA2B+sz6HUl2np3OR7EqjYElxwbUvbl1vHVNdvph0jMF/HTpvEJv4KO3 M6li+x0TvIw8WKgD5xrHmsXxEQPpPGHi9nmnvU/un8VU7Ptlw/nDzQdsCFDa Nx+Qt+YW8spPlTv4EAJUjwnpcoBj/oHBeR5akSsV17M8FLrxSLlz5Gs1H9lr eCeuPWFxES1pSv5ZNhIjn654xg5ubiyMpbU3Z14HeD8Zc0zG/5H3xE/wfW7N YISqc6t8sO9IP162YdTEGNeeYWn5zPfNrIQ33NpKN3BCxsKf96Z2OaRgR7O8 ym6lEZ/JieUzcZ8TN+cj5c4yJztaqZF8jCNm9xvXnvaZcWJCO634qDJHT/IC bK4Ph3GywBhX8wI8XmjDcrxAh0nX8fcyy1TJV7n1cIIF/yPlny1rvaPP3smq EUbXa4X+cGM5y+KMS3APkfyqW7/O6xT3NI1+qK83yzTKmfIIZdgnn1bp8IvU 7AFNPYFAe6TcTnjxewoRG7P+lvHuF3zx31bKwqAJkS/RJi1xsMO7RRAk2COK EPm4/gbhiPZliuZjHKz2j6P9547YOnz/Q2uw5pB3Ks95fz06VF0e1RcjQysg yZ8labU7OmF+IsSCsy4AgRbgbelh968X2HGTsUJTgLR+5vY60lrk4UzUHdRQ RzDfdUAtJHpP+EaIjdnjnPcrvaOBMSUDqzQFPznt48AK0fFvpVFZlpo+Djqq Nqsr1i9Q4xBHkJAsjmA/b8NvzirYDFnJY7/AIooHgdn0KzphaiNMK0z+1iGB ReFRSv089QZVgOcWoEK0TI1SgJ49mE909lHDXMXzZxUxNvzuCPlxfZ240ufU EBQAFqhQAG5pddgBFWHsCBkv4IpLPuQbDt3GjhDKKb4rnx41QvModaGG7JkF ipLkh4xRAj0S5y8gsHKnWQdE+MgDzTCVhQtuakEaigUCO0iJYOtea3dAGNZd +fbLHjm/jxuWYwzwYCe8GaDkHaM8zCNsUMYeRIMQsYxim8CvsVZpVY3cOw3N QsDBoYbtA2sNaiMVtex26n1zlSHK5S91FpTKCfjB4MBFqGmPxrZIHXzGTih4 DM4igFhlBXL4S82FpOWUABFENmFpzJke2qS/5xRzJd3bKeOPMj6ClU2tJmxK SPzYkO+pE8H7lATsOafkmVZ93PEN25vwRR6kOYMUpYLLe7LrBavNeLs70g4t d8vv+IHmDX4cdeA9MUJ4GMpSTwwGiqQPy3IMCIASIkEc0GuY+yLz3knUKOQK OJ869cWfivqFvowZieIwAqRwTsCPY8+Sn8Kg5X8bXzyJsHGAwmZ+mokh+4/B L6Ge2Ey5WzW0BZ5JumcXofwE9kcR9MybF3hSBtY95gXAJ1N4mywb7dUWFqC0 diB55079VNqv1nJqX3N95UGO1yygAUu6lCXtYmzkHG10SpDXIi/0xKpLKq66 dWgC0nEg0mmwqGWYN7yXsWMzN3ZBvp3zqHypLQzWjN0bF4FxIfmkSjqnEuO+ +6zo4KDKCjb7TcXx2SbQ3NR8zPZ7w76OVnK4FiYgRoClM9Rg9UDdd/5z6Rbe DI4uV299JCgwUnl/zGi/bDk6HMe9KK+22Q7jcHaQDkvUu8Op+9wwO62xwc4C 8JXySj0RnOeCNYxTsJR60RxI+JLHzX1GHjhneEGCuhSVN9xhvVg7CmMJpmKU Y6VgEaDELL4f/Njj9SCdXUPb6xpm1zUfdFaCKFAvlYuthQmtJ0hzr9Zqn8YZ yvuo81XoHBs2YUy1jivDLoOmyX6S3ee8K3tkg7H48hPl1lPruyh7eUdibIOx ynmDTJSgDC3Nz/CLsCBzvGCqvYCcrEjptoqz77Hw8e4Daz0EG7qRz2mYwJxG U5qn/WIYYfLz+65vFZl/AnY4D4ebtaDnPUVgxXNTNROikG4URhxqW1Bnn8+u mUl8Q5GeMBAzMXLdsyMRKXaoh+w7p3Rh9z1WWWyDHYfi9GpcL4deMd3ADlfE /OMktZF9rwREp/I0XjjOI86xXH+QMzAOJcnRGCfdPFFE1GW0E2VxRRutKLoa 5anL3RDIRs+ZmBwI2BGzLo7NNiWeog3I5E7sIFjQclqcsUiqxr2LvnJjFKKT gwahp+SuD4I5QZ635QlEykg3o7EpDTPMpJB7wEKtB5xqDpJrcGywVVrOccsi bFkHPlFo/9RoH/Mkse5aTf9OzP/W5oGXmqf1HXubzugd5AIcx2y19Q7NZdjL g7nVtMWbrZIx8Kv0HY2bhvVmmz5pbNpf/VW10/pbPApWkYGO8u2DVA50PFOA pRx4Wx41VXEEOGyp7E2NSbqK9s/yQBKmTsOSVdm1daSbDc6sfryhk5PGTr5K 8c4YhP+dpyyCc1KjrrrCwVw6+9y3m8a7O/pOOAEGWt7mq2Y6MqoJA2NJYpc4 uyegtz+tw9kakIyYeVFRn2yEZdMIi8e67x4nw2j4M34QWt1lz7r/T0d73zR6 FrJWMP9wY9vPeJ4kQ2CSjJOxvCgKv5dUjzM6PqWELOXecIwobVq5/Xyk31/X DkrJOlBzeC/w77n1psCyTyog4L7EiM5ndIDcisL/URjT0eOYqU+NyMg5OD9H DWWDiz5l0N/KqPnZGKpS8A6aBDVzWTI/y9Ssx8J4UlbzOxTrANnDjVl5OC/+ tfszDJqoG+73z/jf/43+Tpsh//vf598XgXmxUMpIPaW/ceQ3lmEMCyWKqLt4 5MDFgc3Y48M1lH6XZzmGClJaehItGllM2EdhjuHMAUxykWHWkck3FMrErZo/ /no52knydy/kwwkOqVwXWeGl5nOpr9JVT517WE7ld9Z82acIzTb1M8J4wv6z THs6Cy8ip6flt7RgHjkh54xCkMeJD/VIqW85Hi3PH1eXx7vWhL+3UXoSthOc I5VgfKQWVzTX4EgOAaepJ1me2CE5/VJGFeBeLzpt0k8+97nPkYWm9bjryfm/ +ZiasylYm+k+roBO/Jv0O5wYfmV8JDJoYeDBkkzVGZlVQZ7EWxh4NDEiH2lX kC2lpixfZuo0fT2chriIwI1NtVYo2mokdMYexdOiT4/rD9lcjwX4cr7YHL7c Xopnn3MYKSOkiSytDO7B+BA751uNV0zJjNa7a1/0lFWkOnDYgzBtNoxxUgp6 9l55am01ag0jMMRMTJtEKS1YLeYRRpIoeWSi8MNhEj058mFjVWUhUGnLfbZc iIMFzVOZ4a3PovHSzc5A75Z7ht1yIzoAZqyTOZhLOOZmjuJmOW75WqjcvudO wjSx5s6Rj6UFYtXQk3XUU0s9zO0G/SnPszeaeRb6Ey61YN7gdRJzjMeCtxFe anvzWtJevrnFwdmWbU6R2+xmyW02ogrbpZPd7Zwgh9yOCRd7EZPVcnAXZjyu sft0o2QvbbXvKP6VvDzihhBMTavBKJh6fCRpGYzNNbTZPRk2YWghnDQFzBWN 1YvTyOSd6pgc5nM3nHF5M4AHgZ2OMQsxCEejvdZJEYO8iUDOeNFUjN0OMgCe yF4vWqogpmglM4KLS9MD1daROMr6YU+qfljVhHAgMsY6MQshaqNN12kyRHG2 F96ty1BYC8BaG8tUCSMOaIwtv6G1bEbSnk4QQJu6D4yDz6JFxxe4gEveFcC+ RAZAgMTGEgISYwhFHZx9pD4cbsty+FFbwd8FomibJX8XFuyx3/B2oEOLzyv1 9iUojUAHFzl3nACyiTDN+BajaEPbdbqIKIM988YXyBgqkcKZMgGbOpGIOWLG bKvb7hquzDkzZqya8NoNc7+V7Q33Bmthf9Z496K+q9leb4+gZgtuljINLZ/u UdeVPmNqjUeQDwLhxCVQakt94R08cOSVc4+Wec6ogkFgRx5OfKxZoXFiasmi zTnNKZlq7Z/uUZdJbNkaVU1QiRHbZVPJIn1AoquN0n27NN49a7z7iEJeMb/z gV4la/7ttuYeayvmUNaZO3DM+8xq/0UiDZw9X6tjZZ3c9Rktz363H/dN/SY1 Bb+5byp7z+E/0CqcwvVP/e8+RnNQI3SheUYbhCBgk/09+6xvK23rlFrH8RCv F+5WXXeWh4eb1PDgLoC8YiM2m5gHJ27PdbVth6lhO5HCcL9yMakOMc6Rwkou 357R7tPdBLp/QEdUYSisc+VYW1PX/cy62XPTWZ5T3RGAYF16CnnKewfr8KbW 20HzF6vmb4Wp93EctsYaqWUdj/dmPFqw2g+tLIKVCMwhVEG6dmpOvxdO2zrI ZZXQfmURm379X/PFkG4dDn4c6KdOx7y3x8WX8Ul3DAcvoIe6MBBtquE6F+MN /yhhOeu4m/Jabym1I9JtaBcRtIp0FD6qkiXMUI5SS9gfSpMVQCE8iDFirfrY KMfdQ3/EFptlL9Y5JOzQCVn5HJ/Wrs7SJSiy8GBTiRUxTkO6HB0B19NWfBbf YI5jcwy0hcxNXn23vB2HGBq1Oll2KzT17rRrBPe/UDJzItzYunb3bnRrXgZK 8L90DoEEyltpX8rrXyDGwiICCxLUNzwPwp0xMc/j5rM0uladVAhbTXLRolkI hIbuK82tg7lMHrChx+mwV87FlidrH74qA8zmMYwr2OGd9ovhJtxwZ/VcIRGW cjjS5YGSZEXq/hPfHtiIHOaBjaA/4ZFltsRGsLA9sI7oGx0mVjoar9jSOoSs ozVOvH6/XzuGM0hYV38wnADKwQwEBHDI3xf2sADkcBcDwI6rqZgDnc8G3hT4 MLGzvpvc/5XyHcpT0L+AMuEaIxzEAVs5BMjbb7/3t1HhIiSYNDhpjGA74BVL ScvWFUuR4rUINbCEDwkLa15cXetkOePkAx5groqHm9HloPcGHxxGzekV7KF8 8HAvYMLlP6wcp+Dsc6FQDkXrQqFEucC66vnaNwl/L7CXR0AfNkrWIJ6MDKm8 9NHBhBNu1fmQVuFt5oRbhg50OY+S8Me1PivcaZjg7vsT1KmutzPe4MMGCyWS Yvw9hDPKnB1IMFS53rtnvO/g8Pf2HPpOGzUx4r4XOJPI3uFATyJd2XSShHXq tvXJsFClcZ2lsFKYjuWxYjzZhiciFItq8h48YTXhNhYirk7C6SscXst5cvKd UiU4KvcKBw8NEZDQkBgWK6YVobHy3T545zj1z3lF5mZzcCc3LSDwsQk7cPkE sTj0eB4WKr8ye6sQoE9cGx7Y8wg59AjzCDsboRDprukAN/K8oGxo7cM6bzA6 wOU+OpVwxNdY1FtGzCeCdYh7ATl5m8NBGy3hpVGs5yLK8NNiQf1Jd1NR1Xmo Opg8VgESA6pqUCvXwZCx+SSHta4W7OSmiBO2lKBmU1CrGgosAzeU61qgx8s0 vrHraLS7g5/H8Br1cc7ZlPDG2ZH6PkrhlfHOOaYI3+acbsBD2OQ6gJSJ0PRQ PBGgKAVxQhqXzrlJ6yo01tkvflEfXER4KEQS34MFVsBj01YIRvjRKQNXCu27 zKLUElWo8M1wDS7vt2pzXusimBFVIe9ZRy6BVQhmREAbIAEb5zAunFQSUlwA 3tUVHI3leD+YoSiYxifN/rYUebM2nCfsNjAj+zQuzRe/xU1EYrAlIs6IUeON NFJDd9U5Ho9eZ6PcWFCwuKxBlwwqgCUj46yGeM/hGyhTD8jDsELZueqQ3e5/ TbxDbhn730CwsJlYRXGNHLTmFz9RLm+1hGsFZNNoMVYh1VrAW+y0WUyqYE5a Wj/JL76V21EraSgat5wDMBdph7ZU9z1KoEnwhwBoPUwC/FOPWHNF/3E8plhD zDGNY5Os43lxesKUADHX6o/F4LAKZ4DDe20PzmA+U2HIRyAjbAfmM8amNdLq H7n/ewItSsET8T0qX2TkN0HtQhQmtpq0YQuJq+A/NXgCaz6v4M+4/6tRSD+S EIKHqxauYIVEZMIQfsvj+v90QHq9xQ/JMW260WOHsiLyB/pTzQmIuIjrdTJu Uleo6R9U0P9QOyh6k/Z2SsHeaHmYEkCK/ptr9V7A2ZT4HxL4MoZwnCPdYTv/ XW7YtsU+lm3VLv8l3+QfGaNBpscJN7T/b274eu/4/l9MlmZzQ+dtz//TdxL4 9P0WaXmIF//C/Ym33HCm8d76WxvLvWiUs05W+cuN7d1tbO/5xnIvNJbzk2r2 z6k4vAUQtBxi+i2N5Z43yq2Mct/U2B4vbbCtP9bYx7ON5Z5rLOel2+yv6liy SXg3yV7RGqQWBS8AewZ4GYME8GZC29cBZWX3/bb2DF1F7betvTSe5XFkNLfK Aj1nAMNFzIhskjV60Qgeu2Di+w0GL+IQAFmH7047tazqTx6WWso830O8BlXi FeMdmmUvHq8dcJbd0V8sUz7a25W3VNVzpc9b8VkqrT3nj2epht3UjolD4g0h YCrbwADGTf1rhUxbGPAWDE16b8MiCohSF745Jhb4mKYNhLWqg3uugbBe58me d+NtZf63vMtuODAmuVxjfLeE7hK8FW4dTSOjfZhRUUye2OMVp8bA1pb65jKe NbZ2AgrsN3D7BZsQ5LE8g4rULL3DI4NV2HtEYJxF1RBPfe/ecPGq0X3gQE7o 4TvodCBnGA8cg2JaW9cRVvKwQ/O+fWGF16q2zS7GxGnStkO9pltClpHlWR7F rA8S63KQyszc7+6SSyUXe4nJwez+qpVkhtPqYZW7Itk3ldBATb0wkBATCM07 HbBBHpJNjn/dZ40PCBQjcKJo6CaGfs/upbHi2A7KepMJo2uFlUA7V4ZUi0s0 NImjUHu8HQ1d6sylEOzIfYd2am5vmC9CEMY8OH0ZXAaBq1PTCu7W+i0K60eY f+QCvxmE91SM9DtWthRBXoJG5zTFvnshwODHs65YWUYHzmLbEmzL68i9I08S PrHPlSp6hM+9/AlMqV8VZhiY7kvJEtd4Aw57EYB06Z7AGtnBEEH9sbMgQrT8 4e/lQT4ZTfDAEPDzkAN6AvHXEcbw45MNEBbbHMONB2DJqLpHyoXgawuKrUl3 uOV4fisYOGbugGw/z0J3rVc0WYvM4Rm0g17R2nIcsd79IfmtIW5lxs6ENPpD 3W0zXKTEcLfExKhIQmJx+/JRvvYFqx+6fYtuH6IUJ3MpKoEdrR3HKRbWQWUI XB3fKnScrkhWuhLb5uCNsPIUcKpEIZTGvMU572I56M1LFmr59AKr6wV3nWg+ MS/o79GJPwRKlnpRYFpKR6WZ5TPLw7wKMCO4agz7ZPKdZLuNw9ixTaau8ZmV 4DpzXftVXNmDHw/EEK3o+pP7TcnpQm19D9KKHTgWB3vJ46NxBL4Fh11BvARj QSrSkvaPkmKpdFJri8fz+oTpENY2iLocFjDYjLDI37lnyVyA8Jp9cp5PhNkG uxinHXHEfxKsx4OvMUJF4VqKZgOjknrXffIeIoYyaHRc6JXPfO2FZpMlKo1Z kxxOQMwTOnu6IbDan8YLC6sZzrSEjqxjWxLUDXT3zHlepKNwFH7TXkE/Fqol JsV9I/szj9U6BvhhM08f9pHMpg2Q1YNGh4ZQFkgyHKDI5zgOGyNhkG20KWBD C2HFfaRyWx7EMcujcsTj+pWmYEzjN9lumAT2ZG0oafhpavFIMcmfjHkZpocF h6AGH8Ld/CGPQYVQM4qOw5VqYhCGMPdndo4glGrsHKzUu3NEqi6YJ/G0QAti 9WQAN3/p3DoaFDYqK5CWDj407BE9rflImTZB1Bsdz0oUarNjNB2iaR2Xlw7u EOIWzkeaRsHz0DDkBez4nPDJDV8D+ywbeKF9SKzd0X5MwetwBeXIdhAfVQil W4+SmeE0o0yMtT9uz42KAw7etsHTto7ii9OA17dx6OY66gHFIH6cQBh7L+eK DQBKgAvQ4DN8g/JYHk8N5FR/7OvuLFCO/cpgMosqMB4MEAEQWeAQV0GWZxCd +8ZQ79i0dJUfRyWnHguE92pPli/lVmBBK9a7lgGeApO/V3CI0wEtWYPI+BNL XVlXDGJOGl2ZjqRbxnyQhw9fzR/hYsO1ycJVJcG2s1nIvIZhfmTSoLVTMm/7 uZYLIiN5Ft9wjjVrV9RKNfg6493z2gwPCc5l2c0+tvqWQmMQHFvLWLAOrV2V QVg1gpA/BWLvayjHggLq5VuZA4crHa+Nji2cTvubseB/pNyMReFSoNF1Udhm anl0+lhMzbYKvDsx3j1l1H1eW0j9F1Af+ICpWjQiQtmxccllw1hnCq8a4Fg1 wrGZ2H7rhaGP6i+lc5P5oJMeGHgKl3DcTmzLwudWQ1sW7a22rAM4Dk97ZSF/ GhLF93C0XbxYxKdBA0oOCjsx3t0x6r5AUMk7b0iIQ028adiX40MYOFwbxs5b SjfEBLOtgzKs0pPVc91al8Ra3T7S2F7rRa8g8/375dOvH2vsd9WIx3aP9kp4 TKGz1d7NxvZa6awT4Ms5GsUcjavwvM9yaya8mH3g/wOvs+Ae\ \>"], "Graphics", ImageSize->{527, 291}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4148176165354843`*^9, 3.4148176180112343`*^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", "\<\ eJztWk1uEzEUnialrQIU1B9YVeoCIaBUQNlAN3QVhBCIBUJdIY0qpGaBWpUK pNyAgACx6KIHAAoCtt2zyAlygpygJxj8Pfu5TuOZ2JOZNo1mpLGf/773Y+c9 j50n4fb6q9fhdm0tnH+4FW6u19bezFc3tkRVeSQIRh4EQfB1PgAdCVIl9Kwg UYVTQP9DdhPyPzMqgnKkFRKla5a6p5l1n1V1S0tL0erqatRut4OLfhAzlI5i aFStVqNWq4XcE2WS0goJAiR+QKNfs9mkHEKKPBX6WSv63Nwc0UAGF+gAM1zI RoG9vT2CxHNwcEBsRJ8EBX4ju2xqCUxe6SVKy9Hu7q4eOKVHLBsQR9CnY4Ue 6xIa4KJuxhHmXhqu47FzLcxkHZcZ626FMUtiIeSqsH0ewZn7TeXD3uYTCtiU sOSvZ/0GPj+p7jeQLWqJY2XvBXGk6bqjLV1tPpzspaFHKSDyI2hbXDlGqaSL G6OYhFhUq9XIB8E3Ccc76QjjKR1z3d/fp/p6vU4v6Eaj4WqTaQWD+ATB8Yjh XM7JtCw8JhK7BQQOvDCZ2DG4cj2n6ngoSiVKJ2gG0Bc5ZuV4FDsfK9Golgh7 FgpXh8NRhZLrWolXXIY/NZOiJFQXKcpqOTrzyFhziJCr5hO0/DHF/LCbyG7K yQFdQguDdcsx3iEHOwI4B0HLDShtLCcNBN7ClFVqODhRkqmy1KGxCeWFpq64 zU0SK5s1JhzrkpYk5h5GifRPP90s2PguuqntK1IWahsfKoOidi+RslAbZmUH NCBq9xIpjdr8Q+LPDvBUP6aTUttXJFe1+9n2eapj23QVYg6bmPQBVYkb6PVR lcAqtDQ9KmDtsFeRlvT2jCjbEihYFawKVoPBakHDLsQ51ASILYtkdwuIAqJ/ iF9F99PQ/Z2qM+8q7/hBvKW0667SE2WT0gqPpja8jChH6rtKT/QNVYcTFKgq vgQ7zmpwAskXieZ95e10bHDcxN/Y8vDmDJVRb9xXptKihIOl5eMcqBTiL+r7 /ZueD7TUkRiVPP3LpqrDqlNrQn/08nlyCtiB+nHm252WJ5msrKmXBUQBkQLi se4egrolm35akD4NdxOZZiU/+i9lMtjCo6r3o2z9o6aJ4494hVOUHtf8b8v7 zu7wl4h6oktS9++UVYgnjlI5RMOr8z8u1PUdhjsgAUWFWmrn+zGFQG0CMQHp m1IBWwSMxPUWR1xcwPCFJjj0UI+hcJ3KwXvcMDeEwivoD/EjduxyYTOxYypf NpXXp9QQme8kvsjuP1QT3+yagQ6MWYvP/S+uODoY+Q+adcG9\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{319, 146}, ImageMargins->0], Cell[GraphicsData["CompressedBitmap", "\<\ eJztXVmvZUUV3twz3XOH5vZthqYHuolBcAoJMgQFkcE2cXruB2OCQKRV1CBP JA7PJAQ0kghNJL5gkAeHxKSjxPGBxGeJmhgnHn3iFxz3qlpfna/2XlW79jnn dveFu5O+p8/eVatWrVq1atVa367z2YeefOzRxx968tzDD53+5BMPfeOxcw9/ 8/SZrz9R3xpcUVVrH6mq6oenK/n/rP6v/plfd8sfvnNwY6U37nP/H83efPPN 2dmzZ92/M2fOzF599dXqA+7ZYPbGG2/M3nrrLfftVr0n3+W+fPt+k97a7Omn n64LyfXiiy/OTp48Wb2fiD311FPu2216T76D2Pc8sQeUrwsXLgS+ap7c3TX5 VlfT7+7ehvs7df04d+5cqCPaJCzIPf1/9RutwWXlU77XjAcZyL2333572q/4 ppdA/e24VpT2pW0pVBdwDEt35bvcFwL1/ZFK49Zbb0WxatKPxFGVGooLS1q0 JixTaxTuySWk6uYwgverEOV2PWYYdEdOWsPUrMer2nJl1x23MkjgCGX0/69r B7iYfEoxuYcmdGymixQfBlEI0zXz6ypJuQUFOaz3pCZ0bY10UvmuMAqiXNDT aWHdqdHuIZUT1XWX0FeNkc+BVpUmoefP+Z7e5T42nRww3iILUJNP6bhQe+WV V9wwDwzu0DNtUWjpVNqMOOsY0ernjs7EaYWUhV7KfJCrpl3TlZLrPEVdGR7T +vuaik2qChmQwKwXaQir9XdldezKJEkNm6ScKVrTMcAslWeQplw6o6E20ikM 36i4s+Oos1JOmqiFltayK13L6Ai0Ah0X2yKfXIbIZjWw3YUtV46FKl3K0Ad5 rAz1Z1ArjA9p6UdVUDC4uKQl0c6ZmzOyrEyCxYQlhQWTXg21CXmudHxP15zt dh2MTDGmBKvoL5SIqLo8k2a5P9pN7c+2adrlEvEI8+gQ6NWfSm/bDRnaF/NU QEvrbrm6NFSOjtBQcx71saZjKei4sKuYA7w0sEVV0XlyRyLzT70O0oc5kzId JHVttpTysGsHEqI6LdpQF+EByqrSC1op5aFqrJXOckAmIDhnYi67mbMgcxXH UOOezEhlVuU5Mi3kL3VkpMO6hvBcwKoFK6bV1twUmwQlaIpEFGesSteoGkQo 9XiopEXhur5f12oPw6SEU8t0jUOnWSPqZiBn+Yr1c2yQSVsqe51lekMtLWMJ Gy7SEGUYUnnQfZaUoWaGVMBdIqC66oQ0BDUHdK+pISLjmMu8Ngj3GCt4WOTD wPRLh2jNYvPD2qC+A4x7o7YrKo2IQvCCrnNmQ/nVrod/3nfwk4q9mEG+DzBM 5IfpoMd6IpdUqbnhccXyMkqSGbnvNqfj0GFcKoRBsolhcNz1fqfWzB0LIV6L AZsQmqnB0JERUz0f8TqI/wfNgK3Baqwz+EpVASFHmwKouuOoFj62PsKJUJB/ GLuGPuomYMCbgDA7LbuQ4Mw705vRKgHtUr8gyEu4lg3DrtHMSHsoZZlWo+6W VkWx2dzA363sNt0OrKxivlFdqsYmxLv52Gxh+Mghq15TPml5heuoW4pJ5Fip PqEX1aYKUvQNLg1WdadFszD5aTdgLfSTDCeQLblyapLGYUzYzas5s4ZjrA3B 5UOHsDuQDkGYhgt4QqXIHhCmprFZvUbuR2szuiYrHdqhFS4MGm+SMGi6yrlv 29obixHXnJ8EmI5S+AdahRdCISfV609EL9gZtgZpPU9mh7QOmnjMIHOd0dFI yOscEHFj0XC6jupQavgFlCM3EQ6BVJcy3kDMwlxRIxFELE2oGLXuhsmGtIF5 IO3Xn89Th7SjYWWXe1Da97q/I9PNWyd2Y3l3072ShIzpfp1B76je08CI+6YR qau0x1gCRRK8ecEAqCShq+zzXEP3sIZhHZHvEO4hEni8Ux8EYzObzX0oeH0S dRsvxqZ0GHG/55UE1hnanrGKYSW/UcfM8sZ2+5FCxzFx5RsHCeF8R0MyRV/C BgSKh9GW2erlNzI3KFgByRvyJRte0IdIWMKOeNXj3jxMAg8iFThp6j5He40c L79yf1uOTM+Y7VVKBYu2XHVbmELCIDbh7JxBoc+UV4fPriMdDJHIxdX7LXMU hylVXmFmtz3T2Gd0NN43C1vPvtSGwc7rlDiij6vqJfmzw6zG20Kww1vKbSqX G9I7VkzP/f1ZzKvQgZnhaA6M3ecKy91JYoee4R7r2SNGuQ8b5e4zyn3eKOcN SvVTKo6F9C69x9mEUzr+Rpy++phB43aDxr1GuS8Y5bw7WJ0nFaI4kNvdw4ir WmnJWWtp8l7jNBhuNpcNL6o6rl1EWbgdc3d/GNRfl7XtnixiN4DNZCMKjzxH nwQJ7al9CNV3wuqgJaB1FVAz0QHXAxs1EcJ1nQKykyJbGd25oUf7Vl5ns5On eI826a0QZbxNO/mwZbPLuj5qpWukiJUE5F0XplLT0ZdvpcmVnWTd1paKvULo NUahlH1oLuUYqonBlrcExVksSMAKe3HPLOltZOryvesMeglJWakoL/ykBbCE cLSQs3460eLWClGWqk8uJ8j30m0UCU/dhU+ptsFPxjwUPfPLX0maaRK2W0YS zOurSz4PVT1425+hbuWw0F2K1pVFcPuly0BT46lW3okdSmx+BtpgM61VkCuc S0knuJh4GQa0gxWM02ycv1kuU1iYFt2Icpk9x67K5x8x6doBo82FcpA8Ww53 DoyHmzTGvbIG3ko4ajYwxMjj4RoQlaaNtvJm0kMp5/fifniE3vLybhu5zVa+ d+l5MmVxhWK22IeR2Pd4VptC2YmcF4vbZlK6wDhYOqIm9zPGUNyv98oSprZX C84JczJUGTVD4mUpaJ8Tl7pCsiSB2i/vOw30ESuwImyoz4lUz9/VrURtadq7 ISajvWkYHoQRjOxmdg6XyXia5LGdmi+V67CZoE4b252kanTl1Ruk27Z2o3N0 dPRhfkuz6GuqnBZOQQeseH3kLYwYXWmfpuyyArdcShJ4z3HdKpkv7v8qeV48 DcHv0bROSGPcMrMRl+MWymJB9chY2Qe0pQSwwCvIyEJhmRn8tTw5y0G3FrIO uANSbFYkm5PJMVcTc1HTnVGIxxs9DUpCRsB7peOgK428fnpidchmZBrVBcSK dY7k4C6CgJiYjTHdi61XXn6jzJh4XtZbvJgynQSZli4v69ph9aLQdKHQLIPE yjPIk5koC0a/fX1PvrnezFVu6dmAPX9zdPQ7T4hFgTk+LZc1IFnEychCyWUN SG8ASw55MmDkSRjQbBOthE3arqxHYB65MKAN7I8hAxP7o9VXjP1J4JcWQAwx /CsWxSSkjVgJsQEYKgcc4Kzvu/GbaDibg6m9xJuACm1ERicjbY4TkXgwU0oH AbLB1rRApye2WCwpFw3WpCkJVxcRLPSzIUROg+/RxEr0k9N7yGSlQWdFiLAC c5UFTFkeabLK1VqlByyL0+fx/q0NsTJBZMMmiIwFhpTkVn/GdkoeW9KZZCFl x8r6hkQOicVd3lURQiOea8EnsACzWEdJ/7oG0urdIF9lu6xjhw0GO0YiRbkA cdfp7ffFptnlAZIpxb4B2sPhHzip2PCnkXkDRuZVa7oBYTxDAjCWRk3mwIK5 Z7GIoCEJ+N7xgh5aUD1M6HavB9xrc5ID0SujzlhLDaHmBjXdw9yg5ruX1v5u mgg5MhYpJbKM3j+oEukB97PcfqoCnEYPUCHMFKecric5NKB4ma1OR0eSjzEF uZ93GlxZUxtKxfhouTSw0SEuq+VhvsqN/bt/2uhLlNQbhri1ascnqEZfXOJa YV0Y1kXwkAg9Mc7xNN0DFHAZzOWhnuVYBrcTL6h7rcELtEfusSuvWA3OxvZl obTue5YQEVw07qbCiD6tj5DClJn7oI5dLzTlIUZTuquw+vF+rcEzYpzmKfd3 ZAIdD/cjv9WvOIwiI0lvNzi8QTmU+SvkhDRAPmvLN9mTxAf7FT9hdEjV5zV9 1IXPO639t2CZ9xo0VoDdcz1B1KABtHTPbqFy7roMzknod+Pb2vsu6a8aHXmv b/5bVPxyQUd6etXX3McBOrIDHVl84kMaHNn70IjV4yOX6sWyEEmUt2CPFwMi eS8r/AFEsrosIZJcd28hktaZJNcWcrYHEMmB0XTfY1P43pIQyXu8pL7oPlaC oTtAQh4gIT071UVFQjJtP3m6T15ZEOTWHwiZHq29BEK2xX2JgZB5/KllEvc3 GlKt68P6qAwud4B8dH8PkI+2XDtPEvLT5KqFUY8JsnijuOvgoIuMeLRcALwa vBzisVDQlwDtOM7CTEvN6b5CPKolfUSpdkDuDMzfAbrxHY1ubHt/qzjNaiUI x7RwF0U4Wm40K9DeIRwn1FrOtlx6hKMGhGEwshi6AzTjAZoxcwhaGsq4JMht WSwjINqlqsVb7kIsY6mA9xrImEBT7kMsY8MwJeBiwBjsT9ziMIhYrt5ArssF zmhi8/rDGRnkgEeYV+9COGPkytuIsSNabf9AF9cj6KKB/rKCCZcIttgHg1cK W7Qguziw9o13F2xR9ftR7X0C2gZuLj5E8ZTes+BmFx+aeK3RMhRnv0ETdeSB IMOcEQFfS8VzwLQd4uRS4xJP6WBYILLJEm2tGp941OAFKnThnYNPVCAPTrPh SISu5dXVOpaFMLYrtY+XHqdooeAOcIptEivAKaoa3adjjwCi1BKKTOmknkV7 /vz5sIXRY01vUcpdQDtvJltww48b1VeAv/Ovw2wjXBUUmhcShM6ls+j4243f GtDNZPpwx39QexR0nwObcCGD7cv7k8ndl/8xx8mj8eEjifhgg2CCd2eg6s7G vIcJJk5NnweA5cLQh0hCd+fhp/B4fMUYjxNGOes01Jc80x5fnT9M/BkiiWX9 cb3HeMdjRjnr967OU9PJw7DRKNv/x6kcbPMxo9xtRjlutOOQ6O80NCoHlUvj lPrA8nI/XxVHv3x3N6LNBjLuBioR74zDCJAhiFZT+FH4iSt41Uweyf/6u9Xr aY9eN8+nhOnzqUbp9TgaHbmUTR3HB0jXEHyyzpV+ksY7j1wYtZALDCnhsPvi gI5hE9AxNMjvLMlyAoNWTnbOpXo6a84MrMP+WVg/+W+Ey4ES+qxUGzWZRPfU 1rVkZXz99dej8AeMFyRZq4sX7qHWOBVCTqyxQWwAXLeBNgMG2kQ77UZYwsS1 +chw9Xt9VIZ1GOB7EtOz/OlA8+BwA4jTls5ybDOwp5QewnfsmNN6jceMqJNL 1zjuiebJqzlI0EqJe3FOs87OM888o5MpNRzjFk4kSuCvtxL4BSOATSwhTqI4 LBwdJjeXYByZsHqu+vkH7UAiyTjQXvY4t4o8MDPKYFBvADgs6rsllKZNPk1o RAcp5Ep44bwwh862QUdbzYR2wMww1qWFOTMkRS7UVsub5bwVkk+0EkMTuYof YkoHj6L1XMVeJREv0ME2gGCbM9pMLADhrICHlWB9wTMJPcxmNssVbgEySNt6 TE39d5ynlUOkuK2AlfIs4m/XgkCYqU1GNxkolpyEEpslft2haeSaqhWll+Nc nnVgVlIosJIqhEDfTGLacY4CzUokYToOmumRKEpQOpKvlcAi7OZrAfzRSGa7 jrt1UjJpG0EfCOxiQRQYbR2vjEW/HMa/OghZ+XtbrYWxI9eVSFTvqoZgjwBD 28jBMc+0P7K6Fy1/q8mfnFrwGZIAiV/Zgs1i5xIo7txef8tgHw5ELh2DLBf7 1qkcnuHw/lF7s7rEwvVLPUYUmPfGTnydP97FLN5hUIk6vLdh8BMrLodQC4dV 8PtpuXgKZygLQjR+dl3M2O6xPS3Ov2yGUDAjnnLhC6tz1q9Dqej+TmRXGCQM o3q5vXS+wA1LRF/We9z1k0a5jIj+RsUx/b+q9zj2edwol4mR/tl9lAXV0j+6 sqr3xq1Q5KgVinwz/OxX/NL4uv41wpShTzXvbOulWACogSbFvIIp5D7jh3JK +uwTmONoWwR+zgI8NWpZNvHWX+IR6n7TdJmXnE8ky7WifMgMWqEQbDDlUnuN VHsiqme9Ho3oNoUYgg/HHqP4kuk4cXenj2lpHkJWfSuUZiy0v3MfK3kptT2c e/mG7eHVMc4xtaXDwENszNGP0ndprbczrRgox0dg43iThxgVwhlKD+RZhiPV oWYEOB2+LfrBCL+xWOxlWSvCtkQEGGagIBi2ly8tHunFbtkLiv2iyVvN0Fvg L/FCYlNEZxOvuSUDwLQV2A7BVaHE+Tg0jr0F+YpmGJis6hppGYwqvcdljsOu 6icbZ7kgL3gz1vt1RuzNeke0LARcGnpb4L2bI/kquQhbRxAXp8gYQbEgfZJq yStIVogJE6oZTKNBar0iOJvNkVVWHRosirFmX9LqesELOP8FI2f94P7pV0cW eOWnf1g2EU9bNMrryfV+sSfxskk6IDtp5bQw0IwUpFhPMiqrjGffBCkUNcJM 3W/8tGJuVk/LArLpFxCSVU7lH1+ff4wjs8y3MOLTozEOHEnkuQxrBGN8AecY tgOhHaHMY9pe7pUL68WABeOaORz56cyzU5ln2P51wd4ZBhsFOKMIHSy2UNlO 9iAftjyuQ5XA91tA9MWjmh0I61P5xx1RTQ70RVHNasCLUVgN4LB4XWwzm4lv /oSKa2AgoIUXiXmWIrFPFpYrjXkieNeOeQ6idd7ir2fc82UdDxEZ9je6Za+Q 8wYaRj/92zc9Q6UXC3XcM0zK2hGHSdcjZ0FIcUa71mt+ma4gSvoj0k3kPZBN xIIEAwv/VUHIpWjN60lFVhhlBOe0Ha7w1iAWIrnOKlya1it3/9mYjFpG1a2Z s4QczIC9hVPqPO//ytcX2vxA8HjrGu4Qp/J7IX2/G7chdXQbF7wYbFvkwsgh wvVcXB0TTmYTuzMw2V9Stq2jHR29mzy9l2l0QG9ALMJe3u/+FgM1p/2KFx3A 2eewx707RLIU2ertbfVj1UNs3yAMgPSkusemb6bwXpZENCrcrw5ezeGI1apP DLRixcu0saEU6J67GnHiX/t+/pOkvVA08HAQIC7ekbBbZSEtlZTSmuRoVclT 36ygzZ7+pGs7Jt3s54X9f+6aSSYOJasO/UsflcXpEhC5MQ+fa7zjNCO5XG2R 8jTaaDYpLXIC2aU7tmm/HDC13RqSEhil6sy/tYVs2G9iItrgjFhH1eD4Mate I3hXdRzMtPpfD7Tic5fnqT6NQcrCDidNwTlKOFkkjfLbbNXLBMbCmcwX48yR zmN79vO5KI2hTQS3DqkgOnB3PX5BzTqlYMGDLhoxr707QuNPLKscCi8PjVvy V7f6Hl9xqQ5kUGn9R0WfCEHdTK2AK2TxFzgKYYHjA/7KfHYHgG7Se5y3ZXBl 3Orevpvup5IqZHFg5UYVuZHfC0eLFpLq+RL0Xzy/7tGOcmFlk1yBm1qF7Z9K uZnKuesyA5it4kZ1xf8BZHTPOQ==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{570, 152}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.4148176307557583`*^9, 3.414817647815032*^9}, { 3.414818125434867*^9, 3.4148181260922194`*^9}}], Cell["References", "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}, { 3.414468718023213*^9, 3.414468719962428*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzdXM2OXUcRPrl/c++dGZuJ86cQGxMiJSJIQFACT+BsSDYRkhErK0KKFwiU ZGWJF8iaVVbe+g28ZeUnCAu2XsA2T3A51V1f9Vd1qs/ciQEpPtLM3NM/9V/V 1V1956N7X372xz/d+/L+p/duf/j5vb98dv/TL27f+fPnY9PyhWF44V/DMLxz e5DPh/Gj/irPv+WXvnzHzzflz7LAXB4ePXp00Gf4ffl9cnj69Onh7t27B8V8 eO+99w4PHjw4fPvtt8P7Zcy6jEG//EhfgfJuRXKr/ClYDk+ePClvf1D4N2/e PHz99dcFhjzSL/BHPMMHOk/alOkK92d9uHttE5hCt7ytkrYPFT/NLY/QIXIY 6Rp+PgOLafpY24QX0PHPSuKuyXdV+CI5LRTgV199VZpk+uPHj9EsWDF6/LxQ YcvrnTt3rGsEqkSdFOUoocaMMmiET9uaAoVxVfCwOKJPGFKqy5hx7Iih4hE6 ZLy81fHbwzfffOPolzGjsYDWVZHTCaYV1DxUwG8VPEBVy62/YUOVxNomJMoz kj+stE1gQU/rpom1U5DSZvyQbOv4MjOxfrGcBVEkAhoKEvl9VjhiBQUOo+Kq jjZmcEF2sBYmffxcqT6LRlSAi8ShObi0aHBEWiW5sS5VaplWbLCyBUhBgBMq IFcBJ1jIyoc5CoUapg48m3ecRKeB3kUs1azBSnA6DFyo9mAfeEYSBvQRm4iD 2rd1fQl7S+WcvABg1FwvUiFnbN2/f9/a+O/YXqWvngUypV90LHi1fam2F4XR M4WOQ2Z6/KJwqnF37eKpmuwklMhfDRnad2bz4NcQCIcJ6RNTMPteFtmIzMwr 1eVjuOY26AZRCz8jaCN1ro+jr1qlRQmhRWhq9DTPlT5hQ/pHWjCFVxJGoats +Svo993xW4wpUkNMkTYZOyoKfgvVNinsJwsgQImwBb1IbTT2TOAITRGEUriY 78bik/GaqbJSsOuJk4kf54uj7Qy2cT21snGs+PWJuZD0A5634N2ElQzessO2 0rbQZYxJAzuEskI5Tf0CyzENL8s5qEz8rIxF+whLpb/N/HVK7SvHCLK0S3SA YqSPV/gul5nbnDlqGCVzQhxyfoTh+tfQEAhtW0EghfJRqJnREiULXWCCscz5 csL2VYJmFENdoKbKkwWJJT1SCC9iqk60bWoLvg1BUsBihdDVw0ib6wPXulAV srdKAeih1I+8sdp9ZJs1HufsutI/dSIKuiwqFx6wFq0T3ZPlXet0Hxfu4NAz jLj3poTdnMAmzj/nNmojlcgK/egQx/N7IU7fYZ5MitiCOI3ELbGHMaDEEEcY impkmLTLu+dyxisWMu2y4Obo3B8jMnlfazYE309YUhOf14KXuE8lk+iVBS94 NqWQlplKWwelfNwwzCxeZWwl8YojYOPGg1wlpPdsR+ftTIlr+4StgsYRcxXh FJ+Tvrp2rU0g0iVDJG+OoQgPbK2FoulCBK+DN9IcEVpNmjeGNjAIZuYCE/fp 516u9V+MTSdznJF3xaiUyC7466bnDwAlsqLTJzfcG1hXApv57iwmYTckyY1a /ZyzIUGVoylsERNh6jLSjihaJN9mnjOlsiuuagRnDkrUWcLUVYJSJf74NKpS fN3tOpCR8x4uY1q1noaOfts6YzGLUCDBbzWvFqGElbCpynZCaGOVr5I2LLIC ik1H3rE50z47U0Gf/JSMvHGhR0ma1DWzwaKlSfxVd5qlb1WI2JgS8biQcW47 NAhJPmOjEPKrgkP0fczWUx6BNX7ed4Yzt5QRZWpGNptxm+kuJlNBoEZtPRGS 8LhxnMPqLcSdFxA4kcG+Wrc8PU7MYtk6e0mqkoPtJVPDQ1UXfVfeFApBGaku k2tco7fOaXjv6cjrCgtnAogg0zOBdcbNJO0KgmQhuwgHCgGnL5YbZt1Cmy4D k1OqyHVH6bP5V8afi24nFvyGwZ+b1r1pZQRk1rfKOEwX89qB5pK1YXaHLPyA SBkSs2FjXAKkbvr5CDV0KYVruDdzoZGsLdPgEodb8oyCXDYbXrsSFcoE2WEZ dvzpIXU9QuVzUPmLHM7O0NaTeMjFBjpxtZicnfKWKFWngMFWVsmy+hO39YvM NtVUR3AliSBBOHkQAliputm5IoUsciAJTlmjU7OqAEZ1vHJwjhKiP5EX+2/p 1tL00VCcGAoc4kB/ciwLiVIF0/ZJCHF4wlHWQjng4qeV4S6R39bxDcefaGEN /gyS1I7i1iSKNzq5PKJ6yAioREZX2zuu3N6x5BrSvHc71MwalEvnlRlrLox5 qmK2xG0IHocSh/04s//Q9oa2cQDYaBvtE4eLZBzasGGUtxeTuTtllTIHFNKM R6bpBwk/F0nbKsGfjYs4mEeE/0PJzqdzX034znRwlugKgRQlYR2fZSuYzmKr RGGnX42WAsLwY51DOYKRxm2vk5hgyDjepA2lsr9ya834A41qtd9pmafvdXpY yk4Tin6agHw7CFoM4Z2E8gs1plhObga+thBXBThQFPYSPE3YUKnjTgNWu6h3 tP01afsd2Rbs8h8VbMF7hXsnf1fEEj2oov2+Nodw+Yt8NOwQihU1jHR9nI/+ SJtRyNd9QJXV8C7xCzH+LahO3nAnhY38l8k4+CF2G/L2UTLuN4QX416icZBz tUINOdctsUQUlqESmbkN4QObHumvibQsITsTsG4sbZ48yNUWZRlpY7mugw0w bkrwJQAZq0KuzedWvZXmuMsDeEgGxeW18h5AlnlBvW2vtXJJ0iiRyvB1lwrF 2fIwFuzGlWoV2t6dUokAROA4pAa8UShY4BOmB1xhiEwRCJX7eiL3Rsoqoo1T SK06pfVNOTs1zoQckAQOg4loxKhVGhK0mUNOw5SldrYnfae2JcDT00gzza2D l5h7Ze/iUmsHGmGZz9IIvZ3skeWr+LaObMDG4YgZxEsOFd1D6pIAp0YFkaVr m/Lz1EGgDCgSCu6ZdM9B7Qy5ZpSkI1vyeUVAGxLF6giHQ9yqadXQVRrzULVk jnEQLR2biZHa9vMKtjHnFv5SJApG7Ow4qkjs67mx+NNodo57eeQdZd6F3kyK 5jqSx8rbTpQXkPAhCU46dRnkW55YSaty3uQ2c0ZIEusLxECruDuZFhbpNieX NNxYFhtEoZ9xMI5EPIKUv7ipxaTwhqFKf+fAy0PJvRkUMt9hGIIrbq2iGtm0 Q7lDWTZhCJo24hCU73NgZu+CzByX7cD0YGmbeJerUbXzL4Bq+/hVRJsdmXmK puBawWFfOOPjOqo0W3A20e5YtD3rmdxny6wF2wMSSp12y6mgZ3zPYtAcUoQM h37JocDKIFTnsKklqWpCiaUMWIxX36mdF2SUgPoW7Cr6CN+518pcQVWJZojb mfINR1hmonOaYgPhugFn6ZkTosZ5hNqU6dcnqoMQPvnkk2c2jYlYliYWJveY YuHzY+zYYfe5nFo6R2GvwH1XgYH0FZGixn/5EndjssRhNygYuNg2JyQRiHCH 9GsuhjI+NW0LyehTeLhKgCbWoV6x073xNJ4yGr+snU/Ggj3Umpg1kAgPVdJI 0f7iR7Avy2B5HgcWtI84cNOo5y2qDSzkxzvVyvoU21oxIaNnR6HQdfW1al71 MF6YVU+udfyLDtYzmCUf/frgunenzjAFrBwEOhqoUgDIU6NYstZmr5tYHWBn 0GUIVoK7eukfLpahjPbkMpqtEzvEgnL6yOcZzYaWjeXdMYI3R83s6eHDhxQb rl1Zqcro7spW/72xxe2l5E7XixhFmxZ2Xa+ejl05MYxzLl0vdpP1AvsMXPFr VPfvTLqLA8++XDhwG2frQ02wRCa9aHbsSoHSG8ZlK0Xd7MvOem9z2ToQXAkX qI6G7ZhaGVP6HUeIIETsTrzH4QE2xZmg+0q4iCtQlx3px0XtCOt/vZg00S9Z 9ANfJgEsHHaQzVaw1zKUrA5jHYJX1IwZB1rQLBeo5bNgLPXrKWFsj0537dSk RwjJ0nlCd725bphQf8YVDdQeM1X72y3NLi9Zc8QHUbcb0WVrju0D1zMxZT3h qR7jCddrZ3ue0GksCvCjNjr8Xz35+r5b8XfZzcSgzV8CSeJEWu1FKEO2Is/I ZWeFaqfnO6tbZbrREKrQX3UGyGdScdvH+y4WKm8d6OqGXqKoysChB2DyWXh2 aidjR66xs8kO7OJ3gE5ISahJ6jGqCv7C2QHDpKqspYXRboAHFxDRB0XOsaan yiqO16yQDBicakt4iKLHkbM89IUWm8Mlh2TNmmMLY+K9Zy/Wt9M1K1pNZCOz knh+EVVwmdXRXQCI2EWZQJOdIGADIQ/En+DfKCgc6AtI76IvT1ydb8H2tJah J/G75Ur6xKJ0oWjHc2+Z4fNXNTCsp+U5w5zTTrzwyftE3ZrVtH3lfK4T9X3U 2U0YZb0q5nGsrGxns/aQ4MiyikQwa7XsbB17ji27v4hdTCyby58gQdhH7E2C h8siWMHyIAU6SNFq7Kw72pm9lt/8qI61Iuav/SM3xJcoXYVsxIBbFpBMtpKV 2xV2+XplY3Vl40sIXI5ulxBauoksQ5QzSoUvXhBEswOuJ45TMTyqHXuvEKS1 CihCWbkq+FP5FxS1eimqiJddkfoIdvwvAq7b5kzuURi1ameQIdoRLxNQTmU0 JaqvjKPTXHBV6+ajvGH4+kU0FGizy/XVAV5yQs2sBp+Zu6xCrTV9Ev5ucgUh sbjBTTjehDemvlBkXmiKQ7jxRQK567sxr+VAPuASy6n9CyI8PXW1L/dfM/Tg i9UFNpDdYj68S/M5dWZzBc7pmoZfc7lNJGtGLUUUSIMFD8KteiSWUVwPjlah ZFwabwKXunM5s5sCmVRj/CkGW6+bM4rE7pfJLYql2jWfbDzXdh0WMQXvMgum jy56g4xxrKTj9U5FCB1Whcs0zNGTVTTOq4Y0s5b5thsJJ1iOcSmb94LXtG0a 0fwyAbdiO9Y55woCntDI8GDf6qLyh7ZvUBvIvKltSJxaRrDkS/x2MxhXKcSA fq2YmB2KWa8k6H6VtGX/xiz7XuJP/h8Ka7fZMV4kkh2BI7uANzB8KB/tLEHW 0stEN+g4S8Ydq81bSlPcbghNwIXvt8vbB4kG5dEwk2kQJX4meZ+0zZEXVdKC S6rxnSI58tLvhTIF3w8LD/RA3frNhPqv6HCySLcp0vu0G/fNFELwpiKgpgGS FMXgS7OnyTjES2EN4HXO8MOE8B+R0XKGJ9Hyt0Q9YBn1Sw6LduOaQW8TkvdJ W0bWLR3NKpCH7kRyXw1gV75Ef8zn4YX/APgFuOc=\ \>"], "Graphics", ImageSize->{487, 40}, ImageMargins->0]], "Input", CellChangeTimes->{{3.414818116168235*^9, 3.414818117307931*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"kr1", "=", RowBox[{"10", "^", "logkr1"}]}], ";", RowBox[{"ko3", "=", RowBox[{"10", "^", "logko3"}]}], ";", RowBox[{"kr2", "=", RowBox[{"10", "^", "logkr2"}]}], ";", RowBox[{"Ko3V", "=", RowBox[{"Ko3", "[", "Vc", "]"}]}], ";", RowBox[{"Kr1V", "=", RowBox[{"Kr1", "[", "Vc", "]"}]}], ";", RowBox[{"Kr2V", "=", RowBox[{"Kr2", "[", "Vc", "]"}]}], ";", "ar1", ";", "ar2", ";", "ao3", ";", "n3", ";", RowBox[{"Ecor", "=", FractionBox[ RowBox[{"Log", "[", FractionBox[ RowBox[{"2", " ", "kr1"}], RowBox[{"ko3", " ", "n3"}]], "]"}], RowBox[{"f", " ", RowBox[{"(", RowBox[{"ar1", "+", RowBox[{"ao3", " ", "n3"}]}], ")"}]}]]}], ";", RowBox[{"Vmin", "=", RowBox[{"Ecor", "-", "0.2"}]}], ";", RowBox[{"Vmax", "=", RowBox[{"Ecor", "+", "0.2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Rct", "=", FractionBox[ RowBox[{"Kr1V", "+", "Kr2V"}], RowBox[{"f", " ", "F", " ", "Kr2V", " ", RowBox[{"(", RowBox[{ RowBox[{"ar1", " ", "Kr1V"}], "+", RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ao3", " ", "Ko3V", " ", SuperscriptBox["n3", "2"]}]}], ")"}], " ", "\[CapitalGamma]"}]]}], ";", RowBox[{"Rp", "=", RowBox[{"Rct", RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"ar1", "-", "ar2"}], ")"}], " ", "Kr1V", " ", RowBox[{"(", RowBox[{"Kr1V", "-", "Kr2V", "-", RowBox[{"Ko3V", " ", "n3"}]}], ")"}]}], RowBox[{ RowBox[{"ao3", " ", "Ko3V", " ", RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V"}], ")"}], " ", SuperscriptBox["n3", "2"]}], "+", RowBox[{"ar2", " ", "Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Kr1V"}], "-", RowBox[{"Ko3V", " ", "n3"}]}], ")"}]}], "+", RowBox[{"ar1", " ", "Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Kr2V"}], "+", RowBox[{"Ko3V", " ", "n3"}]}], ")"}]}]}]]}], ")"}]}]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rct", " ", "Cdl"}], ")"}]}], ",", RowBox[{"1", "/", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ar1", " ", "Kr1V"}], "+", RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ao3", " ", "Ko3V", " ", SuperscriptBox["n3", "2"]}]}], ")"}], " "}], RowBox[{ RowBox[{"ao3", " ", "Ko3V", " ", RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V"}], ")"}], " ", SuperscriptBox["n3", "2"]}], "+", RowBox[{"ar2", " ", "Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Kr1V"}], "-", RowBox[{"Ko3V", " ", "n3"}]}], ")"}]}], "+", RowBox[{"ar1", " ", "Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Kr2V"}], "+", RowBox[{"Ko3V", " ", "n3"}]}], ")"}]}]}]]}]}], "}"}]}], ";", "\[IndentingNewLine]", 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[{"ZX1", "=", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"ar1", "-", "ar2"}], ")"}], " ", "Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Kr1V"}], "+", RowBox[{"Ko3V", " ", "n3"}]}], ")"}], " ", "Rct"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ar1", "-", "ar2"}], ")"}], " ", "Ko3V", " ", "Kr1V", " ", "n3"}], "+", RowBox[{"ao3", " ", "Ko3V", " ", SuperscriptBox["n3", "2"], " ", RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V", "+", "p"}], ")"}]}], "+", RowBox[{"Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " ", "p"}]}], ")"}]}]}]]}]}], ";", "\[IndentingNewLine]", RowBox[{"ZX1Et", "=", RowBox[{"ZX1", "/", "RpVcpROhm"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "ZH", " ", "*)"}], " ", RowBox[{"ZX2", "=", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "ar1"}], "+", "ar2"}], ")"}], " ", "Kr1V", " ", "Kr2V", " ", "Rct"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ar1", "-", "ar2"}], ")"}], " ", "Ko3V", " ", "Kr1V", " ", "n3"}], "+", RowBox[{"ao3", " ", "Ko3V", " ", SuperscriptBox["n3", "2"], " ", RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V", "+", "p"}], ")"}]}], "+", RowBox[{"Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " ", "p"}]}], ")"}]}]}]]}], ";", RowBox[{"ZX2Et", "=", RowBox[{"ZX2", "/", "RpVcpROhm"}]}], ";", RowBox[{"ZqEt", "=", RowBox[{"ZX1Et", "+", "ZX2Et"}]}], ";", RowBox[{"Zf", "=", RowBox[{"Rct", "+", "ZX1", "+", "ZX2"}]}], ";", 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[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], " ", RowBox[{"if", "[", "VSta", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"AbsoluteThickness", "[", "2", "]"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Vc", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "Vc", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], RowBox[{"if", "[", "Vc", "]"}]}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"\[Theta]s", "[", "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[{"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[{"\[Theta]s", "[", "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"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 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[\(H\), \ \(+\)]\) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) H,s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(H\), \ \(+\)]\) + H,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \!\(\*SubscriptBox[\(H\), \(2\ \)]\) + s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n3\)\(+\)\(\\\ \)\)]\)+ \!\(\*SubscriptBox[\(n\), \(3\)]\) \ \!\(\*SuperscriptBox[\(e\), \(-\)]\) \>\"", ",", "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[{"-", "0.5"}], ",", "0.5", ",", 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[{ "logko3", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "0.5"}], ",", "0.5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao3", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "n3", ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(n\), \(3\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", 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", ",", "Ecor", ",", "\"\\""}], "}"}], ",", "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[{"Ko3", "[", "V_", "]"}], ":=", RowBox[{"ko3", " ", RowBox[{"Exp", "[", RowBox[{"ao3", " ", "n3", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr2", "[", "V_", "]"}], ":=", RowBox[{"kr2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "ar2"}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr1", "[", "V_", "]"}], ":=", RowBox[{"kr1", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "ar1"}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"\[Theta]s", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{"Kr2", "[", "V", "]"}], RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{"Kr2", "[", "V", "]"}]}]]}], ";", RowBox[{ RowBox[{"\[Theta]A", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{"Kr1", "[", "V", "]"}], RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{"Kr2", "[", "V", "]"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{"F", " ", "\[CapitalGamma]", " ", RowBox[{"(", RowBox[{ RowBox[{"n3", " ", RowBox[{"Ko3", "[", "V", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Kr1", "[", "V", "]"}]}]}], ")"}], " ", RowBox[{"Kr2", "[", "V", "]"}]}], RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{"Kr2", "[", "V", "]"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]", "=", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "9"}]}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"Farad", "=", RowBox[{"F", "=", "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.4116192816018763`*^9, 3.411619339834632*^9}, {3.411619413314637*^9, 3.411619448368416*^9}, { 3.411619752746737*^9, 3.411619795612556*^9}, {3.41162470234809*^9, 3.411624736635551*^9}, {3.411624904097722*^9, 3.411625059463578*^9}, { 3.411625222937063*^9, 3.411625252070558*^9}, {3.4116253519441767`*^9, 3.411625354696018*^9}, 3.4116254073443003`*^9, {3.411625462273492*^9, 3.411625467493494*^9}, 3.4116255245670347`*^9, 3.4116258434899683`*^9, { 3.4116259610686073`*^9, 3.4116259614803467`*^9}, 3.4116260456593437`*^9, { 3.411626134634111*^9, 3.411626181226858*^9}, {3.411626259853423*^9, 3.411626262611298*^9}, {3.4116263063364277`*^9, 3.411626313575931*^9}, { 3.411626359391667*^9, 3.411626397571578*^9}, {3.4116488829527493`*^9, 3.4116489392660303`*^9}, {3.4116489877899513`*^9, 3.411648988493313*^9}, { 3.411649021440947*^9, 3.4116490223505783`*^9}, {3.411649093240531*^9, 3.4116491100905657`*^9}, {3.4116491688952627`*^9, 3.411649192739808*^9}, { 3.411649269399476*^9, 3.411649282433028*^9}, {3.41164934702204*^9, 3.4116493517061996`*^9}, {3.411649398093581*^9, 3.41164941206203*^9}, { 3.411649443780038*^9, 3.4116494702351427`*^9}, 3.411649502690414*^9, { 3.411649539656014*^9, 3.411649587258717*^9}, {3.411649638985474*^9, 3.411649686708232*^9}, {3.4116497199845247`*^9, 3.411649777458149*^9}, { 3.411649890507163*^9, 3.411649894917595*^9}, {3.411717363458981*^9, 3.411717373436297*^9}, {3.4117174201758537`*^9, 3.411717509134164*^9}, { 3.411717548250877*^9, 3.411717548500739*^9}, {3.411717810585637*^9, 3.411717811532948*^9}, 3.411717844412294*^9, {3.411718025914929*^9, 3.411718113220469*^9}, {3.41171817899249*^9, 3.411718182853489*^9}, { 3.411718241006587*^9, 3.411718242409217*^9}, {3.411718302109727*^9, 3.411718313104918*^9}, {3.411718401015092*^9, 3.411718403314348*^9}, 3.411718485467712*^9, 3.411718744290296*^9, {3.411718980187943*^9, 3.411718980910367*^9}, {3.411719083269211*^9, 3.411719099545342*^9}, { 3.411719139750325*^9, 3.4117191402269382`*^9}, 3.411719323432873*^9, { 3.4117194984985857`*^9, 3.411719499297242*^9}, {3.411719596038378*^9, 3.4117196197053337`*^9}, {3.411719768476164*^9, 3.4117197763958693`*^9}, 3.411719873007226*^9, {3.411720088465229*^9, 3.411720112415822*^9}, 3.4117201453387737`*^9, {3.4123139478382273`*^9, 3.412314059570685*^9}, 3.412314292659281*^9, 3.412314369897772*^9, {3.412314442261671*^9, 3.412314497554977*^9}, {3.412314643792241*^9, 3.4123147200704403`*^9}, { 3.4123149787158327`*^9, 3.412314981356669*^9}, {3.412315086257893*^9, 3.412315096425954*^9}, {3.412315177217699*^9, 3.412315180255991*^9}, { 3.4123165407447863`*^9, 3.412316629761347*^9}, {3.414468811173629*^9, 3.414468815657874*^9}, {3.414469156622757*^9, 3.41446921865138*^9}, { 3.41446928754748*^9, 3.414469290613446*^9}, {3.414469332839694*^9, 3.4144693338100758`*^9}, {3.414469366018797*^9, 3.414469371528759*^9}, { 3.4145443164713163`*^9, 3.4145443536615143`*^9}, {3.414544707413666*^9, 3.414544739170567*^9}, 3.414544829235331*^9, {3.4145455810327797`*^9, 3.414545583577067*^9}, {3.414809744311099*^9, 3.414809757563971*^9}, { 3.4148141297764177`*^9, 3.414814156758667*^9}, {3.414814437205695*^9, 3.414814466386633*^9}, {3.41481450383751*^9, 3.414814506596985*^9}, { 3.414814659786784*^9, 3.4148146823055973`*^9}, {3.415511318210676*^9, 3.4155113188215437`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao3$$ = 0.5, $CellContext`ar1$$ = 0.7, $CellContext`ar2$$ = 0.3, $CellContext`logCdl$$ = -5, $CellContext`logko3$$ = 0, $CellContext`logkr1$$ = 0, $CellContext`logkr2$$ = 0, $CellContext`logwc$$ = -1.2423263173761812`, $CellContext`n3$$ = 1, $CellContext`ROhm$$ = 0, $CellContext`Vc$$ = 0.014848911323049383`, $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[\(H\), \ \(+\)]\) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) H,s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " \!\(\*SuperscriptBox[\(H\), \(+\)]\) \ + H,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \!\(\*SubscriptBox[\(H\), \(2\ \)]\) + s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n3\)\(+\)\(\\ \)\)]\)+ \!\(\*SubscriptBox[\(n\), \(3\)]\) \ \!\(\*SuperscriptBox[\(e\), \(-\)]\) ", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logkr1$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(r1\)]\)\!\(\*SuperscriptBox[\(H\), \ \(+*\)]\)/\!\(\*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[\(H\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -0.5, 0.5}, {{ Hold[$CellContext`ar2$$], 0.3, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`logko3$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(o3\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -0.5, 0.5}, {{ Hold[$CellContext`ao3$$], 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`n3$$], 1, "\!\(\*SubscriptBox[\(n\), \(3\)]\)"}, {1, 2}}, {{ 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.014848911323049383`, "E/V"}, -0.18515108867695063`, 0.2148489113230494}, {{ Hold[$CellContext`logwc$$], -1.2423263173761812`, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -1.2423263173761812`, 3.9460886318758224`}, {{ 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$4137$$ = 0, $CellContext`ar1$4138$$ = 0, $CellContext`logkr2$4139$$ = 0, $CellContext`ar2$4140$$ = 0, $CellContext`logko3$4141$$ = 0, $CellContext`ao3$4142$$ = 0, $CellContext`n3$4143$$ = False, $CellContext`logCdl$4144$$ = 0, $CellContext`ROhm$4145$$ = 0, $CellContext`Vc$4146$$ = 0, $CellContext`logwc$4147$$ = 0, $CellContext`wc1$4148$$ = False, $CellContext`wc2$4149$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao3$$ = 0.5, $CellContext`ar1$$ = 0.7, $CellContext`ar2$$ = 0.3, $CellContext`logCdl$$ = -5, $CellContext`logko3$$ = 0, $CellContext`logkr1$$ = 0, $CellContext`logkr2$$ = 0, $CellContext`logwc$$ = -1.2423263173761812`, $CellContext`n3$$ = 1, $CellContext`ROhm$$ = 0, $CellContext`Vc$$ = 0.014848911323049383`, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False}, "ControllerVariables" :> { Hold[$CellContext`logkr1$$, $CellContext`logkr1$4137$$, 0], Hold[$CellContext`ar1$$, $CellContext`ar1$4138$$, 0], Hold[$CellContext`logkr2$$, $CellContext`logkr2$4139$$, 0], Hold[$CellContext`ar2$$, $CellContext`ar2$4140$$, 0], Hold[$CellContext`logko3$$, $CellContext`logko3$4141$$, 0], Hold[$CellContext`ao3$$, $CellContext`ao3$4142$$, 0], Hold[$CellContext`n3$$, $CellContext`n3$4143$$, False], Hold[$CellContext`logCdl$$, $CellContext`logCdl$4144$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$4145$$, 0], Hold[$CellContext`Vc$$, $CellContext`Vc$4146$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$4147$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$4148$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$4149$$, 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`ko3 = 10^$CellContext`logko3$$; $CellContext`kr2 = 10^$CellContext`logkr2$$; $CellContext`Ko3V = \ $CellContext`Ko3[$CellContext`Vc$$]; $CellContext`Kr1V = \ $CellContext`Kr1[$CellContext`Vc$$]; $CellContext`Kr2V = \ $CellContext`Kr2[$CellContext`Vc$$]; $CellContext`ar1$$; $CellContext`ar2$$; \ $CellContext`ao3$$; $CellContext`n3$$; $CellContext`Ecor = Log[2 $CellContext`kr1/($CellContext`ko3 \ $CellContext`n3$$)]/($CellContext`f ($CellContext`ar1$$ + $CellContext`ao3$$ \ $CellContext`n3$$)); $CellContext`Vmin = $CellContext`Ecor - 0.2; $CellContext`Vmax = $CellContext`Ecor + 0.2; $CellContext`Rct = ($CellContext`Kr1V + \ $CellContext`Kr2V)/($CellContext`f $CellContext`F $CellContext`Kr2V \ ($CellContext`ar1$$ $CellContext`Kr1V + $CellContext`ar2$$ $CellContext`Kr1V + \ $CellContext`ao3$$ $CellContext`Ko3V $CellContext`n3$$^2) $CellContext`\ \[CapitalGamma]); $CellContext`Rp = $CellContext`Rct ( 1 + ($CellContext`ar1$$ - $CellContext`ar2$$) $CellContext`Kr1V \ ($CellContext`Kr1V - $CellContext`Kr2V - $CellContext`Ko3V \ $CellContext`n3$$)/($CellContext`ao3$$ $CellContext`Ko3V ($CellContext`Kr1V + \ $CellContext`Kr2V) $CellContext`n3$$^2 + $CellContext`ar2$$ $CellContext`Kr1V \ (2 $CellContext`Kr1V - $CellContext`Ko3V $CellContext`n3$$) + \ $CellContext`ar1$$ $CellContext`Kr1V ( 2 $CellContext`Kr2V + $CellContext`Ko3V $CellContext`n3$$))); \ $CellContext`lw = { 1/($CellContext`Rct $CellContext`Cdl), 1/(($CellContext`ar1$$ $CellContext`Kr1V + $CellContext`ar2$$ \ $CellContext`Kr1V + $CellContext`ao3$$ $CellContext`Ko3V \ $CellContext`n3$$^2)/($CellContext`ao3$$ $CellContext`Ko3V ($CellContext`Kr1V + \ $CellContext`Kr2V) $CellContext`n3$$^2 + $CellContext`ar2$$ $CellContext`Kr1V \ (2 $CellContext`Kr1V - $CellContext`Ko3V $CellContext`n3$$) + \ $CellContext`ar1$$ $CellContext`Kr1V ( 2 $CellContext`Kr2V + $CellContext`Ko3V $CellContext`n3$$)))}; \ $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`ZX1 = -(($CellContext`ar1$$ - $CellContext`ar2$$) \ $CellContext`Kr1V (-$CellContext`Kr1V + $CellContext`Ko3V $CellContext`n3$$) \ $CellContext`Rct/(($CellContext`ar1$$ - $CellContext`ar2$$) $CellContext`Ko3V \ $CellContext`Kr1V $CellContext`n3$$ + $CellContext`ao3$$ $CellContext`Ko3V \ $CellContext`n3$$^2 ($CellContext`Kr1V + $CellContext`Kr2V + $CellContext`p) + \ $CellContext`Kr1V ( 2 ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V) + ($CellContext`ar1$$ + $CellContext`ar2$$) \ $CellContext`p))); $CellContext`ZX1Et = \ $CellContext`ZX1/$CellContext`RpVcpROhm; $CellContext`ZX2 = \ (-$CellContext`ar1$$ + $CellContext`ar2$$) $CellContext`Kr1V \ $CellContext`Kr2V $CellContext`Rct/(($CellContext`ar1$$ - $CellContext`ar2$$) \ $CellContext`Ko3V $CellContext`Kr1V $CellContext`n3$$ + $CellContext`ao3$$ \ $CellContext`Ko3V $CellContext`n3$$^2 ($CellContext`Kr1V + $CellContext`Kr2V + \ $CellContext`p) + $CellContext`Kr1V ( 2 ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V) + ($CellContext`ar1$$ + $CellContext`ar2$$) \ $CellContext`p)); $CellContext`ZX2Et = \ $CellContext`ZX2/$CellContext`RpVcpROhm; $CellContext`ZqEt = \ $CellContext`ZX1Et + $CellContext`ZX2Et; $CellContext`Zf = $CellContext`Rct + \ $CellContext`ZX1 + $CellContext`ZX2; $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], 10^3 $CellContext`if[$CellContext`VSta]}}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, PlotStyle -> { AbsoluteThickness[2]}, Frame -> True, AxesOrigin -> {$CellContext`Vmin, 0}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`Vc$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`Vc$$], 10^3 $CellContext`if[$CellContext`Vc$$]}]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}], AspectRatio -> 1/GoldenRatio, BaseStyle -> $CellContext`monStyle, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], $CellContext`\[Theta]s[$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, 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$$], $CellContext`\[Theta]s[$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}, {0, 1}}, 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[\(H\), \(+\)]\ \) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) H,s", Bold, Medium], Style[ " \!\(\*SuperscriptBox[\(H\), \(+\)]\) \ + H,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \!\(\*SubscriptBox[\(H\), \(2\ \)]\) + s", Bold, Medium], Style[ " M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n3\)\(+\)\(\\ \)\)]\)+ \!\(\*SubscriptBox[\(n\), \(3\)]\) \ \!\(\*SuperscriptBox[\(e\), \(-\)]\) ", Bold, Medium], Delimiter, {{$CellContext`logkr1$$, 0, "log(\!\(\*SubscriptBox[\(k\), \(r1\)]\)\!\(\*SuperscriptBox[\(H\), \ \(+*\)]\)/\!\(\*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[\(H\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -0.5, 0.5, Appearance -> "Labeled"}, {{$CellContext`ar2$$, 0.3, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`logko3$$, 0, "log(\!\(\*SubscriptBox[\(k\), \ \(o3\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -0.5, 0.5, Appearance -> "Labeled"}, {{$CellContext`ao3$$, 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`n3$$, 1, "\!\(\*SubscriptBox[\(n\), \(3\)]\)"}, {1, 2}}, {{$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.014848911323049383`, "E/V"}, -0.18515108867695063`, 0.2148489113230494, Appearance -> "Labeled"}, {{$CellContext`logwc$$, -1.2423263173761812`,