(* 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[ 123718, 2493] NotebookOptionsPosition[ 105582, 2170] NotebookOutlinePosition[ 123004, 2467] CellTagsIndexPosition[ 122961, 2464] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Dissolution-passivation reaction (E-EAR) Steady-state and Impedance\ \>", "Section", CellChangeTimes->{{3.403415856707246*^9, 3.4034159010519753`*^9}, { 3.403842695580738*^9, 3.403842698565597*^9}, {3.406459875106577*^9, 3.406459906072886*^9}, 3.406689909722328*^9, {3.4066943349019527`*^9, 3.40669433984967*^9}, {3.4067217324958153`*^9, 3.406721754220429*^9}, { 3.407902360887068*^9, 3.4079023883519773`*^9}, {3.407987673889593*^9, 3.407987676474551*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell["Reaction", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztWstuXEUQncydt21ix5AQULAtBEFgIWQBG0BCQjIbkJAQUnZgQqR4wUMh YeENCHb5hOyJlA0IVvmDbNj6C7zOIl8w9Ok+p6f6Tt/HTJyw4UrzuNXdVdWn qqv7nplPD25ev/btwc3DqwfbH984+OH64dUft/e/v+FExZlOp/PQvT7Z7uD7 1H3l28Opu1xj88d3/qOYHh4eTu/fv+/vuv69N93b25tS5fTSpUs/pSNu377t R81G9KePHj3ysuPj4+mdO3fw2bkVhn3tP4ZevL+/75XCwL1799ACuVMD7/vT K1eueJnUOOPOnWAWJjDejevQo2/YBJXobj2CCanDdXJy4tqctDPycoxxMj93 qMZ3ym5Z7UNv1Gp68OCB7wlHRrSGe6Lov7s+nUTNwMPm5uON4QJc7n5MzHEL zdAyw1yDIYVe+AJw8N0p1GDBz+bSYLQKIjP130Kvawawo6Mj7xt8xfSSLgNv At10wSvX9Vfbq/CBhQlnltEovM8YDdlrlAkv3H1hPZ54IJSE+GRw/UyAIeRO 3WVqQjOG4O5NytQNiRXSK3ghi1vB4odGhZo+p0xo4O7ZTL/zhAVq4SUmREgA wk5qAc60sWD7XWBsYAGRw/zxQnpR/Sq7wDCc0MvdO2Wz7LFtUOVkr2Ysrvj3 oV8O6Ib5InDwVAF8q9HkqMqkN+J0dxGfLt3jqvY2ZMf1eabSvZ5Xh2FU3fW2 gxgiLtmCGpROqAETOq/FIKNo2wyQyjCalVaqQlp8zseYyPMOFrGcIFJ2EcAz 3I0pUxWcRTtdGNLX5EtRsuum1BG+LFbSKT9y+K5SBnQoj6ptlZULSHUgi7QY MXUQPlsvVZzQ51yKMGYEFWWVLKeNCAtN6yLkwZEZmnL7+YxspaUvPSaO6rcu u0dZ+6tG1gzvxMLrL9hmxGNUXbudFkTYab2KLnoT37PsRHwSjBAuFEfcVeM7 9PO0WQMfuGcx1MEJ1rDOC8EJ56Jm2WQ9aBkks4YVaHR9FsvPeQC5R/rvZgsU gJiLVFxIYcMolhC3iPBexKMLFtbL7KfNFLvLmHuMyXw3tdAP1jmpuBfZhd8v uYRTypp/L+IWiLtVygAg7bCeNfs8Nr5w1WZ9GSw4tzaRwDgui3g6cPfDkim4 2fPv6Va9nkYHi0JJp9Iq5FBuV4ipLOmFMnmxMqcGES1te3DBoSUvBRzOqy9S hi5wBaVtpaV7Y5qTrGRusawfz2GtaqsdEqVLy1XlDO7akqnz/0YAet0AYi+k nUubNd/ci1s2LmcxB215N0SxEiZaFNNYCYKDjHys1ao7uFur92zCZkKdYOJM tYE2ltPShmd3rNy+zpTWBicIMSFt56rYThYWfNgqbfAwLz5GJdoRTMjq0pcH nKiLtdmue8EoaOEdt7MIbYXHgtacQ6yVOmhZ+cyRZAYZYBRWOvrp4v1miqhJ h7iEnLY+TcJ9e/jQjqzTs6aG5HWIVQPai5Z4QuxC99v1XqgYC+ww5VDRtBVZ aHJHWx1rGU8Nh1jJGNZpPx7O9cK6JlwbRps2P/d9QPNKY10YrcWnB3Vc7JeD 6Q1CASSBrj3hO9+1t3CzN37PObWV0f5BOg376Oq+h2iv+TBIkbKSkfXfFXlc pC2Smky/A/NQ2nUUI/PA23mdkVI90/OYsixHg5zLT2Ero363pWuDFBx5Qy9U XACIjFpiJTwRT2MNRxuz5z0ObeZqelElrXd99g3sEdhSNpt5X78MM/EY+VPL kBPEotNzoeBwso9MqqSMT2EZH8omPiHLyZlhfDaj/a8ShxyEnxGSZVmgzaiJ qv/ng0p80C/Wu9bcz89hVJbbfIlW7IP0P2mTpYzucsY26/HppiKWZYvDLGFz aFRJtp2Rabc1RaqNWlsNtzOyGrU6AZdJmFn5Cw9d9vEOLngmBQ8GvWSfb8nX 7D6u1ZTleCUz59V6D06PMbKg1jFGPO6tcZg5gyVlKcdTlJ8RFmBulA45omgZ Fy4bWRnqJ0Ae5UAOlauePNqwYI+SbrhUkVn0chMtGMq2HI4tJClftJT5apzT c1LX9FuOTmoG3FI48zxSA9SYkJxzVTI3V23kFeTOTjDlWqvwbGGjLm9PhVRq D6Nlk87Xg4dI69nBeVUNXjNZY7kskUTDePoWhWTpovHyTu1Qtgjr9WSZppEN j79gT4njQjQumahimM7aiA0TcLQ+FHC/cdgFWk74Cl5H6FnKaPI49sLcQi3T /FB7cOgUZJaBXTc6JNNiORUuKn8q148eqC8KRxMPtW7D0U/gwXdUa1Vyc3KK ERavXEEDafe0xNLKkqYKRrANkWOjqgDZp7+6AFVM5WkwWslWMENIxxUckoWQ 4ZPmglFBHCkYlooqB6OtKQWjhgM6lWA8fQ4sOWbOgJkPcfipWFU2jUEzLbW7 pH4BX8MqnQLw/ymtlkRgRn7wZN2nWCWCwIRHmEl82hXTgntgYH9xcEYWU94l 6DUcWAxapnyEv/mwrfy4lkvl3DNoW8KqP4+esj+yeb248yTojeJfK3Dp2RIX s+3sQkq7TJQackwIxfC4vjpo5TLVyrYzsvfnJ68jirMiP3Vaop8XGd1mJm4l qXX8ySeCVSJyE7SavdAfSCrYOG0raNbPNrk1fcMiUGhj9Zk2NCpUTvTrWu44 MU/yjbLLay5Bms0+V+25JVQUDZXuIdtU/LSg0aYo1pGHOhSZ4pn8qWcRe5vU Zc99nMI7jE4t7Tj7qwxy5W46soJztL95KDK/pyMrCMe/Q693OaEc4Zh0qSQc /7K9mgnHP613rQnHP8Ko9v+w5EfnzL/rViYt\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{237, 76}, ImageMargins->{{338, 0}, {0, -1}}]], "Input", CellChangeTimes->{{3.411885384417211*^9, 3.411885423122438*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, { 3.406460288938157*^9, 3.4064602946306343`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzVnduuHslVxzv7O+6j7b1tz9hzciIUJgQJxSCHcIW4cLgBIUTEDlyZKGiM BIQkV8MhVyDNPAEYhECCi3kDv8E8ge+48xP4CT56da1f9b+qV/fX24eR05K9 v6+6q2rVWqvWufr7g0c//+THf/3o549/9Oje93/66CefPP7Rz+49/Nuftk2L rzXNwSdN0/zFvcY+79qP/l9//ZX9py1vY8M73efF7ssvv9w9f/68+/Zdb7Pv 1m7fHgXP/W7w3N/I2Lelz6efftp9+5632Xf6LOW5Fy9edN8ug76/N7PvXyYY /rf7s9p98cUXu8vLy+6ffW4fbTsYsRa7x48fg5UmoWK9e/bsWdduz9tf+972 ibo8cBhs5ocPH9oT1m3rQN2/fz8Dtb366Ic+uj3q/LX74IMPWLJNaDM8efKk ueFtNpu1KWqs7fPPP+++3XCc2DQ2nKPRpmgOHIR2igon/fNOilEcXvc5AbmF sYmwcX7Fcd8AKs6uTpDb3qWdhtWxIuseIfDbiRf/p/tz1G0V62m97J99tjbj S5vJ2tq/d/xxg//p06fdUPbX11M/zqYyaroMajbeZo+ygQ6vNuyxE8m+GnYM M7b09m+BUV9QxrxNZ0Mp5odMcqjgdlc0z7vB0g585ArcC39U+Lql1RALF/OH fFMYOL0aIdhBxm8MceZI1F08hsRfT0z4b84Y1mwzwcL2qF3tTC4ElkAPwx50 y1tnfrXLuvlMaTufdLeM+2Fvm8XWYe02k661/X7g65KRWmQn1LDH7B8A2l/E rA3dfv/Q0WAYt1s2DLMgLGwoA5/9aRLAid+2tT1dYPk07bc0po5ll/WxNpvL VtXea/ub6Fxn0GassBv+wKDgLqLHpB9tqJSWEJmLhV2crZY1MRM8i9zUYt7X s+i62lT9GhOnsglWs/ljnfkDvNiz7fgR9BdOUWMMeMfuwRh0tz7t5whla6cI WEadQ5EhlTfIeXRyt1LGY08KhRv2+jiVV+gGBbf5pSLxeu8ir8TKqtr9ylMA ynCKZTeGc4ySfMg1q27x7Hn72+K0uZXo+kS62W3rplD6DHk/AxFUt34s0vi5 XYXvgd6iSG32/yJzVI/c6x1T+yoyV2BF1FZFMN9algDdWAJDGsskMXczMzEX SoJtaCCydLatgsbULqQXTjHdmnbZ97Z7guSs64GitsdmLi6NfsrXPDoqi4VA C4wjY2joYM8YC+yyfCrpDZOrggeBaCPdDDYX462D8ab4x2Cx8Yw3bOwIbiSL EaLmH1Xfacxt1+aSKytXUNvOheCZYlW752zo4G8yagOe8GfWheUw4ImF8oTL xiP4IlOyZowZUP9yMMX53qXO3AORhKxBTlqrRwvTfPbZZ91nG976vyrPMa8a yC5K/93Xbt3xxeyyqVtMbL0/whgC2RwX3tUeta5A4YhaTXTdOLfadzUo7Dvc +qEAXdPcvhud+o27CZ2KciOvi/vCe7XgNW8SbRaBn4ZbFk7dzvS+GUqbLFBR EUDSW7mJZO4Y+FSbAQ3Ew8yklhW0Zvcs2kVgnHtXA4PwCCtpwV9OLJ4VQKsx uijOkTZCE7agLujYEVG7NkqXKbZ6S+gyZxlT7DUlOpDntv0jtgU90RpvCqwj YgCTEaFmw7TDEoWBXdwMvPBmuMfDItv46W2ihUWGkiR3O7b5SDjFhjAgBBCW SVMvNV9u07sxiefPEG5RrWPgmRARrA5871KmrhjKbtFqKIK4VGrbdmtSZYgS tCHaaaJNwq4fIdU2BgJSsVqPyW3i1a58DggLRdzliijyEtu9G2bj24goyTR1 Vm87dY69qy8jd53HZchdcULyLlkEzsiBz+a0H5sNf7Ja+i2Bf0QeIOSF+Dbg ufec5ywtskBOlqrJqVK6Xfd1G4BIWhunXVcDQ+MLupTATcTLhC7WBVIb9Fiz XZh2VwiNwC9yiE8GjpEPndsI2nm07cRntNtsFnGdxStrjeldIcl7hltldMMS RneV/Nivp9PkIRq5zy6E3dx87p73mIOHGY/VycgLV4Ul+A1lwCwHY7sPv8df LX5P5kHFNhhGQbbd+iXxUXc9nUmivab7Sh0gqNN8Q1DtUYoUg0EPGALZbe2s B446j9d0cxtoVRSw4472/pGPQtzGLqQa1hZhOrtQFP5sC4pt001mJmQVwmks VMcOxgeT0F43j/VTzLqT3SSYFhpB8ZxIH+KHL0xGrZyIilrWIcoN9tPg2+kE Vb7uz+P7J6e87XnNIUJA67pi3PWTJt2Wtp+QK8texd/JDPydvA34mwYx2ne4 lBrgrPvh/Aeb6T+6P6UvRUim/XvPewJR33OZEeD/iLIYgcGX/XXheiAj4dbi qZEtMSDcK2ve9+c1pPEt4SOyTZGzYpCVMfxdttvoRzZ0ZOEfCTdAol8NQLr/ GkH6ZkDeb+8j3UKttWJYmJ+Aglp6KbF7Ixu6WBKGARJRBi5aLM2YcwAa73Dx vVGBmDevoc6egQM1Jf6x85HN5667jb0KloWDq1O0964Hj0YYYHZNgH4cQPSd V4aIUSWL5lybRgUv7aiJBK7NjrKeBGuIC2B2jca2kAIMTxmfDWxvjdbpPXao D4lAIy2P9DDdCeaQSko39r8LX/SWLCRJTgS3Xa5+m2svt2rkrbHUxwFo33kN oP1AxkUnO63+z/4cWItWEUHnD6XtdVcWdddXXyz1wwDU3w5A/Q1vQzzsdn09 hva9GfT9hcwXFUH9jrdFRVC6zZDOYpvlhIeOdzsY758EBlizrqKyy56Xsieb K1WuHA4eV/PAuthuQn9Le1gstHUQxkLu1biayK2gy3IKr8A391TNkIkJCLaK u38kCykfLRdyO5hGcU1Nx1iVEDi3DXt3xrMuWsOIX1QZg+gLylKag2AMbERV JIyL0tjtdmFZjMYEKMnaBH0RIwYHz0Eahf3dYI5/FNwufIaXLn5ZhWS46SgL ihvafiaYt/vIs3Hcv97ihhtq8WeQNSGPAua5IOcfUn1ecUPEE9aGb32F4gYV b3WSHPa3soBtMI2WESjZzZ2B3dTAJD2pyCOziQYmxIZo9XRkTqyKS6bu0DpY hnJoXVA2nY5e1uUMEeI1nfEq2WhnCfK6ylXIGE2mv/Zs9J4Khb6UEO0aqIpx Xm4hnMhGT3K0IGp2JlolH2yqFTD2XBIcwzmYdx5BS1gYTzV9FIvrYDnofdg+ sWO92s8qfon7b4JFKXOTShhJUhKtUxyTWB5JTjKjkvO1JiVH88Qa8IeoETST echVwc6oE2jkrpYsYDr/qPFBgD0NxkJdUX/HpblPexbtO5qvcU2qGGJXmzRg LI34b4Ox/iGhtfsCi0wmHxfZrDNX5aZjeCSdpcZhO9raJ3jd6azR3KJiD+28 imFDEO1PXZUYAKnDkpi9easoZ30aDAfP2HBS2t7ZB1q2iJV7EIyrEVuJ0mfC qWyzOWqLcB/P7ElQvUoGJDlAbyADsj+7BLZcK1whu9T5QF1t81TOA4xrzuOs 6jkfecyASWTsqWNglQOv6hxFGHKOsicxnQjd7EQFK/BDjTOdFxlE4Dma8KYj 8LofdB6Y5SoZjCPBv+HLkIG/m2izNwIflQ+fTgx7MTKs4TIYFgNaqa/YcI8i Wxy93ujN6lXWd3a5CM98o/fs8oWoc4303xPa1wg3MbUo6A6EPStOR7i1GrsM updj3ZKx0NBVha9TdZ0LURUr7fgIdlHQGYkcuOJSAxcwejduXRgJdjn4Q8TO D7yrjQc2VX9om+ucZjzmvFJZRGQlRxx0jJvBGOpfFTZPV56wCKCrvYHes1jW CvfAMAXiRat1l3rXY/EgzsLMDAsTndawMMjUBdKGHXEpBWxxTFjJiVi7Hoxy MTaKGEE96cqFpzlOFNJMUlZERgwV064Q3DOUp+YOPAuDIlG1Smj7F4LquaHd 35IV+lWwxNzQbne9Bed/v/qGv+/+lBj8o6Ct+/9fyz4ai9VqJjGwfz94NBpK 445RzPL7wXM6DlHmKLB0S+7VZ1fcu+7VOPuJWlyNZkthRDqodppvoV/YChrL 1CFS6HLX6RTMJw3KkzVL46+jqe35WlXZUjSlgQWW+H6bg42XXuCJ6HuRzsck O+m4OL/ilV75MV2Z+Y84gLZKhMaNACytWq4pw3nmaHwkNdaKxGGznVFLYhdW nGvS5XTRqd4aLOPu64wgoPAolQaRStJcHyNNN5uef1QTpH7uNxP3ErlXE0FP mU5V8yUQhydPZfeQFM++oz5burMn+R4Olj7HYdIEddOnn7c5vMdlIJJwy6PH M18TJBNt20jby0XbtlisXSMcSSIsR2i3ag53INHFvUjUic1YZw/l3H5x0J1V RDHI45l05QgKziyXwFGEJcQ7zbaYBN5YdUOMVpdNCZyOo/DjLD/jMKWvHSts 6bxTF34H1O4+uxmgVjC7BKboviT1Hm6PlGA6GrD9/fTege6zlNmTeBjn/GW+ 597MQrrgUdUBNWGxhnNpM5Dg6cIyGHjhrKXVfvR3m6mw1MAEISwiJS57NOrG EO2/u94nCjmmhGgqsCTmgrvLqnKB2GFGDHY28hMB1wO8UoCrM0ILRXCjPio7 Zilt+H1X5TgnFBynwdKrcdx6wHHF0OVqeK/GHK7zvapcBxeUXFcWlktRwxxZ C+NpRPG205OQvBfDZmnk2qPzkQjj0B8tYWNv/B4BXSSMSaQ7fi+KWt7y+XFd yBj5uDpewxlY0OMGzIDeI/DXST0TiFpZUAs+raAhTPgVstzVbIBZrAnRIRZm GZbKi+7FErtOHqkCrUPFEBgG0BByYCY4iNeyPKmxxYbX8ZG6PncuiKAf/8x6 79D3EoHSZY46+Yqgl5p199Nxzxzp0UiwXc46mAVYfrtOjberICYYld1ovJB2 pOdc+mO7qfKzixgpPKU1djlUvcyx2EJ+HEcYyKMimrxaL28YCWi5pXMyh7R5 3Moq0C2sHBAhsnswVamGm0l1J4jDy7uCTCc3yuHanpUOi/oQXACt6+hra1dR TDvMiSfMnuWNI5I7zyfjF3O3fTgUMPIqnSicjDyOTHosibK6ZV1IN/ii6VMa qs415Ay6QaouPLXtjWqfO6+psBIIiloED5cOTjH0+vgoWmXGtYyhUqbWGgJG tgpnkKoIXLq5loJnu6yMYOYIYd2EExtA45vEVcjqj5jRdTIrqqjWsIezUvNO AB4H21SYpeNz60HazRHPKjQiryVEqu17GpbGk6dvM6eqT0TfFiQNm5dlIP2x HB9u5UBrpDthvVssxzmmUga8oalmWtWOmt10K0+t4z4ckaYL1tx9Nul8KP1q q9r6wA1EymoTJ1l+SfsoqVDu3ZdU4jrJeU/lzQ43HLlV4bmaS3X4IiqI9P0X ctz7/vyL4YsgcjpPUxKY68hKxu8LLsv0hpMhs1YdMnFRrZl0/BfNdNAW7Wmi BfuyJDecoRAvXMQWWbqmyJsmB+eQYkpwuB9m8+F4bddlUF2rcYI6m2K6T19B OVeSgQGJHxZ5Xcx4kh1aGe+5o2F0l7M9NSdZZA8gpRzETxrELwaAk4aZl/4k sQNU637+aSWKitMWcBwuRscY+1KKO8XpntCk+/NA5w4CgemibmaZ+cceb5sB WN25rnTmMr9Uyi73xDhgPHRb+tNhGnx1sZS1hkZgYYkxlvlegGZ8m+9WlHH0 /6E3V3VAP4ubu8lc3uW1FymW/xSmYJfcC9qIfWpi6kHQ9mdp7H+WIQi+/USo C2b/W55DvNwL2jbBeLRpYeKDoO2HJUjWHXs4RRnWWZBSHuOEJb+kSSEg1uTu vaBtE0ynbQjJB0GbQ/wvfkvCXx6fWBeuq13uzgKxpp/+y9u0HOFe0HYYTKc4 xrF4ELSlfblXBroYy2UCnKEC577J0+3ruZSHfYcXxcI1e0GQBRmTXYqFRo2L dPGMHFiZRpufS6mhcZclCZLT2iXsPmNGjUDgIKyKe74Kx/FJVugaLEG40M8u 70f+Sct7mqZwD0oqLnMWyzcxL/+rCq9KtC0LmLv6x6abBtoOl3lzL6ZhmwBV 2SXiXlYCZ4PHJPdf1EhUiTESecqRA/aYos3hgIk1tVku/nB08cN8ZZTy20Zw KKePZws3U3j3pRwV1NaYnLXBS11GKhk08o4uh/o8B71Iv1UbJXOxtRPBYBUD xJ9lqJUzgCbKZxYbYBXRpomRlJ6fsz8Fgd7vV4o9aFd0pjRasV2KsVpSyZIm JVpFVA2SayYnlc8Z4Jsi3aZ2nZmC2DzSf19sgC2bvvXdiXhEh/qTzzD73b7v BUO4fhr3+Q6zv40E0M917EWjgdBHn3c2BBfEs1zU16cW+mjb6dxsdr7XQ7WN 7s2ABheD3ppXncrQ1PeGJ3hOCtxQl495UffLRW/LLBTcDdc6m5Jqxzn9p+sl EMeuHoMY6hnfpa1wMTtpIpEePcEQYCg6P7ksxsrJ+2VGRhFiPioSzxHvjSTU hiRZ1uzKwbW56x5WDYz3neBl73s+e94p+sopNh7pIyHlIQAiIDBkhUCCoGLh 5JmrRwd5UeNEqdYYA9zpMUIODnXOQMuMzXle3BsTWmMLFRyl4a7NoewouBpd Ks6MNfvfY8wvKNQnH9x/ABOacnDZ4RRPdg2+mMRIpUz4UP28bDrhluC6rGaC zMsW9GTbhBbSWiA9pVthEYGg/FFl3/PndnjCZjU75ZAK2KHWVc2vslg+gVbV lwxBG9dCBUjRj04sMzcartuZtMQgZvBBVUJUZFbjh3URD4vUCpUljixEXrEB ptQv1rG4FejEK0q8/bs8UjBHg6Ge+kF4TEQnBwwVZP0L5BXQjKC9BKQ+Yzux Xg89bEefLSqdyjTn8grTIMYiipJXJiRBWoJ7TtFciKn9ZA40CL6zIKlIrvTg nOah+BeBoPRoRjDOzx28CeUR8cTUGgU9k2Vre8UKakO1OKcebdKxF0CjMhQR dlUJQ9bQ42+Zgxgv0qHKyI6AzHrGH1MTFLiplI/5TEH7QTDHnyaMTPksonD2 UDr63ZrVoG+KV/Qxm2fP8g9XEB3E+Ep54HwqOjOmkjXSTFfQFp2DHgKjZ4JJ ZSyDNY1pC2dBXHYoKLAW64gY3DUAaBnq8qPMQ+xrklczUDH62BvTHwRII/0B fgiWwQN7qsZA4R6pPkaFvoj39SiRonBxoQzqvHM8G7cvuneqGJucFlQlugGi 6hgMObRaiXAVSiTlgw2xpCd6mt0YBXUMBH0eC2gK86/XE4nvsU77/szfk1eu MzIpRkpR94qcSJN0hI/eKs6v+tXqo2D7ctv7+0vlJKXOdDE204fBwyOi36hF iFgzwtN0iUT/afE8sTq75Fx07ue2o/PEN4vCWbvwGGfWWHafr1hsNwobgvU5 vxlReuTZjTjfO7tWiYJZAqYCfa0Y7NJ6xkpfKockvvh68T7I6i0fo5DZNeVy z8Xn/D27hNnJJnKutNbTgKDpmT31kQmJ7+WhrkoHgWru6p0ip3tpH3Cvm9t3 Z2N5jMIawJBjAjUak6g6G9MPyvTFVA7ywQS0xCMiKCoVN5cCCTnXJ1XFDMTN 0RR6zw8cTWiKYcBqSjJVFeRhwAojU8qh9r1qPuXEh7GrfZrEE2eO86KYqnwZ 2ry4FXX0EeTdzugQeCOYpYhavRO+v0cPemj5idT/ZS6o3SXhFD3luin8KRvE JuF4R1rNSZEgswuvHsDw9N3wqs8OKrwTBa8C1jYEC6Mr51Z7zsNvoDYEutSm 4bD0+lq0gtyfldsc9ZjPu5/2S0E+Tb5SzaG8tkprS0YFOUKuceCSUdG32WR3 BsUaEzgt0rJ2jSFGP6fEZNuLiix9iEpMqiSpIqkykZOMiAgTwHHPImIUgTTj y6O5LEWJ6DiG48p7YjwzpmA3pQPgSlriWWBG08+KQQ6vKd/W5KvYv98p7+fq lgluGgUnqgmYQ4HEGO8VumjGlhtwZ92vZhieSak1W++7eb0RuiI4ovVU3K4w oRU0247JS+W3l99q3lDLRrUugFW391FRdR3AhIriiF9dJqIslisM5sXJ0J/V WoimcLIHztC3rTJze48fm2J0L9OIXlW0tyigLFeoX6yoz6ntwRtOsAf77GtZ Rr0J+t4N2i5kXipqbwYwU1kuRob/hHMMs3qFfxzMcTd47nrQdh7MsQ3G41W7 WnNYv9bO/9X1gXax657Ev4Jw5F1k9O6aiPduvIunm3IXr0W5HcOGKcrkmJb9 wZjyXRNIejiPoqnn8htsQSnlFFdS4tMPvy6soDRCx0H6DmUMOvaCVCIVwZEp ZqQvHoh94yUfklptFN/0PZM2lvRrwXhHQV9+s6hepjPinwQg3HH66SHI9vFr To86Vmr04+VlenTLrstcsL4uEsjSl1oorQHGFnyF34coaufL00iHhTthl8yd Dzwqz0RnatkrvlOLXeow55gROUTmocqaLaDw2/UwH8c5KvxNVcCqBdonvX58 XyHxZSqGLF486dh0GbXMbfbv8/434UD8B+XPUugId4M2PX1dviW6fPWkslD9 GplvBWMcBWMgZbW88O+8DYPA7DN+faU2pX3804mhFQSUiZ7TIQKh9otdlNZG lYvW7iGDE8eCDAlkDWWhIqWLw6rs37Ef5MCpxGyyzxqJdP7gWCbB5ctU6VW/ zssZrmuKDkO4f9Q+eSe4Gx2LuJN7vOsjqCjxJ5s/l3m76y1739agofna/wMH AumI\ \>"], "Graphics", ImageSize->{616, 98}, ImageMargins->0]], "Input", CellChangeTimes->{{3.4105995543967543`*^9, 3.410599565518755*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Steady-state", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.4060057621201487`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzNW92OHEcVbk/PzM7Metfxrm2IjJNNlITwE8nZKCDsQCIRNskFInaUYLAC 2hhIVgKBTK58Zf4usITEtW/gghu/APgN/AR+APAT+AmG+qrOV/NVd3Vtjz0r p6Wd6amf81/nnKpT+8P9zz/75W/2Pz+4tr/zzvX93312cO33O3u/ve6a6mNV dey/VVVd36nwPnev9uGf/+HDfnzR3n/t38fz+/fvzw8ODuZXrlzx3/h97969 2rNR+yZ7qqf958i3gccbN274Dje8yo3fa6GbzXd3d+d37971bfjGbzx37tzx cx8+fIjviR9ex278esraHLq5ibga+M9hc/q7gnnfJt++fduDw9S9vb35gwcP fD+5OXfunAeDB/1KpRPOwLBDPpCV+65IZVS4Fw8+TyyFjhyBeggzh0tZ+sT6 MR7zHIlxDmEt4MyyOsZcsgg6HK05dsZLoZp6FGAN3/jLoElYuWZYICraEx7M dWKbmEwhTUhRzCYr/bUyuLUCuBxVAAFuIDAoEKgcF1Ozulu3bkVG3ZChEYSf dAQjWxdoI5F1GfokD71N38hLlCsR/Dho1ZlOseTHf5iBK9qm/Rfh5sYr3F+I WsAWHhqlm3sqA3pSnvKBQH/TBAatcrm5Ic8ZiWSWD4hFG8x22zCLrRjm8rzL gv4toR5LAr92/Ocsujj0mR79HCoCfW7O2eWGvy/Y3zA5gVJ6wNDtqflna+ha JBRiVZmBsb42/PcMCUAPDujqDI+X8eX5zZs3L8qki4YIg817R8cCNkEY2v6R mQPCzfkkvhJMOA09EhOEbREEsKp/Sf/H/n3k8QIPVeTGVy+Y+sAHV6z69sb4 DQPVN45eEDK+KyIyFNUz1qaBMZA0jX4FbHGVUj8U4YnM/I7A+kaGFLov/Dpj koD2uGrx0Dpp0IZqaJJoBkuHtaLrZzv/0BfmbSwVZE0SjjOobJSVRIC7+uCt YvvIRKTZT+gOq5KaN7gjsUsG4FnDvudLBOraFGtu2v+59+bQMKgfyGVif04S hE/XBQlgTTS0MxaD4JLBFAh4LSORQ3IBClE5HpWnlNIHZSyEvnVPHZiQxUpB RMYYhskd0LIf8xFKS9wVU5Q6g2LZvKPN2Fp0khoiTYtmnItcA/0ABSF1M5LP TbYLfe+1LCmQbv4DYwcgcmZca46CxyzMu4NmwFC6crnNdqFP6frUIDVNlsp3 htQKVvPoffNZY0dCtFXufqdFVa3aixghOZseMQpl/oHNuHkjY66UJ53sMUa3 ib8SMmCiMWZbfmVCTDIFRvhc6OQOqGditbnc8LeF8sw++yf+axhTE03P/pIO AUJLwaKh2JB10wKVyThodFFJNH0MMckF8w5CoUtxTVVomybRh9GK3OE3VmwY O4lekv0qDWfFwbVMomfkTlOHu76BX7khq6Dn8SHZjQmYgrVBBBKcFoyMonQE uRlqraE6KOJPQYR09bSqRSDbiK6MKsY3jZ0kWlYf04SA7ykNHdGqAR9S4G8u 4QwcGjGmoAlmrscHsvpjns53CJW2hHEgNU2JhxGlpaNsBrpDqGAbGXLGFVD/ ObDC6EJhLfxY8Ilc6ilFo4Iwxy1hGsejwlSSyT6QEcZPEz3IHP9ufUbyZgu1 wPMsUhkatzvQU8iYAjS2F1VrpPBgyZb2GNXDSHGC4ZHkNvCKnDBcHmaD0tVb hME/AE2wNTs6XICdJSbIxDmzD8hRQUlyM4jFS2oakmyH7a906lQZkWDXasOC 4pKgWHUtq6bcuG45no3rlQ88GkljsoUHQgFK20kkJFO+7McDEjk3XRKzZC4e ukvOVbv8YyrNtl2ejuk4dYiHAVLTSJp8czzbyCZ218F0pp4MwqI4mMQZnoph TM9pdPPIYGGWYGI4nsDj0YTaIdppAQ5fSDXGXewGKoa+mwL1yLAnrTXYBeX+ IRVs21umuw/u45kIzP0qbI87kxnn8f014OsOd4tjEjDyrLXRzXXhY2oJQVEp eGTePGSMlqystZIVvNtOqPq6oRABx3M40Udg6W8Brn8/6pLIReNTj8uZgayo JPK6ocidFPkiQ5hCm1ugGDdPN0tTtltMpYUXPQhabeHlW755vfPYiRkRo6ru 3RVl2DdMW24sN/+UcHvev59e6gCHKiZ8dbFPqtrzDd/2OAdc4yhz8mU+tZuN WV90GuxscSQpI4/wTotmXpV+m9e7ZkUNPcGa1Td7wqyN/MbxmodFFrg43Pfa Y5M/i44B0oLyAD6DSpfJriF68lW3V8pTpzbVwpj6kionu0MomRTA5eTzRar/ vdKPJnoRW4MrpqkBXRf4rsl2FTXJCyuE9XyGxlXUNy+sEJbS+JqY8Gpqpd9Z OcQdofdpMw0e+1hKc8aYPorq64bNg7rNuVrmOYneUPdtTMwdjNNHSNazGakA PUiEEJ01BvRHVRc+boRrxsnjw0xBBb+PlqBzIhGamRV2faGWWSRtB1Jy7T8S BTDhHGemB6c14h5cA3n1SQv1OFq4oaF9DOyAWfXNI8XD/OabNg4CYT12bFw1 0LHyxsTKnMC4J6ZLwtC24eGOUtNs13a13M1kgvEYcfhaBjqncCmZ2L+E9wvo aZZWGgM1JeS+19vbRfzUTcopUyTMhoq099YhT5d83i3AoDbBMQ+IH0XuNCSe T+MRIV8td3+agaQbpdDtl+XVcrdC8hId+CPaOo7BFwPJEhvHZ7pgfdtgLbFv fVFoZDyEYGAcsISv+bYl9xz9doQ7GXQhgX+cHdVacRf7krD7fcPfb7Nw+D7q Uk943BGULn0I3K8KyW+bgjsSZ25reu41LpWhDQ1az03SSxk6i3lqPsG/VJ5a 2mq0Kcjnmh1J+OXClFl+Sls3+czx54W+1wXGD0QjmYTuZ+Xu11qQypnQxz3G 7LY47J1W/HS54ecFU+bs72X/VevlgdD/H+0fxjNkltvw/DsMmYpp8YIHHUwM uON4IEvrwxOroieSKyKaEenheUeBNboDEMgiuY9wgxCJQ4YjpxpVwLq1OMGV AjKXiN6VUMebqRaHI6TjsfBFndgNnThc9RSP1BelVEIkryVQrFOzOpyUkXm2 qfKO3ZPDZM3EVBmXarpow+RYx4LQolwxbHKV1QUQ+c/vpbbEOjgfwPIw0L2V uCmLcdmisKqN6wJ9VjXRXJDBvtkWjhPRdjYJ/HgY8ZvkaPlN00Oqn+GJZ8eZ srnVSJ7zelHWMJ8WStaAWw9ulW2lpQQrV7Yv1dWaPAveMPxkp/SJWsXQJNU0 ZKjXvWmSxC72TD1JUb/byOq4rBZqTzMsfedyXJSvJvGMSkuWFI33bGFY10UJ YykM+3Jc7MwwuurvTarw9JDOwC6LCCVxF2D7ExFEbk2s67hOJXCvU2fgHHbl oIu9xK5GOblHE23aUJO8RDebUa0ljroU8ZZa0yzJy/FIJbnNxCbvEGjh1mMB c3q7sKdR0dtbhssrSV1XDxJiprHuTxYzoqgYx6lQEm65XNDtWpJE4ZF79mYT /ezI4ER7VDghioyS6x2l2zbplqO9jWLWIjJvbTHmcR2MstdplrGoLq2YRfES qUXt6BUWvm2rxULXVQpVh17FsPeBaU1vZYj0jWs3eGQG1XUFo2FQmvvS1Tfv m9OgOi6bBIN6OQY3CokJoU7hGZiutcYdFf+eg8Vzs9xdl66LKMKx2hQv/jOu UgIm7N42lQa/zZiylFjrUkzipSbN4BN9qCm9bmSIzSskps/aUhTKwoiu7VKL rmHNafl78V8M6aEKs74GIcwRmoQ4NmvLNUmv3fBgmkmBBLEvEOq+yRLrQPtE 03M/pHEphwumA0rrbk/pzg1MIjCwkcDjLVb+p6LyTvKwMVfmBQ8vd3K3pMlB 6apRuMfTPg32n43UScr40YJ1r8v/qNrKWPxJa9MbPCysMlvGr1cz4zYy4zzC Hwf66Dq5OzK+Eo+uN35IS46+3M0glcv5zLhNMzLdu+DR20MfpKSql7fgb3cH 0ltCvB3euiWk/473hP+5ujr2fwvPZlg=\ \>"], "Graphics", ImageSize->{481, 114}, ImageMargins->0]], "Input", CellChangeTimes->{{3.409749369222945*^9, 3.409749371197234*^9}, { 3.4097495463833313`*^9, 3.4097495493771152`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXVmsZsdR/nPvv9xtljseeyb2jBfAjuMtwdgGsQgcwBAWIUSAecQEApZA 7EiEbXgNS1gkiIwQBCTACAmF1Txg4vBwCUvggUFIIEwcCDwgxIBALEKXv7rr 6/N1n+o+fZb/zjj2ke7yn/90d3VVdXf111V1vvjpb//6r/3Gp7/9mbc/fffn fevT3/z1z7z92+5+6pu+dX1r+3Wz2dZ7Z7PXfcvdM/n/eDbDr+b6BfnFdzZ+ 43fc/9vH73rXu46vX7/uPs31nnyW+/Lpw1Tmt6nMs88+6z4t5feWfOQnf9r9 v3v83HPPHV+5csX9XL582f2VC/fXNc0O3LOr42eeeUbY4u4rRcdHR0fHjz76 6Lom3/L6/+Nr1665Ty9Rez9A3+s1u8393j/+yEc+4upFnfK/1Cufcf/555+X 59ZP+3rke5XQbEvvvfOd7wy93tF78lnup/R8h/t/4b5Tcbufdb/XPfVlSQM8 F9fPS9+ljPwIP9Z9VaksHM+eeuqpwM9120rbTraPwqv1/4ukW2tRrIuuK1k3 LGKRe1IFWL7+vK2tytdyC5cU2hL61kWVwvCdPLd+/u+IEd9pMBTMsxggAhRh yKUCUlK2AwPW97XjC9e8CsBd67Las1VgglyislJWuiOCRp0iQNzzde6xekdK KXURo7cqSCbGzv52AFu8rsxdN4UUIXX9g+rlI1QS9+TR9B5xIjQjXBPSG27O w/BUsqD5TOV2mSJuqavDmG6kVcyJC2UfKOEmVXNds+t6uEl0GFWKqqD4Fj0H 0vx8cuCaEbXAhXIQM3qpZM+7KantfF7ai2gki4jW5UIv0CzXIb1XasMMhpmi YWAzg4jotYdhdim1mdPiL9fvu9aQCz37D65jFmxU1LclPJB7aEueB99PaR3o i/yV/siMhZmX5rQwgxptuvLGnPY2IqW9DNZ29jQxSgiUpRAdkukEQj6l9TNR Igwd+0stYq1OQqC1On0ZkagrZijDK+x53ylZgC1BbfPMOzuj94Q29AcDAxNF 05+VU0ZVEHfpUuVmcKxXcq9EoNWprmX6VuI7BsglpUme4yUWcpDV4RT1L15D t3kN9bQ7TViF/9g0+vxEP3L1jFiAv5LkX2vbvZVYFS+Iq2hBlIsWwVnfVRD3 uiZ99/uTiMAvIPnG69aCC4KvYa6uWKgO5feXHl+9epVnty+kypM1orgyViwO rp4nqa0v0ofas3ajcM29+tm6ltsP63MyKEEkG426Ls7+pyUQe6aFtg2YaT9d i/IciPkGVph8+u8WKdk5ElzomiMf12+wnqqxGXqn4wJFMdOJJrapKc9wEFbX DPeE9oxtWbmk7nVv94gxkNF/tUjpnrQcOcmk9QjJv7OsQaIIY10Nj9F0a8NW OGTN5NcaGG+iekrWPAsWpOrEVTOP8XrJZL6b9Ks0NSmHTIsUJnhmuuKJhpv+ UWrGnqSWjiTiMJrtmK9yLf6Yft+eqpaOeBiY4G2osjxrlXlbtudU04iPZRsy p27v1m50mFoAL+QTgAnptTUAfZV11g66JtrbNce8m77vtEaUvaC5azb9Gepn 7WLgrpNHsU7+xte6P3MnFKA6gE7c9an+uXe4P8ayzw/dqQ9Bit5u8VOObnKc 9b3l7h2650RzsJzTShHmvhRCE2lhi+ztSqlrFba6XJ/8lXnZD5SD8J38YFJC hw06YHKBN6rMWx5LWH/y/ViGuQUPeW6oAl9wg4ntzVKXMQ0BqEF1AHwwB+gY nqXE7ITOgGpmnlu/ZGzFkEIjyLOe9Lvdn4b5uKQeXmygDbAm0EtsRoRqHe6h 55g2YEslII0K63yoE23JKgYlwiyG76BwBVr8iF9Ey3rcZOm705jdQpVYhXJd l8/rv1A9LNVUdXgczWICS1oFTietsJbDEmAGSxXR8D1kgW6zQMlI8tNhaExp DaZJG5FaRs9Sn3hJwmoLUwDV6He8XlOru6PktNMy2zCPaPWgn0XWon8nGrJG a9wlop23CWBYI4rzLIqDaGzB1BExYjZI6vaTyTygvopJgCWiDFCO2C5bRvoG liQC6JYLVmO03yjDdLICGJbpsn6FIcXdgj2ioy4vs73wFRYSDB1wUJmL/soj 2L00suR5ct6I/rA1YEEECMMsBimzeRnLbS90UMoIdVKG69Qd5pazpg7cV4mp XyJlQXqYsCqa33mEu9aOw8zEcx7kluu4zlS++CVHKIQn/ccIgCGZHN9EFMkz PAUzH4VPGFXgFyTsrmhCPGWOQtRPMgn318+oXu5EJkm62pJ1QPC0I0eX7y2p z1mtapnggqnPZkBCApSTeqZacxgokUe5WalKegg9xxYLswbKrZ+beSNh0bJa mt5vs03hjW9VCigEuiBtQC0z9EDhU9uNh2ZalbvOsTD3ImGCY7wiKicBfZIl 4zGzxL69X+/x1rFp+wFue2maSmG4xPUe6D3hLqYWq32gITS3z+6ooSlvhy+C kpOaBOuA7/HBC3CJ25N6RUmaxh/0jTc3Tn5ng808b/X+lrgN0OVhKvOjxFEs bC9RPcqwqEy6XRWGfVjvARiSTw8ZZZihKEPTdVTmR/R7mi1nT+o9BpG2jHuf Qv2C9nwFtQcaAAPAlJRPDxo0qMHhPn0WtRcjFfG9TyWeQB6OhgabU50HhQ9Q yz+c9F6WuXvdvT13j7dyODMT7tL04XGHRbDK5Ssd9sFaY6jGgm8OlE3s/IFJ 01n4sxk2uHrNXq9FLOQ1FFlyEUZG9pVooz9qHu+ZxBjP39GfdpzRE8bOyB2j uUBRABSaAnTrhRfbbsuxQ8SILS6sQ0yPPBXOqaVU4fjevv7mdjC45B70AF4F MnChhuxsc6j0phaqVR50MGhtOd7sGjxg2pgHlwb0I9V1i0Y+OUy9aOQ5lt4P 6fdoVxZ6r0+3hMkCyg36Ya9grwrLkOWdbvi3Ve2kTsYUAXcw/ZZOtA9lzrYs 0Bpa5VJ+e5N6GYkG2Mf6Uev823Nzr7Y17pAwhbFjask8UsA5Zg3DWAG3VAEx GcBelr/Ym8CPwnNgYSqnHxynhjBW693NcTYITI7b0QerXxaPeAXHqgaDWz69 0VBu7AIFSryUKDwfbNE+JGxfrTWI+AS95jnOU+B12Bvabb1OD0oZ6rfudZG7 rZrJ5MKKlr8A1JQNeX++Ws7shXVPuKKoqdWUtdpCubu5droFbLALpFzYTGIr pD32O5hFtJWAbp/rxdSDWqaiOxiC1JtckaAHNFTCnM0eKJZa8/cYEHrMFLqs Oyoc+bRnilWLoUCfmwNJW3XbdVm+BR0kLQKiQSuf6W66Kle3U6guP0/W9H7V UkFrgMpnzEEro71zNdw4Z5FfItF9NspYDhxQK4xbod5SK6EQ8DHUCqcRjDfQ Ggmj1J/oHbtBA02X6jDpA0SRi631cA5Tr1UZijwf5wFl0OWjn9tmR39btftS ++ZUlWFB1DewDosJg3xeQDNAHGGW5nK4J5+lLal/ri5wdMBex7v9tHcV3cjy 29I/TNiyqlv6xyPpspbECg4UUXp9WrkFHIoRRnhBYN5jf6R0mW04Y7dzG9EF Tq4Kz58lbeDFrUTnjtZKx/QRSiqeA5dG8gJIEy81S7qHfb9HxGb/qF8xzLJl 3AMEwXCDBUFgUkS3ZKdxp3aJFmIstuqbOQ+HotLmultb7ELU3hVY9+z6S2K1 nj+rz7eNdJvGXWUw78oxqNf0XSo0Veo6r+RY/NlHGDO3SvGj+hV7pm0Z9xyI 4wCbrwz/reg5mEl3aa8IKApY9rorl7VI1xZ+u1zNeUM2O+UicE1mp5bHykWw FWB3OnUlW5fQqemP3J+9CLCHKA3ACVaNBetgUSa3vMi+xz1gUdbWI4Pn3K7N pkcJV5zjrTwfA1FyKcgDIMpCzwYCUT0Ix4jD0okf3jdZaBSMGKHyLq2JJz25 pEdyT56BrNl30fJn3K6o6xZS6Fg7y+WAebF/1OMV5XAcwHxgfyhMA/ezxu5a XoHpIYkJYXE8Sjpl8D0LhpMLm7o8fBXDcGeVXst6qoG4LChxR+scCsN19QNm Jvih624JgYPGygjHBpTZgLGGZjGuADhg2VcnRKcUW8FTeKs5NO9XRf3j7LcL Pj/Wr4qLgdRdqgyKp/r7++7P+V7IEy+uKRypejEUUMNwaDtsXuR77poCMSXQ C0ziZdCr0+le3CEfg1porR6vbePn6A3cWJv4xt3jF154oXNAeujx1l5drORo L1gVe5pUM8AjPhmBtiAmtDaIFl7gUx307Ro06bh6Pz1eQr1Sb2SyeLJ+8xHy 1UzFvIpbY4qWqGi1T+/VQpKW4WGgbvlg3tqmdsPCC8WsBffqoc+YywQCQUCY XPF1M86mgD1P1XKTFaDl9YXFEfQobmBxho//oCgWkmZJ7y/yav+iMjMDvPlV bb+l0TWoqKXSbIXk0dNBMGY+/DRb3apQnYUR1qOisXYaeD/v8ycGRDvkE3ys 5VLFtDo7RuHcdPGHEn63NGpJVK+IJh6kSGjoXgZzs5DDBZFYo3398E3UPhI9 Xdm1ezGcNUdgDwAZM0/q9As91JmID8Q3gp8epP2rk+c8OMCpyTFGY2vh7j/v 0t3xaKNa/pFG8r1NIK88T4CmHJ0rVRugtenuT+6v1emOQrNnKtjBpvyJLHjD QdX2Rie+t12ovy+oigD89tbDphEwizyPLQbvNxu4pATiluq2TXzevNeKCCY7 e3Z+nd6j0LqwBTC2wh9wfzrRVg7u2zLuzcvVDEBb4V3L0OkAtNVC82rZ+8nU UUBSbybRp1jmw/pdCWmUeiAqhBIbCNsHVAtrAEe5hwDJLePevKKusYAjA4eP VZSzAEeIig8DNIHIo1W5Np6gzmMoeQJjcB07jSy4Xu0XygdeWG4AUVstHknU r18k4bLRdCaL9bEzwCOBIXp68CJRXI3IxZGvW9l7mwL6dn0v1oPy8X4FG3jP OuzDPQhWPsHPGQEk8ulA9Y3x63h72Y31Uhn3P7bAeazYwqT3LBpCx0kXoGmM GHEaCyydSFlhHNRNfdzKUyam2yeVs1g52xnbzrPnurv6gHAcuqFjNIcR8gKu s27ACD/4wQ9uzJ8079V5dpquLlkJAgdD/MsOU1hCRmChsNoIEckpvStqee5A 1sYpUIRVDIPaFtYEmkUHda9Ug1sZLpZB1n19LMfDfKeyK1MitaAHOQysAElw 3MdDCSlCXpfr31vc71YWDguQ6gCf9jLy08+1yI5/br8I0SSb95l11FHl8XfG Ym1QrVzzcnnv4ysuoSSH5sml3cHA63KZYwdjiAMzhqYoKYmjA43JAB3pTF0B dDC8l/Po4mO+EWAPnMkSVKPYtOWlihEBL2P5ZIkA0hal9CKwc7dYsEoJgzij 3EacaQJ4Ax/YI87mMIDT1HSs4+Md3CyW5dzim4gdMApTByee4Vgg7IlKW/+z Si3XlW7N91Wjre23rzxM+nAWYUucvdVSBvZFO8zmltxcUM01H9N5OQ2jsaLY kJ0OzPC0HB8X9sj360OJeWktZB0b9FvtmjirGDbND9K9JMDr5/QrNkCtrDov k8bBQOGcgXEugfLmEwG5bEtz/teYAeW6bjXqAgvYTxAsYINIWfCzJFlwzEpG 9GF6DgPxrfRcbGdVb6k+QXlu2Bx6glJd1WGhKnYJhAUJphgxo+/Rr2hgBb6y J5uVEQq6wiGyn09lAYwAyzGWd12Xd7NLP7f3INUN607Db39Km8DKCdJ588Dw EjutQPUhd44Sfis1Cf3w3Wmh/I+oQqXLpFxSVDjxEDWbBB0jbhfz0uWQUmvX 9WQ2a7lXhF1iCnzFmO882p4dNTnW2P/1ZWoeKvISMS4Jq343VRE7QB5EKe8g KqkSmA6v42tRAyTG9kaLWFnvag9D/oIIB+pViCtHSDmmzeshGGSfqw0BeL5U nOTiKIlQjgMBjAQA/+FL/pgqLk6ZcDUeLjvBqzE9ONV22R4FRGo1e+4YpX5P ft3nP/y4PiklY5R5OwxEju5rn/jMw2qm31lxYrWic78/ynKxk+9hALePM+Zh gtfVkl35oO6/qffYMecx456F0Rwa936HKc6m8MMkyoi+lcLvN4gSdO4x417j 6n0u/BdRUs78xzAe5mprnn+P9moiZ2ArkB/wcaV78g5Vn/pmH2ar79WDATkB 5Ipcsaui8j1tTWJaKQKJYVVca/x7Wa7dmRd5Nw9Vs4wdv3BO4jJrBf3vq47X eO/mg/BjRNfKOT7Eg3mqRALsIryniln7PITP+v58E9ftaGiEX2vEe1ui3u8W 1pIF015vXC6HelzCLWSSKH87xh1B0wXS+Hk+T4rV6uJgKiuZeAOSEbSP5Pc7 GdVVD8eGYpJjfx2Ux5mJctXCbFS5XbFPo25gmSqBuifg2Dg8hn8ekUcu222I dS/a9HiGxCHnBc1djKa02t/2BLMN5F1uD4rMqqzK39sNSy4ubLWFAbp/CEca 0iTbA4JQsvZ+uvKjCHNP7gjJ2lR1LGArYBfIXqGAPSg5wZwBee/Yg2KnK4Px +fySKA6Wtqg+uyVa0x4Up8O9dFp3REtaxSMA6wRiv0RA0JvUPbO9C1xGg5D0 bV5D2QlnCRjq55oh0tIm0h7mRpQ4AIairU3Thtp3H6z0PzFJ162udvo6kR6q hvIcC5r6e3f6vR7mHyxeaxn8isH6vmcY+TD4/t6PFquXPesfGlLfNjX7emiu WisyASiz54jXn6E963Cp7BGs/nEFzp1MzDu7VB4a91I3y0aO/jnc++UWn/oH VdcEUN9D3Ek51reuob6R8GBlUOXQuJdmLeFtE1JZp7zz43lAKG/Pw6E3Di04 JPI3QQwR6MhbOfU/WvNnzXXlGWTyS8Sfryb+TYijBjmPzTALdJsRE+skgLO4 Iistz00vUT04CuEyKSx3LZNh9kGjDB+fWRlmuQzOXfhsEp6Xtf6GjBTVZph9 wKCBprKQYZbPVrPJSWZ9Msyyu0OaX/c6ZZitdDyuyTDL556lrB4WWJ1Bk/tm 9SD4/RWdXrYlPbeVvk+fr/ULtty/x+S24I23hdROlduCT5dfqSlmW+5Gs9hD 6w7lzkQut+mWKnK5tXOLWlrRPgU/y/c2kGTWcnucq/b2xHXBfgbSLDz2YyvJ bJazABrGQtZWjln2vYZ2swtovxyz/Xypn+/OtGCpNk2aQeo8kYIVJXIt1JcH ZIKf5s8sagHmuiwLluNAfZaFmyDB7KlajrICmAcSlSi2lWDW0mn+viPB7Jg0 Cpa+8j3rOQyPAUBxPizg1ZhctkNItXi2lVzWUikOUalKLnsYGd08a/fIDVCd H2GrTFIGN67Nj9BR+6shu+xh3+MI939SxpwlrPSyqoH/pF8Nia3De8l5/8s7 TgzLsZlqa/MlpEFU3M4FogtSWRaevxGZaocmS7Ay1b7Bixehk1UwgoMM8AZg BhRS/ZkiP217Q2G/+NeqvyTMEph+Avlp+2ZRsPLTquz+WFWQTeCEkhZ+UfLj s7zQS2iMBQAd2XHgr9dma9EYuSLHvnKOVcuXooDGZB63CIfWYAHBD+8Z2HPT CvW/S2vqODZhH1UrE0XHGQjiNVjnV+Uik+f9vZ8Vs5xFteSDWIs0wYfVQLXc /5lQoLEg05AEqilpJZCpoxs5b1AOmoc050QyNk5WAlWE4E2RlaPm5AkHdnzy tKoot+k0wDqz+nSP06VRVWkPhYzyGNv5CGOTaxJU0I4ga4MRN3Uq1aOjcWkS /Dipx1lToSc4K3E0CKoDZ7VC79hESUd3swupT6I6JHXyzMqocprvBQZs6EB1 tsFUyjoHvEgqWsKhLCBS54KwaU1Xlwog0hr/bSByXMrX3Ale4pf7Skz5KtfI 1Bnwjqjrou0ZbXCTFaCvZzTDtGMy4CFt2lQH2FbmZB1GH1DhdGCfXUCyhX1a Q6QLpOpwksX2yAqcvYlTyHpW90o0cksNI84NShBS6Tk9dQrHROE6cmsQShc6 1AcRnChrLGz5xGN4Im/ak8kaS+407oLqPZNPplKLi1b5IvdLlNLDR3vqlLGu DVfMSnwc6e+rJ3nstXJymLFv7mJH+imWzs6Z52M7eSxMRngrkNE0G/taLmtr M7GI/sD9eYUkhX28XAR4DKN31o6wlm1Wzl0kErHg4odVKImjGtTBmeZv1jqN /dUfaPEpIKeTTgRbAzndruUsdJjhuF6JYK3EvfD3Zvk+ot0zYExXkeY04PTJ CQTmJ7NXbPbVJ/oVvEiMSA+1GMov5WFl495KzguA0DjI2DUeL7jUWkGFVnJe tJg529ghwlMQjvfgDwcN3dCZMMcvYM/yhTRUwGnP1bq3syEvQF+PV2uWbB8Y 7GVpSEB5ONNkna+2ZHwjX7ZxyOcagAcIDKBG7UoJaS+2LPOp8Oxor7koIK1e H6f1Pu1axxba+ak6WwRud1tOkSU/J2kO86yVmNaSOXv9nGRi2hTDTCUVoWu7 LXRtsF/mKgLD5OKNo+X0OyYvLU/KfYE6Vo7I36iZyeSTlZe2y2PwLe73DcpL 6wdVP39E2K9tA6YDYjo1BGKK1ABGGefc03Kd3sbgM+YDaePohiWc7f06oxuY b9aKEIEEnnmmyTdrSQCSvYnzzQIlSjY3eQx4OEKRaYq9caDOVnZaZnAT8AO2 8n5ddS2wlcRaxBbGZqdlT63UpyKfeaI/jlBqxzIeHkzupcE3VvDbgMS0byRB wswekJX2NqMaPhSGjWClpNVe/bx+xXGiHIIHM+RlUrOxKWnfoEKxDGBrh1uz JT9fqJMtRyi3laJWWfJeYglwNt2Rrz+CEdAA+TRBYtp7lX7LVDzsV9U5ZVrO Pf2aDwnHxGFEmP6k1kCYhCuJz4pdWJEivD/CKox4Wo6xtVLUfqJqUGJAPWLf ZgAb29IHqFaYeBq5+1MqR5xIyYVRTk74nGEAfWHnrtr8tF9HvEmtEeyLmnuz H6bHdbKfWRkFeXuFnaH+1aG3E+VOk4u3YUdN9i8etS/TPUjyJb33XDvaGrNg O/FsPGqwjGGrpYMtn9SrlYCWrS4ImZ3aShZObQJa7RQiqjFJNlStIhcWuWCf +jOqWHRMIm9TLAPSVfbvvn0kWoWK43ouSQYNK6nULgFDZruHyqLZzL0+2mfF niHmXkpi6WB4MhVAO2VMKwttPulXZRbaf2Dh2Flogca206pks9Cy7v+fPprY Wv/GDWeTycJV1Zo2GLf/P6I/tUOuc0vlZLH8YqTSjPuXSnUPd2z4rxdTrcZh 6RZYuK/fcMtGItWXuM/diVSbjBmr8N9fubLVnr4ACq0dbCoRuHxYxsSedvDK lWKyUO1grXn1p+73RAHcpyJ8qrLKCAFVhNgMfPb3LhYjgS3Tg/exl4clqVSm umLfTaR1Izynax3bAklaZwk0qsyhyJoZVhQGjdJwrKmyIjK7vsf9P8jJqSM2 FJjNgGjI4N/dN22f1bN+3jRVsYO9k/3xkThPNGRomonj2v0pOVWUcIXdEq4A sc2s2RwcySRY+yeDxDwyMOAFMstAaTIdw+E7HQ60DGvMmqfue0lfjU3zmfLX iJnhKS89Qm/YFSf8+miLivKm9XTFM7coP0vesTxcmC6YOEyXl131ZnK/3+N4 KUr+xKM+xdU/ENW/qpqTjMd/o0fcNTJTFbJB8dKMLQNmXfn0iFGGobOX6B7m rIepDO81YGn/XSJMYRmXSd9Ncp1e/sJvN3zIKIPVQT4hS9TUJ7WMpHC2rBRj ZxpgnjMNfK8uxJRV3WqZFi7d6vQ8hX8tNrL1eGZLAJwWSoqfrthItuJYhHgd HeOxHiqrO/J/LZTweKIXS1ihhE56zgK1ZAbTSj55z6fpoueUIa9Fz6X7FOso oO3QeSOj526aN2JY4XNW3hVOuwjdxsGwfIKf2yY8Kl6LCnuVRIXV4QaDosLS NVaGLev0Dybfy35qg+mpLH3l9e21EK3Z6BCtIZmpKkO0OIEfZkA+IYc2EVhV l5mqt6fLayFYN2kI1ubflMGvsEgcGiIl5HCPk8oo9SoOorJC2FQsSCrFByFb xr1SeDHfszJ1QMJ9ocfXgq1862wIc/5xTOMqyo+S2FJ2tV6MOTPSjCf3mmiX u/RzBpp9xYdiMfQPQ1GZ+kfuzyTv3rRe7Wm56uwrTT3CQ4BL8ckXtG9bcSl6 nqGeUgb1He18JSg3IK4FS25yyG9BUmzgQKPu1EpeTYFpqfkpJqkq6wfdn+Ev FOUk9ekMwvdw+FAZWGMhcIfKu9SoqkC3Ssnia7DHS/2oB9RcwgZb4JtOY9BT K48XBlflCc7HYNQeNBnqSpr8gvszJmP6JK9Czb8ZavirUEvwKcFgG34Vahfg Vg/e3dpC0VM8Esg5el4BIOv8cEKRYXbwmgXZWpgkrPTmXmO940f84SyJIppw qkO/XYMmjTr4faqihIbB2mU0zHC4aSitfj1r6VWs1r0hKCibJxtAQdmVR62k tJmZhfX1QUHT4RShoM3X2Nxr7608/aC+Nk//+Ki73ZbsS47/FhrKmssRJ/Ex m51FwtD69yvXioDpqHe+Wu93tQbLjcFKreos5KYPVpoqqIqHIdiSBDuy+PvO 3jIonZVcpaBey9gdonBu2jg6vnr16sqoJVG9IpY5/rWxffXvhkCrO3btU+X8 52UcyyNbP9Kc6MFCyUig2UlT/w9LcZVgstYQrVXYWpH9eZfqjs9sz5EI6Urf MHRaTJYWlUBTX0yWfL2k3CYw2Y2ud/3z2effsbv59+LWpvJnrBX7C9pPTo61 Wjv5WhHBYNfgLvfpHaQGaANpffiAUffAPqttFsi8U0t2gTUduehHvI+XIdTK XPRcBOxlQK+WvUiuRNvTigRYWZyR4XFsyQx87UWlsQTZAQznUKAt415N6vWx cCPDhkPhxuYUYKk8RCCeyogTyoLIJ6gizPVw2+uFpFdjz5Yhf0l10mqxw0+y BPYRrhQywxgnB+/XDlQCZJc8n9eNbYf/NovlTZWde2YcG83iE0COHgf+/aTv 5voWQsBqYOs9fXaok2neG7Tf20Oh9S2QKEoSZZzSberAleMdSvmmFtplBs4G oKzdIOvZMO6k+fS1mRUY4FAn0jxyusE3cB4UIWUDBGGUL80zZZzTuyotH55S nqmFclCfDaSNggD7v0myAqGqx8e6ZV2L6W2rTiS9dJUMcfszgIfUfYyF3OUj g2qazDvZHFNcfVWOqaGvYzzDhpkpewskw1bJSgjWAWP5IoeDHOeSLXXk1IhF iLP0WF5zll/xkyoMzBdq4ufj/ntBQLAL0ePAqRaMcWNTUPV2I2Ppw1ZA5g2q 3XTr5pAFTHgsdjVHArJJalHEGJAuibxU0r1/eN9SaYOPHVEtVlGDoewYfeHc MLhn8YsDD8Ev9lDSXVnBz9feQR+qZrBFDSU9QlBiKeNTryxdfTEMPy7SFky4 2zGyFSFjBaZxDqHKLfX9RH9qN1pJtDq227cWquPgJOyhMah4/esK/Hsr3UPA Ys0O9X5qC/MsRNp312pF+EJ2jBugf8IqLKDav5+jr2BIW2kdkPDkUYq/9Cw4 zT467qrcCiFRlHXeNTBRVM4IURiBs5IigET58LPEh3aqLPQeA+I6JUtD8LZ8 AqBinag8rDTmFmb1qsKERXJHIOx7VDo4StXduXU2aKVSeZlqhuZzJzCdvUmb SVarR1QhrUVMisrgAvG0IiDyF8QLc6X7Gupq4W9WtipIgNX6Jb3HaKu2hrBk CKxJx7LD6Vgc8WCnbrgwmxvJp2Zuq6qegazxR9739e+1VREtOlMIuka8dTv5 1Jz10OMafieAGaJtfNr7mdFZizQdARIqAclio5fL5E26liluxZ9oNqerV6++ IL/u843/uHYQWodLprtlocHE3LQadPX8h2/mJ0jFUnTVOoKxzCkL8arl9+/p c+zF8jbqHrTnz1gkdiIpjKD2OcSOZdW48qrDf6JFn6fgdcvX+UNMRTarFMNY paxSv6bVWOF5R/1fXssrWBy8Xh0yDu8CAzk109GPoNby3T2VSIuRWEAy68+/ y1IoZ9ziPPSlZeLXlE88nTDIYDp7toKsrdB0b+zWxXvn48W7M9b3p9Zymj3Q NlPOe46H9FiRBLrzfzU2RZP/6xe1J5PEZ49+F6eX3AWOF4m0rou6FJvEeGPp 1sdudx9sAZ69ObiX9ww9iGYZirPCzBtOPgt5w1Tbaq32X6J7JWDPcmPDhFbn xtYZz1sK6K4jb8ecukmtoFU1kGiXVo1Juz8x5yzvSERYcvo5KDtO56Q4G+vY j9NKpurkHv8y7XfRyWyydyYOSPbP2B9ssXonvG6RV2X0P4GXRi6DIuFSqcGY UuG5T5YEN+BslfFxs6RX9GeznNAOOp33EtQWbhCToLIbfr9ik4YUl4IwEKao A3YKbWFOG+RbAnZr6uwL2o57heE8mK9Sxu3MvT2FESYPvd9gWV9PJitqthQh W6qrxKLpPKz8YQdbThgusnd4kXjyNtXCDFJqBaJ2BJ3eY/SwA4/N+zK1cyGC SbK5b3ekf+BiTZDi3VquL/6a9f4xEoGiX1KO++WVdoKgtuoq7u/3eP7tcasw aDFIcUIrJ7AfoE5+F6lZBbQRmDY2C+LIG9/v/sxDFxk1dJdXnNlV7UoLWeKH 7lHO8T5FjeFgxsBcS0Xilx6ZLs9GCAIWSLiyMBLPdeH+o5Kbwq8OVjWQPCxK epwXQgZMdWrGd1tu3j8IIAPXXuicb2WeEoV1gGtyPgIz8TEJ5ZZmZ2AOzG6L oFqLLXLBRIMBj+9zHTbo2AmH6DyssFo5FNefrpFLXQAJcC/ozr/6TvDcJG03 yOs97h6OEhiulnuGe5D7n90YYMXIhTUadXFSazxj1NNyefZ9knt3Rc+n5aFr qJuPRQCc4fkB/QuAW57m7u94I+bt1esunNzij54nBpuW5/9Sv7VdX+xceBQY KtRCtApnArrUQIXCs7iHDaDmlL1LJQSKmuRP83ByqN8huoQngZzy6DMR4hHb viUGN5Ol1JGGwuGCggqZcfn42ZRWpUVp2+nqzxS6kuj5bEuZw2YSdCPdtVtj kroMnIAfM3qLTRnVHuSMUzcZWZggE/WQ2zhwdFX5HpyPmiTBF5WDDUGA0kom juF0k5Crxtq159QExi/mSEvNmvLzlHE3XEvmYUZQrMEvFPtZJcl3uO1riGYx 8WCWwJuwL/ss6Xil6czvsc2VOtEYmsbUIryrNVUDz+SpGr3Cd3LxvAY3Bcxr PMp5KUrq6VQZoM3SHTbrte1C+caLb0D/VHEOzMGCz0Y5CJS/wlExMAqLPdod Bk2hD0av/WO3mQQBDSGnj2D/sO2AYLAU+kdTXTMNbb08hu5nCDIQHTloMnIj XgWepMbv+rEZkrqiF0Y1aEIN7NOBFDwPTBXcwI5VyhOJyBqEsQkGKjmVnfLj 6HxUA50pucYRs4lNe9KRQDSZuLzBYPcRMk6V7aeDsuT6miEHi1s6efB8g6rI sIL9y1Gj7ve/xkrTtl5iuA12MoOjp4x7jxtlj8PljxO1shUb3YElmG+Bg6hj WdQg3+NQBexzD/UendcG8KJImG902Trs0o04oog4qveQ2seoA4rAp5VNW77E dFvq7yEKcFr1DXqPT6t+k8p8N5WBMeNDbexwNTgtJa6MjvlukeXK8VJ7RC+L 9r9BK8fAwTx4JfOSEQ4iB26JLE+VEVjW43x2lDx+QC1CQQYEbNVkZ2J/gF8n xr2FpKa2xOw+rTW1O6z6Oa0ipAqvAMN9qRWfdKC0G6f95uptsWyqeCbESlnO l+y5xvz7bGobh6DYK6VDWuoDcswAlPzIdxtIs+6bu7CRRE0Qoe/uqQBgwg0p TXlkHNGbIu7jSmCpAe/PNhjzNFd9HBjzRKayqVCw+5pexEfXu/QcOLAynitl 8pGylzvymZcSFtW1U8oqb0n+VLDNcKHOJJiKp9eiJp18RFXslFaIqNpWLSqQ aPkXW16g7zO0SBQTB03Y7fJpuFTJ0zhrEx8BFbLrWJ7RVj6WqqAsS37W9q07 ZwSAr9IhPnRrdHBWKR97mYRSgBa6YgmWDtODYOHKC8H67X9esJlTdN/jlrd4 3i+3M+NNctqPPrJN2yNTDUZ16VR/0jCvTGaaMgVWqJclSJyIsyAB7NABXEGQ 9kk98p3VpppBMlLs/DNpYA6o61M5FRxW1MnstCa8t2j9rCtYahbKXD6tlysc +qy/SF26mb3WKT/SUtTmhTmnfYQmWXlbTqm2bTB07FyhiYrQMctg+Rz9nl0B cGSeLjXa0+iUgTmeD0DIeiJgM9wj3ctDia6MjE27UKiOoQJr+3CvNtDhFH5B OQG/EV1tOFcxgACOqY8n1yWz2l0ykNblIK2SYwTyFLGveU1wHOKHeFMyNDju glEXtCi3vwWDU8b6R4LPNxgMGSo6xj7v6vOtoNqCDRB3ySSNJYbjBNggrHDO cO5DQzKfvFHVcILgu/OqL5nguxb64sGnSdyhv0TvMbL0Sdozy8Z6k+qNFYOn SNTst4hUP3+NdrOtdVj8DtWrxIB4s337+RahvTxH3fffadTRw2HRrWvvk6ff 16qoeXcwjgwI/Q2rfhdL3O93UOVIYJ86wEFTZJi7G9/XKrTN7Ikyf2FFcQ9/ r1GQD7d5lsbk9rTyrgcOBxOtjUOV3koQzxb/3OL6TgAk2STE37VEfCzXGIxj FQ2ZmiVxUBbuzkz3/0KdB8RchzHsFRMn0YIxfmvfBBsfHdm5xLkb/MJnY/s4 V+or0QJLFB0bVE90XdZmi/Dizqj8HrKRmy/YsYarvUGpvbXw+8DWRFsym61q MolhLSosq7tvUsj/pXq/j8Q7TerC/27VvpkMfP/V4s6msrj9J7XkrhvrZHrT 3sCJKh0+6EmYV3sMPmVtcGLFbhGbcwz65oy97bCp2Kw/DN6PJKnj23Tc9OE9 fq7gdRRuTwmJjDAnVfnQfk64lbivznA8To6awe8W9wpd92SeafWcq+lw3yUR +cV+9nFKGTT+OJgn51vncfyZnNEjjxrLlUvnaQS6pS5bJX9ReED52cs+IkzK qsfGAxGbLTcxy+ERBidoGNrlvn6xdSKxItcWwfuS6NHvzmbpgzcf1jpyeWa/ NgtXX+rvVBSRD+HF4MAAn6K0BaaCfQpTKuUyemhZeKnOPat5PRPru2H43cMY jjGKwVXDcDyLbSkGacJwTB/s2hiPgSzjtxRwQ9GuFpkqXuu0emC3+c6eyna2 4Ls5Y28dwHuNRC51SaQJO+BMBWiwde65B0UINIKriZdZ2qWS52BCgY6S21uU 5ergpuUZazKxnOASyRidViYdZnvdw0myvVbcqQrIOAbovoL4970w1nDSS455 bBNjBJec6gzvrsYGaFLbNn56y2gHQxTMtTXjq0CcU4MrIUBQd+KhZhx3SXEy DJnAZpvrjZRi15fj3RLjSMZGInfEAsP+yxRY7DjHWwfgPG/Qe1gA47Y+mdva ZVyc23L/qw/lzAeEzYPW6YYOUAn7ubG/T7ufT3DbzSzPG0AGO27TdoGx6D4I xfl8sGnjM30bzY1NWsx/QywAHGmlZXiq8rn7Kp/7POM5XvwhDrgYchie9dzH Vz53b+VzX+PZ89dEJg5fmnwon1v89t7it08Z3wL9oHOzELDJyY2s5+6pfO7j K597u2fANX0AeBePbIXtwtElH1H4CSF/7qNT4etVQdjB97n6/HAX9RuMQ15R sAtZU1tbnUU0VnwiGiLBLHqNkqi0m1hyrK2rSviwZv9ZqiY97YHpLkssKOWQ XXjDEnofOS2VynqeH3Qxzd2juqyqIiWx307UlSUPPO84v7JcIE+r8sCq75mf L1/lsuVAo+bOdmXVVqdwCFHVqUXklqC2mclT4JTclFxy3n0mqQvS5INbINRN XXFOKafsPuZnwYcBKBh5oqAQJhTu2Jkya2vp+WqvGMj5hhouh+RVSxxkpq3A jGXTU64r3VkSvVfBJOd/eSfOk079aDmD5SnZNdmKfZ/+DZ7BI3jMDi4pesGH lZPx2O4Zyqqj76yb0dvcs/A8PBrk0nO7VgbIGlpgPLFLJ2f/YP8ZOCgTe4iM 4OrQbj5O/JYmEJNOjmw6f9RWS87C1LvtcWTppPKn9BVWUGwyObspG0PYu6uM QKQRGhAdr/XNtDlF9qz1/6XTwXavN5rT1VKFPCk7ESly0fZX2kMTY0jqJ4zd lusCTm1ECCqMALAhIJGEUXTDbrPgIGIB9sYAU7Gn7qWLC7ZX3TNNTEU9CWge 05Rc2iZONUCCFrGs5do3Gm5lqVu1dISyX0SBQnE2vyry+qlrvK9DMxmVHUiR Tlof0q+AFjWKP08BRAtjhoSw55F+XLZTHeOdrj08dvLn0BtPzJx3JbCaXrZ6 pANrJBVwi009lGCSC7rNbyYdxri9iHohSdSPzRj9n9OUGZRzJ/eyre1HrSGy 2n1F20n0jhkIdwOrvXPZ9mK14Bc2glvblW3004lVfFoW64UZyFBLhw5dnzvq ICzYuBInpiCtRIiwkBPDxhqyPRzkaudhmPoG8WNTnPdbh20S0hCuZ13SilFk sYs7azrtYkPPp+YoNBILAK/bOK/r0Avu9X5nUzvBEzp1NtOus/7rzGXq+i2F pvJxTd31TqEkDLelSjKEJh3XeOkyjPCmikVIzgUYpBHc9On5kUiw5NV6SPWj HJABph+issJtaum2pl+rLYhAZq20z2Par+Ub4mlwFobdoxpltSxDYAdOf5Jp vUbqbO8dZJvYDt4/cjrMhm6swPNAsn5nNVM7Wy0McnbGNV2rH2ja0o+BTUfG tP2GClDXjojqfEPFrdq9kgc4UJm2bTL5CzPyYaB2U/vDm0LP0z0DYG2Zcfv2 fDdLjv0CNN4xAvHZq6i/nVx3Ho7NtG6r6nMVQhtYdd5+LQtuYHPRoMi+MMXK kGG9MOU8EZN6PXFEw5lsJ0e/s6WUQz1T9V5l1ehdLuxiRO92DBJ4WsTRyF5d NViOctWcK1ezqqym5MrfweuuqiO9LL9CBksFh/VZR79d4kNZiI/dQ1YVdNS+ ysYKHaypf7ey/vP0HHbo3E94yA3t56pAB58c7/eoCzNa7kD7lh7876prLP+7 6tcT8w/RV7PCmYdT3+TdO7cqU2G+wLJn2H9N2u2VTViv9zlfWXY3S14cqK7+ 8us6xJVsm4//Zhcr22paAF/ZXWW/Ty2zOBm55f5yS2V9y8r60mwFRY5W1Kd6 9Jr7VtF96zhc1Q5xX6V95lgOIB/u+kz/3NPaKsMErYfuVAI5qEPHg9phqwAI 4FAfm/TG77Qulfk1SZl4xWVuALIL2gsxHmF4ahVRNNL18PbgsQnN59GJ/7PI K342clkBunrlysnlM4/F5ueuEEaE8v7T8XGayBfnfdjYxAvqQfbZ1AFa1WPL FT4TLKZS/AeqQD+u+WTbOhiGZvw9jfUskAy3cPbjlgvdUN9t9Jhx5hKnogOp 0129yrYerttYcPO0KY6jgD7EHY9lJZfxbFDSWZyAGcWyUSOt9M1w2hompXaY 8cxjl7CjkbktdRbgfkybtLuRxOvzkghRD4uQtgvhlSVJPNfOHN0lCSOGJGUd NBIqpT7g48ZPWTKPImW1ZwsSET2LTBgx541uY7jkBJTpU9z4dmg8FhzPffNj 6i4H1+hA1O8uhO4VclS7/+F5mGbLBKvyoSUNS2FaQ6N1GVgYagMG8VlkEp3C Uw95uIQJL5csWnsF4qpSVZ8zCbp2rX+q6nAVJrwwzM4GbyD8YBHG4ghDAaQk uZNx3JumI+SepPndfJndVuAKB4fGtsWGMkc3wex61AFZICoKP7zcJgxw9zMU 4eTd6FgYfNR6I7oLLLpla1lUEVpxMYjq5SOnpt435euFADL1YhPDKZX2jHvl fM/aPoJbyOb1CjqLY2OwwyLhh50OJ37eM+6Vk0H75DM3TVB6943Z6/4fdnQn nA==\ \>"], "Graphics", ImageSize->{673, 369}, ImageMargins->0]], "Input", CellChangeTimes->{{3.40975211654167*^9, 3.409752118114065*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Equivalent circuit", "Subsection", CellChangeTimes->{{3.406005724175057*^9, 3.406005781688897*^9}, { 3.406459821066276*^9, 3.406459824773054*^9}}], Cell[BoxData[ RowBox[{Cell[GraphicsData["CompressedBitmap", "\<\ eJztWstuEzEUdSZVmzYq5VFKNxFhhaBQpPLYgEQRUpCQKpaUZVQBzQKBSihS xAYkWFR8QfiC7EAgUb6gK5b5gn5BvmDwufY1ZuJJZ6aZpIBHip/X5z7sudex Z63e3Hz8rN5sbNSr97bqLzYbGy+rtedbsqlYEKJwWwjxqSpQDmVRJ/SsItGV MZR/IrsCee5aDaIYGgFlbcnRdmdc5Au6rdVqhY1GI9zZ2REns0BMhJVKJez1 egSzu7t7Ih3KnG7rdDokDGoBpZNUX19fpx/GrKysoDxEDpAZ7Xt7e2GtViM9 5NhMHMo2B3qABpmlVagujUwcJc0gFt+RnbHlADAv+IDSIpmdB86bEZctiAj6 qVjJp/ok39/fZ8nF6YRYS1lYu6ZFrcp2u/1bt7zY92tuzdkoNI/OKpY60+Wk uctTeNijBUuxxLX8Bgx8OC7yZSMxhYRlU0oJkcCWrlfiYkK6v4u9mvxJcoNo t+OgdBzHE3LlNQS3BqeOWoBaUoCMYiOg6g0B/SB6t9tNynVew8gh5I0Rm2EJ lGWek/DHdBtHP2UspBPGWavRJlK5/HpS5WAfKIW5wdYAET2FjYaoHKTgIEjK SaKMys3GsikZG3J4H7/ieutLhHKZBiCQpLxhG47iRWNfmDXAYtZtUFzmYgSa 80ajqFO8WYNYpZ1b25KYV8Yf3twuIqNNLoO5TA1Ho+VQzmgRI+asEYMsEVh0 3DZnUB6Z0kIyo0eFwwugd3jO6F5ytE2nmgiHATJa3cX3bDa1rbWRm9oHmXYE akf38ghaHHPzUvsg0+aktmtzlEWdtCY7guocZv/nxfRi9olJ/6Rm4gam+nc1 gNVTR9eah3XDnkdKPqpoShc8K8/Ks/KswvCSgaVSOR3Ea4dk1z2Ehzg8xFdP /g+Sv9Ft9t3ttSwQfXe3V9OhbFM6Y86o+aev7qL3tinRX1FaNue+fE7DZ8KO e1uRiYW6S9VnfuZqGPCAxmNd3Kbk0NRt/GdXCipujRzCpefNbBA8G9Ly5hAC kNpU4kY62G0LVi8fcxjAywgU3vENifw+UrJwYEobHsJDZIB4YMifoHROdX1z IL3/b7vIaqv5lX8ohurCDg8fn75V/eouf8p814Iwpu9kOI+Swu/ydygxpF8o m6UueH6O/Hx+a53Gx0F8pkzdTKMLH0WpgDJNOxt90k2QA4RmGAjNMYgMIUp/ fHsFqSIQEQQw5aP0Kd0GPfDIXLyLJ/8YL0uky5oGLaY69Oao/MG2r4r52r4m LGI4YCzyvBfZsMqi8As5qMmT\ \>"], "Graphics", ImageSize->{319, 155}, ImageMargins->0], Cell[GraphicsData["CompressedBitmap", "\<\ eJzlXc2PVUkVv7zX77ub/oABhoYRR0EwQI+EiWg0KgZmNZr4wXTUcSTEQGuM BjExJO6cmBBXLlm74T9gxZZENyZKWLkicaULZv6AN/dUnV/1uXVP1a2673X7 0JvQ7756VafOx69OVZ069/LuzXt3fvqLm/d2bt089c7dm7+6s3Pr16eu//Ju WdQ9UBQHPiqK4nunCrqflrf8x1wf0x/+ssj3F819b/ry5cvp9vY2STC9fv36 9OnTp8UW/1beT1k6829nZ6f4o6Dxlrnvmt+oLn2zZUvTR48eUX1Dv/zkZr/j FvQr9frgwYOiw2X83XxbNn+Hrh79O3nypPkkqtTjw4cPf26qjaePHz921ejn Z8+eGYZIIKpK5SUjE64uqdI9XUr1ZUW8IZddunRpylexZv72Ta/Uu8eFIVA2 oSI0GTMZqkLVy09o9q752KgYhkQvxTVtqZwYpd+ojL5THfokPbx48cIZ7v79 +z22JcmJZtyUNd8zTUDCMlGUvxESrPDg+gPz95DplhQAzFB7umAZYpf68+kS e1Acs1iAP5iwZNnQKb+XPJQlxWj65MkTRwfios8qnYHhjVFkLuKPjeGQphlU ymlpvZYsJ11Uj2Tw5fTGQdmTxXeET2dKtC9pMTjuMXoAM1xUizii1nRPnwZ0 VjjgYWqG5tQNQeq07IwVMzTNyAB0KaDQMPETJge7WLtR2YrrlnVt6pDOJB4g Bey45NHbZa/npKTr+fPnjFOq0YtiQtqDRTF1yB6pmOgH5exKOR2vpFqJB0Iy 6stRDzxEeDRYIXoCWxU8WNQLbmF/wdHAoI2okAVIU8KPOq0LR8OcLRlacD5l 73ZQLjkGWfhbrCWSARCii+Qse+2yYjVPLUwGPgC+8tNpFDIJXthD9Jym69af VBwkXdQtcUh9SCdL1hgplh+kSDZWvb8ykG31UZQruuzMSNJ1nZKo5YOq4YWh pfBGcT5kp2L0C0VWPAK66fAvASsTp4QV6h62KptDfXV/M6zMYRKi7Bz7StMu C0kCUC9kATDJ6nQzKaxoLW9nXOEhmVaQ8yGDTBlqbgDF2PiTNctvuBfqAXgh Aem+JD1gVoQenI+mJrxEYBgGtL/rB4k6j+hCqh5lPVY9lREH/jxM5SUrPaXp kpAZ0IReGE/FQYElSDOIsDhmqcgRwQeUZugkdFVR76A2/cEqNFywaqNeeLJh aUZuXYgLbhNjl7iEkoWjdw58g/snGlissBSGHrnbFSEliUGaKOt1dmd/56E6 ysoQ40BTqsbS+mzdPZCK7cp5pDa7kb+dcBlxQgonLwX3QRwBwD9jWbiO6QtK LtueZ6a9xZE27w7jlI7qlHh6fI/tLrYbTiPeYr9c7k3d5FydOnenIypbFmVQ AcYwY8h8g2MijPDAY2xUdwrgqbyHgZiEqXyNESBHBV1EksqIpfOCdawrhqL7 qi7jtI4qtFibN5iItuMQODsi0AqvjMHZoX69qWaFuYLrhWsAnmgqk/slTFsr rGa5iwM76Bv1y89rXB3OD7bH2IXHYsd4VkjhTeHsBpJJHYqQYtV+iylirGFn gfUanBaDE0NOTpZf8bBKuOwnkuV7ufZmX1L8lpnXJsatyG8VwdbcMhYjj9SF e0xL/gJVYApesWmWPy8k4NUUtx01smB3iITSgbEcsUDSYNrHsmopkRfrCWvT 3Vt6cUVfw9rshu8EgLKltlq6ltYUG27SMsSDaKbeVyUnPacyXDRHypANxJV7 Tcz4h6nsLJEft6K25NwQw9EMpb8RwR9ILrtu8SA5kevelUSjvT1neuavjbUV 3+Y22KBPvUmWt39OpqZ617mMkIQZpqOUXRFt2VEWPxIyIej2vmXzI0ECvraj lH1ZqAA7Z0O2Q1WY2D/MR3LIDTDRJmjp9KACTS12jVKdZDGfBMJxr3O3WP7g NxfuKMmJ+m7uL9laiXA8ZuE1TpS462Y+49goCBjSkAJiiUcg6IfWIH/ndjK8 E4qpAeTSy2CzQN7VR4csQ6xVxsVkP4Gln4yr2qXtsLK/pctrCmEFtFTOJyx5 iCOrH7vIO5HH/YRVoyw7nHLoOy/GYIvfczMqhvV4P1p8jeXIiUGyTRNiYuNo /FHUx0QjVgss0bHKCiKHTWAaSpUhQbHsDEdmx6ndyeAej6JIEM7aCF4fO+CU gHI93rHmPB4Zl9pjr4gIWEgDDEEL/rwYdKJimcVJIwbkOlBO79jiMIw/VLTw DS5rCpdinpdxQRNkDCl2d9XtQCEipQK5cFTC0dX2c7IsLbAbdubeyn72GPLI TUdYrWobCGkXzICAbkrcux5vG9dik9gSI2bGKtCCrxBhY2+0aiWLR8uVNTuU JBwiFpAaeK+ytQIR37HSBOBsCut64JQkwhYJchKLWmoAbAhlDyLkwkdJg5jQ Ean0YVhw0HCX3erZzEZ7jQA8MRspu6KuwkUCeBJC5NVg6yQWYHbgqcZ20xEU Zae2G03d4yZF1WvUNSylxPqlfFU9DJzhHGu8DicM9pgN77QH7phIUXcWIxbs IjzWUoU42GsyqrfDlQc0yWjT4+3rQqWhwDrgCHkkjGRZN9LPEcEydBY7B1gT cmDK6ibwOuY6WFlBe/DqZRteuM+uj6yZInZYoEfmMYXUl9VamU4/pnatPtRe X+TqPGIfLbfuGGElfyciXcVEx7yUuJD8JnMRiP+f4iZN29FunMxhRZcNJw84 /YJ89O1KvMkb3ATbASG62Qp22PlILq6yXWMx+08xXerKj4zIsm4CrUNCeVVN xNv5xyI0p38pod1JbqeEKgAHuO1ddSSH3t+wai1R0HV3nTwSm3nV5Xk0RvGV PBLHHascRPtY4GaOgT7Td0beIOKSbdi4oZS9p7T9UKl3xnb/rqieG5e8oZR9 X2n7B6Xeadv9F4QR/QwWJfiHhagS51vQSCaCWFokc8jC710k085ctUimXItU 3UpftUTgFHUgZJORNtoJa9ZYZnkTw9ZDQd5X3eZ8ud3k3xD/QQDOnq7m0dKU i8hpU4auXU1wum81nEyXluqp5dNC+YsdTkbag1yYjPjvHoSTR2yzWDhZsvdF ZjJkBI0Odi1e15o9EDhPOTIIa6pqjNX5sRxOyR5JNpzSE8mGcaBnQKCrUnMW aTxxHM4K4fphWyVFFqu43ExnmeP5/xXKR4ZZs8ZeqyHmqUj1QgZBZiifPc+x vdCss1gpF9ShAUEL5UsVXcjEagynoq90zVetiEOUtrhktxI7CMthTfNmEstL DJ55jXRprbYqDI+5g1l8QnZxKjMP9rpsYQFCJzrWgLHHXiJPOLD7PSO4LSJH EImp6XC7uQ8TxILd/+PnUMBGs8r6Nb/LgVb/5z07glpJVai5r6aGj6RE7nfv DErd4V3M5FHDqNKXwuOwwqMiVwynM53i1m3LnPmjJXQsqXncXhZne6q42UfY smGLEA9n3MBapknrgfa1Wgq9/wQZXZEnhtjHfo6lzTgplen+cuWvHRpqfvTV PjJNl74+bFgb8jxy5pPSQxrn5r7pJFvLH9XssZXCxoZGrpENhfXw0WIDSCfq XrEJoE1uqh/vejRf4Vvjdx/UH39GUXtUzXMxGefp8KpNR6/eebCWVf9qHanr IM45Tpd7SIT6pDfezyP1iS9kgjS1jHENkVvx3ocMH49Skz7BQHKyQ6P4wjCt jJn61EQnhZ156WNO42CwT0aKP2KrPdDJkXHrt/RMhFUmvZiZGRO5YHQ8hfi0 9Oy7A+STO15mRiwx42CGOuRadmtONFPVmUJzVVF5f0Yo5D5ou5JAU9PnEnMb eHr5eBXYWuLHGtNZ5JyXToRHZDrAqyDSK8Z+EUt8WY3QHim8bLWkFdZlPq0Y YnNtHEOqRutgpr6QcervXuUD4PYIvDjLgjTk4ixG4tDleJMTShNMWfSd9/3F 5+NkkGuTId+bQYNmNWlQyaYiH9YJTY+kH7Pm9s+tKTZ9jNlNyT9atNyptxPa HVfaITAmcyuAuFzdAHa5evi0oodBy3Yp+ns9oge5y9Qe52f4dFlRMoOD07FM d085W5HUintMneWnnZeSM7yMYv/raWmX80gcU0jIdAEMUrkywYkBn9q4QPFs 6ttsq7SzedXP5VXHqxPqCkp/GYKlwehdrr00Z2f3BROud+qK6pQke4KD2N7q AtebVyYf+iVFoQybT8DgZeA9Y1bgVmLgaf/EBMIe8+UvHniGwfoJsQu4AWL8 X0y1/n6socsloUtp++9q534UjHh3+9JqHBkuygRy/0JfMYqLwn9708ChKEjh r1O3PXHhG3hHamDWXdvm9QeI9uGMus3rD54LlWH5JpeVben+00pgSU0MGXnu jPienytBeWx4RYbEy2WlTIP9OpdRHQTG3hRtq68a6ru0UI+H/0ju6+tYrJEf uSeAq/mpl5UyLd/VcGs8JHgkyrz6Ut/Yg/d8yAkQKYwXGC3CNCTv1aosPrIh CwHwM6wVLZ9yez4pmxP+qx3j0qUJFsvbXFf6WM4Xw0/IZVfIh5NUvyEhN+nh frwvVQqPUQGHUI5vLJKb3l30XfM3M/01OTtYOxU80R4g6EHm9NnHj93DYbAh mKDqHNRgaFYzEeUpiEa+RfJkLE0UKUmpyZP9YD95YgwU2jNkyeLlHVpX2lsQ AFppa2RTovuyLiJksfdDfYd1lZKiOk6wCPyWZpFwvmkbEFWzqdilftZ8zPLy h35FHNHFbBl5R/ckUxSWmWdKXp/tMpcMwqA2X5nEVj0DFDvZXVrLuTtg7eno 92eGr56yidwVTBItX63RFmZhY+/hSI2/KVrJE+Kp77QwO0MrOUEK+luAzDLs i5SlRTBPZo7pZe2T4capGh0o3bdN0MRhDaAhjFAZ89VA50osQTPEdiEHPp6U 7jI/TWGLZ+5Vez2sw9zIoTXZj7NUHcg7PNiY0YPdb0ZSaXpKa7PvSLXyvIeo kuvDTuMM87U/6UoLlqulvVGjgR08qKXlwmnjek+SCVeieqdLY0+btyFtIEAG iXgbZ759kGKvQc1eml+l79V8xtXaLqRJUpn9otm4wQC2yXorgHuJKFjKY0jt S27NQuYa9StYgpWKwoXKGvLoPNUsah5dkFFthAWiwBhh2AVPxQjLyH/EGV3z O3GWK/EZnGtEhJ3T6/Zbwv4dK4UdU/NNrdqLvB9/FdnUz36ka8kjhOqybTfT jaOFzjK0MLnTyEf8xTyYCWK8YSB5Ac9wWnMMAqNYV+Z+O/DI/NerKMvNgdmf 3JzFyZmSHgjBBPlWLrl3RR2aIG9HeFhnSWU4WATyJxF2pCpCAc88VQT+c4W+ A5TXDS+m5bMxiQlILZJxtFjw/uQs4YBEvs1IZp+wJ6hkVcEL3o53d46byJhV i/8c4ohC5qo0Tn5qUNv0l35LWvNMKcIDkfLgCAbTsqx4USIMFu8TiaFatAAj L1eOwxGalU1ri9ybzOSRc20bziFVZ/c8t8+q04608FkSvp3X52lWs7ZTXM8j tREhxRaTb3Kaxzn8n83f2gL8ol7MHsDwnvH2q+LAJ7eNT8k=\ \>"], "Graphics", ImageSize->{498, 84}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.40782642442126*^9, 3.407826427120769*^9}, { 3.40784092895275*^9, 3.407840940238571*^9}, {3.407841154428609*^9, 3.407841158025557*^9}, {3.40785155550139*^9, 3.407851579961361*^9}, 3.407901786659719*^9, 3.409752149453909*^9, 3.409752214696312*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"ko1", "=", RowBox[{"10", "^", "logko1"}]}], ";", RowBox[{"ko2", "=", RowBox[{"10", "^", "logko2"}]}], ";", RowBox[{"kr2", "=", RowBox[{"10", "^", "logkr2"}]}], ";", RowBox[{"kr2sko2", "=", RowBox[{"kr2", "/", "ko2"}]}], ";", "ao1", ";", "ao2", ";", "n1", ";", "n2", ";", "\[IndentingNewLine]", RowBox[{"Ko1V", "=", RowBox[{"Ko1", "[", "Vc", "]"}]}], ";", RowBox[{"Ko2V", "=", RowBox[{"Ko2", "[", "Vc", "]"}]}], ";", RowBox[{"Kr2V", "=", RowBox[{"Kr2", "[", "Vc", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Rct", "=", FractionBox[ RowBox[{"Ko2V", "+", "Kr2V"}], RowBox[{ RowBox[{"ao1", " ", "f", " ", "F", " ", "Ko1V", " ", "Kr2V", " ", SuperscriptBox["n1", "2"], " ", "\[CapitalGamma]"}], "+", RowBox[{"f", " ", "F", " ", "Ko2V", " ", "Kr2V", " ", SuperscriptBox["n2", "2"], " ", "\[CapitalGamma]"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"Rp", "=", RowBox[{ RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{"Ko2V", " ", "n2", " ", RowBox[{"(", RowBox[{ RowBox[{"Ko1V", " ", "n1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Ko2V", "+", "Kr2V"}], ")"}], " ", "n2"}]}], ")"}]}], RowBox[{ RowBox[{"ao1", " ", "Ko1V", " ", RowBox[{"(", RowBox[{"Ko2V", "+", "Kr2V"}], ")"}], " ", SuperscriptBox["n1", "2"]}], "-", RowBox[{"Ko1V", " ", "Ko2V", " ", "n1", " ", "n2"}]}]]}], ")"}], " ", "Rct"}]}], ";", "\[IndentingNewLine]", RowBox[{"ZX1", "=", FractionBox[ RowBox[{"Ko2V", " ", "n2", " ", RowBox[{"(", RowBox[{ RowBox[{"Ko1V", " ", "n1"}], "+", RowBox[{"Ko2V", " ", "n2"}]}], ")"}], " ", "Rct"}], RowBox[{ RowBox[{"ao1", " ", "Ko1V", " ", SuperscriptBox["n1", "2"], " ", RowBox[{"(", RowBox[{"Ko2V", "+", "Kr2V", "+", "p"}], ")"}]}], "+", RowBox[{"Ko2V", " ", "n2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ko1V"}], " ", "n1"}], "+", RowBox[{"n2", " ", "p"}]}], ")"}]}]}]]}], ";", RowBox[{"(*", "Zs", "*)"}], "\[IndentingNewLine]", RowBox[{"ZX2", "=", FractionBox[ RowBox[{"Ko2V", " ", "Kr2V", " ", SuperscriptBox["n2", "2"], " ", "Rct"}], RowBox[{ RowBox[{"ao1", " ", "Ko1V", " ", SuperscriptBox["n1", "2"], " ", RowBox[{"(", RowBox[{"Ko2V", "+", "Kr2V", "+", "p"}], ")"}]}], "+", RowBox[{"Ko2V", " ", "n2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ko1V"}], " ", "n1"}], "+", RowBox[{"n2", " ", "p"}]}], ")"}]}]}]]}], ";", RowBox[{"(*", "ZA", "*)"}], "\[IndentingNewLine]", RowBox[{"Zq", "=", RowBox[{"ZX1", "+", "ZX2"}]}], ";", RowBox[{"Zf", "=", RowBox[{"Rct", "+", "Zq"}]}], ";", RowBox[{"Z", "=", FractionBox["Zf", RowBox[{"1", "+", RowBox[{"Zf", " ", "Cdl", " ", "p"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rct", " ", "Cdl"}], ")"}]}], ",", FractionBox[ RowBox[{"n1", " ", "Ko1V", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "n2"}], " ", "Ko2V"}], "+", RowBox[{"ao1", " ", "n1", " ", RowBox[{"(", RowBox[{"Ko2V", "+", "Kr2V"}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"ao1", " ", SuperscriptBox["n1", "2"], " ", "Ko1V"}], "+", RowBox[{ SuperscriptBox["n2", "2"], " ", "Ko2V"}]}]]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{ RowBox[{"if", "[", "VSta", "]"}], "ROhm"}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], RowBox[{"if", "[", "VSta", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"Vmin", ",", "0"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", "\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\""}], "]"}], ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Vc", "+", RowBox[{ RowBox[{"if", "[", "Vc", "]"}], "ROhm"}]}], ",", RowBox[{ RowBox[{"10", "^", "3"}], " ", RowBox[{"if", "[", "Vc", "]"}]}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0", ",", "0.2"}], "}"}], ",", "Automatic", ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{ RowBox[{"if", "[", "VSta", "]"}], "ROhm"}]}], ",", RowBox[{"qA", "[", "VSta", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"VSta", "+", RowBox[{ RowBox[{"if", "[", "VSta", "]"}], "ROhm"}]}], ",", RowBox[{"1", "-", RowBox[{"qA", "[", "VSta", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.01"}], ",", "1.01"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "240"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Vc", StyleBox["+", FontSize->14], RowBox[{ RowBox[{"if", "[", "Vc", "]"}], "ROhm"}]}], ",", RowBox[{"qA", "[", "Vc", "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Vc", StyleBox["+", FontSize->14], RowBox[{ RowBox[{"if", "[", "Vc", "]"}], "ROhm"}]}], ",", RowBox[{"1", "-", RowBox[{"qA", "[", "Vc", "]"}]}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"ROhm", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<(\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\))/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}]}], "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0", ",", "0.2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "Zq", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zq", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", "1.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.4"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}], ",", "0", ",", "0.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "Zq", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zq", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "Zq", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zq", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.7"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", 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[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.01"}], ",", "1.01"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}], ",", 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[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Z", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Z", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ROhm", "+", RowBox[{"Re", "[", "Zf", "]"}]}], ",", RowBox[{"-", RowBox[{"Im", "[", "Zf", "]"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "Rp", "]"}], "+", "ROhm"}], ")"}]}], "/.", RowBox[{"p", "->", 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[{"Style", "[", RowBox[{ "\"\< M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n1\)\(+\)\)]\) + s + \!\(\*SubscriptBox[\(n\), \(1\)]\) \ \!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(A\), \(\(n2\ \)\(-\)\)]\) + s \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), \ SubscriptBox[\(K\), \(r2\)], SubscriptBox[\(K\), \(o2\)]]\) A,s + \ \!\(\*SubscriptBox[\(n\), \(2\)]\) \!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logko1", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao1", ",", "0.35", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)\>\""}], "}"}], ",", "0.1", ",", "0.9", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "n1", ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logko2", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkr2", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ao2", ",", "0.35", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)\>\""}], "}"}], ",", "0.1", ",", "0.9", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "n2", ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(n\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "5"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ROhm", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))\>\""}], "}"}], ",", "0", ",", "50", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vc", ",", RowBox[{"-", "0.05"}], ",", "\"\\""}], "}"}], ",", "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[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Ko1", "[", "V_", "]"}], ":=", RowBox[{"ko1", " ", RowBox[{"Exp", "[", RowBox[{"ao1", " ", "n1", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Ko2", "[", "V_", "]"}], ":=", RowBox[{"ko2", " ", RowBox[{"Exp", "[", RowBox[{"ao2", " ", "n2", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr2", "[", "V_", "]"}], ":=", RowBox[{"kr2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", "ao2"}], ")"}]}], "n2", " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"qA", "[", "V_", "]"}], ":=", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"f", " ", "n2", " ", "V"}]], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"f", " ", "n2", " ", "V"}]], "+", "kr2sko2"}]]}], ";", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"ao1", " ", "f", " ", "n1", " ", "V"}]], " ", "F", " ", "ko1", " ", "kr2sko2", " ", "n1", " ", "\[CapitalGamma]"}], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"f", " ", "n2", " ", "V"}]], "+", "kr2sko2"}]]}], ";", RowBox[{"Vmin", "=", RowBox[{"-", "0.35"}]}], ";", RowBox[{"Vmax", "=", "0.25"}], ";", RowBox[{"F", "=", "96484.56"}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"\[CapitalGamma]", "=", RowBox[{"10", "^", RowBox[{"-", "9"}]}]}], ";", RowBox[{"logwmin", "=", RowBox[{"-", "3"}]}], ";", RowBox[{"logwmax", "=", "5"}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ";", 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`"}], "]"}]}], "}"}]}]}], ")"}]}]}], "]"}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.411181913960093*^9, 3.4111819962597523`*^9}, { 3.411182040504992*^9, 3.411182041505226*^9}, 3.411182078622683*^9, 3.4111821661959753`*^9, {3.4111822152620277`*^9, 3.411182280826724*^9}, 3.4111823197372723`*^9, {3.411182353343648*^9, 3.4111823559084806`*^9}, { 3.4111824054208508`*^9, 3.41118247205514*^9}, {3.4111825687323513`*^9, 3.4111825689672956`*^9}, {3.411182938484457*^9, 3.4111829412521467`*^9}, { 3.4111852585911427`*^9, 3.411185360921401*^9}, {3.411185412157198*^9, 3.411185413481699*^9}, {3.411185460910924*^9, 3.411185467300577*^9}, { 3.4111857443642597`*^9, 3.411185744856696*^9}, {3.4111936344692*^9, 3.411193644295209*^9}, {3.411193694710969*^9, 3.41119370292412*^9}, { 3.411707459270904*^9, 3.411707460907563*^9}, {3.411707496847136*^9, 3.411707498689476*^9}, {3.411707638857572*^9, 3.4117076669433537`*^9}, { 3.411707698941386*^9, 3.411707756329968*^9}, {3.411708666892603*^9, 3.4117086695616426`*^9}, {3.411708754637594*^9, 3.4117088123075333`*^9}, { 3.411708857372888*^9, 3.411708858769381*^9}, {3.411712752968405*^9, 3.411712818351898*^9}, 3.4120413672889957`*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ao1$$ = 0.35, $CellContext`ao2$$ = 0.35, $CellContext`logCdl$$ = -5, $CellContext`logko1$$ = 0, $CellContext`logko2$$ = 0, $CellContext`logkr2$$ = 0, $CellContext`logwc$$ = -3, $CellContext`n1$$ = 1, $CellContext`n2$$ = 1, $CellContext`ROhm$$ = 0, $CellContext`Vc$$ = -0.05, $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[ " M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n1\)\(+\)\)]\) + s + \!\(\*SubscriptBox[\(n\), \(1\)]\) \ \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " \!\(\*SuperscriptBox[\(A\), \ \(\(n2\)\(-\)\)]\) + s \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), \ SubscriptBox[\(K\), \(r2\)], SubscriptBox[\(K\), \(o2\)]]\) A,s + \ \!\(\*SubscriptBox[\(n\), \(2\)]\) \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logko1$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(o1\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -2, 2}, {{ Hold[$CellContext`ao1$$], 0.35, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9}, {{ Hold[$CellContext`n1$$], 1, "\!\(\*SubscriptBox[\(n\), \(1\)]\)"}, {1, 2}}, {{ Hold[$CellContext`logko2$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(o2\)]\)\!\(\*SuperscriptBox[\(A\), \ \(-*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -2, 2}, {{ Hold[$CellContext`logkr2$$], 0, "log(\!\(\*SubscriptBox[\(k\), \(r2\)]\)/\!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, -2, 2}, {{ Hold[$CellContext`ao2$$], 0.35, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)"}, 0.1, 0.9}, {{ Hold[$CellContext`n2$$], 1, "\!\(\*SubscriptBox[\(n\), \(2\)]\)"}, {1, 2}}, {{ Hold[$CellContext`logCdl$$], -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3}, {{ Hold[$CellContext`ROhm$$], 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 50}, {{ Hold[$CellContext`Vc$$], -0.05, "E/V"}, -0.35, 0.25}, {{ Hold[$CellContext`logwc$$], -3, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -3, 5}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)"}, {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\)"}, {False, True}}}, Typeset`size$$ = {508., {161.375, 166.625}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logko1$1508$$ = 0, $CellContext`ao1$1509$$ = 0, $CellContext`n1$1510$$ = False, $CellContext`logko2$1511$$ = 0, $CellContext`logkr2$1512$$ = 0, $CellContext`ao2$1513$$ = 0, $CellContext`n2$1514$$ = False, $CellContext`logCdl$1515$$ = 0, $CellContext`ROhm$1516$$ = 0, $CellContext`Vc$1517$$ = 0, $CellContext`logwc$1518$$ = 0, $CellContext`wc1$1519$$ = False, $CellContext`wc2$1520$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ao1$$ = 0.35, $CellContext`ao2$$ = 0.35, $CellContext`logCdl$$ = -5, $CellContext`logko1$$ = 0, $CellContext`logko2$$ = 0, $CellContext`logkr2$$ = 0, $CellContext`logwc$$ = -3, $CellContext`n1$$ = 1, $CellContext`n2$$ = 1, $CellContext`ROhm$$ = 0, $CellContext`Vc$$ = -0.05, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False}, "ControllerVariables" :> { Hold[$CellContext`logko1$$, $CellContext`logko1$1508$$, 0], Hold[$CellContext`ao1$$, $CellContext`ao1$1509$$, 0], Hold[$CellContext`n1$$, $CellContext`n1$1510$$, False], Hold[$CellContext`logko2$$, $CellContext`logko2$1511$$, 0], Hold[$CellContext`logkr2$$, $CellContext`logkr2$1512$$, 0], Hold[$CellContext`ao2$$, $CellContext`ao2$1513$$, 0], Hold[$CellContext`n2$$, $CellContext`n2$1514$$, False], Hold[$CellContext`logCdl$$, $CellContext`logCdl$1515$$, 0], Hold[$CellContext`ROhm$$, $CellContext`ROhm$1516$$, 0], Hold[$CellContext`Vc$$, $CellContext`Vc$1517$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$1518$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$1519$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$1520$$, 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`ko1 = 10^$CellContext`logko1$$; $CellContext`ko2 = 10^$CellContext`logko2$$; $CellContext`kr2 = 10^$CellContext`logkr2$$; $CellContext`kr2sko2 = \ $CellContext`kr2/$CellContext`ko2; $CellContext`ao1$$; $CellContext`ao2$$; \ $CellContext`n1$$; $CellContext`n2$$; $CellContext`Ko1V = \ $CellContext`Ko1[$CellContext`Vc$$]; $CellContext`Ko2V = \ $CellContext`Ko2[$CellContext`Vc$$]; $CellContext`Kr2V = \ $CellContext`Kr2[$CellContext`Vc$$]; $CellContext`Rct = ($CellContext`Ko2V + \ $CellContext`Kr2V)/($CellContext`ao1$$ $CellContext`f $CellContext`F \ $CellContext`Ko1V $CellContext`Kr2V $CellContext`n1$$^2 $CellContext`\ \[CapitalGamma] + $CellContext`f $CellContext`F $CellContext`Ko2V \ $CellContext`Kr2V $CellContext`n2$$^2 $CellContext`\[CapitalGamma]); \ $CellContext`Rp = ( 1 + $CellContext`Ko2V $CellContext`n2$$ ($CellContext`Ko1V \ $CellContext`n1$$ + ($CellContext`Ko2V + $CellContext`Kr2V) \ $CellContext`n2$$)/($CellContext`ao1$$ $CellContext`Ko1V ($CellContext`Ko2V + \ $CellContext`Kr2V) $CellContext`n1$$^2 - $CellContext`Ko1V $CellContext`Ko2V \ $CellContext`n1$$ $CellContext`n2$$)) $CellContext`Rct; $CellContext`ZX1 = \ $CellContext`Ko2V $CellContext`n2$$ ($CellContext`Ko1V $CellContext`n1$$ + \ $CellContext`Ko2V $CellContext`n2$$) $CellContext`Rct/($CellContext`ao1$$ \ $CellContext`Ko1V $CellContext`n1$$^2 ($CellContext`Ko2V + $CellContext`Kr2V + \ $CellContext`p) + $CellContext`Ko2V $CellContext`n2$$ ((-$CellContext`Ko1V) \ $CellContext`n1$$ + $CellContext`n2$$ $CellContext`p)); $CellContext`ZX2 = \ $CellContext`Ko2V $CellContext`Kr2V $CellContext`n2$$^2 \ $CellContext`Rct/($CellContext`ao1$$ $CellContext`Ko1V $CellContext`n1$$^2 \ ($CellContext`Ko2V + $CellContext`Kr2V + $CellContext`p) + $CellContext`Ko2V \ $CellContext`n2$$ ((-$CellContext`Ko1V) $CellContext`n1$$ + $CellContext`n2$$ \ $CellContext`p)); $CellContext`Zq = $CellContext`ZX1 + $CellContext`ZX2; \ $CellContext`Zf = $CellContext`Rct + $CellContext`Zq; $CellContext`Z = \ $CellContext`Zf/( 1 + $CellContext`Zf $CellContext`Cdl $CellContext`p); \ $CellContext`lw = { 1/($CellContext`Rct $CellContext`Cdl), $CellContext`n1$$ \ $CellContext`Ko1V ((-$CellContext`n2$$) $CellContext`Ko2V + \ $CellContext`ao1$$ $CellContext`n1$$ ($CellContext`Ko2V + \ $CellContext`Kr2V))/($CellContext`ao1$$ $CellContext`n1$$^2 $CellContext`Ko1V + \ $CellContext`n2$$^2 $CellContext`Ko2V)}; Grid[{{ ParametricPlot[{$CellContext`VSta + \ $CellContext`if[$CellContext`VSta] $CellContext`ROhm$$, 10^3 $CellContext`if[$CellContext`VSta]}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> All, PlotStyle -> AbsoluteThickness[2], Frame -> True, AxesOrigin -> {$CellContext`Vmin, 0}, FrameLabel -> { If[$CellContext`ROhm$$ == 0, "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V"], "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}, Epilog -> { AbsolutePointSize[6], Point[{$CellContext`Vc$$ + $CellContext`if[$CellContext`Vc$$] \ $CellContext`ROhm$$, 10^3 $CellContext`if[$CellContext`Vc$$]}]}, AspectRatio -> 1/GoldenRatio, FrameTicks -> {{-0.2, 0, 0.2}, Automatic, None, None}, ImageSize -> 250, BaseStyle -> $CellContext`monStyle], ParametricPlot[{{$CellContext`VSta + \ $CellContext`if[$CellContext`VSta] $CellContext`ROhm$$, $CellContext`qA[$CellContext`VSta]}, {$CellContext`VSta + \ $CellContext`if[$CellContext`VSta] $CellContext`ROhm$$, 1 - $CellContext`qA[$CellContext`VSta]}}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {All, {-0.01, 1.01}}, Frame -> True, ImageSize -> 240, Axes -> None, Epilog -> { AbsolutePointSize[6], Point[{$CellContext`Vc$$ + $CellContext`if[$CellContext`Vc$$] \ $CellContext`ROhm$$, $CellContext`qA[$CellContext`Vc$$]}], Point[{$CellContext`Vc$$ + $CellContext`if[$CellContext`Vc$$] \ $CellContext`ROhm$$, 1 - $CellContext`qA[$CellContext`Vc$$]}], Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"A\"\)]\)", Scaled[{0.1, 0.9}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"s\"\)]\)", Scaled[{0.1, 0.8}]]}, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}}, FrameLabel -> If[$CellContext`ROhm$$ == 0, { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\[Theta]"}, { "(\!\(\*\nStyleBox[\"E\",\n\ FontSlant->\"Italic\"]\)+\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)\!\(\ \*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\))/V", "\[Theta]"}], AspectRatio -> 1/GoldenRatio, FrameTicks -> {{-0.2, 0, 0.2}, {0, 0.5, 1}, None, None}, BaseStyle -> $CellContext`monStyle]}, { ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZX1], -Im[$CellContext`ZX1]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZX2], -Im[$CellContext`ZX2]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`Zq], -Im[$CellContext`Zq]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 250, PlotStyle -> {{ Part[$CellContext`lHue, 4], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 5], AbsoluteThickness[2]}}, PlotRange -> {{-1.4, 1.01}, {0, 1.4}}, FrameTicks -> {{-1, -0.5, 0, 0.5, 1}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX1], -Im[$CellContext`ZX1]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`ZX2], -Im[$CellContext`ZX2]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`Zq], -Im[$CellContext`Zq]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], { Point[ ReplaceAll[{ Re[$CellContext`ZX1], -Im[$CellContext`ZX1]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{ Re[$CellContext`ZX2], -Im[$CellContext`ZX2]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{ Re[$CellContext`Zq], -Im[$CellContext`Zq]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]]}, Part[$CellContext`lHue, 3], Text["\!\(\*SubscriptBox[\(Z\), \(\"A\"\)]\)", Scaled[{0.1, 0.9}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(Z\), \(\"s\"\)]\)", Scaled[{0.1, 0.8}]], Part[$CellContext`lHue, 5], Text["\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)", Scaled[{0.1, 0.7}]]}, BaseStyle -> $CellContext`monStyle, 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\"\)]\)|)"}]], ParametricPlot[{ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $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 -> {{-1.01, 1.01}, {0, 1.2}}, FrameTicks -> {{-1, -0.5, 0, 0.5, 1}, {0, 0.5, 1}, None, None}, BaseStyle -> $CellContext`monStyle, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Z], - Im[$CellContext`Z]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{$CellContext`ROhm$$ + Re[$CellContext`Zf], - Im[$CellContext`Zf]}/( Abs[$CellContext`Rp] + $CellContext`ROhm$$), $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\"\)]\)|)"}]]}}]), "Specifications" :> { Style[ " M,s \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(o1\)]]\) \!\(\*SuperscriptBox[\(M\), \ \(\(n1\)\(+\)\)]\) + s + \!\(\*SubscriptBox[\(n\), \(1\)]\) \ \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium], Style[ " \!\(\*SuperscriptBox[\(A\), \(\(n2\ \)\(-\)\)]\) + s \!\(\*UnderoverscriptBox[\(\[LeftRightArrow]\), \ SubscriptBox[\(K\), \(r2\)], SubscriptBox[\(K\), \(o2\)]]\) A,s + \ \!\(\*SubscriptBox[\(n\), \(2\)]\) \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium], Delimiter, {{$CellContext`logko1$$, 0, "log(\!\(\*SubscriptBox[\(k\), \ \(o1\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -2, 2, Appearance -> "Labeled"}, {{$CellContext`ao1$$, 0.35, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o\)]\)"}, 0.1, 0.9, Appearance -> "Labeled"}, {{$CellContext`n1$$, 1, "\!\(\*SubscriptBox[\(n\), \(1\)]\)"}, {1, 2}}, {{$CellContext`logko2$$, 0, "log(\!\(\*SubscriptBox[\(k\), \(o2\)]\)\!\(\*SuperscriptBox[\(A\), \ \(-*\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -2, 2, Appearance -> "Labeled"}, {{$CellContext`logkr2$$, 0, "log(\!\(\*SubscriptBox[\(k\), \ \(r2\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -2, 2, Appearance -> "Labeled"}, {{$CellContext`ao2$$, 0.35, "\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)"}, 0.1, 0.9, Appearance -> "Labeled"}, {{$CellContext`n2$$, 1, "\!\(\*SubscriptBox[\(n\), \(2\)]\)"}, {1, 2}}, {{$CellContext`logCdl$$, -5, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, {{$CellContext`ROhm$$, 0, "\!\(\*SubscriptBox[\(R\), \(\[CapitalOmega]\)]\)/(\[CapitalOmega] \ \!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 0, 50, Appearance -> "Labeled"}, Delimiter, {{$CellContext`Vc$$, -0.05, "E/V"}, -0.35, 0.25, Appearance -> "Labeled"}, {{$CellContext`logwc$$, -3, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -3, 5, 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->{881., {246.875, 252.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>(($CellContext`Ko1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko1 Exp[$CellContext`ao1$$ $CellContext`n1$$ $CellContext`f \ $CellContext`V$]; $CellContext`Ko2[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`ko2 Exp[$CellContext`ao2$$ $CellContext`n2$$ $CellContext`f \ $CellContext`V$]; $CellContext`Kr2[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr2 Exp[(-(1 - $CellContext`ao2$$)) $CellContext`n2$$ $CellContext`f \ $CellContext`V$]; $CellContext`qA[ Pattern[$CellContext`V$, Blank[]]] := E^($CellContext`f $CellContext`n2$$ $CellContext`V$)/( E^($CellContext`f $CellContext`n2$$ $CellContext`V$) + \ $CellContext`kr2sko2); $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := E^($CellContext`ao1$$ $CellContext`f $CellContext`n1$$ \ $CellContext`V$) $CellContext`F $CellContext`ko1 $CellContext`kr2sko2 \ $CellContext`n1$$ $CellContext`\[CapitalGamma]/( E^($CellContext`f $CellContext`n2$$ $CellContext`V$) + \ $CellContext`kr2sko2); $CellContext`Vmin = -0.35; $CellContext`Vmax = 0.25; $CellContext`F = 96484.56; $CellContext`f = 38.9; $CellContext`\[CapitalGamma] = 10^(-9); $CellContext`logwmin = -3; $CellContext`logwmax = 5; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 10}; $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]}); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.411182454287414*^9, 3.411182473643338*^9}, 3.4111825284287033`*^9, 3.411182569728483*^9, 3.4111829429372053`*^9, 3.411185267645796*^9, {3.411185311301188*^9, 3.411185328126615*^9}, 3.411185361956723*^9, {3.4111854236016483`*^9, 3.411185434995479*^9}, 3.411185467877758*^9, 3.411185747227035*^9, 3.411193645946602*^9, 3.411193704786929*^9, 3.411707429763529*^9, 3.411707461921523*^9, 3.411707499780445*^9, 3.411707668885758*^9, 3.411707701506521*^9, { 3.41170774522197*^9, 3.411707758266473*^9}, 3.411707801030273*^9, 3.411708612843403*^9, 3.411708675776401*^9, 3.411708814405319*^9, { 3.411708860946384*^9, 3.4117088818413067`*^9}, {3.411712755975175*^9, 3.4117128194909477`*^9}, 3.411985017758274*^9, {3.4120413706025457`*^9, 3.412041406154348*^9}, 3.412048930668436*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.411707488791545*^9}] }, Open ]] }, Open ]] }, WindowSize->{969, 691}, WindowMargins->{{Automatic, 5}, {Automatic, 2}}, 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://www.wolfram.com/upgrade"], None}, ButtonNote -> "http://www.wolfram.com/upgrade"], 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/company/terms.html"], None}, ButtonNote -> "http://www.wolfram.com/company/terms.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}}]}, {}], 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[CellGroupData[{ Cell[590, 23, 509, 10, 89, "Section"], Cell[CellGroupData[{ Cell[1124, 37, 95, 1, 34, "Subsection"], Cell[1222, 40, 3107, 53, 96, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4366, 98, 148, 2, 34, "Subsection"], Cell[4517, 102, 8985, 149, 117, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[13539, 256, 102, 1, 34, "Subsection"], Cell[13644, 259, 4307, 72, 133, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[17988, 336, 126, 1, 34, "Subsection"], Cell[18117, 339, 18316, 302, 388, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[36470, 646, 155, 2, 34, "Subsection"], Cell[36628, 650, 7436, 125, 174, "Input"], Cell[CellGroupData[{ Cell[44089, 779, 38163, 950, 19, "Input", CellOpen->False], Cell[82255, 1731, 23216, 431, 517, "Output"] }, Open ]], Cell[105486, 2165, 68, 1, 27, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature Dv0eezt6F68aRB1TUJfQSHwS *)