(* 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[ 116431, 2246] NotebookOptionsPosition[ 98257, 1928] NotebookOutlinePosition[ 115956, 2233] CellTagsIndexPosition[ 115913, 2230] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "\nVolmer-Tafel reaction\n", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["H", FontSlant->"Plain"], "2"], TraditionalForm]]], " evolution reaction (HER)" }], "Section", CellChangeTimes->{ 3.404105671464055*^9, {3.4041058687932377`*^9, 3.404105894346611*^9}, { 3.404213587340118*^9, 3.404213726194797*^9}, {3.4042141164993563`*^9, 3.4042141198459053`*^9}, 3.404263543202744*^9, {3.404428502542997*^9, 3.404428526361329*^9}, {3.404803514291835*^9, 3.4048036710571833`*^9}, { 3.4048037326798973`*^9, 3.40480375081988*^9}, {3.404803802948029*^9, 3.404803841092787*^9}, {3.404803900224763*^9, 3.404803903078836*^9}, { 3.404803944287771*^9, 3.404803994883864*^9}, {3.404804025477119*^9, 3.4048040428945847`*^9}, {3.4058481919806213`*^9, 3.405848194745288*^9}, { 3.40920423621765*^9, 3.4092042366118298`*^9}, {3.411012239491242*^9, 3.411012240348982*^9}}, TextAlignment->Center], Cell["Reaction", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.410151720218337*^9, 3.41015172165478*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJylWctuHEUU7czDE8/YCcSxnQA2gwQJbBAyLECELAchkRUS8gKQrAgpA0JE TlbewNoSP+A/8B94nY2/wF/gL/AXNHWqzmnfat/pbjsjeTpddR/n3rp1H5Nn e69f/P7X3uv5873p9/t7L1/Mn7+azv7eD0v9W0VRvAl/T6YF/l2Gf/LrTRk+ YbPzYyc++uXZ2Vl5fHwc3/5LW19y6+DgoLy4uIhvT7m2s7NTSmkvfvfLk5OT kp9ilouw0pOIpbi2tbVVHh4elkdHR1FNeK6SBUuS9nWS9pUBpK0kbRil7e7u RqD4C+yFRAFsTdS6Y8eAdgCQyAcUD9sAFrR4np+fB8q0B7Xag7wAL/gEe6OK T5ABDfRBRzIkfNO3kePxDfX1aY/4gjuKO475kwa77fkNSNeGdyN3Z4AZRSdy nEFy53w+p0MS3Ww2i7RWFWgA6dLUUYwZmHN6ehr1gQc0MK9HPuwBIt62zBoi Am/jjjqHJvDkQi+C5EITv5WtjGEe1KVPmjBvJhduGLGAFbxcnSrdF9+WuAbX 8MQqOpwMIAXRxW2jXqqsekCyLrN04446+kSEI+b1jvuQHVzheW/FQOClcM3U CbXBp/c2a46F90TOQMi8B5QKSnt3IDZYUixjrRfjYhBNA1aYHZg+rOkC0XJH ufIY3k2eie+Bz/PYqhHTZNqwAfKDpOOBQQ4VoFU4AzXE41x7PF1lCahcJnKE NzOHrjr2R0a0EssmEwtAqIDc7qhOjoIRSkxSHXRIHZbAFv6SgPAtZHbN5jZB wBqSQgfr6L+HhpNpiXclZXrdAXx0D4KhlD6q1qBFWRTPwFsoqlTIcDZdZKtC YQ3OEnLI9CrA3ZrnYP2oAz664D2ywzEqTGM6j/c0fgAXogKrtk0YVCRBkwzn UcS3SbNE3XZr1ztcAwtElVW5Wai5ZpL16phehUdZNFR3swKAME71PtVG27V8 YKJFzc9Kg1zdTs8qXSuUmVFH/bY2xyumnAr3KH8uExAUgFnVCuKeNux5YCdX NIFa2ftjA4dJQVt9AwzrZVWDBpHGXPxHxKRromYIGeS+z7IQag2FkqqNg09y 0JCqoxS54hLpXWJ1O5B81NLxUib9CRkR5/QPja46XE+/0jz6C8JNJ78USZVo 4Vs8g1rVYPiQhaiYMjxV3tVHAzVEgNax4L4j6lNHuxGTTrD4zJy5WrUpjQUA KJJUfARCEuXCdUfOT0nFjykeU5ZUvsMnBLJCjmLi2x+GjTUU20xMwzaOpSpy mF8iWbCl3rfgpP5MnM9McIALJLAw6CxeGpJ4v19ZnhR4tKjYt0Au23bUX3Ll Y9+xCTwF2Ua+pVtvtr5wQnPbWfvZhKbW1nMR9jJuO2sNIib02XVnJC8PqNNt m3MmDq9yOc4BvIDKAYCj6s3nRl09ZsNWfKlJrHrFtllHOcZzRdu8suLw1pvI 0uQnXEp1+o+NvOvOZ5oJ5RpFRhveO7lr2mYadQOLXNM0jHiuEa+mAMAcmDXR PXJ0dJ3Dus56NVe0DSueK1jj3SnDm15kglpTvH1eO6XrDFBNg1lqbauut23E UO26yQyRikHrNHQT0QoOiFK3pSuvlAGKd423NXFtvMXE1TICZc5tHkneXxgH zSNGU/zY2qm4MCWdTcf1x6cuoxlNv0sHLRhKFMHesHU1Vy4cShb+5BQbGduj smfIOqmOA1TLSJYZ7A8rOhe1Z83Wtg8rTQUWdCqweFqjuw5XXXGs5qZ7o09X 07225ocGuan75ch3ZYp5G6364VziEPhrvpoMRD6YKKmp+0aqGTLhmDjLhpU6 Kru2xjXErRLigAmRE3ykUN9mG+97Dr6Pcuh2JJkYERL7S/weV1lErb4iR70H xIcI6xkRCDrMHvccVUSh7GzHEu8If+Wa8g/yTb10Q1WPx6Wj4ji35qjhEW47 2n6L30tZ/4QPB8Tvck7be4vTTJtV8AbvkPOf+BhWqQbUHOr5a0JFYgzWT5si +deg1IBifhZ/YqlGlQ599EMYvPat1TmOenTUMFk/nwou9gLbN4nL/f+y4tb/ MiUVOQ==\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{194, 60}, ImageMargins->{{263, 0}, {0, 4}}]], "Input", CellChangeTimes->{{3.411012246110599*^9, 3.411012278343083*^9}}], Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzNnL+vXEcVx2/219vd52c/Pz/HsR0T04AgEUKWiCiokHCqkCKNWytCihGI KElD/oT8ASC5gjINtGmgdUMBRVqa/AX5C5Z7Zs5n7ndmz71vn7GVXMnPu7Pz 48z5fc6cue8+/vTD3/z+8adPPnh8/52PH3/04ZMPPrn/8A8f903zV7pufrXr uh/f7+zzrv/of5rnuv3Za/4Otf4x/Tffff7557tvvvkmfVv436+++so2tXv0 6JF9fifoOsz3y3o+G2sd7dvK254+fbp78uRJ+vYw6Lc32Tb9t0wDHzx4kIB5 +PDh7osvvuhe9d9sAn5zQLuZbIDf+kXmqXm7+/rrr3dOsPSvny5t6LPPPkvf 7927Z91nsoLNbD/ZbF9++WV35L/1n8sK/Lby1Wm3f8+ePZvZh5m1pk/dOsGh kzv4CQOl2zx186c7drQZuIaJfojDMrc1Euj27Ub6eyX1M5QDh23RaRctnbe8 BgOpm2HHvls3m6ofvvEVbZStat9OA8iWjiXFhCO8O/ffbHr9rYewop+tYf96 cG68RMTOnFOtm4EPQe17369dY5H2DRB981URDhtf+PlfmZWVcDbEGGUraESB LB02a6thu6JzF6rYfLYP++ykSHD3IrNwDDua0k9G/34an3KTJAtC29T23R5E xMBcytZsmUHC5mk+k4G80v56jqWyBX4zsBVkm4PtZISlfmAVNh5Eb8Bk/3/R MIdi0rbqmijNYxizfi1Yzg2KLX6yKcAc+slAATyUZ79Mdz3YRguyfTs6cBtQ RDDdoa0MfKcIFHVt8EIps3CUwHswDlvcXyJe/ppvxfi5sgMuN1d8rKHXmI01 jAlvpt8WCURb02BIy9meV2A1PYY93xUIRfH0TQVCm4lhTuDC6iiS/G1XVC4K jTYU4ECoKcQvym8O/VyGgFTAvO1LCH26M/s7M9wwIdzjC80ELiYCrgZzCXFH Pg3W0PbSU5m1lV9vpb+ranvwjKxss4ORsxeLkYUsAVSwJsThiZZMX/5bs5pt 3NgNVjNLhrVSaXAG6sG2Hmd7/OYaoSiWFgZjd0SFefu+KtxIBLwFTUzR6NbZ YaTyXwC/2Q78Nxe6bdETaj1sF7C/Y2nhLBIgzqZd+erMZhu0n40RL8NxRfT3 2eGlcNymbALKigI7SPFFnMec7j8ZBx1sE1iLsXDvwKHHWPSCbVsPmIC9VolX ikpE/bFfnCP2bvP1amLRgLsrTuuNCp0IJ2ixzzZda35wahsBysyR1N6htn/u tEYk3eaDNxbmnxmYpXNbgFNlXrEksH/IvJcz78/B5C8WxZmUp0Wimdc4Bf0Y raHrezxSM/pKveD0s4l98rL7H647DsTeMnW/dbPIi7KM/d7PAWltGoFo5txn AHcevdgI2B4Na20eGBXXKtK0+B8DN200vEzzgCjrW3sQyyqcqUPV2pVbe3/7 TizioldCYtuDre1GI/127jBBYCVYs/+KxxosW/+VcD60hlA9wjcOBbKE0jK2 aaOa3fOp7YSErLjmGrYWBfwyMJ/nvlbtS6LA9N0wa5gkADBKsL5hduMziZQX MfhPRvFJ+u9oz6lFasz6ZTG4UukeCGRLwueIkNsfLBpCW4nCUdEBrAhgWbhs 3XmBZEBI7OiKs+zZmBqZm2Zs3k9uA5m7HbmK4yqiwl9nxw3MoWYW7CDFBGG2 sZm0kYWCVxXsiH9n0sZKZw5Cy9ON242aKlMno3UrWPj19HcQKgPURhuzppn/ rdwzL4yuAGoYdeoYV9erjeZIKdh3j+9b8g7OwKpKpJAp6Z+FGLFaTI80a1Ao 6IzpamFRobCXiaVbRvS0YLUjI4DoGDOcCQOh85QxAqgLA40gJzIDWBkPiKag BW/HgjcND2x4P82Zz0jE4cPmjroglGdR9xtWZVW0kNuEiL/OhUdwP+Y+jep4 KMTUrrSuyHDPB2aS+zKuyFxxLUo/159gzzaBj9V3WTjtbDQ0AogofWdYhUNx ZnbiMxm+NH9nm+//Rz+BZZMpBF3104m02TTGKrCXpgbVEw5ALTngBglLb9YM ZsopDnxAcz8SBRopVZnBiTgvweSuaKe54nUsrYoxF52My9BFeLvn/YkkGNf/ X+mpTwP8vhds6e1mfXSRZYL5DVHAcWzX+qShm6mFX/t2lT49/D8X0liz57Tf bpATSED6/HdfSU9BzoO2awKRz9O9GbT9TsQKjLwV9Pupt9n89DsK1r0h/bAE NwX+v8kYYvrzoI2cpeb43wzafuttpJLs20+CfsAvmqbKLFf5heSKONR/8k5u CtO3O9LmnNzhK6Ixrce7wdi/CnIdmIIAbVt7m/qeINxYlYTvm0Eb5jhiCI5j TJPdCdryfIvqlKqflzAXr80k4IZszx38scO76wGUi2CHLIPjb57TfelXe8o1 xvDyNTVgj2M/+yPdn4U5oNNrAl17xIDB2In60LF/EehahtY26IlbpW0SFTr+ V1WkaI+fVHLOpVrtTtD2VtAGcm1aZAVQVSMiF3pgqvIIqGoI2VJ0PPKGwMJ8 SnzG3pJ1MeeR65udMDcEczVbbouW8E7BngUOMz8UhNtRBfk3U9nH1ZGtK/q9 A1jv03GOp3G5HobW2fpV5XrIQVd7tjfQrKt/ODoIGuGZkkhsZDmZtuw0Z19A fpf1VmPrZZpcK4hHCBWp0UGmPT6m8Jgs7SBtiiNBdGDf3dnmxNu3u2zPQT1C zKiwsR46dy2Wj/dGtity6FxGS26ecYZIXD9FsvVz497ahRwLGrctWg6deWzZ MmEOgfKegHSYZiB5xAbaNsJXmQhThJlkCtfwF4zbRJQqYZLjPQuTYsygykfy +9YVU0NAYdjsV5/7ehqaNOtAx27kNH02gHFU1Vi4ZxxSwDc+IYiLVrWMsVUh +B7ilcEqrjlKNBnZq2vRqxdK7GTFwh6aiDI0m9tjBW0lMVNVPmMCRR5RhzoQ HtUty3j2bRk1TA45U00I7ZurbXFNOkniBPCciorWg3nH5UJma0amrlgUDyqx WZIjc19pOLey/zn6t+EGnPSfXw7+PPu6jW5Lt5LgzpRp0+cEHDm7vSs+IYY5 x97HJWbxMo6i5pBKB17OeOuyICS2wSPCjcZtjxchKnhVhtCAlEoQ6g2iuq0j 6V9L58neqUQbyNNOClZTU7a2plzdT8I46GGEPS6I7pN+TzbbVTm/TaXd7GmE zVWO9T2twlTYGHFvs/KEpdKHjATsPLjBG80jpkcTQoecN3IYcglwnFZXqpN0 qXWptidr5aVuH7QUYUqEsanaEg8ZHcRXC8l5kBQFXSog2q0q+OlzxT43Dqkl qLZjD1ISU6L2+DlK1LkG3yf3BxU52N0lf125YIr5WjhbKtp2UaZQX0/B4z3U v0GSvJeTUZxNVBi50rp2ML61va7HWFXBG8dkYhxEG3RUKQAW3OFLzR2qYLVD GckxdlKdaqgaiagBtjkQPJQSh//2xh7XTO1xSlgPrBurYCAelsxfVa5EAKen G0jFdnTspkqcA4c9FPnaeDxC9mPcmyz0rlhN8hpwh+aoScOlCoLsb6prrMVg U7u47lPLcloluJRpcGRa52YQ1UU5NnOvhOGHlUZsC95Ui3FoLNMeujkO9sbY mzQIen4Qk1XZnZablBLu2tvIhyxXNONRcSuHtxh39ylb3OrpP23q3XpZUkVe 5RJlXJhMC6UZe7l6lZr25KuMWdl+65QNR1XrynpCTIShHL7Ubg+V7U7E1BXN PuEtseIFKhEJbbWfdsepioonfRMdld7q0tkDEjzuUoWgeJCc4iWU5V6dWFSH 21pyjlEHX+45lqiLGccQdlXAqeVyiDjUYUB7tK6hgJU+Ex0TpQxbqV3DEZrv 038KAxE2t3vbN6xSVkoZTIp8d8kPV/pOsVoLpU8zVV99KORr/zuGoKrUMA9F Q2SxvHMwbqmAwSYpokgNczYctFHro5DJEriBwSq+8euTbmYLQbsTx/leqcmu UUYv1vHZV0Hj+ztM+lQDTvAZ6l+3SYLauFq9VjemVBG0/NCUWauh0DtIck7b +g4Dt22oSUjtpAcxAJRBr6YBPQum3/gQrXWyx5XJXfs885MrHAV7+qXX06tx ciLKvcpaeD1xwW6LPu+jEojwclsnckztO4cjWwGBsVl5HJXEEg+e43BIVyNK bxCRcLnpM0a3HzTf23phEXPhyOn2hR/xloa4v0ZJpu1kpoQ2zUYdoipHTB/H RVSTy5TOVeuyJMyL71fZg+WLsvdTEHFtAtR7Ou/iIPqgVRiiSsbaRqrQta6t 9QS0KpRU9aGegLjdchC0+7Y8AUAnH2g8PEF5dtkisYXQC3agQ9cNqd96iu+k N0DamfLAKWQFba03wBN4AxwLUs53kTcQQdDuxHHvQrAoyPd5Xl4mZLO34wCR oYKdvETyXP5AIvnMD+QIvvP5+G7UlI2wj1YytteJdM3zsTWnjDqHwlof3aPt ru9C77P0Gup4bIlsybelUo7iNJU86kjL2cylDDp0I14wFlt4ISVXamE/TbKg QDXjpME8xh5E8GBo9SQlMvbw2E6MfXT/TOvxpT6bOclQiVUuSOunwp6rpwTf jdr4RZnNyZHPOdfV+gFDj1v4k9LW3ljWww38K6+3ccO6LoxBfzkGztBl7Al1 Ggk/r0QRagACvHYRaIQK5cR9CPXJhw15rLNQF15myUrtDiZr5E5OZPe5E+gZ tKpcU+29IgZWbu29MUBr73U30RwH2/tFS/qM39rka0oZwZ3ggNpe3x0FkuDP HrwIzVwL1cPNBmR1JXkySvaJe1iuV+4cjGS5C1BFUboPAoWgLSuDq2NGP9Ge 7cNHstTMoR2DLoJCqDNJgQCEQ180cJGo73Hnvg8Q4HXCBxhOiA65Y9dgau80 ZCfCS4GQwFQs+/5J+krnKLBf4CBQujJM83+fgkCoCHp2q9BvgmWpTseXgCKG MazoYan0lab10/Yd85sJMCMkU40xxrIU/dv0db508FnkAomBoucaGM28zFE5 ymYZhltuY7hR1F5GJbRTzlK8gjs56zn4aGIxspZJB56Kmmh7nCO5FsSyFIOR Wy7JqxQAaCLCMVY7Kad7Lg+Sh4qSmwvVFT7/LRerHVV3QhFa7gpxoEy5kPXh EmzB/Kpk+pnKcxIYN9LVbrajsFknByFPn1ZXGvOwbSnvxFVW2DjlCVwUWDur SqPXOsSOXHCEc6MVS7Xftqp2UvXQlK6Oeyh7Vy/ywj8MsQKOFSjqRoEg2Et7 WTPiiCluaUlf6WftO5Q7L6r4IhE+B0CofyNCxIUqFYNHeaNCA8o2oPwhzFTi uEnSx9dnly6MB16LLfxAGpLaYMcWN8l4AcQjudExde8aTCkY3Auc5XtnNslW qylHuanAcRoVGqcuLfaDdQe5u1kFPGO8NEKcokOacc4s6/LasgijRTBXoWAW vKwvwouGjhgmrSKk7O5R/eISyIV8REVz48muZXFGUBMak2tF4mUOL9Yx2KsA bDXHbZsur/fgcVJ96nJNDnBs+y4gnkq4BAZrULD1LTMOFdXbctEnEhB0cj8+ qjY98UUQ4UdSYdrvQj0yzl7dIDi068rTguYV8+3j8kRwCYCQ/twhUjzbo++N YE5YYbcb0j7KvXq7FjHznTVVKMsq1VGz7XIvDTMksiYOSepr5ZRz+KsTqn7i iJR360n5RuknidQwlxjdTeLkDHRqmxrmXx0I3/tBv9tBv9Og7SwYuw7g44qY 3lfS+ia3/t2UFpKxJWCMsoUam7RlNmIvyu1YXT+P3VQ+qT0IE06vlhbpnFuH QMNsXlnQ48PPS/udXA0WjzYPL0cA3PX+EmKUW10ahipChothpdJo7/xRN3Qt aMupzukXYBBvUi3G40RUxVUvvyy3LHgelYrZId7Rehw9FuXmcSXKR6NhhnUl bBUlF4oJmIjuU3DXRrF9kRiDAtwt+3bVZ9CjdrbV91EJBGs/CqbZBm28AOCi bb4f9LvtAKOIvSbhmhNAoy4/wizvCpJXWqTHp0VORjaKOsMT3om6AIfDG2IW xdt2CSHka2f36WCcttA0B1QDx+hwvXl7K4BkPgXJskpMuE3v1OQx9bEvr5kr eyhLfCbXjvX04SQA6RLIEbBe95kISS3RjEVE4O+Vd7jM9byjHFLrFYEWeacO Fc6DE0Hv/E69FoVkkNRzKmmjmkjwoG++2pkaLlFq/a44e1TnPBjuX3pR7MTd 2blyexE68eBdjxzpizzaxEPXXlccdj5XV7CwgrZBGAlEKjNN20kzNicV8rr6 bt0fBGO3QRvKSff6kaNerVdPbNRcG9h4UQNY07fxXg9W9EPPnm7oXOLPnehX tabLMsJNn8fGJViVi+/ViSHa8bVgIYo8W5+BKkd4S6MgnXPrf/WmpMfpaR4Y xbOLaB/xtIttumj/sHsEGoLvGeH07Z608UIV5iVPmjkm6xS8Ex7fJi+VAWSP dW+MzlTXaWktdaVqZkMqbl3So8DAQo5KUm+YfsofbAhpTPHQ9R0WaSvRm0Mo NFMUr4J+0dtEvh+MRbm1dsvHPQyGRG+3g2oXvZTkZ96mSX8Y9DIvJflHAMMv grb3grZ/yjzD8628TL975X9bVFuJ\ \>"], "Graphics", ImageSize->{782, 42}, ImageMargins->0]], "Input", CellChangeTimes->{{3.411012285559658*^9, 3.411012303722207*^9}}], Cell["Steady-state", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXEuPXEcVvul3z3heJp7YcSa2V0QoiOAQJMuJAhKYl7IChBcGyQoJ9gKB QlbeYBawsPgF5rWJAAsW2cXEC3Y4LFghA3v/gtlCUFOn6vuqv6pb9/btnhkJ G640M923qk6dZ9U5p07Na1ffvvbGd6++ff31q2e/8NbV71+7/voPzl763lvu Vf+Jquq9WFXVN85W9nnmPuLX/HnJfumbR/PFxH8ezu7cuTO7dOnS7MaNG7Pz 58/Pbt++HTo8V+hsnLh///7s7t27xc4f+j/bHihY538ePnw429vb83/tsQmv X78+e/DggZ/41q1bswChin0A8t/+z5afVgVhINz0s/39ff/e/hpI+2sgL1++ 7Kd0qCYo/tP/6fuxlG7f/x77qQ0VG0sSDJ577/q4pxcxTaANPSE2uz3AtOr5 tkHE3BjmoA2BgE1gE9k3P+6jAeS/MMwQND5jeF9EYE2GiDU5GtHW9xgYzTnI D9FuPDOQlcAzFAweKXB9wtiPp2NtLqNgPjbwMCHhE2HMmyDBYFLUjvIdQROa VP0Q74wciBeM66vIi+CNFANv/ZzIdwrDCN6kSEx7GRomXQV/0v8ZRY5QiW28 e9dHs2FM4ozpANUDh4xX9hj08G4a39lj0A0iNcO+u7/oO4lUsN0e6qTj+8hj MfEiMCwMFJFld9fW8/ox8CNNuwGxZ33CTCM/lBZjP8bWSMjQN2WTRwWwmWGv ka32DlZSjfBblEBNxH9+L3D9KTEL2m0AuRFt23hE3nE4qTKQAhoobtfWDYNl 8I1x/A7NKMEhVTbEXrmuVbDgLVV/8jtOZZ9h8P679TNU88WBU2LJ4WtYcRsW fEeCHM+jXIz/xsi5DMZxJq5g1BaT5wDjqJBB8oGNQmEg7TeBVbsYQ2HM4Qw9 TiZzFUgPbc3CGtWEBY4OW4aSDWwzNEL/aSLnXO3QBpQ3a1MLPE8ihU3jyiSj 01OINsSmMU44jqyDSGM8bKyG1Xspb832sAmBqEEkKEFgJbb2vB5NPH5UuBYT kKbOHA4rmk0TVN04mYBdSyzAPtswNfYWLMhouCJe5d3fNXQ1BtsrBy125XJh M7jP3DOMBQbF8PXw8I7K8Fcb9KdUOER45s3Lfj/TqEXKG0OJRpi/o6PEMbrE cOfnONevWTSn4wrEBxu//0wnxx7js01pNkt0OD1FxnZ7DEWOTY1wIxlrjzpR 9sASIg6uHetTPzo0uYOBMfHdKmtU3Y5O+HfUBmo/HBxPs7bRQS69Iw/NcQqq PvU0EhZ5bf2xJstG348wgn4GCVLs/Jnz+FgCj8uI2o3svzafZ45jcgO5AYuB bxavvedFM0zcCQCOAuOuHD3GeynT6xtD6ps9i3d04WZ+Ran32y30+zre2fx8 9xreGVOgZNGrsD50VF7FO7HD6s8B9WYnpB+dWePXGdFPrFNF1I/73yPdj/2D cR/BEOMwt+tXBTSxI2WMdUwKJ/GOYrdvnxGuEN4HgbLQfVxzarEOeo38GIaL mlREUb06FTCZ+pKgbQKYRc9jDm8+dhgdToadxumJsAOPc+DqcE/43/P9FX7W llBPtAb4zcXPurq2U8CiFPyWsNgpgOZ6ROpsbQGzbwM8l2Brhvlj+VmrtdEb oHCMsOgQpqGW52vPkOYGL6593E4c8D48fFli/AOXsedxnsTtUzcvk7Wh4t6T IbKvga8HooJSpAuBn/5qkIFrInRKFvHhEMzSyAsxnUH3Dorz6jkRn6a8Bfc6 zYWUWLWiwOsE9WOsbt/Cmlf9DE1cGsyOxoV3eUxtsbdGEFj741hgI9OPars7 mDgCgVgwI3OM9dwImchwn7lO1nm0GsYnACH3NYIrtxxccfQj1eynOuDg0fQY fpEx2CbUM6PGB4jrjamrQiasqFG6AS9LFTnN7IWo0s/BSJMXVwybwg2vaDva RhVwYJQZ1sUYQhPzphXIp2tlj0NwCN+DO6PqU8977dNaHM39i9DDCtbEo1UR 3gbCIJ8rSS9g5nAadAE/ppvuuzHEAPHBV6SI1BdhYFTKXOTOuQMxhFY1JC6L CdESx8ZdSBqWSIpboYQYuVJxhyUhc10M25OBVK/bUXEMfNBsjwyPKgGekJUa ljFmJk9guzQCutAz2c4XhRe9dqQ3BHRbQKmZGtq6rm7gVQzhG6bjYkoCTbEI WswGoKeRYiZoNLCDPkWmlfLWPgHeNVu0APd1dFKHOdMalRuSLzEZxDaDDlKq jQJIJkg095WvkHWdGUVzQ1KBtkPu2rTci7lp1hegMprPoL+4GhEVTd31WmCs t8AgygqD+xR/bFUvbVKaa2s6Z9CjixLt4xa8jy2S+kj3NQ8Poat3V5Uc9rEf U1xKX/ZVoDyIfmDLYkGJMRqDE51wiqZpm1PztlNG71wGI5dO3j8EHdNk+7OH Swa3QYsq2iRZOuEpnRi1SbKEX4skf4HBuSthD7OkXB2sD+2SKLq+xwSbPN/H 1atFmNpV1iQfNW0L6JTQRmzOYog1ccfotQ/ZCvP5Q5hZNCm6PzDHouDYX/aL 6L+VcJ+0I8J0KJMaNTn1o4HOZy+5JGPtF6mAZcUFSYOU3DFoWnPJSkl6+Acm SKI1VTbugNIZjLM1MiWvfdym7zNVS/UPo0UyOKT8AuoiQG0vnWUyUaHkTDqg NZVxTPkkS+dcxnEzdrRwBebDgFXjXzKb+72bTl0LMo+OvIHjMNd9BBcgP1Oz tyHVstZ11pAU3Ijr9RIIh/XfW1zQDsVDI/0gLZzE8JHT4CVR1pCZKxXE8j6a eMBr375aUErmHXVruIh3WG79tw9SsDwtsG9fs987htdUBtI9uwCNQKrPb43I ed4TYET/jmgt813o7jnwov9czuLda2l7WWAEKtPDKck6vd/erJDOoGtrFmyr lgUrJXaowVnOovrt0U/xilB0DtNpuGcPlDns7MeKiQRmXQqB8p0jgaqS2BO9 oer1y1E+o4wsbPVOHgMMjc/eOTrQF2sUjJYJMrkoZvESszQaKLxzpNCVjrCO Lh/10O2nJiPqKfm/vz76KepW3smT50y554tl+PeHBumzBfw6O6fDxDmlg/fu 4YD5fMCMxzJM91ms8BPMwKAaJvJNdO3mqw0TX43nttzbzOJoXcEvnMTqGD3a FoX+4iFMnxA9iDaO2psf4zWPkmy0071viTa0+DRaLUYyxX+oWN3Bc1bBy75/ eflZPheo2RXADEkr5EQcJPqf9PyYaAGLQwHYVlwi6c0ZT6gUNMSGWrIoBmMa +soZVDjz7sdoPYSjNuvxiIjWyjEbpNG96kWhMI47E9MwdMi4I+U+Hpgbzra3 dcvQ2rhWUPTYWAiXVMyxsET5HZsni3jN0FQJl8JBkQb42FefoeKJfUaVyGIQ eYtT2xFmpDHYT1xTBgmODsgfIW7iF8XdBGGeFGaO2bD4Zaq+dAX5wO0JEI5H jeBZSFP9nGoK/XAuzpJPl1K8Kn9nvm+g53R0D/iwMiJHR71QzcNT4+gnscix UGGInfycZ3N+pEGj0JAnz83mdUQ0rCZYpQrHtGBnLYGb0yzzhu47jdzn1MqG HFXuTAHW/BSsjbw0vTUvi0SSlKWNtEG6DrLFVFyeNNjO95WwBgfz0wT2u+hn XEnLKYelOSs1KCqrGzvuON1PAyu0vizP3yuj8s00rWicRPdXC7so55iVmiRN VBfWN8VuJ+NiWSHz2FQXmWNlTwdR95ATFEziOScdRhVd3cDXtV+jRqFPzEwp nEWloE3kJUYyLPG9eKaXFXLWZbMZxdpGUUEQU2CSm6ttJn9paVPm8mzvV2Hu XSFAH6msq/NiM54Ucs+wZkOWkTzTXR11k5sunGMWwRNyXjqaIDONGU1yqsDR JBPJ1Q0noAY+qMg4SbXaQ7DBqLurI+Akpz+E08NpnJbnpmgOS6qJ+dO1gsxj Qp6FbKX0pG7qmVyqZRSzIJUpuKusEfBeyX5nretQt4aO/jP3Yffd14D8yL6F GZBQG9IziyvXfDM5XuNPU1GsylqLavGZCWWtrxXRgqWuc/BiJ43FtJm2aiaY e2sWWERtbSgbDtr6XPQmaBd0+nUIXTg15Kza2H8uwaLbl02faIRqaWafqrAM 6+jIkANgdmeFTb2NHT2VaCStSTBppfIoCTe49Tk8eR64aJv/QzsYXYSZe13J g5jkW3nckaCe/SxeySuLoXl9eK+UGtgbXk+TpaySCIvfjXMsl+HBMX+QG1ZE 6D7miDhW5Om+eMQSPDw5I42HixowS5gXcJ9osOi7ZLXaNO0GKLWS77ZS7FAC YgRsJPB4AktfUmkneuH+4Zx4mYeV99yy1dVqq0A3qVCwdI2TaHEUFzTyFQ7/ G2CwllmfLLz7UjuYZzuC+Y6q9NzuLYgrnZOiSByV1+k6oZc9eNJBo+VmYt8+ WeiX1xbMfCgX5mf9LHXSBPXtrL+WbOu7r7TA2OsI41pg0VMCKjuqSjw7HkSV 7kvuFPrpsSPt64VCv00IPD8EwfK5B/R0a+Wlx+fRVqrHZrGM1l4/6X93qgAf lruyArx0SnW6AGazBfu9dmyYbzwgNgpmr4DheqoF6vnA20apbFrg/6YoO90V EsSEmP24qSklbuelymc5Lk+q5hm/UXJZ1fdWoeuw3JXXcxsOBscdEdkq07jX jp94NkeAn0LfK+AMEf9drIWOLbzDUGTr2rSKfV5rsh/r/Vtu3zcXsW9G/9fa WorY/TsJSp/MMOZeMC8eXRl0Xg6ooBmtteSIKx7dahbQnmWObo+AYy8cMsf2 5xXzjxPHhKzjB2N4qDer/gHE6vFFuZY/v/TAmbpWXS9Xy18uv15Yrd5fapK1 0iSR28UJGIcy4NCzHAlp6ufaS1cbNJfaHoyHzx82D5k5yG4WPB48XHBx4mCi CPWK1QMMYyYuRLshCKJNwyJRmm4uziBJ0figcYay9RUuPZzCkK5V+g1g1hrB jBSMf8Albaa/RYjV8iUumkrvSLuWDvyv0f50e3PYaqCh5X/+w+Wivmc03kbR qvqut1EWXLFgEfWi2yhkW7cLCQtvdNTBbNSuQLfdRAHVTTdRSrVPXY/0FjDs 0/9nRLXCPaZGMLCUvwF/xrCgo9lI6tdvsFMse3GhdAWFxfy6irVdtdlBW75c 7fv7JdZjmCRHKTUm0qqqc8HbsqS8/PiQcrqlLfwXAgS+pf9jVr75ch43eUx3 ePNlowUt8VqyWzsjvflBjoVdx1yc1LSCEzRJhhQu7axQb6iXYrog/8qjjPzp lrZMIRBWNiqEYsupG68CLbhOcwZD6pdKGoeQpzLEz5hdBmordxTM49nWCsjz UsEjifzT7c1hbYsRfP0/CtYv6aAiQK88cRVd9ZLOGUylF1jswRhdKTlkW8Bq URnp02tGwl7/QCqHec3o4iNPwakOfQLK0Jb0nqDDqO1GU1DDzteDgo+ykdhP 1xtNvIjGsYJGLS03xEZ9OJeaLjySWO8u1z0gGlSR//zoypUrs5s3b9qPI8T9 Xis0XLDfn1p6hP5LXf/8F/wf4MN+UT3xH9X18iM=\ \>"], "Graphics", ImageSize->{563, 87}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4110123456090813`*^9, 3.411012346948409*^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", "\<\ eJzVXU2sJcdVbt+/d9997828+fPMm7GdcSYkoGB+hoSQxMQQ5EFCMijCQkYy iqwIKbMIQUn4sVcOi6BYwAIMQkMgwgqWZgmIZNiyeTJ/ASRLICE29ooVswFW XPpUne/0V9Wn6va9774ZaOn9dHd11TmnTp0659TX1c+99KXP/vznXvrS7c+8 dP3Hv/DSL3729me+eP3W57/QXho/0jSP/HHTNG9cb+T/Zfuv/grHG/JLTx7y //8d/oyXr7322vL+/fvhbKLX5Fyuy9nXY/H/ouJ37twJZzP5PZJTLfSfWuj4 +Hh58+bNcDbXa3L+9ttvh7M/jMX/im7p0VwOv3eXd+/eXb7wwgvhR8Qnbcrj t2/fDtdaOpp9fV6uSZm22Wak11555RWjEyTIuVwnEv4i/JmG5rSrwk9bzB6z 3gPLrZyEBKlKmm6bZcHJpVu3brWUtIWaM8t79+7h8eU777wTqpNyIiRULdUJ CXJI+bYcGEGxxx9/XKucyf/hmlQnh5YZKzNyWy7hkIdGgaVZoE67wR5ty/9R FMe3iGWtoSoG6TmhV/hp70MMLfsm/MjHXjgHiyUxKOFafewwudaW13qmrIB4 1jqd6rXyIFEOJVMFNWYZNl9bTwI71D3CrnQPqoUyCRkT1WdRFnSXkCM9Ls+h zrZPtHvjeABZqFOel+sda/NQhxzQ/0wsE+0kDBuRZPvDzIPDCvPoUwxEkd9U pQgCmFApI4xJP+KaEKaMJjYG9iDXdTlbEJNSHw7okJb1Hh1rQzpsMEjXZLzc 6xO7Jj3Sls+JEN53HcL29Jrwo7Lr6W5LbHtNND5tGvqMcUPNWx2OPv8u6SQ4 m1IXwMxfXlMCosMiV/lp64FsRdwwsbGnZ6aWOHRUL5QWMCN/hSGxU2N6VISF MmogxkoeNBuWGMVSo/a60gaSjY0wdQ1l/EzWnzJgeWzg2QMlnemRPhHS2+Zg 2rz5Sfoim59+WiUpgsHc1Nb2NPUgDCQUjifaC/o4rIcyuUtEgL+zpCi5Xqnd DJPuGZWflFPlCYc0KWVaKZuCybUBfsDzThc8TeSg00A2z+OXiBVUe02vidjT 2Th2H+o7oHLpFDvmKTayE5SlU5uvR9L3syqaYHejdZQqVKnbauXauVBOyIQ1 JWnYbCfX5T60B9OJ3De7oD0AyaM++RunEqFr3+7JD+YAWAmHDkwZ0BWdiUbR 0rZnkY+ZjQIUitJQ6V1mB6BHYs4yjCFmMVQnyiX3MMB1ADU5MXNjBlSz8Non RqFjJyYvrRgjse9gpb0P0yZ0pE5Nzw0cU5VShZz9DA3uAX52HF6dEuCQojqt Qtjhf1gASFvO1T+Gv2A9gOEK/xD1p27URasTbYnhhDLDlOEeFL9CS7QGUx7e WZO1e2dgVaxKYUuaKLEu5+1fDAFyPhJnE0YNkkgcikO7BYZ5tMEHZQFLFVJW 7SL8w74Lm8ZQuEZuqmlXwbvmWR4at8o7+w/WrjFrV2wt2LRo6IxzFVzSLsjG 3M5lScDgih0/cIVq9B47a9Tq7omUZp7ckwP9oNWDftafHv3zxI45rTFLRDsE RpXbXNP342fJOKeWUA2HGNwXmCr/h/t2P7EccJzJ2c6JjSZvghYCca2CcrgF 1YdrC7p5NEHGWY+u7miYXLTfadf2Ol+YoM7PWdZbMBjMFrwctSllJVjYLYr+ rHG5psIFv+pD6sORJyfWabyoxYu1PM04J78/JZe+Rjoy6XT0XM/MgTkwDNsP 7ZHm4Dam+rAwwckzwrU8w3XqtDgKyr8fbmWReY2UKel31gXJrMimKLS2tFmE ZwroQ4lxte/x8ScCoVAK4R/dBLc3S8UkFEkZnrhYjiInjFbIS8qq4i20Vzli RE+rl04a0QtMvUTHRlPGgWtWwBgpg13vnO554snmTho5lciRqDcGr28k9QXa 1KHFwflAygEyCRhtoGBpE9E5o0SKcrMaMtjAxaiEGcRzMVIXqzztObsccpAr GkWs2ghNBAvSBsZDgZ6Rdkbu8rOtyatSd1cDMD/ehkqxjwuVyiJ9znXAXiNY W+Xj/iWr1CJRKfQb3ChSKUyd5P5Gy5ZZu+8kyuB03Ai/i9E4Z+wwvBBlcjT+ cbrWz34nbM1c190MUUoywkdkt0usLah9VUOLcvvs1oNzDuo1vnNzBx/WujCy WM80we8+F3Nplch4avaDRmBznarCNc6XQYeuZvXK+Hufc80L5Vh30d1dSP8R R6BDlxOU6aHZtu/Jmjrd5H6MKppvE91pSLJIsurc4ZiP1aFZN6n+zdjyP5AU U+d3kgehtXzugES2NviP4c9+MXkMllBjljFny1tIHGtD/0QaCo1CT0ljmOa1 wcSzHZLFTQTo225EmqQY5givSJDe49pPnLL8Fte2nQRhUuVmiTo1zv9GBNem KJ5E0Am/FasIXMA6Qz3k7IrzzBfjM1hllaK4dVEbh0upRhgJWBExMgEzp7Uj R73Us7Q5gev4SJ8S9CKbbz20GyZWtTDV/mXqoOhTnxEQiOEit0Hg3Gnx0Kla if5nbSHLs8UnzlgOBnEQTCYsWJ630RYwm1LsqqOoi2lRla4+jDZoEW588G1d oU60aSkpl1EDho3oNOZMtISa4xgQSzpPAgsEFVGAgRFvOSP23cFghoiZ5ofS zsnSVBghCOnY5+AFMswlcCSlGqFA/IrymnM3eceJb2nzLUZwvmhRb39mtlRo gE9t6+9FhcAKFYtbDpGnOeppog22H3EvDKIY8ZEuFkt1Ul7L1OTQ52/B/Jmi OLxF1675F5IKEkzntQ2dXYwvnUkPKwQh8XFMK7+UITWBF6rGqBzWv7OETznU ChUlPwoB25gTt7jRVl1e6ywS/MOpFDkZg/lN9TnodBgoeg0tsBYhy4JJruUZ PvTQtXeyEYno0mRzsbkFPZJ25CJJdcshvaEzkuWILOnu6f3EqtURNKXWUtdp KMNFRpKe6SVFooHqMD9I54j6c/CFxmL8udsTgfc8Rz2re2Jqg5MCrLIGq7FS Js2Pb8XPa1QIyneoGpCyU2H9E1Fo94jaPIRBelPOHlW6svQAhEvWCXiXsnBH XfrVfzJapXnSBaKBmoYBfood9dRJiZIW2pGDkvjywCFop0KGighokR6goEmh AB/UTtOUeqgfHnlb/VmndVAEw93pSrGaQ5NgtMQW2MihnoInGKgZj6sQSHo2 fl6nISaAms+pTmRohWf0MoIk7S2eqBGPwgzL+IGR/qAKmNOu4E2dKVvYYkTD mUy16jWcVT5J8lhNN27bZ2F58iSPzlA81tF/6GembT6Aoph0an6BugOaBYnC z9cFDm49B00QxLD5rvB7YZ45mAGvMA9qMKM9OUhEM/BR6gT1czOkQnhIen6m xj5fzZWrV9ej96NRcFHu08TFVV+1gUY42IlQY4fZODSnCs/LAePDYAYP5GDZ 7YVbDUM7tFkURxSBMA+L+rwAEwZRnHYY/4DaK8yNNBuREXVS/EdMbz/ay9Kv g/0oMezQMRD6MTZhRp8yrv4NhoPMeyk5Jq8lDTMXhdbUWsSzUWouWR3HMP2U XhMVf/nll5evvvpqO3ba3xi/wtXR0VG48TH5/aEoc7Z86llpA0+Ga4jMSoAO 7bnekhpEAyOHlYoS6qJQjzFLoBO99p6eC8/nGBqoG1ET6ODyG/CnUcuma8xT 8w1AaxeP79RQKYbMYlhKje8kL3rJiq4LS2FxqIeIOct8l35ieJIkhsOAEh6m STiU2tR6clgXDrTy5SBn/+e0HHpfzqKnYe4ShNnhtSaGmErgB3uJuS3pvZYx qvv45ZpudFN1hKstwyyc6zrGFmHg3bI5rUDlAAO7gp9tqHk2RJuRCocdRKh1 AVBTYhmJai7mcOshatDP8IHEKLSqhTWj/lpDqlWIaditgtIXFhp4TeJfUwVE 8so0JMroYsIUqVapu8L/7GQzAKVpbEYitIxXjbfWWFJEuKqYQDxFZuFkXfPQ 9XBi5lLzMnHS3yuqYZnhM0U9HATqiVGB43XtKxMevofDdE/UzjoU62GIjH9P Tj+UaiTNIarr7+nNk0i98jyZwWfC/zypAFhaws0U6lmpkpo4DeLjqEjbrjx/ tugHDOBPFXMrsCLMnx5O1oUVzYuwoqTYkUvQJqgiFgaaghfgQY14uSYVen0J c5Np/u9S/e1ZVIqgJXczVktIQU2oniEwlmTYsb7JA7YOqLNr0nSqQRMaFJ4x UggMZJnIHNRDJI7V92QkFJEzkKk4ni9uA8EU/qpQOCjmXM06ACYK6T1y8vcS YKVqAKbQiy8YYhPF2v9rkCaobh+2P/WWxd2gLJvk+15maosBYWGgkgde+rDz bFx3Lq7BY5bwgErUs6AYL+lQUGgCwpT3JHGFyPTAucaodTRzjsjBusxjRa7q WABezwIeyUsDYoWAl9L3iQ4NyBNnD7TFHJpmhGa9RU81Vz9IAsWT4BSZCDnj 94tUxzWlthqikK9iRvl0FENHmFuob3Rt55aalr/6trBJve3xz0dmhybynwu/ N15Mx4jm3F4e/8KYQK2axh0/Snh47DxpBTRl3VVkvMoB+4QDzpyQkmWBEP/y O7VM1gXVoOoa5k4S3LO+H9PLzeAs5xxNVBfpdrjK8BitUycBvR4YAtSEvwy0 r81DmLCRGtX/qlONt1Syr2Tmsieb1vwK1XWRBOssMMA54UicDROu/XKvynqO HTaUO4jrxWIa1xvZHpyNRuTDA0RuxWSQ+B9jzpc2vxSbAuaJJw5gH5EAkjMP fPRpUjGYVA0Pvk3V5khSRhmdFhrpceca3Dt4qkLuD0Ry/15vQQs7cqv4qQeA UHq82Fy6+hN/q3fb2S6Z0R5T6lxU0GbQnAcANEIm+wEAjeIksDHqCmaQt6P4 /rQ7eKq/pkpOljTUqA4UowXTGWkw7ua0MEV7PUwRpIMOJ0xRFVx1AuYOi1Ws hbtiY4CBop32t84YYhR8DTUEAEVh4t4dWM3JwEcT02Q5WmbH8d5m+KOj+m0s DLGKf18qSCy9LWkSWIXiWgG92S1W8/8MQ4TQ4oQQLvQC8g9OL2jJcIYgahV+ iDHmuQe3N7CObWGQ1PXeBgbpauUe5nc0L5qlkvwbvUXZNH0VxkMg1sBJW4EY iUCw78S6EKOrlXuHxBJG9PdGCfwBCV/DluYpvYaMrUkl5M3ZIJbASQ8ZVXRU v42hhfSSIw6OLp+KHLWE4XUhBlmNtWdWg4z+L0GErgwok2evemKampiQ8JOp +zElAptVEX6I84kY4TQJxdexCHg1OFTqwIAPDix0ab3iMK5sahJppq/FYxi3 REe6dhnuForAhOIRfqdHh3I4Q0aEAxO2idClK861T+s19sOUaqxN0Xt6ML0N wobVKKm57X3hQXdupu/46qMm1vaIaeWHhHrCSjKLwBZfph6AKZo0gCFYdTp7 EvPkYEgOTCermDRKz+eUJtWswp6hrIGbdkN1mv/lNR3LnsVXmo8Dgt1RYZ0k 94bUs3zzzTfV60p1b7lMN9iC64NZFPEpfmSR1POOMaFgJEpbYV0i5Iqelv/e T48h2RBfvUx2Qkmdqvr+N/HpdCUO/+fQHb0Xq72RFPXgOLWqto1+mpJCkFA9 dJemsZ9KVNmj2eOJojgXJVYQGdMa/l8XiYZFzag4ix4shZxUm4jDqm7M2BOr g+MJGMtKU60o45I/JlAEYBCBjDy2/RgbOTgxdt6yNyZ+03l2pcJ7WdUyTqqM W/LW5g+SZzOozor6toqDmqocc4VPAEZXbIUCWT3Ctla54GpBRQXuVFJzZcLr F+wukCfUtcy1+m1v0cEzwkMVLZT7ssBQZ04tp6ByWK5djVBKVc7zBNarb1PE 0wqNi6bmvC068doZv8e/ihmtHgmBMm8HHpHh/wrerPG2Z1ooZ/kqlwaa1+q3 vcWpoTYP+Z5VtvirK5QywjAu9KaPVeAh3GOJpQCl86EcdqPk/Lg3TfJGGFl9 p4V3iiK8amJFh5cAS1yflPFmao+lTC/LErvokcnlBsPOlBW8wQ7fQ91qbysg fjlm9dw+qErP6A21qr+h12hTRYRpyD2wrND9lBuJYcdO8gIG91SHnNrnwCiU gYh5s1iKgtkSpFWNk4BwOxCnifLLOCIOAp39nTQJbBupDOAD23KMtM9PFWA2 SfKKtuiwk/Qh9Biol6sDyiALQGXWVjmGDyQqN0tUTg4dLOw+wEBhEYEXrbHX Dbse71eucm+FUsvGea3MWWoPCxlDOf8JvcZ4omf0GsISOatIg/BmnjSwhMDI KcArCGFl/dmWu+E8wvuvgPjvUOHkcywnx68OKAMBcg5Vd1GxsWyNgkcmhKUI cwcpMoAiyTalu0KN9Tept/FM4zeB0kHND6kp0P9ep9xTKotjBabCiMPHl5Tj 1QFlGAkABWHfGmnwKJaNQVU/olXyAp1KEGsdtIWRbaB9ErDUJ7Q8u0zaJBaq eN3heWW9sPj4bNa6mKls2YuWQq22wiIaasNKtpxltbFSP69seqtIt4hNjFOt CpgAyjXo/uv+csyzVB66pyvVgK0gbdNVVVzN+KTTrzfT2gjJrbXVM/8/SgMB Y1OrBAwIqUs5i68gDs6EQ2EIrQDUTsAuhTzi71P3gARFIoU63+j//9f6CPbl krPniFws5v2sXuPl+Yg3bd4iFcMtVIGelOzQkVPtM9Q8xsEHYrWRwM4LVOEc UWs5VAq9KWePkloOgUpd0ubYs7jfbRvA8xbvMZcy5zf3mFPHOCP5ftiktU9W XF9ovkG38o2wGBOl2yS2rV9WgjD0NkFdQSYI3PSHZQI1A/YrE9+VNak451TN rzSk4NyU2kxUFNuYKc4nCPFqIuUnhj3RbcOt5Ks8cj+AbmLks+VNpiYnY+QS abBqZCgSPZP1q6YJFji5TI+wKO6tIZmYziZikoOX8+CKFiBy7lLGJh1OzGD0 80SEuBuAJgAoRb8QAb311lsGtTtKVZUg5mYY2LvYca6dAOxFIZq7kfUpbqeV m84NOTlUmuQ23p/B1gAjzumexEfLUT/9ATHr5YQsUC5JcM/8A36vYDvgwXVZ S9fV47UD8whxUHS2fPfdd73u0Mm2+ROtiCSSpKTgumq3WdK24NZisZxhlnLY iql2jokmShsh1bobkM3q1AAOjgVh3uK2j21ZgX2sqG4OBMVBPjdzCxnCj2Zt PSnmEbMsB/eA7jApcqCTOofH1IEnbqgD/CNwZv22CiPoCwYrPxDMcbqPbDoG twpsXLHLG4fRNWAj7LAHI+T0xMBN5VYpKdb88ObffX1vKM9nd93S4Th0NJ0i GrSsd3POMyR6pyb0GqneqAPjT5Mu1xyDgSC80JX3BsPczCY1W2xoyup24n3k ZhUynyQy086tvXDk6Vn69RE5ojsSlzHyFHdM+sbndNiH57HwsQ18Kmj11IDe XgkVIbDQlUNVg29Q7Txv3afvwXCyQQ7b/eh+twO3l5DgpYd8DRMvg1RM0bo7 5c0qpLxXS0gHgA3tQCk7Cj5COgJjDLfLehMOB4Tr+oMgH7YduZVNULj8Xil0 hcFwWGHNFmIbHutZ9I/Hc69DHw2zFE/UToqItwNNQdzdbjeV/l0LmrtTJwWv OguHCDlG9UdiK/NEJcjvh+PqdS2UnhNdGvs0G+CKMSXxS2VxRaL5dX3eQ73C b2vP8dFIdCbbF8rIVV4hqWfu9ui5NKLrPOTOxJ8YarwzgKTr2hQMCQ59hqf0 fEtFUpJkxCShSZ+JLHJhm7spXhrrQBwOaM9/Jfzx4bmxRDSqEl6i+48VBhnX +DpZ69sUDW+WwM7swAwr9JSWFBtgVYEwkKMltQaIjqH94LzuE6H4QdJra+32 2PYElMTDcBu1M0MyyoEch72eueYLtmMbs3KmGVvMiKilabDWO0XqC9cJkbBj mRTYeeQYOsBzfwtEXauJyZW9hHh4Wh5KN/rDUVs47/iwQMkV1rcFSlaHOfbb emBiLzn0Mb0GaIicYUXsxRdfFJBafztFKXzjxo1w46Phd7rbhK4k8OySzkYX e1Efn3No7CFmctCfvRx60IPW1mCuAExGA/7g4bybsrwunFfjALPx62JssVyr uITBexJ9N2kL1A378ZJbq19ESF/CX6lB3peGprxYZ9M8NrIoiRPLM/IXYT2L X9mfOs0ixVRAKZ4GLtbh8PRwsfwOOHow3L+wWffAPEJzhnQPypagnQkidMpQ y2yAPwwwqc/sAwOTov+wz42cha77dyl9aVUndrk5csGNRsytZn0X0DRjCx2R QRxzKdRgiRkFDxuBSUxvHYGpdnoNBCYinVWWOPyO1ijBUPGh3Y+uhEZ50EFM Dgbgm5fwfVDkHP7YuYLdx+c7rN8M2e6cgoeBa5zVWZ9tE9qovt0QaGO4cC3t Us6a97o0zU8/qtfYFfyAXlsXa9gnZTfIjDWMjAtyVLrAP7HxoInrJ5SMbaD4 Xg9lppZuQu9LAu3LTHE3LfIYohDLPtmB/HgTs16gdl283OvKV+7YKVJCiQuX o4E+tMgNP7Al+eI55K6MgoxfoyrPaZX5jOgtZorMsLoFNdB7TCXv1QA5jlWa QmG2oBVXmeFKYt1Czl7tVdrtOSgHZnUk77J1DO+De1zlWX0MDldi6DuEKjRN I7h80UUWI/t91DHSUJV5TlUtwVecx0ljGvbXMC9/tdeH6Q5envPlPcNoSzxD OQQ88zt66+7d+i54zw4s9+ex2t/WW/B3l0t/G78fG1juz2K1P6k9y4mDlpkY 4c6TMAZWkvJV3q6J2CyLVZ8yg3oazoBjo6ApWanTVtzNGZX+n9JbbJM/TmrJ iUORaEvRgiiBkK8qv5x9dTY69D5fSN8bmZobQ801Xnt/GqkvvQrf4RN2au9s N+t8uuNt2W5Vps4LFrzCIFYyMGYltIokPWZ4ghN/wGOSLK7dwXc0DpOcAYJN zXtZTSWuHTIGfr9jjW91eN/77aueTjGI6TCtYj0gvv2xNNOFgRtN3PCtLtUr 8F6A915ImGTl6lyNWUcSC5gvDYG9bBdx5kwHAC8gpgvo6bu4hbe2G+wFWiqb hw460Ea6WgBh1DJJqIJhcF1Qten+8mfgCxnJCKg4ApIDbOiUBo7Zg6tJSpvN MwYFroqta8jIr1LCOiP6weM6kmzeAGXqWvEmUOBf5d+w4iKFPDRzBrVZtfdq zFvHxAeiS97EyBsomJf7bO8kbMtBFsgGCfFqgwTXlHeP9WSQTPJu5QQRrFiq ZOm4AHFZWe4vftEYjxWTZ73XlHdXan3t3rxHLNxKtXgT5SlPxXppXuIPtedu e0a898EPLOIjAmL8C6tYao02/sLHedWoPDhDUuO4sJdv8XV5l/TVHyVh2oBD 8eitqKclrGrvh/fVE8E6lQ3XK+rpZAxzfcrBqxokn8yA19X1Jr7QMTHbo4rl qaPDNmaJktYWeEobT2HOC+UJ+RYSeoKkoGkazWFpEP5HNrF7SkxKy9ILptN7 IX89Mz/8yyaMS8FizCplnixJBTi9fCd5j/yydbncB/weRGEmlQPBTDbfJVOj nynt1AxRNC9qtO1FLd7610R4vYzeAgNXII7A0x7z+cIlEyS1Fngqtq5eiPfh ECQOCE9sojVV3f43RABvRLYSbq/O7thCjU0zolmm3vvsCQ86ItejdoglPrRc LH7y98wxPaFnsq9sxGr2ksAejhM6Nkv3GsY2zx7nr7t0keQpfWNkkqSazQ09 b5ki/HBIkAkgXC9QhOUZh7HwWNa6XZOMdu2jIjBp/TBr+EdF4sJjfWd870vJ swpd3sdOoLBIPSlNHkmJwqZALPI7vYQ7cCVsu29oNVjUz5jjz8VjwHmfMrlA hKJqxp/jWvmT9Cf+mkpFLnKocfPkwkwiv7ZwrnkfTbmhCsIrlmiuiWFq8taS hk1uXu6iXmOnlYWIVVgIkVcnZgPoGPrxFs0Peq//T9SO80oF+p6Mj409fstt 4Vzzvs7yPueal1rhjC8Uw0vX8pcvYF8UA9Z433S4MrD9oV+HUXGeUnI70Oy8 mX3a/zeP/C+TPBbf\ \>"], "Graphics", ImageSize->{417, 162}, ImageMargins->0]], "Input", CellChangeTimes->{{3.411012365176091*^9, 3.411012366401181*^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", "\<\ eJztWk9rE0EUn+ymiY22VWv9g0ZyUYsKai5exJOkeBBEPAQEIRShgZaGNqJE L56EXFWE6FnIyWu+QT5BPkE+QT5B3N+bedvZZLbZ3WySVnbozM7Mvv29f5N5 b2f7olLfebdXqVe3K4Wtg0ptp7p9WCjtHzhTdkqI1FUhxNeCQH/odFUzdP6G 19BgZjH9v7jcgzhPtQlhCykhkYo7hrkn/uQbaq7X64nBYECjtXAQl6hNi0aj IcrlsigWi4CLiNJqtUS73SYU5xoSZUXN9ft9QsDIojZDyJhDrVarotlsgi4u DhYxmNYM/gosESp4YMT+Ou8PT4SXcWNNA+Viq5adjnoB7RXMb2oQI+gXQ0lt u6b2e3bdMHc7XvZwyZzYc7GUedUqmCV70y8+gY0IS9vrRrgHX50S8uuugrTZ 3nd7ISECmN7kos2AdDNiL52adn+NqD778xylkvbPiFKpRPs7tisOf87WvDob 6dYVV0QTFHBGRel0OkG56jAQHCNs9Wo8I9My1263S1wdgalCAcehQYXnXRvB ARbHSAaNLNHVajWCHFHKmB3FoNU5NTcew9Ju5kIPCze0mbSJrvURHbS2qJXh U61FMaPF6Ku5zKiWWG0i4Bgb1AsrarHo+qJi8eTzebYwbwrxrdwMLpR9rfrp 5/DVUzpnDVtEYNNy9mjgSeOgCxfOMzjDkhSy1VO7I5TXbm89mE+4mDJGk1HO GOayvq7JjrkGvkABH1N4CuoIE88bUX6A3hzWlFXEpTJ4nyCVOW+eXmXzomV8 Px5zUHtUJD1fn0btaZKdkOqYUo1EzETMhYhJrxc5vwdDvXIcw+ql4dbWqYe9 hZY2IsvtmfycsEpYJaxOBqu7Liz1lsNB7Bske5RAJBDTQ/xJyBdCXldz+ge1 B+EgDqkd+5IUEWXkg1pIlD1qc4SSz+cFF351G/mYFhJ9l9qzJB/QcSqDGbyZ 4UQUqCNWCGvMXTWnn7TwBzV1CEQj9tfDaPCQjqV/PL2EESFwbgSFYE9+kYdi rGQxivNt1z1yQ0LxvrsnW1NM5M/QWtLA3HuTQCQQESCeu+Rv0bspb/00IDX+ 71tkmpj/Fec3XdIUqBA1VP0o7/5SrsFujjCGalGYtN0dHvW9l5wjIEiOIf9B l2XPiSoeZVIORRNgvtMlRzAQEKpghoMiYgkr4EBORJIrkc9OOcTqnwbBYYJQ 3xQUH81ilNVsDeFQnf4Hf+ZfvLeQRUAL3OaoqMv1WberJOfC0U4/rP8UbcmI 1D+8igDX\ \>"], "Graphics", ImageSize->{280, 135}, ImageMargins->0], Cell[GraphicsData["CompressedBitmap", "\<\ eJztW8uOFUUYbubc5urMaOQyODpEEFQQHTTGKEFQB00kQd0guBmJCRMhGiQx IUZHl2x1oezcTMLSjUF9AJ6AJ+AJeIJjfVXfV+fvPtWXMzAR1E7mdHd11X+v v/76uufU6pULn11avbJ2fnXp5OXVLy+snf9qaeWLy66ptS3Lth3JsuzTpQzX fXfJH3+8jB/ePMTXv/hTq3/z5s3+3bt3/d3ORNs3ofvPfIRmmOLatWvZHNuu X7/uh+Cuk+i3wCdXr17tnzlzxp+Xl5cxJtudoLHItrW1tf6dO3f83VIQ4z1/ GvddQQp/N27c8IqBBMi6+2l2u337duy2uLjoz+gGyRz1I75b2zfhMUY7wWeN TBgx0Guoa7BYt3/r1q2+IsSp7EV3XXukhN48svkEdasx2o3G7/rThDcoGNMg 6ua5grszaia1adzcc3MttUEOZPjX8s2PRDui98rKSuQI4dCGYbI5pMK1a++m qbZ9cy+6AhRwxj0Ox8kpjuk1G6nqsPpCEmOeqCN0A41xmjDO0+i0TWv06CaG Qy16dk8w+TF/mvKCYjRGgJqcgjMogNrGxoY3Rdsow35s63hOoKO4dtyyVjPH LxsSaOIc9/YTS01cTM4xtim63ZltXd8P7DSt8NwZZqyCRcsMxTBJB5s5jcRN 1AZKT3uFYVZJhzPSCM4YDuNpnGvTvLPB0L0/Cs6NRKYT3QtS0AKGeCr45Din hmaMDiiDNjwdgyVdH0ggryuD4R6sWmSvyHCikf20Nw4MpaNorEKEvEiry64g 54Z7amOD6dz16li6lG+ibnyQazKXMHHInJKH8intIqcq17vmMfRXxIKHlg45 2Tq+Vy3yQvXj/dZX3Wg7HfSFAo4u4V34Ne6NbUoTg7ZOyh3ZS+wB/RmAMdoU oAMaXa8A+IE+0hTGOJtNNiQT2iaiSfEM1yCpmUzPRNfIk1wR5QFIIg2LMzsM x2/LGrNOixljZHALaStkFrQ1JFPwqGaTDtjI0ZRHYQYVIfIeuks3RaFZu+Lc T3lU/tIiYu0D1qSTFRMplKEruM6naHQsDX8gGfgYdM+05lo3dmkG6aQpAMM5 3YtR4uI/S2XXXoW4uyueHbDOaHsJldp83nBikrs4KZa1Zvb9ytfPlWGaXrx+ taCEtZfJ46oqWaJN2P4xNFg6KhsNxXY/1h3dmKyVdEHLXct9KfulxNld8Yz2 O0EiMAqk1AGTc2K6EmQQZZzQMXohofLWMdNPeVWLImiJvrRydOboBTMk+oFB CJYpW8kPxaQK5bTWWkPJ1SWSLFQ/fiZvrmI2l4XhWJlLQYCdjMwFHRV7ikeY Wuayk5yZiYr2YvRbnmhDcpilimZcrljOVUpda0d/cFixHMGd9jRmhaMpqyXa 1aDPvmDUp/1pYmhvhq6SVCXLdpItJl9TBuSynBygDGxLpCnTJtXCUtEZkiWU S2Hlsf0XOIoq+UaMVdlvnaA0xiLebRCC3hpr9S3udDrMuYZ33EY4PXcxohqy 3j5a9+CgqKvCQ9sXbU5UiiZ2nDHb2Y3J4/Qld2LRz5AE9xg3a/xtNy+aSChI NJFgR4VtWJ3mY5v21roukTNqz2nvl60nTDxpUu5MtH1tzTQZN53av8nAaAcL LlkCPqxl1FZX9xxkP1hD63+XUaWNktYPXRvWkY/22O7cmLefKfN44O3/Bq6O WgvkUzMMhdRsU5CMbfYoqTh5x/+2c+ScRqHrVBkl7z6tKVzOst/yAso9OlBY SAKtv9YfVqrH8Lu/v76+HvLIeG5ucu2MceUotQ1TZUROwEBsHcSetBK2FIO0 QD/mK3m7xSc2dzheKqbrnPgK+2FKSNlWgk2bv9pOMViaxsqvQSlhdgpBy41l o787ZZTnZE32+yOQ9TxqUMvTNL4ym/6Afn3LZ8oV+sNifi4M/zARAN+xza6W n/znup9mZAib5TA/YmwA0sVQKBgUwxQK4qJYNlyauHjU65/Irg7I/j50/9FI x1UkdrdtP4Tu7/ORxacFs9aA0MJSKtDlPGo+1HUXH94LcL5vWA85JSS8ZtCy lCmgu1VQeaHrFkLl1PFNf9o03NuiUe4VqD1MK5RDoJsWsVNBehSg3eJcOB5u oJ2buuMU7L4g2PeOyh7iNCiFQlsjyTtZJm8d1vo/3p7tDQFygpxKkN4pPh4B 4n2BbU3h2RLO5fBs15LxB3W2j03yeXBw84N5m5dgsbL5CCDsYbY1A1BrOKfI zAxhqP9qODznqCq8uRE6+zpZpqDWFOl5PiuG+QMOWx/KGy2FzM6QQRUke5Ra WNyU2ofpimyXD4oU1JrApf9hWJr2eYscS9DYKfKogmGPUqphKLUWjbYoajYa Gm32LluIRj8fJHuWhNED8kLtHTRNFe46yT5VIKrSnEWnQ9HejkgLUZZFCmsx UBwUwU4pSTBnpMSQBFadfEEiM0Ny2YWJM5p5K5Dq54LBD5C98pkKJOBmAc1s jKn2yLUK/FSitoDzI/SB6jKiScEHM7nQHRWH1tgqHLrLRUcFrsGgs60FofnC ag9dkPqaxZZycg93itlrJjryeW02p7Ct3rVs2ypdqZN79bCtLMCgIbvzQ6zU 5xUTuc8rNO1UeVL0uEesW+6VBiwK3GM8FDOkjAr+msYqnMm/MQK8kVdz+HOF cfu5gldXc5ZZ5gSlLCYizS9lE0jKLZTXErL8nueu9TzMjmACu+UTIKtg9VvH vbidZu8iU0XRoKhux0jgrCVsm+kdVs4Wgm1tLarXUU1NHKCqbtyYwIZaeWO1 0o6pivXmJh1Y9373JNUpxhTyBp2f/ZUnWfcO9CTbTADkanK1/RnI7uGjujd7 ImtcmiOrfh+YsdomVIF02ra7+wBg0u/V76cCzJDGl20tJHdBs/CqBLOxZcvY 7G3/O9kU8QhK78jhMjiaZrwUwmdxOCB8tIRsaTHiz00Y1O/BB183Qfs2Na3L YPRxK8H+o3LJLvrf0k2oPq1KgQLCeSqSFvuMD72Tkntw7fpVmE4CVn6YVZ20 ikBKI5NUbeTSechgsCbEqsJCnFIbAGXjVJLRxDhXTvqS8WuicBZgkso3IoMg PRs4+JcbqbcYFyllVc04QbqpJCRPou1sXhv79iOwaVwidY1dy5KJ/dzs48DZ 3zxA/2FQdp1t+xvhdSOG\ \>"], "Graphics", ImageSize->{307, 98}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.411012385937496*^9, 3.411012397974473*^9}, { 3.415590743870036*^9, 3.415590751437652*^9}, 3.415590898179842*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"kr", "=", RowBox[{"10", "^", "logkr"}]}], ";", RowBox[{"kd", "=", RowBox[{"10", "^", "logkd"}]}], ";", RowBox[{"KrV", "=", RowBox[{"Kr", "[", "V", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Rt", "=", FractionBox[ RowBox[{"4", " ", "kd"}], RowBox[{"ar", " ", "f", " ", "F", " ", "KrV", " ", RowBox[{"(", RowBox[{"KrV", "+", RowBox[{"4", " ", "kd", " ", "\[CapitalGamma]"}], "-", RowBox[{ SqrtBox["KrV"], " ", SqrtBox[ RowBox[{"KrV", "+", RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}]}]]}]}], ")"}]}]]}], ";", RowBox[{"Rp", "=", RowBox[{"Rt", RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{"KrV", " "}], RowBox[{ RowBox[{"-", "KrV"}], "+", RowBox[{ SqrtBox["KrV"], " ", SqrtBox[ RowBox[{"KrV", "+", RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}]}]]}]}]]}], ")"}]}]}], ";", RowBox[{"ZX1", "=", FractionBox[ RowBox[{"KrV", " ", "Rt"}], RowBox[{ RowBox[{"-", "KrV"}], "+", "p", "+", RowBox[{ SqrtBox["KrV"], " ", SqrtBox[ RowBox[{"KrV", "+", 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[{"-", "KrV"}], "+", RowBox[{ SqrtBox["KrV"], " ", SqrtBox[ RowBox[{"KrV", "+", 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[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", RowBox[{"-", "0.3"}], ",", "0"}], "}"}], ",", "Automatic", ",", "None", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", 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[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"1", "-", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "VSta", "]"}]}]}], ",", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\<(E+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", RowBox[{"-", "0.3"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{"\[Theta]A", "[", "V", "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"V", "+", RowBox[{"ROhm", " ", RowBox[{"if", "[", "V", "]"}]}]}], ",", RowBox[{"1", "-", 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[{"0", ",", "1.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.62"}], "}"}]}], "}"}]}], ",", 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.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "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[\(A\), \ \(+\)]\) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r\)]]\) A,s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< 2 A,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d\)]]\) \!\(\*SubscriptBox[\(A\), \ \(2\)]\) + 2 s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logkr", ",", RowBox[{"-", "3"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ar", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(r\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkd", ",", "8", ",", "\"\\""}], "}"}], ",", "6", ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "5"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ROhm", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \!\(\*SuperscriptBox[\(cm\), \ \(2\)]\))\>\""}], "}"}], ",", "0", ",", "100", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"V", ",", RowBox[{"-", "0.25"}], ",", "\"\\""}], "}"}], ",", "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[{"Kr", "[", "V_", "]"}], ":=", RowBox[{"kr", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "ar"}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"\[Theta]A", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"Kr", "[", "V", "]"}]}], "+", RowBox[{ SqrtBox[ RowBox[{"Kr", "[", "V", "]"}]], " ", SqrtBox[ RowBox[{ RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}], "+", RowBox[{"Kr", "[", "V", "]"}]}]]}]}], RowBox[{"4", " ", "kd", " ", "\[CapitalGamma]"}]]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", RowBox[{"-", FractionBox[ RowBox[{"4", " ", "F", " ", "kd", " ", SuperscriptBox["\[CapitalGamma]", "2"], " ", RowBox[{"Kr", "[", "V", "]"}]}], RowBox[{ RowBox[{"4", " ", "kd", " ", "\[CapitalGamma]"}], "+", RowBox[{"Kr", "[", "V", "]"}], "+", RowBox[{ SqrtBox[ RowBox[{"Kr", "[", "V", "]"}]], " ", SqrtBox[ RowBox[{ RowBox[{"8", " ", "kd", " ", "\[CapitalGamma]"}], "+", RowBox[{"Kr", "[", "V", "]"}]}]]}]}]]}]}], ";", "\[IndentingNewLine]", RowBox[{"Vmin", "=", RowBox[{"-", "0.6"}]}], ";", RowBox[{"Vmax", "=", "0.1"}], ";", RowBox[{"\[CapitalGamma]", "=", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "9"}]}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"Farad", "=", RowBox[{"F", "=", "96485."}]}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{"Blue", ",", "Purple", ",", RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.6142719099991583`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.404272476373662*^9, 3.404272477958503*^9}, 3.404272668581314*^9, {3.4042727232240887`*^9, 3.404272728454939*^9}, { 3.404272786841215*^9, 3.404272804870813*^9}, {3.404272838309691*^9, 3.4042728618375607`*^9}, {3.4042729526001043`*^9, 3.4042730381516457`*^9}, {3.404273079691609*^9, 3.404273217892606*^9}, { 3.404273294955968*^9, 3.404273298760388*^9}, {3.404273387794849*^9, 3.4042734503165693`*^9}, {3.4042734961086283`*^9, 3.404273547525057*^9}, { 3.404273625605628*^9, 3.404273650497052*^9}, {3.404273731173894*^9, 3.404273767096957*^9}, {3.404273799830763*^9, 3.4042738707648983`*^9}, { 3.40427393239679*^9, 3.404273934883729*^9}, {3.404273974145442*^9, 3.404274003508957*^9}, {3.404274114255464*^9, 3.404274136338912*^9}, { 3.4042741762935133`*^9, 3.404274195910239*^9}, 3.404274257986496*^9, { 3.404274329300447*^9, 3.404274329827894*^9}, {3.404274362144527*^9, 3.4042743661154137`*^9}, {3.404281794664309*^9, 3.404281797246611*^9}, { 3.404281837182343*^9, 3.404281875096817*^9}, {3.4042819679357033`*^9, 3.404282033539279*^9}, 3.404282085939872*^9, {3.404282140862443*^9, 3.404282160336235*^9}, {3.404282299291065*^9, 3.404282345207913*^9}, { 3.404282812673225*^9, 3.404282870347505*^9}, 3.4042829101123857`*^9, { 3.404282941905983*^9, 3.4042829483433933`*^9}, {3.404283073216866*^9, 3.404283082327835*^9}, {3.404283141356715*^9, 3.404283182821355*^9}, { 3.4042832155227327`*^9, 3.404283258833531*^9}, {3.4042833626548147`*^9, 3.404283398426738*^9}, {3.404390659988315*^9, 3.404390689351815*^9}, { 3.4043907568818893`*^9, 3.404390784286687*^9}, {3.404390860657833*^9, 3.40439091742135*^9}, {3.4043910359543037`*^9, 3.404391054714142*^9}, { 3.404391767968842*^9, 3.40439188885679*^9}, {3.404391935788953*^9, 3.404391940364382*^9}, {3.404392002048643*^9, 3.404392004447742*^9}, { 3.404392051525515*^9, 3.404392068363361*^9}, 3.40439214659828*^9, { 3.404392703278009*^9, 3.404392771112996*^9}, {3.4043928035315*^9, 3.404392840756844*^9}, {3.404392972994961*^9, 3.4043929740834846`*^9}, { 3.4044290030768223`*^9, 3.404429021544701*^9}, {3.404429287683379*^9, 3.404429317399768*^9}, {3.404429368432976*^9, 3.404429454063241*^9}, { 3.404429505178494*^9, 3.404429557925486*^9}, {3.4044306288480873`*^9, 3.40443063643995*^9}, {3.404436058103282*^9, 3.40443606382516*^9}, { 3.404442176375844*^9, 3.404442230132934*^9}, {3.404442261628434*^9, 3.404442267453909*^9}, {3.404442314318016*^9, 3.404442328013001*^9}, { 3.4044423891008577`*^9, 3.404442389940579*^9}, {3.4044425469300003`*^9, 3.404442548202819*^9}, {3.404442639671391*^9, 3.404442640118331*^9}, 3.404456693542221*^9, {3.4044731628011703`*^9, 3.404473224992757*^9}, { 3.404473319237414*^9, 3.404473331786914*^9}, {3.404473366700746*^9, 3.404473438662547*^9}, {3.404473479901114*^9, 3.4044735206668663`*^9}, { 3.404473554174704*^9, 3.404473559247058*^9}, {3.404473610185067*^9, 3.404473670607089*^9}, 3.404473917120986*^9, {3.404473956994831*^9, 3.4044739580180397`*^9}, {3.404474088931505*^9, 3.4044741427717657`*^9}, { 3.4044741754491243`*^9, 3.404474290693391*^9}, {3.404474329701288*^9, 3.404474330346374*^9}, {3.404474373890414*^9, 3.404474374373801*^9}, { 3.404474404892201*^9, 3.404474408099757*^9}, {3.4044747799074163`*^9, 3.404474789322126*^9}, {3.4044748366129103`*^9, 3.404474847666203*^9}, { 3.404475972114959*^9, 3.404475987975752*^9}, {3.404476018684896*^9, 3.404476038872746*^9}, {3.4045301344013033`*^9, 3.4045301513930283`*^9}, { 3.404530190584299*^9, 3.404530267364694*^9}, {3.404530412065104*^9, 3.404530421363574*^9}, {3.404532943959751*^9, 3.40453302831153*^9}, { 3.404797302593358*^9, 3.404797348319078*^9}, {3.404797395180875*^9, 3.404797445296929*^9}, {3.404797512936145*^9, 3.404797531923532*^9}, { 3.404797584908869*^9, 3.404797680615205*^9}, {3.404797888873632*^9, 3.404797927843219*^9}, {3.40479798203458*^9, 3.4047979846574163`*^9}, { 3.404799350410967*^9, 3.4047993800733356`*^9}, {3.4047994156019373`*^9, 3.40479946595382*^9}, 3.404799543220315*^9, {3.404799579114188*^9, 3.404799613458438*^9}, {3.4047996653481293`*^9, 3.404799762097822*^9}, { 3.4047998049182034`*^9, 3.404799895494069*^9}, {3.404799942573794*^9, 3.404799954307382*^9}, {3.404800020381646*^9, 3.40480040525935*^9}, { 3.404800550808537*^9, 3.404800608631371*^9}, {3.404800645053679*^9, 3.4048007327873917`*^9}, {3.404800953337172*^9, 3.404800971605794*^9}, { 3.404801514373068*^9, 3.4048015834412746`*^9}, {3.404801626280081*^9, 3.404801679756674*^9}, {3.4048017255455723`*^9, 3.404801764976033*^9}, { 3.4048022738128366`*^9, 3.404802309061829*^9}, {3.404802472835491*^9, 3.404802488648676*^9}, {3.404802873068316*^9, 3.404802940995611*^9}, { 3.404803021397653*^9, 3.404803089530534*^9}, {3.404803131352415*^9, 3.40480331416397*^9}, {3.404803390688555*^9, 3.404803399355961*^9}, { 3.404804076089295*^9, 3.4048040991309633`*^9}, {3.40486865759769*^9, 3.404868695689033*^9}, {3.404868727872806*^9, 3.404868752113332*^9}, { 3.4048689449556093`*^9, 3.404868945390654*^9}, {3.404868977091063*^9, 3.404868999611095*^9}, {3.4048690325438747`*^9, 3.4048691321976748`*^9}, { 3.404870017553321*^9, 3.4048700526476727`*^9}, {3.404870143865489*^9, 3.404870165374588*^9}, {3.404870236586739*^9, 3.404870241266412*^9}, { 3.40487782873768*^9, 3.404877843702971*^9}, {3.40487789143778*^9, 3.4048780145768547`*^9}, {3.404878061361676*^9, 3.4048780949841347`*^9}, { 3.404878133750465*^9, 3.404878280232869*^9}, {3.404878337386598*^9, 3.4048783719798193`*^9}, {3.404878438417426*^9, 3.4048784934083*^9}, { 3.404878523465645*^9, 3.4048785775459213`*^9}, {3.405511207402516*^9, 3.4055112246878357`*^9}, {3.405511272072027*^9, 3.4055113144445868`*^9}, { 3.4055113899812098`*^9, 3.4055114055521107`*^9}, 3.4055114565897427`*^9, { 3.405511542447608*^9, 3.405511544702585*^9}, {3.405511578649404*^9, 3.4055115867779827`*^9}, {3.4058475004512653`*^9, 3.4058475057616663`*^9}, {3.405847683675837*^9, 3.405847742261528*^9}, { 3.405847813034894*^9, 3.405847862566736*^9}, {3.4058479034737253`*^9, 3.405847915737713*^9}, {3.405847972630558*^9, 3.405848071685534*^9}, { 3.405848263832196*^9, 3.405848371901084*^9}, {3.4058484122428207`*^9, 3.405848434439968*^9}, {3.4058485048212976`*^9, 3.4058485149310703`*^9}, { 3.4058488561629763`*^9, 3.405848893735724*^9}, {3.405849690954006*^9, 3.4058497433152037`*^9}, {3.4058497908573227`*^9, 3.40584989515611*^9}, { 3.405849957531012*^9, 3.4058499590584803`*^9}, {3.405849992307493*^9, 3.405850043794392*^9}, {3.405850099359001*^9, 3.40585011759512*^9}, { 3.4058517151923227`*^9, 3.405851779818666*^9}, {3.407381728101392*^9, 3.407381751973065*^9}, {3.407381805775076*^9, 3.407381829965534*^9}, { 3.407381996344166*^9, 3.407382069327729*^9}, {3.4073823592813883`*^9, 3.407382364765223*^9}, {3.4091446948309183`*^9, 3.409144704757983*^9}, { 3.409145150121394*^9, 3.409145169748128*^9}, {3.409145221801231*^9, 3.40914534214545*^9}, {3.409145555864357*^9, 3.409145570587775*^9}, { 3.4091457201985807`*^9, 3.409145810944936*^9}, {3.4091979660446568`*^9, 3.409197989979432*^9}, {3.40919803855297*^9, 3.409198045609851*^9}, { 3.409198098466488*^9, 3.409198112257579*^9}, {3.4091981504837227`*^9, 3.409198153522263*^9}, {3.4091983396772823`*^9, 3.409198394447831*^9}, { 3.409198430147241*^9, 3.4091985144139557`*^9}, {3.4091985569382057`*^9, 3.409198645920292*^9}, {3.409198680357965*^9, 3.409198759343459*^9}, 3.409198797333907*^9, 3.409198858249975*^9, {3.409198898586858*^9, 3.4091989590514393`*^9}, {3.409199010753881*^9, 3.409199011201825*^9}, { 3.409199080287072*^9, 3.4091990871999607`*^9}, {3.4091991313120327`*^9, 3.4091991506497393`*^9}, {3.40919921656496*^9, 3.409199219103196*^9}, { 3.409199254442206*^9, 3.409199358914257*^9}, {3.409199406952813*^9, 3.409199435516676*^9}, {3.409199472250305*^9, 3.4091994758022137`*^9}, { 3.4091997282430983`*^9, 3.409199729777094*^9}, {3.409199856059022*^9, 3.4091998895127573`*^9}, {3.4091999729793043`*^9, 3.409199974582591*^9}, 3.4092000546359787`*^9, {3.4092001436980133`*^9, 3.4092001934302177`*^9}, { 3.409200247031893*^9, 3.409200349184458*^9}, {3.409200427862976*^9, 3.409200432516345*^9}, {3.409200542244075*^9, 3.40920055184779*^9}, { 3.4092005960240927`*^9, 3.409200599302109*^9}, 3.409659897133309*^9, { 3.40966001382692*^9, 3.409660023471949*^9}, {3.4096603583021812`*^9, 3.409660398665349*^9}, {3.409826369914709*^9, 3.409826549832324*^9}, { 3.4098267129596767`*^9, 3.409826763001767*^9}, {3.409827039601323*^9, 3.409827041308535*^9}, 3.4098357049570847`*^9, {3.409836076781519*^9, 3.409836082369824*^9}, {3.4098362001620293`*^9, 3.409836205395507*^9}, { 3.409836243672278*^9, 3.409836250163774*^9}, {3.4098870624197893`*^9, 3.409887079496112*^9}, {3.409887480167531*^9, 3.409887579914795*^9}, { 3.4098876544890757`*^9, 3.409887764519596*^9}, {3.409887859654282*^9, 3.4098879077556553`*^9}, {3.409887976652581*^9, 3.409888061869278*^9}, { 3.40988810046828*^9, 3.409888150048283*^9}, 3.4098882021345673`*^9, { 3.409888254379335*^9, 3.409888294266397*^9}, {3.4098883322826757`*^9, 3.40988833307551*^9}, {3.409888458439542*^9, 3.4098884772445374`*^9}, { 3.409888971709462*^9, 3.409888973717918*^9}, {3.409889033847617*^9, 3.409889034565271*^9}, {3.409889118168438*^9, 3.40988912242384*^9}, { 3.409889184644986*^9, 3.409889245842848*^9}, {3.4098893768829813`*^9, 3.409889398954444*^9}, 3.409889446666225*^9, {3.409889504149583*^9, 3.409889509922298*^9}, {3.409889553883994*^9, 3.409889608326518*^9}, { 3.4098896500586777`*^9, 3.409889656222608*^9}, {3.40988977856738*^9, 3.40988981125292*^9}, {3.409889870395122*^9, 3.4098899106131983`*^9}, { 3.409889969637135*^9, 3.409889974296064*^9}, {3.4098902765772257`*^9, 3.409890283751268*^9}, {3.409890415914304*^9, 3.409890418997225*^9}, { 3.4098905365496683`*^9, 3.409890552736751*^9}, {3.4098906794376574`*^9, 3.409890683419834*^9}, {3.409890862230513*^9, 3.409890862679196*^9}, { 3.409890930368342*^9, 3.409891162540668*^9}, 3.409891262503067*^9, { 3.409891318307454*^9, 3.409891396810326*^9}, {3.40989148470792*^9, 3.409891561310915*^9}, {3.4098916666894617`*^9, 3.409891745151566*^9}, { 3.409891790173766*^9, 3.409891793373557*^9}, {3.409961984636973*^9, 3.409961986696422*^9}, {3.409962096004808*^9, 3.4099627009814453`*^9}, 3.409962748548418*^9, {3.4099629640122538`*^9, 3.4099629663158293`*^9}, { 3.409963014267139*^9, 3.4099630700368023`*^9}, {3.4099631037820683`*^9, 3.409963195971099*^9}, {3.409963538379722*^9, 3.409963546515532*^9}, { 3.409963582654696*^9, 3.409963585095978*^9}, {3.409963619057889*^9, 3.409963652687055*^9}, {3.409963687375931*^9, 3.409963695576548*^9}, { 3.409963766561234*^9, 3.4099637943730783`*^9}, {3.409963830067019*^9, 3.409963905879588*^9}, {3.409964004179577*^9, 3.409964017983913*^9}, { 3.409964114927113*^9, 3.409964125998127*^9}, {3.4099642392248297`*^9, 3.409964267664547*^9}, {3.409964354097486*^9, 3.4099643557036877`*^9}, { 3.4099760538093853`*^9, 3.409976069020897*^9}, {3.409976110760868*^9, 3.4099761636454268`*^9}, {3.4099762146885977`*^9, 3.409976215664937*^9}, { 3.40997630849279*^9, 3.409976396858018*^9}, {3.409976457868639*^9, 3.4099764704991198`*^9}, 3.409976598000903*^9, {3.4099766817519073`*^9, 3.409976687061287*^9}, {3.4099767313396597`*^9, 3.4099767335465918`*^9}, 3.409976823154581*^9, {3.410149429685978*^9, 3.41014953731946*^9}, 3.410149977823204*^9, {3.410150030864727*^9, 3.410150043755621*^9}, 3.410150428436063*^9, {3.410150572093894*^9, 3.410150580297813*^9}, { 3.410150632005249*^9, 3.410150660879929*^9}, {3.4101507708731203`*^9, 3.410150827384691*^9}, {3.410150874753819*^9, 3.410150892525072*^9}, 3.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.415362888027113*^9, 3.4153629336376333`*^9}, 3.4153629974844646`*^9, 3.415584323525094*^9, { 3.415591916441268*^9, 3.4155919491392612`*^9}, {3.415592000003418*^9, 3.415592044658697*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ar$$ = 0.5, $CellContext`logCdl$$ = -5, $CellContext`logkd$$ = 8, $CellContext`logkr$$ = -3, $CellContext`logwc$$ = 2.06, $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.25, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " \!\(\*SuperscriptBox[\(A\), \ \(+\)]\) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r\)]]\) A,s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " 2 A,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d\)]]\) \!\(\*SubscriptBox[\(A\), \ \(2\)]\) + 2 s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logkr$$], -3, "log(\!\(\*SubscriptBox[\(k\), \(r\)]\)\!\(\*SuperscriptBox[\(A\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -5, -1}, {{ Hold[$CellContext`ar$$], 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`logkd$$], 8, "log(\!\(\*SubscriptBox[\(k\), \(d\)]\)/\!\(\*SuperscriptBox[\(mol\), \ \(-1\)]\) \!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 6, 10}, {{ 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.25, "E/V"}, -0.6, 0.1}, {{ Hold[$CellContext`logwc$$], -4, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -4, 7}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)"}, {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {False, True}}}, Typeset`size$$ = {545., {169., 173.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logkr$423$$ = 0, $CellContext`ar$424$$ = 0, $CellContext`logkd$425$$ = 0, $CellContext`logCdl$426$$ = 0, $CellContext`ROhm$427$$ = 0, $CellContext`V$428$$ = 0, $CellContext`logwc$429$$ = 0, $CellContext`wc1$430$$ = False, $CellContext`wc2$431$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ar$$ = 0.5, $CellContext`logCdl$$ = -5, $CellContext`logkd$$ = 8, $CellContext`logkr$$ = -3, $CellContext`logwc$$ = -4, \ $CellContext`ROhm$$ = 0, $CellContext`V$$ = -0.25, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False}, "ControllerVariables" :> { Hold[$CellContext`logkr$$, $CellContext`logkr$423$$, 0], Hold[$CellContext`ar$$, $CellContext`ar$424$$, 0], Hold[$CellContext`logkd$$, $CellContext`logkd$425$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$426$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$427$$, 0], Hold[$CellContext`V$$, $CellContext`V$428$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$429$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$430$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$431$$, 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`kr = 10^$CellContext`logkr$$; $CellContext`kd = 10^$CellContext`logkd$$; $CellContext`KrV = \ $CellContext`Kr[$CellContext`V$$]; $CellContext`Rt = 4 ($CellContext`kd/(((($CellContext`ar$$ $CellContext`f) \ $CellContext`F) $CellContext`KrV) ($CellContext`KrV + ( 4 $CellContext`kd) $CellContext`\[CapitalGamma] - \ $CellContext`KrV^ Rational[ 1, 2] ($CellContext`KrV + ( 8 $CellContext`kd) $CellContext`\[CapitalGamma])^ Rational[1, 2]))); $CellContext`Rp = $CellContext`Rt ( 1 + $CellContext`KrV/(-$CellContext`KrV + $CellContext`KrV^ Rational[ 1, 2] ($CellContext`KrV + ( 8 $CellContext`kd) $CellContext`\[CapitalGamma])^ Rational[ 1, 2])); $CellContext`ZX1 = $CellContext`KrV \ ($CellContext`Rt/(-$CellContext`KrV + $CellContext`p + $CellContext`KrV^ Rational[ 1, 2] ($CellContext`KrV + ( 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`KrV + \ $CellContext`KrV^ Rational[ 1, 2] ($CellContext`KrV + ( 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, FrameTicks -> {{-0.6, -0.3, 0}, Automatic, None, None}, 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, Axes -> None, BaseStyle -> $CellContext`monStyle, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`VSta], 1 - $CellContext`\[Theta]A[$CellContext`VSta]}, \ {$CellContext`VSta + $CellContext`ROhm$$ $CellContext`if[$CellContext`VSta], $CellContext`\[Theta]A[$CellContext`VSta]}}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, Frame -> True, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\[Theta]"}, { "(E+\!\(\*SubscriptBox[\(R\), \ \(\[CapitalOmega]\)]\)\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\[Theta]"}], Axes -> None, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}}, FrameTicks -> {{-0.6, -0.3, 0}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], $CellContext`\[Theta]A[$CellContext`V$$]}], Point[{$CellContext`V$$ + $CellContext`ROhm$$ \ $CellContext`if[$CellContext`V$$], 1 - $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, 1.01}, {0, 0.62}}, 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.01}, {0, 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[\(A\), \(+\)]\ \) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r\)]]\) A,s", Bold, Medium], Style[ " 2 A,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(k\), \(d\)]]\) \!\(\*SubscriptBox[\(A\), \ \(2\)]\) + 2 s", Bold, Medium], Delimiter, {{$CellContext`logkr$$, -3, "log(\!\(\*SubscriptBox[\(k\), \(r\)]\)\!\(\*SuperscriptBox[\(A\), \ \(+*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -5, -1, Appearance -> "Labeled"}, {{$CellContext`ar$$, 0.5, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`logkd$$, 8, "log(\!\(\*SubscriptBox[\(k\), \ \(d\)]\)/\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \!\(\*SuperscriptBox[\(cm\), \ \(2\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, 6, 10, Appearance -> "Labeled"}, {{$CellContext`logCdl$$, -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, {{$CellContext`ROhm$$, 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 100, Appearance -> "Labeled"}, Delimiter, {{$CellContext`V$$, -0.25, "E/V"}, -0.6, 0.1, Appearance -> "Labeled"}, {{$CellContext`logwc$$, -4, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -4, 7, 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->{946., {203.875, 209.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Cdl = 1/100000, $CellContext`kr = 1/1000, Attributes[$CellContext`kd] = {Constant}, $CellContext`kd = 100000000, $CellContext`KrV = 0.12934716614948885`, $CellContext`Kr[3] = 0, $CellContext`Kr[ Pattern[$CellContext`ao, Blank[]], Pattern[$CellContext`V, Blank[]]] := $CellContext`kr Exp[((-(1 - $CellContext`ao)) $CellContext`f) $CellContext`V], \ $CellContext`Kr[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr Exp[((-FE`ar$$1) $CellContext`f) $CellContext`V$], Attributes[$CellContext`f] = {Constant}, $CellContext`f = 38.9, Attributes[$CellContext`V$] = {Temporary}, FE`ar$$1 = 0.5, $CellContext`Rt = 9022.700835180933, Attributes[$CellContext`F] = {Constant}, $CellContext`F = 96485., Attributes[$CellContext`\[CapitalGamma]] = { Constant}, $CellContext`\[CapitalGamma] = 1.*^-9, $CellContext`Rp = 14391.862303239608`, $CellContext`ZX1 = 1167.06078404528/( 0.21736369654519885` + $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 = 14391.862303239608`, $CellContext`ROhmEt = 0, $CellContext`ZX1Et = 0.08109171415450343/( 0.21736369654519885` + $CellContext`p), $CellContext`Zf = 9022.700835180933 + 1167.06078404528/( 0.21736369654519885` + $CellContext`p), $CellContext`ZfEt = 0.00006948371092842515 (9022.700835180933 + 1167.06078404528/( 0.21736369654519885` + $CellContext`p)), $CellContext`ZEt = ( 0.00006948371092842515 (9022.700835180933 + 1167.06078404528/(0.21736369654519885` + $CellContext`p)))/( 1 + ($CellContext`p (9022.700835180933 + 1167.06078404528/(0.21736369654519885` + $CellContext`p)))/ 100000), $CellContext`lw = {11.083155900513097`, 0.21736369654519885`}, $CellContext`logwmin = -4, \ $CellContext`logwmax = 7, $CellContext`if[ Pattern[$CellContext`V, Blank[]]] := -(((( 4 $CellContext`F) $CellContext`kd) \ $CellContext`\[CapitalGamma]^2) ($CellContext`Kr[$CellContext`V]/(( 4 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr[$CellContext`V] + Sqrt[ $CellContext`Kr[$CellContext`V]] Sqrt[(8 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr[$CellContext`V]]))), $CellContext`Vmin = -0.6, \ $CellContext`Vmax = 0.1, $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 12}, $CellContext`\[Theta]A[ Pattern[$CellContext`V, Blank[]]] := (-$CellContext`Kr[$CellContext`V] + Sqrt[ $CellContext`Kr[$CellContext`V]] Sqrt[(8 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr[$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], Hue[0.6142719099991583, 0.6, 0.6]}}; ($CellContext`Kr[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr Exp[((-$CellContext`ar$$) $CellContext`f) $CellContext`V$]; \ $CellContext`\[Theta]A[ Pattern[$CellContext`V, Blank[]]] := (-$CellContext`Kr[$CellContext`V] + \ $CellContext`Kr[$CellContext`V]^ Rational[ 1, 2] ((8 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr[$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`Kr[$CellContext`V]/(( 4 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr[$CellContext`V] + $CellContext`Kr[$CellContext`V]^ Rational[ 1, 2] (( 8 $CellContext`kd) $CellContext`\[CapitalGamma] + \ $CellContext`Kr[$CellContext`V])^ Rational[1, 2]))); $CellContext`Vmin = -0.6; $CellContext`Vmax = 0.1; $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], Hue[0.6142719099991583, 0.6, 0.6]}; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 12})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.411098750235429*^9, {3.411098872102181*^9, 3.411098906917694*^9}, { 3.4110989783016357`*^9, 3.411099009230526*^9}, 3.41109904310196*^9, { 3.411099238490738*^9, 3.411099296505414*^9}, 3.4110996068799353`*^9, 3.4110999399650707`*^9, 3.411100045094754*^9, {3.4111000796607523`*^9, 3.411100085933526*^9}, {3.411100128624798*^9, 3.411100135351397*^9}, 3.4111001817085543`*^9, 3.411100273428424*^9, 3.411100349286776*^9, 3.4111005814883413`*^9, 3.411100626183359*^9, 3.411100721802726*^9, 3.411100752129088*^9, 3.411100816457353*^9, 3.41119147773503*^9, 3.411191809020316*^9, 3.415362805428567*^9, 3.415362851339242*^9, 3.4153629366731167`*^9, 3.4153629981081047`*^9, 3.415584325378766*^9, 3.415592046561667*^9}] }, Open ]] }, CellGrouping->Manual, WindowSize->{1218, 835}, WindowMargins->{{38, Automatic}, {7, Automatic}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], "Graphics", ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], "Graphics", Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], "Graphics", Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", ButtonData -> { URL["http://store.wolfram.com/view/app/mathematica/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/mathematica/"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], "Graphics", Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], "Graphics", Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}]}, {}], PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrintingOptions->{"PaperOrientation"->"Landscape"}, ShowSelection->True, Magnification->1., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 941, 20, 111, "Section"], Cell[1512, 43, 148, 2, 26, "Subsection"], Cell[1663, 47, 2346, 41, 75, "Input"], Cell[4012, 90, 102, 1, 34, "Subsection"], Cell[4117, 93, 6872, 114, 55, "Input"], Cell[10992, 209, 152, 2, 34, "Subsection"], Cell[11147, 213, 5788, 96, 100, "Input"], Cell[16938, 311, 227, 3, 34, "Subsection"], Cell[17168, 316, 10338, 171, 175, "Input"], Cell[27509, 489, 255, 3, 34, "Subsection"], Cell[27767, 494, 4872, 84, 148, "Input"], Cell[CellGroupData[{ Cell[32664, 582, 43478, 916, 19, "Input", CellOpen->False], Cell[76145, 1500, 22096, 425, 431, "Output"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature 2vTUYoE67sNODA1hcxpmEoyb *)