(* 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[ 164299, 3156] NotebookOptionsPosition[ 145908, 2832] NotebookOutlinePosition[ 163814, 3143] CellTagsIndexPosition[ 163771, 3140] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "\nVolmer-Heyrovsky reaction \nwith mass transfer limitation on a Rotating \ Disk Electrode\n", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["H", FontSlant->"Plain"], "2"], TraditionalForm]]], " evolution reaction (HER)" }], "Section", CellChangeTimes->{ 3.404105671464055*^9, {3.4041058687932377`*^9, 3.404105894346611*^9}, { 3.404213587340118*^9, 3.404213726194797*^9}, {3.4042141164993563`*^9, 3.4042141198459053`*^9}, 3.404263543202744*^9, {3.404428502542997*^9, 3.404428526361329*^9}, {3.404803514291835*^9, 3.4048036710571833`*^9}, { 3.4048037326798973`*^9, 3.40480375081988*^9}, {3.404803802948029*^9, 3.404803841092787*^9}, {3.404803900224763*^9, 3.404803903078836*^9}, { 3.404803944287771*^9, 3.404803994883864*^9}, {3.404804025477119*^9, 3.4048040428945847`*^9}, {3.4058481919806213`*^9, 3.405848194745288*^9}, { 3.40920423621765*^9, 3.4092042366118298`*^9}, {3.411012239491242*^9, 3.411012240348982*^9}, {3.411012927908148*^9, 3.411012939999192*^9}, 3.4110129703597813`*^9, {3.41127913632174*^9, 3.411279152597685*^9}, { 3.436324175957879*^9, 3.436324195504673*^9}, {3.4366130808952007`*^9, 3.4366130812284403`*^9}, 3.436759716893878*^9, {3.436759787214642*^9, 3.436759810229694*^9}}, TextAlignment->Center], Cell["\<\ Reaction \ \>", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.410151720218337*^9, 3.41015172165478*^9}, {3.4363366964989767`*^9, 3.436336735660822*^9}, 3.436337608600542*^9}], Cell[GraphicsData["CompressedBitmap", "\<\ eJy1Wc1uHEUQnux4vV6vY1v8KAThYMJPQiSQ4iCBuCJtIqEIlARhyMmKkLKH CBRy8iOYQzj7DfwGFi/gJ/ATWMrdTzD0111fu2ZS3T3ZhZE8s1NTXX9dXV1f +/7ei6e/Pdt7MXuyt333+d4fT2dP/tye/v7ckepLVVW9cn/fblf43bifcnvV uMt97P245x91c3Z21hweHvq3mdD29/cbSh74e90cHBw0clW3gogvhF2G+7er inZycuLf3jb4Hgjt/Py8mU6nzWw2c6och6PhnXwTY+wHbfU7OzuvqYdYsTiq 13wP/X3o+XZ3d5vj42P/4ejoqLps8IvKFRkGa7a2tnyQwOaC6KzHt+UoUgLo vXGmvGdIHc8vjp9hOIZiynCB1X92BKfNhdXPMJjXDAvWlAUYCjH4gwV35reu 7syuI1XrhvpVESNWR/VidrBOuEJeQCLelpQ0GKcnX2uY9Bxbd+IpueudOj09 HQgTYinpacbTqxvAfoYArlDxDaHBVSdU5UDZwKHQMA5GYalYmcqQiuGk0/JO SDG3kvtV3dGASXs/E9LS2BU1ufqCJY4nbXztow8xSDWKxjAG7YaiifgYyJJZ nGlMgjYNv12wczFNeNKJKdeENgDKYIBzLBvT0lgf04GPy5L3Eh+RIi7NcgFl Rcfbl0JztY7ZKXNV1l8H/U7cIPxyKZXUm7BTwkWXoQ7J756urOBex1IDjneE D1JAc39BmeLTNK7cMGX9dDBVERKWMnxD2FxIRguYwLXMKIa6HO54Z6puCh/M 5N57RfZevSGOerrENIctmGVcXFZuiSzuUjJarfkdeS61e0cjLkpEO3U2Ddpa D1lc/8gy8CCtWbZ19zAx5HfrjqsXlS75TP/PlTy2F+Metg0lbuCBfdDtfqe3 xLIbq+0oq4XrLy54eMIoSwEoRjknK3i77MfJdhW9dXxWLZjIEPYXvOCNy2DG VCQo5/KWXEkGL2mdZCabHtUc+XA7Y2IWlWJ1OSODUwg6vsclb0WHxiCdwMw/ zDtDg0XK3mCSUWz1mEljOsGADjbt7C/eNBiWjC2D/7bwg1dqov8QalmoedL3 FOVbPku3HoYt+QyC69JRsJNSfauTHbSq/DT7u3VbpOUkYQeKNKvpklRTFuQm 7m/j6BQv5j56FziNnN+w1RdjcNEAIMRMCWtadYlZN8ZeM/g+E39BgwkEAkxP bmn4xpaU3sJL7i1ECwBhm4buq4bujps6Myw3PzL4iIShnoWeFZdb3AXmGXuT kJ2YBGJHjOVGAd4NQ883wVRd9LmorYV23eALpi579QqQsxEIm/rQf6ZVtGjT EPd1sIgNqU7+Z6IJWQZx7L4lQCNJRJDYibhYfR8EHogdjB4EyzKofm6zqN2V DSlZ/lLOcsqhT9qMnzTXyBuqtwr4CBqWzSOtczXuwpJXMU/ZogkUC0cU9unJ PxIyDGE0Q7WuvjOy1Fo1D4UG7dz3OiL0er5m0B4ZE3cziPhQ4jsHeLc2Vr2H G0A9ve0P48Yjm4/vh74qWreasi5OroDjQd6ysIriui+hbKuS0vcEos7BLrDI aUKrn+R8WwcCfU87KI+xQFwZjISpnWCUkHL6PGUuUI8Z4dkJ1fHcrYnbSBvU 9z2nKJw1dBwvodyk43Mgb9XfxBNLjbzHPW3KIX9xjztGCRqyM0HN7YP99CQN JdD/I1ImQEKnynNMOZzxHNzJuLuhc1tRXSNpawZ6JhRa8ECgFfA89Mud9iwC VfVq0mPpwU1FI1QlrPovYPR2OwR98Kd2Y8Ogsba8AbbsFloN3BEd/meDhVaD zD7QuQB3JQ8+9o/+gDLtfE/QyL0VJZB7K1xAm2mBxhziTQLEjnN9AaLlnNW8 3MvIDSlcfeIfr8GdRbQG6DmO0JMFCE/iFKhD2ifQVsu4NkLR5405aGn9V8vq Ed8SGrR3MaQua+8Kn8KQcRlomoWq7rTdKSGoX/x9fS6w56Y6Z5VWLVZ9qqYw B5Z+FVo/DDeKGE5bLupj0LVOmfPbhurH/p7EZCx+2uFpW5rODErL4q46pqtj qe4GaS/9wwZdD9osFugSlr+VNwbo+lFz5UHXD1pnb9B1P4wyQVd16V9gUFkd \ \>"], "Graphics", ImageSize->{230, 58}, ImageMargins->{{179, 0}, {0, 0}}], Cell["Hypotheses", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzVXUuPXUlSPnPft1x2uarcTdvT7vYMomdASCAjVixaiJF7MQ0SMxqpFyNE a4Q0XqB5MKtmzaY3LBBC8qrFiIfXINE8lkDvYOU/QP+C/gWXE5nfl/llnDjn nlv2jOBKLtfNkycyMiIyMl6Z9bsf/uT7f/THH/7k6fc+fPTejz/84feffu9P Hj35wY/7puWXum7xbtd1f/ios98P/a/4UT+/bT+05bSGb6Xfd4dnz54Z5MNn n32W2vn9yZMnhy+++OIv5nX7pkD+dvp9c3j69Onh888/T22ffvpp6t53/cvp x+9nSP81b9xd6rZMX/HpdvNefX1et99J3dYJxYcPHx4++OCD9Pijjz7qVhjd 2jj6n5/Y/0me739PU2WPN+0xEO328155/vx5arZv59OvPMIrPa72NX37avq5 SuSwV0AqTuXx48dlKu8GI349aPvF+SAb6sREXQdEXaDNSGWTqeSazxi24f30 7daJMB6gzWZpclUJukzfjQL9dPtv/Wdhr/ZgDKABsX/9BN4N8Ph60BbBXWAm RgeC7MGnkUDa55iSUZ1LwKZnuJCMJi726osXL7pLB9Kw7d/NyOeFSD4vYz6T YcrnZdDmkTcs+n8jUCPpIVQjE5RnL/xDqB9//PEJUK8hTibS0MsUgtSBr/dQ IRQb+52UMiqmfv37y6TUV8pH+z03b9MI/Dh6d+MEXxYMelHoImqvMVmDb2Js 2PXr/TUgSw1o/4w89un/XySslhTk1Pn1UQqv/VzTIqFEGdYG2iTqCthYXwpp j9EiAL2UrgYeZF7IiMoR4wClyOZI6P3rJJU147WGpNCQZVXfkKQP0dXAgZyF BtaNIN9IbWUxQigTaJtrxq6+ZsJgoFRH0URYg02KXe63TW2Eax9T8kYQQ4EU GeilEf2hFKQAkhHYT9IYBk9ZP1fvqQ7HQiiipfCNVv3zEP6U/tsIFz3tVK+S xmIjlLFs7thH0bZJuNIcsf7Gr77PIgBDEtp3ivh6BquIkk2V+3Skqdb4SfiG KvX4vfRsn74bDOvD8ex/+44xIZ0xK4CTTrfzcz1FVDNNdolsEKtETupC4LBC N3uV3aA40u+2anoQi0SvbWEIhcM+9poJCTETKpUZoE+i2Kug+pvoz21GFwY5 USkOfbBt0M5PVBYNyLLYc9Z2CZDcuKt8LtMQIG5pU+2m66JlyrJMpcJblyna B3BCuJHWPA9g2Lzq2j0O4zUnbJlihySiKpykW//9tLV4nIxnwkGOpKrKhNH6 U5JIYjULM4xsVUB4iz3GTcXaTdXdxvuqpi4BxeAJHmV8+9g87J1+3EsgSeuf H7y+wWOhRnmcllWmMrb1gqR9TE6NV1NEtjYqEvbjJHtCnUzQOwFBsr2/Sv1s lvZMeI9tI9GTfFZ+3M3E+3t51O7EQ9VnUntPZtNaLXm3sBnqrFWZRNJNA5IK gx9YCNx0lMvkUw92as0p9pyZ2gBTKm5qzWGNFVTA61PX3DECRjw7m2DMVqbB qdFFpij1RC5jwYRI4sj1pt73XRkf+BfBwBJI49s8bPwrkIfGtXKq/76ZeNy/ vsRjo4A6C4FCIzF0IvSB2WZEZBsJqWtnipBca0oMrlfIUbOFggCJkLq3kAkX eR5poS2wHFWGYKE3+oR4egdv2v5dqmc3ED5ri/QOV6DNQ+Xa8O9pu0g7wFJN 0m4XgOGyMxSMJUYqyPOEuruZeapLkaSmKdr/fupSPEa1iKsMTtkU6UPax/r0 lOQrNhNuBFyNXAKZrrmN25RtLFyNsvlgNebdj6jRLLQ+FAZDLxFyntxQvc5c tBQPLBsuWpoKfDxj0dIt1TaZR2OZtItwlOQR2c4EjN+ZuJbVJlR26brtJZ7+ CW116yq/L2wMbhtCjMYkaPfeqpcrWnk7J717uA+kmeGR/vFXBWq7KtbFvac1 ZIppGfSPlsRm5gxUwEgwagVqgOopZbk1fHQa1ocWIGIj9McRoEv/UhjpUPQH MVW9QNt1CzwMqkHnM7rSWMDqNTOU0iN7Jpw2XLnLkdMwshKnZ+12a13WCZHq k+yaTdSeQT7nrB4irpwVTBobow0PR9xZFu7cgIbGOLoPxW1tubKEDCikGTLA Ll0OK2X8O4quuiwqoIzU0EOEYypLLCtbeJvdl6UfSTW1uNT9QCTk5MU1xP2s 4H6EOLTANJYILYTgfRTIWQ/M68x9k59t45zah5uGGTk+4mquOCVJp6YBo9bx WRUdYaTr8f4l0CJyvYpndqH+Z8GKwQ9rpztGCvD3Y64ZdkjZfVfNKk5Ezvul 32SMXCQow61UtvbsapQweyVMQZVT88SGqd4QlmhrQGXI6N2A0faekQ7r1K0i VRreT7VvV9LG1UG2IrydRuhH5EZF88KQ6B+9jWZaycA57xVnhcsGCK5Aett1 9yaC8Wc7cw7j1Foqtfo2C6cviyzaEhlfUjmQQYEUhdxwVLkHSelUvyEHa7DW EDoxz4rfpauQgsE2+vn27R0IpwYNqR0yuS4bBUYLgVM2OBKOKpzwEUUqMnW9 GDLRIKUTvnAx2HiGL4WWJpmmd2nCLo/SaK80KvDGFpoa+boXMkwzJTrC/obN DNlgpf0nWKIZHUMvpx/z7iGBDay4XTNFkp5WgpiFVEOg2leACImeYR0OmlPC clsGXVVHcoNitHd8ApsmMkM6y6pVUqnYeis92rjERJboa85jiT4F3Lo/85+J Elex6mWG4cU+KJE0LoH+/3eEeJK7Y+yNegbrWCPdSJKV5e7yczTRJBdZ5mXz bZdVK1oaOfbqQCMU0X6U+22beXO/gQ0Hlm8a2472UY9HZO5w+1F2UWyh4Kwd i+J/BDE61D84ASptU6zTSEtznuKglGgPwJUoXyQXGvlldoJ7cE/b3wdX3fwi 6trHIMGlQno95ooflS6TxqWGs1w1s0zh62zdqKuf9X+2cb4zg2BiJLOOoAk5 U+v002T2Famw9ApVPxZMiRsL60rW1rOXS8Vk8VsYkqYgtqCITfTRSNges8sb jGrYns+fKDUDYl7U++nZt+eBocOpYLh2NRT2NtpMMmi1fAdDODTITZ2k0Ypd bJIPAnBvBMOey4y+Gzz/qwDOe/JO+rxkNd//4wZqJwqBGRa/jjat3/oDtNl3 LspfC95lm5YEroN+94Ixsrfb/bs8wn4Ob7C63XA+s0DsNSSVhgz8VIS1VmX/ RHhWo8Wc2CXAEgNVGx6sukVUoun9lPzWSBT3krsgii99zDZLthbFuUOVz3qA TR592P8CE9V6nH7S24LUlQPI3aMC3DXepX0YKwL/GCNkaUce8VAMKgY6NDjN fO1baNPoqZYRsu21gjAE4z/QKTJ4tU0LJto9rO13GfSj30Z1ZN+uZ46r9Trc jXttp/FUlKM0KZE27robhB6cn3If3VR07GMYi76+ChDUzDe9iOt54IiwMRZp sCaKRScvqtskcw08c51vSRvXvwoQac8SNyVe3hq6f07/nRXPnKJMX43xQRim yjFsxCEXrwBWC+ikYK7xpqVQakjny+Kt0eNl7Ip7HrFm9SdXt9bnkShShdMU wtL0tf45gJvruWhqY6oRmrro6AGt8NMRdZEjT/1klMHew9Tay0yDO3O5k9ok dxR5Fsc4k8ViMGUaH7X24/ZJnAHY4gDJcEWtSGb4ZbijqOqqYRpmNnckLtKp L001x11P6lw6bgueY4b3eFnSuqkPYwVV3sc2JU5DNsLJYWaPJOI2BfWvuyZl LKu97l9ELnxwhMGYGtvalTZjgA/k9O/OzfMSnKbkqQQYLEiuTYmCR0vtutCW oTiDx+IWbsP2XNP+GrrT+I9uabRsGawgeWqcaKs1HYdPPvnExUrGcM6yTVla O/jmBOkaiMqKfCJEyzY3Dt4xdtJVpSZxHu5pmeWLUXZyaMYdGHuxD0tK8li3 TmFpyWhr2E8qrzSTSEqOc/Q85CgF3YZ3KHvmGahTGUoVrwz9TApT1ZymYXPa Imtx2QouvtBeBV8FRAOsJBFC+FpFyhA80VNZhbb5V3RgTTk/kIu9INJq0U0J yxABJCI2wStaJ0aaqb2Fsy7NuRryQCXKH1jo284d2zTsH5UYRGhJkSL6bTUI mGbG7TfvkEM0b08Tcos5uzjKEVqugGZUVjyXpqwS8eYv6Bm5DVyRx2g6hZ5W MrT0nqZtVG/E0hKpPIF7vW7q2AGr8T0o75FoMUojR9QSHM7RdPXavaf1tQrL rSdWvEhdp3WnGLiI1DWa2RPadhP33oBJNO8YH6YWsI+UDHF3jLwuKqFx6tRK xVzLnn/SeUY8YOHwh1u1nMK/asFK0m1R7kSQA0VpoyoaR+ntwnNXDl/Qm73D XMFset9gwWk+9GakXsWok9S6WXEVTpF6ahWq5c1VSJ+Oq8f8I6YxfEoc7NM4 sOp2zaCo0valT6OLb120KLfKWh97fIumzc8heVbFQtc5BXBdiEx0Ydyo4DUu m+iOIiw+x8l3DwdGfHfFMaJeYk4A5ggzElKOUdKF3r7THQPTEabGJGP0Y96R mimS3TqFZM2OT9tVSKZFxpTNWydQLB1oYYVYRCeVOrrBFH5l01yrbzkyloV9 uUh89S/G4WNGF+lpw6vX5c2NMeKyWx9ScMsoWPcIz6gpmHw0JC/wzCkXFMPY hM9KHQGdXPtfjzDjHVUspG0W920JtTJvxeViMkE55UFHgs5B83ZaUrKEsPq6 UUDIUUM2Y3K8/QrJIVUzBX9sRHqomwruFHKwTudlyMGAJcmhuzXKpBBD3Tak so/kDcr2PKyqbdmtmU51ZBizrW7kuqxj+7CafRk8I0sROP03LButigaH7DWG ZqUWB7U7OfZFTnxF+nFGNFTUzle7UevfFNadaZQeTqCk5aFESb3UU1BSWBdo 08DrvQlYKH4vHoXPsmO6GqFrnbh1Oacurwxsz+pttCWAAN/yeKvVnAVb7iSk qmrtd2Q4MjVTdVVsEew24+fzNhrW12zDxQys3pzASrMArIOlu2TCPxcl+yDo zrQgWQ8X9HoU0rIUoyl0TfXbB/SLjr7omXiWVR9w+oY1aN6dJ7E0cwNO523r rMSRqJioxChUiEWxpJhmi2H0NbRZV7+6ac+aalfZxVBZO8O8kesKkl68OA21 BxOoMVKsqLFu4hTUYIGVizSozhvXpwWjFxO0vv1mUAgHCvoqcfhFC2yQqhYo 0hJFLpWLRExpilxoamN0B9cdpG9MwGtQjsl7+x4l7xlj/w15l/AWwRjXwRiK V/r8Hyhu+Pk3/Gn6r6WWHuHkDv5e0C/B+VELxyjsU3Muvfwk6KqgaLiIn0K7 qzioUsZanqkrTTuuh89gjFYXpAyWLZVNY81xcSS/PNsm3NvzLjbuLPkbW0r/ RfJBluVhtSrbM/ha18IkB2PJmu+8Rm8169QIYfKd7fVSk11jBTCmKEGHvQzH MPXdAC2NE/q8G2s/AvANg/heuUvncsBTlLw3xittFz9LHsziETva94QFFPwR xW6SQbsSfnJeT0Lhsd1iNORj+okaL1pkWlPPfMMxL3P8HpF1dNlFkQs15zVE qL+DccV9CBJ4sEx2erSwCSuhn17rwGG5FXL6mn+mi6s5Oj0uOBWY0Jym1gvS xEMibAFK6IkC2Lrld5ondDTIFYaObdVwa1X0yRUNtp6dhP46HJ/P9KgBVj1U zPkg4CvlSMX1sA/C6lo9HRWs+Es9uNRMczH764cMuFzsgSC000hD+oJToNHC +AXIgo5hH7BEbVnaVVfg9ByZbzOaVXlJv2KND49r7ueQotRxaQIqrctFPul4 KCsaCqVxsvkG1atB4c1OHIE7Ag1/W8UPRHZ86uQ1QHSwFgnYppkQ+ZaKAA23 vXqlBSq/YwE3fOEMfPX8M7mECNfYyExvzRIz7A5NdJIOx8uKGPpEU/nZiNiO VcPp2Yt8T4v2m1KrlDLNt+Rtt0opq964KHkxUfU8Nk1JuuQ7GEqV2igm1hF4 jPMDNM0CsF2+V+lsIG8scKE6bGZfj0Nn46EHqsc8xqqFtEhAQrDo9/MTttM2 +hsLpS+8YcUfHXW/w2gFSSuUF3r3RrPvE7aSSatQTALvA89h9mJuxqG9JLLk xlpjn6V1etGNmr5OiEk1GnIWoLrvwGr8fjsT4+jqFgwPYW/zHUL1/Hg9kMMc czWvY9f421o8CPNAw8yUiew/XM/hVdmyVaG9yi17QnT14DeTrzTes7js1Tco EQXadzR36UvQHGjq9KJ7SeoFnOKipe8MZuTdLFtcop7LMR2t++v7s2oySmHw tjwaAiQOt3I54t+sf00ZQefQo3lcTzGnD9KwvKY2qvQ/A8WnovyRKpHRwysX tOoLzwcRYZ0heeXgeO0wprgJepxf+2Y7tY+etWvzkPE9BBH5EqDFuPR7w/lw qMVUfkW4jU2N2DNpo2EUHaV7E1R01fXn8jrj3xmLc3WyClO59VAXQBBqLe6m cQfFyPCZei00kXxneP70Fqg9lYe4BNYjwxet5a4w0CUPzdGYT26SjRjYMFot HBmsGsiNLjKLaurmig7T6/aNcf3wrP628Qy1gDlXAuQd6jkuA8wrIweBZYtp zjARFX8DXYZkP9tgsdS163E+UrGnLPknOanB8XeX+LTvUdUZrwLRyEBbYVGP MlOMKiHWTSaCmxkXyrEEyd0JfCIXHnHw4ij6nFgw5QyHR6F4YcPhMO2gM2xm AF5Hb9UzqWB2fP6HPGZq0QsQyfQV0FHVqyUjRHEkzMqNSOWUmwOXjWhw5PIG R359VZJR/VI4Hoc2h1nueiCh5q0gvmzWgHBxz1dN2LlssHFB5bGky1WMAM1d d9ydAiT7SfqMT22p5ZalECyKfbKegZzg3A1WpK/TwFBgvxVwlnUVv4mpuDrY 3wtA/mjmMCpX3Lo5jKv7ex/NriDxh3GzLoBC3NHEyJ8BXVaL2Df6OCy8zks5 811M9u6bwbs/Ddr+uh1KDQl18qEgmswWvd/3g3d/GrRhqGjh6zUgagLm/d1m ty/yxB2BuwX752hy3jUYt+c7kFmqO71mQhMc/mLsKO6eLsbuELNn9J27Wdc+ OAkRb2NyrjUZ0D5D1gjPbikOmkVqjmxVmpr+u934IISJ3bugy80N/BrcTFkV 977suVSdmqBlGTfn4vF9lm50z3QhsWv/IzS2D2USgUmVKUfTopbd3JfILene VRJxOy+ZXvpYqDWHESI7UvIxL11HRuixWxq+C/VAJafY+a3FkAxEua3jGqK1 AKP9HMlwpgnzNThpS8u6iQcG82RqG6VfNyTStR96ifHIkWActxBWHrdFReNW CULyOeEG/Ok8gyqa09m7GYx8a7DqIpkam+yI/DUCN1t1qURlrT3hLtQIBgmn MZwaas3v81mN/Z0V2ZMTXuldbhRgHg0CTYYRhalsD8OJUfC6fTYblS2G1WAZ uUHd2IJ+Mxq2oKoOAzcd6scgu1meazW75hRLgOaNRiD4mGaczpa/+2ceXUa7 ENnSUHRM1IvmmVSjDQJAEYwtGKMoaExQ48lJgnO6XXknIpcxunMyLzp1eocp z7FJgBW4MeIx/1RIGqJ8E6lTAo0mtVtTdQUaT6Hkacd2phOyItw0WxzDhs/r nedSY9exOFNoq0MtgVUw2lEBa8Nzt8uwnrATfArX58iYJX1/RBIpOn7GU1Mc SF5N2N1UYUGkptQyb03qulquNzqhKk01RVj9d0zI/22Rg/jbrKbBaHrzGzPB /iCyvs59YyLB2JJjFnLMs2jesYNfyUO/c1cMVMkKIuWZod252TFaILq34/k4 bsZ6Bz7F1guJR0WTZIjLzqDY1LOjYh/pX4Qnm6NdoBK9JM0xi4BFg47SOr6Q c4buRexzW3QpVEpZEVUMzkZRcbwd170PZkuSWgh+KFTQJ1S5ebk2ntIReuoQ WvLnRgH2l5OT9Rj4mdAfi5izmcGcG+nb/WC249ObpcqW0jzQO+2k/iZjNmX5 sm3KgolAe+RKZjL7mrz1ECD2oFhQ+pBGmjO1eSp1Gg8eXCWXkd2aYxV5E+Qx /9biinq5tbHq7U3+1DSSCRr/9CpWq0sY9Z+rYm+mRl+5iqWbpuc7GxW7jlRs s/XflPSnqVguR7IJ5fVNEDyiDQ3IkbGyrpuvWlloSHQ8HZmcVRdY2rxq5cep 1mCUo6o1wsDPpBpKIV9+ZtbsfjDh8RlOK7CX1K71cnbErxle09N3o9OIULtd 2ugrq9EmrnypSXtR7ge4iOpz0rtTFSotB+6pZipjKUcYZ52JG/ORfMSIRE3F XYUCoijQlRo7Jj2igu2jFUWIOUUqmFiy6HN4t8f9UaxopdmH2WYl2DFiDpfB 2aCfX6EoxubdC15XUvy0cPCD+vcZ1B5vVfCDG9GeoXZ/4XxEBcyaelh9SU4M szhJDzuiej08xg/OTk/bkoeemKysDNrycG18Rgkh6yEa6piERVh4yZjJn1m1 6DP41zBjTCsHU51QfTXgNkNdeYZ3f5u/ZL18V63e9CFIiqhkbJtKKDzLEeW7 zZFOHTUoiCogmCR6wQtG7o9Vm42CUiYotr6EjwSuVsvZXNRWIJQOo7cgBkQZ oFCCbMPT/iVbgOOfHlxwEmlcL7fVEXJMdgQppWuudO6+XCI71v8ILctCiwig x6289GCHGVwyQBg1B7xq5CGZxzmRNEwB7wZSqGdDCzXuRDwoM0XOJqr6i4o0 d/ipqRj9HXaTZoV4TC9zvf75dAqYympWQrcjbIqH6PmJwPKgQiCXUOY2GwMF ZqXf8Ia5c1+r0uAha4RjZlBnjUczJnb98BmbbXMWkiPZJ6/WHLse4RMvF4yU wHSx7e6YEDO1qFeMlTkudY6Qv8vSVTEYU10jLO3+LgvvVPke9UEVwGW5nkb7 6dZBeGIYhVWU45eSxfV7Oq7e/0x435iJ36+iTU8kRVXVXwvg3Q/g+fkeDvXv IOm7Ef3+SVmwndoim78G2VaqxegMKwrrTSf1IOlx8mvBHnXR7Qlc9IpK/RMU ZNMvB/32Qdv5xBg63wxv3YSx7FMrFmO2DsueVsXCQbKU57R1yYMMQG/TnMG0 D8Dyz33KKPr6P2a+R8VKzJyLaVTorUVt0Z3y40V+vqzGjPn7QVv0lwD1T0t4 7rSVChlzPSz8TvDuPmjjKWyd4a8E/aJ5fANPuEXBvOdNe8GObyA5A53p3aDt HzKrCgdf5d0E3Zf+F288Xh0=\ \>"], "Graphics", ImageSize->{575, 96}, ImageMargins->0]], "Input", CellChangeTimes->{{3.436612604947879*^9, 3.43661260742828*^9}}], Cell["Steady-state", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXMmPXEcZf+nu6Z4lY3smNiEmdoyEyUJCIhNQTJQTkrmweAExEuRgBaRY KDJKcoo45ECIFIlbOBAhDhwQVlhvvhAQl/wFOQPxMQJkiR2k5v2qvl+9X9Wr 97peuydylifNTE+9qm+rr6q+rfrzF5998htPXXz20hMXT3z26YvfevLSE8+c OHP56bppfEtVjb5YVdULJyp8ntcf7VfznMMvbXm/ITR8z30ez69fvz7f29vD 3+pTmbYXZYwfvzF//fXXIer5pUuXXDv7o+3MmTN4X225vmvzV155xbU/99xz ri/ejdxEjefHjh0jadVxww04gI//NgfgO+r6TkNftKMfnrqvRzkJINCtblbu zhsFGE0KRpm2LWsjpqbfxHF55coVx/Ubb7yxbl1PnToVGL3N2tANTOC/WwtR 5+AdsjfSLwgJ5NRkgGuCA0qgxn8vCPenTX4AbUvJ/bz00kvza9euTZz8tvEx YACT7A5x8x0+ow3vauwRJ1evXjUVQNtuRHUhvDB/aAOX9WeiwPSSu3VBS2Gt 2W+AIlqQVEulUhiQEkifuLZtR4LBXQHb+Ult03lgkEgED9FAOik5YAPD8wqw 5sBhYQI1fuq+Edlomztlb3AYOxEOtNXkhqXBNuB2CxLNs6zaLga34VQbZGKm bK9y3ENC7NunAZhl6DYesAz1Jj7ABU11H2NzRpgD6exge7ECTDulu61oXGf+ D5Yw22iHKDAW7+q2QCLFk87+p4VcbtX159zErxmBkBIlSJ2sOdzIcDjqHzIz uKZugen+OZyF/uFFhLJmo0apc4bHNo7JcCZylMxKGJu415gR/NSzMc5A/45M xqP2HhBtMrJLkDOBiQcK8Gq6DLjErsdl/XrcP2pdkNthYYjGAQoWy5r7PQ3a gkdAjYxCDDF6Ha9QRm4deoIuoKqDl27CxkpYKXQ0ARSmL0hq8TyBKNsye+Zp LSxUUAYUkMXBnndHMhrnZDeyWREkbr50pesgtpHlRiTliGc9/Q9KfzuOIkHx bEF/0gs510LrFRh3KwgfeLEhH+x51ymwevFSc3iUk377PAKAtQwfo4H4Zj39 D2TmIXcGQ5lobhjNWTn5ts1oE8TD8xsPcIHXmn+Pftr1+jbBQG7YhoVDrOPh YNb7h9D+xSuz0CO53GEzSWfCDvw7TVxohrgo8mYdTqMlQqy1uMY2VzT2+EBL 0AaLabugz65RrpsNBWDbnchsOKz1gnF0SMSozUgv3m6Pm+hsFYbDC0fu1Gx9 +kp4IF70o/R5rGKcuFvmsm2W9r/bdT/gmnWWCocfHYaNRxswGcPVd0VQHzCh oDuYN+fCieMZG4tx5ldWn7Q2/E94L7bgNTYu1ZtkwqjjGYNJT08wdfPc749m gAMg7AootuwrDviH8OHl+fPPP6+7MXct9ObOxN3FThHnEO1YG+1Kf3Tj91h3 HFWyGAGAUX6U/WA+CYwaj73QvTgtnb7vPg+LTKR9/Wx4ikT1qx8KntuNGFBM P/Pb1tY2eOM2v8m1HXWbAjL4oww6zJTpdPWIkEBB+ujG5vzy5cuujSYOHuiG ro0azbZJIPUu667meKxFnqUdkcGn4fqwHXxs+4VagjfuJG9HglqF003rDv1U yudtYuj5cjMCP1zu9TiuVB5C+I+GDz0WmGU0AFLLtzF2poE16pnBXEvAvc0+ dQIu+NTUASx9FdwFEZwJtjWm/qx7i4X8LGrl1YxnD4Zq0AVC0TNPrDInOMwP 9cAEaOq7n84pHvPjImF8SbTMtodgY9uOGk5b7GE79s72NAcDY2sSwqEA7riB 0g5VGzr17lU199E5nATn0GZd5fDlhJZ0BfKgHGEwFV5PgA0jP9VGCM2Tt+mA c/+mtkEdCMc0vlsuw52xV4XH8yYlnQtqaC25sUjJ7E2AUu8iZvZQ5C3g0QOM f6kp3Jtsyw7eSx+3Qz2pHLdy6IUtpWaR3FKTbB3luPXW4SxaauTQprRSX4Bc 0M8hCj7L+TlXUt5GzmOYBDJsLTBMARnHboUP9HMBOEWDwbQWHYGmk2FTFxM+ UkzaEVvSFjM+VYs1qIdEE4d6LT8VCVwwjtRWrvswAKn5GAqkHVrw1hRtO/xN zxozQUxS43BwQ6jkXG1Dn3C4NdrqCkz8gf7HT0QQX89wl1rnmM9rmTHqslEi UBuiw19YV2/K2G9mxup791jK7nGTP3cT2ot4/hp3AVozdYPKWBceOakxBZXQ PYsYagFOzCAmkf608QY99wI8AAl5A6yF4Ud+YdQtI7P2MQmcGPwAr18dt4bj FZNFH4m7eQFwH+jlimSSix1lZXJGmuN5rAalF/2fvby8kbITNtt0M6ZSqduV buQ8AsfGZ2qbcS4kV6nHfs6kYzTZyLBlebAVDpeNZBEaw3OwhYf9maqVGEJg 23blSncjLm3X8S9eEDSWSRdMT1pIoEVSxJHF0y3OaUuc4LGG70WyFZErw1uf w/5fH8gGIoxRGPbO+t7WCx8wME10n1NY+lkjx5yq4Ogm4rN37r+J/VY/Y0nJ 2QLz+/MkGNsFEKcFgjPoVS/42OWjVUpPs0N+QQZEL2cqF7LGp3kEe6rvWqgi zKFzLzXNDsYdTWE89CAlcBTB0lRtI7njYcr50OLAswx8XbncETKi0xQAh1jK ONoHuzXvsCOdex43CZ4tdIV4AuIzrXTOrJ0DZNXrx0aIeBAsbV/Ogo9C+bNJ zqGIJT0Nmv1kM3VeuvD47usRKJ4U7F5/HpsSsvTDDJiRnTByjnmZvhXLtL0Z jlmR4P47Zm080ufBaYgDuhomY5vD9zePz59ls+xZZuduqMGx6pVOXLsmZAhS jQBYR+7D3z1Ob29MI3uD9mTd914DLQINsXNKM7DxTw8y4LoZaqj2pUGDyn2F WX/wY/7l/my06qz2uyarBN9Rw9cdaW0VZD1s4EsCuUUlX3Es9+EO6gGCHgkF 3Ed9Tlp36oTkktv7XkaWA5lDPaSMLIlO58rIPpFBseLqNS6AtrDito0BKBIh +422+qP7s6AObneZOjjXRmKjurV3SBnc7jJlcH1k5pRDyfRoN0tRlcb+c5Vw d68O1SKu9qG272M2PzcwJ9q2ub9zodoZrbr9Kz5MqgXfK8WHWbZLNbRUumV5 o1wB4j0DZ/EmqaW8fxDZs5a24KHzmltqqxK/aqOtsz+JJN8v8ywu81yQVexL Eebsr3tWQ9VyxacP9I8iopxVdQMi0bk2XXzToL5f5bqqKtdRP/SO5G2fht5M 1bgPlIwaB1cO0YRpIUFFgouV5XisxO+JEuBpT/9D0p+xo3sGwu8rMT69Qlrv 83NHo/O9UJU8XUh7rBr3DoTfV/V8eoW02tT9zoZZplmmJw6SHbE377qC6ln/ kG0bogXV9w3HsqBs+5GV0+13jOq3+OOqMtQcYZjrsE3qu7jse1YwjoUyWvat 9QqsUvZRwUlwD+wEO7IkaSUV6STNCgCFjHWtC3Pj+L9ZicuSVSIxH+SpXrPh 0BtLewUTV+Oa1LN3do38HcOwURBaI09LFkO4Z1GrmOW24s7Dw7ANLODXQiFO vG+bRgUZzJ8GfSrGMFBaJ71GvWqjqMsL6q8p47bn0xi9+AnFdXGs8kkZ3ncV QacN2FFZSiuZtbVpWbehRfvnRNg0C6aZ4bQiySiNbbzzpFY/E+pyJXAEz2iI rkJaOnRj8ZiFlA0qTRKy1ebXtMAPRIos/qFTyxNLJgh0snat7TosRveY9aMx 06CbpOhYiqXJ5nrYtBDTV7zMf24oZA8OSGpZctnoVkx1reLK2XTG1FH8pYHR WiD6+nXbXv9rxULj3Bsr1S9s2nOl0120myrlNCtHu0tPv4ymTQMoETcH0KrM 3VWbRwo6pvoIi+RIGHynclZYDK2m4RKs0l0ovWX0Y5E617J9Lr7Bc6YHht6h 4NY1UK+9xhUVV1N4Gp1pCW8a1cnhMWU9J3RRZXKJ+JMGhiXBAgLv9/pfPxVz VVBETa7EtndPVEo1bd2esO5n8dmZ1qcNmprWH7HBVGCm0ysfutvrf228/MoA F9dNx+E1hlJc8WajSl17v5q/X7A2tey8LbrRsjtzKf+ZwKS4eVMlLRnwuVKo 6VTLAPgONJ70sg43OsISPbUQZlxacKwLkD/2N7MlEBkGP+7H/trY1LqOXG33 xMiUeiT3+CTqnqt419iv2YyWjiw2hw7ILOevnI31ypktgJ3odCb6gdnPsCFp kLY7F7G9FA5qMdc23lvRQTYXfdLawJuFCSyUtnr8d2Vw3b8ELltZWXk+6Dtc 7RSrZz8Xx+H5qCm3PgOSYbg0Hp+G9JhgJbltg7M0/dawivr+XE3KsJRkDsd6 NlnPyr26v94XI9pzq0VxdqBUTCJRvx6lUJP6MRNRh+XqN+TN1gEn9o5eD8yl N9SqyiSvGLVh4laVn4sqlxNbkJDzYNvVA8wva742R/W51YE/2w9KS18xRLPh IoSHvNj/7f7kTXXGlktvMuoxlM7WguyMahfBrCQT1fiemsXsm6ElwJ0dzuSD Kv5Cf8KTUHyBknIU9yP4+7nMipLJJFz3SumDEaf/6n6qGXRrzg0Hs3hITL3p +H8MWoHXMbPFw8hj35VN1dM4G5BPfxzukWVpaud8T//He949GkuiwFNhckez EFqRkUkA7GbALMhC5HIdF/qHfK3/tX2zxH8N8A3e/2RmVPyaUNjVF63m128s G3xXx+hCwbivFvTxGZ/qf4ZikQPRdzmUqqmXHZh+e/tC2xeGgdgb1t2HC7w8 cvLJXS/ltKtJrGEHUv6PDOzSa6iux2cEQC6w3urknpvghsSqG3xhyThcfUV0 oen0Ye00CTu4phvcc8L382q9HnZ0aolk5HzFHQ6Xw8FgTa+4Wrfg99Ko47vk mi7NCFradsa4/5yv4dZqdXt6XUetlwhmii/ty02BC0Cv8lLb1D/kKSz9XXu4 wHsomCMcSpJSUBnUesk4BeNjRZD2WnQhjeuN64Tc869mRpT7cKe4WS3+YPDx TR4nzUXpSUrSyB//PpcgDo5XuiuqR35i04vWxJtcBO685EvSNWpN/eROL/3C tsQvbEFozHusR7OXgjW6DzrESG3hTPuyjJ1yM7PC72j3h2uDOvFSaxWtHY1G JhXtQZlysDLoe+GkYpe+XmF2ou40HzLB3+j2E/vbLNbaA7lvReR1kcSqNC0i 79aq7VZ9i8JSHNSo5s7zehR2077Wj2e4vqJk6ZaSHXehCGvkg4Fi5pO7bk1z qF4G7ZIKC0Sq5uvHRG9a4YumbStadn16AMGMM3D4HUZdY1MhS1ul+T9aAVVz fTUnDW2L5qG5ZrJIUIwKMl2D51XVmkmaJxw5D3+skCti5VkmNrLDgKmlod6p PPlbaFziNVK/Gc0C5MwVcZPiejgK2TfhP00CkWDz/3i5XNXNJS6x2g6rMRfE sEhtElDhDlpwI7aIvBdMrC0bLZGptC1imw3EqY2eqFA1RIcoX96i5nxEOrTR OoL1/nesRLudV99P2ZeGSUQrqDF3Njl3NIukpbJNzfcsOj8IItWkLrSJJjH5 pMs7nGh3M9IVbHl+1iEWso5OtCSc7T7nYHWg74WT0yX93gOGLgRnsS4Z/qBL uv930aO8X7PvdRFdOmATQrExwqKh61P4mm0/e1yQSE3R7BK71Np2IjNLJZfb q9RI5f/QJ6bMMl8aUKX0NLibtqbfTPsFp9xsFtPbnXDmpLa29hdbe04vUCJi 1WgALC6/DBz5Tob1oJnsx69+uM5rxPE0NGxPopLOenZ5U4uzofrTRQke+Lnj TMGOV2JVpEaHIVmNTvM5YzfONTpF31zDO1wH65m2h6zNYBlX7X4O4e89fUxn pZlR3ct5dvs5bNPXHUaK2x7MwGN9cxrW0i9+eC0mVfd3dNMib7pRUHz95ixm 3hy833h4DbJiP7665f8CQkNg\ \>"], "Graphics", ImageSize->{591, 133}, ImageMargins->0]], "Input", CellChangeTimes->{{3.436612632905768*^9, 3.436612634170927*^9}}], Cell["Electrochemical impedance spectroscopy", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 3.405907109932663*^9}}], Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztfVusZsl11vY5/+3c+nK6Z6ane3p6PGPj2B7P2D0zxpc4Y5QwNg6D7URI bQdjnBDsdjAJtkGiReSZAFKwRHhAJNE8TWLJ0ghCZCQiPxjnLQ1vSGHMM/gV jOYRBfjZq2p9tb+qWlW79v//p6ctsaXuc87etatWrbVq1brWfvELX//SL3/l C1+//UtfeOxjX/3Cr33p9i997bEXfvWr/a39t3Td3h903Vu+8Vgnv6+7Dv8N 1x/Kf3zn/98o33jF/b6/fuONN9a3bt2Sn91c7929e3d9584d95drfEgvfsP9 frB+/fXX3Yvy7/r163hh/dprr7l73/zmN7tj7fCVV14RYknH/V/+nrSRgeSv hfy/55qlw/0tbX7z5k1Mo3vQ/X/o7n33u9/1N333bj7yu/yUZz/84Q+PaFrK Md2e3gO08teSUCIz6l/1MBwQPJ9xv8/di8qD7l8//W6lHRBb+ql1s/Xt27cd iuRnD8hMH8pYcuuFF15wcMjvPWb3FCBrhoJ44XymljzrQe6n1Xey5x7PXN9y aQOP+JUbSqDHlUAG+sitnoYDE6wIC79AMwURa7PHPJQ6M20qoCjRlSIzNyam 7DDRz6jHBI3kmsirQiThW4AsXYFwezq+TAOzlRlKP327PQVZ/uybB2QkgKJn ZpONkQH+kjYKfjSAsm3AjoCrNAz8mo9x4qYocIPeWNJE+4A6/TuMYcHC66Rp suhMBoVcnrv/94NY8C2Gd2VQFgcQEaG/PaHLXgJSzxDdoX/qGN2jgblZeEOQ IUTVt2aVYSfPtUzYWbgn4/ftU+Bl3Af0ntBImvU0DnyhC5tQVe1SON0E+0Pa SFCfkojF/UMTpyfrQnhS+RIoJOEfhoEkl7/8JjAP7CmUkXf6NmHqSlv31549 3B51XVyKH/S80bfhxYbmDzZO+FxCOJEnLLIAqZ/ZwkGIC0TsoV/oK/IYUm5l 3Mtm8QFtBEwJsfCizEX5vbukmJK/hUF0XgdEf0zpvN5DU+HFPRpGxWIvTTzF BTaV/u4SYoCHeePRbTkQkkF2L/Le+Z4Er8mOtQgsgksg6GexpxyEnQq7lUgD 3siFNvIXFpm0A62uKZjyd7rhqr6jkx8QksC3z/AFCSIwgpJMcd3Dciw8pY3y 3Wqfdyu9d8AUdxfrBLpNZaRc01qUPlOpzNrUCzQRbDe8PQAe15pVs6d1zoX9 h6U9VhvWNqgg8+//WU1dV1+i4d4r/5HcX0RY8Q27QYOZgYSpYsODXJT/PxUW /zIdLpHU4HzpNZ7SHFwfSMQrjMUb61c1srj/P5uh25ajvAPHCtUq4BqrBu/T drP+skHWglTjDVubBOHE9z5M86ztQq7/t2Xj10XQHnWENQQgFPnur2d1WEgc 3f7d68Vtwo32RAZRUS7MI7klYHqVdcAJ9Oj369RYI2NSlgS9a/Q4QYQtXhpY yMWAIxI3hjxFrkpf9xcWbmIsWNI3A/arhIlY4B1G6jlUQLIKgAUs6UQ9t8Re NvzX3O9FMQVhgjUNuig2aopyJq7eSsN+Xf4jcXUQiSsgDKoqcF/TVceHS8QV WInF1YhiyZIqG8Njsq7JsQTyYy1TTc69CyvW/fFENsioUjUmfgps0KbZjImV QucTNQeVFDrfYQqR1c2oeVkbja1615hFqrvU+/NX9DUojKkFvP6cb/dJ7Tjj Om4E5GDe3rT0U1b7RAbqPBqOXDu4PKS9TF/ZzUEv9wSwQbObhY1S1U3f1Yq1 2+CLoi7920fBVwBtg6cLgaRSRXE559lAaugMDoIkpWcBao+TzlO+N69URw1g 1mZuwQghoe4093sMz/kIHsCQYLI0NpHzOQ+61+6uwxqIACf+D+TAfbTFvg4j nAcGndTLEe7Fu87lsPbQJ4gk98n2Y6kZ2rF4l3Z9G0/TYzb0oynIxc/0d2h1 KnXcIyGHX9iyT7/NnHkNQhLDwd+DtiVwLEyWsG5Tc5+p2cGxKH9jP8LYClMQ KUSFIMoZNoyf6g2Y2zCe325gewb32zyatj5SmbIVxVi38guyHzsx8vd0GMZk OgwWnWA4GmZVhEaRlvr11pH0/AAT6DhabqpFuSGxdjGWKkhevBwGF6j8xI4m r4Cukd93kSFGQWOFYIRCKisVAMus2ZBqK4tqDppoyrMw5QjI+G0BCL5raR4G OSnCYiFQBw5zxcgxIZ8lQjoU+rVzIQwFFYmlFDR7SCte4xHNroRdRqCCfc7d wQ8I4cjckzIyRIT0pe/UhCMYklyvGG6PoLPEdGnSNQhllnimyPHDXMyggWJh 4bAwdGmre9Bce7AwUv6FJQ2/EdpgkWO/7YFwi6PHLLvmACM0l7S7oLXMA8aw Yw/idRZoqbu4p+FlVj1d7zyqNIVVBecXpATaYSh1cPrRzhXnbEAY6Nrf88tm FUSYBU0PAczAFIM1bOdUPMxYRC51MDAVEY8E83n+Wmd67k8Y94axX+SxF5my pISwIjYYnz2zF4x22LkFW/ABXGuBqayPz8P6BylEA7xBAOHeEd3D4FeNdsPg 3qS4v+Lb2Y0XdQpw+MpfP9B78jcMx3/i3/lDfcSuqvcZ9y4b995v3HM+6T2h 6JHx9DPGvecaIdgPPSvo/8z9GEwVaNp4CatchIoHZp619QKn69iQW6/jUB+w yD407Vt15Fk63hUdDq4eLIRhuDkPB7dcwDIPezhhmleTaZJS55eUurZoTAzJ vqWjIhg2BvcVg+TLUGwdcE5EGFb1lUDaq0lbQlfWdjUKRzZFcFhOzDaslqgp FKtRk51caouHKAT0XPnLezm736Lmsdfdkq65LglBJt2GDTOO6R80DsHOIBAU USNSoiLfBQ2NLtm3a3UJbxCDiL1jExAvFDAj/WNrdZt2Dt6p/L8nEwHz50CN dgz05iiK75VhH3/3cPM5PmYMywHT3XHJAYPsLqwr0XaUSzoLxr1Ah+eN3hf0 Bu65WHjX/ao+4niTX5zL4NlIvPoa8JY2J5FvED4WCAE8gyyKXXceKTLGoL7G Rtj2/XnZCiTNFMlpihM8rZijOPtgUpJvOXWEp/QkuinGF4E/YHKqHbM3yN2w 0VgQWwGU8nAn0cx2gb2xaXqMHraOVRsKTtpS1N7bvPPI0YhgGqMOfcy1veww YGS5xEPhmfdidB/g7g59Bzwn967ucIHRxO3EjIbV3/dTk39MAT/N01ZwAxjE eXwPWN5gSYwREMYc1AGNoARCwrWtGstlY7ILhc7K9LiHi9vjfJmRU2amC7zz K3yZ4Vl+VxA79gLGWNoPGJG/buqoJKPdP+ljacDH4l76luSVPRfyiyNNhait z0DRneEoQMwzhDssCbhGiwFqGoegushZMfg/h5jvLNzT0AZc0unG3dbdQdod Z/6Gtki3JY2TM4URLCJv7frVV18NCjA8Sx5vHiRWBmK+OYySkOUCG6pzyGHY +dGES+cmxFZou7wxLKOZtWOvQIzWFdJK84FIwKZgguMq3q2cTxniSt5jFy3z Ivx9Q4bOYcA2Ljg9ka2lPI6wxmbYOy7yHk3L/S5DU1CS+UxeUX6I5LrKa5PP sP7bwFyG/uE25P73kr7ElkynJxfWQ2WqZQIOHos1iUDO+UXOnrUbWBlvTSt6 WZtBsw4EnlIiBiZhz7ixqiE2x1Y1b6+494zeG1MOoIVS5kMgSD9Nj6QsbUbl /6/p7NgEUapGFhbSXizZP1cAsLZwKY7LFlPxlaX2i2ABiCros6KQclkoBjol pLgwwKhJNfQ3rAXfLk5zrsEYj2Xt4Wn5xjoslknYrHFFI4blEu4QGVxO2lxG 7T0HcRvRQfZZiJqMDXnOirPFc40YWSoOjKkwiDWeGFtiyzoEK200lSVTFhoj AhAhK5utGgGpBw2zsRxT+WwKCbhnv7BytrIXFmy6sYVlpa3dbCQsM0Cc5uhV CpjoXCoCUagS9O/qI0QdWefHTpNa26nkBBWkD6C2fweEYr9r/3i//hbmiTCb AMQZjPGes4oSbeRCV1GJRwYEqIlbsh9b9T4QHKmF3qkRKFRFXxbEOf9bYy6i VDC5dKZQEaZheNrkRiiRRWtZ4WRjh94OmSyUSunaimiwdg2gS96X9c9caMnS KsTLFGI3vGZIRPn7xCdWkmwrHkegKhfNjXIvtB+TBFYFm9c00VQV8kjGAWjs xG2TK5Yi3IslmS8PJSbjAasRKMP2rI4Ma0Fa2rMleqcVBy4iDUMuzSe0EqNV CiO/HLr+IHGXgWhp9uKweQ2lvEhBkXV2vvIMEQnWa0A9XafB8hexp+BKXxzs x8RhwVOkgffdqJCa97maUmmpXNZUalZXeeozhkMun1835/0N2S4Rn8S0jm1O gM614jUN0gLvnFIB1j60UfjfKlRYNnQ7Qtwj6hZEYtmM9GxnIFpSpayw1cuL dsSI8wL2+O9+DscKV8IDETFb7Vco1+B7gRJZ1XdRfJEVK/iqFvVfLqLkNv+k GyJ9dvVBKgI4VVcDhkEEWM84aSiuW42dxryHig+7zHlDJEn+UQE8uIqJXFNn c5DsKdSWfhkdNrNhM4JrHotHf3euaRilqeajeWksJpCKY2n3tSmdV3xyxVs7 Bep91qiKdC1GDU4+EOaU+5q7j+0b3eiuiHgFb9X975bvD8AaZX2R7bEtW2Jb giqA90A7ThXLeSJe+lPFgQbCAx+p9IE4SFa0ioNPaYdjBYeaiSX+Cvc4CK6e VLynxinzh5liwooagO27OqdzKDzGMuIC8IcNVFzRe1adk7XsuT92mhggXKpg vvAKdiaG5lTxwmaKXGqCpKgFb04A9G0GoKv6K48agGIpggnUk+NvH3Dv7oI/ AFqAD/PlkGxDSfaAwys+dZHA5YxL9w/NjP24vok0+GBXF8teL2u/d4dkyKCM 9RjGsKzjAfn9ADBsEaHHhaIVERcnDW347AUcLgCssrkArHJZ3spotzD6a4H1 1Ohr2fAeNHWGy/c14zBwoITKIEI0G4dTIH7CgHjV8N51A2LwB4ojU18f+t+j MXW9mFTAWtmEqhiD4v7B0KQKvGCT5/P3XlYO0Et7XSgf0ybYw6jEIgrX1Oqz LxOBpQ+NtyzodZi+SKtKozWcHAHFG3V8GmII2e6N7SG0+YQKII7rTP1+cI7b TQHr4WlQHRgQXFZipRE2fjU4OTYG9N3TAL1qAMp+H/DnXJ+kbhZZO+hSD7UK efRjJGHLDuvlWb3HkVRmPCiCfR/K2j+lb2BHSaqSl8Ec4nwhtaaCok2nALhL lGKvPS2yAlcVcH+VZqlDdHycBmb5gNHuuUo76NHy15Hx7i3jXUgUlgrXjHct +CCJ+cyfBxQtQNcbQzFmp6doPE8Ejc87OI7OO5ALxWzwjoEXVbqACLs+8+W/ EkbBx1wMgdmuGvuDIgfdD8JUtTKv9HQf1VbVkxhWXBcfORnUNIMJZYawYn/k RQ/eSy+99Mfy36lik9O5FA6PuRellZdn3V+QH3R+wzI7boZSP01vKJzlne38 5aauv/+m7bHpqhz6FYKniw94gOF5z86j+ZOJ/AD9HznwGgmK+ME+T4IlbWyJ jZ5o83kCElixSnL+nHHPKrBZGvduGmNYxubn9B4HGV/QaWOxIFFIlDEc2EJO ICRyY/UUDsawDsGw7jmInOrpVdUplSjTSz0eJpLB35Em4PZ/c/gi1kEPw+aE RIsCiA8phGjeUP+yNEa9UunGKog6H9Bp2VQpioE2q5rmKr2v90tlVNcSaoBy AzXimiMH3wse0h4EnGcE7hEf94eYyeqnpPB6qJ2S8tf0HmvPMI/yyFd875oi Lk1IaC2XeEj5LuU3P8sO63FqLRCDCNZOHZoNBSfWsFcL3SUlRLCkxkwS69Bb a+epldxYGGh7d2USDpXshBXmob+o9yiBR0N8s2DAakUsiu7YZ677TPcuT+OP EqIM5TdOlJ7T0CCIdSTPz+gT6/CccDZNjBDv0DjN9OhN8vkLZQMe55e2LhEY S13nCg30M6Sfr500RCK5PIfQx9hYiDIeKUTB3C5H5neS9c8o8wGco1L5ThQr nlrIgmSCFOShMGWIcnpF3rsEdltpdZ7rjKL6CxgSUMF5LOz3IHXZ+nuwZP1t zN3Kim9CadLYUHA8bLlmoboL4axjtn9G72HNCCHeowBAjCErTrSDg+QZ1rKw k3d2hKDIayNHhnnO9ZninKoFBV4ofpHAS+vXpmaiW5nup5P6Osiy2lsTrsHb aX5VmuOsjnC9d8GRjnUiGJ/gd06agXlJStsOa1CAMU+Ri9yNe57WmzSUKVTc CScRyOjfqKbwi0XdxdMqRC63lPEElHFReqfuNbmoLfYNVgDlKntSljz1qPs6 6LOUEc+mhmaV1dAkFUnbF4qssuWJJaVMwkoB1KSv60AINOGSv8nbAX11vc5j +Cy3sHlaFYCP+9m+quQim9pdsFGkqXWqy0guOUjEasJp/RVOzmlPVz7ksF+g IPYNTPyHOP1+EZQSXCpYYIeRvtJtm8idq5XTqyFAi3o9gWWarFi3iqSUwjmx soHpgV0DeMfokNxyIYe7nO9YcDvmaS0KIQevsGJWRu8blHG0VoOMFDAgDRo8 rJSzUlRxyim8f766eWCS2E7YZ7Ed1Rtik6TlbollXe6/R01gc6myFVQGa5lP SCgG92vCn2rqnn/Zj9LUdSF71s75htiDSNRsKPccOzOXfvAur9oox2qB7S0S jK1c7lb8tCf8N2VlW4LCSnbfoLzCKpSA7NSgRVTAOSRu9L/VxEPXGc7+w4z2 b0pNwpa9b8D9SToDiIjDqolHolSClAHUwI8YIGeKTDYnAgRfFsKuIPseBAhH UGoZxo9Wnvn98ly0m8uF5AOYb3IhBCaXwsOZ/VCEXfLkLXcAJburrITDxsTf h5XJp2abW7nGWGOpGzrarCv59Xt6wEF6OiVFi6LDaNtDXAcZEXaR/W61r+WN c9YLdN9/oG/RfhmRSvDPqfB4j1OhSb4kLC69wu0DxQe9sVMSDMTRtX3qA9RE FuyjlWdjicG39cBJOjwDed4kTZeZeQ3xy2GDnCPria1XlaYTcqvZTGcGivKU 52HH9PhvzSafBYyomo9tQ60l7O9c7TYx+lkj49Sc7xrD11iB0xrv6CiQ6/ip mxC+DmWtZf32wO9rr9A+SkVZhzQ69mtQs5Auer3+2Ep7vaBYAFvjolB3YFdO DX22CN0JtwsIMFJoI2aDZjEpLXk/7MzSBZgPsRkFH8w3FknefZqx9cpIwi9I xKiGWQoZq/5S+N7JHVTNpk/YDzJVCFxjPw5pQbbV8i8faWhjZZWCEdlhyAwj K4jDrWkeGfeF3YXayeUzVB2OOEPVz1f5kBUDGIAQzePJwJ5wqhkFswWeHH+m QI5WK9p8lkm91nstqbXYXzhY+w9p3oBdjxEHpyFOMARiCgUj8yzp0OflDViE FIbn6d7ldII9wRdoLt0gYQ5CaSwdEqn6aeJnkh/qeMPt3Fsl2M6iaNnrODF0 lmacgPPHgsaQ1GeD+6ubkYpNKnznkjVEFFJIN9LdSy+91C+D/n/VOP+VPmcJ CN0I2zz04bv0aR0ORHFSFpD1DmKJWm7mymj3PmMMK9jFSVkIZH1SYYc0xb87 he/6oliStU/sQRREhuRgS/eZMgbTZDwZ3T35HWo8HlPIM6mhW+oq+XgMQu5D mJvpy67Fb08CZfzMD4Xl3xqwFMcrF5WPlLvP0vXxHrnh1xCVAf3liehGQKxQ MvvxTftvKcKD0sQpgzc3HfCG3uPUsGfSzj6hqISFpp1aBRg3tGmSv3Ogs4Pa leTwPFECHxlE8tc7lQK1yDi7leFqzT6M9WWFEYtOGrroi9tnQ1rPIgqByqUh LzA1bLg1MboV9oIBzEBhi2EdtH/2SArrbWIItRWjrMaus788kBbq1F33B8Ed hIsJpdtggDk5XawIM8ekOO5egpm1Qb124CWMPdsFYC3P+SILqkV83+bSoZyB KMqEJNCN4GG/W08ofJiianFnRfXX0pH9t1ePuHoJrMOkC7udTPNI+262vLJi 3gwMIABmDVOckQJdkvXq96SdfZlQw5d2xMmV0OiyPr5CjdQbF0KlMFxkuu7D Ndl07oMvYdybG8g84m3pZePef6F38M1B3n1eNu79vLu3yhzPnHHT88uv+67/ yP1oTiRHPC3Paq0nXHNWOLYUc9uL01blNVHzvlp7pbhTIiFVHkFegwn7uXyk MuBPeuz8a/fjZFJuG9wLVmynrCZNGyONjFqZ35/WZ3y6T+3I8PRID1YZkE5I O7a7OEmF5g43q5Wncnt0GFsxsLSVgmIAKxnflOq6+FNlyg/BGwyLFqwTTj/o 4o8G3JyGBeWhP9Ce2tKM7BzMMR6also09McnS3KC888RAVtOFj6vUBTynJBv xopTAWmBKFbSw+3pw8hV0ykT/Sw9Z4CRhtT7IUN1FhaqQg+uYfH4zITJK8v8 G51nIStlLOdNgS8fkFLsGRpuKdWNM6U+rR1yZhPNxf1qnXzK3/ka17bnrLm6 a0hmtzTiLM79pUnDHWTDWco9HzQIZRmeY9ICoyUIFyefboFYqBsbCfrYbdWU xfH3rWj4cMxCIykelgmwk1QHO+8Peg+9EgR8mnF8k06Ty62cJVs5RYvC4g9V S7FZ3N5yCAuDbLSALzRjgUBZQtsINMXy4hRhFiXv01ESWKzZRmxgR+CZB8DF tUOVyn1kWV1ONkw9+O6SjsamYmKeZabr6+HbF3aU9CsNfZbNz8wOxPYAzWIg 5nDcxsBAfpHDAWvtDSBoApI1y2hrsCPM1kdDahFp7+ptO6HsQQPSgvGKoLkV Nvw77d0UbOB0h36DjvaCBbJex6dRxOgeVB0/aD60Pxui+5uKnxFLCrHNsXLn pxU7hWAtp2sCkJH47kcaR4YM4v3uvbud3HPGEC9QO2ibFqn+sUf3L+tkC+aa g6RYTPyU8kwt4oi896mRyrfRe1jNl6vQAOHsb0HQSBgN9j305o2m7N1htv16 2QDgmgHAkQLAVIco6Ns8pK/w5sU1uwgaMWaBoRPlFUQANZP080zsdtsrLZV4 o1Da+6T7/6ziiY8TFIjJXmqE7Blq9+STTw5BQwT7mS3PnRF6kPNVMEAul2A8 NGAE77D0kEszaJAfFVdzeoVV9kDw0ymNCZwi8YnyGlzXohgpAyEui30gKWFe cU5oAGvEVAMWqbAz5AElPgarthXKHUYZ1MTjqTWmW0IC+cNKLY4ygyHkMXxW SNzobCTPCuebaqO/853vmCY02I6nnn6heb0eXCbsayrVq2iu6VMGfZF9ga5l 1sjaST0nv+jhxNEP+RFI8Xelp1qK1mEK4JnEzVGuZxw/vuZvazuZHUoq+Nte zfWHZw4pzkzgVAbOQZmKfICITZjTjeA+oCm5a9eHU8HHNVZvW3IPQAVmnEC5 IA9VCKNZS6Efm63Tmq/gRpFZjtmBGJzbyM+Wi6uh+vutQ/o4iRo3xfO0eMOs mdxW6Q179mE4W+3+EfGEXJCyrVV1reOc4VSrhX1x01OCwijILDsp4uC0xXjI +esR9ecVINbVbw5fV2OdSMXtX5cfdFZZbOq1Wuo1PmB3T/GktS/KLa8ybVhF 1TqcI8SR3HK9uCSeC2eGhGptl80hhVq9om/nSfkT6YeJ7wvskhowKnedQnt1 eH8VpT7yYtFF6fwcD8kL7yf26eKj5aCxWxp4XiyVeZHY+YWEnTS5rST//54n 5Ga1QWcADzy6m6BnvFRpM5jgvIMGUikW+yltmjjgkC8xttdwQmYKJW1lUU52 895ln/0HcymvTrK/5gDlE2obO21Y/YeVcY6Qt1ktTgs0z9F7kPzvmDjrxpqf BxScWgnVNQOctxLCas7CGwrGiCPtMnWXnqFKJcHYtbCns7iio5vgcBkrQ/kV mhiWnVOBnVfpPD3dUd0LvByckfITu5nLZSVkrbjoqjH8z9LwhpPtJUZ4/XA/ hKPGyi1wmHJjUg0ObEub3w2nM8aV5HBtQ0H+Zvj42EBKQcb5pJ2fYD4Fzg7r uu2rTZ5RFkqydWrn0l3ZIfbBJ7Xan6s2iMhBggMiTwlqd8ndYb5qPGoPlBir moAw4Z0Q/Wn5KN07ifwwm5yeFu/YJxz0nNjfOzKL8rX4SEh3r8UB9L3vfS9o kTjegeG6o6d1TfC6dfBdIfqFq+a7uuPPd2J39+7KY3BwKxE6rBk8q+V4s58X qS/4tsAZcGS9oulqA8DsL8Fi/QjhcMT5CBddvjAOQ7ec+5IyWjiQboCSUa42 wd/XUcZqabzqcRBUCK6BAQSqJjQfeMWGVZwmlh9stHlf8UGOcG7VnE4vv/yy ss866JQKSyiwm+QezPO4ar403uM40FUjDxYCg4pNCoEfSAHv/5MRZ6G9Mg28 xiNZabWswTgrzU6cfGfjrKBGI6SFaqfKDGb1GaTBpYGk9notpGXiuFq4TzW5 kDXLFje3zzm/MLqosMfgeIWEySwHhS5vX1Q15EWk523pkh05gmpfexnJ0ttv 6eUg60VgSk8pRFcFDxzsJVAZZjfUviiM0Oa1tBZ7IQ/PSmVNv8GxDsrtcE6t EoGPlgBlsWpSv0ApxW+mCEjlCjuau/qxW591zw6j5DZINAO01Ks/luuYQub1 pnKuYxIseYq6wSaubogs6FDyAj+tfRjMHw6M0IqWAKb2B48GW8davf07NDqY h72OoP7IyVSwfPLNZTQdkdNU4wP4ig7JNKt6wHyDB7e2NLrYVzp1aSTad21p gAHHysTYaQVPhDWDwmFSWBYMAmSuARafKF6Dqla8xsvBKl7jtcAi9yYdvDjm 70ZtNXMtCtqgM7Ftjw3QBym6303YK/EM1U5TYkaPQz+19oWD45o8oZg/HSHg 8d/ibAZC+awg7H+GdzcQo3/2vMFl1jJnEZly+YEOxVmeciWxAp7iyNFRnzW4 rLbODpUramWOVnyDo2KI6YBzOSEaflM+mwpU4sr+WAU7ioqGWAIi7mpw7b9U EjC90QyvwGjZ7hPBdZ8sB3zaHdGKWCJY2UGsJzFtwoGcqC4LAPTnjPE0z/hI 37fCHZ8Z4bd0POReTStj5fPScSyI4FF6/LD2WCD7LAEGTrM3QklDTJL+J/OT d574w3JSyw/MhKNAoHngqh7aNPIt2bq3GEfQTPB/w9rwnJXfs/ZtfGgx9Sjc CZ+GmAeBzv7bQ3qPhYovlct1rVritbeMjzgCFdm31vjbFyw/pXCBpMzK5HBi 5/azA7tkXyDmvV+6eQWfCFV6wfGUMJ9+KicRXpFcHPhvkfmg1UfMdXKwyds/ 2lp3R4MRWz3wqsgQ6uPUT3AhMkJ468i12Vjs8NlTuIfgoW5R7i/LP2zVmftv s/mvDbEfGgtMufX9iv0CpRyZPectswp1jhIo4X9buwPW2ZjrX/cHIR0HZmzM /534kVGke9Scolhk0/zGfCgUf+UaWvLzRGy4xawcXouIYAAu9AcDkBOgygD8 LhgAmrU84xQl1VGQ2ZNQjHfiFGo+8UR9Nz8iBKWqPTQQ+evTeg/ycKiAjg8q OJX/P2c0dtGoy/Ln0zo/7JyQTjDMVan5DQ/gwLXvVODgS1CrtNiOa6z637N2 98G5Bmd+44vuxyzaSsliW699zX+Hqk/ehrNGUMjSCNYQrRoOF8IaxKYxeFMv pN7UaLnrunXvwO5gWXQTJ+jMs268j0R0szkcuLxtBxDhz8NPrO/h/WMcbcWq R21qVT/xLECi7szhMCCVBpre3/HZQBzcVsvG7z6nJl647Ba7IgiNiULHUQ0w PZPoOLiCGomxr2YxKzYD0/hgjkrRp4L1zZIMGQaIUGN3wViJn8D9DryQjyEg AFKe89R4u7H6kavinfRMcy1qDnkHDcZ6nUytqVMLeqn1zMPzePTMmhYbTDx2 ihocLpb46jMUkfYVkmMCOKfh0VSqMCo42LP2wdpgVwKsIQrnZRpS0MkcSrX0 FDPaFfuvoBnwJ4osPuH7ibsuQIVQeISgA/NVdK0TCB6gkRmMs8dqjD1gRYEs xCmZkxdX9Ooq8mkXR5iFRxWsA3PQARCyKfGCPItDFJ4/YjReGGUEymly96Ut loMTit4J0XXZV6NLjNEh+sTt5EL0CS6lgVR2cnDCGW8uYyg+osAKbEDf/jhC hlxIqsF+aQ4z+L+bSDEco45e09SSlFNISKvn8PEgkBO3aiSQE++R+53DotAa UhdvSz86ZeYUGNDwxsB3gThlmVPOZ/vMhGkpv9wwuZp5hEVdcqJSCHfxPlNC C+8zSnGdxyPBs0kR5yI8gGEKSRgX7N4aFy4PRt4y1rFIAXRwYWzOhmJPDqtT LhVfuPpgtJugJ2pwHO0QTwIJbsuXcP0SZa3bv3rRvUopTJvMKBxRSoZd1Kc6 D/ec//4g2iO4GRAirRAgTCIxDF7HmQ24XpevcMrtVcC1AclQ8rCskaJLEedt gVvhCCy9cvW2rKDEOWA39B57hE6Me6hEtQ0xjQ6z9zzVqdVe6B4jwGDznxj3 2EMCYx8ZxvI30mSQJFQFjMvjOVdQXe7IYufCQR4LOfXISuaMu2Es38t9Y2K7 3/8GzQykRIwC8Qb563/SO5+X/1xeOQxrtvlqCc3ehTl8CZ6Fd2K7KS6Hj59z PhlWAyJpSCpM+71V+xQ8TwnFP+xb9bGV0U+bl1MV7EgTx51bvzGOuGeqrSSu VfZcI3H6RzTLTxCxu46TJpdR1iwJE4pdDGfqDamCJ1H19yYZx3E64gGnIwbW gEd5SHG5FT5xTUpxDeuEtXDIYSO4NWhT3tgAWvKMBgFMKW7d/8gIeFxNieNo sipMKUvJ1oTt61ZSxzyWSgrFuSFPzf2uG71/Lf6wL7j3+nX7U8iHBDZoN+1z sYOTWXeXUrVzBOXxKJSJx3efAMC+yWTzhSn1PMMEOLA/XF+FREa8UkgqXOrA Rk6UR2dHvqLxb6Fai6np+5w5wisj49uIibvcylJiJPvT0ZeZJ4d8ksFKZAUc mmr5e4Yjh+vZKqDqcFFhNdbLG/UPTGJ3E4h394FDy/8hlwlY0wcMGfsvut9P ohQoJOdCcMqFQKVcyLWsfd3OyoE6pzOBmQS58ZoejKLhH/76ccytW3WLEC7Z xsDEf9JHUEOEm30Jwblilg18r2BJQKSOiKhInER7QFA5I2cZ5Qck5klXw86m fQI1yBsxUMP841BTyAA4R10h3ZIzqI1EkLcbM1rWX7mhr3BiRwTwoNpifUvE /hF9rVSXh637Uzr6XTvUjTmyuoZtuZZowMeUxROtv4ezb1jJ/RHPNj7cH9To m3tdfBVuYfPieE8PjT9NOIvs4pOgZFa6qzG4jiLLxuaw9zhKrrP8E/fjQiQZ 2U8EVQzrrIANP5/j5m5Uwloi9IvESZb5BWNTbZX/oKhIE/+B8Nf1WHDVV+AI 4DgXoBirUIczemwoUMAqNMDzP2Lol5nTlPau7uGGNla6thcgcoLZRfnv9+IR KRcs6k1W3MMNbZB6wzmz7v9/58f5j+7HwiFVy0iDYtzPBHJxDOezejeu0R/z iMuMPFxL/3BDG6RCgJdFJrzfuIfTtthP8F6j3YtGOz6KCP6Eb/E09lnhjhw7 uHelsR1/4BHDezOizZGAY/NSh4ZcIY9tFgVL+9vDGZEHOlaLgwNlnSlcg/Mk G+hdOiELPGMIzntgaEpukf0t5jGCM8P/krAAKR0RaaFjXWlsB18hG2P85dya n8XvHbnLp+BnIds56FO8uba6hh4uDJt4mqxhuS4e2MUBpNZseVg4uEa8SunH GqbMzAIPenYjklk7+n1mmVlYvbrZ7rmE2cEXLo0eam96rOzDUZDtPVoxGaAK NfbrARv6tHxG7P2IA0Dzic68g+woxy2db35NHIWlCDcVNiSOjdXKkq0p1j62 13ZawmmWXroVVU6zdTSluxHHIGqLd0yg8idG5kFbR9fDQYODM6PClpYrU7Wy /+t+LKFdhcls5dMzTmIz3YQn3GVYGNh/UbebOPiyoso1LTLD4Zqt/cHjusg8 rlt4SC/qZNkukwv0QZgzwVjkfKxNsbzI2s46KH+u5riJDDTX/WJXFpOsxly2 ULV3SAzLO5q6q98IVTSxk/nVV18d40HLyawL6v/oI17aI+XmDCwWzWn9FfgV C35Z7gkpbeQI8vjoKp7tSU5iyz2NaBoduBAtRNgeWLjlSuF4Nku6B8gWymY1 l37XjX2Gx/o6ywjhClQAP2+JwtquShkundXfBL99A99Oc27zpz1k/XiHvico p0HM2novOL8thXpaeME+RD3kekwKE6jfOpprbGR55uXsJbCE+s8CzcxyYvtU 0rHoRHqISOkEAASOqqSIZ74Z9XaHeXBZW4BmFXmd5do81JIsGHQ04NsOadyo PIPnh2RySG9sjNz4CQwHPPM8KxEU+KVoJ4vS58SdfmxAZ8lhfDilUHqPQyHK CLCfwcU7cWYXDAixU0gTziTHmQKVsFKkL1uUskM1NyrP4CDLOWi1ZSiqHhqC Yw0011AKnh8ZYNWUz5aaddB+as06iDh1ihbxEZZhO60lapZQnuNTI1GwR+uP j2kwxNWsczmfNe4VCdJe9B0XKnL2ggHrSOG3FSLESV8MIu4xEhP8Ym0O+G2J pNXbsNPfMkvh03rWaAdM86YC1i8EE01kU4VzYOEazC1lzvCv8hyAYoaX/bVw G6r/zjc4x8Wt7mqM8HlZ0hwQ5CNmgQx8y4czXW8a7dKTzM3q4pNNJtFNLDE+ NiDGGbwc6mQUv0Wfc40sUlnl7/j4wjgK+V6j3YtGO+s7E98iGNx1HyS63gc3 asdD4DwslNmxzAuFjsvgzDGqIr3UU31GXwPPdnvDaUAHgYHvXT0pV77RbSgx HDMefL4B4lnIWQvv0dlG5MdSqFcBImuGUR2rh/doSgEp0dUfsxLlKcYVeadR /WBabsL6Kn4n91YIYnbDV4z5UT9hFKFATcW2d8aFnrwV0U6bTdA7YDzTpU42 7lpnE2qD8DwFuzbF2AY/F/repNzWXU+OE5fnCtQlqZWBDbG4DHTCjMIj5IxA IUSXZ1+hCSmUEla78YA+VARwbAIWpMmkgu2cgsB9d3Y95kC7p3dHO1Q/Qj6Z tFtErCy/aynPnkZvkhrK3ZdQliin6PKr8DRk6SRgRlEtYxrpcwhuJH3n5aHn igRsKpmMjd2BsO8mwvr9bmFSMoSFHo3CM4y4scI9Pc0tQw3LRpx+YhQ/nlXt oyf01YhNMA3uC2vPAndsOgaly+WdQ9yT9zJOg24tdQxXJHoXERqAMnLcYaZK 6LSAW0fxfHVs1txBixJguEKwZwEcFaE2J1X1nV2xIvYD7of1s7Q/jTt4UOd8 FhRm0fE09FmIjAvI8dQGBWqHlYnr4kJOSCyXdsoeBywi1Nhx8eFTxr1hrBfq 7KSCwBoLNjzXE7IHJfbGxbWIjxnvLox3MzgBCCnLgVbgVtGs4A4lWgfguCiR v9lrAYd2AyD6daLhxn1gSP2mQszJhu8z7nFV3wcIQ7CSPOO1ZQOm5Y2coccU 0Sv6OkgaPEQfkne05yCdpeNd0eHg1cF6H4ab83DYqI0pzyJbomeMdysU+W4U 3yvVPIJ3lHExUY5FWxFlawgrJQw+JQ55QI4nQ1tJcFyI8iF6Hru+8vOfRDIi 3aUlVer73/++nsd4EtkK22eJxUe37CLrTLOBiC8Posw2uTZI8bEoSVpeiOoV Ur72HIz7QfspQWxlfFlUpg8ZRB5m1YxCDKCcozOo7nyA0ityyHnc3d1NspKW 2Upq6+4g7S4quUBbNj7AI5RpYiWxWIkmmPTdUEltBV0OR7OMoqqDuQmxlWRk 0RVGwsC986CwY5ZDXtxJa6IJ07etcnGDcsshsYRqRkJYITWLxrIqFgYYLVka rckvOYzxWP/doA5tLKE/aIdgjOGIjPYcCYYX9vrIhwIK+SAjWSRAIDTv1+jD vPkeNBrI37eBmJYu0JKoYUNcIhe+ukvury7NFoB48enQ6/WE6H+ZWpvG2+P4 L3uCKoHzcsx9eoZBzuzz4PiB22RYWBei8LFcrEzi51hEvYbGqaHri8acwF21 EHQ5dD0pYs+SHMxHfjVl2GUkPtnLLhsQkyWOvh9GRUxybRY3RuILx4OtuDEC mBxf5hniKzMIh3AqKWbd//20Th1CU/3rfM54HA8fDoVbr9fhZJrUQtZoRUu0 uv3w6jgSXovqcrTaQkqKDN/Ec2vfH6KL0O+8VTTc04BodJQRdkR4ddk+hlZO +W9nFYiFrcInM1uhY605/V/ux3EUNFPOcL3DB4f4hvrwrK3412lkhHOtMK3a g3/mflyI9Ca5sCeCNJx+hjVBVil/O6i2i7n//wUPXfxAFWxidte4SPu/l9rN P437wHbBgqKHBX1AwwwgfItfb/oiCkTOlBn+b/ej/mELPpwd0zwx7qHeUteG ++tjRFfsOj+Ih2aNSy62e9yXFF2V3bnwG2eYdXVPhK+Dm3ie0ruSl3L3Rewt OVTkG+3NOKxuYAkW2LhhLMioP6kz5hSUE+Nea3mg5bq4oE+sWOhINVutdq/B E5LSk6Hme5y4i13lP3sk/pkikUPf0Ag1rKI1kYeBTJz+yGfZK6mwQVDMM+j8 ZR/LRS5Hc893e65Uq/00rTKPlOTWEqhyLcGC5Y/7p2Edv7edbuJxiqBUf4uH 9AF2t2zTHd/r2C8It4yymmt3g7BkKT1gWWgezLJgoimunChNor12qFSKpO+W j0HaWXmSVexTZp15CKMJYtSyN+2z2SQwTwKY0G8Nn44DpK2/ZdafxTzsG2Lm eUxnLP2ymazF34gL5UJ8unvobjgSeZJ7yJIrIxVAI0VVLMct+uN1iuMww+c2 5Ua+qxG3l1XFZPkm/pSI+VYdDuekIFQtjHtVp8aah1ybuJFSz91mZUVjHpzG oqWGQo/WKhvgN99mJ7nPLEdY02Tswpg6tfdD8pWHth8Q2hirQF4vPJfVXkx0 S9HrgVss1xOSX/NlVa+bgbE2tLcqUwaN75XwzbHdusxIlkU4f1z5BDksagCd GKBCE+etFRhtdV/Ru9XilBq6y+6uuDqithOyQFChUkX7VBcb4GG/F+9SQDsk icrMMtpjB9OJcW+k4uOS0fWq/gp/+gsIqSGVEyjhLbaQultHnYULRvUT+hzB Il5hWDFecvr/ISi82XEr++b4HXx00ha1bLpZRRAtrrhTo/9Vw3uw9dhqtYpE QDB4EMHBA2rO3JPI3hTIX6YaTq/jJAn/zkFkQMsFjwhkn+hl/E1hCAQP18Yn zE0sKIHqx2UXp4p4WvLuVWEMVIncA+ckn+qOjfZ1Qj4qRniRM88rooMw4EqP E+Meu65gqLHrCjD8IIPhIDt9BQmXMH1Drv3X6OUPErCYQNbIXfdBztK9v4Et hV2ZSB0SlmEXw+B9WbR+aWsRUkQ54IGKCnWHymVVdEAMUwZKcG1tVhgyTwtD dPby7CTKdAFvQ58szLfbVWWI/xRiJZgVJ/zIxQ7EQhWIvnspepezZ+FeTftK ijKiPv1Sn1LMcbVazFGCCQqTVcxRmO/Oajk+OkYOy1hs/FRUnrr13eRbUDxT FGRY2QbwA6aUiKovrjVXV9TA4JTsygzD+sSzpuqLn94M2zihC6ZvA7bRlB3H 6TT9NLy2h/IHbQPfTIrwDYsmRiBCJUfTPCd+YqpUL/H8GCneHnQrss1HayMA Mg0arXno/4zYUoECm/Rqqyp/7a7IYQQ+T5krG017owIHlUew0lgbR/+oZMDu LX0KfFQE0E36jtA8yuRQv7NuysM2l9YpoDsqkVB0bVifsMjqE5SpOdSvPUcl ChtNepsShedjIvHLKZG6+JQh+DhYuL9D72Gri8f6LI/lVWNmCjbZVI0LJ1vy vtpjGQFELkVAcCJTmt31GR57iMN4tvP451jvgzQAPLaP0gAYdBjgF/0Aw437 TGl+k278lvsRh/jnxj0Xy9ePeKR7PJl+/NVvbK0zo7u3Ng779sb+Prhb8B5v BO+RSjtOpKj1x+1ap/sLnni/qQ0omWJIuY6dG3zOGhwWjyjS4LDgdCmI59dw UpJ3xXPMXde7w6nLvVgaYzysICKgr2PsN4KIQ4lH6LpXheE6DQZfwFaTQpQP W+ygLYzPiH2D8Nuco3sIgMxL/Tmork1Eq3vp6i6QqZvEP9W+UwNSp3BAgEAW ++EP2F0ZhmcdTVwC5SOb5yHfAxvqHXy6Q8dD+/QMOHZXMlzlWqDhq7q6zzDx gJDWLuFnLnAcFyXUoE2/JFjCFsIH9w5b86AFcB+tKLOc3qACtG315tbyEtgX frWdiNbrZaxuTUTVdr6R0NKHiW7huPp5puoNmQ3zrI7KV84KeReR4SeXpsJ4 //BRUxrot7/9bdW7YhjX69r37IpzWcW2x3rNKra8xNY8+kSdQHrgdMNUNwBx EVlm2CxCPGYjjG+NKWP5boGVUyVfAwN0XCUH0K3wHOsxP56EX0bZnXhRw5Lb rLc0qNGAroEJ2dvVP4bjxgAjlE6SbOR0vwutQ+6A73XcWnHYm8D3qrS8pBDA ZT6kFR2y1ZgmnwdyuBiDB4LPYFNr2qwrBOuBBdigZY737Y5G8+Sxafng9213 oju8CrJea4jPpx0by5wEiQQP/RpLHqe+iyTOg8hukKsVN9NgnaUkQviFeUGp 1E0l0/Zom6VyDZ+z2BQ7rSUP+42cgxCWyLRy0fRmXAIUwFDQVbs3CK57xSWr iEvkQmxMYQXTQk8dB2fB4LhLA83LRihACciyIEZWRSgUAkvT5f2yxhd7Reh2 vpLaEoTftJWk2vbLCgtcv9hu1LGCicLYwD/plQ/JBjWpfI6M4HBYZ6HqyPps XO2LtgVg2VrDomaBgW7Kh8Y3TaZWKFCAzDrQf/9MR+RzZiGQyt/R3QUR01T+ dUFMLambHysiIm6BfYPSTDdZE97ter40WugWzzoKysTDxRm/lm3KpNuOPa0y pnL6+71kTy9pu9+QH3sDvVaRdEQRIIU3+QBPKvesrYCRwkeKD0VepVGFhcC2 knF8zzpoVzYRbRQ2zG/ShySKwFoJFPtnD8QyIrRcLEJqzLU95ZmdU1qMzWP2 40z5wwzpiIaz92TaKjtKxlhkKzhUDK8LjLbPlqopES9VsT6BhWtATCX9mbIw y8duKIcUaxmCizPn4VjgDAl1NUe5QshsYR9LOufcpm+q/ubvoOAe+6QBPtJf Lc+9VWvSOqXyvhaPDy1nG/S1jsVWA+TBLubaakDxgToj5OMzfnGPS2/uF/LB 0tiGfEeT+p0FmLRPFiKoXGqlyMwYusyRK2tK7ncd21LZLaqdFSOqmHpZX+Pc MaQCL43XoOxBUYT3F+8rJh5QLqgdDlE+tsgGB5Ujt7I6q1FwykauPRQTZ+LM pw4Fjt5gVi1IPjLAWVbAuYdI5vYTkXy8UbezkBCsXbLSBxfSaaXrTdhC+y5b 6DtnC403wOPENTeQUz0eIFe4AI4T4FBudllBrZ21Ul7JxeGtLy5Zw9dO2Cx0 DbE1NrMNurbqFTdFWnllvhlIwytjSDvavBu+d1rvpkbCsYrNERy2kjDy2y65 nMxdyLu4S/V48CJxl1wDCK6oHdiDpZSXNNZhwHulHBLAUC6ZrPfPrqvaHDft H1J7DP4WHB4ZMCzvAxxyRlsNh0cb9oV7nAB0aUPaWn1Z827BayttoyU3eKaT UH1s/EAV5rPoWGVGGgL4pnbO09UpAyNtkotwrYFPp3TKZ1rUZjOp02UjpC0o enDKwGeCIj4Gtoai4111yjXOl6Z0WiNmXji9Y2KqEvjPCYbUrSl/o/kn9R5X NlvtHm/s7+2N/f1sY7snGse9XmmngfPR/rhd6zw0J34drvus0uLe3PhL7scs qrGOqlC1DuYT7kfsNs0alb4VGBKD1GFtFDH7kq4Hg5cXzZBexqVaiIzd0lIt HcI9q308T2NuaIbXXsenIQYs6PlpeSU5XNk8ZIeiy1WWToYEBs08QDUoF3Jf 1/MRBGcWbrRYXKvKzpsQJLNx94TV0yr0gWD+nGjzW2NwhoHSpKZxbJB9ZvCT QcODBRxSGk9DipxcnDVZ+CJemFZSm48DcIgNQ8R3b/TZu2FRBGjhenulUIxN boboYB2lu4kgftYwpeA6RIRM48Alas2YWoOHdBXlORrj71MznJXGoCkI6I0f yYWkTr0PZHOz2OeyKZHy77io+Q0I8aUpxlk6ZwMXVu8G9JxCpY+IEh8pUyIw +2rs83ugBE4NAkUaKCGvmJ/li5txhby80k9mu5VTJkpU0e0xIiMmc+C3DexY ZfIj84FECfWwKHiPCfZBIthsQNel0bJp/pIep/WAEeVSqREdBgCQjXcsSpHj F8LBU+rYRAbLHhIBQ/rJlegR9h/0DvHE9d1gJblYlIETEyT5YS5aEJQmVKqA b5NwYV2dhDIETuzjSmqq94Z0DacoJFne+8SvmPltORjOZzaidazge+AgGSLd 4XJUHV4o7+Zs7DABvIfloOcsYjSQTfdwzrRi/QeoHYrN46/XYhR0pxCEdPZk UoFL0pJ4m2KLjB2UclZROQ68sVXJnyv3C5gK/cLO4iLyQ+MeKuKq41vfs/Nn GseF5ZYlyE6XFBC+d5XuKecQID/vARlu3GeWwy5udG/5f+ZVzlo=\ \>"], "Graphics", ImageSize->{685, 383}, ImageMargins->0]], "Input", CellChangeTimes->{{3.436612658403504*^9, 3.43661266626499*^9}}], Cell["Equivalent circuit", "Subsection", CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, { 3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 3.405907109932663*^9}, {3.410151936770359*^9, 3.4101519419755697`*^9}}], Cell[BoxData[ RowBox[{Cell[GraphicsData["CompressedBitmap", "\<\ eJztWUFLW0EQfiYxCWJrWw2liDSHapVSFO8KekhPFcSL0JaShqJBSotKbY2l NsVLbl6lB6/iD9CDp1wE7/4Cf4H+ge1+szObTdwEYxOV8hbydt/s7Mx8szP7 Nruvs6uLHz9lV/O5bPrVcvbLYj63ks58XtakaEcQdOhf8CcdoK10kx9UInjw yy20t6jqVOfn58otZ2dnwZrLElc7OztqfX3dsgwMDIDta7UgTaEecOOXyWRE 0E+qompvb0+JE6L07CTW+fl5UqCH4L12GExElx4exIgWI1EYxrZEmHV8fFys DJaNlE3ugn3oPjw81G+gJUkyJEA6iu4jHhip6xUj4ZcjAdynp6csIaqOj4+J jrcGRhS5Sw+1IhJMg9Ia9t+OdEjDpBSqnQKl1b6Mki9F0vd/D5F2t0sMxZ36 VXfS4iqXy6n9/X1BpXZ3d9Xa2prxfie5UxIqn8+TBJ60F6heoneYZYFxaWnJ ypqbm1OpVEpkiUMRE+z3IG2FDDlSjb+tp0c8tCFH58LCgtU5MTEBmkQxkEu+ 6LBIX1H6s/rGpFgyPCNFI3vgYR1k2snJCdFnZmZsCE9PTxPt4uKCjTXThNhF ArXA0j52EWYemYz5kwzT/u+5gsVTU1PG4ggnADqEWaBwutGbz+wU08QO5NrD 5qD0MhRMI2CglEolyfZGzt/e3lZjY2NkfxWUo6OjGiiVRY+XsacN0ICGKNbm NIvmHtOgjZd9tiBB2mdnZ6muQRnUh5kkmE5M2RmcnJxE33PP0PtMu7zQxUg9 aJgzXbcMYJQkw2+61jQ8o5KdoAeNwhILSqFQ4LnUEJkP9GKxGPhQ9pg512a4 acYfyusB63aBUZHPnCwKbt0wPpNkOyYPfQhJtHXaAQ/6fJBEHFyJ+HDdC0tA x+agATiK4sfoEX+7WwdJEflqG45KtAiNImiEmBNkPAwHAPwEGNaQYfD0sgT+ EtFbxQ4DyruAJOvORMI7E7IJSXnGidtBQ45w6NgaKHSfz+3iTlGB3ZJPhc/c J61FV0+1md2YzX6sBBpVBPA0GdPhdA15JDxyphmakJJ97QRZP/J44+xVb4B2 WTQokjmSSQDP0+xDKoEv21FXvay+rkdajL7+xzxmkaBoJBFelOXjywB9oHxS b8BYZA+KtlCMhfdReEm4I8ZKmqNoC8lYWTqdPvvFuVVz43YNtR2aR29mxGJZ uO6QxZJ8UgYHB9Xo6KhY7ER2Wy12/lLE7Vovpb+/H3slsYmX/IpNNLirOa1v WBf0SOijHBwcqHK5LLpka4a3t81pKIfsIXvIHrKH7CF7yB6yt539HZ6VLTK1 3ociQhHXEPHBslOr33RteiQV/u8uZQhta2+ZNg7Z6cjOXp7xnZ+5+YrboyQc p8vRpa6/VXPJ5SHKZa4fVHXTeS6fFNOPT/ntcbp/9AZVlfNn3C0ZEEk5wqSR qP1WigTnWsBKqD2Sde4WPRLknghvcm0I61Fw2NZAYfEyGugplUqBnJm6NyQb ruvMfSW7zp4+udebGzcTNbfVDjr+Are9VAw=\ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{257, 156}, ImageMargins->0], " ", Cell[GraphicsData["CompressedBitmap", "\<\ eJzdXEuvHEcVHs+rZ+7Dvr6xnfhxwRKBIIgVsER4SAls4gQidiA5Cx5WBIqR kFGIRJSV1/4J/gfesPaehX+Bd+y8YetfMNRXdb6ar6pP93Rf2+LR0r0zXV11 6rzq1HlUzy/vfPHZH/5854u7n965/uHnd/7y2d1P/3r91r3PQ9PszGRy5u3J ZPLl9Qm+b8JX+xevG/hnN/8D338RP2abr776avPkyZN49ytre/78+eb27dv4 nLzrtE2dtsZp+761AT7mwd1Bmv678ujhw4fx7ir+T3F7Jd6v4xMw2BCMn7du 3YptnGQ/9l20+obnAVHIZ7Y5OTnZ2DX5ms2M8SR8r5rPkHXnu2Lz4Rna7969 y74BKuabaxvGzYRYgMHd0kGjMTRq0OQp2oAOpnqjIpsod5Ed+WrMf1vm5vPL 1vbs2bM4bkvqLOOT4LTbDiq8eRHvp0+fRjzDZ9aTmzdv5rkvWNujR48yf/YH zr124B3F/6tCHXABPngKvMInwWFKPNIptG3uoMdpZYo8VttWDnqH9n8Au3I7 RBJEY2wpJAi0gvTD9IEmW4E1Zx88eJBXYEJzGVEyExb/0CdMMY/Kcz4qAi9g w+5QQD7j2sAzYkuqHj9+bFMdtyg9JTy1O+gaKM8MFvC2thYFmC2XUn+Mhy5A J5OALxLmqVEEXmqqwMg9B780397QOVSvAhfi8mcbUDCdyW0gASBUJ7UtTX+u IJcsAiwoChXGzE3C25nf03UldRH/N9n0ASbYDtINfoAFiE2LhSpmmlDitslW 29bCMoKkxSQ5YfglG9le5YvIPawsDMVfwmZLBXcmWgBgZBQXnEUbVufUqAWW gKtCpULMRsFat2BBAhiL7+zbCM71IgDdRkfEIcBqSQ+GY264G8zMxrE0Yz5u LH2LYDGSD2wDH2wvjrygqMNiyePJG10B2sYVoLQSD5pP6Abu8Yk+1fwjV8Be 5A0NhvAmwzf+TSPwhStmZQ83omIRlK4Wu2Nmav4FwZBYz4wnZiLJUW8hLEy1 ANKWYbyMKSvBgrye9Q9pDC4ek+bdap1sp/gvmZW4YAVASIChrtdAjDwidLsv MdlJmNmV+AgEQk9nAq7Pe+DaqvdPKoU64+IEZudymG5240F48x4heU6ZKeUN Q4bk84LcAscuOrPT0rYdFl8RIWrzjfKKDbCoOXTgYfTmQ4bM845qOw8Rov8N c7aI/5u8WFQsNHncYgCG5pdmai7Y1Uo5gqBlJ2ozRS07fB2gV0Y4WE7jHR6P 01HPUW+yvmRULI6C3sxtWg1uwrRUyTZRyxa/wYiAtWJaQ6+k6ZmDSllpVIA3 JoQTFrpTWUFSrax00IOce5R1kbcQOlbQhXM9z9RYk4PcTgBbXOP4kOjisiVK FCnvrar5U150plz29D+S/mZ+CxbUbYoHtUS2M93uINoQh3SxYJW9N+7geh/G agRpkXAta0ZZpMhGkwniOrnrGc9rd6qWOQkCFhZ/Zpl7z7plvmLcmnEg2qaq MQBUk14y35+vT+DduHuCLNvmnXgss8DxR90NfTxZL01HuI5BsqRMYtxDQYtL UAuaDhYvw+CijLTQITNLvCZaEFfQU5uv3uQYV1AzMX0Q4FnDqOPxscMDqgTj po1sFx1gXnPANP1DDjt5UbbNHWwuO9O94fQzqRwZizE7Hps/YEEs/N+ZBqfG gEW2ebjMvmX91STJVPoDBvV4a5+XKsLMiTDnzFhFtHhx6QHFwwF9qMu6D1OO IMHM9GTIfMcOrGbAuAMbZztYIVFtU3eEeF125nzd2jRFuK8SXWuQHVc2UKFv DG7DWl6ySRluWB/G6RjGVUxBmqHNoCDkKMIgizrkRz/xBGI7xjF2A9ZJD/eG 9n8rdj8bm1VnBg6/PG42xhqYiamOqdNG90+wmlCpwBSzrBTRyrCg00D7xn2P C8u+LwQSHfHvWRuGUXl+LVhY6Dz5gbXhvqZA21bOWM7BPQd3B0rBOlsU+sLc D4x/YkZSkpM5JVIa7kmd5EBd1/loYL9/KYarYkVCyryHkQnEMpyChLhtoAv2 12i5V5v79+/Hb//Et7VCL82gSazIWxMprh7aBPrB4E/scUHhznK/TbZL2+wM 7rhDvGSmUd8h7dpdVJP0mbVpxepd6UctbZx+nzj9komefIkPqY4MqzqxCjSq /LKsphpetBpTGaqrNslxAdLzuu96JBoRd+Pb32wa3Q0OqqlrUbLNq4ocmY6d pioy78RlWFHqRao5RwPHrl+AvjSHebPbQIx/qGtcFdS46JII9zb37t3LJp+b DmyPbkbZNR1eNkk24lhzNfF6weqOpyjtaOi1F67Q7CovvCLydNrUtv9KKi8v rci0LkwDqdJiTiIFRiMlXHZQ7TE7hZWTdxzirhqJDO/p73C4LSBCpS3bQh1e AyEMryL8Mmo/3Wnk8fUgDaCHFApenLaLQ2pRr7iOMhTXVW6DgkLHKQsbm7qd b5VlOAwXphpSfvPY3aPQ10ShafnrapYsHeg481cJ6ujqh85+iuqHJ46mH0xf Wccz9KfAlAn7aorpNjrUoxDcKBtnou4zBJ2Tr+1xbRoL7dpmxJB5YEZwKEt6 NOhEwEO3t1Y17d60Daa4OWk3tkDhSWNEgaI7l18GAoNAD8rl96nROOivpIQx qi7T+NBp36z4kRHjSDvgNKIA0qNoPCwnAUKR7d1G92EODapJYyJidLlCqyx9 5QovW9709OdC0JrAbOScZ22WsWWLvjLKWRNqXdJggsayIV5JY6fntCyWOHU4 qAnr/pZ6jd0CUlpBKHk6rAKhFdMyXT284tH09KcMNd0/GznnOePM6EpEH7gm J7RZpeCW3FWlGCA7M+8RDHeMXPPcGgfbpjzZeUUO1sJHVCFW/UOYHGoXKUbN /GanMnQO+bozszH2hk1p+xoZHB2wmMtI6GTzFqBSe6EN3LmnBoZiNWvMozp1 WRrxMrMC7SzF+LrBasA4apdmQOry9FAcvuHgMKTecOLgYJmLdwQkc3zXjKua /g7PvIPR6o8QI/ovTOnRpGKLoolo1xIGZ+FPmbTXxPvixbH4zrjuVx0sTAK/ c1iogbixLyug5vg1y8rQsXH6feL0O19O3/Z/UhqchOATJ4f/kYb90Rlmj+LN K3xBglNLXbeIQZkJ/qbT9oEz9uMENj1aZ7+M4Xj3Gf8kTvJYncsytbhq1VNx 8fhZ4GDKiO4XU0OpmCg3cxeHWYonrzyztfHuUOSmJCTnMPm5mjV+yyGDmWfd gDE/Ipn3lFPzoqYY0PPyBWSUpve9U/t7xqi6TKl7embUKm4Z9Ao00KuCPC+j AojcjA5sbrHDWTS4gDHGW/b32w4xLP3Iwb8cyL2fUEpcW+bFDAUAx+27HgYt vdySlcc2E8Hwb5uuLB18ell6mNx02ZRhlQlFO8NTqwZjXg8NugnqcFqJTIOg QRJq9PR7vMhGuOpL08cOvsX+FltNtChKiSeGnXNfp8Al6ZucUMJzrrztGc6m ldinpmhMzt11q20D1OIgy53pMNoKykzjRHk3RmUytGjaF5ibfW+pn1FaZDlV YuSMVm3ofwEfenAWmGRuSeiT3TjBIelSAuPoT++BcntfRlhzfieXaYxYRmHa T7OJanJrNrdX3r73EkPsADy48kypizJxfbzWK9oNE9e8oKvWvXnhMAYKvFq1 dxKZh5g8PZKqek8+sclufJ2NhnDpaUqlJcOnvqkfTYFt5/SVxrNn6+GsoEWl LDVP+JrwW47q06uHuHTVcFWk9OMkJlhoU4yDShwl7Z1Pfk9FuipO3fCMBWfM UVQrd3XBAUxLr/USXNaHpJELaq/IFQqSK0kFqeWgCCvmh5l6IyJateo4+0wn awflVGSepsa+eVHayh29yVLWYyI04aRdWcPpzGnOC4f7aUtWs5zfUbboDjb0 XIdn1yk9+i+8TDw8pg/Q3PBoGwMF9XkBrB7NvRBrRle7KCG8XaZT/Xge3FZU mbcR9yKlC3wjo8TTmaYP9EEpCz3+pIlHLj1GcG0ez7L7tNmUJwxKjjStvZMe Awg4kDlrT1nkl0sieqSXb3HtooFnY7yj0gubkbGGJd40f2cmO790ImSzjJwA mJkmyj9LnL7jcJCy1ZwcLksZaajg7YBsq99J1t3ashcF8zTvxbMb3rFi3fww BgFwfShT3U8hY/JRovr39og5dXRnCUs3C1wGUh3K2t/RmiNVhkk0zy+Caumb 2DSapNo7iRupmUm8WB/+UtariKi3H5UC516TiN7kxayXnR1g9pRbkwUl0yiN maqIUb9N7WogYhFaIW8uDGa8JDmbOWSHFAtiFXuvkPJhIvZPohalL1Ieo3xT wBKlnztjDWyc47/o1yn+X7//Jn7M8zow5bvsN/89Dfpt/CgtmvfTDJ9bG10P xEg/TiB+6E+Q1kF5XpWBILoYFFup6UQtjRe9BTtbEWP9qb3dyPZ0ciwlAaT2 nBcRdweOlxVLf8a24PoVGMEuYx3D1pS0MpbEKxZzE+4cCaCCf2LDnubU4kV3 mp92qiKh2nShagV9smMqfjc3GJ4FDSudRo5uRx5sx5Y0HbDNwczrcXRoiSpr yrZNESK3ATpIsOXJtO7XutGlDBFDmm3df+swLB2yimY18auOwbRO8KOkp0ld zxYKSRZTpuK0FeyXorfdxsfxnerEaw3WymMQl4pnTr8MjskGfUYsNBywLH1S rYPsxGgqzLLFhUtgGqIvIRET44E9u1JgaYsotumP1xA7hsFVhNGHOfvoCzOc jmjlov9+VDz10vQncDgTeZ6YcqFzjDidRWq2hsd+NnZhvNYuPcrCfqxk8JEe ImNqtp7ZHMdCa+e1GZ1uiaVci9wAoxZ6I+b6MUDarbWrXVrLbhRxTYZppNZy ythmWay8FuQ+5A5bCkrbRL3HxbRxfSrJwTKfaNVnNeH8HvrTixLx59xKt1Z6 /c/2TunAit8zCuV0pSbMsyZYH5bZ6ciTUWYwaP6539gBkkIR14Ui4juT7u35 fU2kyS+y7a9UE40evv03mdRvjR5kTWS5iK/zSKpunIYuWhqatixss9t3g7Ei maTpUFBDfqLeh2SU+nKFyQ3YL05zYahndEpFXe0a40nGAcejNiN0NMYx0606 NuoH5KgXncHQjq1d3zlhG621otuztQcGJAROXCKV17T/olhF8q/en5Ub9KfJ Z/os3Nvpx+hGrXu77j2nUEwKI73Ds6RjnVM8FpenocdDMHc5RK5Ye1LMSznq ZyDpLV5+ZyGfytgzbpRynnO3dEdJPEyKA/bAAnUQzdLyAG2hp8vsBukB4Kzx 5bvLPACToB4WRW1KieEGj8FPkofMnEJgSMoQ6KLWfjTJ6OXZIBN3fn9acxhJ UV9v4awOucDPKtOFc/0sxSVRqukk8sRCiFRySuU1zbuV6n5Q//SIx6DMlBxS lcnpZB+2u4HEUxmUfue5fn3RqWtcHy/6o6GjIqqaWNDj6E4XbvQgKCrN5f5U FJZbT+XIf8vkr2mCG04bSwBaCuMxMFZe0rJojz1vT7QwQs88rMP3CyzBqHmx 5wYs9cwRk1XHzkwnTr9Dp5/+lAG9COZuMa4s3S+0LV5IW+ixcHoXgZp0mqrR VF+8GGBhT7fyi5dzyQcx5sV5gdCFR9Y0wUm+iG7kE9na78Dpd83aJIIpfkiA bUzqM+MLW3TkwJNIvvyJyZ8kauPNfzi7Njnzb2Eplxw=\ \>"], "Graphics", ImageSize->{300, 120}, ImageMargins->0]}]], "Input", CellChangeTimes->{{3.436612696051746*^9, 3.436612753706921*^9}, { 3.436613002230205*^9, 3.4366130048775578`*^9}, {3.436613058312106*^9, 3.436613061558902*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", RowBox[{"CstLevich", " ", RowBox[{"DXi", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], " ", RowBox[{"Nu", "^", RowBox[{"(", RowBox[{"1", "/", "6"}], ")"}]}], " ", RowBox[{"Omega", "^", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", RowBox[{"DXi", "/", RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tauXi", "[", RowBox[{"DXi_", ",", "Nu_", ",", "Omega_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"deltaLevich", "[", RowBox[{"DXi", ",", "Nu", ",", "Omega"}], "]"}], "^", "2"}], "DXi"]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Cdl", "=", RowBox[{"10", "^", "logCdl"}]}], ";", RowBox[{"kr1", "=", RowBox[{"10", "^", "logkr1"}]}], ";", RowBox[{"kr2", "=", RowBox[{"10", "^", "logkr2"}]}], ";", RowBox[{"Kr1V", "=", RowBox[{"Kr1", "[", "V", "]"}]}], ";", RowBox[{"Kr2V", "=", RowBox[{"Kr2", "[", "V", "]"}]}], ";", RowBox[{"ApV", "=", RowBox[{"Ap0", "[", "V", "]"}]}], ";", RowBox[{"\[Theta]sV", "=", RowBox[{"\[Theta]s", "[", "V", "]"}]}], ";", RowBox[{"\[Theta]AV", "=", RowBox[{"\[Theta]A", "[", "V", "]"}]}], ";", RowBox[{"mAp", "=", RowBox[{"mXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"tau", "=", RowBox[{"tauXi", "[", RowBox[{"DXi", ",", "Nu", ",", RowBox[{"\[CapitalOmega]", " ", "2", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], ";", RowBox[{"MAp", "=", RowBox[{ FractionBox["1", "mAp"], FractionBox[ RowBox[{"Tanh", "[", SqrtBox[ RowBox[{"tau", " ", "p"}]], "]"}], SqrtBox[ RowBox[{"tau", " ", "p"}]]]}]}], ";", "\[IndentingNewLine]", RowBox[{"Kr1V", "=", RowBox[{"Kr1", "[", "V", "]"}]}], ";", RowBox[{"Kr2V", "=", RowBox[{"Kr2", "[", "V", "]"}]}], ";", RowBox[{"b", "=", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V"}], ")"}], " ", "mAp"}], "+", RowBox[{"2", " ", "Kr1V", " ", "Kr2V", " ", "\[CapitalGamma]"}]}], ")"}]}], RowBox[{"2", " ", "ApEt", " ", RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}], " ", "mAp"}]]}], ";", "\[IndentingNewLine]", RowBox[{"Rt", "=", FractionBox[ RowBox[{ RowBox[{"Kr1V", " ", "mAp"}], "+", RowBox[{"Kr2V", " ", "mAp"}], "+", RowBox[{"2", " ", "Kr1V", " ", "Kr2V", " ", "\[CapitalGamma]"}]}], RowBox[{"ApEt", " ", RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " ", "f", " ", "F", " ", "Kr1V", " ", "Kr2V", " ", "mAp", " ", "\[CapitalGamma]"}]]}], ";", RowBox[{"Rp", "=", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " ", "Rt", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V"}], ")"}], " ", "mAp"}], "+", RowBox[{"2", " ", "Kr1V", " ", "Kr2V", " ", "\[CapitalGamma]"}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}], " ", "mAp"}]]}], ";", RowBox[{"ZX1", "=", FractionBox[ RowBox[{ "2", " ", "Kr1V", " ", "Kr2V", " ", "MAp", " ", "Rt", " ", "\[CapitalGamma]"}], RowBox[{"Kr1V", "+", "Kr2V"}]]}], ";", RowBox[{"ZX2", "=", FractionBox[ RowBox[{"ApEt", " ", RowBox[{"(", RowBox[{"ar1", "-", "ar2"}], ")"}], " ", RowBox[{"(", RowBox[{"Kr1V", "-", "Kr2V"}], ")"}], " ", "mAp", " ", "Rt", " ", RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V", "+", RowBox[{ "2", " ", "Kr1V", " ", "Kr2V", " ", "MAp", " ", "\[CapitalGamma]"}]}], ")"}]}], RowBox[{ RowBox[{"2", " ", "ApEt", " ", RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"ar2", " ", "Kr1V"}], "+", RowBox[{"ar1", " ", "Kr2V"}]}], ")"}], " ", "mAp"}], "+", RowBox[{ RowBox[{"(", RowBox[{"ar1", "+", "ar2"}], ")"}], " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Kr1V", "+", "Kr2V"}], ")"}], " ", "mAp"}], "+", RowBox[{"2", " ", "Kr1V", " ", "Kr2V", " ", "\[CapitalGamma]"}]}], ")"}]}]}]]}], ";", RowBox[{"(*", " ", "ZAp", " ", "*)"}], RowBox[{"ZX1Et", "=", RowBox[{"ZX1", "/", "Rp"}]}], ";", RowBox[{"(*", " ", RowBox[{"Zs", " ", "+", "ZA"}], " ", "*)"}], RowBox[{"ZX2Et", "=", RowBox[{"ZX2", "/", "Rp"}]}], ";", RowBox[{"Zf", "=", RowBox[{"Rt", "+", "ZX1", "+", "ZX2"}]}], ";", RowBox[{"ZfEt", "=", RowBox[{"Zf", "/", "Rp"}]}], ";", RowBox[{"ZEt", "=", RowBox[{ FractionBox["Zf", RowBox[{"1", "+", RowBox[{"p", " ", "Cdl", " ", "Zf"}]}]], "/", "Rp"}]}], ";", RowBox[{"lw", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"Rt", " ", "Cdl"}], ")"}]}], ",", RowBox[{"2.54", "/", "tau"}], ",", RowBox[{"1", "/", "b"}]}], "}"}]}], ";", RowBox[{"logwmin", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Min", "[", "lw", "]"}]}], "]"}], "-", "2"}]}], ";", RowBox[{"logwmax", "=", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Max", "[", "lw", "]"}]}], "]"}], "+", "2"}]}], ";", RowBox[{"idAp", "=", RowBox[{ RowBox[{"-", "mAp"}], " ", "F", " ", "ApEt"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Vdemi", "=", RowBox[{"Vdemi", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"if", "[", "Vdemi", "]"}], "\[Equal]", RowBox[{"idAp", "/", "2"}]}], ",", RowBox[{"{", RowBox[{"Vdemi", ",", "0"}], "}"}]}], "]"}]}]}], ";", RowBox[{"Vmin", "=", RowBox[{"Vdemi", "-", "0.5"}]}], ";", RowBox[{"Vmax", "=", RowBox[{"Vdemi", "+", "0.5"}]}], ";", "\[IndentingNewLine]", RowBox[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"VSta", ",", RowBox[{ RowBox[{"if", "[", "VSta", "]"}], "/", RowBox[{"Abs", "[", "idAp", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"AbsoluteThickness", "[", "2", "]"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{ RowBox[{"if", "[", "V", "]"}], "/", RowBox[{"Abs", "[", "idAp", "]"}]}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"]]\)/|\!\(\*SubscriptBox[\(i\), SuperscriptBox[\(dA\), \ \(+\)]]\)|\>\""}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"VSta", ",", RowBox[{ RowBox[{"Ap0", "[", "VSta", "]"}], "/", "ApEt"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", RowBox[{"\[Theta]s", "[", "VSta", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", RowBox[{"\[Theta]A", "[", "VSta", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"E\", FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SuperscriptBox[\(A\), \ \(+\)]\)(0)/\!\(\*SuperscriptBox[\(A\), \(+*\)]\), \!\(\*SubscriptBox[\(\ \[Theta]\), \(s\)]\), \!\(\*SubscriptBox[\(\[Theta]\), \(A\)]\)\>\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{ RowBox[{"Ap0", "[", "V", "]"}], "/", "ApEt"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{"\[Theta]s", "[", "V", "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"V", ",", RowBox[{"\[Theta]A", "[", "V", "]"}]}], "}"}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SuperscriptBox[ StyleBox[\"A\", FontWeight->\"Plain\"], \"+\"]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.85"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.7"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.55"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Vmin", ",", "Vmax"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"ZX1Et", "+", "ZX2Et"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"ZX1Et", "+", "ZX2Et"}], "]"}]}]}], "}"}], "/.", 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[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "1."}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.75"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "None", ",", "None"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \ \(\\\"\\\\\"\)]\)\>\""}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"ZX1Et", "+", "ZX2Et"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"ZX1Et", "+", "ZX2Et"}], "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"ZX1Et", "+", "ZX2Et"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"ZX1Et", "+", "ZX2Et"}], "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX2Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZX1Et", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"ZX1Et", "+", "ZX2Et"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"ZX1Et", "+", "ZX2Et"}], "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\"Z\", SuperscriptBox[ StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"], \"+\"]]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"lHue", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\"Z\", SuperscriptBox[ StyleBox[\"\\\"\\\\"\", FontWeight->\"Plain\"], \"+\"]]\)+\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)\>\ \"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.7"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"10", "^", "logw"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.75"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "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[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"wc1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"wc2", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"wc3", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "->", RowBox[{"I", " ", RowBox[{"lw", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "ZfEt", "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", "ZfEt", "]"}]}]}], "}"}], "/.", RowBox[{"p", "\[Rule]", RowBox[{"I", " ", RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], ",", "Purple", ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\\"\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.9", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"AbsolutePointSize", "[", "6", "]"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"\)]\)\>\"", ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\"\\"\)]\)\>\ \""}], "}"}]}], ",", RowBox[{"BaseStyle", "->", "monStyle"}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(A\), \ \(+\)]\) + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \!\(\*OverscriptBox[\(\ \[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) A,s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SuperscriptBox[\(A\), \(+\)]\) + \ A,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \ \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \ \!\(\*SubscriptBox[\(A\), \(2\)]\) + s\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkr1", ",", "8", ",", "\"\\""}], "}"}], ",", "5", ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ar1", ",", "0.8", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(r1\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logkr2", ",", "8", ",", "\"\\""}], "}"}], ",", "5", ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "ar2", ",", "0.3", ",", "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)\>\""}], "}"}], ",", "0.2", ",", "0.8", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalOmega]", ",", RowBox[{"1.", " ", RowBox[{"10", "^", "3"}]}], ",", "\"\<\[CapitalOmega]/rpm\>\""}], "}"}], ",", "500", ",", " ", RowBox[{"5", " ", RowBox[{"10", "^", "3"}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"DXi", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", "\"\<\!\(\*SubscriptBox[\(D\), SuperscriptBox[\(A\), \(+\)]]\)/(\!\(\ \*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))\>\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ",", RowBox[{"5.", " ", RowBox[{"10", "^", RowBox[{"-", "5"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ApEt", ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "4"}]}]}], ",", "\"\<\!\(\*SuperscriptBox[\(A\), \(+*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))\>\""}], "}"}], ",", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "7"}]}]}], ",", " ", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "4"}]}]}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logCdl", ",", RowBox[{"-", "6"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"V", ",", "0.2", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logwc", ",", RowBox[{"-", "3"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "7"}], ",", "7", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc1", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(tc\)]\)\!\(\*SubscriptBox[\(C\), \ \(dl\)]\))\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc2", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = \ 2.54/\!\(\*SubscriptBox[\(\[Tau]\), \(d\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "wc3", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = 1/\[Beta]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Kr1", "[", "V_", "]"}], ":=", RowBox[{"kr1", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "ar1"}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Kr2", "[", "V_", "]"}], ":=", RowBox[{"kr2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "ar2"}], " ", "f", " ", "V"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Ap0", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{"ApEt", " ", "mAp", " ", RowBox[{"(", RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{"Kr2", "[", "V", "]"}]}], ")"}]}], RowBox[{ RowBox[{"2", " ", "\[CapitalGamma]", " ", RowBox[{"Kr1", "[", "V", "]"}], " ", RowBox[{"Kr2", "[", "V", "]"}]}], "+", RowBox[{"mAp", " ", RowBox[{"(", RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{"Kr2", "[", "V", "]"}]}], ")"}]}]}]]}], ";", RowBox[{ RowBox[{"\[Theta]A", "[", "V_", "]"}], ":=", FractionBox[ RowBox[{"Kr1", "[", "V", "]"}], RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], "+", RowBox[{"Kr2", "[", "V", "]"}]}]]}], ";", RowBox[{ RowBox[{"\[Theta]s", "[", "V_", "]"}], ":=", RowBox[{"1", "-", RowBox[{"\[Theta]A", "[", "V", "]"}]}]}], ";", RowBox[{ RowBox[{"if", "[", "V_", "]"}], ":=", RowBox[{"-", FractionBox[ RowBox[{ "2", " ", "ApEt", " ", "F", " ", "mAp", " ", "\[CapitalGamma]", " ", RowBox[{"Kr1", "[", "V", "]"}], " ", RowBox[{"Kr2", "[", "V", "]"}]}], RowBox[{ RowBox[{"mAp", " ", RowBox[{"Kr2", "[", "V", "]"}]}], "+", RowBox[{ RowBox[{"Kr1", "[", "V", "]"}], " ", RowBox[{"(", RowBox[{"mAp", "+", RowBox[{"2", " ", "\[CapitalGamma]", " ", RowBox[{"Kr2", "[", "V", "]"}]}]}], ")"}]}]}]]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]", "=", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "9"}]}]}]}], ";", RowBox[{"Farad", "=", RowBox[{"F", "=", "96485."}]}], ";", RowBox[{"Nu", "=", RowBox[{"1.", " ", RowBox[{"10", "^", RowBox[{"-", "2"}]}]}]}], ";", RowBox[{"f", "=", "38.9"}], ";", RowBox[{"CstLevich", "=", "1.61197581"}], ";", RowBox[{"InvCstLevich", "=", RowBox[{"1", "/", "CstLevich"}]}], ";", RowBox[{"lHue", "=", RowBox[{"{", RowBox[{"Blue", ",", "Purple", ",", RowBox[{"Hue", "[", RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.37820393249936934`", ",", "0.6`", ",", "0.6`"}], "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.6142719099991583`", ",", "0.6`", ",", "0.6`"}], "]"}]}], "}"}]}], ";", RowBox[{"monStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", Editable->False, CellOpen->False, CellChangeTimes->{{3.404272476373662*^9, 3.404272477958503*^9}, 3.404272668581314*^9, {3.4042727232240887`*^9, 3.404272728454939*^9}, { 3.404272786841215*^9, 3.404272804870813*^9}, {3.404272838309691*^9, 3.4042728618375607`*^9}, {3.4042729526001043`*^9, 3.4042730381516457`*^9}, {3.404273079691609*^9, 3.404273217892606*^9}, { 3.404273294955968*^9, 3.404273298760388*^9}, {3.404273387794849*^9, 3.4042734503165693`*^9}, {3.4042734961086283`*^9, 3.404273547525057*^9}, { 3.404273625605628*^9, 3.404273650497052*^9}, {3.404273731173894*^9, 3.404273767096957*^9}, {3.404273799830763*^9, 3.4042738707648983`*^9}, { 3.40427393239679*^9, 3.404273934883729*^9}, {3.404273974145442*^9, 3.404274003508957*^9}, {3.404274114255464*^9, 3.404274136338912*^9}, { 3.4042741762935133`*^9, 3.404274195910239*^9}, 3.404274257986496*^9, { 3.404274329300447*^9, 3.404274329827894*^9}, {3.404274362144527*^9, 3.4042743661154137`*^9}, {3.404281794664309*^9, 3.404281797246611*^9}, { 3.404281837182343*^9, 3.404281875096817*^9}, {3.4042819679357033`*^9, 3.404282033539279*^9}, 3.404282085939872*^9, {3.404282140862443*^9, 3.404282160336235*^9}, {3.404282299291065*^9, 3.404282345207913*^9}, { 3.404282812673225*^9, 3.404282870347505*^9}, 3.4042829101123857`*^9, { 3.404282941905983*^9, 3.4042829483433933`*^9}, {3.404283073216866*^9, 3.404283082327835*^9}, {3.404283141356715*^9, 3.404283182821355*^9}, { 3.4042832155227327`*^9, 3.404283258833531*^9}, {3.4042833626548147`*^9, 3.404283398426738*^9}, {3.404390659988315*^9, 3.404390689351815*^9}, { 3.4043907568818893`*^9, 3.404390784286687*^9}, {3.404390860657833*^9, 3.40439091742135*^9}, {3.4043910359543037`*^9, 3.404391054714142*^9}, { 3.404391767968842*^9, 3.40439188885679*^9}, {3.404391935788953*^9, 3.404391940364382*^9}, {3.404392002048643*^9, 3.404392004447742*^9}, { 3.404392051525515*^9, 3.404392068363361*^9}, 3.40439214659828*^9, { 3.404392703278009*^9, 3.404392771112996*^9}, {3.4043928035315*^9, 3.404392840756844*^9}, {3.404392972994961*^9, 3.4043929740834846`*^9}, { 3.4044290030768223`*^9, 3.404429021544701*^9}, {3.404429287683379*^9, 3.404429317399768*^9}, {3.404429368432976*^9, 3.404429454063241*^9}, { 3.404429505178494*^9, 3.404429557925486*^9}, {3.4044306288480873`*^9, 3.40443063643995*^9}, {3.404436058103282*^9, 3.40443606382516*^9}, { 3.404442176375844*^9, 3.404442230132934*^9}, {3.404442261628434*^9, 3.404442267453909*^9}, {3.404442314318016*^9, 3.404442328013001*^9}, { 3.4044423891008577`*^9, 3.404442389940579*^9}, {3.4044425469300003`*^9, 3.404442548202819*^9}, {3.404442639671391*^9, 3.404442640118331*^9}, 3.404456693542221*^9, {3.4044731628011703`*^9, 3.404473224992757*^9}, { 3.404473319237414*^9, 3.404473331786914*^9}, {3.404473366700746*^9, 3.404473438662547*^9}, {3.404473479901114*^9, 3.4044735206668663`*^9}, { 3.404473554174704*^9, 3.404473559247058*^9}, {3.404473610185067*^9, 3.404473670607089*^9}, 3.404473917120986*^9, {3.404473956994831*^9, 3.4044739580180397`*^9}, {3.404474088931505*^9, 3.4044741427717657`*^9}, { 3.4044741754491243`*^9, 3.404474290693391*^9}, {3.404474329701288*^9, 3.404474330346374*^9}, {3.404474373890414*^9, 3.404474374373801*^9}, { 3.404474404892201*^9, 3.404474408099757*^9}, {3.4044747799074163`*^9, 3.404474789322126*^9}, {3.4044748366129103`*^9, 3.404474847666203*^9}, { 3.404475972114959*^9, 3.404475987975752*^9}, {3.404476018684896*^9, 3.404476038872746*^9}, {3.4045301344013033`*^9, 3.4045301513930283`*^9}, { 3.404530190584299*^9, 3.404530267364694*^9}, {3.404530412065104*^9, 3.404530421363574*^9}, {3.404532943959751*^9, 3.40453302831153*^9}, { 3.404797302593358*^9, 3.404797348319078*^9}, {3.404797395180875*^9, 3.404797445296929*^9}, {3.404797512936145*^9, 3.404797531923532*^9}, { 3.404797584908869*^9, 3.404797680615205*^9}, {3.404797888873632*^9, 3.404797927843219*^9}, {3.40479798203458*^9, 3.4047979846574163`*^9}, { 3.404799350410967*^9, 3.4047993800733356`*^9}, {3.4047994156019373`*^9, 3.40479946595382*^9}, 3.404799543220315*^9, {3.404799579114188*^9, 3.404799613458438*^9}, {3.4047996653481293`*^9, 3.404799762097822*^9}, { 3.4047998049182034`*^9, 3.404799895494069*^9}, {3.404799942573794*^9, 3.404799954307382*^9}, {3.404800020381646*^9, 3.40480040525935*^9}, { 3.404800550808537*^9, 3.404800608631371*^9}, {3.404800645053679*^9, 3.4048007327873917`*^9}, {3.404800953337172*^9, 3.404800971605794*^9}, { 3.404801514373068*^9, 3.4048015834412746`*^9}, {3.404801626280081*^9, 3.404801679756674*^9}, {3.4048017255455723`*^9, 3.404801764976033*^9}, { 3.4048022738128366`*^9, 3.404802309061829*^9}, {3.404802472835491*^9, 3.404802488648676*^9}, {3.404802873068316*^9, 3.404802940995611*^9}, { 3.404803021397653*^9, 3.404803089530534*^9}, {3.404803131352415*^9, 3.40480331416397*^9}, {3.404803390688555*^9, 3.404803399355961*^9}, { 3.404804076089295*^9, 3.4048040991309633`*^9}, {3.40486865759769*^9, 3.404868695689033*^9}, {3.404868727872806*^9, 3.404868752113332*^9}, { 3.4048689449556093`*^9, 3.404868945390654*^9}, {3.404868977091063*^9, 3.404868999611095*^9}, {3.4048690325438747`*^9, 3.4048691321976748`*^9}, { 3.404870017553321*^9, 3.4048700526476727`*^9}, {3.404870143865489*^9, 3.404870165374588*^9}, {3.404870236586739*^9, 3.404870241266412*^9}, { 3.40487782873768*^9, 3.404877843702971*^9}, {3.40487789143778*^9, 3.4048780145768547`*^9}, {3.404878061361676*^9, 3.4048780949841347`*^9}, { 3.404878133750465*^9, 3.404878280232869*^9}, {3.404878337386598*^9, 3.4048783719798193`*^9}, {3.404878438417426*^9, 3.4048784934083*^9}, { 3.404878523465645*^9, 3.4048785775459213`*^9}, {3.405511207402516*^9, 3.4055112246878357`*^9}, {3.405511272072027*^9, 3.4055113144445868`*^9}, { 3.4055113899812098`*^9, 3.4055114055521107`*^9}, 3.4055114565897427`*^9, { 3.405511542447608*^9, 3.405511544702585*^9}, {3.405511578649404*^9, 3.4055115867779827`*^9}, {3.4058475004512653`*^9, 3.4058475057616663`*^9}, {3.405847683675837*^9, 3.405847742261528*^9}, { 3.405847813034894*^9, 3.405847862566736*^9}, {3.4058479034737253`*^9, 3.405847915737713*^9}, {3.405847972630558*^9, 3.405848071685534*^9}, { 3.405848263832196*^9, 3.405848371901084*^9}, {3.4058484122428207`*^9, 3.405848434439968*^9}, {3.4058485048212976`*^9, 3.4058485149310703`*^9}, { 3.4058488561629763`*^9, 3.405848893735724*^9}, {3.405849690954006*^9, 3.4058497433152037`*^9}, {3.4058497908573227`*^9, 3.40584989515611*^9}, { 3.405849957531012*^9, 3.4058499590584803`*^9}, {3.405849992307493*^9, 3.405850043794392*^9}, {3.405850099359001*^9, 3.40585011759512*^9}, { 3.4058517151923227`*^9, 3.405851779818666*^9}, {3.407381728101392*^9, 3.407381751973065*^9}, {3.407381805775076*^9, 3.407381829965534*^9}, { 3.407381996344166*^9, 3.407382069327729*^9}, {3.4073823592813883`*^9, 3.407382364765223*^9}, {3.4091446948309183`*^9, 3.409144704757983*^9}, { 3.409145150121394*^9, 3.409145169748128*^9}, {3.409145221801231*^9, 3.40914534214545*^9}, {3.409145555864357*^9, 3.409145570587775*^9}, { 3.4091457201985807`*^9, 3.409145810944936*^9}, {3.4091979660446568`*^9, 3.409197989979432*^9}, {3.40919803855297*^9, 3.409198045609851*^9}, { 3.409198098466488*^9, 3.409198112257579*^9}, {3.4091981504837227`*^9, 3.409198153522263*^9}, {3.4091983396772823`*^9, 3.409198394447831*^9}, { 3.409198430147241*^9, 3.4091985144139557`*^9}, {3.4091985569382057`*^9, 3.409198645920292*^9}, {3.409198680357965*^9, 3.409198759343459*^9}, 3.409198797333907*^9, 3.409198858249975*^9, {3.409198898586858*^9, 3.4091989590514393`*^9}, {3.409199010753881*^9, 3.409199011201825*^9}, { 3.409199080287072*^9, 3.4091990871999607`*^9}, {3.4091991313120327`*^9, 3.4091991506497393`*^9}, {3.40919921656496*^9, 3.409199219103196*^9}, { 3.409199254442206*^9, 3.409199358914257*^9}, {3.409199406952813*^9, 3.409199435516676*^9}, {3.409199472250305*^9, 3.4091994758022137`*^9}, { 3.4091997282430983`*^9, 3.409199729777094*^9}, {3.409199856059022*^9, 3.4091998895127573`*^9}, {3.4091999729793043`*^9, 3.409199974582591*^9}, 3.4092000546359787`*^9, {3.4092001436980133`*^9, 3.4092001934302177`*^9}, { 3.409200247031893*^9, 3.409200349184458*^9}, {3.409200427862976*^9, 3.409200432516345*^9}, {3.409200542244075*^9, 3.40920055184779*^9}, { 3.4092005960240927`*^9, 3.409200599302109*^9}, 3.409659897133309*^9, { 3.40966001382692*^9, 3.409660023471949*^9}, {3.4096603583021812`*^9, 3.409660398665349*^9}, {3.409826369914709*^9, 3.409826549832324*^9}, { 3.4098267129596767`*^9, 3.409826763001767*^9}, {3.409827039601323*^9, 3.409827041308535*^9}, 3.4098357049570847`*^9, {3.409836076781519*^9, 3.409836082369824*^9}, {3.4098362001620293`*^9, 3.409836205395507*^9}, { 3.409836243672278*^9, 3.409836250163774*^9}, {3.4098870624197893`*^9, 3.409887079496112*^9}, {3.409887480167531*^9, 3.409887579914795*^9}, { 3.4098876544890757`*^9, 3.409887764519596*^9}, {3.409887859654282*^9, 3.4098879077556553`*^9}, {3.409887976652581*^9, 3.409888061869278*^9}, { 3.40988810046828*^9, 3.409888150048283*^9}, 3.4098882021345673`*^9, { 3.409888254379335*^9, 3.409888294266397*^9}, {3.4098883322826757`*^9, 3.40988833307551*^9}, {3.409888458439542*^9, 3.4098884772445374`*^9}, { 3.409888971709462*^9, 3.409888973717918*^9}, {3.409889033847617*^9, 3.409889034565271*^9}, {3.409889118168438*^9, 3.40988912242384*^9}, { 3.409889184644986*^9, 3.409889245842848*^9}, {3.4098893768829813`*^9, 3.409889398954444*^9}, 3.409889446666225*^9, {3.409889504149583*^9, 3.409889509922298*^9}, {3.409889553883994*^9, 3.409889608326518*^9}, { 3.4098896500586777`*^9, 3.409889656222608*^9}, {3.40988977856738*^9, 3.40988981125292*^9}, {3.409889870395122*^9, 3.4098899106131983`*^9}, { 3.409889969637135*^9, 3.409889974296064*^9}, {3.4098902765772257`*^9, 3.409890283751268*^9}, {3.409890415914304*^9, 3.409890418997225*^9}, { 3.4098905365496683`*^9, 3.409890552736751*^9}, {3.4098906794376574`*^9, 3.409890683419834*^9}, {3.409890862230513*^9, 3.409890862679196*^9}, { 3.409890930368342*^9, 3.409891162540668*^9}, 3.409891262503067*^9, { 3.409891318307454*^9, 3.409891396810326*^9}, {3.40989148470792*^9, 3.409891561310915*^9}, {3.4098916666894617`*^9, 3.409891745151566*^9}, { 3.409891790173766*^9, 3.409891793373557*^9}, {3.409961984636973*^9, 3.409961986696422*^9}, {3.409962096004808*^9, 3.4099627009814453`*^9}, 3.409962748548418*^9, {3.4099629640122538`*^9, 3.4099629663158293`*^9}, { 3.409963014267139*^9, 3.4099630700368023`*^9}, {3.4099631037820683`*^9, 3.409963195971099*^9}, {3.409963538379722*^9, 3.409963546515532*^9}, { 3.409963582654696*^9, 3.409963585095978*^9}, {3.409963619057889*^9, 3.409963652687055*^9}, {3.409963687375931*^9, 3.409963695576548*^9}, { 3.409963766561234*^9, 3.4099637943730783`*^9}, {3.409963830067019*^9, 3.409963905879588*^9}, {3.409964004179577*^9, 3.409964017983913*^9}, { 3.409964114927113*^9, 3.409964125998127*^9}, {3.4099642392248297`*^9, 3.409964267664547*^9}, {3.409964354097486*^9, 3.4099643557036877`*^9}, { 3.4099760538093853`*^9, 3.409976069020897*^9}, {3.409976110760868*^9, 3.4099761636454268`*^9}, {3.4099762146885977`*^9, 3.409976215664937*^9}, { 3.40997630849279*^9, 3.409976396858018*^9}, {3.409976457868639*^9, 3.4099764704991198`*^9}, 3.409976598000903*^9, {3.4099766817519073`*^9, 3.409976687061287*^9}, {3.4099767313396597`*^9, 3.4099767335465918`*^9}, 3.409976823154581*^9, {3.410149429685978*^9, 3.41014953731946*^9}, 3.410149977823204*^9, {3.410150030864727*^9, 3.410150043755621*^9}, 3.410150428436063*^9, {3.410150572093894*^9, 3.410150580297813*^9}, { 3.410150632005249*^9, 3.410150660879929*^9}, {3.4101507708731203`*^9, 3.410150827384691*^9}, {3.410150874753819*^9, 3.410150892525072*^9}, 3.410925648619673*^9, {3.4109257137752953`*^9, 3.410925931001933*^9}, { 3.410925962783224*^9, 3.410926039061837*^9}, {3.410926141628758*^9, 3.4109261865971212`*^9}, {3.4109262351245003`*^9, 3.410926235632906*^9}, { 3.410926460538295*^9, 3.41092646919339*^9}, {3.4109265185715847`*^9, 3.410926521212974*^9}, {3.410926563750085*^9, 3.410926588842351*^9}, { 3.4109266673503532`*^9, 3.410926689245442*^9}, {3.41092672586158*^9, 3.410926726939378*^9}, {3.410926834128446*^9, 3.410926841127451*^9}, { 3.410926888512619*^9, 3.410926898799737*^9}, {3.410948286155225*^9, 3.41094830480709*^9}, {3.410948342943017*^9, 3.410948370822774*^9}, { 3.410948414514083*^9, 3.410948420041129*^9}, {3.4109484535241756`*^9, 3.410948475580389*^9}, {3.410948545505292*^9, 3.410948556483491*^9}, { 3.4109486081637506`*^9, 3.410948639113728*^9}, {3.410948686968917*^9, 3.410948786916319*^9}, {3.410948820525895*^9, 3.410948889716655*^9}, { 3.41094895982858*^9, 3.410948973563656*^9}, {3.4109490123964453`*^9, 3.410949039378408*^9}, {3.410949093988408*^9, 3.410949119312831*^9}, { 3.410949181859564*^9, 3.410949207457135*^9}, {3.4109493969999723`*^9, 3.4109494162920523`*^9}, {3.41094951686439*^9, 3.410949523211501*^9}, { 3.4109496137771883`*^9, 3.4109496282488127`*^9}, {3.410959864850168*^9, 3.410959865242928*^9}, {3.410959901271183*^9, 3.4109599688163233`*^9}, 3.4109603353331537`*^9, {3.410960504365419*^9, 3.410960507542637*^9}, { 3.4109605570033283`*^9, 3.410960583845331*^9}, {3.410960650615024*^9, 3.410960659904011*^9}, {3.411018163793982*^9, 3.41101819758845*^9}, 3.411018240714653*^9, {3.4110182753073597`*^9, 3.4110182916074266`*^9}, { 3.411018374934937*^9, 3.411018453709412*^9}, {3.411018539856038*^9, 3.4110185415574417`*^9}, {3.411018600069673*^9, 3.411018639741459*^9}, { 3.411018737642906*^9, 3.411018806227697*^9}, {3.411018889697266*^9, 3.411018899540937*^9}, {3.411018978844326*^9, 3.411019059562706*^9}, { 3.411019272938204*^9, 3.4110193144978533`*^9}, {3.411019361965736*^9, 3.411019372193111*^9}, {3.411019404767762*^9, 3.411019427728716*^9}, { 3.411019477122229*^9, 3.4110194868236837`*^9}, {3.411019646963661*^9, 3.411019689435801*^9}, {3.411019800276325*^9, 3.411019807295128*^9}, 3.4110200511512938`*^9, {3.411038975170105*^9, 3.411039002271379*^9}, 3.411039052939898*^9, {3.41103908925704*^9, 3.4110391994789677`*^9}, { 3.411039295780336*^9, 3.411039303362499*^9}, {3.41103936985748*^9, 3.4110393755857077`*^9}, {3.411039474422398*^9, 3.411039520498662*^9}, { 3.411039916830832*^9, 3.411039918816587*^9}, {3.411041088269456*^9, 3.411041105119681*^9}, {3.411041990290862*^9, 3.411042186760646*^9}, 3.411042264322444*^9, {3.4110422977362537`*^9, 3.4110423931057997`*^9}, { 3.4110424857212543`*^9, 3.411042499328354*^9}, {3.4110429337898808`*^9, 3.4110430750119057`*^9}, {3.411100935682583*^9, 3.411100955262154*^9}, { 3.411100990652575*^9, 3.411101018822084*^9}, {3.41110110697653*^9, 3.411101107729434*^9}, {3.411101164217008*^9, 3.411101177853368*^9}, { 3.411101214258018*^9, 3.411101270993619*^9}, {3.411101342344133*^9, 3.411101342500997*^9}, {3.41110158781468*^9, 3.411101588271044*^9}, { 3.411101667804233*^9, 3.411101680101733*^9}, {3.4111017701552067`*^9, 3.411101830789118*^9}, {3.411101868258917*^9, 3.411101870533207*^9}, { 3.411102020118251*^9, 3.411102020441485*^9}, {3.411102058667342*^9, 3.411102108798935*^9}, {3.4111021571221457`*^9, 3.411102179426759*^9}, { 3.411102253801669*^9, 3.4111022614889317`*^9}, {3.411102420943939*^9, 3.4111024801211643`*^9}, {3.411102867430377*^9, 3.411102874126959*^9}, { 3.411105230462811*^9, 3.411105267147752*^9}, {3.4111053005971003`*^9, 3.411105306267056*^9}, {3.4111053695420027`*^9, 3.411105581691329*^9}, { 3.411194183386841*^9, 3.411194228878758*^9}, {3.411194315208947*^9, 3.4111943156239*^9}, {3.4111943835416393`*^9, 3.411194409299473*^9}, { 3.411207457162108*^9, 3.411207510683132*^9}, {3.435387604900724*^9, 3.4353876836749268`*^9}, {3.4353877406446257`*^9, 3.435387900478951*^9}, { 3.435387932976021*^9, 3.435388042035655*^9}, {3.4353882765398207`*^9, 3.435388311721133*^9}, {3.435388366591103*^9, 3.435388392385571*^9}, 3.435388440370624*^9, {3.435388638506219*^9, 3.435388641799329*^9}, { 3.435388693369993*^9, 3.435388695380015*^9}, {3.435388855343958*^9, 3.4353888676033363`*^9}, {3.435388985822022*^9, 3.4353890002537947`*^9}, { 3.4353981150466948`*^9, 3.435398118229704*^9}, {3.4353983093786*^9, 3.4353984181888447`*^9}, {3.435398732712509*^9, 3.435398737671393*^9}, { 3.435398768216095*^9, 3.435398769690082*^9}, {3.435398801813196*^9, 3.43539880825483*^9}, {3.435398948036976*^9, 3.4353989485903997`*^9}, { 3.435403395963788*^9, 3.435403426032506*^9}, {3.435403505830749*^9, 3.435403517220373*^9}, {3.435403560318882*^9, 3.435403629665867*^9}, { 3.435403667782915*^9, 3.4354036688281927`*^9}, {3.435403779463917*^9, 3.43540380404635*^9}, 3.435403919519515*^9, {3.435404054203444*^9, 3.435404067495002*^9}, 3.435405227437491*^9, 3.435405308697781*^9, { 3.435405380731154*^9, 3.43540539092267*^9}, {3.435405469534026*^9, 3.43540549997016*^9}, {3.4354057397655373`*^9, 3.435405751374577*^9}, { 3.435405785950184*^9, 3.435405814828586*^9}, {3.43544539902626*^9, 3.43544540177365*^9}, {3.435445467795*^9, 3.435445469917075*^9}, { 3.4354456722091913`*^9, 3.4354457620601597`*^9}, {3.435445808776257*^9, 3.435446002425302*^9}, {3.435446158933908*^9, 3.4354461600680723`*^9}, { 3.43544620337164*^9, 3.435446210530974*^9}, {3.435446310533566*^9, 3.435446431035762*^9}, {3.435446492684477*^9, 3.435446519231888*^9}, 3.435446786920063*^9, {3.435454546087268*^9, 3.435454589297357*^9}, { 3.435454641969798*^9, 3.435454644993321*^9}, {3.435455079242496*^9, 3.435455124050688*^9}, {3.435455199390538*^9, 3.435455200652961*^9}, { 3.4354552705921373`*^9, 3.435455275488105*^9}, {3.436005646116688*^9, 3.4360056497019243`*^9}, {3.4360058117045593`*^9, 3.436005814143799*^9}, { 3.4360062163976717`*^9, 3.4360062168185177`*^9}, {3.436324248613236*^9, 3.436324251075243*^9}, {3.436355508780097*^9, 3.436355510826274*^9}, { 3.4364451975937977`*^9, 3.436445215347906*^9}, {3.436445249032241*^9, 3.436445302870557*^9}, {3.436445555316143*^9, 3.436445580094206*^9}, { 3.436445614276195*^9, 3.43644565089054*^9}, 3.436445716125794*^9, { 3.436445801694065*^9, 3.436445834355538*^9}, {3.436445906546896*^9, 3.436445925782539*^9}, {3.4364459698366747`*^9, 3.4364459966862497`*^9}, { 3.436446317868382*^9, 3.436446331400507*^9}, {3.436446394725767*^9, 3.436446407545164*^9}, {3.436446441294331*^9, 3.436446459590333*^9}, { 3.4364465250391283`*^9, 3.43644655473006*^9}, {3.436446711148313*^9, 3.4364467208208*^9}, {3.4364468325375*^9, 3.436446978122532*^9}, { 3.436447119756929*^9, 3.43644723930614*^9}, {3.436613597002186*^9, 3.436613610355588*^9}, {3.436613705717911*^9, 3.436613762785302*^9}, { 3.436613859222081*^9, 3.436613862610944*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ApEt$$ = 0.0001, $CellContext`ar1$$ = 0.8, $CellContext`ar2$$ = 0.3, $CellContext`DXi$$ = 1.*^-6, $CellContext`logCdl$$ = -6, $CellContext`logkr1$$ = 8, $CellContext`logkr2$$ = 8, $CellContext`logwc$$ = -3, $CellContext`V$$ = 0.22500000000000003`, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`wc3$$ = False, $CellContext`\[CapitalOmega]$$ = 1000., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " \!\(\*SuperscriptBox[\(A\), \(+\)]\) + \ s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \ \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) A,s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " \!\(\*SuperscriptBox[\(A\), \(+\)]\) + \ A,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \ \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \ \!\(\*SubscriptBox[\(A\), \(2\)]\) + s", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`logkr1$$], 8, "log(\!\(\*SubscriptBox[\(k\), \ \(r1\)]\)/(\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \ \!\(\*SuperscriptBox[\(cm\), \(3\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 5, 10}, {{ Hold[$CellContext`ar1$$], 0.8, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r1\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`logkr2$$], 8, "log(\!\(\*SubscriptBox[\(k\), \ \(r2\)]\)/(\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \ \!\(\*SuperscriptBox[\(cm\), \(3\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 5, 10}, {{ Hold[$CellContext`ar2$$], 0.3, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)"}, 0.2, 0.8, 0.1}, {{ Hold[$CellContext`\[CapitalOmega]$$], 1000., "\[CapitalOmega]/rpm"}, 500, 5000}, {{ Hold[$CellContext`DXi$$], 1.*^-6, "\!\(\*SubscriptBox[\(D\), SuperscriptBox[\(A\), \ \(+\)]]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))"}, 1.*^-6, 0.00005}, {{ Hold[$CellContext`ApEt$$], 0.0001, "\!\(\*SuperscriptBox[\(A\), \(+*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 1.*^-7, 0.0001}, {{ Hold[$CellContext`logCdl$$], -6, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3}, {{ Hold[$CellContext`V$$], 0.2, "E/V"}, -1, 1}, {{ Hold[$CellContext`logwc$$], -3, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -7, 7}, {{ Hold[$CellContext`wc1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(tc\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{ Hold[$CellContext`wc2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = 2.54/\!\(\*SubscriptBox[\ \(\[Tau]\), \(d\)]\)"}, {False, True}}, {{ Hold[$CellContext`wc3$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = 1/\[Beta]"}, { False, True}}}, Typeset`size$$ = {545., {226., 230.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`logkr1$275$$ = 0, $CellContext`ar1$276$$ = 0, $CellContext`logkr2$277$$ = 0, $CellContext`ar2$278$$ = 0, $CellContext`\[CapitalOmega]$279$$ = 0, $CellContext`DXi$280$$ = 0, $CellContext`ApEt$281$$ = 0, $CellContext`logCdl$282$$ = 0, $CellContext`V$283$$ = 0, $CellContext`logwc$284$$ = 0, $CellContext`wc1$285$$ = False, $CellContext`wc2$286$$ = False, $CellContext`wc3$287$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ApEt$$ = 0.0001, $CellContext`ar1$$ = 0.8, $CellContext`ar2$$ = 0.3, $CellContext`DXi$$ = 1.*^-6, $CellContext`logCdl$$ = -6, $CellContext`logkr1$$ = 8, $CellContext`logkr2$$ = 8, $CellContext`logwc$$ = -3, $CellContext`V$$ = 0.2, $CellContext`wc1$$ = False, $CellContext`wc2$$ = False, $CellContext`wc3$$ = False, $CellContext`\[CapitalOmega]$$ = 1000.}, "ControllerVariables" :> { Hold[$CellContext`logkr1$$, $CellContext`logkr1$275$$, 0], Hold[$CellContext`ar1$$, $CellContext`ar1$276$$, 0], Hold[$CellContext`logkr2$$, $CellContext`logkr2$277$$, 0], Hold[$CellContext`ar2$$, $CellContext`ar2$278$$, 0], Hold[$CellContext`\[CapitalOmega]$$, \ $CellContext`\[CapitalOmega]$279$$, 0], Hold[$CellContext`DXi$$, $CellContext`DXi$280$$, 0], Hold[$CellContext`ApEt$$, $CellContext`ApEt$281$$, 0], Hold[$CellContext`logCdl$$, $CellContext`logCdl$282$$, 0], Hold[$CellContext`V$$, $CellContext`V$283$$, 0], Hold[$CellContext`logwc$$, $CellContext`logwc$284$$, 0], Hold[$CellContext`wc1$$, $CellContext`wc1$285$$, False], Hold[$CellContext`wc2$$, $CellContext`wc2$286$$, False], Hold[$CellContext`wc3$$, $CellContext`wc3$287$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`Cdl = 10^$CellContext`logCdl$$; $CellContext`kr1 = 10^$CellContext`logkr1$$; $CellContext`kr2 = 10^$CellContext`logkr2$$; $CellContext`Kr1V = \ $CellContext`Kr1[$CellContext`V$$]; $CellContext`Kr2V = \ $CellContext`Kr2[$CellContext`V$$]; $CellContext`ApV = \ $CellContext`Ap0[$CellContext`V$$]; $CellContext`\[Theta]sV = $CellContext`\ \[Theta]s[$CellContext`V$$]; $CellContext`\[Theta]AV = \ $CellContext`\[Theta]A[$CellContext`V$$]; $CellContext`mAp = \ $CellContext`mXi[$CellContext`DXi$$, $CellContext`Nu, ($CellContext`\ \[CapitalOmega]$$ 2) (Pi/ 60)]; $CellContext`tau = $CellContext`tauXi[$CellContext`DXi$$, \ $CellContext`Nu, ($CellContext`\[CapitalOmega]$$ 2) (Pi/ 60)]; $CellContext`MAp = (1/$CellContext`mAp) ( Tanh[($CellContext`tau $CellContext`p)^ Rational[1, 2]]/($CellContext`tau $CellContext`p)^ Rational[ 1, 2]); $CellContext`Kr1V = $CellContext`Kr1[$CellContext`V$$]; \ $CellContext`Kr2V = $CellContext`Kr2[$CellContext`V$$]; $CellContext`b = \ ($CellContext`ar1$$ + $CellContext`ar2$$) ((($CellContext`Kr1V + \ $CellContext`Kr2V) $CellContext`mAp + (( 2 $CellContext`Kr1V) $CellContext`Kr2V) $CellContext`\ \[CapitalGamma])/(((( 2 $CellContext`ApEt$$) ($CellContext`Kr1V + $CellContext`Kr2V)) \ ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V)) $CellContext`mAp)); $CellContext`Rt = ($CellContext`Kr1V \ $CellContext`mAp + $CellContext`Kr2V $CellContext`mAp + (( 2 $CellContext`Kr1V) $CellContext`Kr2V) $CellContext`\ \[CapitalGamma])/((((((($CellContext`ApEt$$ ($CellContext`ar1$$ + \ $CellContext`ar2$$)) $CellContext`f) $CellContext`F) $CellContext`Kr1V) \ $CellContext`Kr2V) $CellContext`mAp) $CellContext`\[CapitalGamma]); \ $CellContext`Rp = (($CellContext`ar1$$ + $CellContext`ar2$$) $CellContext`Rt) \ ((($CellContext`Kr1V + $CellContext`Kr2V) $CellContext`mAp + (( 2 $CellContext`Kr1V) $CellContext`Kr2V) $CellContext`\ \[CapitalGamma])/(( 2 ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V)) $CellContext`mAp)); $CellContext`ZX1 = (((( 2 $CellContext`Kr1V) $CellContext`Kr2V) $CellContext`MAp) \ $CellContext`Rt) ($CellContext`\[CapitalGamma]/($CellContext`Kr1V + \ $CellContext`Kr2V)); $CellContext`ZX2 = (((($CellContext`ApEt$$ \ ($CellContext`ar1$$ - $CellContext`ar2$$)) ($CellContext`Kr1V - \ $CellContext`Kr2V)) $CellContext`mAp) $CellContext`Rt) (($CellContext`Kr1V + \ $CellContext`Kr2V + ((( 2 $CellContext`Kr1V) $CellContext`Kr2V) $CellContext`MAp) \ $CellContext`\[CapitalGamma])/(((( 2 $CellContext`ApEt$$) ($CellContext`Kr1V + $CellContext`Kr2V)) \ ($CellContext`ar2$$ $CellContext`Kr1V + $CellContext`ar1$$ \ $CellContext`Kr2V)) $CellContext`mAp + (($CellContext`ar1$$ + \ $CellContext`ar2$$) $CellContext`p) (($CellContext`Kr1V + $CellContext`Kr2V) \ $CellContext`mAp + (( 2 $CellContext`Kr1V) $CellContext`Kr2V) $CellContext`\ \[CapitalGamma]))); $CellContext`ZX1Et = $CellContext`ZX1/$CellContext`Rp; \ $CellContext`ZX2Et = $CellContext`ZX2/$CellContext`Rp; $CellContext`Zf = \ $CellContext`Rt + $CellContext`ZX1 + $CellContext`ZX2; $CellContext`ZfEt = \ $CellContext`Zf/$CellContext`Rp; $CellContext`ZEt = ($CellContext`Zf/( 1 + ($CellContext`p $CellContext`Cdl) \ $CellContext`Zf))/$CellContext`Rp; $CellContext`lw = { 1/($CellContext`Rt $CellContext`Cdl), 2.54/$CellContext`tau, 1/$CellContext`b}; $CellContext`logwmin = Log[10, Min[$CellContext`lw]] - 2; $CellContext`logwmax = Log[10, Max[$CellContext`lw]] + 2; $CellContext`idAp = ((-$CellContext`mAp) $CellContext`F) \ $CellContext`ApEt$$; $CellContext`Vdemi = ReplaceAll[$CellContext`Vdemi, FindRoot[$CellContext`if[$CellContext`Vdemi] == $CellContext`idAp/ 2, {$CellContext`Vdemi, 0}]]; $CellContext`Vmin = $CellContext`Vdemi - 0.5; $CellContext`Vmax = $CellContext`Vdemi + 0.5; GraphicsGrid[{{ ParametricPlot[{{$CellContext`VSta, \ $CellContext`if[$CellContext`VSta]/ Abs[$CellContext`idAp]}}, {$CellContext`VSta, \ $CellContext`Vmin, $CellContext`Vmax}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, PlotStyle -> { AbsoluteThickness[2]}, Frame -> True, FrameTicks -> {Automatic, {0, -0.5, -1}, None, None}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$, $CellContext`if[$CellContext`V$$]/ Abs[$CellContext`idAp]}]}, FrameLabel -> { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\ FontWeight->\"Plain\"]]\)/|\!\(\*SubscriptBox[\(i\), SuperscriptBox[\(dA\), \ \(+\)]]\)|"}, AspectRatio -> 1/GoldenRatio, Axes -> None, BaseStyle -> $CellContext`monStyle, ImageSize -> 250], ParametricPlot[{{$CellContext`VSta, \ $CellContext`Ap0[$CellContext`VSta]/$CellContext`ApEt$$}, {$CellContext`VSta, \ $CellContext`\[Theta]s[$CellContext`VSta]}, {$CellContext`VSta, \ $CellContext`\[Theta]A[$CellContext`VSta]}}, \ {$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, Frame -> True, FrameLabel -> { "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", "\!\(\*SuperscriptBox[\(A\), \ \(+\)]\)(0)/\!\(\*SuperscriptBox[\(A\), \(+*\)]\), \!\(\*SubscriptBox[\(\ \[Theta]\), \(s\)]\), \!\(\*SubscriptBox[\(\[Theta]\), \(A\)]\)"}, Axes -> None, FrameTicks -> {Automatic, {0, 0.5, 1}, None, None}, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[1.5]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[1.5]}, { Part[$CellContext`lHue, 5], AbsoluteThickness[1.5]}}, Epilog -> { AbsolutePointSize[5], Point[{$CellContext`V$$, \ $CellContext`Ap0[$CellContext`V$$]/$CellContext`ApEt$$}], Point[{$CellContext`V$$, $CellContext`\[Theta]s[$CellContext`V$$]}], Point[{$CellContext`V$$, $CellContext`\[Theta]A[$CellContext`V$$]}], Part[$CellContext`lHue, 3], Text[ "\!\(\*SuperscriptBox[\n StyleBox[\"A\",\n\ FontWeight->\"Plain\"], \"+\"]\)", Scaled[{0.1, 0.85}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"s\"\)]\)", Scaled[{0.1, 0.7}]], Part[$CellContext`lHue, 5], Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"A\"\)]\)", Scaled[{0.1, 0.55}]]}, PlotRange -> {{$CellContext`Vmin, $CellContext`Vmax}, All}, BaseStyle -> $CellContext`monStyle, ImageSize -> 250, AspectRatio -> 1/GoldenRatio]}, { ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZX1Et + $CellContext`ZX2Et], - Im[$CellContext`ZX1Et + $CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 250, PlotRange -> {{-0.5, 1.}, {-0.5, 0.75}}, PlotStyle -> {{ Part[$CellContext`lHue, 3], AbsoluteThickness[2]}, { Part[$CellContext`lHue, 4], AbsoluteThickness[2]}, {Blue, AbsoluteThickness[2]}}, FrameTicks -> {{0, 0.5, 1}, {0, 0.5, 1}, None, None}, FrameLabel -> { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, Epilog -> { AbsolutePointSize[5], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`ZX1Et + $CellContext`ZX2Et], - Im[$CellContext`ZX1Et + $CellContext`ZX2Et]}, \ $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], If[$CellContext`wc3$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I Part[$CellContext`lw, 3]]], Point[ ReplaceAll[{ Re[$CellContext`ZX1Et + $CellContext`ZX2Et], - Im[$CellContext`ZX1Et + $CellContext`ZX2Et]}, \ $CellContext`p -> I Part[$CellContext`lw, 3]]]}, {}], { Point[ ReplaceAll[{ Re[$CellContext`ZX2Et], - Im[$CellContext`ZX2Et]}, $CellContext`p -> I 10^$CellContext`logwc$$]]}, { Point[ ReplaceAll[{ Re[$CellContext`ZX1Et], - Im[$CellContext`ZX1Et]}, $CellContext`p -> I 10^$CellContext`logwc$$]]}, { Point[ ReplaceAll[{ Re[$CellContext`ZX1Et + $CellContext`ZX2Et], - Im[$CellContext`ZX1Et + $CellContext`ZX2Et]}, \ $CellContext`p -> I 10^$CellContext`logwc$$]]}, Part[$CellContext`lHue, 3], Text[ "\!\(\*SubscriptBox[\"Z\", SuperscriptBox[\n \ StyleBox[\"\\\"A\\\"\",\nFontWeight->\"Plain\"], \"+\"]]\)", Scaled[{0.9, 0.9}]], Part[$CellContext`lHue, 4], Text["\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)", Scaled[{0.9, 0.8}]], Blue, Text[ "\!\(\*SubscriptBox[\"Z\", SuperscriptBox[\n \ StyleBox[\"\\\"A\\\"\",\nFontWeight->\"Plain\"], \ \"+\"]]\)+\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)", Scaled[{0.9, 0.7}]]}, BaseStyle -> $CellContext`monStyle], ParametricPlot[{ ReplaceAll[{ Re[$CellContext`ZEt], -Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logw], ReplaceAll[{ Re[$CellContext`ZfEt], -Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logw]}, {$CellContext`logw, \ $CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, Frame -> True, ImageSize -> 250, PlotRange -> {{0, 1.5}, {-0.5, 0.75}}, PlotStyle -> {{Purple, AbsoluteThickness[1]}, {Blue, AbsoluteThickness[2]}}, FrameTicks -> {{-1, -0.5, 0, 0.5, 1}, {0, 0.5, 1}, None, None}, Epilog -> { AbsolutePointSize[6], If[$CellContext`wc1$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 1]]]}, {}], If[$CellContext`wc2$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]], Point[ ReplaceAll[{ Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I Part[$CellContext`lw, 2]]]}, {}], If[$CellContext`wc3$$, {Red, Point[ ReplaceAll[{ Re[$CellContext`ZEt], - Im[$CellContext`ZEt]}, $CellContext`p -> I Part[$CellContext`lw, 3]]], Point[ ReplaceAll[{ Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I Part[$CellContext`lw, 3]]]}, {}], Point[ ReplaceAll[{ Re[$CellContext`ZEt], -Im[$CellContext`ZEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Point[ ReplaceAll[{ Re[$CellContext`ZfEt], - Im[$CellContext`ZfEt]}, $CellContext`p -> I 10^$CellContext`logwc$$]], Purple, Text["Z", Scaled[{0.9, 0.9}]], Blue, Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", Scaled[{0.9, 0.8}]], AbsolutePointSize[6]}, FrameLabel -> { "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, BaseStyle -> $CellContext`monStyle]}}]), "Specifications" :> { Style[ " \!\(\*SuperscriptBox[\(A\), \(+\)]\) \ + s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \ \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(r1\)]]\) A,s", Bold, Medium], Style[ " \!\(\*SuperscriptBox[\(A\), \(+\)]\) + \ A,s + \!\(\*SuperscriptBox[\(e\), \(-\)]\) \ \!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(r2\)]]\) \ \!\(\*SubscriptBox[\(A\), \(2\)]\) + s", Bold, Medium], Delimiter, {{$CellContext`logkr1$$, 8, "log(\!\(\*SubscriptBox[\(k\), \ \(r1\)]\)/(\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \ \!\(\*SuperscriptBox[\(cm\), \(3\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 5, 10, Appearance -> "Labeled"}, {{$CellContext`ar1$$, 0.8, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r1\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`logkr2$$, 8, "log(\!\(\*SubscriptBox[\(k\), \ \(r2\)]\)/(\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \ \!\(\*SuperscriptBox[\(cm\), \(3\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\))"}, 5, 10, Appearance -> "Labeled"}, {{$CellContext`ar2$$, 0.3, "\!\(\*SubscriptBox[\(\[Alpha]\), \(r2\)]\)"}, 0.2, 0.8, 0.1, Appearance -> "Labeled"}, {{$CellContext`\[CapitalOmega]$$, 1000., "\[CapitalOmega]/rpm"}, 500, 5000, Appearance -> "Labeled"}, {{$CellContext`DXi$$, 1.*^-6, "\!\(\*SubscriptBox[\(D\), SuperscriptBox[\(A\), \ \(+\)]]\)/(\!\(\*SuperscriptBox[\(cm\), \(2\)]\) \!\(\*SuperscriptBox[\(s\), \ \(-1\)]\)))"}, 1.*^-6, 0.00005, Appearance -> "Labeled"}, {{$CellContext`ApEt$$, 0.0001, "\!\(\*SuperscriptBox[\(A\), \(+*\)]\)/(mol \ \!\(\*SuperscriptBox[\(cm\), \(-3\)]\))"}, 1.*^-7, 0.0001, Appearance -> "Labeled"}, {{$CellContext`logCdl$$, -6, "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \ \!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, Delimiter, {{$CellContext`V$$, 0.2, "E/V"}, -1, 1, Appearance -> "Labeled"}, {{$CellContext`logwc$$, -3, "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -7, 7, Appearance -> "Labeled"}, {{$CellContext`wc1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\) = \ 1/(\!\(\*SubscriptBox[\(R\), \(tc\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, \ {False, True}}, {{$CellContext`wc2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) = \ 2.54/\!\(\*SubscriptBox[\(\[Tau]\), \(d\)]\)"}, { False, True}}, {{$CellContext`wc3$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c3\)]\) = 1/\[Beta]"}, { 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->{964., {260.875, 266.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Cdl = 1/1000000, $CellContext`kr1 = 100000000, $CellContext`kr2 = 100000000, $CellContext`Kr1V = 198130.4129160426, $CellContext`Kr1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr1 Exp[((-FE`ar1$$1) $CellContext`f) $CellContext`V$], Attributes[$CellContext`V$] = {Temporary}, FE`ar1$$1 = 0.8, $CellContext`f = 38.9, $CellContext`Kr2V = 9.690734143036705*^6, $CellContext`Kr2[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr2 Exp[((-FE`ar2$$1) $CellContext`f) $CellContext`V$], FE`ar2$$1 = 0.3, $CellContext`ApV = 0.00007788622351743716, $CellContext`Ap0[ Pattern[$CellContext`V$, Blank[]]] := ( FE`ApEt$$1 $CellContext`mAp) (($CellContext`Kr1[$CellContext`V$] + \ $CellContext`Kr2[$CellContext`V$])/((( 2 $CellContext`\[CapitalGamma]) \ $CellContext`Kr1[$CellContext`V$]) $CellContext`Kr2[$CellContext`V$] + \ $CellContext`mAp ($CellContext`Kr1[$CellContext`V$] + \ $CellContext`Kr2[$CellContext`V$]))), FE`ApEt$$1 = 0.0001, $CellContext`mAp = 0.0013676945678459287`, $CellContext`\[CapitalGamma] = 1.*^-9, $CellContext`\[Theta]sV = 0.9799642909663704, $CellContext`\[Theta]s[ Pattern[$CellContext`V, Blank[]]] := 1 - $CellContext`\[Theta]A[$CellContext`V], $CellContext`\[Theta]A[ Pattern[$CellContext`V, Blank[]]] := \ $CellContext`Kr1[$CellContext`V]/($CellContext`Kr1[$CellContext`V] + \ $CellContext`Kr2[$CellContext`V]), $CellContext`\[Theta]AV = 0.02003570903362966, $CellContext`mXi[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := \ $CellContext`DXi/$CellContext`deltaLevich[$CellContext`DXi, $CellContext`Nu, \ $CellContext`Omega], $CellContext`Nu = 0.01, $CellContext`deltaLevich[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := (($CellContext`CstLevich $CellContext`DXi^(1/ 3)) $CellContext`Nu^(1/6))/$CellContext`Omega^(1/ 2), $CellContext`CstLevich = 1.61197581, $CellContext`tau = 0.5345911390624336, $CellContext`tauXi[ Pattern[$CellContext`DXi, Blank[]], Pattern[$CellContext`Nu, Blank[]], Pattern[$CellContext`Omega, Blank[]]] := $CellContext`deltaLevich[$CellContext`DXi, \ $CellContext`Nu, $CellContext`Omega]^2/$CellContext`DXi, $CellContext`MAp = ( 1000. Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`b = 0.0009039373645080735, $CellContext`Rt = 16.016804343072913`, $CellContext`F = 96485., $CellContext`Rp = 14.317283921528634`, $CellContext`ZX1 = (6.219668834611984 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX2 = ((-10.397294569769395`) ( 9.888864555952746*^6 + (3.8400583144389093`*^6 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/(2.113144766966537*^7 + 19101.505114757583` $CellContext`p), $CellContext`ZX1Et = ( 0.4344168117850609 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p], $CellContext`ZX2Et = ((-0.7262057962079788) ( 9.888864555952746*^6 + (3.8400583144389093`*^6 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/(2.113144766966537*^7 + 19101.505114757583` $CellContext`p), $CellContext`Zf = 16.016804343072913` + (6.219668834611984 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] - ( 10.397294569769395` ( 9.888864555952746*^6 + (3.8400583144389093`*^6 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/(2.113144766966537*^7 + 19101.505114757583` $CellContext`p), $CellContext`ZfEt = 0.06984564987890744 ( 16.016804343072913` + (6.219668834611984 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] - ( 10.397294569769395` ( 9.888864555952746*^6 + (3.8400583144389093`*^6 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/(2.113144766966537*^7 + 19101.505114757583` $CellContext`p)), $CellContext`ZEt = ( 0.06984564987890744 ( 16.016804343072913` + (6.219668834611984 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] - ( 10.397294569769395` ( 9.888864555952746*^6 + (3.8400583144389093`*^6 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/(2.113144766966537*^7 + 19101.505114757583` $CellContext`p)))/( 1 + ($CellContext`p ( 16.016804343072913` + (6.219668834611984 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p] - ( 10.397294569769395` ( 9.888864555952746*^6 + (3.8400583144389093`*^6 Tanh[0.7311573969142579 Sqrt[$CellContext`p]])/ Sqrt[$CellContext`p]))/(2.113144766966537*^7 + 19101.505114757583` $CellContext`p)))/ 1000000), $CellContext`lw = {62434.426904421096`, 4.751294614524764, 1106.2713405416139`}, $CellContext`logwmin = -1.3231880393565434`, \ $CellContext`logwmax = 6.795424129613337, $CellContext`idAp = -0.013196201037861443`, \ $CellContext`Vdemi = 0.1587596782452222, $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := -((((((2 FE`ApEt$$1) $CellContext`F) $CellContext`mAp) $CellContext`\ \[CapitalGamma]) $CellContext`Kr1[$CellContext`V$]) \ ($CellContext`Kr2[$CellContext`V$]/($CellContext`mAp \ $CellContext`Kr2[$CellContext`V$] + $CellContext`Kr1[$CellContext`V$] \ ($CellContext`mAp + ( 2 $CellContext`\[CapitalGamma]) \ $CellContext`Kr2[$CellContext`V$])))), $CellContext`Vmin = \ -0.3412403217547778, $CellContext`Vmax = 0.6587596782452222, $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 12}, $CellContext`lHue = { RGBColor[0, 0, 1], RGBColor[0.5, 0, 0.5], Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6], Hue[0.6142719099991583, 0.6, 0.6]}}; ($CellContext`Kr1[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr1 Exp[((-$CellContext`ar1$$) $CellContext`f) $CellContext`V$]; \ $CellContext`Kr2[ Pattern[$CellContext`V$, Blank[]]] := $CellContext`kr2 Exp[((-$CellContext`ar2$$) $CellContext`f) $CellContext`V$]; \ $CellContext`Ap0[ Pattern[$CellContext`V$, Blank[]]] := ($CellContext`ApEt$$ $CellContext`mAp) \ (($CellContext`Kr1[$CellContext`V$] + $CellContext`Kr2[$CellContext`V$])/((( 2 $CellContext`\[CapitalGamma]) \ $CellContext`Kr1[$CellContext`V$]) $CellContext`Kr2[$CellContext`V$] + \ $CellContext`mAp ($CellContext`Kr1[$CellContext`V$] + \ $CellContext`Kr2[$CellContext`V$]))); $CellContext`\[Theta]A[ Pattern[$CellContext`V, Blank[]]] := \ $CellContext`Kr1[$CellContext`V]/($CellContext`Kr1[$CellContext`V] + \ $CellContext`Kr2[$CellContext`V]); $CellContext`\[Theta]s[ Pattern[$CellContext`V, Blank[]]] := 1 - $CellContext`\[Theta]A[$CellContext`V]; $CellContext`if[ Pattern[$CellContext`V$, Blank[]]] := -(((((( 2 $CellContext`ApEt$$) $CellContext`F) $CellContext`mAp) \ $CellContext`\[CapitalGamma]) $CellContext`Kr1[$CellContext`V$]) \ ($CellContext`Kr2[$CellContext`V$]/($CellContext`mAp \ $CellContext`Kr2[$CellContext`V$] + $CellContext`Kr1[$CellContext`V$] \ ($CellContext`mAp + ( 2 $CellContext`\[CapitalGamma]) \ $CellContext`Kr2[$CellContext`V$])))); $CellContext`\[CapitalGamma] = 1. 10^(-9); $CellContext`Farad = ($CellContext`F = 96485.); $CellContext`Nu = 1. 10^(-2); $CellContext`f = 38.9; $CellContext`CstLevich = 1.61197581; $CellContext`InvCstLevich = 1/$CellContext`CstLevich; $CellContext`lHue = {Blue, Purple, Hue[0.1421359549995791, 0.6, 0.6], Hue[0.37820393249936934`, 0.6, 0.6], Hue[0.6142719099991583, 0.6, 0.6]}; $CellContext`monStyle = { FontFamily -> "Helvetica", FontSize -> 12})}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.411019406028235*^9, 3.411019429019648*^9}, 3.41101948781035*^9, 3.411019564632793*^9, 3.4110196512375803`*^9, 3.411019693479257*^9, 3.411019808722328*^9, 3.41102006259793*^9, { 3.411039155411882*^9, 3.411039202859659*^9}, 3.411039303993013*^9, 3.411039387431044*^9, 3.411039430500165*^9, 3.4110395371823997`*^9, 3.411039921980474*^9, 3.411041107283806*^9, 3.411042188884078*^9, 3.411042265917862*^9, {3.411042342144083*^9, 3.411042394581505*^9}, 3.411042704328384*^9, 3.411042984330557*^9, 3.41104302853353*^9, { 3.4110430600748796`*^9, 3.411043077372929*^9}, 3.411043443013653*^9, 3.411100857821825*^9, 3.411101108767708*^9, 3.411101180284918*^9, { 3.411101250910716*^9, 3.411101272984311*^9}, 3.411101343276864*^9, 3.411101591523341*^9, 3.411101631638954*^9, 3.4111016819334373`*^9, 3.4111018326403713`*^9, 3.411101872825087*^9, 3.411101966698797*^9, 3.411102021480783*^9, 3.411102111695331*^9, 3.411102181577153*^9, 3.411102266571155*^9, 3.4111024825935*^9, 3.411102875302239*^9, 3.411105308164147*^9, {3.41110534980765*^9, 3.411105370204137*^9}, 3.411105412747299*^9, 3.4111055056176662`*^9, {3.4111055405283546`*^9, 3.411105583586925*^9}, {3.411194290077009*^9, 3.4111943176998663`*^9}, { 3.4111943846750937`*^9, 3.4111944099097357`*^9}, 3.4112074220324707`*^9, 3.4112074739967117`*^9, 3.411207513274021*^9, 3.4112792565760803`*^9, 3.411279750153872*^9, 3.435387114680607*^9, 3.435387912577684*^9, { 3.435387950099121*^9, 3.435387974996708*^9}, 3.435388315196233*^9, 3.435388377273426*^9, 3.435388414196591*^9, 3.435388451837699*^9, 3.4353884927789297`*^9, 3.435388600784939*^9, 3.4353886465104113`*^9, { 3.435388869496155*^9, 3.435388898886232*^9}, 3.435398012347519*^9, 3.435398119122473*^9, 3.4353984190459642`*^9, 3.435398739182678*^9, 3.435398770385399*^9, 3.435398812750598*^9, 3.435398949830166*^9, 3.4354034304146748`*^9, 3.435403525708953*^9, {3.435403578225524*^9, 3.4354036057751102`*^9}, 3.4354036367355747`*^9, 3.435403674945282*^9, 3.43540381152982*^9, 3.435405029773038*^9, 3.435405074720718*^9, 3.435405228785594*^9, 3.4354053146921387`*^9, 3.435405394281155*^9, 3.435405503099403*^9, 3.435405752047942*^9, {3.435405793432967*^9, 3.435405817819323*^9}, 3.435445273724359*^9, 3.435445403377092*^9, 3.435445472220686*^9, 3.43544569588603*^9, 3.4354457647174807`*^9, 3.4354459466019583`*^9, 3.435446004733185*^9, 3.4354461616334753`*^9, 3.435446213132853*^9, 3.435446444691901*^9, 3.435446520618022*^9, 3.435446788997183*^9, {3.435454551623262*^9, 3.435454590239073*^9}, 3.4354546460461206`*^9, 3.435455128001689*^9, 3.435455277649897*^9, 3.436005655569354*^9, 3.4360060990390587`*^9, 3.436006218043919*^9, 3.4363242092988577`*^9, 3.4363242554307337`*^9, 3.4364452164443827`*^9, { 3.436445249990466*^9, 3.436445271237619*^9}, 3.436445303952135*^9, 3.436445588241596*^9, 3.4364456521331043`*^9, 3.436445717133511*^9, 3.436445838921451*^9, 3.436445927801259*^9, {3.4364459804339657`*^9, 3.436445998332011*^9}, 3.436446332854463*^9, 3.436446408885923*^9, 3.436446462948131*^9, {3.4364465374682198`*^9, 3.4364465585039673`*^9}, 3.436446722944659*^9, {3.436446891999351*^9, 3.436446914470234*^9}, 3.436446947359448*^9, 3.4364469804079227`*^9, 3.436447167276523*^9, 3.4364472031327467`*^9, 3.436447240984614*^9, {3.436613094427102*^9, 3.436613117708333*^9}, 3.436613611715036*^9, {3.4366137193270483`*^9, 3.436613763983316*^9}, 3.436613863431096*^9, 3.4367598381668987`*^9}] }, Open ]] }, CellGrouping->Manual, WindowSize->{1091, 676}, WindowMargins->{{23, Automatic}, {Automatic, 79}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], ShowSelection->True, Magnification->1., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 1303, 25, 133, "Section"], Cell[1874, 48, 232, 6, 41, "Subsection"], Cell[2109, 56, 2255, 39, 66, "Graphics"], Cell[4367, 97, 102, 1, 34, "Subsection"], Cell[4472, 100, 9490, 157, 109, "Input"], Cell[13965, 259, 152, 2, 34, "Subsection"], Cell[14120, 263, 6198, 103, 146, "Input"], Cell[20321, 368, 227, 3, 34, "Subsection"], Cell[20551, 373, 21048, 346, 396, "Input"], Cell[41602, 721, 255, 3, 34, "Subsection"], Cell[41860, 726, 7819, 133, 169, "Input"], Cell[CellGroupData[{ Cell[49704, 863, 60969, 1295, 19, "Input", CellOpen->False], Cell[110676, 2160, 35216, 669, 545, "Output"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature CvD1dPEfHEAtVD15kCbQnSGh *)