(* 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[ 141306, 2671] NotebookOptionsPosition[ 123082, 2352] NotebookOutlinePosition[ 140781, 2657] CellTagsIndexPosition[ 140738, 2654] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Volmer-Tafel (V-T) 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.411012239491242*^9, 3.411012240348982*^9}, {3.411898891580077*^9, 3.411898893833694*^9}, { 3.4119625000106583`*^9, 3.411962517869783*^9}}, TextAlignment->Center], Cell["Reaction", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.410151720218337*^9, 3.41015172165478*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJy9Ws1uHEUQnszseNa7dkLAiW0RJyaInxwQxBCEhXzg4iAhTnAICRcrQooP UVDIBSN4gDwByplL3iB5gjyBn8BPkCcw/XXX11s9W/MXL4y03p2e7qqvvqqu 7pr29wdPHvzy8ODJ4f2D7duPD359cHj/t+39R49dU3Euy7KX7vPDdobfp+6n /HmZnZ6e4qH/uuq/iuzp06fZ69ev/d3f6aOTk5Ps6OjI3/0sbc+ePfO/8NkN 3a/JI3bF55607ezs1Luv+q8lr3hrawvQsv39fa/NPcmz58+fZ1PfCU137txJ uhEAMEM6nuUiEn0hFkjwOTw8hIwb/vE40Yihr1690mpyBQyacKE7pLouVwyT Jv7vyEviEPc89yhHvitxuy6V7116fYCGD2BC4WYg57wogXV4jLtc2iAFWHQb hnvnqjYyA7G0Cdfx8XEEDghOng4CPl5ugYB+uDC8kDZcdP2WwdGKggDXsh2/ 3TVWwQa2QWWu2ih6PRB0wX9VSbChGy5xlElOpUKE49RYHfLsMjFU4QPj0Ac+ XjAJ4BtuDnfh74sXL2L3y80kMLhhAZA1kpD7LiMvl4OcXs5iIAIMuH/Z0AP/ 4MI32hfMgBZzpdlaSOY9vttcLhritEcfZ12lphWvdf+3iD6YiRkn6kEQjQOP jozcMGBduRDd8SnkL9HoNiakgLsXX/AejcrFIUyZc9NmGpFhstOLlMoEQA61 CkQUIoJW6mVgS7UhoGZJpIz6MBbXLCeVsa8HKKxxHjZFjtbbMnc0TIpKmBhF ZDIFCApACSwlYslL4lLJqeD6EDNnxCx3zOxnDM7SU5msvG32TyUMySHcy3Ew EEbXsyh8qdcN8tZAAoY4OEWtWQjQwrlmFdpyxDcRTWoyZNUqxGgAYzjT6FyG cLmUwMxlMmou3jH4mcgEBf/cEQARdwCy+i4rBFx9mcY352lhnnPdSYvMdNKy q3pzPjnTRjUCxEoSoGcddVw2rNrVkIpoDLqU0satDq73hQpwC6vwIc/oh3sQ Ial9RYHkou6aiR2ccFU9O3boZBLR2NGO67qEOTUilBjsaINo2R3GJLBSkw1D SkHPOdwD/chAT9g611xX6pi1R5K19WKxmlrO3SbQ03KoZvuGJDjmKVxqL6z3 lD7EhKHcm1hFsqidUYhuKzUIULukgomTT7NDiwmR7OCiju+ChavCtd4su++q NpUl93AhpFf1Jm8+NYaZxih2v/XqzkCaGgCc1kpiiQ5WG/gISs8HaG8x8wtJ /ZIg42PJamMhD7fMDpI0svfUFKMt3nf4kVZL36bKGNPArBbqsQjkFIdSh+mD LvRlpBg6McpHcPcwzkdYxW3hjnJFbdgtxRUjCfBlv/WX7lXF9EshLDcw4k+N I+Q0hjF9ybzGIHPD/wijXlpfn6m0wxmzV5sNwTu40k33N6kIXZTsickQyewK 0yWtrhqZ5PMg7abB457wDmmwE1TgN8BQlE5UIoprogSY5LV5O0KYL3t36r56 f8D9ROAhlEvMmari7lVwL0dpvGQ6R+fNNFWJJny4k4HzzxvGT1Ubr0L+6pla tkNdSzlkmkDPQio89CY/VY3rGa9FtBB3C6rFJ4ZoSx3bONFBpBUxJI1bpVAo BjO5IgeQrVCFtDWRpiZ5LAcpaSatm7Q3rtEtMpaSNkZcfM0ThhDlisEV28Ap 3Z8b1pXtqIWrS4p5buApTTM8iKvBpbxF1KhOVCgjR3HO41LJTHO0KgzoKYIP LGpDKKRw78j6GNomQwhYVHVv8TKZCyD4jp6HtTI7qpoVQ6r8sbKW2/Vxu2XC HbdU3DpqJ/fj7iyVfXdK4laOVgCjY8hK5fqlJ4u3vi8f3g5sbCjL6d5xjQ18 j2T3ZUXS4PI+iOEO0xK9ZljL2oDExLnSDGEtNZK7TPBQN7LL5QNq+G4fW+a9 pRzHfktNymurr/X60zKiy9hr0pulvtp+x90zd3o6la+ewW4urdwGzuZAinc7 NdnqzqSL9r7+vSaOk2kWo4djIJMvKpzcCwuwlGW3hg5z+OqxZilQ1ddRFnRA 1dfSTQHBmhh3ZBH3rMU0A/XtGPoNpUBnHb6SQ5veYlMfgizUfzJ8yXdjLAKC wO2bsjdlcvGNlZedZUnZRPFc89CH0xqInNq+RofXSaVXRZEkNrwLEfuGlBNF sslfF2LYh/kQaF2i4Es3HcS+8gAEKyCHlBspEim/90UjS25JxqX4mlU57tCF tOD3/SDhtrDG5AylfJfyMO1CP9JvkJR0KSL3uHuUPiJE4xGrWeiVR2ZF/I/K yXSXLKafGBF/1Wj7UbWRy4upCO0m6902RejX7iJickavXjLUTSXmGorB5pLJ PrS9pWZJHWIuL/2sqcFKEGboLCqweI4jqCSze1JYlHTN3/UW43EZRZ1lPDcC XYezH0mbrl2nBiwu6jrbFTUy6D+BqdVxb7BAMhqqtjYyug5pP1SIKb4vGR0l 8HRBhjeUZW1W46K7Obt1gWntGRstbNA/0LyL0sa3GV2Fl3YSq/aO8vFNajpC 7TqaJXydOS5LItMl6ngIs80mLSp2ehRlU2OsNXusY9qPVRtXhEGx1QPf8jwV bVVcaZhzoZGexiquT4JtOrdlgtVF6NSAX8hfvi7XcdEAa2BclKqtmwyj5mtb ZK2z2RtqKhL+sHRqgPiPjLa2OLd7Yt34/yDdlFnAl1j6VJTZiC8prZr4jeCX SRs++F1JwtPnIPRu1/5T19D1Q1ld1rOC06VEbrSdX5Sp3Z76SRT2Pfild3Cp A9EzoD/r9rowrLorbf2OeatY/mvLaRJfLQ/dW8t/uLxrwLsnibD1MDcl9dNU 2vy/uDae1lZKGt+KhCPE7HcxzTqW/TrtYh3BSpcjZY1x3Lqre7Uft36ldfY+ bv0yjDKLy7av7Ny/cFQLZg==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{185, 83}, ImageMargins->{{277, 0}, {0, 5}}]], "Input", CellChangeTimes->{{3.415411964144249*^9, 3.41541196553715*^9}, { 3.415412016397352*^9, 3.415412016397711*^9}}], Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzNnUvOJMURx5uufn7vFwMzZvCALRkLLNBYli9gDZJlJJZI9maELHkWyIBZ IUs2WxaWvR1h77kBkg/ACTgBB7A4Aa6ojF/WP7OjqqsHxnKJnq+7KjMyXhkR GRlZvPXwoz/8/r2HHz169+G9Nz98+P4fHr37p3sP/vhhe6t5ZjabfzabzV65 N7Pv37Zf/Z9v2//SP/+yf+z2d7/x2+5PM/vmm29m77zzTvf3jeDe637vwYMH M4cwW/m9jz/+ePbll192v66Dvl3rf6fx0vPF7Kuvvpo9evSoa9P+nduNefcr jfH55593LZ/r/j3qfttT+/Ds008/7X5be4PVjnXh4L/++usZ1/379zeOlbUG 0/WBmJw4jBbc7O7du7MvvvhiduH3DKb1sF9L4UpHvdyj7+PHj2cv+j0bG5y6 dnN7fCuAPPd71tuwtl8fBPcWwWhv+j3jGVj9R0Wy7JobUfbL/trvedeh6e4Z GAOXRHKceWzg7GOX3bN+9rcD3l7W71LIScqMAJosWvu1ORCXU4Fr5NvFWKoq sMTwsr69UBZdX/BvYdwVkCbDursNa82f8zmgw9jHNf/DaiL0YHZGfCAjGoki m8SPiw5n44FdppTw1767jmfx22jKu/Z3I7oGTZcuBBWhgbGhEO28u9u3gUZY be0SG7fdc4Nvl6FgbUDZxrS28+7XKlsMyLH27bhLp1annX3QEOtmDLK/1obJ MYHauVNroLgHA62dYcssNQkzIxsXWSWAzkDMrSWqYYAxjiAAGw1nNUEI+cr1 sJau0YFxtfsg27jg4IGKw+CiCfDOiDBi1MQ4j1wUpUlcuEorLfaxsdprOYLu LeGToAH7DGPR08YFbQPpZQxjwqBH6F1NZDvqOkAIy7HykblvV0unaqB2caPS idTNqd3qlbaUBM7AOVO4Q5UwtlWJwiQnlTwbJNhgWFuIV5a3v7cyHOYAf2Qg mFdqu7ggiX69PVjuyMRInIuvxAu36F2P8fg45LFKESsxxOTGMaqUp28/t1up 5yLbE295JhJiPvw5GdWtcMlRzr4V6tMYdu+ojhCyobV+xmX3CItKJ9KUGSJr nWcqxpSAwbQ3BSCrbNmYha47S1cutdnie7LRtC6AZ5LDJ9SM/gn9ZzP1wNO2 wEIKEzmTScYgQRJ4WV+sr/uCwu+Ch9GEcTWtQLBIDx3XvtYOetZyDwOnhrYW mxrZeYCLwkNUjdABfunephsD02Afoxt+tDTTleimR29VkObNDfwqwAr9nqaI JwXHNfBSN4DkWjQw3hrLQQxKZooA8wyE2lNXMI2TrYlRMJd7YJHaHYc6XH/H EaS4ZVnMDdqdC5ORD1yM9GIfFxPOt/Ic0HnC2EOssXu0sb/MXeZ1+xwVM3bY ZShe+T2dcrBTh11PJGEhfUFz7lBZ6iBJY1my+1eTRGKk4PEgE7Pg7ZY+O4w0 0CKaFHBgFI2KUNUouLU/cmnaoDr33D+y4jAaET2iJD4z/tlv1MuQW/kzAiAw MXloTAgfloJhGQGsdmaSj6NWUx/rwosZYxdatRwhCZi6YENDidIVVWSwFKfF OAZDFx2RGrFAQ33t141DVGsILI1WmA1NALdx1mE9lHVZpZpCKusAzHYElRtX S/sNK3B2kNyFjOXEs09S0u2O0Ybr6J+BrfsrxUTTBgfOMHw/cafZRmwh0whl 1nbPB9LqJvvcGE0UaBdY5HnZFMQtfBDlHSqIHHB+hsSdgAm3XMRKnH0cOc2G gM3VAfxgcjZCld0rjFJT2K7GdaaekNFwfyutD8QSNXmXjfAJHnl878QssjDc SZK3YlHserT0gVAZwnQPw+bCdCbEJPNT5mxYRqtXgAMsRJYjNDFtrZ2u8u1v OyQ+VyMPLI+BiryDzo3I8kiiJVse6wt8u28qisA1vTIP4EIC+kNs7FxbSRf0 ZhWA2Y6gguXBtxAOEBM6bISB5qrNRGgaUVmb5DNawBov1KGrjQVOsBZanqbZ UVHdcuJoA44DhCx3mGUXTloTMYQItw8wOT6p1ORA3/ducjbZM6ASms6ZjcdB hdXp1/J4SeMLweO01cGqWFkQvLV8PnPnQEoUTNQc0xzFZKqoV9YlLPqHgVSL o1liWUV0jDoVI6sBgaO+CsAuKw6RLTFUdLoS35BOMHKQh2b1a07qyrEZGMv+ AgPuqtWJ8pBIw/p2LjltVGhyVhegGMmIpO0IWoctfs6KgME+pGywVkTNLCMd 37lHS7UHSjkDa7jO6GqK23op9+xCOY5lQtZrP+uvOQiUlSmlK2H6wCZyGoxl OB6PaMW0+bXISWzHF1RYN/Hpg+PVELexdho1kqE5ErCMRgr9KLCEhy0dD7KY myT5pLi+byecu5okOdijBjBcVp4TW+RYtPY+gKiHNXBbJxKW2dXe/6Q0s9gj 62WjGVEv+TOyfGBhhJz7/KvTZ+q62EUjYc0sNazAJod95cQmrtM9U9xn2+bU aSLZYTR3pqRFYRmoCd0XFbXqkUm4aEIZc3vu/Qg9ocB6XLmyKQftDnarTx42 mTtqIneThdudJJvKH5j01xy7zryahuMJeF66dquuMxXAu9s6Sutw3R9Wcpjc c7djmFIUBTuDurLdkATQe6SxAK4RVrkiZdNv7QhKbSxWfYxVLXvVdG+De8cj 0r/xXpAMVyOSMTQD3CVNqpQ7w01oGGodJTJ7TxAAAoaJX6viNP5uRnPpM4z7 WbYDuhkCXwFLiMuQ7Xe8GBPbulIz8NekT8dOu654SVa23X6YzHb76xWnmJSY /XrZ7+mijpWbZt50J6FfFjSZK8lk9/eYODcjsKydcYmIFfpUeNm2bYsVF2Ds Am17Xmt3vx20zGgKaN8PHEcvbc6dFFlBtB2YGj37IliX4eiTrvygFI+Ibehi q7WwEjrUnoLHs6621Wolefxl4fFpciqgeX7lJGoeHXyIiAOcdd854EydzOtn zbKIm+1jmIC1lhAwodUQ1PG2Ynw5YAiKNdiikFc7dBp5VaQ1mITtdasipFfs PldsV+NglO1s6bbtPtH5ui5ykrTEgFBkRA2N/fpJpVD99F1kffZFHr5Dh9Cs ka5yfL+CCiy0y9eA14OQyp2YoToNtLvP9mx21EX3cztb1TbQxbLqQx/1N2De /TqeiOe5azp4EQzp/hnPsHXts4W7DF0fgQ6Tgi3y9vvC1UE5odvM9b4ZTraf 0vsd9EkssEt/qIYZX8PECbBmKg/wRRdHhOuaPyZOU99c+utVgQEjt4y4dDoI 97wri28VDE6K7Kum6YlForn6grcnzaR5CHeiR46qgTcC7dIKDQTvknvBRyHW Nqi4V2sKnS+JkCSfiinX0RKwpPHqVnTjkPyqfa4CGFr/CLuRrBolGJaLrtZI IxNJUqV39v2kIV9j3z2hkakTtE8mYogGKApt90Zuk0VtvxOjac0Es7auUFEP RDtNuNfFRy1hTD+Nz44CnToNREIpjqHCApzIQlcpMZo7DOC25qlkO0eX+C22 2AidepuKGLuwTRoOUXpJ3UlvPXdqhwhIdTOT2rSId3e9PUZFNzB97v1OJg7B F3XLLP7t189FDPUKjHSs/boO+n4gfalweauanHa11P5SDJKUGf6i4kfp1CeW cP9dUGM1dUuYDwnngi5O5NXg3vsBvDeCdsk9zv4iHhE5k09XOTNL1fP+JpDS P8UMgnqnBF0Qi/YZFEz4Oj99LX9rAqzOhAhMUkpW9Ekdz4M9L919isxec2FN qCe/dHvCSJoaqDNuutGCQl9mOiomq4G67cRr3kO9lrV9S0hGbT8TFgJLZxm+ WEuHgK0lRoRgrwb35gG+6J8ak2hT7flKTPbrZ8G9qGb8euIYupCqa8WVjmSl s81T89j4v1pXpHkapjleysARpWqFVUrqrXO9a1Q3TUWkzh3I14iCeHygsrIu lOz5WT04HBscq/qVLjNkV1lISiloerYtcJDy21wPkGogS/9kfSCoBYGK1tWh do8uUS4++a1NjuYJUpCfowoVNaZpBZ2YQRxZFqT6Yypl5j6eRoCBnlDGqpnm bkW563kb3fnBIKb4ygAuCsvQrYHs9rIoIoahyH5ICFFt7gRyF1mZnL1xFXLm 8ypvVlQqvKffriZFIt1hmCGakC2ZqFqt87arekzj6dJ+QHVmAyXJ8x6N47wi 5wJuLQCdfLubigFjRB4TBPViAYABaps1RGzUdmLF965d0r0DSlM1naiBNkUa 7Oc4cFYKekBiIP6cV6ZBvYY1oQS1kXZ40wt39RMw8uXVqugvJoqEQATKnlQH fNSvUXUY+borB6tGUY+6oJm+XTY/gKBnve2Qp0CPesuxLs77kH4FFWa4ipo9 3LGDP52T3sOG6EQPh7AqWndP9KjEUlyUwyPN/7MFzjyABq02qLeNwKcbMpHK 47GSftqAhtYEz0Use+ptRytIngSfFJZs8m/Di8SXwE6gXwiH1QnOqoAoB04G NcHZo0aVYY/LEvlIaGxhqIIgyJrKHUoWWY99i4RS8LqcQSHo9zEVCWqIOO6k j9ge05oR+Dj3ZaGKT5fP8OlQeXibKdWQfNcEZXlM9XSw/5gmp77no2Prs0i+ nLHRkJbdyZw5borzKuwwyfzVoRrH6kBtCgR5Wmzl0H5IIOU8nFafyrbjkG4W mn62Q/EYiXus2zTrFBnytOGlcYLu3UV7dgQEunEO5dHJBiiXo4t2kYjr4pYE UVegpBK1xo2TxpoE7jW32Ys5cYOOI0ZtWYHRSbZ7hq3fK6GKVg9ot30POwS1 KfIPMEiyufM+I7yf0rQDdjPqaaYeZhN90lMDUJuW9icZJd2NtosN9aokbiy0 UE7UQtl3XE1lOxJhsIWB/HancblPyfdcpbHIt5ywpUDUnLaxjphN87r20XL9 WtN6onaKWvfHGgPYlexeVdDdiLCjMNUPuH4RddfeLnIb7f2TQChsVFLbyrJo 15IN1wZr1gldmEJRAC8y54MhxHqHcLYoEwbGpesii6Cb/DqE2oARfmerp8+I WKdQunXyhtq65uicZ7Kle3cmq0gkyIhNkFbdY1sI8JVa6ZnmWF0uBzGLMKgp qRm+O4eeQniw3aF2mLymaDtgAQYK5CM7HGmWptfLNECpGseVrGDIyAkj3UuT beCoGo6ogFWaXRwE1Ur4x10J9DSMo/eobJ2KgQOO0X4ewcVjr6PWsywtNZuJ 2JB5VzcwfM4xmv2rAp4oFiZ331nH6GhNdH5x5YZPSTKYen4xOvC0d+HfVySG U6N0fHxX/UYFZqxIlnljUbtsfEJGR1nsyZSZM80LT0BGj1KyaU3K7pAlWZf9 s2HS6JKZ4sS89gjOxQyHS6tsLsnjeCptn1OOvv8vnHIZjZAxpUyC7Nrj/oRA 5JObPSNOYfr/nUcOhDjIo+Be7ZErS4NHjkbZ55EjDGpK+pi55Lm3eWpr9m3x aIiPkUt9uk5Zz3HWCXe13rtnZQ4qy9atP4xGZOApJqyXO7o/08JYTcQ+em3T JhgWpz1wLphDvlVJib49zy5PBh19B9YSA8E7tkj2nhvefS/B2EJfUQJN+yy8 Yldrb0nMqGaR6lrEjIkODuPyxw4O73X5i5oxbKbqKZFyfo65/NP8e+zcpF2U 7BnDEyXnRRU3xwWgas9hKMftJsNWvBVXUiATcSMeBoypWvZRV6FV09EJLDgg gZmqsI+igeBYVxQNcGpJz4XSNWF5exAr+EptmhYKR7zT1XC19+FjHRV9olDD cMs1e2VMIAcnc9rBRYPm1Xm5XvPuPCnvwWgq1VtX9CHlGlPWhaM6NoyiHgl1 iFPBvcTks2IopdJkzhwMhtqnPhEWKpgx5ttFwrN/O8H1pDDhMJXcjROGp0oU J5zne1PMUK0NuCTdCtOqZrtSzV6n5ffLFyyAcb0vw/0J8YF6DPUGCJFVPG+w YCuAofhturIcRXw9iHh0prrEoj6rHR3o35e71zQyFpwxNgezfBFgvnAf813f CaDt8rZqqSMcuNIUev1agLOg36pipJaoLwcZ738uCg1SD4F91Ipl+41MfPmW cusXhVh0VowdCCZSzNHO7e5RcNgxBFVPfsWuPp6IdvV1BbsvQRxArc7dp1jQ rqNB5ujwcmSH21I05IAXuerOwbFiqQ5HDscDJzkS1BH2ItW/h1or+IIjmHM/ bqEpizHd0Gf63Qut6qPXgEgFSil3hU6lhFu6pzVZiXXrvArHjAiRebc3Yn2F 0jDVTUH1xqfdwDlVhB2pKwUCE4+45gmZDnAmDiDWmlP9a3BL7vUG+KQ+L1Hg gQvAJTyyN4cbqKN9mgQ6CZt18ZZURiIyoERBa6uodmnb8WrEaE4PnQ2e+9uI 92gmJYyaK800NgWNqellbqoYDFmiIZGqjywPkPSpYF0aQrmhp6anDgw0Lt4T GDDXCAwoCdFh1aHRnujNLgykos7wdUXrEDns1ig5aLLWWA7hVR+wwRobbvf8 GWxBREZvfdbnEHYzmyMcOX495kiKolW3VahJXUOqO1yoyomLG8uA3FwNTx29 +uxUj970t1vA6iMNEKINgv5wX28Om6KKMYqtzyuOa05Fzzyvqnb2604AT88y 0e46wPlXE/F7O2h3ewId9usq6Bvx5Tm/p+8ZIGDWoEvTLrqV1Fd49+8s9HSY 7t1o5q/Kaep80sweyjEPMLwexLDMguvxBjCb9VVpOKlqGkUj6htOuScvbngx IOb4idh4VLNxyCD9IMDyJZEw4EnRKRpak6ObhwqriMrXo1G5Tszao0SKuu9k 8tQJp4tYSDtzojXYsI8HM/reC0D/1O/pVt82AH0ykcy3g3a3XRNZsvm+9pnr Q510syHV0Oqes4Mlu62jSPcb4SHrR90eQEshQI8bqNkHrFaalafR4nPffnhQ TgHoGbibiZgMxxv9cRo+Cn/Kexv4n5Do0nXs1QT7OBSt1pmkKgXOmWMXPRW/ HBy6fA+EkDlyio4DHzrrTwVBPPq5I1NFx2o4udqB67jKoN8JoOrLmcFb34nI LCNY0GEcg3xEX9tvA7gXwfjvOfrEKHa1LOYdhnUs7uBORqDrvaS8R8XLAwCj paieI9H/C0h9FHpXf5Z52cT9tB2U1gRqB3RHitl3LTZjIipNgMo6AH3gWxfQ fD1ZeHQ4dhGjfiT2Gv7fcxYSdnoqURWREaOXN0CoHwvuxvmHDAM6p0IV6GhG MgrJUN6Xg76roN2vg3Y/DnB5Peir+O8/4f5935g9818RmQ0I\ \>"], "Graphics", ImageSize->{668, 40}, ImageMargins->0]], "Input", CellChangeTimes->{{3.415412011605126*^9, 3.415412012833317*^9}}], Cell[TextData[{ "Steady-state\n", Cell[BoxData[ RowBox[{"\[IndentingNewLine]", Cell[GraphicsData["CompressedBitmap", "\<\ eJzdXc2PHEcV7/T0fOxu1vthm9gbr+2ARIRsRJRjEiUiCs4B8XFBskIgWE5Q fEBBIReMEZZACjYg7hYSBySETe6ESyTEwQiSE/IROPgv8CnhZPpX9X7dv6qp 6ume3dgOLc/sdHXV+65Xr169GX/l3Fuvv/a9c29dOH/u5Itvnvv+6xfO/+Dk mTferJtGDxVF+UxRFGdOFvh8t/5ob3frf/7tWbyheXDDv9yfUXH27Nni3Xff dXePJtrcmOf8mN+4P5Pi1q1brg9eu7u7xcWLF4ubN2+OQFw9/MKFC4UhK464 91U8dk/PnDlT3Llzx7WiDfe4AKpu3zYKgAHXk08+WWy4tpUGBMEDDIYRLJ6P EuN3jOrr16+nqC6NajSR6qMGRqkuHcIqRvmRimbVIaTocAECPgM5CAeM+u/M EKA7kW5amw4rI0Jwlxrr2yqHAgRevXoVKDc6QGrbKD3cK2+tuH37tutOxelQ SBHMXbt2zUl9KGfaZrK84v6MHVi9QEblPo3dZ4InSV5DM4ca5KA9oQ9iphUr 1ZSxJwDvBxwogKHSiZqmi2eAQRRAJ2hSqlM0U0NGIWM4+AD4kVlVTxJUpkZF Us5lB8rKiMI9dIsLUwMmQX1zouMz2SjNVmgneFEROfshbTA7KDsnourjEYOZ 29WEorQ7TYmSARZQSx8DKYAz3JfOoqYNGrTT/DAGY1McTqwN/UPpPNxMA3LL e0gN8Nhu9K9kbWzilAhhsR33znHnsI8C7KXJgW0AVfObN7EFGFcCzZM3Whrk jmuyQO6Qb07utDz8zc/xvpzPsrK3sf/1N28bBHLgZwuuKhhRPx8bGWAGQGni fq3xjJMwPKMswVzOmKhtnbacJrWYOGSRY6JN0guAd8oGXJCUUTe6lYgLPl4E tjQTUZLwoqrmTWSYFAknZxqTPmwlHcrb4l5hljI5mwBl3rFUTqecVjV1lYHh UK4xIMbb+6hpU5/FAAXX2JCqp6a+ICgwBzI5p2pcUzEPUIIu40GgR23wKGRZ uBV4h04SqiDCqx/noa8H0CkkypdzhZYVWk1G7tOk3EENDLavQJZj1NzIz/Gn dOT2XZ0mjVkzJgPWmsFtGRL6iTbOAuGQAWR1KNH/4ews7YYx338WxHYaQJlu JsO5mXRQ4nr4DhZdtpuc3KykZ+ayw+UblHZJk0sOFMaoPyXNdfNvseWmxh82 +aesHBfjdi6lJsXpQBYmHSykRIjnjMdSIqSdagBQgonDCeQz8bcEAEJtmU/R u541sCyYgyZJHeJ4kokOo+Nu0CTJDRInqg3LMjPtpsJ18jO2+JaBxmNQZLvE TWuONs5ERs0ryyp6IqyHUQt0g7ijQaqvmhnlNCa225bVgdtKjDsgPk6N0+AQ vYLxWlgLhnArRspJAr01ly3c63psbB1OUDbtwZFrGYWqAEhmFGpUZJpTAneH EwZR29TEFhZNgdCx112Pu4ZVN6lgGrjwmEEhtWrKPmlWroFEz6GmqZVgrC4z FDfkRarVeITq3WFUu/EPeYlumUeJd27AzDnFLYKtkZVpm4rEMJ+jWQmUSyUq M23fNmzCRQdYOvrDsGlkHgFtNBTC5XTh0sNsQs25Q1OipTTpUdJ8ASE7WmxK BXKm0mnqZlbjJfpzLofiHxqvVfP5hg15+eWXi8uXL7vXNt5XEg++iPcP/XDv ZLaatZJwKVvSxJAlXp+EBuPlcPCMsDQjozNG+2qAY8t8Q4d3lRuNZ2YESN/A z4z5acCglXBLs2LFCVjsT49v/akGNKMJ4NSVxSq0lJmoK9xykFT6lcrGcVZ4 IwlN373w/mcvLabzCAvsjWyG4TPHhSyPO9Q1mVOXmec4IS3VkLbX5FTmbWjc hKZDaASVrRr6LAHSKZn77IRiVLilCIaR/sPGPEAAFOc8FFpipMP6t1Cyuk3g toyGG+AfJlRTmN+1rTXbqq4pwPZJD8nSNXn43oGC3YDiUJd0780ymBdw65Sq Rod41RStWldAYKCo6RN0ByYXvL0HgB+G8sZFZ+A5PdFpF7hg5UDIICBuw0zg rKXw1eGoPmMteBoenXM03ChwuSM84KQTId1KqxodHQ3tK5yl6ZlYj/NZ7XGQ UKezYYrGsmoOBH3+Mo5l3vxPBAlciouwuebiAg34DBypNopL11iuDeyLduCn 7TDRrClCOjyFRWumpRMW4wKlH2OAo+7DFJOeDHEpjtn1y3jVLMt2lZYOwEUN sYsmdYnV8fDBInfug3Ua2a61cenwRPs2nSyfSvT7idBgZ2zFczK2sQi8H/N0 bdrylYoKLPtVHBfaaeQpmrbNuDWxy0lZjzsohkclf1OG9Dyv42KKruR822xB wRCF2prZ4Y51pzIomNQp411Ly6jQtoxqjXRJTg3rc0ahmhaZB1VERx3SanH3 knsfdgxXCWza0XYCjmZB44Q2YO0kdDoy+4gdFp2mg4EWf55c3DDREi8v0qsb g9ruq0hUfpp5peux39TYUVaWOXFi5oyOR/1vLVY/ZKOxFUi375EgyfA+fBqQ RH9I6W8YniHHjdQKl5/80u19fzMD8e5VW7zToU1qaSpwuXyu2ri9HstQ/Lwn fluey4g8Pf2PtZo6q6IjtXSfSoPJGe7v+4LkWAPbJXSdfir0P8g05+UhzAIb hHCpNDtjrLK6WP78g6vOfJJ5GvRDC+ADTyuRBSdNY07sIKO+1T00dbySOlFX oV4XdPHEZ9TQrMM2+4A6L9GlzgaqrDAnTdqROrZAZ8GRDKs7aE0WvvAQgllu vCqLmzQB1evAJ3vaskjaOiljaUcHxVJgkD4B0+OUGialljkFYPpXsxN64ML4 RdxFTJgeEpzoeLYhwmgCDxHGDWNAA/HmmHs6lzNRJ5Y/zKmaIgyLdUl9Kp/v s7CzwCppmeACoN1qJnBSef4THc80YE15tRtCNperejzLN3Sqc34ClG6Y6nua q6bnubbTLl3inX6bHg93a+JWEon3492P1xMQlcE/2nN6BU3kaJKZOQLbJit3 jV9lvh93zHW1+54WD3cVLKLioUvLbXeCe7dHnzWDza2z0w7aLIJ7x57TFuMl jllhHktT+VeuXLGVvfVIPv8CzqbBnhYvSTo3q7Ke5K6YJfXMRO8M674imgzK H00KfzHz5umEJbKPCKE062dFWc16jnfbLbjP7k3rM/9ko7T+8lSi7Rsy5gti TvF2mOtFGakArx9FznNopWW+CjGEeXRJ+iYJ+JtGX7xHY6kC9Qt6N+ZkFBZn 6rIWudkfm56jasg9FOPFEYy2pWpPMuWcesav5zi4r6nwib9Dc7WRumPQXUxP ceTrptaX2qykAotN0dYxw5Av/9zozSIjT8WvWXyOu2Q48xWRi7cHegLeVXY4 tAiUdUB6WMo1Kx88rDnLYBudKsPfPjIZVqeY2iq1cTI3qIpzS3TOFFe/KpfN LG/qZWiD6BMtsJeMmUx1IudZZm/Cg8seZZBd5XmdpZHjYAjF3SUS7utIlTmF viJZopCQ0W20H84qmbmk3mWRkxxT1EB0COLDinDN+KEh7VvFmNkkpfajmnXk lS8CW0xCfPLrdwdSwTGv9ipYa+sB4/6S2ad6wVQ5qbrzHXFtQ6ohk4xNGyro BSUQMy/et/wwvdPj0hvthvNV1Sl047lKLYAbWS2lbs/IOUuveM+NpK9XWMx6 16KSZzOs8tS56kLevrWH4w7if5E19PQeM1VN5Y9yV+aKtlLlb130cdWgSwSs oaV8GsAfkxnUp5Qwhf+XWftcUMOWKoWbBWDMdBv7a7KpqSq9cSBZ7vCXKNTb SQiIe9acgLpI+HXWgLr3tFSsujJKSWEl6s56FtRp3mnZgjq/PSo+b8MZE8Da fmZtTJ6BktekXzgjB1H7bWsDGnqvNaOZq7Men+OyTfKjJkiNRvvWpD1mKDg2 VY+WKaLj2lkPG1hE94hKuGqiXytv+qn6OT1SPB+tA7hbTNsrCTNgSkoLqugt auicI7o+nkq0fd3zsWEypEVQAjx2MX34SrdDQV21VrBRbdwsMYbTyioanlTD aS0peXRLl3eCjwSHFyKXRjE5fFQax6eq+8a2GLCvbvq4Hmp/tDf1eZvNKsah ilZBZQoLWYOYAqOctsUCBwIz6OJexzclg60V+bShDwX0i42sSYhIKn2i19cC KYpauPqdB8brN9svKyqB/xRbpuPg/o/O2X8b0DtvgOQ2gBZ5XOyF1zbenN97 wUtJ7PpoYATknXKIywJzJX8Upe5SOV/AoZaLkTO2QU1MgXpud5JlgnSnpCVO oChe7ct8TaIk0ke+p5uqGTVGnq1zCOdzqhZAScnBGlqRGbMrfb3ktnpLgMO1 PzXpD8rXAvJyJIURX9VoxpJlLJxDM9CT69gbwbh4kraoZuqv1k/TupxRKvF6 DLeoWk9UD4u/VKeYdHP2K50V60FgFMtB5UM5tnWWMxI019f6sWYqOOe721Zz aKrFncnhOhJ8QSJTqdk8x187s+zUKI9LiqLZn6jNx4mmtm0tcBs58IQ1SsCp TNC5sSmW2NfD2+zNYtwWKKL9vvkiMCxEgYLq/ivmhnUIQyQXA72Hwu9Vs1md kJyskrSmpwQdbg9wCYMDV10F+1tXWoERo4Bu8sTQQ7P/IAGWA1xcb5O2OZuz TfJlKVLWW3cUtRpdsyZyYd9IugymuTRoWaD7ckI7q6lqJzZQdCigkWJYZJUR qOaQuxhWL5xKqYT7yYW8cyFP2GYxxDgJntWWTfpkfo9iU/Lf9liXDfM3bQlW WxEGCL9VW1wJKlGJmyYQG2OugJfFNlqdJE6V1aJaC6wikrWnYLaqq+6XFplD G1lkpqzZW+TjzdExsHHRpwtXJcVBQ6oaOgVrmarqkFPvXOPq7QXcJ42SuBl5 xKcBKVqUb91WhaXUk2ATYZ4VmtPjTl6pCOF9Ixf9uHryM6cmyCMpA+MBVnlQ s6zs0PMVV0/kIWi9a/yV8VvNz1WMg4CbBuB3dO3378k5qeJ9W/I0ThZSx7S0 eNu2tt+0s1Z8bArnyh3vALW/7ABd37i+vBwAq6tOvaV91kwc9otq3/NsVw0o c178XjtNXU08R4mtw6a5qsEcbP0mmntolF1f/7HHXCAoB+v6OzXANiXcVjCF 2TuWCWxH/XHHShZ6e2/S821PJNrWE22PyZzThCSuU8YV8wNnz+73T1YxG6sF GgdsqSCIrkKKcWL8kY+daialUoXSddvXOpiKE4QJ6MVTujqPg7nF+aahJp+x 5ketJfWV41mi7YlE27rYtPo3c/q7Rp4GAQwkTpk8NWGmXPM8wHa0e/lBL1qQ nnj1/cmsKjH26L0j3Qm4dPJsA3/8/WqCro0EgBTQp0Pjib9kpKdE+nWKV8UA 6A53TUg6kWqRHJH1Sq+2xOST+gtjB43h/atd6iplqdLYetUpfVIlzBVQa+1Z QqDRoU+UzILTYbySmhlGIcmR7zMk5s8HHdMNV3jg/sD/rtlBU+heSrSYKuxR uRPXSO+9IuuBlzC/hsvlkJW39s2h+NR+eQW0JUNq6bTTZ7z5/t2G964Wuu8/ osbvOi5XVZaqMBp1Q1yuVOy+y+mskaHOm+Ze7kmGKWxPqzn9P/0oG2f+oq// 9C0/29vXhD6W4rYHV/gvWRuDU2V7XwQdojOf+A/8uU+/CKdHuSnTCrcJaRib WRjDK+bG+8ved6PlRlewvbD8oif6fTHFe/Wrc5/JTsOu0ru9l9ntB+3nTbtM cKr26+fTgaxFWsCjxfVo+/PDdZ/OGkx2yCGDu3Qx3/5Qfs4eU59Ejau2idlw xr7kWeHO5D79iN1jWePpHnfQMOxP9eB+cPIdtJRy2k/vVT+cLcnlC6qje/QD d8sUE26blJYoJlye4FdMKtpcI1rdAx/Pe3k7yj4rOsMY/F7bQf0hNzw4ffq0 e/A83l9NPHA//faUgH1cTI4yOJZo+32i7csCx731/h8miof+B7P94zs=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{572, 70}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.415412021189498*^9, 3.415412021454444*^9}, 3.4154120537581663`*^9, {3.415412092690407*^9, 3.415412109369741*^9}}] }], "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.4154121202148533`*^9, 3.415412123503716*^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", "\<\ eJztnc+PZddRx1/er+7pnp7pmXg89kwmdhz/IMR4YRJQEiCKCE4CJGxYOKCI OFEgVhwSQgARIuQdkgkhiyyQIZANkbwBDBvDIhIS4GQFSBgJBCtLEWxA/guG V/fU59zvObfOffd194yTkKuZ7n733nNOVZ2qOlV1qs57/xOf/fjHPvnEZ5/8 6BP3vuczT3z6409+9FfvfexTn9ncWrxmNpv//Gw2e/bemf19c/On/7i5+Zd+ fMh+2O3v4hv/2/1azD73uc/NXnzxxe7T0u+98sors8cff7z73bX5aGrzP/Zr Pnv22Wf3/E1raW92fdvPj6Q3/8afP/roozMfd3a1+3lu9txzz3Vt7L9d9vml l16aPfnkk929Z555ZnbYvbvf9W/XY489lqF8+eWXZzdu3DDo9n0Ya2bdZDCe SGD8Wfdr1SGpl70LCmnuE4hrf99AsTb23/428Jb+bIN9B46Nac/s87x7dtiB ZpcRDtDticL3wgsvdO/NhYR2GUpze3PefVwm6t/seNNe4n0jj8Fln+Y+bcBr v+VVG9JArcny59XQidZtctgsGtj2yaCya+HvQw67DxmsXwOF2YpIYuja57X0 Y/d60qRpg2xOhUw2JSlkAE6HkVcB4aRk2PPuYVIDc/MfCthHgz59SjxuXQId /G5UolvrqptslxHmOrU/6jDX+0ikjYM8MCaUWQo69tzgWgg6yE+H1IfbJFgK hblWPucwXg/rMjOvM58OCYhLZ6cMgv/3YQ+TXul4v+dcuGTevbYIcVXdcBJc 29O9Qsd0n2wulPvAV/uAg+3TgWhSa2vvLpwISKXdR5dt+l4KOWXIuUBoXHNa rGBi1EUvt0m1gAEUNnli3CPvA6oAvWGOHMOlPYfsdX3YWIyHBHTwyarxRaEa 689K8IP77pyI84VqFgw/8DIY7XOP1zrPqMK3gX0lTaJJz81Et7xfVBLXhlw/ KlSCR9eJ+zc9XfGnSL9d5+QesF0UxWbvGRAL6Rmdf+T0V1ztv81HLUlGI/Qv yMH1NXIfCCTtR0RysQj2gr6vyD3euy73WE/QjmphHAnewZK5yMx1My8KiYHp QBebTBBhwD0hNtfS+0YwjChpvLTe25jGAXbZOAiL9W+XvZ/UfeII+jbENs9S V/vF/NrraF/vkqXVejXysA45X3VPUUAsg1gskMsuWGvuzIUI6TOgRuGmqbia LSHAHMM8ghHFh5Fnf5fwXC7gAYaakmNju8nARDeMq3XBKfbfYNm0axhUC+EL +OZnheEjA7rgLzegVWugqNKQd2clRV/wCPdRqgiO9Q+FoIYqLr1HX2msO7JA 0iecgwAiL3AOMNkzNUvsvc07Ce3zhT7WYe1vfeZ/Y+bZhXlp1EyTZWM8FGI+ BiFmJX3BH2PgRJRsUZ331YMYmq6LwnSd+4qhsoomEXMVJlMNCkPpMhLZYt3P v2wzGSux3astasjEWEN7dq8gV213qs1WMnVSnXbfSakzzkxA5f3TM5Gal+mZ jV3aBHMfRie3HgblJD6LzmEEjRNtEdDigi89DZu+9gN7ssemfEEf+/m3Ou1H xbSj2RgOLQkWvJs0/EEey36jv6wNLONjY8nWNHes1THYMvksV6z2dgHk4jQM sT8ADmgc5zTiMqNcAFm2NoDQ/O7EzZ3YLVgiApbEXuSR7Z3aA1r14Qzpeczr 0dEv28+f6T7ZXx+O9UKCJXd7nJERpyQLPO42DKw6s+CKu7pujFyGt73GYqN0 0sVGGbSWQvSg9eVtxhYbBJpn1syHmwt00bLXQnoMQsOSZ04cVtgaGiY6omFr aFlr8ALUn4QbsieVZabpRCokJ19arjZ1DKtZLaYa3lMnEDWJZWeUSOx9PlPK LigFXHV/2UBeZeJhHPYr1DJzlBuMS58rdScgGqPiTuHnuZ1YvMdQ9ixDcqGJ dAQh3LW5l9TDflaDETTZUj0akHCM3Bgl+06ryI9XHUN/0K/y4+Eq5de3C6PW LvwgrPx55arDAVdBmNxGuOq89EmbSwI6bb8vuPdGX74a7j4aleBuWhCG90B1 4MtHcfHfinVwT911IceCKk6vyuRxgBUhJ6xT+3S9if14UED1BVoea1fC77O3 Sl926Uxhxp4TMhUx+oTOiM+9yiREBoxE91Tv271DuccY14L37hcckHhxC3uJ QPUaYgBoc4+b8rAQKOioD94Xa+OqUB/23/qcdyCuB+61u8vKPr8vc8wIGval 60eEzcaC6oBP2NquyENBPdnVjKr7fH7DubEVwgZt5xeiu8r56JtGwF25uWvw m2nkb9qv0IhS0RobkKkMQtnNAcNVeZWXLIITiS3Ss7HIsupdHesbIzp7L2iL IRvFe4Ukyl3fGNeL6LZILw7CoAUzjCsbjfCibJoRyKLfiZFAphGBVkU9iAQ6 Lf51RNIG0R1fxwZ7rP8tKggsPibYotJ/J3jvXcF7b0vd/rtLmG6kwulqJfh0 L5NYbDC9z2mLulaD0y73eS86hbR/I7CDB4kxl+z/3ZU+TBFcI9QyRzLdY5ln cM7vhsdDlVZw62aebK7ep6KLg+kwnXP9VxMG/1vXtrt3JecFlwGFW/e+7W9o qqLXjXFxB8j2q3dhGzSvIOwWxOzful/lxjWKnt0FFgS7dKdBDQF2WnS//7Ko E/pA7jOXlUMzjDpYuM5Gvv1gmMgWmo/c082IgxOgfyWA4aIrZ10v7XcKbRgv LzJn2NjnJ8KM7aS+bhQvOg5gQsOdyTQdFKjp0NYt3n4njUMqX5iIRYRttAQ7 7/5j9+t8DkrD3iCBeKhzOZu5CtgreO6mrHTJB+21/5Zci/Ze6372zbisa5yl TRcYhUZWoxUyar2rtaaXfV461yrHEs5sSRP0NqhRkBHoS5/uiURVpjU0akuG KYs2UEARXwmiGnhJn69nX//61weCmT3PdTFndseabroBAhYPe+2oiezxZA6y ewaXivjmM4FKOOPUtDtX0A6Ji2m0zEEu7yeSrLmzpdMnd6sEGsuHUjmw/73b sijclnYf54pdSLvgQhGIvN0QSYQ9sT6SlX6x8FPsv06S4mV/14pLtRTt2ix6 YScGmTQVvXHFcB5LVO+E7YdIoFwH/pMgUos62qd3/pZ5M9y5WHer6gDQhASr SIHs+88oPGu/HVcClVDTgdesMlqsnClscHIFYQoDxABKsrCXacB9utasBoVq tRP9eo1uzFUbBy+Sw1Nu4SHSRt/avQeUEo115lf7L3ODGGsYV5W8QRXpud2w HEYulbXZtVC33vs8BeHSaxe3EgliqBCWQYxx6owpqCJAdTMOfoxxvIrn7hxv V5kud1zkUqEQmA/mR7MKEU0PnUcbytybxgp7owRP7xzowtzdQUAxuryPIsEv 0GX/7LNhw2mswFNGCFqjz3WPJ7ISoz3UMRWg22Lpjdj8kJWbvSHjlGXVTd/1 Kq/amj6xdAIDsubRMgntnNwmlc5toQRdzavh6Ya561P6jkKKq1DAF9g/9jlS Q1tAZ4JtKDaU0EDzKVgPN6QrxTRELibKGGJtDRK5c4MYZtvm7sHrOXBRLHjq uaiSjNhwqE7W+T3k3Lc9UUxKiU5cbSLWha8o0r+aMpll4oj9V/9EdQEWXkTK Sj9ATesK0mRHbFmkW28AWwYdqrogINLOej4ut0MdCRRq7QvrOM43dcRcrayh ulhm79vVwbIipabZsWatmtCXG0fzcRqS6a4Ro7xRGsnKfpHpoArEg3areFaA w8bXmJ2vXAdng47uc+p62adj7kqJiVi3U/GbKE/Num+HtgbbF7uwNEuPaM2T sjSfe9WzzPTx1Q+THuJDQp2gaNVaTpm0iOx73d9qVtvl6YsZymqyL6neWWW1 SdaH4cKWs6ZvNHIwmgtHF+eVVFweWjucYP5W/4jpavtM6zx9BFGdCpebi1iM 5rEQlvnSDSbmAn5GqW7+ppKLNbTOpbG/Zd9GDfexiEQbyvjZhWnQHgiDBdC2 DbKSBQhtRRt9EVYYirgpKoX0tSs7qBjSP/dMdTGXWGo6t8utlNwrvAp1s63v u0vJ0SRda2YoIjnq4yA5VZ5JRLE9ac56iUo3aDVxzK5X+mJBlROtcDPISDqy ZmNCEmF0LP2X7la/9wNomqlz6FiTXmjtOxVrDdaZ/WjmeyFj9Xpt6OJnFydA eTAC5ZhY6PzCytGedFvYl5ldHe6J8xwJANAAgWFyFMxbXToxpFa5PcrKsunX ef8vvNcoEUr3dK96b5p1TcJp3n4pN9gvBKTSpY9IpRpZTpusWTb32rlI/Uro 3Xex3ivNYZvQA6mmDNwQwmAHndu964vjjx8OelxPpOVaiEB4RdhuCzmV7WD4 XIR7s493Hwe0WU1BavaLDp9G1Ddz/k6/TYmN+wZaGMb61NsdV53WmMdAqaEm LaOr9/TUjoQC1OtkCugWKA/GMuGibJENgleCMfcmwM9uq+6E3nB6EzKLAsW7 jnNhwjtvDvqGL7fRFxnX5JnFOH3XBTvCTt0+Q+pLM6MuBHRaT8Zp9kuigugS njQIDGyvMNWII722iwUPclWQXRjt9gROc+/lSAhEt3dVejh96omL+OmkcyUb fl3QD/9g09+N3aDDqdU8QtgQ70QjT5d26/5wt9d/cIRW7Oe3aKWpoDWtNINF Sh0vBMivdoP4TYnNDrxtvSfXO/V7UQFl96SvNDzObOraM+8V0gb1jtuk2wG5 bnM16CbtzFqDZOdoen16lkDEjtJCSHvStz9ftCcMN4IauacVSHi32lN+e1G8 Pe8fpHVOc6fcdkoMcTmkS71xpIBHCG+GmFfjns9O/cTJWPg2OPGUXStAtSI1 Rzb2w0zdLRWh2BxaEarpfnT3ep8QjXhsnn0saP6uoLlnASab6ZHsm+mGHLk8 6NKo4IXFQjPKUD32jubOkjkZ1H42++nUm6i1yq9NdL5evM7Chj4aaX4i1NY+ t/oseC+Bdk/YhXrzOnRNGeIMSIaaOWMol3trVzIMu86KkgKvfnvd6rLIDu92 nK3DVWGGwCSNpIBTl7F+KY1SG4h9XtYy7yoWBYcH3Wt1dasS1btSaMpAZbug T+/rlmy2wdzwRnjzFJ4bbUqAZSGcOYLBTgy8ih7lZzCOMrOeUALig24beMYZ H+xsNqgO5TAPPTvg0OFolBBEW3dTK2a7oM7N2dNPP/3b9uNiyWs2GL6a7tCU 03S8ldEkfzIv6miEbqUzwUgJfKzf2xhPSzTqDVsbjs29fkbaewTCea8u40Xl v8h7xFYBsuSstLhv0lSs81RgWrlv07mO4clEyiIRI9o1VqPb9fAnJfvZhcpM xvF9eZ1TctbrHOKkIVxidPyNoaIBsyn9OB2V/XDPiUxUJbAj7Hcx3zsJWokJ Hxgwob5XP6uz8uyz5suyLkZk0fUbNrK/2zjfPQrDLlOitGAs1u+oGBgWUn/+ VhUDVwv0UGneWQSvokyyRlGravksDZCh2zZ+vKso3NaN3U/8t1/UEbNvCBfk cttF0WVqeqloqrHwXTBKcvzaop9WgTGMhUOh1U1QpI/07NX1zAV8ZAcz+QW6 fXWxDkFAPO/P743NxaymnOYkww9upI0VHKvyK4vXJhUcf02EAQjfKRwO9/5V ybRDq7IMhdzj91Dh9ukouPeWQLWnmuNmHZ3Wk9Z1dHrvD1zl0jXd6ZwAiuZ/ ANqBt59SDnSfE3xqbVUXO9Y9VQk4d3dZ5fPZBdNKmH43zdI5Z7/It8Vfv1dm Er45Cu7BNFoXzeajfUbYrjdncrx8Ua3RsVppLF4lQbRSRjnEhwFsUc7jfS5n 7TqkvTw7qH6Ntx75jNYzyUrmAjW1LOkLqSGb6hqxg1E3vb3VW6rrqRME314T oqKy3hTca9aBQtmoDlTjkl908TnjGpg0/OVCjk5SWOBlAe1M2qujdR6nLHbJ TiIBMcZwa4ZiGDWmiYuCheQoYQS23Bv7+/HHT1z44hz4vMw8HBHVzX9JFhMg GSun4J7rpPas7+WmIDZ1CBKwXcG2Z/2wMOhUYnXh2D7kwdT0/2gTJ2GbrB1V mJrohXLG8mHN0/XI3sNQmzt6u9QC/F4iQDf4+51hT5kxvdi9m2Of+7F84i2Z zduTouMMOfVRIPpsljfVlc7CKlMTpb8QkPf0KaWLE/WE6UNlScqCTma8UmBL yumWwbenksbzoLnWovCZB2qUdNaz+d2nTY6klQ45fTyFb+ggxu/fqNR8lQk3 1jTKFtQUSwS9221JS4ou09TTbEnV+3KA+FiimbOL8EL8PvBGiU6LkXZR+peW rqlw41ga2gf+zljyleL6AVEYIwlD6kksxps8MP44SuLRBF4VMs03/dMB0NPS TNSQXkxod/+Ed6IUEFIb6mi3LpOKQ2KyHZMRLhTWJnM/ofkbdhstSi5gknQz Fe+J+NfXBEE2INVK+jGZFDSmu9LflNdBrvv5ruDBT6c2nNvChqt9+im/px78 22VYjMwfD957MnhPzXxMHx/+RXkEq7xJdO0U1xe3+qRu+cUdx7vqo05xn296 VtcNV6F1GzWzJIdOHXjjNT/ohRokjWNE2WSHshZoHCCtjUOM9oW167hB89yX aQTnKDne1eBBg2AplqEzhbQmxpz9g/AYS/n3O8pnfeBH5Pwf7zhWdEjKUYWD jh/d06BA1N+WQ0OOfYYVZEWTNdNVdDvkcRAezWJN0R6ONRN/2pNcpp4mE5n7 Uwmq50jRvuI13Z5ICcV3Np36Uzr0Z356RcTR60E+jWMzd6prhILH+P1yPEKO B4RILIqgRLvQYm8QVtDo+9zDemBGW59WZk8zf9oVCn26MJdh1kUrUiBevbDg 2Iu60MouUs/qEzDSM+Oq/YKBAilURw9jcylTcZL4VHG+znGWQqDTqRkj//PP P993czDoBv/lVEe+nEFsb/dQlfQRaYooo0xzENBSP5nm8e/9kW5MXnPkxgJB onRu6xEQOwTL1sUEM2pOG74S4gMwUNp+48NPQaR9NMDwVArdTJYDDsJIVLS2 ReoiLShlhoVuVRabt4NTJNq1l+1zU3rzbHhuCpLVl5TvHsFkYanOnGmykWOL b14T+dvmfJQGJw9PHygQKuOXX/3qV7u/CVpN4ZqVQA4B3lcqA908RhmMBR+B MoecFtlB7Pn0FCcyTD2HYt2Cct7dWBcSzoxuHq9HABw760Ohik4hWAWQRtC3 TYzoNIc+Gqh2sJRDkNZkHKGglhK923kidhdv4QRhbYJxEYVFtBZNIt6240PO 6AyQiEbMBSFBkby/80foYuv+ukPSiDTf9kML2sc3bIFxvGp+NQJo++iBdXj0 QN44XBRDRAHvsaS74XDR4Qn7RVhA+cUZQ3UbsicnHbRFs3F2x2rA+33+zLqw LGQN2HLWAYIZUX8LVV/VMznO/mCNiCFqJWxAVBKrORDXBeZgswOTpL3ZMX3P ZT5lqPHq+qgwfeX0qzdN9POmrSaSgHy78nq/2D5WQfGZg4U1BdD+G21f4ZiP +DAi3SlgKjbCcxSQbGyv6eIueN+WUygmnjQRzYQeJQG93pto/2XhWibiB0Qi maTrTuRo92ps12vseIBLjpEqMJRYvEPWLI5vn6nQF+2xAQav2f1DQX/Mi0r3 DusTA7q7USa4XWqqlvtb8bkQWjI+ZUPxeDJ+t/oMiCnnPESU9nLxzcf3ldyo KhduVPPsfm9+shr+aCvzvgDlu4L32szRqOtfFSEz1E/EG+op0XV3QMKlAI4t W698PQ0gaXr3EPRmN/cEI6NMvOR6qEx6q0RjI9dFfY0kdSrrId/gP4ynn75u PtochhfU+rjq93SjN6rn597wW29WWXMTJLHx1LvQ3VzfW51Ld4B3HIA8ZT/7 QQfjLI8muBGQBRHRuIQzCI5/Hbu2YXE0NcFPlUhfY72XLRaishKrcd5JVqiM s+jTQs5lzrp9xdJaYSi3YQ1oqh3Oe4hXmQEUioXvgapBPfetOnUIAirV1dEX dq2OJj7OIbdT0jLTBkhfOuA4JfG+XFjuKg5EKdlCrTVHx1mznEQM+4lvUByY qpd1Ey12fDnBxCSJHY9IwBbVDI53iKaFxHeIUJYGwbJQo5L7v+3kBOi7gSKR /cR5JPc7SbWW2q4TnDBxPcBdzx2yy/B1JRKtnaT5sh2qJdR1+dfcd/SZcI3O Yj/N+kw0tUVgvTQLr8uVZsrRIGufz7jQfOVY6pAqISoxSXFcK/ZGq9q7fE8j 5RHYOl6DWuy38mjXunKvmODLZrfl+dZE18jmtlozqrrrVFbWKwzhIoO8jO3W 3NmnfcXfPKKTxRfaazbU26QtFHt38N4jlfS7afdDQXPUms7XVgGKvmz5QveZ bpUKGlMJuHXhc6kEIUcbPc5Sho3Ku7egxp0zsGrh8W6S+XG9CWENiZSVh88n EGhQO/1su6L9yKFv5F9jR1RZ/R0mr3XRrP1UXSD5rClSVe58ZNZN5fnu5w/L A+bpPWfLkYYizmeTI8vDo3m1N1JSnDksBz/L0vcWP+YZNcgu52hkDScGgfbM O8FzgNpCIUo1eDSpyr0MWeDRNDLUr/kcaJxOuTHtyyViazXBVPbb6cTq7sCG N9sPPR88Ys705MHBMrut1pxnLGjqdKkq4BCzl6T2yJ5rf9aGQA86oNhXOfvS +ETNaxkkX6bz8q4ajyzPGtyaFFEJesGl17ZSS/dVdGNiahV8YW1MKh5AQ20z LghDd6UOnvLKMvFC/12XWp9x6xXr+WJu4QNWpiCTpdZs/loizPk8iFZHsvIg x1hrL9gXHyd6kiDyZC4jv3Xl8Xybu4KoHn7dnyeoLHzjgRNiFITn7Mux+6xj HhPbV0VGEl5EKEobdqqGXxYJjLlUdrwC5G5/p7YZtEqeWOhJLNnuJ7Zn084c xrYcVXW8YTJqcVXzPxLce8BRG6sT4btDhwZEeZQoIUC1h6aS4NOCPTP3zuDe 01V/A3e2pBIOXdZRJZUOBTMmn0zwbSXqbwjurYK2UHisigUK656AjokOuCg4 MKamuyJKB3KP8T5SUS5l0qbMFGTGOaN9WMGk5tvPKii/ZxsPWDfmaKdZ5K52 djmugONENQmzCKFGibuLrIc1CqtaDB7RjO9LQvOaR/Tew84PGiOsi36uOQU1 ENjtftqLva5XodOFSNPlWLU/FbD/1AKHqcUR2083KAsh6EMDkeedCfSeflGc ByennnDwwUCKnAG6PIOOH59yDr8lmfVHJ8rXnjrGq3mggG+Yk0Y6Nex8aw8U +GCe1ZF0kqdEQGp9O8wn3frleBQt0CxS8afo/pKvVfgSdE/XWm+1fbidjw9A 8nqWPrc15Ke2G0oN9oMvRrJvDZOxnO2fE6VX5WFE+X6fdAb+rjtgIAqpEpsZ i1KRqamWoHDU1FTMx6v3JIlLE57RGU+JHvn/eRDB2Hxtj+OcxWkEuh5WmbJR wcpTjszU5LlbdGBBdETAlgDBgevWLVleH67WWaFHVOr3CQfy2+EcA6U7K9CY hzrlHINfkMWyqmeKqmyR6Nt+1IE9YtlDrLe5p7/s93SZ9KrOF6VbjN5POLl2 TXo5qxMR2Nz2uqIC1W1+IqhictknR5UCfy3RTXT8Nj84wUYCYL4AZoJ/9JSQ B1L7YQPR+QhPyz1WTo5YsM+8+/mgrXfbfeh+fCjd+Gt/16v2u08fF87JNrX9 TIetzf7QMdSN8M34XaCgq4c/L+pS08B6y+u21fSf8653OQCBb6tC0biv35Eg jT37I1mPqDAmk1DTpL5DCtG3eapRITq8ryKhJPpKoH9Ycmqvz8jYSt+xz2vH ClJDsu9VF59NdfEWvzWqLsau0wLN7Dkv8y6BI9CB8WDJGDC2/V5U9wxAgluI blqW0k/VEIg+SH+vnHS3ctJtDm0UdYMwQZFxAZnsvCgL/LF3qbuLmJW62UES bfSFx5qkXeq479Uj1oI71OXlMfuYO90gD5dzpHYac6Q7MiR97TpHt7k0bb/l MsMFUfnObqWBr3LZmoq+mr6ukLoPb5a57VKP6y9rJdpvv8dmVCV3rMJtpxKr 8y3/O/+NTzihhuWMy6ugrm7hsi2yaarU/YpAQAQAG5NlQb0k9AVIzkfortJ4 K+uG1OIbqy25FRVDkLpRczVg5DAOfFCoVs1P0nSWWf+VQ7ohpTPAzGwJDjzk hBgrvFDCnaAoR1fIutZIifK0cHntTkkVDtUu9pH1X49Cqtd6a6rdKPHUAY6c hV1KV6Jk87MsXUHlaa4Q9R9KxigbSE9P0vsGF2w7sRpjnXOndI5e9i+186wP xQetk4K1ifpqA9fqgKvPZV/WRR6D6hNta7AvfPNbx8FBQ44ifH1nNaFyKS9T duGX7ViD4prm8qQiFPydkQoSuJ9VNeUMpHsa/dEvpbDLleTaJ0AXWhJX9asg wGByscUg7/uyq7NT1Fmsqp7d+1FmRw+DYo9P+bVmUBpV1qgU8LavLdpGVQh1 X3XqpfZZJ+T3MPaxmhzHsYYPh4UR2jwCCZU6pTBCmUr7PlVlxMHWyoiRqoWp BRKkf5CQb5808JcpZz/fuo1JIhO/NGwDKkX8FWXd6wRg1UUGcOQBzYUcJch3 NasAtP02eEaqADD1Iv5g/TxxFcB+oSaCTP6uzb+cbN4m5Y+X88ar9Z690im1 7dWpFFa1RftKXhDQXHbxu06UL3aAR0DClIowjdCTAFn3u5EqPztBrjyo6353 p/O/0iFifz2wbRrT15pRQggfniTBOsrbVqK2csKVQKS4J+a+Fj6LkraVOJpX 3lLYFXx1AEnR1uWoTn+nqx3zymc7JJYj5rpHPlVRdz9T5kh2GtTqYAaJOWKi GoiY9qCwU8pyuX9DZDCx32EOcdTJOnSnqeLUpbRSye3pM3xBW4pqYUMRZSWW RnMXPt1N4nE7V/tSYQ+0sspv3hz9GrnTJGt3d/6jnEvtvp7LWZn8wVaPCsRD fk8jJVMSp4egpMwpZS2VFjyeq87QaiVtJuv1DoZmHLMeKzezuzyWcTwErY+F qJRozfOdMj6B7NfL+LtkuHY9/mca/1siCnp1ONmzX0nv/VewnH4nPf+WT6uW ZWBFfKbsQivVtYsvyHOG0NOqYfR3B/fqrOAsLL+R+n6P91adrPB2v41AuA/k enAzl2pXoMtf59poS3jkLu8b7vDXojPs18EoHfS/nqB/byC373BGLCZEFlij wL6MBYQcsbLFvW2f495/YbLLinq9QB+N3HXyayqW8WatnuIUxEESD95ZhOGh cX1EB5n1LDA+7c02OXqyzlxahRk4ak+P2aCVBGcOBiELTTaQnVwMiyhyUS+P 2Dg4fI2gyawVNWEB4rPuPdUBojJq0rNeSm3P2x2rwdKj+4263Y6jDcDuGSvz sNSkZLMTfotbqaKiyGnt+lUorQv7EA7J+/BleYf9T5VqiVjqKwhzqjDXXwLa g9Sfv9yIimAHqQHNwkJg/zHOA7pcjNBqAj3hqyDoQGKF0rUM07wlfKZ/1wE6 +xzFMrCTVQS07xaB9FkNA4assnorVOS2uVoNhKDJMFdroPKZMxpZzy+zQDvE 7cTzRaEMsVFU/3JG/rbozhbPfuxs4iHCyxphwr1qlcE9epoZU8hURZjrkkBu sXItU0lgQRVKMN0Lec2X8oITfMbprWaSqgn4VzGXc1vFYT98NoAzVc5iMHUr W68LaRH1GFBh28B57RyOoOEiFUcXCU2JsB4rSYw2lyNFfFlGCYJSURCjvTnb BLadw9BX7BmEm/8RkN0Ynx1nxz7Ov5+Pf2DxbLAj23Lw2AR2DJrUrzVCSdu1 9Vb2RIrV3YsCVOUmXtltQJqxuBiU1XJzG7YM+y0yiyVVfNMD9aSt6aqMXNWr g35ZAdw2xrBbom4akWmfOx2cLSSAl9tw7ZqQpDDE8pnGw6XzO+9nuP+m1CkH TgQHSihBCqEA7uYhFPuDma+iZ4mNHwyZRVVQFIzjPQwxNTpaQTk1OopYws0w DrotHqhBG+yPVuiTeCD7xdgmNsnM4DDRrT8hz70LDciDuSZe1hw5tCwmhSK1 TJt7eyOQRxU0GoQts/5K8HfTx0ehR96KGWIJ1tE4n72F32Yofz29fVgnBud5 j+J+ibh3FEXWjcBpkXrm2/n5Pe03e45HmaM1M0aT3+rFqQ9nlgqzFc5M45zP ilA9x9pDJbydAwi9f6jVOlEykpb2WVd0xzB2XfF3xkKkmrrO8/UILGpllJVN fbE+/moFz9Cr2wutV9g0Cr8+KsPz7n0OtMYnIYEcD6PJRfvBvTscpLEobpta zeGZPM0sioYf2valz6s5qIB3R0AhxtPI8EFw77qgUlJyr0gvsv968K6GDnF9 NPpFX5BzLPIMOXW1X0+AQe1W9HIEwzCEVur2pet2nTpOPVdVoulQNU313jWB AQF5Y9CfhE/K1YIFSFNalH8hCMQdC6tf22Vg/R5WuDQaWGWYALSmNGgAmjY/ IX0zZvSeBqC7v7sfHzq7G7PX/B9el/Os\ \>"], "Graphics", ImageSize->{603, 154}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4154121407917213`*^9, 3.415412142134761*^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", "\<\ eJztWt1qE0EUnuyWppbEn7aKN4GIiNIa1Nx4K4IpCN6IFwFBCUVowKXS5ioI 6o1gHiG3ihJ9gVx52yfIE+QJ8gRxv7N7prOb2WR3s2tKmaE7O3tmznd+ZnLm ry9ancN3TqvTPmhV949bHw7bByfVxtGxS7ILQhTuCyG+VQXKU7foZ1P3b1pD Bsrqy3/xgqriqUIQtvC0pabinob2JLPm15FbYjweX0vGuEP5muj3+6LRaNDj lq+mQxkOh4TUbDZFt9tNiHKZ8k1Rr9dhiaSfnp5SO8dxWD9ISoVe1KJDX6Ba hG9TOci3tBhAttttKi/qqAFeN1DBNgKNk0W5Tc5mxi3JUVMgQuhbkequa9V1 fbETE2YvO6kuLVepemcOBoO5vBmI1/2kDWxKWAq3unEyh/HlqprvBjXei9J9 EURKX96N2e5iiue5aTQaSZobc67ko9U25esUyZAws+BBcgN2XKkM406ixI6Q BQMqlQomLN2clKHymBIxV2GGwQMNXOlxlWcaK4wvizxiy2885XysYFj4jsO6 pbQDDcnS8MZ1bMmnAQtyzmSskbewVPFNPUeWEyNZjkk3a8s3yHKMnV6vJ0ct jM931JZ96arVeKAJO90dxRapE1w2JTO6FDAaz2QyIREcW/AGzR/5GcQYWtjT wo7BIJ8Tr17g8MCPmDjYOh7wKgfWucxh+7m6EitLlFeydHNRHxRn+gCOQIJT dDNeUUPbiOyAorYD0K3o1LirRp23dXrcSm8uPJmnuaD/d3P1Q09Vb3tpk6MH K0yPkpGT2boVRlxzlln0GDWNmjNq0vbhUpQiibYUc0S91VTtG1g97B3kFKMs WdINASPKiDKizoeoXQlLJV1AnQNxpNHskYEwEMtD/DTNV9K843WYu2N7mIzx hPKZm7MH6VBCN2cJURzKN+nIA3pwAhr2otikKTdnCdHf+zQgIXk3ZR4NEhhZ d3tWSycqeFvm0dTDljQdxthwBqv4eHn1UkLAmbAGRzd8AKMeJSUMH45PAzuP AN4+48SA25moFNX8mRcIhBrDXxsIA5EC4rls/gal217VLw3Sp4tdRa7J+N9t /nhCMB2cnVnj66NX/5te3i0WQh+mKERWP2iHWiGMo4ZvC/SteM7gK61gqx/0 Ksm7Dk58NgquaE2+06tMJ5/+TQlRYBpCOR/uw8SQliIAYcv/Y8EXT5vqNQjT IArwqAtBQE/W4Gs0eqgKyxcIATALUa//vqiOsqWp3phBCh4kf043MkThH2ZA 9uI=\ \>"], "Graphics", ImageSize->{300, 137}, ImageMargins->0], Cell[GraphicsData["CompressedBitmap", "\<\ eJztXUuvHMUVHqbndWfmzr3XNiECLiEIbCQMSIhnIIACcd57FCWRLECxISiR IY7EKotIiYiIkkgQ5CxiZRHkbCJnxYpFNv4F3mRL8gP8C5w+Vefr+ar6VHX1 3GsHoox8Z6Zr6nFedarqnK/b3zn91plX3zj91tmXT9/9tXOnf3Lm7Mtv3n3q x+fqouqWwWC4MxgMztw9kO/X66/6dr3+59/25E2K/19wwIJX3MdscPXq1cHZ s2cHL7300uCdd95xpRcuXBicOnVq8Pbbby+NavInr0uXLrnPuvofXbW5K0IV +S6l0qtcS4/SxbVr12buh1HQa/05lIKhu6pcdXRxXLu/cuWKG1F+q7txpVIm 1/KSlk33W44PeUmVRNXB+6E4mPCPPvpo8MknnzRdkDgeeeQR9zN69WZ6HVUv uItF01oGkj95SZk0l080EUI90eOga/mU66ETYtUoZ39/f3Cru6rc76rawa6W MdNDLWMyt4wyq94fPIXfdR9LxwKUD7LlFykXMuQ3kFd3UxnUjNz7xDURzYs6 VPte+V6+UpyR72+VIBlMBoZNQKZQsvwmNqZ6GLphjzUqgdikClQjowlBtbId UTKEfJcu8Rurp76uVHNSXarKldiQfIdUYfwy1DbJBSSM3fuqmCMIQ0ioyRqq WllWkB1zI2T5CeYnH+rX3WT0/z3tHXJA73AA0pMQLp++d2/GmH/SRr6PSBiw naFOFTFwyJXdAhgn7Q9+p/1gSkkZyAdNIrihmpzqCbobqg0KO2KqIEW+Nza4 1wgCBhQ5q0YN8CrSnJ2SXA9J1VIm7Sz1T5IcLQOOWOrSFzsSpdc32wE3LWVh woJ7tjKw/AHrferkx3MG80WqT0inmORVpAtpB93rCkC6H1szfPB7lYuQiHUJ E6HWwExJg6NgZaEL9j+Yl36ebbs2MGUoFJJhYWNOy7WluGkJmZPWvFQSYR6g WiwRAk3Ow2lDJBYq9l9ojsWL9YH52DjioVRh96WeuxEltIDfMA+UfmgBy75w DSngO2tB6kgX8HZYBdAW9ip1eP2XT6xzTmzyqhxFkCiG4fVprPWg/HW9JEdT kj4mNS9KrGM0U5MeGU11In1fBxUepBjuWNf6ZaRy+byoWsEcgu+VJislSAgA DyAI1zWhC2KVXbeaD7yj/CSjqAefJa3cJmY7QYzUhVOov/+JJTFtLSXSCr4Y 4oCkGnNVE0abD5Qq3qPJqMLvjo4jVGEBlE+4KClfaM+iUyxJdb2hdABzwqLp eUxLxqJhRTRAB0IDrFw+VSzP6QrLK5V0wzsuCBMbP3bocCTCCsoWkVUJibwC g4wt6g8r8IoUzicD+W7Nvp+SG4SKpH9huebhuHYn7PCuWj4tqc7y3f3dC+1Z 6pUtT1rEC69cQXCsKxYcGFqSQMTCuR7ayhgQMLsX33beuGjmGMqk7dJ5NRE4 QXQDxyhV71M2cSrjJWpmkDAr6POyl+ATagDSXF4iBamC7+zlxkmJjhoT1UPA 0NFZBduPZTQZeOOvh6tabGtuYA5jFSisWJQE14LVisiEgQuzWEHOaxfyXZrw SiS/YNKocO8lk8A8PNqvi7+xeJcNnXD5kAEvb3RCtmx3FImGlzc+AZ6kSY/u vQiPNMcZLFDwh3yahi/EZlZsVz5pxpaS4t5fYUmMAnus64JTLrbs7AU1bK4n FOFaBFpTPtYOhHgQjpniGr3J1MyaTZ9S0whBJ+dIiWYnXBc7WzghF3OamSBV /njnzyRX2iEWJTVQ16HbE56Ut8eYSG+GmEjWqgRv1aWOR2lmgPGKyjDhtgv7 a6vX9wO/gb6hDLn6NnlW8MTnTvR/lXgHn2eoHuh/0g//byIZeniKSEKs50Ua Hl28Ju8uvqKd/csX1Dp9hkaEGr8SSUxM60dksXAIj/vO/kF+oyAutlB/XBK4 gnyxc5KyXTKwkrgadrus1+2IBiwt1laEjTzeJbXjUrMWXxwgqPvnTZsVbOTd B89dPt9AUct+ku8bkTxmcLlD9gKuhnr4jSS31UPRQ2+QtR78NBu8rm4HG0C8 RFPPu9+ONvEn0AZW+8SX4PM9D5PGvqPo5VA37aXdqniqSFrXr6+jg6Igpl65 GaoxcTANP2OTj6YwUSOcakVTrV3oWM0xFxIcaqSB21nrN4encO6xxpzoO2SP l27OvSkugtVGSIK840iN3/PL61hTB3+sE5ZoKraNoJFOkTEpA3v0DayLY7Kp 0HhXTDap40mg45YldYdlR+pFChlLa34rKINo7dBsFYRmrXmCMmEWnOmK84ZB wvPKBaKSIAF1EJPT63QodW2XnNGoP4fkudEENoNR0t2umROGrEA0HAN7cQix 5giOwWIoDloinJsM5FdBIH9K8gwdw7IVYo0jxrgWEkiull+AXFN+wZetgrYY HukXlMMqsObUrIyoS0xWX7ZosjawCE7NxH4A5GJIGR5uEvoDyWW67zCpcWBS 4DhOd2R0OrCyM33D82NiO8cSxzoRlQab8fwPsg3TVni+a0ZgKIin0AXk4tug qvac7B+xo8LpxcymVEE2BUHWRFS8Up5zKQic+2OxJRhwkezBXjDjYdDQemkC J70XsObuOBgDLA19HKTdyEqKWj4GMxb6lZevMWlsBe01KoGALsSpVdJzf7eJ KXGmJs51cQYOp2oNjaWlktQ9DtWFOTnt2Uvt1o3UmbGaZFpnkmeiUp+cSsUp 1UjFxTbM6R42mvQ8qBo3J1ePdc3zSSqDAjEnsh9batFWVq2jKSZNe9Vuz+Es cdMgYgBphpmjsZm/g6G3U0CT4DQBRdaKtZJTE0Os1qxNZ5yW5nCwRe5DrYDn DO+lNcfCNhDO4FGjAo1fjbWY1eBcgwgsPK5aPBXZh5117c73LZNZ14RBzJMS DiPeRVS3V2CleBhJUjePEHrboEORFUzGbALOzqrNdbwos1plmvAMhP/DKsqR cvZ/JkXrfC50Iy9NKjYz0MrdplfOzmRlItjKEof7S2/JZ0F0kFWhXfoDlk/E gndK6VgTDfyiTGSA/SM2MjA88MUyye0c0prfNnPqHTJs5lkqr55Q+yq5AuYs raWrYULTUSbYypNz2kZe8tm5m7Uzt5CtlZHdy/yGGCUfh+QvnR2eBMFFAi8d ScqzJCEd7unTQaJFY4osmjgCBP1hLyps4DdrZwhzhxg4X4cAp9gAXHVO3LvF PNuqVGLAorzEWLaSIunGAqTy8HGyXK4yBvgNHTSRoN7N/7wiXcBZ3WMw9Xmj XtoeRk3SUymFagDFAxXyYhmGULxxgMtASB0mzafoKs/l/UpVMb4k2dMXSA5Y llQ5r+sgyNUr698kx5zKge8U1MHZgCEG0BTvQKApDsNYuXksXZil6wDBuHGb MhbisLx1YaekG64YPyZXe2TJWJOqAlbvJw3HuZw2C/m+7tJ2vKeLZhMiyXL1 dfdenF1fblK9ak6ccvU0WRQW12MGZbw3JEcPNXKU3ofZJ0FiCjnUWhd+Aq2C pQL+uRiUYCNo9vrJ4w4yGpwHNLOERKr0ZCVSIaoXqQyJ84eVQgum8jjZA0Sr QzopvEbyxLgPaxnDMNCP1EE/T1I/n4L7KloFLCuk9J4zyn5llH2J+MUcfMGo d8Yo865LRbYOlTLQNU7nYqvKa/S8R/t7aLbYSdRx4BKQAmE8Y+ZelD5J0y93 khJ6p3nUdy7rbYlph+ZgQbr5NvfDIkgVM3Y8Zsf7opq4fRVVUSY93KDKSye2 BeEbJZVfLsVZPymcSAjdkoDvellkh2RbOgsAUGGR5WBWfABeFra9Rx1g6Q08 FngC9xdxmXEbUun9O8/2JMnaBafv4gnFtKMm3f+eJwt/0n0PE6eisDWz+jui UyGRJt9RETHZYbartYO1uF/0lPRsA2lZmJPdjGS4bJ6RqlXGBuh5GzygHW2Q Cw9zYZYtbQd+pBRHUDqGl9JtSVQMELml2IV0nnESnJDkT6Mflc5v9ldQLPxY 8h66PuiBohu7Tt40gew1AunTX5Q5zxjOJDAcCLyBeCwDlmKpMZDk8uXLfs7L mNNmdPTKaeh0mHPcqRgy1VxaF1AmubLinVNdKGIMmJCHY3LdB+LFBiSgOXcy 0BO/ceYGrglhBMNTWrhU38XRjeZ13qRmwRzDbxB4g5KaDD7++OOAA/1uIQs2 u1/zyIGMmspYTxEzXdbDU8JCman3BjC8DJUxaso045megNOmKWRziEPsKgsc zMCSyKH+siHnpTljC5UzUk9cfhPszLwJVtoE2I9Fr1szHzxUiaw2yqJfyWHE Rg35egLI+e7YdJQrRlaAqRD7s75pFNif9VSZBAEWQhRYgWM/kfO3y168eNF9 j9P8IMHaEFpOe6bv7PChO/lU7CqANhGOw7qLEyBMROThIzRwGiSR2MKiENLB ZvJWkRH5hdXvZHhhjY1/rcetlB7ZVA7hFmuLp2lsxYHCh1FfDUw7AnLBcACj KkUAqs9+UAlPoFC2jN7SaNFe3SBzk8PNdAB98DwLK+efhlOU3Gw+CQ765PxK b6c+eWO562haqjZMrhyV6CN9q7sN5snB3ZkuVkBKmhbt6RT92n/JC4g2a6dG Z0jCwgR3AqN7sMr7esSlsWdk8owY9QYTB+7csgFyrmmrXJq6yeh74ycQTFtr DicQcvPGslIum4euKgHBmeqSlkB3WELv1xOMC0u0txR5r4LdGoOODcRRx+CY 9Ra+IufToFKMxicP+DR+YAP0l0YnWSCKB28Ybx0Aqx7ahVNL0MicBxINkWQt XBSH5PHqgP71EGzaTK0Rd1sjApou37kP3orQTLfuNU97vVGzYqpHw2aOb3uR P06kbTDx4O1S2CLdm2XRdAsT1ZSyBXTFIq67S8M8D/ykD6wVvM/k+arMYIOe waqZ7tFGUyGEy0n8HM5vn/gywFy5pntEIfSGo1ji2SRzFUkHqOvRzYna7Skb oKoTQzUKywHlLIRWCqgYcco5Ekwva7vj/Lq/N7L9XC4IW6wH3/l8h81v+sw3 CRYVzPVaYduGyHLi31G2hUS+CR67GmV7nlcw5irCF3oi7PswmVUZMQvqFnYc zbQ0/C9slsOv7StTaQhgDvcWqgC76zh8hNuapO+51skB1R49EE05ucwCuWDF sOGVeUxfF/6xC4THOK908LtqQsRrA5w0/bLbvob7u8OJBMwggidYd6QZQ2JL TAUHZg7/x+zNO1UX3ljX93lDO8U0hKap0YaHVCgJEB7Anzhf8RKbaHJf/mcL BomNHEdRsB/ihxvdqWUIdMnVwyUM9OIvB8rkejkjhStjI+UUipP9wJ0FLCNl x0pwO/c8gD2DlA6VnNDuohu5NngI011ELLSnloTHAiHspbvOW1UuOeTgKpLa mqV8u3sL6mBlZJAm7I3nE9sbVvg7qR6EsbLZ3C9ms78oLOzpbURafAsj15sR W4F1MT4BP6RNcRKAJuVPcQ57Br0lqjuuYsRtX9rdpo+2AuKVtax2ua0MoDoU p00x1YQ/IUL172EXxfDKbbUNKeYzRGHzL/YbbU56gk4AB8fRJPNUrtsj81/f RLJVhFQY6u2+JC6dKsUcLDYRbxWIF2heZEzl6qiWsd/k5Dp8JpsZXoDysvog ibq/vYNp+F5VD3ZQeog+0k8OtxuKX7KZW4/ZnQaP2YX545EppQ/22icVYAV7 lsQNch6geuACgc+uLGpEG9w0FlImjR3EUwZpKMNWSa5eNOr90GBB4YP8RECs 2/EDbYVqYCKZpD/rdMrlNeQ61d69fzWkg73y+kGun5Nvv5TyhWo7F3d0y4Zz +A/I2zwcAQdW+cRC1GUX76uGs5GEbh269ydCU0Z3DcOD8FGgHyrDudOVK/lW 2C/YlHrWszE/jBS/nkrhOvrzyNtcI5D3lStr8PYv/PAr6jb3hElg6mM87Rpj cCj4W0ghh6lF16jbgVi+I+Imta8614OEw4GnL8xstSEdVXatB8anx2JFqqm+ 7iki/zTn1t1pvCmB6TykPVtoUanHYPlasocFLuV4SZyu5jIro2mB2+7U+Vuw MTlXOPTBAdurFmYXpMUigl1pcBAPPo6tAU1UeaXC8U9G1tVquxewDHr2EIvd RucQJsPlODiQhUDOW93w6iHXAdAyhMyxCtAc96IfGD/cHw1LfVii//VhUfa/ iWyO08OcMmacKhC3cJPom2/3kbkDz9YBcd4AC2nMJ9xC1QX7AT47ei5N4LwZ CxdA+DZCo2FLzokE9h3CszWP+gGZEjDLjudRhZjELvzbu4dB0WccW5oGwTFw raL2WK4AlBbJclgFeUu4DT4vwnODRaGtDUbrp8UfeO6fVvvYAPRC0ksDkrZN 0AsL2gI6WROhA/mSeuyLXpeCxd4tGeXTDsKzRG45TSSD43OU2hokzvi7IqST 6ZphaRsCDhRC0AMl0gH+gQ4OBViQfDoKIx/krwB/8puNBvxsgqsSjzyyzZTj MTDTeiCYaQypykNULMkHPjGfP++AHCy0Wg614BYqb2+8IDEUL/R9/f57mAjI 8F6mi5uISeE7GME1PwxKXlLXnTR8yIMPJYypzyAGXg0VmUvh5jLb2afVTBqW kXXVZTudHtz8gTXvZdrfbJwD5+uBc4h3Mwh1+aOlr5NLVKvCnqH1LfmMmfC/ +9ggl/nX/M83LvXNPUJyCAKBdg7inmeplKTVxtb/4NHkpvvm1i4V1LmRGVzs AjnVCWAJb3VZbELHeZ79Pf8jGPu/E+n5zJW/9Kv+38khcvoMxihSR5wAkUnc 1fYzL9WztJxi3a5H/qf2amWJOBWjIXHHoHv7lD2/5eYUDG75D/5yGqs=\ \>"], "Graphics", ImageSize->{527, 104}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.411012385937496*^9, 3.411012397974473*^9}, { 3.411898905463442*^9, 3.411898906117632*^9}, {3.415412175801692*^9, 3.415412195388277*^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.415412288429904*^9, 3.415412291344651*^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", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{487, 40}, ImageMargins->0]], "Input", CellChangeTimes->{{3.415412345410578*^9, 3.415412347789234*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"g", "=", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"ko3", "=", RowBox[{"10", "^", "logko3"}]}], ";", RowBox[{"kr1", "=", RowBox[{"10", "^", "logkr1"}]}], ";", RowBox[{"kd", "=", RowBox[{"10", "^", "logkd"}]}], ";", RowBox[{"Ko3V", "=", RowBox[{"Ko3", "[", "V", "]"}]}], ";", RowBox[{"Kr1V", "=", RowBox[{"Kr1", "[", "V", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Rt", "=", FractionBox[ RowBox[{"4", " ", "kd"}], RowBox[{"f", " ", "F", " ", RowBox[{"(", RowBox[{ RowBox[{"ar1", " ", "Kr1V"}], "+", RowBox[{"ao3", " ", "Ko3V", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"Kr1V", "+", RowBox[{"4", " ", "kd", " ", "\[CapitalGamma]"}], "-", RowBox[{ SqrtBox["Kr1V"], " ", SqrtBox[ RowBox[{"Kr1V", "+", RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}]}]]}]}], ")"}]}]]}], ";", RowBox[{"Ecor", "=", RowBox[{ FractionBox["1", RowBox[{"f", RowBox[{"(", RowBox[{ RowBox[{"n", " ", "ao3"}], "+", "ar1"}], ")"}]}]], RowBox[{"Log", "[", FractionBox["kr1", RowBox[{"n", " ", "ko3"}]], "]"}]}]}], ";", RowBox[{"Vmin", "=", RowBox[{"Ecor", "-", "0.2"}]}], ";", RowBox[{"Vmax", "=", RowBox[{"Ecor", "+", "0.2"}]}], ";", RowBox[{"Rp", "=", RowBox[{"Rt", RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{"ar1", " ", "Kr1V", " ", RowBox[{"(", RowBox[{"Kr1V", "-", RowBox[{"Ko3V", " ", "n"}]}], ")"}], " "}], RowBox[{ RowBox[{"ar1", " ", "Ko3V", " ", "Kr1V", " ", "n"}], "+", RowBox[{"ao3", " ", "Ko3V", " ", SqrtBox["Kr1V"], " ", SuperscriptBox["n", "2"], " ", SqrtBox[ RowBox[{"Kr1V", "+", RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}]}]]}], "+", RowBox[{"ar1", " ", "Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Kr1V"}], "+", RowBox[{ SqrtBox["Kr1V"], " ", SqrtBox[ RowBox[{"Kr1V", "+", RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}]}]]}]}], ")"}]}]}]]}], ")"}]}]}], ";", RowBox[{"ZX1", "=", FractionBox[ RowBox[{"ar1", " ", "Kr1V", " ", RowBox[{"(", RowBox[{"Kr1V", "-", RowBox[{"Ko3V", " ", "n"}]}], ")"}], " ", "Rt"}], RowBox[{ RowBox[{"ar1", " ", "Ko3V", " ", "Kr1V", " ", "n"}], "+", RowBox[{"ao3", " ", "Ko3V", " ", SuperscriptBox["n", "2"], " ", RowBox[{"(", RowBox[{"p", "+", RowBox[{ SqrtBox["Kr1V"], " ", SqrtBox[ RowBox[{"Kr1V", "+", RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}]}]]}]}], ")"}]}], "+", RowBox[{"ar1", " ", "Kr1V", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Kr1V"}], "+", "p", "+", RowBox[{ SqrtBox["Kr1V"], " ", SqrtBox[ RowBox[{"Kr1V", "+", RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}]}]]}]}], ")"}]}]}]]}], ";", RowBox[{"RpVcpROhm", "=", RowBox[{"Rp", "+", "ROhm"}]}], ";", RowBox[{"ROhmEt", "=", RowBox[{"ROhm", "/", "RpVcpROhm"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "Zs", " ", "*)"}], RowBox[{"ZX1Et", "=", RowBox[{"ZX1", "/", "RpVcpROhm"}]}], ";", RowBox[{"Zf", "=", RowBox[{"Rt", "+", "ZX1"}]}], ";", RowBox[{"ZfEt", "=", RowBox[{"Zf", "/", "RpVcpROhm"}]}], ";", RowBox[{"ZEt", "=", RowBox[{ FractionBox["Zf", RowBox[{"1", "+", RowBox[{"p", " ", "Cdl", " ", "Zf"}]}]], "/", "RpVcpROhm"}]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rt", " ", "Cdl"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "Kr1V"}], "+", RowBox[{"Ko3V", " ", "n"}], "+", FractionBox[ RowBox[{"ao3", " ", "Ko3V", " ", SuperscriptBox["n", "2"], " ", RowBox[{"(", RowBox[{"Kr1V", "-", RowBox[{"Ko3V", " ", "n"}]}], ")"}]}], RowBox[{ RowBox[{"ar1", " ", "Kr1V"}], "+", RowBox[{"ao3", " ", "Ko3V", " ", SuperscriptBox["n", "2"]}]}]], "+", RowBox[{ SqrtBox["Kr1V"], " ", SqrtBox[ RowBox[{"Kr1V", "+", RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}]}]]}]}]}], "}"}]}], ";", 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[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "6"}], 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[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{ RowBox[{"10", "^", "6"}], " ", RowBox[{"if", "[", "V", "]"}]}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(\[Mu]A \!\(\*SuperscriptBox[\(cm\), \ \(-2\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(\[Mu]A \!\(\*SuperscriptBox[\(cm\), \ \(-2\)]\))\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"1", "-", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(E+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"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[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{"1", "-", RowBox[{"\[Theta]A", "[", "V", "]"}]}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{"\[Theta]A", "[", "V", "]"}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.7"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", 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[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "1.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0.60"}], "}"}]}], "}"}]}], ",", 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[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\\\"\\\\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", 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[{"0", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0.6"}], "}"}]}], "}"}]}], ",", 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[{ "\"\< 2 H,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d2\)]]\) \!\(\*SubscriptBox[\(H\), \(2\ \)]\) + 2 s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n\)\(+\)\)]\) + n \!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logkr1", ",", RowBox[{"-", "3"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ar1", ",", "0.7", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkd", ",", "8", ",", "\"\\""}], "}"}], ",", "6", ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logko3", ",", RowBox[{"-", "1"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "2"}], ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao3", ",", "0.3", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "1", ",", "\"\\""}], "}"}], ",", 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[{"V", ",", "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", " ", "f", " ", "n", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr1", "[", "V_", "]"}], ":=", RowBox[{"kr1", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "ar1"}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"\[Theta]A", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"Kr1", "[", "V", "]"}]}], "+", RowBox[{ SqrtBox[ RowBox[{"Kr1", "[", "V", "]"}]], " ", SqrtBox[ RowBox[{ RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}], "+", RowBox[{"Kr1", "[", "V", "]"}]}]]}]}], RowBox[{"4", " ", "kd", " ", "\[CapitalGamma]"}]]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{"4", " ", "F", " ", "kd", " ", SuperscriptBox["\[CapitalGamma]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"n", " ", RowBox[{"Ko3", "[", "V", "]"}]}], "-", RowBox[{"Kr1", "[", "V", "]"}]}], ")"}]}], RowBox[{ RowBox[{"4", " ", "kd", " ", "\[CapitalGamma]"}], "+", RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{ SqrtBox[ RowBox[{"Kr1", "[", "V", "]"}]], " ", SqrtBox[ RowBox[{ RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}], "+", RowBox[{"Kr1", "[", "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[{"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.410925648619673*^9, {3.4109257137752953`*^9, 3.410925931001933*^9}, { 3.410925962783224*^9, 3.410926039061837*^9}, {3.410926141628758*^9, 3.4109261865971212`*^9}, {3.4109262351245003`*^9, 3.410926235632906*^9}, { 3.410926460538295*^9, 3.41092646919339*^9}, {3.4109265185715847`*^9, 3.410926521212974*^9}, {3.410926563750085*^9, 3.410926588842351*^9}, { 3.4109266673503532`*^9, 3.410926689245442*^9}, {3.41092672586158*^9, 3.410926726939378*^9}, {3.410926834128446*^9, 3.410926841127451*^9}, { 3.410926888512619*^9, 3.410926898799737*^9}, {3.410948286155225*^9, 3.41094830480709*^9}, {3.410948342943017*^9, 3.410948370822774*^9}, { 3.410948414514083*^9, 3.410948420041129*^9}, {3.4109484535241756`*^9, 3.410948475580389*^9}, {3.410948545505292*^9, 3.410948556483491*^9}, { 3.4109486081637506`*^9, 3.410948639113728*^9}, {3.410948686968917*^9, 3.410948786916319*^9}, {3.410948820525895*^9, 3.410948889716655*^9}, { 3.41094895982858*^9, 3.410948973563656*^9}, {3.4109490123964453`*^9, 3.410949039378408*^9}, {3.410949093988408*^9, 3.410949119312831*^9}, { 3.410949181859564*^9, 3.410949207457135*^9}, {3.4109493969999723`*^9, 3.4109494162920523`*^9}, {3.41094951686439*^9, 3.410949523211501*^9}, { 3.4109496137771883`*^9, 3.4109496282488127`*^9}, {3.410959864850168*^9, 3.410959865242928*^9}, {3.410959901271183*^9, 3.4109599688163233`*^9}, 3.4109603353331537`*^9, {3.410960504365419*^9, 3.410960507542637*^9}, { 3.4109605570033283`*^9, 3.410960583845331*^9}, {3.410960650615024*^9, 3.410960659904011*^9}, {3.411097271404196*^9, 3.41109729206514*^9}, { 3.41109777544621*^9, 3.411097827161977*^9}, 3.4110981362563047`*^9, { 3.411098231777171*^9, 3.411098234371532*^9}, {3.411098351632798*^9, 3.411098355358942*^9}, {3.411098478744651*^9, 3.411098532262738*^9}, { 3.411098675342705*^9, 3.411098748142037*^9}, {3.4110988600272293`*^9, 3.411098868766309*^9}, {3.411098969991897*^9, 3.411098983768099*^9}, { 3.411099037313346*^9, 3.4110990407842712`*^9}, {3.411099231566811*^9, 3.4110992946822*^9}, {3.4110996036854067`*^9, 3.411099605968742*^9}, { 3.4110999146938953`*^9, 3.411099937899756*^9}, {3.411100039417227*^9, 3.411100044148691*^9}, {3.41110007747233*^9, 3.411100084462134*^9}, { 3.411100125092394*^9, 3.4111001334813023`*^9}, {3.41110017624308*^9, 3.4111001801453867`*^9}, {3.41110023825616*^9, 3.411100272260347*^9}, 3.411100346782695*^9, {3.41110052452916*^9, 3.411100579951339*^9}, { 3.4111006168873997`*^9, 3.411100624365026*^9}, {3.41110067009149*^9, 3.411100751325039*^9}, 3.411191806874021*^9, {3.411899264502413*^9, 3.411899479013255*^9}, {3.4118995115764303`*^9, 3.411899568816457*^9}, 3.411899678116591*^9, 3.411899712789147*^9, {3.411899752022092*^9, 3.411899788809211*^9}, {3.411902322280427*^9, 3.4119023707148113`*^9}, { 3.4119038902250338`*^9, 3.411903957930275*^9}, {3.41190420253047*^9, 3.411904251298504*^9}, {3.411904424369607*^9, 3.41190444736909*^9}, 3.411904572642956*^9, {3.411904619076824*^9, 3.4119046475401993`*^9}, { 3.411904689701951*^9, 3.4119046901882553`*^9}, {3.411904796198553*^9, 3.411904798386999*^9}, {3.411904888551683*^9, 3.4119049056358*^9}, { 3.411904992962553*^9, 3.4119049955202*^9}, {3.4119051325587807`*^9, 3.411905137578336*^9}, {3.411906124755437*^9, 3.411906143317252*^9}, { 3.411906239155661*^9, 3.411906252758315*^9}, 3.411906868072501*^9, 3.411907017712564*^9, {3.411962559656521*^9, 3.411962759283188*^9}, { 3.411962963691092*^9, 3.4119630255909967`*^9}, {3.4119630832861443`*^9, 3.411963140555489*^9}, {3.4119631732695513`*^9, 3.411963194537561*^9}, { 3.411963242872175*^9, 3.4119633854666967`*^9}, {3.412323724069355*^9, 3.412323725519733*^9}, {3.412323774131686*^9, 3.412323784630847*^9}, { 3.415340314787408*^9, 3.415340414562614*^9}, 3.41534045693941*^9, { 3.415342785150426*^9, 3.415342920673966*^9}, 3.415343044326129*^9, { 3.415343081571471*^9, 3.415343081941688*^9}, {3.415343121287839*^9, 3.415343122228894*^9}, 3.415343382701029*^9, {3.4153434681161423`*^9, 3.41534348600902*^9}, {3.415363148683112*^9, 3.415363156321847*^9}, { 3.415363196653035*^9, 3.4153632014763727`*^9}, {3.415363255484462*^9, 3.415363286423678*^9}, 3.4153633736076*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao3$$ = 0.3, $CellContext`ar1$$ = 0.7, $CellContext`logCdl$$ = -5, $CellContext`logkd$$ = 8, $CellContext`logko3$$ = -1, $CellContext`logkr1$$ = -3, \ $CellContext`logwc$$ = -2.341741741847647, $CellContext`n$$ = 1, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.11838483768606921`, $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[ " 2 H,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d2\)]]\) \!\(\*SubscriptBox[\(H\), \(2\ \)]\) + 2 s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n\)\(+\)\)]\) + n \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logkr1$$], -3, "log(\!\(\*SubscriptBox[\(k\), \(r1\)]\)\!\(\*SuperscriptBox[\(A\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -5, -1}, {{ Hold[$CellContext`ar1$$], 0.7, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`logkd$$], 8, "log(\!\(\*SubscriptBox[\(k\), \(d2\)]\)/\!\(\*SuperscriptBox[\(mol\), \ \(-1\)]\) \!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 6, 10}, {{ Hold[$CellContext`logko3$$], -1, "log(\!\(\*SubscriptBox[\(k\), \(o3\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -2, 1}, {{ Hold[$CellContext`ao3$$], 0.3, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`n$$], 1, "n"}, {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`V$$], -0.11838483768606921`, "E/V"}, -0.31838483768606923`, 0.0816151623139308}, {{ Hold[$CellContext`logwc$$], -2.341741741847647, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -2.341741741847647, 2.321292783825471}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)"}, {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {False, True}}}, Typeset`size$$ = {545., {182., 186.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logkr1$1448$$ = 0, $CellContext`ar1$1449$$ = 0, $CellContext`logkd$1450$$ = 0, $CellContext`logko3$1451$$ = 0, $CellContext`ao3$1452$$ = 0, $CellContext`n$1453$$ = False, $CellContext`logCdl$1454$$ = 0, $CellContext`ROhm$1455$$ = 0, $CellContext`V$1456$$ = 0, $CellContext`logwc$1457$$ = 0, $CellContext`wc1$1458$$ = False, $CellContext`wc2$1459$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao3$$ = 0.3, $CellContext`ar1$$ = 0.7, $CellContext`logCdl$$ = -5, $CellContext`logkd$$ = 8, $CellContext`logko3$$ = -1, $CellContext`logkr1$$ = -3, \ $CellContext`logwc$$ = -2.341741741847647, $CellContext`n$$ = 1, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.11838483768606921`, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False}, "ControllerVariables" :> { Hold[$CellContext`logkr1$$, $CellContext`logkr1$1448$$, 0], Hold[$CellContext`ar1$$, $CellContext`ar1$1449$$, 0], Hold[$CellContext`logkd$$, $CellContext`logkd$1450$$, 0], Hold[$CellContext`logko3$$, $CellContext`logko3$1451$$, 0], Hold[$CellContext`ao3$$, $CellContext`ao3$1452$$, 0], Hold[$CellContext`n$$, $CellContext`n$1453$$, False], Hold[$CellContext`logCdl$$, $CellContext`logCdl$1454$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$1455$$, 0], Hold[$CellContext`V$$, $CellContext`V$1456$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$1457$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$1458$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$1459$$, 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`ko3 = 10^$CellContext`logko3$$; $CellContext`kr1 = 10^$CellContext`logkr1$$; $CellContext`kd = 10^$CellContext`logkd$$; $CellContext`Ko3V = \ $CellContext`Ko3[$CellContext`V$$]; $CellContext`Kr1V = \ $CellContext`Kr1[$CellContext`V$$]; $CellContext`Rt = 4 ($CellContext`kd/((($CellContext`f $CellContext`F) \ ($CellContext`ar1$$ $CellContext`Kr1V + ($CellContext`ao3$$ \ $CellContext`Ko3V) $CellContext`n$$^2)) ($CellContext`Kr1V + ( 4 $CellContext`kd) $CellContext`\[CapitalGamma] - \ $CellContext`Kr1V^ Rational[ 1, 2] ($CellContext`Kr1V + ( 8 $CellContext`kd) $CellContext`\[CapitalGamma])^ Rational[1, 2]))); $CellContext`Ecor = ( 1/($CellContext`f ($CellContext`n$$ $CellContext`ao3$$ + \ $CellContext`ar1$$))) Log[$CellContext`kr1/($CellContext`n$$ $CellContext`ko3)]; \ $CellContext`Vmin = $CellContext`Ecor - 0.2; $CellContext`Vmax = $CellContext`Ecor + 0.2; $CellContext`Rp = $CellContext`Rt ( 1 + ($CellContext`ar1$$ $CellContext`Kr1V) (($CellContext`Kr1V - \ $CellContext`Ko3V $CellContext`n$$)/((($CellContext`ar1$$ $CellContext`Ko3V) \ $CellContext`Kr1V) $CellContext`n$$ + ((($CellContext`ao3$$ \ $CellContext`Ko3V) $CellContext`Kr1V^ Rational[1, 2]) $CellContext`n$$^2) ($CellContext`Kr1V + ( 8 $CellContext`kd) $CellContext`\[CapitalGamma])^ Rational[ 1, 2] + ($CellContext`ar1$$ $CellContext`Kr1V) \ (-$CellContext`Kr1V + $CellContext`Kr1V^ Rational[ 1, 2] ($CellContext`Kr1V + ( 8 $CellContext`kd) $CellContext`\[CapitalGamma])^ Rational[ 1, 2])))); $CellContext`ZX1 = (($CellContext`ar1$$ \ $CellContext`Kr1V) ($CellContext`Kr1V - $CellContext`Ko3V $CellContext`n$$)) \ ($CellContext`Rt/((($CellContext`ar1$$ $CellContext`Ko3V) $CellContext`Kr1V) \ $CellContext`n$$ + (($CellContext`ao3$$ $CellContext`Ko3V) \ $CellContext`n$$^2) ($CellContext`p + $CellContext`Kr1V^ Rational[ 1, 2] ($CellContext`Kr1V + ( 8 $CellContext`kd) $CellContext`\[CapitalGamma])^ Rational[ 1, 2]) + ($CellContext`ar1$$ $CellContext`Kr1V) \ (-$CellContext`Kr1V + $CellContext`p + $CellContext`Kr1V^ Rational[ 1, 2] ($CellContext`Kr1V + ( 8 $CellContext`kd) $CellContext`\[CapitalGamma])^ Rational[ 1, 2]))); $CellContext`RpVcpROhm = $CellContext`Rp + \ $CellContext`ROhm$$; $CellContext`ROhmEt = \ $CellContext`ROhm$$/$CellContext`RpVcpROhm; $CellContext`ZX1Et = \ $CellContext`ZX1/$CellContext`RpVcpROhm; $CellContext`Zf = $CellContext`Rt + \ $CellContext`ZX1; $CellContext`ZfEt = $CellContext`Zf/$CellContext`RpVcpROhm; \ $CellContext`ZEt = ($CellContext`Zf/( 1 + ($CellContext`p $CellContext`Cdl) \ $CellContext`Zf))/$CellContext`RpVcpROhm; $CellContext`lw = { 1/($CellContext`Rt $CellContext`Cdl), -$CellContext`Kr1V + \ $CellContext`Ko3V $CellContext`n$$ + (($CellContext`ao3$$ $CellContext`Ko3V) \ $CellContext`n$$^2) (($CellContext`Kr1V - $CellContext`Ko3V \ $CellContext`n$$)/($CellContext`ar1$$ $CellContext`Kr1V + ($CellContext`ao3$$ \ $CellContext`Ko3V) $CellContext`n$$^2)) + $CellContext`Kr1V^ Rational[ 1, 2] ($CellContext`Kr1V + ( 8 $CellContext`kd) $CellContext`\[CapitalGamma])^ Rational[1, 2]}; $CellContext`logwmin = Log[10, Min[$CellContext`lw]] - 1.5; $CellContext`logwmax = Log[10, Max[$CellContext`lw]] + 1.5; GraphicsGrid[{{ ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], 10^6 $CellContext`if[$CellContext`VSta]}}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, PlotStyle -> { AbsoluteThickness[2]}, Frame -> True, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], 10^6 $CellContext`if[$CellContext`V$$]}]}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(\[Mu]A \!\(\*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\"]]\)/(\[Mu]A \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}], AspectRatio -> 1/GoldenRatio, AxesOrigin -> {$CellContext`Vmin, 0}, BaseStyle -> $CellContext`monStyle, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], 1 - $CellContext`\[Theta]A[$CellContext`VSta]}, \ {$CellContext`VSta + $CellContext`ROhm$$ $CellContext`if[$CellContext`VSta], $CellContext`\[Theta]A[$CellContext`VSta]}}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, Frame -> True, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\[Theta]"}, { "(E+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\[Theta]"}], Axes -> None, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], 1 - $CellContext`\[Theta]A[$CellContext`V$$]}], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], $CellContext`\[Theta]A[$CellContext`V$$]}], Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"s\"\)]\)", Scaled[{0.9, 0.8}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"A\"\)]\)", Scaled[{0.9, 0.7}]]}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, BaseStyle -> $CellContext`monStyle, ImageSize -> 250, AspectRatio -> 1/GoldenRatio]}, { ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 250, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}}, PlotRange -> {{-0.2, 1.}, {-0.2, 0.6}}, 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`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I 10^$CellContext`logwc$$]]}, Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(Z\), \(\"s\"\)]\)", Scaled[{0.1, 0.8}]]}, FrameTicks -> {{0, 0.5, 1}, {0, 0.5, 1}, None, None}, 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, 1.2}, {-0.2, 0.6}}, 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[ " 2 H,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d2\)]]\) \!\(\*SubscriptBox[\(H\), \(2\ \)]\) + 2 s", Bold, Medium], Style[ " M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n\)\(+\)\)]\) + n \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium], Delimiter, {{$CellContext`logkr1$$, -3, "log(\!\(\*SubscriptBox[\(k\), \(r1\)]\)\!\(\*SuperscriptBox[\(A\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -5, -1, Appearance -> "Labeled"}, {{$CellContext`ar1$$, 0.7, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`logkd$$, 8, "log(\!\(\*SubscriptBox[\(k\), \(d2\)]\)/\!\(\*SuperscriptBox[\(mol\ \), \(-1\)]\) \!\(\*SuperscriptBox[\(cm\), \(2\)]\) \ \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 6, 10, Appearance -> "Labeled"}, {{$CellContext`logko3$$, -1, "log(\!\(\*SubscriptBox[\(k\), \ \(o3\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -2, 1, Appearance -> "Labeled"}, {{$CellContext`ao3$$, 0.3, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`n$$, 1, "n"}, {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`V$$, -0.11838483768606921`, "E/V"}, -0.31838483768606923`, 0.0816151623139308, Appearance -> "Labeled"}, {{$CellContext`logwc$$, -2.341741741847647, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, \ -2.341741741847647, 2.321292783825471, Appearance -> "Labeled"}, {{$CellContext`wc1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)"}, { False, True}}, {{$CellContext`wc2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {False, True}}}, "Options" :> {FrameLabel -> { Style[ "ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2008. Hosted \ by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}], ImageSizeCache->{969., {240.375, 245.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Cdl = 1/100000, $CellContext`ko3 = 1/10, $CellContext`kr1 = 1/1000, Attributes[$CellContext`kd] = {Constant}, $CellContext`kd = 100000000, $CellContext`Ko3V = 0.025118864315095798`, $CellContext`Ko3[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko3 Exp[((FE`ao3$$17 $CellContext`f) FE`n$$17) $CellContext`V$], Attributes[$CellContext`V$] = {Temporary}, FE`ao3$$17 = 0.3, Attributes[$CellContext`f] = {Constant}, $CellContext`f = 38.9, FE`n$$17 = 1, $CellContext`Kr1V = 0.025118864315095808`, $CellContext`Kr1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr1 Exp[((-FE`ar1$$17) $CellContext`f) $CellContext`V$], FE`ar1$$17 = 0.7, $CellContext`Rt = 15090.62462104741, Attributes[$CellContext`F] = {Constant}, $CellContext`F = 96485., Attributes[$CellContext`\[CapitalGamma]] = { Constant}, $CellContext`\[CapitalGamma] = 1.*^-9, $CellContext`Ecor = -0.11838483768606921`, $CellContext`Vmin = \ -0.31838483768606923`, $CellContext`Vmax = 0.0816151623139308, $CellContext`Rp = 15090.62462104741, $CellContext`ZX1 = 2.7617652602371406`*^-15/(0.0004416701411361353 + 0.017583205020567063` (0.1188465787487063 + $CellContext`p) + 0.007535659294528739 ( 0.1439654430638021 + $CellContext`p)), $CellContext`p[1, 1] = 0, $CellContext`p[1, 2] = 0, $CellContext`p[1, 3] = 1, $CellContext`p[2, 1] = 1, $CellContext`p[2, 2] = 0, $CellContext`p[2, 3] = 0, $CellContext`p[3, 1] = 0, $CellContext`p[3, 2] = 1, $CellContext`RpVcpROhm = 15090.62462104741, $CellContext`ROhmEt = 0, $CellContext`ZX1Et = 1.8301199119254561`*^-19/(0.0004416701411361353 + 0.017583205020567063` (0.1188465787487063 + $CellContext`p) + 0.007535659294528739 ( 0.1439654430638021 + $CellContext`p)), $CellContext`Zf = 15090.62462104741 + 2.7617652602371406`*^-15/(0.0004416701411361353 + 0.017583205020567063` (0.1188465787487063 + $CellContext`p) + 0.007535659294528739 ( 0.1439654430638021 + $CellContext`p)), $CellContext`ZfEt = 0.00006626630938823207 (15090.62462104741 + 2.7617652602371406`*^-15/(0.0004416701411361353 + 0.017583205020567063` (0.1188465787487063 + $CellContext`p) + 0.007535659294528739 ( 0.1439654430638021 + $CellContext`p))), $CellContext`ZEt = ( 0.00006626630938823207 (15090.62462104741 + 2.7617652602371406`*^-15/(0.0004416701411361353 + 0.017583205020567063` (0.1188465787487063 + $CellContext`p) + 0.007535659294528739 (0.1439654430638021 + $CellContext`p))))/( 1 + ($CellContext`p (15090.62462104741 + 2.7617652602371406`*^-15/(0.0004416701411361353 + 0.017583205020567063` (0.1188465787487063 + $CellContext`p) + 0.007535659294528739 (0.1439654430638021 + $CellContext`p))))/ 100000), $CellContext`lw = {6.626630938823207, 0.1439654430638021}, $CellContext`logwmin = -2.341741741847647, \ $CellContext`logwmax = 2.321292783825471, $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := ((( 4 $CellContext`F) $CellContext`kd) \ $CellContext`\[CapitalGamma]^2) (( FE`n$$17 $CellContext`Ko3[$CellContext`V$] - \ $CellContext`Kr1[$CellContext`V$])/(( 4 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr1[$CellContext`V$] + Sqrt[ $CellContext`Kr1[$CellContext`V$]] Sqrt[(8 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr1[$CellContext`V$]])), $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 12}, $CellContext`\[Theta]A[ Pattern[$CellContext`V, Blank[]]] := (-$CellContext`Kr1[$CellContext`V] + Sqrt[ $CellContext`Kr1[$CellContext`V]] Sqrt[(8 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr1[$CellContext`V]])/(( 4 $CellContext`kd) $CellContext`\[CapitalGamma]), \ $CellContext`lHue = { RGBColor[0, 0, 1], RGBColor[0.5, 0, 0.5], Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6]}}; ($CellContext`Ko3[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko3 Exp[(($CellContext`ao3$$ $CellContext`f) $CellContext`n$$) \ $CellContext`V$]; $CellContext`Kr1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr1 Exp[((-$CellContext`ar1$$) $CellContext`f) $CellContext`V$]; \ $CellContext`\[Theta]A[ Pattern[$CellContext`V, Blank[]]] := (-$CellContext`Kr1[$CellContext`V] + \ $CellContext`Kr1[$CellContext`V]^ Rational[ 1, 2] ((8 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr1[$CellContext`V])^Rational[1, 2])/(( 4 $CellContext`kd) $CellContext`\[CapitalGamma]); $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := ((( 4 $CellContext`F) $CellContext`kd) \ $CellContext`\[CapitalGamma]^2) (($CellContext`n$$ \ $CellContext`Ko3[$CellContext`V$] - $CellContext`Kr1[$CellContext`V$])/(( 4 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr1[$CellContext`V$] + $CellContext`Kr1[$CellContext`V$]^ Rational[ 1, 2] ((8 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr1[$CellContext`V$])^ Rational[1, 2])); $CellContext`\[CapitalGamma] = 1. 10^(-9); $CellContext`f = 38.9; $CellContext`Farad = ($CellContext`F = 96485.); $CellContext`lHue = {Blue, Purple, Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6]}; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 12})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.411899486910111*^9, 3.4118995466491423`*^9, 3.411899576812304*^9, 3.411899681503265*^9, 3.4118997139448757`*^9, 3.411899791455778*^9, 3.4119023378261414`*^9, 3.4119023723560762`*^9, 3.41190419529167*^9, { 3.411904233232854*^9, 3.411904252276478*^9}, {3.411904693661261*^9, 3.41190470572626*^9}, {3.411904774316908*^9, 3.411904799648707*^9}, 3.411904906557788*^9, 3.4119049977633953`*^9, 3.411905138212888*^9, 3.411906144479459*^9, 3.411906254368483*^9, 3.411906891222011*^9, 3.4119070256950693`*^9, 3.411907269991913*^9, {3.41196314389003*^9, 3.4119631625323277`*^9}, {3.411963195309658*^9, 3.411963210290142*^9}, 3.4119632444195843`*^9, {3.411963275009794*^9, 3.411963339171767*^9}, 3.4119633876925983`*^9, {3.412323668530254*^9, 3.4123236849567327`*^9}, 3.412323727813773*^9, 3.4123237853425293`*^9, 3.414470066872332*^9, 3.415340250985053*^9, 3.415340415927454*^9, 3.415342923464962*^9, 3.415342960674779*^9, 3.4153430461395206`*^9, {3.415343083308865*^9, 3.415343123284442*^9}, 3.4153433843067503`*^9, 3.415343501970953*^9, 3.415363123645512*^9, 3.4153631586761093`*^9, 3.415363205723105*^9, 3.41536328930549*^9, 3.415411195986511*^9, {3.415584412483374*^9, 3.415584424829805*^9}, 3.41559216699944*^9}] }, Open ]] }, CellGrouping->Manual, WindowSize->{1218, 835}, WindowMargins->{{17, Automatic}, {Automatic, 0}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZ