(* 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[    151686,       2878]
NotebookOptionsPosition[    134719,       2565]
NotebookOutlinePosition[    151204,       2865]
CellTagsIndexPosition[    151161,       2862]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\

Dissolution passivation of a metal #1, with autocatalytic reaction
(Hopf bifurcation under galvanostatic control)\
\>", "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.417949385595129*^9, 
   3.417949387262097*^9}, {3.418261874355421*^9, 3.418261884667437*^9}, {
   3.440224894136771*^9, 3.4402249158788424`*^9}, {3.4402259643690567`*^9, 
   3.440225975142761*^9}, {3.440226019454896*^9, 3.440226038511263*^9}, {
   3.4414320997490263`*^9, 3.441432108825964*^9}},
 TextAlignment->Center],

Cell["Reaction", "Subsection",
 CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, {
  3.410151720218337*^9, 3.41015172165478*^9}}],

Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\
eJztW9uOFEUYbua0O7M7ywY5BGR1FSXBcBA0KCKQeFiujF4SFc2GcNgYxSBX
3IpeEKMS7ngD3oA34Al4Ap6AhPuxvqr/6/2qt6ane6d34cJJhp6uw3+uv/76
tvhq9faNqz+v3l67srp88dbqrzfWrvy2vHLzlmtq78iy7IX7/rKc4ffI/bR/
Xozcx3VOfiz7R3v07Nmz0cOHD/3b1UTbWhj+lnWh+cmTJ/7tNWmzT/Z1xXGH
Em1HY1bPnz8f3bt3LyJx6tSpDawmjTuUaDNWu/yjO7p06dLIbDhaWlqCAbKW
7xt6Y2Aq+1dWVnKpHz9+7MffuXPHv4OOE8XNdS2O5dramp8PSvMJMQbGH/RA
B/TRv86/59VT+cDf8TjySoje8U4WGdp4cc1gheFGZmEshbbOdhMzTwTScVzP
NIU0IIcvpIa0w+BHuh22AmcnlCMV2kAK5INagSCVtwj1/U+fPm3ZFHACmXG6
sw1jwDJYYn0cSOPtTWtDdDry/q3/ckSFwTA1vAWBGVkg70gOS3zESILN/aI1
kswSPRln0mYqokVZNhdU2C1dkABvLZEKrPB1v2eMvg3LP5jqFEoJTZ0hnAWS
6dz2boAdoIimQEoxSLQ1L5l6oyMc0Yb1k5o7JxpgvpMg1wpLguO60sbI4Dhd
VkHTbA8erdGjR4/oLwoHH86GXiSVjp+NUIaDHfUyBRlayhxTSZc53rH1gkKZ
wZZIoqamaZhmdVxqLnMbpKNMto430GOELwaz7rUBmA7PghSGOWktBfS88kzN
YG9enRFnWbgF+URybWNmwCzOBVs4H8HU8v/GWjMLYQxz7z7LvRY0Mm7b1WA6
Sa0TioAV3ISpOBdOplkQV6ZKviEyU47W0xidzGTB3F8khUSkMaRFD5e1xt/Q
BIRlZWyk+ttCi9XP3BbJM34TCSalqVK7/ILwoJlnrU1TVKswTsy8T4aDvTOL
Za8eSUYmcqKkMgKtKrnJf6iVW9l5XjIyMm9q9kUjFmMLbdhYdybmso3LeiTx
yy0X4tOIUujFsdrJN0B8neS631lhFWRMqRB82dXa0LN27PJ4xHJiTTTfAM9J
scf1kIq9nYVxMO+s6QCZWE3CrOgbxqZicoRKbthSiUUwhEcecjpZnUxZXcCw
w85XVqKl9nurJ/zb/qCc3+9d5EJak9TTQQ5xEh4ca8aOpyTS7DfdkaXQhS9+
h0AMew4EQtsoX0e1OJfZhWSwHMvsAhGsPsrXBwKU29iBYBctSRnTNKPVAP7t
gLAvxhnFhO4LpjPzGc9fXDeMCvSxprAS0ImJLNmjiMzvPCYOpxC1SqTBgcPE
XFqUwa4WBT1moYJFmdzQRTFZ9+HtqLXp2qFF6Sg9T7De0EMyi2eM5xz3bIlm
TOfzFcU6krBUKvEcNBFseecbL3472q8HY+wy3nBl8UjODYT+5FHeUaBtZJ8x
2/T8EEYGI8oxD97se3m4LFn3Q24MY1EwtzmpDlvYFM7+ncSiPxfU/95khlEM
pch3BUeFSRlysvy0bJP9oRS6uffhFgMZ8ioVItMF6INrC9MZKBDdvJ09CEMu
i10Z9nLYuq+jZnI+/JA3eP6rPAeeDy3IQhofHojM2n+HWRWwu2umDIhJSWur
JFTxVqr6kXd1WpvgiX/j2RZtLDedCma1b/1joVYSwxPjXZ8mFgaEUf7Ouqot
8IGnyqqc2BLmImLoU/eMvD12iTDcTMxcCDAsUBgTsKymQdz2vezPyYH64OUF
4xcmsWK7e+oF6BsWKxxuza0E5euB6ZfWpWjw2YLyZLwOek1Gj7+JySsCTPJM
fzRHSE0bx6cQYyN/2khtB8R6wjwJ0RiWGI+56yfRkc/stpRq80hBHXrcIxDQ
tn9l5ZSCsKHQzT4S6zaMbPLAiKEMsb3WpuAqQWl6BZZy/YSNmPgscBuCWOdE
OLSjfmkZRgpuLCiqYqQhFLKPpWs6JFLBHhYRexPUdRslkINPgArg6U5eFdgW
OwUGKuBGpnUax1XFMY8Hc53BY1PoIQ/STJqu2w5LMT7JIOTBA8m1JwLZGS+0
1UAqh6au4On+A/qUTRHGD4PCn9i0KaA5XfTzUjcU2xQRpMbc+rWNKR0i9KqJ
sBnkjo7ggVPbJiF3J2LjTYOUMUARN+a7PG4UlaNoir/OJNq6FfmmELoFkQXz
EYdVUTYzyVkZXhHm6ssUpmAmFkXQOK6aBWqhajwoMsx00UxCxqJYqI5S9aWD
f16i1op+9UVchh9XCitOVCW9cYxS+i5KkDBvz5jxUpDWyVjHAhZ13qgxVSJn
URw9ju9PSMIwTOErrJjwZifAM6b/GPTnsHVTB2JNeHe/U6cabiT0GwKWwrNy
xRoqE15KpyhE6C8TXvfiMsTlHf/vwLPiHiV/X/BjeT5yT65aFnmQtlNgBfOn
gJw5c738kdN/6DZY43ws/STEIxhqd63TnqILxZLbcAAfsi3bFHRZs7ByznrP
QhiseXrHF3nsQtDitDm9JlZB79c5aBYDkKtaDpqLFq8EP1kP4+lY3AwyVzyH
WsbexDk0UOhwmdDkr/ZRtHlc5HoIMSdd2/Qh0kXaWFq/y2DzfrGw5OrB212V
tjoGQlTC0k8J5cu1QnM230i4jimBkbaI+aE85vrj5eHM0lhrK4gY80wH2v14
SCrQbMiP5YH2j44qDzQLGfoWZmCKrol58PKYghvXYup6dvvc2qpdk8suWhdP
Wnj7TKJi8vU3Ow3EAW+ut8DpRvoZZms4YS8CLHjwc/MJrBue4CVkfnOkjgnl
rYZGtgq2eD8Y8LTEU3F3Yv3DRax/C9C/JfFqFK1mu2xEy6mva68MxtjmO2JN
AxjHY8NKcPsPVxhWfsqwDaEZ23OTqykU45jabHaDzayY8VOc2YsQR262KSGO
Zq9g1QU2PhhvA+5WjHDXN9YGW4N7NHATiutrEtahcTEN1hGtw25kTzgczLhD
yA5Jg0ZsmsBBtup20jTYxxgTsSLTTRTJmch7bKKp8ZGGbhhNg4WMMYSWobw2
zD4zwqxw2BRO0sQtobqwSLT3r6sU/Qm9443Djc1JdcGaK1zoqQqOfLpRDoEz
KAdLQZPjXd882HDxhuFROPfwvkCNezdV4ZGE+NwTHGMmBtaNWDEBIeknL2wU
zjO5Uzdzz6UKPHJOpV+/woJAU1zfdgZjM1/5IGgqhss83VzblIbV7qKk4RED
efQcoFU5Nu4Z849K7UjVg0Y6xRslHKonyaHZqCZI81PQ4f+ja350DTwrH1P/
CrOq//cve2Q7/gPdTroU\
\>"], "Graphics",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  ImageSize->{244, 110},
  ImageMargins->{{338, 0}, {0, 3}}]], "Input",
 CellChangeTimes->{{3.440224884634039*^9, 3.440224889446027*^9}}],

Cell["Hypotheses", "Subsection",
 CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}}],

Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\
eJzVXUuPJMdxLvW7e3Z3ZnaW3J3l8mmRtg+0AAKCLoYvElYHy4BuXoinFSGA
eyBM0AIM8OYrj/ZtAQm8EhJ9k7DQ4yaD8A8g+AP4C/gL2hWZ3xf1ZVZUdfVw
KEgFzEx3Vj4iIyIjIiMic/7l8c/f/dl7j3/+5J3Hr/zwg8fvv/vknX9/5eG/
fdAWzb/VNLN/bJrmX19p7PO+/Yhf3fNP9ktLrrvgLH2e7z/88MP9Z599lr59
B2X23crt259Q9tVXX+0fPXqUvq2qsvZvcydoe57H+236s9t/8sknqbr92Gd7
Pvroo/T94cOH+ydPnlhXd1P1xf7zzz9PRfa6/Tuzgpl9a0ex6uiieRX133rr
rT0wuf/yyy/XVjzbP3369PzIDmeYinX44osvWhd5Kqm3Jd5a7WfPnqVvN9Pv
bT1C+m6PIYSIytPbJEQZqDayIbKqdy8Y5nWhGZo0N4J6URlpxkm15c1LKDMQ
Woylb5yegUG+eK5CZfOb9OckNbI5GDD2A9SnQdBhKjMM3kX39g5Apb/t9xbj
LR+0g9rT1jUAm78BINaegHAS1rdNwvB5fmS/c3CD9UmYWzpxPViRdd0O4bgA
Pwtut9Fw6bPhzYYy/K4F52x/K/1e67R67S6Dcb8tU7d6HdtF8JVlnIeNZyxp
soa0Nx5hfwsp41p/PsBLxlXzKwxozbn4hJXSZyuzdzYsuGWWyLZ2xuEDyNII
52AwNmV3XFQGnWI/L+KMX6sjs0/gWb+A3tvYdyvHgjsBSsEnTmDrirOwhzPl
9yZNKQMgax7gLJOEU3Dazy2irdVZeqcPEW/12c6mbYQLpjzHQDJjp6FVR/co
W9SESlDPbLJsxHE7+Oc+/72vv9Nj4Ux/bXDD0gb9ir5Dv0uvb/3ZpGwxZNyu
nT2sjo2jfV6k9huHlT/UMig/wdCibMBp21RVm5JkFHEmSFYVSjLp7ffCSYl3
K3RrDG5Dabcq7a3xFt0a11HS3QZG6rVlGOFytn7AhSDxUvUY1TNAXHGZezuI
nBlIQOQTVGgAFYLkjdPM+L8WQCDPXHkSn7aaZwCRI4AlZtIz9SxHE2Xeltnv
UqTltmcuNrESHd9DmtjwaziC9pjLDCjxCBblxj5Jovyb5CAJrY1xiHVPRW7v
bSrEK5mWC7wYel1YQ6QOGLRJOrdVv/Zd36vo5LqghJ04c8e00RT9F5yF9eNy
wOrVFpIqCtazcVhvCSpdBWaSpKV6JDJqUG1KGayd8549H3/8cfps3Rplvvji
C3arnF3zmqrshcyMDDGTMs52J2BaudGObQ/x86Jqq2MY5mvzrM8lC+cSwEQR
RKSSeYwB+B1VXQTJciosxsNLsWQaWj59hTh3I7Fru3EFwocUtLYtPMQOdbOC
pzwIufQpKlhVVbE2Qlt1A0xCnjpd28GgDrKspCwl57ZAL9HUmhFe4BckXKnV
nR6DoIWEhhnEQ0F1miOdGbPqGYhArWKxZJSlLxmRNk4dMdW9TPRcMzazpYBZ
mgLrNB1yg41PcdNNpVw4JxPhOZMyYmBZte10y9xFii2FF4JxT4UjbR5G7IsA
lycjuEyrZGYgclTqS52Z0RvrC7vivDkhJwJLhVjhrFWssF8qCmK/FqKmdZdV
O+t/FfRVLRADk2axdLcBc3JpGT+00N9GMWtCEa4FYxTi1sJgIFfR3LAfG7B9
j53Kzo1tvue6t4c6uP17hXWh2h1zANbX3AMX3UCbO9TDM+qkXYfptesYUplS
1vqM1sKNCbBQkuoevea+ccm8oXHl/ZOAsIGXwRC3A3BvocyaG2uYaKDbR9FO
SadovyllEMuFm4IWCBeMgUYxZONZ/SU4QHRzegAjKSt6qJitYZNrAjyFwfpT
LdbJ0rUA1ZT5FoihQ+qR+0AOaWLAhjJfBIUSZgiitWTNqDlx9xjnAeNNFyt1
bGFvktpUmGLq6i5jIeNTeFLciF5VgZsocSZ9lbZehyso24QrRTH1940jxunv
FbP/TE1xKi6YNJTGVzHuyOgkVW47jdyRIUfmVzTvUJtbZrBXXbWb8XROqylg
wpZrx6akogbj6NIyAnEDDicIIRBTMqRptWxIThrJJjBewTtamjT9Dcgz4MSA
5I6qhURt6JILlr5A7MeamHcl73d37onkyuVn7sch0mm36VbSHnStwpbzpC5S
jzax2vZ4CuA4EEy7ZOtwo07csFkGPG/M6KWyhy6OW+NDRitljd9kMXqXqVxN
aNwfYX+qMCNNJOd3wlNcwfYAUxTvtFvMTqmtK2o6c2tcAFzlGntk7+Ja1OrU
+3WxG1yI1fsKOo67/fmy8EHCVvelpO9ICXg//wezV+UKDrRm9K+iVfpGA4qz
hyIkIHQj07YypLyAJtYNEbFXI3Rm87svg9EjRKNEN0FqOnYoyEYx1aH63clJ
fxdwyetSr+CICratcImSohJ4GoC5MwK6gWmcxCWo4RN7MBV1ZZd79iwzZHbY
Q5cz7LYWS8U7uy+ZYO1WIh9xQzUUGSrSufPg2lB+HGaDnXrh0zjU//yMvu6D
a2gKwQygyBZo3WqQXYiGVxh2UD3zt1IGQLFvzjKaZKQ4t++cUDvMiYwYwE5+
UY6nSGjLbqJTvobtTIT2p5ZXReG5mnVuz7nbEXsXG3MVQe68hGggFmbWZX63
LcxNe9Seob8NHPMpKElPoNj6qQmZE3zNrSzNGIOIslhDdIRcdeSD9Hvjblc+
HBq0eoCmNMNN3OvyAZR5QBiyJAyd9D9GffWjUiXRybffd9sKmw5l9YmwiYCV
tUsWwZw9dw63hL9lc3Y7gFoDvKWJ221QlFkM/xSFJD01FXapSay1tg71qD3q
WKM/G+aLQ6gIQyA1lZ0J2FEonrz7fygT+60AmyHhi6Ctjpee684noL2tOQH/
IIDQw/G2cAAn+/2g7U9y3/+b/sSRdfGBSmR9WhSesokrHeSlp1mXVq66GQWh
JQnjyhTpGCm1HkwcyH2v3c+hnjSGe+5NqMMUh8EciEtMgoJWHcKCQ+5KNA7U
vormJkYnDcz9vtsWaI7Cq0HZmyV9o3A61xTD4ndH6tqjIfRzAY1Kl64U9Rif
Ay8HxldHLQKezdSMgVMMLqA46mmL3ptQh9JNDa4oIeI++lIbukYl6UzhCt7W
aQJLjkmJU7l60GSEV4MyEPl36c/F5EQBErMOI9N9YmBlbNw6JkNAQ8ZRfJZ7
I90zZjvQFMnaRRbXjwwXxl/tMe9HjvZfFPtu3ZPR+j4URWcddUOq9XJtYf7c
+e2j6EXEGEIR/CKwmVQ3B0k10jSMo4/TaeVTod4F53L2kpDRRF6i3E2XnDGW
7JD5u0tKEA5VP5rmfyjXaOgM2HHKcrvQOQ0mUFZdqbUxa4aTepOvOwOC7Aoj
7eWMm9/LFEuTOs4RiJL0AHCd4jItMHnrqBwBiTpnQtzRmH7qQmxcJ676Y+vV
YE/PD7vjxJ0v6N6lAQp2y5O4kV6pwSmRniiErnij8U28acj8uiP+q6q/cXKv
3VZWHx5gPjIXZDNIZ4zBnUB/iIsr0Vi9d5r3QbSowlTruAzbn7kHQ/mlTpCo
XbriHZ2DQcQP6+DpFttAte6xG9dISB0OmMoMlAzaVpMV6jG+uYSIbWHIyvJJ
ndFn9HLGyx8A3EB6ANMLBlIA6LBSz5Lm0pTuxShrZNXzFxQRrKXbLxRIOQ1u
GB8ird15q2GeDN7xsfqb44h6MI4oDe8dRlQ/sGt1WoijwG7uehMF6TWxIMLP
TvhFRTAFBb+bF3iWMB/Hi2zCZQRxHL8RPxNDx+YkKF+8lt45Tw9E9HcCNVcO
t8BVOH8bVKWzlVtQSmvkk6kbGVLLBXy0o6FsiZaIhiThCXLeRDA5fVPaMlZO
eaMOP81nr+l1bLye62E0baIcXs8eCJLXQVXGoY5G8lFLR7sxYPIGxX6vC/c8
ccIAPuk5lquQ8b8r9grAZ7ExggpSk0+8eGpjlsHGcYpFK4x6d2rKAvfRxnU5
EIKVFecAqNd7TJmN5QBkprrjQ5OOEjhy85FhL5oJagRqPZF9GnXgWiCHdcbZ
xs1P0k2/t+AmtZIiO4y8To3z3xzBH10oXwd/mXQXV8If+yM7USVFuRK3wFAS
xHdmHspfYISUyoULDEJQNSQ38WNpFGpPld7z689V4PjGI4WOicP6L+NdFNbP
mOv7ZWk0Uy6qr4XDc29AMdP5WlYF59sDlayagfKD0ouihq5gMot1q4zKPIjr
idrHKHtpBGVDB8oilC2w/6ZWqlyWqvgYehuI2FOdDOQY0GnISC7M7JmNTBOF
/ijSy0yUY5GHFVbkjF0lDwEMAO79I2oNxOsZpdV4/RvoXsLj6ZEgp9sz7eA8
sqfboqtG4ZnuMQAtY3YK7beljHyfyFIF5Bm4F03u+nUKmNp/dEivSwLIlFcU
FbQYD5tziqrA3gAHitczD+Y7S9dtbTMeo6NZbtriCiFw+u/HgGWYVoElPTQ+
cCD2/XqHupI+etJrDGx7bLptGXMLrxiRFzwW4n9y5Jo5KRq5zpkDGw2y9pq2
A2pS0lUj0qfHQXsZQMuFIvHzoWA1GZMWMyYynwg0bJorhcypClooYbGmLmlb
aGD4TcErWeJtATGKx3K/9RPpOz3f+An1v4qC/0h/SjSri4sW5Q+DeqmfD8p+
jAT1sU0rk3Tzh0FV7YqJE/VhSJMqTK8OfP1NvR2zn7b/CxRraLkdWoMt9ZHY
ZITlNDqu8s62K90pekqWXYD7c/1Zsnzn/rJL8Jyr0dDzsD5Kh0b3bgIRUxeo
rRmIqmSjdBPNo6d21BPEsMz0EFXpZCnBoj1Uh9dMbD2Pd0H3BYHYrgUno/C8
R1MDoc6zpE6vZwmzAubKyu1O9lWcFIh5YZa39EaZjXtGKtM9je3VSgKm39nk
c2JSCWX0d6vq2E0NU+vUeQGHhDOE+lDUaaWfQTG3WjVkUG6+NvTBOLordU+Q
dFgqHj2rRJHPvZ8e14yicVGOuwZICIZuY63Ms9lOEiNVrnP/rDvqR3Kam5kh
tlyosRT8KLSwOwr8ZTg+32n+BpZ7o5ERUtAeg0s2fs49OLilCd91yJGKXD3y
XGN6cihgpoaRPL7TnAxOiec7hBvSZyQPRuviLlhBq9sDiqjVTiPmNgg9heXL
08yd0NKZ0aiW2QD52x7yI37nxknPF6ZlWZy1oxzJDFKyU0ejLDqNxFQpNoKe
R4XZhjyZ+Gzec+ix6muWOlsVEyLZUoaXwbbVDaD3yu9Yv+Epc85Kz4loqk3J
jWNctvB30ArqQePWlci5KoehTjSTb4bDNhoBcJ+u1BsTqmQysaSgbTsmZXoX
lyQzwboNyKo4IMspt3/pFpVsCcZMcZ9LfKiNFlnQLSLEux67wfPjwrCYfZan
hphsM7Sdqt+3zg6h8NVkANmaFYzzZ+C147T8UTzJc6rEIOV7Z/ecuEZUHmWK
EoPrterRtIOSX099o82dVMXXBZNq6oIx5xYTrXIxubHrn707rEn17iN26x7T
clfAdCQiWuKdvoSE7YloSUVpNIOboyFxyt9FZ9XWE2dDsAPQsHTKw5BCqPx6
GUUnM2oREeGjqWswNdS/ShbLHH0RspGSmgFcjVeQxSr13/C2ggiLqWIm6nVJ
7p2Ulfpmq5sOD9jRfqQ5TZlAewNIj0K9TN1QLwY9Hw02JvT78iYvDQFzgVRJ
rHRFR6fv7qChnElLCKGtQP+azURFjDqrINa4VYJ+8NcIfpIcMgpwO37CTTVn
MKqeGHIHu2Yc4X3vsJPOTOW29FNLkSGVwFMvQ+zASFe3dV5GuXZhSss2KDvE
5bUhvncDpM/5harsuNSedjqUMoZopFj5ARIRE8Vlh4SCZSJEc6vqxLrkelKU
i8UDwG8MHZfzz5RGECNk1jqJDVXrM+4dF2QRXEU3IG6XRZISBZLeWjB0Ou8c
sxgAx4WfhIK6ZMcuq1kZOZh0wUFPkdrOTXFkRKsnlya+coizQDzz9CX3NcqI
DFHbtwGXO20k3bdShG6Cd1zWvI5POe8Bhqgy/G6gWLS1IY2kkTCOnq9L39Vd
AzeOOq3Il8g2LvwQPIVQpzZbWX1B0n7f+e0OHdw7Gxk/chAg5O770PrQZzDF
3M8cK1cSbke3//TGWQekzjESLfKCLACDSt1zqUe4Bly224CBGHV+Dt2IksUJ
1YWvSGx7NBWAYRjetjnsJu0f7u6y2rtTlJCAkUPRt/yLwoXdAhyhcidAjp35
ux0DQIuYzREOItdoHrA9w1Oba8afx1MjPypcTk4Jzt36ilaIMsv30LsSnOr0
uxUzIAb1IxQr6G3x+3FxGgwizmc9Hg75L5k/7azoNOBpUPYayiSG2byT+/5P
vGJqhH1jlE4SFBpN6+Za+eeg7S9RJmkfDqaW6e6DkRq9SolCKoGe9hEVwGqG
qNMBAqXIYuZu/EdB219Uk1WAtYxbZj14pZEPStBXK1jMX/nTDHokg+ZQhKrC
7cmmg+F866xN+4a2D+tnX3m2gRiOqE7xUNyKvi2gL+88WoVRhbZOHYLoNGRT
vjgKEEq06pSoBKHKdwiG4d2JwqDBMRdA5UVtORtQd0Dsk+n+BJfmFuhVOAlL
HbJ1HU8prieUn/k9yXkuNbw5Fy7jhcju6h/AsT3kcfhdlacqnLqGqOY+R8hM
7TGPL25qzqy5j1fBTCGE8I5kgUyLQpIQYwEy8V5kd2cZIc0U7NNxeOiVHw2h
9wTonmcdmuXiM9xhnNt1ZeWYiwJ7bb9zsI/m7FbDVOy+qLE868A4KW61aLCX
DVZhwV79FNASNWQnjUED400tEF7qLSryJ6EZm+UAexX8NFkyadQzT+usSI/m
lkLTcTUerBIA7XI3m951SGDi1MxDxV1oS+1YPTqYrbzdVEhUZXLf8zj9Htkm
dX4fzrvO3s3cn9vzXed43bmRNHR4C+xI5aYhSoIwFoMrvdxjHvDJoKwxrLod
yWZVTje6fhAN66DStWwPlSXlehBz1vR2Z1mN9Lpb617B6XxNS1hny8/1uxpc
+gjhDzwcVjgt3kliXc99FvWxBmEUBPWuqjM/Lc0cBVDaCcvxJOmxtGh0s98P
RA9NoiDF5tCoM3itBXYYBKeTR9Slh2UJZbEqNC99qZ4tMNczhw3PCQnqFOo5
oApGO8g/pe/ypg97aOVJHY8ABZHICav8uUHYyJw65tgc+8LspJjHNIlU7hJ5
gx+XOR/ARMkfyeG6ibpYOgtx75uW0iTv/pGDHp8D9ztYmkfCqaRci6wS+wbJ
4TvZue/RvdCI1qGKbJou7zIgaI3bLjLdi3MO3wu+cA2J0TR/l/kH9bFobU61
OBLXPhCEjYBjsE7D3U2jR8nGZZS+w1pjaKgWX1qdupz+JFEtzkM0ouRyBjHl
9vuxZAINwCL+MAFjY+9KmRvUi9QLHNDFGTVgiZtXTW0QBosGHcR1lNk2Lc1m
O20YXWuMSuSh70/WJ2rU1DjCeYJENkrsqkyFGXCk0GrSaDUKEHI2qjRrCBR6
LB869RTX9fI5jqeGQarBG0DgEZJpLsU9MRKf+Vc5odeb6llP+E7HTrZrLF7Q
usJY3Gt/lY+IRwDVrtem6RJ0qV3wztNVBwClv1gBnbAvYdmYfRlBXhPDo+zZ
g4FzvOyCqzFIGEojTSHlNI0wDscatYkkRG6n2Ky1cZ2M0TwI1AqrU/nWmocG
MwKu6uCvNQS5ipc40XEwRUNcTQtcu4YgO+uldIXQXUYaorBcror6vzgNwcRb
CroaR0z+UK+KlNUagk+lIYJRDorjCAKFvlhOS19Oisevt9EYxv/k2Y0LpuvR
EowIM5fu0aPufzuMqQhZ3I40zySLLyeL9IPqA3vUmchQy3oExIPKYeGKAE3p
c6bQqll6BH/ctbJs6LC6ykfcgu7/dC1IsfOJDyWSlYx1p8A9x9LVyeDDRNjI
AnxFnd35FW+HAkFB4NrR07u8fEAcTLUGsUeNDXhqIw2ijMr9KxAJKC8HoZIA
mqdwKMIOIVPe9ZyFA/zD8xdLVK9Fvbp+hT5ROmqpQe5fCfeMP9FPGM1Ux3M1
vhkcroC4PKFeq5GRUdJnvVVBrlEoEMVU6aAs47h07OkkhdejoQ5xTwSFUn3s
zooK9360ZFinnB7LkUUfVCrBNEdEWuelnSCGalh8l6XHpvUCoO6yH2EXrTxR
p2hsQ3UKcwOoUxgrI8xyNM7zAddD8EX/pkL1IJiiVDJnugNJD/HI9SbpIUVm
LN7xtko9AV7bWfUlh+yCYeDPeenO5VA262BXNTdNzwndTQVtAUTpMExU0ECy
IKUHgvur+/8xxKOrOCxedxccoRxWMmUq1ifdDfEDQClem3yv+AvuJLT6B3CZ
2g8hQM+J1twDddm7m4N9dFkei4IfkvWfg8j9JI9Njwt5z0pBg1sRDXymiHFH
WeBREnj2Aq/Gqd5LR18G0y5TzVcFiskIyWVd5hvlBOxchphqkZfUv6nyRp3u
VoAhnF8OuSv2jEPM9MxuIrfqp72wuOTI+5pj2KTCfsPLT7nopiyyQ7zpWQWL
4pa8AKcdS517VeXkIWkUkDMRkzJbZT4XLNX7Q71Os3+5ENZ6nXHc9bRxLcMg
mVydY/XpA1PZ9Yz3xs/dnM/Dh7BRhGkuBXopIiQToiFqe7GMAZWH3eXGoeZn
Ip/Yq0Uwg3iJ/gHhZVB2JxhXr0Fkfz+YCN+Pg3qXQb16HvaNWbZ6sHQb9HdX
qFarAGoMaHFyVH2L0KPyZIxCpmdL1K8Jv9fz8UBT2EPhLdhjPWaIOAo0oXKM
NQ5lgk9lDU28psS/OQKLOFD9JlRlob8P6m2DshsjY0SspvUuATmNYfi7eRWY
mjGYFoZbFifv7TFJzNutZAhtq0dR6Iur/1/rU7/Sbqv1vJs62JsEwUwPZMi2
15PctXf+70Xt2R65Rmks15RhYLF7ncyaHn0K1E5LF6+zIs17cxmU6T/mYBKy
3rpTM0WZnZch15yuN4K226Csvv3QZvgepsKgNjahvHk0MNOsS71IkDM4C8rI
LHLG2WdPF0/+lt8E9zSF+dYqHki/e0G/1MO88Na+gS1SR/8t8DH3+iQo0/9Q
x/E0lZwYfkf6Ts+f9W6g5lv/Dw6CrTM=\
\>"], "Graphics",
  ImageSize->{572, 87},
  ImageMargins->0]], "Input",
 CellChangeTimes->{{3.4402249321212387`*^9, 3.440224933416876*^9}}],

Cell["Steady-state", "Subsection",
 CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, {
  3.405906886040587*^9, 3.40590688927745*^9}}],

Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\
eJztXEuPHUcV7tzX3Hn5MTN+JRi8Q4ghCRMgkUC8FmaBQowEyAGsYIVImQWv
JAJkCWRYGrFxwsZCQNiZhwSWQOYXWIJkOb9gFmCxYUAs4dJf1fmqv+pb3bd7
5l48npmWZu691adOnVdVnVN1qp69+trLL33t6mubL1698KlXrn7z5c0XX71w
8Ruv5EXdR7Ks86Msy753IcP3Uf7V/hXPj/FPSx6Kgh+6793Rzs7O6PLly/jM
nk6UvS11Puy+L4zu3bsHIYwuXrzoYPGgDL9RbnUXHXh/dOvWLVcMEDz566zj
pNgdbW5ukrrsnKHf2tpy5UCDT/xOoO8btfhpqPPK+D+oQsFWz58/X2q1H5gi
RfnvHBLwPS0DSpXJR4wKYTBnzpcRJX4tuf9DLXMP5Hft2jVSPLSqGxsbgcIT
VhVld+/edYX4JIyhHFjV27dvO77xa9GkUlUVLQMeKsopqGtdNYgH1SAXMJB/
kme0jFf49ReR0/vd92OuJaCn/Wxvb7v3VC7eQRa+auaodZrD75Ux8bVBx7o5
SlIL4g0kI/OCPvM2ttqqGUhAZW26YPOmp1VX1yS1V/zB4qAQSj/FT8/soWF7
HUFhighNgRyQAtGxDE0DRVn5GyJusyOrs+TqoIwk8DdYARksN/F1K1F1FZWV
DZ2Fo7uTS7CBuoDN0aeENGjZRGqwEYo9urmISTzN0KeHQ9QFJ8Bn8NXm25ST
+VAGYdkoG0zNBBbqs+myrp8yGULoN27cCOwaTpKpY2O3vsqcmS5egxobwFIM
z9Vjmk803mtP0NCEi17EOZCirDaoCfwV6PAYj8HcdXr5c0LaMAygh1ZgIAY/
J8wBdQ5iDE+o0gv9G9Xy7xQTiugE9W06RR8jr9167MMEQX0pK2ugAg0VCWna
jJP1G1LYaUJhL6C2Ma6ZIvqhC6FFMAglHq95t1ZpxWn4kwZPigthpeFPV9pj
Gv6EwNtAluST3R+yMFcg8Jl6V8dnCn4lQUenBr6Oz2paYznqMPYBwwALQcfE
A1jIKu/vx+pfrySoGdZXoeBhlvY6GocSVaplWlll2arglXm1EduPue+9sot/
ynBzHuJjzp9zApYbwNB6tT8OG9SjtkCWOacmnPp6q4n25hrUW7J6aIu9XcX0
DpE833ttLDgLg/QZqnDOx4AiIl1oB36uHbi3z2OumGaAp2H1R9u1xuEYLdkE
l70l4jrrvg8cOGMG/9qJ7yWrjqr2KvuQleE3Ub49hnIuaABNM9BEM3B1OGfR
062aEdz/F8aQ9x2tmInp0WG26gC1s+Obo+vXr+vYeMbaAzjHGXW3QAe8dQf8
9URFMMowgTJtTTyR0Z5zafgXrwrQt0TBnOUYjFSG8mlwTpSi3CaRv8bgfxXK
zgnfDGU+5/7Ph4EcrInTFagGZt91FythNaZAWU6jhcnzyeDc5n+GyNnfErTi
veHMnjJRid7cH3uihl25bfVNVFCpgue/bYRbahwdGssdt3DTD9yrdDp7QXkq
QomHsyfAdhmKZxqLW0yc3RchP2fKQV3OauoqU7moR3+XhudlW+CfHAT1Qsxu
cXZqMaczHZSMTWGC7VDOV8a1EhFGpnrJSAEuDh/5d7pUUA5DE6CBpXP4VGFO
CGVSAVbDYMr6Q6harCtMDJwYGGocprx/1ugACuM9+JI2QgZrzmFqGW8R10wI
tBhocExFtbz1CZFPKjzLMdxPsAtxxOZVuPyM8DE5VLNbFyK0f/dvofE50Tr9
E9DjZ9iRm9rVbcfDVVgMRZ0amlPu/oldvkvRDJly8qMMvdYWIkvlQAkayYPR
q6tYXKtVY0947sf39PpfCT4ABj7IN+yEhIlzHGyH8MJHgFfPj/qrc7CPTQnm
n8LXJaPF7Mh1ZdInjmxOH/yQXpiYQHsupoF7ubwbdzlT/6gBfEvwfwiT7rGN
nOfdhx8Lyq61e56M4TBGmm8cDaeEWxZF60wOQXcNB+qxrZz0Xskj9SuEKBsG
W6G9gFNuROScdrxjkZd0zLkF+xQJ/tCun72XwozPVVB6FA2RDxxyzsF0Xwlo
/peKHt4EjUe8GVHC415o3t88GUY6KoBWSp3KQsPYyMYJnw6fviODYI64aSs2
V7LDaTWdEzGQ+UH+eOQ5ETXJmtCMtXN8rB3C06VXN5ps20g35udg0Clk+oSX
xqIBkThM6FzkAkFUVkxYv0amgzGZgtEcv5fL4pjrn0BFGZks54ki1FEc9s5g
V2vxAwd0xS2PMi79rr4i9RUivJQMDcD96tl/Eh3ZTzvxWX/jWGoeWxOMgwbS
M+xZLfrlCD2XfRM7MJGtUAZsXmc19zwey49j8yh4GO+aaCzc0OUgy1kGv1nO
GY1hDToE8Sou3QwtxPfOoHw+MCDStBv82pE5QCTkp2vNrGK7qONjY7UNrjn6
OQ5y4OCkA5r4HbzgO2TKMvrGpD2H8ZYyr0GrA6F/T1X4TRU/aYnaI750miiG
l4XylkBVO9wXVFScQgief2dyAffgMx/5d2zqkQlOBLseC3Z8gOzqnnN23so4
649czxuNxWinrIyjctzoB32jfqabS850NjXndlkQxmX7VIMrJm6IVHsflj2K
hv0ioPklg8gvYdZHXuE9hl/kGy38chWpwPuMx1sU7IOEnJkXeO1Pzvj5/h7g
nrEy04z75cOr7Lr7OEoeevrByYGaYrM5rgcnB28q84Ex9elKMsjKQhDY5Hry
7IXQrRR9c1V1AGm94wdGgtQ7SiOzcZtbQTOXTT/FYGhKm+eS2f4TUmqZelxI
KbheEwq5xT9LQZW4rRPUBFVrsGlel3GQfdt9HOUjHpp8xPc+xAo/sVeFVHfN
Q6L3lV0pijGzlHENbA/oWkrpoVO+aqTaptv1xAldh7Evxn5uQ/jtg+w7As41
lKPc44OTe7x+gPXbTymgxs86pIpOtTMXtMMlOFF0S03Pj+FKiKZmqHu41C16
mMYINaGT6AYtAwQbub9r7R2dJCgJf2onCdb3sYQXEvSShyMJT42hGYlZ5bIL
5VeYUYqw0mBxdBDmARyEWa/HtE+F34vWggX7kfyDec6Qr2kJf0xCUzKSChOc
OAYdzDNg6weYN+5+y8a20d2e31Mt6ZkGv3Xy1JNTtkVWNteDeJTvfQeYN29i
vZAlYycG1yaiSb+rs9hZsVwnUrIMV7IUEb5gnHPpwGam00bzITirqQudPCq3
YCTzCBFR6XG4HPaQS4nZS9witAGS07o7inRqTyJizlEL4qckogmKWE60UupR
TEGFK5VjOW3EH+bzvjQinm3DLyaiULh4LBs+O9ugncMrs2FIE2TSLQ9E2vA0
rSPmHKjasjNN8TVRF1M4ISpLpGVuwhftFWdAJEUyR4NTn51l81I7OnRue35q
fwDFEaCBSU4PYboMLl/Mg9mG9cyRQHcp0NSRPF2s4E736gGS8GO7k/Cm3SuA
X1GfH4RpXc6qgjCf3p5av5h8Q8DnDW7S9Qp9geNxJx5PZ7Y9N91Tuz44mjL8
v9E0TNEUdJdlYTtGbU8dwzJ5ml+WIo850IxV8MuyN5835TFK46EIC5HuuNeL
IdJRA8Mji05hevidsZqoExbYOJvysdn0TkyUbNQ5KLSQ8+9cvJt4w1RXjR3w
gLwrV650bL0QeNi388/VRvWd6Y5GenLQTkmshfp+Vrce4FMLuddq3xtfhvEz
I4VLfxyebIBfmi6aSVb0S2Vs4MDpDYil/N5e8wAPk8HNjP9Q//pPcRscpwmF
73nZHZGtBgig+Y817wz7l/DRKQ7UhvHd95O9JXFfrrgU5GMGvyUHmGzJI/Or
Ao0TvBdNOlyz1Zx7lyDlW9fk7I9Ov/UUeEUq+ce9kL8shmbBW/YFK2uW6Nvs
TpNPONhiqduyuy6LZTRJ9mUCto42bFKycqfUWss04k96kf7KfUw5HbBdQm4K
HYMj7LO87nBOKe0vPiTZEGUk73LCpebd3Zwmqau7IbUKZTIb0Wzg18KJNfnA
MolS97a83gpnXdbQXLIvNqEzlSpXSt3ZB3Q2zmQyzf/GfcwiHUPP25PGN+qr
plIvJtx4w73TUl7ErBpK53OUZDnbTf9cfz+pr1Wxn9wwBaC0u/vGLNqq2KeO
5Nh+p/HNmnd11/Dstt6lmNy220xv1ryru4Fnt/WM3N+Knbdf0v9F/esJl+7s
rfZnlIG9r4v+vAFMkxt3poXnWTWnWa0G/bQdeMt7eWaL/dNeQEF4++08+TQK
eHSfawNwfwugqwrkl755TYomPY++4uG40QCZ8kogDmISNfv1jLXgPJZvDzIw
7usEj43vSjcgcbankwIwHn13K6UuESk7E47Z4OHKAT0exVlurwzLTkTz2ZJb
kmhC6hxzhhN4V77Bu5FOBH+HVUlSGVWi6QJNfwwNtNmxzEYmK/B9safRD9zz
U/c7lPttXtdUrNb463DQRDeMoRvhDqpemaQOKnItlQJGQ+7/fbUjr1hV2i1/
T5j7ru4et1U3ElcnkXRdhKN9cmQUuBBO2D6sWzjx6+2PhmUItk/lMpYEHRrt
l9sswzKQo9zMqfFO2nq4eEUVv7OzE01X7Du63FSKkIMxpXAlmq/FUxa7wHqD
ORmBc80sseoWqiu8adGuO12MyKsiidmR7P+6hDVuVcvBm+ajuFLxb3GJ1DDa
FFBYg2NMlIqlGHOSnU2cjkYfORsonnQNFauyq9ZJhbcqZVnYEhC7GYvoirLF
qNvV2cEtua5Q8fRM0FV1y0KWsoybgjYXxas8C0lpaFmkh+KA4yRBcSmOS8x4
/q5W04vU6c5AXuSlk6Uo+ViYyxhpWIziVMskmUrjSd89wC6eN8oThcTMmFv4
MikOw1RI2OTa2SAsCJNgixZ5UZea2xbOAqO3rQUB8mliNiVUDt5a95PCIhuv
RRNby/yYyFTatlyVXKLl/JcwoayNDVG+oFv1EdnQ/NgUzP2zcSNaqbxBDPW5
F2eOTzBjjmwy75BDHUjtyifzWeai+YMoypZU1WzJkphLod07zGjvDlv93GDk
d61yz/JkdUbTrk7bSOGqaL4WT8qW9Po4RuDSZmNbsvaDLen4X0WP8g5+SL/Z
EnMNKTZuQepatjuo47XHDomdI7pd4pda2cnIzVLJpcYqdVL5G/bUMwnwJCGH
km13N1pMT9F2UVbAzSlctLq44y5WHzlHg3NO2dcur0YqnXpXfuE0NMPF7pfA
Y8fPsozXriocvjMEcrN+rIaCbZ8Lwy6Wa5c7CNSG2k8VJXiQStlNJCy4//fV
kAob3gmXOvcjF8n20KKsY65hMnuSA443zfGyJ63McBlX43CF/fneGLYsVS2m
qugSTnsXUveUyOp0vrjsiQQ+rk4JnHv01rz/xqTqIA8wzfBmLAXr/6qUMZvB
4fuPx1c0Nsv4P3vkf6M5rUQ=\
\>"], "Graphics",
  ImageSize->{651, 125},
  ImageMargins->0]], "Input",
 CellChangeTimes->{{3.440224953770976*^9, 3.4402249548200073`*^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", "\<\
eJztfeuvZcl11/G555x77r19+3G7ZzzTj/T4MQ/b4ySaxE7CB0isMM7LEXFE
aGyDsCJCBkKcOFGQ/MX+kki2BORb7LHA82mk+QeQFYMTEFELYUCCdAQIG8UW
IGT4MCIJQpBczqpav9q/qr2qdtXe+9xuR7Olvn3v3vVYtdaqVVXrVR/46C//
7F//2x/95Zd++qNPvf/jH/2Fn33pp3/pqRc/9vHdq4M3LRbLf7FYvOnnnlrI
7+eLBX50z7+UH/ym7cVn3e8H56+//vr5vXv35P/FWt/dv3///BOf+IT7yxV+
jip+0v2+PX/ttddcRfl3584dV+Hll18WMKWBE1dsFV5pH0vtQv6UbuSvjfxc
upJpZz+jxV944QUMYvGY+7k+/8Y3vuFalhH4KjusSaO78oSqxTGNSt8vAAYG
IX8dEkZkQLv2fSPPEkB/WTuX0SpR3L9dQzuc+Aa487X+fOmll1wd+Se/P3jw
YIcc/00G/uKLLzpA5NvubwWwNMjD85gfzsMAd8DvyuxaW7riq1BZCxxo29Kn
IADPru9dvR2EO4oojOGbwP2Zz3ymh48PGcg9KuBBCPnFL37RvRSwFgGeg4AH
YUWMX9oVWPDs6vqx7YalnIa+V9QM6LdUDhDwMVRpDhypLOj+3pVfFqC0WMYV
eGYEOhzL7yAWFAs8Au/uHzAhf+p0CNiRJnUI+q6HgTWNVoYAumOOyyM9KiTW
ZFnagC0JCIyravAQKdI9hNhaqa4iJupX+df1vWsHg5fXQMhKsQra4UG3Arry
AESLmwvnQWzhEYYWPIETAhP14Bg9/jzx1659kEjAEGqgI/Qtf13Xd1JWysk8
hbAicipXbK12A4Lkmzw8h7+P2i8tBY83jg88BJnXzesDh3qFJUxcmXEqcxYn
2gbGIXJQZ0UYO4jd8c/W6tPVF4bAFLDGbq9HtSM+TSi0G10kjlRy6qg2kUQD
BXej32gVXQR0SP13rh5z3vdqoaHl7Ia+g4CQeXhM7zCey/pOsC7lBOuYitK+
SOluPIc8RvcIJVU2RZyky3iADVQVzuiR5t0J8pNlbRNoi0fXMwhxa8kF+9Fy
FpBCUnJxi97psqTLjocH5U5oIAaMBwxjwKB0DFIyyXXF6WPi24mV4pXtgFc2
fXeE1SwgpnY5W1GbqbDmHdgP0kB0gKEuL1OuNG/nvkPHnFmgLCmLpa52QfpV
6u475QdJ/3Uk/bVqi8g/k58/Hqb+02lfiZAGTkYIacyaIVK4n7/SQ7EtOAHP
WMH5awYpM6IMvD4kyv4MjRPyF2DyeuTa/4Fe/2XRwyQsiZ7v1m5Bat2ELj37
7Ho4pIaivd/39yDKyoJ1JK9UBgRweP6/RwHF7g4PgwxcCjTRdPtzBBGQOzRP
n6d3g5CnyJXGsUPALo4ZiaaS9IelowfsL2qhoe07DpTSELCjWICsgLxTWYfu
QRiz+4+73wdE08ZBhh03YYOxKoAJBnnvCtZ2df4sdftL8oNE1FEkouR3bFAZ
9zyRFQ8N3SVSCqyEoZ2T1IWkUwm1pD4gQHp9eEyWt24yoPiAc+goJgzD0kcl
Sn+ygVwDOynpA9vorfEuwwZ1OxreWaFxEuW5xht3C9IzZA4PC9uXHmo+pYWE
eSyRGlVkkeqeiWqlR/HFB9x/K+x4e9ujcy+8Fj/u/jNmEBfi9QML80rJh8PV
rqOFJ+mJKydYZ60DFCtCCXkngHW701VY9HXd8k1teYfumsCZWpv0tU9cqyIU
sFvi4UK4qoQMKigaDSSgjuAorAr0LUDtcbLQvfGbe2qj0sgtGLFCSFmUieG5
EsEDGBJM5vomcn7Qg+5Pc3dYwRAq87YM5MB7lMUeBaoE7hh0Wqj+Du/iFfRG
kCNoE0TC4QPSH0QCTPKNlyoptyvjaXqJN67REOThb/o7tsgqQd0nIYcXUrLn
eLs58hKEtKS4tkCKEjgWJnNYt6kZq4v8uLxEx9qKvhWmIB77erfDCDb0n+6B
MLauP790Yv3e1WP0Ytg4Wm+nU4z3iX5Cikba0u1dijCZdoNJJxiOutlmoVGk
Yb1iXHQE+otMoEvRdNMdoesScxd96WbPi5djbK3c/1idpQroGim4Nz3EKGi8
uRmgkMrKcPbnjc/BFKptLao5aKIhr8KQIyDj2gIQFBpSPHRymoXFQqB2HMaK
nmNC/gQR0qHQz52roSts91hK4ZQCacVzPKLZE2GVEahwbuHmoMQkzUzgnpSR
WeetdUrCEQzJimTtbknQWWI6N+gShDJKfFPk+G6u9aDBxsLCYabr3FL3uDn3
cFpK+RdaAZimUAaTHOvtDgg3OXaYBYzyGTBi55I2F3Yt64AxrNideF0FWuoq
7ml4g7fRrnXuFVpKbPbZ1oVy6Eq+BUguZ8dsQBjounvnp802iDALmqCdPO5h
sITtPhWPeywijypLmIqX3O8Hgfk8f5339rnPGe+6vv8m973pbZaUEEujDfTP
2uWrRjlooQVbUEvcMsr1YMrvx9dh/oMUsgO8SwDh3Qm9Q+c3jXJd53/Ld969
eMSOPO73KzoE1qM9b7x71nj3LuPdR9y7Q7YJuYfL/Gvqn7S2ytFLP8+69QXY
xgaMzTCeJbrzB7bP6A5TVyQFzEVpWS9FFgs+neX622qv7NgAkcGTWGcm24Zi
s8GxJecssNcGFMeNI2mE2rP1xoTQKXj6PfgZdpJqR3M9uNLLbq8SY+hfMX/E
hnb53++1xHzm9gPBjgt6sbUCooXFQ14E9TdcmO3SR1hV4i62OnT2woAkhW0M
R2sVikEgsZYe9kHW1lrlrhbR0h9aHi2Dwx0ztJvKawZ4VhdHOnaGJNO0+531
aewnBIx9xVf4A0UVjr/gSTSpW+BoZZVmGOLd32yhgP76QCHm3UJlNxF9pItu
AxNjYHp7HuZYdB71vHmgN4QevvOc2Zx/+ctf7hGdnLOgtBBCsLEdbAoDv+UE
Zen6rTbW81AxPyvmpuIRY909kGvAsB9+M4avzImJPpR5PlixxlxGc2BAB8MH
O4DJo/RVef6HWpPOOD3lCBt0rOUHKMW5M5zWDoNQwlPXzSq8U5Xikppj0VjX
3FHanKsnqIMMlbIrxReD3GOANWtJ0EzgHRBWHkG7Klgs90I2TGJ7DyqyuSs/
i2tptrZoVliUxhLtUg2WXXuCFjpAjsAoDkJ1kJ1mt3UpdETv3qjkeeWVV8Le
jhdDAg0qLFrZ3aPd6LT7Iy0llXhyKuq2ihqBDyd9hT1wSZ9zss2xdjXecGWr
HCoE5NoZsGopWGmI0TYAEkl2IVh9pD0VXOGEZvG5NUfYgIqhbLJ1s8M7NpoZ
gVjfy9bCkgfDN9+KjGs13LFKe13qsp9OX+51XejV8puxxISeVMHCsARJl+hq
VxQsDEsADhvSUwnTmeYOdcx8GNt9HqgFyYvTjiz0q+wwt5Exh1GnJ6S1AoG5
rcpYPpNCk2G5ylrDtvh52dTewOB7KLPGPwKNQBkrpOtRhgO0/CmCVM5Jzs6r
e+TKIR4VABug5coGzKJRYRJ8RT/Bt0Xm2LPK+Vg4oC6W0WHh6juW2eWvFL5d
NdrC4NUAHY77WEjUdsaKRKB6SNrCepKXtvMM+bIOAbp/iDKcS3QItwaxNogF
aA9JUR/RGiNOaM0IAq3ZfioQyUJ9ZjSVRodw+SuFb9eybR1Gpxk21XcrSf3W
k4mUX5LnHO9h5MCYwn+rUP9qxfjht822bv1Gu7GvaC/ACNRxshN9RltgcQK7
3Y6vMAnZNfKgXOVy+fMVo0XotGvJyJ5SFhm3sw/qO8ufn9LP1KJ7FNCIDpto
Y0lbqqd1PNhO4MEWQwgO7GHqd6CX651WlLlstM3WBmB3Q+/grA9Jym5mh0bd
7R7H+B0VZb5NW2OXVchEhl1Vev/M/Xc12mPoOhiahh+kvMtQ9u2umWO4rYRJ
CNkPLyHd7XpCXGZ/fPdUVj9u6w06YPb+f5u+I3+WgCb28Tu70IE939bbbeVW
cmF2jw5ALUL/XBtlqzdggqiXGnoGhpGINFlBLJEfn7mhRbgEuz0/b7x7hrAP
TFvlPqwDxKqBR+v9Gx7gYfAUTVxYnXIhVKXy4F+0zMq3J1F4B9fux2/6P35H
4RE8IPIWqoRd79iPDKHJ/fzv3ORhjzrsu+te/AmXtxyfDgJ7nCdyDXP+LxDa
YTb8HuPd0nh322jv5/UdmSUX/yQGk9Z9MwLN4dnZrDzyjk1jF5STmA+797A7
UuCzKyrMC1saH0Se1OYnGwibLHhPKpTpoO4j/FNd9jFIso6w7c5LsG3UM85s
UCLsCLAOyLykoFq2yXud13MfQUcBoWBYA/fKXPVGZpi8Kk2lytQ7SCJuWgUi
6Yq0dNFhB+z3ungzMR7Wv5K9kndfMOClejEBCZ5ROxDZ4xzdzmE/xAyoNPLl
weibIHXL3XnMnAfujkPY4ndACNOLVa468TEYxjkGk7NyVuPUPsrzu3Z69M3c
vo0rLUbZwBqwnP5j//G/uP/OODwndFVrZZK/Vb231OZSpmxpDnV3TbJsh+kt
nz5hj1bC62OshLluTPusNayVsmVlfyVTMAIBWPXKttf8u0vV2211L7QijOD9
yWzWgsXgOiazdRNtnIg38qxxNooDdfHjd/mkFTN5GmzZ08CyHY8wHVvhzF9y
P3X+28K1b+/q7FOsJ1ss+jaq++yuW2s62wbTFtAHh1P1FrUI/GjaJ/N7t8QK
mOfZ2iEd9YggXXFsBq/rbO613sFPZOgA5tEmrLgOkQJg/C6I+DBajWvQd6D9
wx8hnSjEDabMbGOHw8Bx6IuYt5C1YpoxGH2QC4N7p6bqwKojbNUcXoGtWjLV
mckHLI5AcLORcuU+C4y6j8l7JezbagrToGVbzjNQtalaHuzVrJXPEi0cyprT
AYDPKH65YL4bMMbPQQ6LF0Y3s7WcDXz9xSgjtrXVruD7ov03jtNe1VRZhY2W
Wp/brLUXYF21jJht2ZcGgUziMFpnRUnThVmBRfR8YFYUkbAvYlncU4viKj7Y
Wn4OYZLt0L+k8WFjkDePW0I1mTv9oP92CzIS6PSFxTym3MeN9jeF8hxfElsQ
43eY+Bk9KhT2jKJ0AR8Cs4SGVrTBHD1g0Yaaic3RxpkgNsi1m5JL0M9h1i0R
PQ+r5cYQv1srpCVNN1DIeGqFtYSLVtzBRF0ycQNmMlGnZGdzLnh/nHGZiYkB
zG8MzqMpWwVzloe6NN5Bag/ZL06MuiOgHsDNCHS+xUBnQm5WCuLQNtV2DdF9
Ubbm60Z/hxX1MBvY1mzZn8EHQwYi8AHjdCz8Nfgai+e7NB7owFUh/F/1E+eT
4WDU+S3eT7YVn2i1vtnWG7bLbGa3TO/I1Fph9DnRARCGWwaA4MH9YPeOjo2s
9OCM/6afpCVMjJ/Qd2wHf6++Y3v50nh322iPjbRQR6pZLeDpIcfM/pCCyLZl
KzT20Hhn2arfYbx7n9HHjxFq0lSrXPd5o+6RUe4njfbSHJcMH5d7p1FOY53f
L/85c6j3wrJDVDPmZOCMDdlL491d97Nk0o3TVmvzur70zcaGTb3ZbLwKA/eL
rh1raxioIZEqbNmhi0sjEXBHaZKC1tHE8IgmjweLDNVuCm8ZMdAb2W5tA32m
LW+gv1KA17DsQ3OYMjCrvi0k/wjNGGy6vKfb4kX9xAsvHP1mMo1bxvql8e40
2229IdrqH+32dVKxisYyhF9p7N+y5VvoxLzPGcxBPZkAR0b9WuM+y3fs/+D7
MwWneVzlfRYSVrFQBQ37NLaoI62VI7sWhTj4DMHZQuYDo5/LitJ0nNjQJT4V
dqBbHUXfaoB/23jHekO880JcZcm657rxUrif4YAtTqZr9gV6GIABec2EtoSl
aGkIVjTIrNb3TWR9l0eH4D9fmeJGUJwqfaLsMXPBNJ7xCL9UDV7ku7EOGCEM
FbwqZnPc4KTlOIEgNRvkCr5B6QfvizZWsQaDXAMjfF5MpxeabMjNWUtSsMAj
MOdqJ4TnwseDGg7/Pv3pT++LNa4pMAaWOGV13ntj1vlhQbickwZHbGXjz/X5
ILLz4XHFipUGpHQXkuH7tEizpzWTpVuFhdOXjuvjhMpYk9Akmu30bbryHvV8
W3jfoPuOwgjb/XvUhB7ciIDknH8PW0ZhLUWbTOsc7NPTQVSn8LDAb3MeW6Wu
PLXSpY0ajUlJxjNJG6JXqcNUyfd4fDdlf6n80fOMXRRdHcgQSMAJfDKFqDl3
M2uKtVAUZS9mmtV7NVq4gsWAWIXhm50lsLbmcKP9XtCksDzm2iRP3smPHPMi
jL4+kPEFgh6YHJgAtfdPrRXx6mcYEJ/4GR4o8irosVaqkOEztLgDGntTi+uj
tdTy3uld5nOB3npDWgqgKIEwH8Q+KfkOQzgi+c4IvJWgyvtbVVFsAB8YwCxu
hvZMt4hLKqNIbuLgjE1pLZnyMr3aUVUe8GoDzvMusnOwq+WUW1p/oeuXGQ+j
D2S+dgF0k9Arphvgd5ZilsvB/W4mRszn1Bn0dzWcVjkMwPJ3hfSs5bnHDOjy
y0A/vx33zdfxlZBoXQCJsQhGoOnLcGDFIiDvpLQe7Wp9NOf3Va1dExKADyoB
rvL8LGe4staJAXflxKF4Vk9gG9iSKBtJ6yrU7cUfN+8obvHGYXDDD+0vgjdG
WGLaKDyZVvCFNrPnV5GptOLsczI0cO9RpJiSR1pMDyszEZstHS8U0o2VTiM4
Bdyna9z2MA3y4A/iPnEiRwQfH3fkSVzQoX2uZXJrTcuTedMjc9kh3rogr3WB
Ye9geaReSNO3SScAilhJDfzeKiyGlkM5R4upg2Ix9XKr3/uQW/RBAY6xqdoY
jpJ//2NG+6Vxwmo8BY8l+C14hh3zY497rAukfOBdoTMmn1I/JbvcnLjYN+2z
bvvOT8fcbNUj1UpVyOsRAd5K86tGd6tB8KpzAzKJ23bzg/EefH3xAAJwTgVD
CrDILhZ2ZUcWH7i/KVGGOlgvntJegBo5ZR/QO7CkdZoAHu4ZURYc6aAivTg1
aiNC8jcg25EpFhylKZGP3rDgsMuXxGEpsmYKHkvwl8RhCe8ciYJFkz37sF3e
wQh3fUZRXrk1Dxp4U7IPsueDgg7C8Lu9aT0q8zk8vVZc4FWYWyl91eiuxKk1
qTOhV2LS1qq1N9p+Ke4J4q9i6BB/muUgCC0VrhB/BvFd/dcpV42Kv7vauVSR
Ty/5aBxHjmXI2e9+wyziSKLLBpAjApwg1F6iWKCl8e7U6G4gzOiy0d26XOW6
0cvAoK4avVi4GQDW6nmgClDCaAJ3MjRDasbKQR0b3Y2gSj4wrouwEtEyEORn
Df6a8W4C33AzA3xz18BXraC4bbzDbBfBlTqv3OvyJySpR3Ri+wZPwrYHJ36E
ZGPtYqdb8Ag7nt4w3gE3c8S08TEfcXVL492p0WdNPNmp0ee6ot6Z0V/NGPnK
uhK+amC3YKiphz070xb5/BgPW6P9sWOEYJiDZvmYwzi2tSZ+0cIF8DoHrJeM
9jcV9ZBfmOnxGMEACXhM7wDXbeMdm5OhzIE9O5NpRSUFY0NVQt6ZbakimLcP
O/Hhz8GHIcpRT02uiHp6hjNt4vzGBys4C0LAcFSnl5qTIiGx2eVkxUvjXWNX
x0ZX67YmRgWVxvh5c1sTIwNL1beS0DRDTud4IHxp6kiKYDJA4d4RetKAr0+H
7NhotpFXcIEsox2SnAf8XTrf1HvUdbkrn0kmoxP/OjUOMY7zozQCRzI1lIeD
lMCHb+pwFiZ84phjeTBxBviSFntDdSEhOZoV+OCV4fUQU9d/95xR931GHxzN
Chvx40bd5426x0a/HzTae6wAH5d7p9Evr9op/jg+x2Nb5etRWFRYmmNxUv2g
SWE9MkcbNdhoLPPaeXg+66u7sS47t9d15KEoTcl6ApsFu5hQ95Y5xOr9WldL
ftyVH47Pf/Q8LKYB+zgPiyYACYg+o1fQq3UGfbB2OqOw5V1rrICtzGTuHqR0
b6LuOlCVk8BwXGycsKSnbOC8AZinHUzgYNaRYiYiCE2EwJMM0ybyuiO/fF5C
cUxiCQxQv0m9AvVWZLhrn6OOSY/Bvrbqnh4yTMhIdETRyQflLvNoDlkEuwcD
F07kIHZIUjTJG8OvKmYsp0yyvCn3dASLYretymxt1unhFdv2pceYw1h9OrG5
6weZc6yKGfMgxg8xL7YhDi2E6Pqa4rJwKI1MqCA7LmiAbQKwy98U7Qgtnvx1
ytTrnOiSzW0cXwENBO9Q8I4X8a8qJYyg00AJGY6q6Q4IhuHI6nliWblcbSwr
Lpyiuu5JLCfHWozd5pH0Dl3sin+NiqmQD3OIjg2WF7aFnBOlBqpCgOEMJ/IH
koW84KHnfIa6sUw6KP7v3M8bU0OXAt40SAujpEi4oPJOzkgXnES85DnHa5Cf
L1cw5arBwDRl063lVdKPH7s8th9f/Qqru10R7IJRlZMjwA/i1VdfJZtGDOrv
up9HkbCVf+xCr8l1FjAWM1oZ/bHzYT/k0e+p85vivp6wky/cF6kqo+RAsarN
DimzQqV1OrmO54i3wlmBPAvYESuOxq7y+7/I8BSc5jDTsX0hZmY40rgKtofL
31Kdg/mV+SwRmQ8DOa1qPs1XjSBy+c67HHhayQPpTSEf7rvOgcXvKTawshMv
uzJYEvVv3tLH0yEOCyxl6GBiwJrBQ5fnBZ8CHM1Y3G8FgVjRLMz9lcET0LmB
UF1kl+0yycermTJTl+zQvF3RhTwcxSbGLwx4n8PNN1FKwlMwZSJVQqSzW/76
PUVMKWc1u8SxD6BuJ0q+krV8RztE9+jUSndagmGYfDPxEdyj3/fELDfg/sja
Htp7WNzGx+n95oNu82ruFrNOuTST82trmmx0DikG7lI5gs6JqRZwhAOTYmFH
Z50M6Okb1lm4YwLmibXtOZqyZ1dQaayjAEQsfNCC6FEp1duXGbPsS1mhQWl1
ebMcVDBDUb6b/PVeesNuc6tAW9UiIO0aHydx2n/Bzs5suQzVyhzQCboRnWyn
+rHkN4mVOEdDy00GNKzQJLV67Fg0hJ0dfv/hg9/ELAvN5V23yg5A6b5Hhbc7
q0NrkS5JrGvjq9Fij+H64xZ2kV4o+p90JlggXivn3qOMdEpEHXByYGxNcFux
vDn0Dj0xBjr8hwkTJFCTV8eA68VlJZFUYRKRBFYy1mdM5u5rSQljFCOUN401
FmUQYA4PAsuSDlTKOKDEQyxkWO/ajeo1Rm8kaOaobiaTyKmvUdvp+a2f0Ljz
X8aDmat1oRu07Odse+9v7ZvvxZ1soV0FxOgScdDWimXHbDQ4HiuFZG5BzYLo
Vz1ILf6zAsu6lHulhMK2FR4qRfkL6jm2c7Icu6vfWX3HtgCcH13hx6lTaLY5
lS06uEwduOfhZu99P4EIG8RzxrtD4x3jFPixsvf+gPHuA4RH6Cb3lb3Xgo/L
DWXvXVjpVu08vkvdE5MxBQaCBbb61JY8ZGaxE2dk7lgN7eaS+Br2lnFJfJPx
P6X9sVO6/G6YgxZIzg3YMO6MLWhSLl/YaywcuuOE39ywCamzc+0hnW/NWK8n
HDAhia9V8WKT+LKq0EpHynlu2NQDtw+1XFnpQXERA8eFyVNn3arOYGp1beXv
LSWTqjeu5fP3DtmlahK7YhvzrZa/17JvyqOHJ2ztvpXz9+JkO8S9U/P3+rGf
ZOsbMyDyE+9suXVkfYsxhjvGu4okvqlp6qXmbJyzJPGVrmJzkJXEd9MDV02u
GY/UC7C2stbPAhxp6Fq6A1sLC/HitriAa4DttL21XGLph6anoI1zk6byto+K
NtsysD2Qpq1vwj4NLilgOVgHEf5qYHnB6u407uPFUhLfWVlWrUJBe/anPonv
WTh949+YJL4NPIKlf5JTyAUl8x3ZzfWoG3lIGrq/sUFAlzw5XM+0FAxMjFI2
31Lo9VA+YeLgtkTks2b0ZaTJY9ms86OcntGXPDRM2zhnFWE4FQUZB/HpHhxH
5qFQHkEm9PMHBsR5H4qHcR93c/beGoaYnn82m6h0SKiOzd7LsiWVS3yawLZJ
6vAshdSFLKrEqsXS+0rJjCklj6qr30jgOw9XYE29EOexC0rim+nmMRZwEVJT
BxhMhVS0A5k0DUzRbh2wa+ZG115n2VA4S55X+8nm++eztJkj+SiHX8JhPhak
9T7ZXG4mtzCoGuE5TULSBO+gprmZMuGWs4hWkGtEEuFaN7mqAdSn8rU4QN5h
9/9GKt828lxwKt89TMwLTOVLmxzmuTlS+ZZoY50bsDC9HFIJV03qeTL6lhYC
+dvwe5vFJfIg2IDkQJqfa/WLAtby+/N7b2K3om6JeR/SJq/MmVLb1iQcrqDu
zPmaJzm8TnZuZfmWXm0sZdTnIywxJdxZvDYRSW+k8k3MQxeeyvdCBch+U/mW
k1VjQavlcGtBaxMNlamFJwsg9myUR+oF4dxrPVnu2M0YOnrLT7g1X2przt49
+IG3puvNZx8rt1+LwpKyudaPvQSP5bMOThQYMZ/Aifh7xytvZOxtxCvYew9s
Oy5jbzkjs+WHXrtj3+iX+/eLGYHHcf5Azt5+c5///OcXlqNYkoq8L3bmSX6a
z7274T7dc8+HRTQk8iz13JpttyTNrPJnVL4GcyXxUBvRUYNpDtmAEzoM0QIP
O2s+oMxrjKc3Uu7a+GS1+MwBPONS7mYTKcP7k6laq38+1J9wrADXYK52O8BW
Th+Vcjdxk0tTUbAvNHaC7PeMUXMcyohEpvl8uxtu2j1a5kp7LyPS7J619wJe
Y5SMSEFsScw30uy2DX6mjMd7TLNrkeKO8W4gzS6n/4ZPlM7kW9oPHE4ALNTR
aghyC4TbizLuISt5d4a8BFOTkXJgE/y1qf1Qb2p42djkutdG9scbdOBqbDLi
fJLZN5Lr+r/G4QK0nYO/9p1c1woOvGO8Y+sutqCxtXptOXUsolzc6yDE5NE4
kLCj5CGCHOzEwBkjR+YjzafJ3XCz7lGPgyfaenh42XEnoOVWW/E3suOGwU0K
eX342XFLpvC63NjbyLVVHkQfK4SY3RUuvlZogBXJ+iwNME4Ju+FyAZpd01YW
2fcZTV9E5tsbRt13GOUsmD+smEuMSIPpjA9CXFuH/87RqjNCV7mN5X1fh5O2
dnwCKsKjmmvwyhOled2ExQtEVi5nFQTO21gLS0Y9NtJY5TSb7qc+9Sn34678
cGj+EflNs4ek+X27pBUvu7y+3gIkkGJfTOF9FlSY4fcpxy+X67DIGYYXcT5f
bB0q9LZWZhT2198jRVsT9x6m2hpXV8m++PuEB2gRPkKkhgTCMYQ1EKUIcq5r
RZBbUepLo+5vGuXeaZSLMu825RHeGu/+HmEzllZNAcq8MYHwKQT3Iud+Swhy
Z7TooqEnBiNvzIr37DS+foh14etWmt67ytNp/XsuIaafEFY4fjdapKDFYZuB
RgDK7u/f0GIDB28Lxpt1VY8SkCangeajyN/Vd+wSfKL8Uhlzmw/bbYsxvant
WK4k1jsemhX3uzTe7S+e9jhbX35HgpEdum5VDhMcUxe2fMR13QPJJt2qxji4
sjMvo2w8nG2P30EqlY6fVSCtgyRflwDQ84mU7Taw8PRBm55IG/DxZt2L5utR
rODEmL/I2gx93ezhc4eB6fBQXJsy995jTPOHiz/VMYWbqBvs+XbF/KScLZAa
5nAjkLUOjdcnQyK/a/eB2v3QcRu34H/0w5sG8hLCBtnaaPvpeaW6KXmSA3Cw
vqZY9HGUXnTQ++oE19jLJ/0hMWJCJGv6FDLDszkOxf3m+jBaoUAjbABmCATb
Y1QSx0Nea2qyPQ6LXTDTg3fFIftbJjbrKO3GwZpm1x6LbbTL2IZYSvlwD4G1
KRhGsnZTHcJtxi4BVx2YpQTjkDU4SvG+fAfvr7tmLg02Iw8peNiyr0gz939W
GG+pLuuQNjYrWzymoufLWZYcFb4zc1zYtZqqw5Erpeg3fvcoBtT0spOftePE
cn6eaawwSwFIOgAFPmLdgzwKBmzscGfBo9MNPE+ZGBa/Xq5S0kFaWa0touSn
3xHbCdxj9bOhNlO9JvdTMf/GxTHM4jzf83oH+oZc/WeKLGidsSSeH9EoAl5U
KIJjD/gscfoe8HRoDPA1pPwfnPxYvXCWejlOaY+sH+dh8m9zVfB7Rts/JAPx
Lh9ac9wLrQEEmtV+AAK0zDSokAyWy/ocHvx3C98sL3SA2ne5fyQ800vDsdyZ
ZwWz74+tYOMsiGVRqn3CTtX/G/VFsUb1xzO8lhXT9lddKKn8+VvUeOqHPIdP
9t3Ct7y/tuVH/Uj4HJeGYwUPLecB04ohWBqgw2UuPdRAtyF6lM9VlIH6tj+U
WtasvYSg6gLRhFfZxZNPOfM46H5b+bPlwgqmZWPh0nh3MW6tAwO4YrQ4kzf4
0miavTh5sw8BKRrJz1WUsS5TqGXJ20bdhKfuk0NkjcPiWKfPOxVlLGdIViSm
PikP00GyZjyAiXE8zTH5kK2g7rHg5kxBaEcla2C5UhncFEpwu4cdP+E7wOOA
jZBhUuPXb7v/Lve8JPfjYXizrXj+1ofYALc03l28z17j4MBwM7u9LrMDKV99
8bmKMh7kvkutbvaeM7pWNvunNFj4cnxY32FfcX7eaSTZZLE03ll+dZbfn+VS
uDTqfsmoa/XxiF2ssZcXiD9lfymQln2Z4PJP5dzDPlDWTR3vM9r/MaP92ps6
jo13HzTq3jDeWfC9y4Dl5zxqXMYB5zvzlHvRdJW45Qi1sNyM2m+lgM8JoEG3
GBbrBlhkV3h7rQLAbylUhKIIAstwE8OCZMAUuhh7K8cdpUaDR1jnmXWSjLDu
0hFf9lLt8AAqmLBPdfteloHmwqV9eYzFd634SXti8m3mDhjPuD9MswLLlZ8E
ix/UT0OeUf5sO3gLe6tD1pBbkEfRtLsk+KBUUhzP5bxmxc5MdTarvaMDpw2L
TKDHvu/nqHR+K93PMQfqsPG2UGcFZpbsCzx0aGbqnPHq7xCx+jotttEn1ZHW
YvJn2LTHFm81xnDbeGfdzXHXNwxhMsnNq81BTf5WEzHLHi0SiFrnoDbHfREz
XWeRTSfvP89yd4kl/Pr02IsvYkME0gU5BOa1j1emOMwVp3qfKy8FsYJvsCzo
pqGRW/KjmtvNEeK8gqKtd3fkJ9vFXM7i+78e1Dv4N+Yijhq2YF/Ka4qrWsF0
wfeWWCAv5+nOc/Y24mzjTgy+EoOEHAQMCx1r2iHgKaWtYDYvebZhOgISGSxN
VViUqmXZtEs5vAI5rL+zuzKesiOeK4y/BQLsLlL/wpIfYx/E/V8dUfJ5lYc8
Jth4xD6EbW6YXX551cbVrrx7cK1tiCW9IDfXObpJfEGHRFSsdD4L3WCeQVpg
2ZvAKXN4utY48TbQteU2j4d4Rcu0yzmaeIIJdk2xUyOF8im55r+/ZLoYyt9F
xD5ifld0tbdtZ6PWK6+80pP68pCgsYQ++3kMHzh83trUc4amJfirQmxNuKAj
WVMZ9lkdZXvevHl35azrXEO2+sqLGGrz7g84hluXhV7YRSF78dqe0Iw1q7np
dKazolT3pIqHNhrlHYRaHc3zCfdtp9j+iC/ympSJ93BsjW4s9LJnZDxf93Xp
yIiJiKs4DJ7hwBkOU5VXsnMEu1mTz2LjNmmf18uD3dlNtzSZJ97DUSHvsZO/
v19X6d3vE9YA+Uzhj7NeJ9F6QcPgsNlE9mC22ymarwu5sGiBWa/f6KEvzzXl
uwn2dftGJZkS3m8lk7XI7HMSPJyrN3q9ltA0FEKSjzq94FtLRtzgg5XMYFYH
iZ5DeLuxWIQ7LyAlE9FgzRxrHcsz0qZH6qRpnnA87FapAx5l31Z5pF7+2o1k
ddtDdEY+QGTD3blHiZJLsn9/xG0VrbdtPGa0Xxoe2t8D5lpByWO6fAtD7S0b
M6EhHx20v/tJRl2wYd0VYwVJgJ0s4FtvB2llVw/P4C0Y8PZm1mjVvgg4kLvy
8N+JgCEM5Kk3cMfGxsIne34hgF4Kq6M9GzpmDuJpjSNiAqaqPZhoXh9xX0Xr
fRslIVIKMNoDCltBsVAO3mB3PrqPofaWjZkwkGeAfV9O0n7BBqMkH0U2z8Ug
rUx6VVtk66n8j70bB6wwN9SKMARr4ESB9rH3kPYb7sOpumVjlWJyqTE2GJjW
Vm/6t2s/7PFsaS4wiSaGfLVGmHG5EXdYjLhw47rRy8Cgrhi9jMDNiJ6nXLgx
YlBWMtGZbhYBv2NDsVhUX7jB0EDCMEJGBACO4JunCqQYkhO3jXeVF268TsnP
NKIEkehQHqt91U0ptxfdht84J/DUKLvWyD5QmpmI+zys6HPs1RpnRn81YwSc
c+BrLAxTrtYYO8Zj4938V4q0X61hXeUCEcD8NTYicyx/4WoNppGfa10uPhUK
1u0at4132Pe8bNyucaTfrNRjus7f0TFLdSQDwUmGoAQhmNAQEhNCIlujLycE
Ms5wu8bI6MsJ+JkhmNW6XeP69IEcG+8e3u0a/cE9bF7h8HuQAtIY0SXyl5dD
vds1MHNhDqGokTSnMNRHd+KcwkdBV4H1nv2Y9fdwkEwcQK14BEx3jpHlmM2a
+FqOfeW89+m9Glx3jns1+N0HjbqPVcL3LgOWDykK2Ty0+6abLj4fxTsd7wEG
BzdnCvAuwqCR7s8ybkSWAxO2VVhGcrr58/DwdYppDY6m8YNUvGdv0uBzecnv
wjJjZG/L+FH5TRVqbgaZt2Xw8K3uMTXvZ1JXdSh5mbpaxNdiYBWs0Cpb6Ycu
iDz2tRispxlQI1npaM4JHfJOdi4/SWOEPsCVe5NR+Fmj8PWYq9jzjfzkOfc5
Dl280mE0/8n9zOcKhsVK2eBEGwIXoHejaGQPB+GfUWSnkbyewzyN2Jj5pJaH
mw82a/fC/Q5GLDeudGAfVYo6hrD5fSVkcrSzwEaiDhQV3nBi0vUXUaR8XwO7
2UKyYYLw/varOu7aAMNLxjurnJU42QpwxNqfC8JUpR/26VbIKKKKSWAEVhmI
Kr6kXEbvXFVs19GcLMagYrIXtwaavZsARiW2Rlib9zMmdOXFBJCbvOeDWOF9
zr9VpM0SyBNHiVY2GTFMKZ4QWuApcUt4x2Ldo+/0/GMf+9jIuK84gg2bi93/
c4WkgvvI5R1rXS4kdal8BmjQJOdKgDH/1VdfJVtAvNj+ewWXRa3843hfaRdr
VbKDzRHtNZfov7+e1mbFZ+9K3RAHNXzFBtkrGILmnPecrDnHvvF3CemQqeMc
8e04+uE2q+J+EI0BcYmnLd7gKJhncSwD5uqiNPpBJlIvyf4/QzDLNsQIYPok
gSz5bfdJL7sgPIPkkSGTM08IncMxUsD6D0pN2G+Ir105T/FwUrD8bQ6YTtHm
t6RnhnoupbEMRgDhiVBxDNGJ4Jpg7Xil2/CyXMVyU897FDb4Nm9Zykb8VfC+
ZvUbaDYhpXxDrAWsICm36P4y5Xv56z8qCNjG8eqCuVHKwl7HR/FmgIMTBs9/
CdO0OelN80+c0ccQTUrnujwOuWzuNzN6g/c2OzQwi7wcZ7em1GxBbIHTsCRz
THMtV+UHvO05LrJv0Q5vLEpKJ/0+o5XcrVrTMte7XR3pz/Q8WOtD1up6BwEO
Mqlgt7I0/74ygYAv1bHxUdkPYvbdKWq9t3pJnI/1NYoWtCgW/fJOHK1pi+sd
Tvy7Sw6PnKlwQboEo+/WZNKW11FNyuOva5l0eWCdEBMo9u6rD4uBodkLJf+T
lXIgeIWOiSnLsVVZL4TJ+X7RCx9iMD/Cgj9nomXLMaMmW/DXtR5FuUZKdbw7
NNqvpeiTRt0+SWqMxPOkxiUnWSddgqR8gHxB+0lXbBnSa9Lrfp3qpScNMquG
3SaN3z0VBuAnDNDOiESNRqqTtuL5dLKrqGigT+Nd9DOYjcvJZb+hwLLuwh17
5UR2EDQjHZHisXK+CojLtxmgMEVeoHZgWbJudneFLTPZM0bh69SBex6x9K5v
vIhf/EP3X2wP+TXjnavziq/zM+6/VZAmyq/frdVYpf9TWpQUkFLt3VoUXqzn
YLMv+B7+Bn3H+vFd+o6P83Au5/Xj2wmMiIX9UNXwuo4Ukrp7DEor1iKyd603
DMhO4mqADfV5divWXB2YV1krtfsd92anzfgTmY90xCkN37vT2mFQgJAixDXd
1fdXhTKRIB0yQ/MgrVKQWL0CKF2g80IUwj40Du996qWFO+RLz2iKTDp+zT8z
8ZIqEtGsPBgoNsAhSg1g+H4vhRNmJTEO9JRhmWtJjet17v5Icj1SLwJQxiZW
BdZqW5j36r14BFszcQ7WnuA1XcOlVyIlNGOQmjMR07VhHefjuQ+bDI1h0+Nr
P/m8BWfxZrZcDCLSglnTj0TcEMN9xQTBIozRN1N7FSlzsQ1WScVbId0C6BR9
h3sHfSRvuoFrMCUfsQEztlGsscCCz+4NvBWx2pGHPXVw/It3gbei8tDBYRdq
1Uf5EWMLcRzWNw/PW6Nv1rhYjcF9p7iBbh8kxEY9xRHtlsMCFsA5C59aycKo
2P3OIwfVdJ3Srh4LVXhkWImlK3AyqFGiQIzVozAM1GG5C47w0uW4lrK+6St8
Wo6UBTnC8FEESgYmSAx6iVn8N56jd0IypreZaCzByihihsgxojw5siR9q/A7
jIQye7Qu0OAXfG84CoNpOfAZ2xsvoj3JdI+QhVXbYWcfHCCQDTQ3xJSc9C6s
CVgto7lzZFZF0/EItkMjGJYcW5OYVA48A56UB4cw6KrTo3RUdRu2XcUeVuFT
AevAHNwqVJPpD4wnEQGAPcRD4fAIDKJ5mrI9Y2L3bhUwnQFaq5RyV/RbXVv0
C3zAsyFFHShg6WpB9CnSgS3Q/luwyIfXvvylIpzsqBoJwK0FgvtdCWJhDXp5
g66mS4hr7x/4vtkZSPckAXuw6HYz6+qgbEgNb1IWi6fb1onoOnFFsG8akBUL
2MdTAkh96Q6GyY5YdiqSRFg8XFmh+FjAOEFyNXBQOm8RtY3NutnNcfhURYru
dky0qlvqnPBAMVgNwXAecN8kQjNZwjmVmcyWbdQcUPboyJCYMquAHy0zbZPR
v7cDYCoO0StQqJBatcH7OHMEIZJffhOCcMdhV4GeDUJXS5NFt+1XteVbw0aQ
4Uo3gryuY0fD1idoKGBExjhq2lGYWZrA+ZNDiuWBt01emnSnwhHDUply1yQT
yxHeIaVObfDgYFbOoYX36Ihg9+O4HSxsnKMkBw9gaCEJ42JX1nPDc2xZdQ8X
Q2omnHx414f9Ks4B2DOXyJAbSooa2qv7JfBONXXBRewkw1v/EnWkDFRqkh0G
1wIYEsbkDoXJE/SJ6BMftnLYLIFsMIfv5vHsNLOIk+vaILqVzcN9H9yvPB5Z
I1P3eIxG2uUrmtgmykowgOVspCIYjwabCSpMvQcd5aBzAss5P2q/6rOqzVe9
5qqSs/KYEYUMMvjOGlzI811Zf3PNUbQscDEgJNxvowpj8t9h8KIlE88DXKG1
Dbg2IOls0YclUixSxHmNx71wQ5c+UQ5GlN1Nc6+kfSLsvVO88lZJqqZ615QG
xZFswiGe9dC7OeCpc22Qqsw4PG2oqbCjScnCnAGNukfKjQjqzAjYkzPQjeGS
/yNLaP/mNVaWJ2ADoQvMLVZl5Jgavtk1xFHfRq/goIgzXna+EEsU1o5gX8mu
hXf1HZI8+UH338F+ReI7sqHiVP1Wfcebi+vGu3cb7xBlzQFDbkxqnMqrkw8C
GXhMODnymPgdm21hyODrt+AgjtAba+zyDs4QtWO/YvR7yygHfLxA0eqMD2+s
21jGOsHHewhd1vAQzXVT33EsydMEIkj7FIGjEijy1cC7q0a/N41yTG6g2g3v
C354XyAYYFX/VX2HdTjUUevreXgeAVMy/AU4F8/P6zv5O4q9W1PFu+73VWRr
2I3YGW+dY80vht96dUElBCKJiPTvqq/nhJxgbxUfD9V0jSbH1+DdqY4skWzZ
OylPCpCzJFXpeGh0eVU7hiSE0DQG7t5jc9zlxFj36t6j2D+O2PomEeKm1mVj
oB6LzZwpqT4Fa5EIfPhLUjwp4FGpPumysuR0tMCNTukNWqO62IQuXo/D7vJR
H+VrytgmrlZNv+W7GoDk6I1mgLt4CuzyPVV9unIrDmFNLFbTHeM6HwJhxXCN
6wOshT0oznQihf8HsSznLYo1A92mQTCUbiSEpdnDHOPI3+jSmREAv8GWmJEx
W1p30YzoInvTXN5p9pSR4D5g4wUeutePhgxHDBjj8TRDXL7yMB/DVRtD1V2J
A/UCI9+KZk35oNz+1mwffsi78v+TWBEekxiinyrycxNtq+XRQzjftoJzn7T+
IGTli7lz4BoIDrLH0pO5aqqUZrrYet0dTCU3boqOXrCeNHcWZNEAnWg3pcci
g1yOxkRPYYqgGfRg8V8f74M4Tpu10iqxGETEv54x/BAW7ABgpWNYR47gUHuV
GK8YU1TPYQPRVklIWlse8LrE/vmbYgYvfNAdDiuAg1gZArGqC3tltbioGIRl
p/SxuEaaTh2JXBdLjoFOInidJ3OeV+xoIStED3KBFJOBP/Nt9ELMStlPaQWI
9Oudlrd01UMZDFbQ7Nor5dy1mrHuxGDBEcdUldro5QXixemmFhGZQzpsHiBC
sPRkEaZT6lFD2UvC0mnRvxQNZckiq3w+cXI2EfLpqOZa8zDb5f+PgXHsFrQs
X/IeT+fjaFFgpR2r62n/jb3x+XkcyVyIUmI91UBuUysX7K32KqOjlLJV/rdH
8h9r82B6PmfjxLH7m1MHQrZB4qg+1s25AwIkRuo6+F8QDUJ5VgXVhApZuS1X
FfWsXJ23RtabGppUqvdHMXVSqvivCyiTEKLIcS7p7VY+h4F/R1E7kYVej7rS
jjsl6akTT2Wwz8JKP9gYX/TutuIzpF1sjMT6A0+C/+X+uxR5nHBsItYeDUjH
6mw5fyBtHlxH5C9WGkZRG6r4+0P339VeXGmayIKXNMgIDIak6VDWMvfzH3HX
2WwGOJWyKcF9/524OhZiFtQvdGHrQh0kx3Bz0K253+Q2qgKkMQ9bRujnYDlo
1woK+l4iWqTpPYrbLYWPot1797qooe+Tn53uN2mtFOj4/a5MP3Ld0IQqpuo1
n5ay12teqxO7WRqGE23casJNIA/JkNoZYcfYrPHJLmiv40R2tKS4v72YV2Yr
hyu+15WZog68FrlJyDO32i+vxmzL/2UqY7umwbSetk9EhteJ3bjfda+IRbOk
u2vpDjMGTnuJ5trSz7p6Hqv+d1hM65Rj3ZG0C7Wzr2+dSdk2PefS2lR35qnf
z1M0Rz9Y04Spp4/JzjxH2uGwVWUp1aP9e7TrSn0Xs2Os75pFt5VPnTTQfP0t
4nkrxkAX+dUhSRI2Qq0ILxKQWQMIrPRg5gCyZG1WOI1SLs2kBivd8NsAKRR2
7FiHmMKZ0x0lGssG0rRqhZo0QK3KKOi0eKvzoMsNRU47RdUYUuwkvlDjVGPF
XFLQjmWRm9fq2N/yF8PY5c+ofOyk03qvVb0GqjfY9yqTZhQml8ufzwyQBrQ2
8Jdhrc1BucpMGWwyY6+5Q6NcBprJVj0J57+CX8RBRb05U8a4QltCiuf+xksI
qos/2Vbcs99ldsxyT2X1GRK29PADnyz20/oeImSksTiiiu55BPy0HoEXQDQO
KP745tdReKLoe00jce4me2Xeh03wTmDlLvJUqHJDHkwO8IXf8fqVnMzu4WCU
ZDnhE2chacA6nOFw8DrH/mEnXti8D0UNDjCZ8fbSRJy0JLogcvxVTw7IBakY
x4vGUUjy8EmdIw2gs+lO4tejuhwmAE1K2pYVn402vdw+iupk6ql292aE2iSC
KAsT9imgacV4/XAvh09j8jW4568MkcPyVaqMQe4nKKcg4x41EDFquSHAnp9S
Quv4KrfMAOUUwiEwOD6pMMKWMOsO239tHLarAjhjbKNo6pHCw/TDuBfFDWoZ
nPssJVmodVaK+eshrgARQmr3EahqhAS55yNDpHg6bPAxmeQZE/aWhLL1aJEL
cyJ9FQLFlL9uhm/wom8IlepRpgCfp8wTe4/2C4/KI/Afb8DQPsJasXpTqAra
XTSFDsU3laiqSBflbplLNShoDotkp7q6FHWHoWPIRriJX5e7y4MYi6/JPZT3
gts28nTAQkACv23QbfFS59bcAZG4ckqkRRxfBfM2C/dn9R2Wurivv8N9eW1c
GoGNv3UbpxcUraJ1dYdlRENwUAh0l3ys6fr+Fe678xrxbOfxz3aRx6kDpXwI
weBQja6DT/oOuheP2KbZ/f4lHQLErZjN3IdTKoTzMtvnrFuRcfE7R2xY5d5e
2R7wi1nGXl7cx8po708I/staCjTWMuBhNg922VdvayWe1pQNX/90fz2hRWHJ
0hPCMrTVXTHrz6vbsDPnoFw6OR4UQYPrCxwHsUnX4P+DUBDMjQ2m/PXHPcTY
hhLW0KMddhS5pSNhrwoYmtHebpTWxUK43gnbNUoTy7oE6wKffHProK6RR085
pt+1NZp8u4dBZ4udJdQrHIrCKhC0RZhZ/D/COrO6ivAF3T60Sj33sYNi6588
OMUpTJZZzSvHLkXLAbMdTjvwgUs8K5gvSm7UmZHMfhlj3uyaheEwWr3gdQAn
m9V41I6ApaOsHryhp8RJDo+iJoMZnqG6/kb8xTfHgb+xvaalKlIx8B4vBPQ3
3b445BTCJjd22IC2nc3r0HPgdAtIcw7y+RHv4brJUqhIH4DDCAAesAwGMfm8
7ZZndjDWERhwtcjxXxkpLPMgHZj/DonXWD9BPqJsvlk6Y7GVL2v4+pQzRUXp
ahfrSpiSOTQD9pRbPvMm5EtVWLqvTvEP7NtLpoNxVAQDVl426KuVcdCcncLD
5f4vMY1ukYLdeRvNGRwD6eTMMR3qAlVkEXIMi3DLJn46fCx4C5bKNT5RrBLA
57ucdSwEHnWQATiFY4dJhzers30BtYro6YKf/CmUVEZFZrIAKzLTIr7FFjTu
G46bbrEdWubgeIIIBqzbKkP5ChZUsaCdeOeuNdOtbqAhG4mU2m5wuWnDaEhN
EpEWBmrWe8GMcWjUBfdVXMRyXceU7lC4i6vUBUZcAxI22DzyCpDyEtvujjWe
IzAwtrv+6A7T7lxdZbPoDIpll71HwY5f7K5BZsP71ngHGzZ58EYZSvAONnJr
5R8AgQNWrJuYS45imaaPjWas0U1omqHeGu/6O7e6C5DZyQDg8Sn4Br1DXSYI
ZAgIwotHCxzWKd46jbe2z+GBpXFObT+nhYCc7NOn8d5iTkLDswkeCZ5QVdfD
PDGmfw5gOTT6P2tpFA0MDWpUowwpT3oc+VlsPUaAwG2DrZtQ/EAnygEp1r24
T1e297TRHus/ASvrP91TrRf+IW2TnSYis/Infbkf1l55E9YrlPqT4V/nNLoJ
eozEK8HbaB4P+0YUgx6JbS9Q0cH2Aj6Wx7rNJPhubCJ1FKoFP8PCzSRVl1Fs
I4soICXnCZh3H9ZdFB3B/pIHnO+ZjZf0LtFsxm8BxdhUieUYO4QXJcHg+Tku
acF6xhbT9IoI/mZkw0fMNLFhYscvfXsXlssALZ+XLO8K2i/1wpFzCOJvFUPK
Oa/kqLVianWb6K2VUpz7P6BiiOlh0BSENCQCD5SmkQU/ToKMjSLcn8cRKZ8g
WSH0k/Ui06t3lPhQnhKB2bdWXmaLEjBhgCIVlJAqScZzqxi7vEiV3WCmzZw8
USIXjS7dZjIGrr2XrNUHwYMlJthPEcFWHbquD/pBkKtGdEYEI8qjUiPy7gHI
Rh2LUhQZCeGA7L8WMlj2kAiQgQ9l/805bHCQAosycKKZ/feaBUFuQDmXljoJ
F+bVqRlxz64R5MAB6RrconhZdtrujl8x8peQlncdSsc7Sg8cJEO0d7gRuXtk
/DWilB2snpeymA4abIDeklAG2BmwMKUi5sGolKrH6aACl6Q+LjbFNj12UMpZ
XiLwYLW3kh/LtwuYMu3yaQEb6GPjnZU+tNd/evgSSbPS0wR7ilhHDz4kpoDw
OyvRZwfIL3hAuhePgANJ8cXiTf8fhwxYWw==\
\>"], "Graphics",
  ImageSize->{713, 364},
  ImageMargins->0]], "Input",
 CellChangeTimes->{{3.440225850434824*^9, 3.440225850799139*^9}, 
   3.4402258934944344`*^9}],

Cell["References", "Subsection",
 CellChangeTimes->{{3.4059068143867598`*^9, 3.4059068412130404`*^9}, {
   3.405906886040587*^9, 3.40590688927745*^9}, {3.405907098097617*^9, 
   3.405907109932663*^9}, {3.410151936770359*^9, 3.4101519419755697`*^9}, {
   3.4182625411574383`*^9, 3.418262549690422*^9}, 3.4402254388165083`*^9}],

Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\
eJzFnc2OHcd1x9v3e2Y4MxJJUR8UbQGyFcCw44DJIllkJ8iAP5YJuAkQQjZg
LmwHild6gRgCvPNKb8A30BvoCfQAgR7A0RN0+nSdX/W/qk/1vUMOpQY4997u
qlPnu06dOtX89dM//e63v3/6p2cfP33v5588/a/fPfv4v9/76I+fDLfW3+u6
1f92XffBe51974ev/me6vrY/eudmN/55/L7uv/nmm/7Jkyf22b0V3Bsb/yV1
vOvPnz9/Pj4f/nWr8e+6/+qrrxgm9fm+N7aGX3755fjrbb9nv+2+/Vr5vc8/
/xwgCcD/pEFfF6QePXpkbXKfzz77rP/oo4/mg4Kh/Xo4/t2Nv+0+F1Ta9ec0
1nb82PSPHz/uneWG62rk/WG8bZehaqjY7y+++IJ767HZ+QgUdoAhn59++ul4
f0BkZTCGwawpAw6f64BvK8erGnhl4BAAiKTejfbpoSHhpDnJd0Ysnj17Ng5r
n9bN2nz99dcjp+ye/XbimkODqlBkMEYWruxXYuZ+BFwP6h0cyJuZazVC1s/u
g5AhCLftHmK2T/ob0QbDkE1jGB7XI4+RNQIGjv1GkgETkpQGYnW8YZzDiP5h
bG4gELyiOfzeiaQx8KRDlyOmRqld1tVAgAnKbeABOdxzUzxkcdAP7Ewbhnso
h4FzK07qaLevM8+tNZpro7ggM2TljfO5G7VikC0yUcyd6O7g4yg/jVqwPDZW
sn+j9DozFX04pb9zpEvc32ZjEHvvsEHjpLU3R3jw9spROL92nca6rR/66lLK
hqHmPvBk5WDxRqLS3mWX1ZjLUd6Pj8/Hx0qBjQBVhoVzKTW/yHJHwVEXRcyF
lh2tK/b4a2z8n+NXZ+JrMG58hEGhcgYTNbVxTTDGFAxz9CYG5qroamjBDLuw
XfQmIeD+OWFpkO2WqZm6TMFgVVmsQ944K1v4Gm8Msg+emt/Jc5KyEFaghwbS
9bIx+NZVIGCik3EooOqIBj03+4eMgF1ww7rZdzUyDFLpgtE6FN/rZ7WcDRbO
EwEFDBjhGB7w177bZXgNMHCcpmr4HRsCEI723uVtTRxCljddHVs8EsyAMaZ8
fs+7no3dIMr4Gwjf294fCYNJBsvaK/NdLiM6eAOYb9/xrv57NbqdTe7iE1DC
fp3F1Y/uoM/xkLPXsXoHD59HaY1Ym72JCw7hJxf6r+zBXvDAb278Hpww33jw
e8zdfY5Pzgp1gmuomn932i4KnK0NQjbcgeGeLztOlTowB5xw5bUGD6Cyx7Mh
8HiJ5dd5WkSJIEnRRiyg5JqdBnmatHLnat6yJhfrxtEkcMWIdTZhNvLu6fa+
gAzGCIk2TPQaQKFQax+aoBwKLXBCyGLbOeCsfD9NmaF6MVRQ9GebhRGPO8gZ
ODRAEZJudS83V6aBegpDQbCtYt5py9HNhmhCuaARumm1h4pXdnucJs69GdPg
JLlt1jE8qulX8iD7gljFZ1AeH3Sfzcf4XJl7oUGYmyHuSy/nuUG7l0NtXAjs
IeyDJ+pK0BocrDvdwRmU9JqSJ3wvRnjWf2mM0gWdFTNPo98AOY0pdp21mwC7
F5crss3tRPZZqxBo9uJz0bAyc9Sz28GbTuDKIfC6zC/TmmGXgyodI4eJd3Iw
z6UTqw3rHlAp73+TGh5zWL7GTPHNZZ5GtLl+t2fGI6YUZcCcn6Xd+3DdOAe5
Ac1Q2OXIkRjYA82NE8KimPUPGDtRCHzJb+XIywbcj3QY1GDQV+a/znMvsZqx
GVbpzXHnMJ111+RULpuyVbUxkAbaae/gdk28E35VKWs/Wqb9fWsW2vkyK4f4
Gq7QltkKv2QSxK9U/XTh4ubvlD4s3IEGuS03xaJAOQOja9eC4TgaHW5cWYBb
A90l+M5Z5/RFlkA9VtA/uzeTHsmweka2dm33No/QWBEzbtICCxnOZv4NnHDf
KW4ZejMhzh3bdgxyiKWwka0w0XMpKSzye34ViyV0hOCcORMkC8/2ZqGK6IJd
wruR9yxeUEP0h+9ML3YZzVM267hrc5kMz4xTd4psVI2D6oizDN/WQrnwbXdn
K0m1BCJNDSHrpZuPmmRzHboP9f2GST2ke60uWv7TDxgae5NPq7yb8cuIl9Dc
Qb/RlK/LKE+AZI6OUW+2jXsDbXP1544L2Un+DaQ6Lv84s3EiS9gDa8AL0iPf
wBKYdtBD9osliqaQmOAZlzCuZjkJIZY44KY+pg7bppTyma4CQ9jJryVPxXSJ
n5TJq+6f/RpjJo73OWwjlOOerMubfk3Vyy3B/dq+0B2B7yGqUbHT7Q9V+ZE9
+MdavTUr6atbXy3vM9/JHTA1aqhEltp+jUA+TiMnuneaZRzxdv1gwue2bleQ
G9SkuyTdZrs95t7W7qNRPcSXVhMjvilUswfi0xSWrwYyfKbUPk+X2xm+aUWT
AmDJqHn7y5yH0s0FVT995uz1hH45PukhpQ0Xg9q6KXrbewV8giK7tB9iByaq
p1ngtMmQaASnKQF+VmQSG+LOCRSm/CqZPuPDtJWw1uXEMCH1xRLFlDq5u3NV
RTIeOTGPOcgGFChOLNvopqKxiUUN+QAM1ClbpbTxnAuAMW5Ze+foMAwqV+9/
eAins7RPUDl3hWe2wGPj3cn46cKDvJaaEQttZidXF0GoZqwu9XWPx6HkNaAo
jiv9bubXXFC6qjcO4Trh6DQ9bbMs0YtJh0pXSmhLKFSvZgT2mQxvgtHNsCmK
7HOQ516i8GrMttYXqrkniYDuBxU3FVWNwN71exr1XgZ9fypjkBA4c6gy62UP
rely13EEzKSraEoqM0+mWGqy/sRRUruurY/8NrFKIefdCFGT5r602QkiZeru
wUxz6tR9K4jTyKJ2ZWNmexIr7EMcNpx7rSJI9oVXITb3A8WemE6mmJZdvyk1
hnjPuuuSFC1Sr+SuxIsGyokA8agWXQd9lTy06CqA9xPpi8YzhjpZDNPg6drL
vAiqRcpJVUuW0BknSeUVOWSkPXz+wDsYqiiyXcxdOG9vTm4IYXJpOJBzpdti
XT9tG/fjDCXbrcUCMohQstAk1+6B4aaYjYaLCZQUZt/7cjM9OBTJAFVt3XJw
nRrlPbrueyJRJP+BIIUBvxa0Q8oSDnT/6shLNYDBOatAJlJSxEWRAM0tIP2J
g6nuJ9bs8oRPEOJSWjlclg29OEjZG0xcZxsTUfmEgnMR35OlpE4btWPp4vEI
YRsaKtKKwqJsBRZDXAaobuQeQ5+77NXPaS1J3qj5bZL2+P1fhC6ftLo3BTje
e2z8F+k4Xq0irF85BKaODGG8/lo2IrNgvz506rRGaRDbh95UqjpyFKfRcVTi
NHT/W3z73wJtGpokLe5+LdIFPniok/zQ2a6LJ7s0178P+v1fcO/fhW84V0cH
BSQ9MLFgq4rNDO27q1P4iNvQ6hUPhLIPhr1MxZMffZjtiugGjWVfWWoxZpVG
GI3OwpBIwE4F0xQf7mZlIf4cdIOqkRzUsqRPs++A7JibG2BKOVfGcWiYpppD
QSbpLuaJXNZ2v1gRt+q4mAx0idYostu7DiEguiG8lOzpgiKzoHBLCsCmFHs1
eKJjSjBOXdba5ZWNlwly5+/NuqgdMxwZoKnvVJOkMihXGRdN+UQ1b9RNBZWN
/mzmRTaurFExJLWBgw+PMFVsAq3oKGq6gSYlLKWAcZ81vq77e1GluiqETAWa
4qQ0SmXiOvDY5D/UB/s6zgV4N6xIbRU/RoQWtnunSHFAgZaN6Rws0UPDLM5b
Kl+gnBVhW+zMsQJlF/MGgrZbEUNZwR8pUY0tFWc5hADu/7OXi4SwVFb77VSn
RrRf1BN6oZNqnhMur+k039LfJXoTmE0Gk3fqDMur2WLuRH/ULEROlO6btcIt
X1qrwSbLqtM19jZS4IaziJiVhj8yFEp/W8XZx13JUo35FjLVL7iWXRVJOCkw
X3RFmfLbV/QU5/qMdF7MIXbpWlpy7MiWHJlbfJF56CTJYZcvVDRjxzUVzCSr
0wpBuyRsKtzz1GeXd7RcPydrSsPpCt35lcUcPWNFRq1B3/dFROjoFQUpZZnh
Opc/9HnNXWYGKSVn/Kh0t1WpSmKDrLvglHMCVXWuCzlt6uh2pqawynqL1/N4
rSpVJB+VRDgevnl1KPoHfV71kEG7la+ptJka4FRC+GDWHbNQqSxJrEEOu1AK
Xmq6o/Ve0ts3W11CYrlfY9vSlYTWZUEp7Y/pGX113WGX6XdUAT3Xu0cvpQSt
73WldlVhHRZ4JHw+aNFa4KmwW3RGNq4b1pQQw1/FsWkz947ZwwztuiptzobX
X0T0M1iUqwT4hbUd5bOfFa4K769pTx2fBH50ykDZV4tqSZVeomA/h+ItdaxN
1nFIpL9/VHNbZC6JX0V4Az/VLZ7IODSPTRRedrswz5R1MRSVwJgjSpzDBmAs
ca7ss2uNu3PZ1anuFzu50nYsjYM3fz/zm7Vko9Mh1ekbVapvS+mTzudIQyMr
lYZdvtGbl5kaGUicqGEkcSKBm660To0hKXQTBmVPhB4Te6dwuS+CRNnLXnxG
rn1e0ThV5NhkmXbGrgp8wU1Da52wRWB1XazLSPfClOFTMcK8tkfFXprJrOwW
w29pUIHFodikak5itzlIs9m+sDc2hrwYoou4Ni1CJ32MZ6sZAed+uzp8oid9
COk2cdMlMUYI8ezMRawW2+BLR9EBW71Ei/Yc4qmZ1P4qzBMlVlB1XpRM1you
hz3a3jM6XHOITqCoJKPStnqJQIkpILm3qMAnHlTaz2ZooTV7zlMkp55TYLxc
zFVSAcHsUn8eH9OJun4rB4H2DrFWzNCOotLifaiFkfyPuqBtpOst33D8HFc0
dcz1IvB6OScQBb+yTSM6dD1joPZt2elSLCXjnXJK5ASunOoG0r23Qn9Wy6/S
pvC5Xd+iLmcPEGzFFpOoSU8zOmy3klS8WdBkKcqLvHHBpatc+MBxYKggOsxb
M30REyGaKJbSZ0vxklb5XPuwxEseq0VnJRBRS7cXrJcojuywMDTXbb9I/OTU
cUyFA0GKVa1I5Xx/42Dqlkc8IbJqe8HTA5mT+LdWarLviE7NRSHXeqH9TdFd
UpfopGXNyeP9L7Ntyom58NDZLatfCSrVclLypn347ai1vfX95qnC4NjdCLpF
pbepD1W7q72l2E3rlt3o9dBFQPpJMVwp8Wm3pIL1qmK5gqqpcrQV8wSSeYXn
IaOgLrDSpaAu0tKbBHXyxplTgrrCrk455HpoHkWtJqV2fFcK3r9nwbdsrND6
i5mQI8s+ZVi2KW7pJHDbe7wRUhb5xlqslZIVpH1HB3+DiI8WUKMre8uWgalU
VCLbQkC3lTLTyJc9+gneOr+f4NH4jrY+h3d6urIO/epnUein7w2gcvTK+aR4
6l6JKiRG3or9cmo6gZQzcq2DoS6md7OztKvesmE4tQ+qhKKzkrTR/szI3oay
ySdSFVp3ueUhsxfRMet1UUbtjdwMbnDGg2gw6k4Orka/NYM1yOGdAdGB4qWo
r30A+bUZqvX5es1wBIqiW6e4brtO0bHU970irY5biM7g3pYC6PSQT6Oc43WK
t/jYpegN3EmW8XaGZJRynqt1zLoFukVladhTwgKdU/2pN00rVS92TSMzOHI0
PGJBsWt6Q6nPYLFzGE05KuUKdzIf+kj3kJeGj4632xWICatvce9lzopHoV9g
qgmF749NKLpkNowU6xiVtcU/kkMVumdaRE+Xx3xTZMWuJ/vwoH7pfu+E7re2
cr7nkPzdo+obgWiZ4wnDJpnd2psSEoPeOdmZaBAdvBVj/F6pmT7/rt6KUMR+
5zlC5ICcNUUGdeHdaooEbyn224exn2+P5YUWUXHfT6k52Dbd2xZllw5r8dkp
qT8rvbxu4Mpe9ON8yv48vwiOOBodV/4MbXgzrYKrztz7VbzPzWN4L4w9hKt8
3FZeSl7M6lOZBwlynzypj6NfZf1RXxD1sWe3MuSmHjJaCLtm50ySMoCj5VqZ
rCf46mJ8vJ9W07dEFpBDBEilApibVfCiTPVg7AugOUMf6na5Pcd2m5kyXxpu
6lcukLTRo/q+rmt14QWxLKf4h8lGLyVoKtrVyVJnrVu88qLxyuPy1QNDD63+
QWZUToBjYEtfNd7LEJE5WfRboUXXdOpsFmj40jNWgtHrPlTzW699QA3bQt+F
sMeh5+CSt7lfGEDjbRqFwdVUoq72LFfVxC81UQMKXgQSCm3Zlbz8yzQ4ElVX
4jsMUIrkbt/n7wK5U6DfIlk4zVpBz2lD7Qt4q+brUygO0BOR9lmew7B+59nb
thTCcalPkhQGuV9SqRzhVp7glFE7jjkpdayJj+jYydwivXMD31O+O2fHqbpC
gJUxstUJRVLf+J1YQ3FYY1fEUaLNuGvjK3PIp/Y+exPs24VisVdMzKxnVu0y
EGpHKObS0V0LbutCtylzWZ7kpvqTEyy6f4VIXZSt5/nVDlH0CMMttZKix7Pi
kBNRLurrL0jJEanmn+8F96jU0HP77wg+vCDnOuj7Y8GR2gXeuKxm4VLNMORZ
CPfBiXi+H9yD7uhFMQqvfqWb/fq7AB7jKs7vB30fBO3+KcDlYXDvIugLvEgG
UoPa/Wj8mw3KJ8mey8OjXwYaxprI7M8sxEz2bjDqSu7BFTT2VO1C283toF0s
tqd1UfyKHn3hCv+tjBTSe/VfqXEemOf8qcKI3ud7Uy1Uet4P7ul6EJ6tAlze
CcaINPP1oO+9YNy2tk7lJj4pvRGw7Xl6oVf3OED/YXBvSXFVvPsAfTbIdE78
4fg3KzO5EF08Ds1/IZj4YryT1xqUByHRaNfwQtq6SLoX3BvRHlMVEM97a1Q/
tYe+/KfWWcq2++wld7Nwy/9HgEMAZi33SJlEhDxYJOSH+dvdBVQjkvRe1Pd+
hlynGQzTH4kGMMXebzDheXrr7X8EYPh/q1QOuwCZ9Cqv7hN/RKLNfvX5+kNq
NN14yf9oa/FG973/B9Eiad8=\
\>"], "Graphics",
  ImageSize->{737, 38},
  ImageMargins->0]], "Input",
 CellChangeTimes->{{3.4402255066319847`*^9, 3.440225507859475*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cdl", "=", 
      RowBox[{"10", "^", "logCdl"}]}], ";", 
     RowBox[{"ko1", "=", 
      RowBox[{"10", "^", "logko1"}]}], ";", 
     RowBox[{"kr1", "=", 
      RowBox[{"10", "^", "logkr1"}]}], ";", 
     RowBox[{"ko2", "=", 
      RowBox[{"10", "^", "logko2"}]}], ";", 
     RowBox[{"kr2", "=", 
      RowBox[{"10", "^", "logkr2"}]}], ";", 
     RowBox[{"ko3", "=", 
      RowBox[{"10", "^", "logko3"}]}], ";", "ao1", ";", "ao2", ";", 
     "\[IndentingNewLine]", "V", ";", "ao3", ";", " ", 
     RowBox[{"Ko1V", "=", 
      RowBox[{"Ko1", "[", "V", "]"}]}], ";", 
     RowBox[{"Kr1V", "=", 
      RowBox[{"Kr1", "[", "V", "]"}]}], ";", 
     RowBox[{"Ko2V", "=", 
      RowBox[{"Ko2", "[", "V", "]"}]}], ";", 
     RowBox[{"Kr2V", "=", 
      RowBox[{"Kr2", "[", "V", "]"}]}], ";", 
     RowBox[{"Ko3V", "=", 
      RowBox[{"Ko3", "[", "V", "]"}]}], ";", 
     RowBox[{"Rt", "=", 
      FractionBox[
       RowBox[{
        RowBox[{"Kr1V", " ", "Kr2V"}], "+", 
        RowBox[{"Ko1V", " ", 
         RowBox[{"(", 
          RowBox[{"Ko2V", "+", "Kr2V"}], ")"}]}]}], 
       RowBox[{"4", " ", "f", " ", "F", " ", "Ko1V", " ", 
        RowBox[{"(", 
         RowBox[{"Ko2V", "+", 
          RowBox[{"ao3", " ", "Ko3V"}], "+", "Kr1V"}], ")"}], " ", "Kr2V", 
        " ", "\[CapitalGamma]"}]]}], ";", 
     RowBox[{"lw", "=", 
      RowBox[{"{", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"Rt", " ", "Cdl"}], ")"}]}], "}"}]}], ";", 
     RowBox[{"AbsRp", "=", 
      RowBox[{"Abs", "[", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Ko2V", "+", 
           RowBox[{"ao3", " ", "Ko3V"}], "+", "Kr1V"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Kr1V", " ", "Kr2V"}], "+", 
           RowBox[{"Ko1V", " ", 
            RowBox[{"(", 
             RowBox[{"Ko2V", "+", "Kr2V"}], ")"}]}]}], ")"}], " ", "Rt"}], 
        RowBox[{"Ko3V", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", "ao3"}], ")"}], " ", "Kr1V", " ", "Kr2V"}], 
           "+", 
           RowBox[{"Ko1V", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "ao3"}], ")"}], " ", "Ko2V"}], "+", 
              
              RowBox[{"ao3", " ", "Kr2V"}]}], ")"}]}]}], ")"}]}]], "]"}]}], 
     ";", 
     RowBox[{"Ep", "=", 
      FractionBox[
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"ao3", " ", "kr2"}], "+", 
          FractionBox[
           RowBox[{
            SqrtBox["kr2"], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"4", " ", "ko2", " ", "kr1"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["ao3", "2"], " ", "ko2", " ", "kr1"}], "+", 
              RowBox[{
               SuperscriptBox["ao3", "2"], " ", "ko1", " ", "kr2"}]}]]}], 
           SqrtBox["ko1"]]}], 
         RowBox[{
          RowBox[{"2", " ", "ko2"}], "-", 
          RowBox[{"2", " ", "ao3", " ", "ko2"}]}]], "]"}], 
       RowBox[{"2", " ", "f"}]]}], ";", 
     RowBox[{"Vmin", "=", 
      RowBox[{"Ep", "-", "0.1"}]}], ";", 
     RowBox[{"Vmax", "=", 
      RowBox[{"Ep", "+", "0.1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"denZXi", "=", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Ko3V", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", "ao3"}], ")"}], " ", "Kr1V", " ", "Kr2V"}], 
           "+", 
           RowBox[{"Ko1V", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "ao3"}], ")"}], " ", "Ko2V"}], "+", 
              
              RowBox[{"ao3", " ", "Kr2V"}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Ko1V", " ", 
            RowBox[{"(", 
             RowBox[{"Ko2V", "+", 
              RowBox[{"ao3", " ", "Ko3V"}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", "ao3"}], ")"}], " ", "Ko3V", " ", "Kr1V"}], 
           "+", 
           RowBox[{"Ko2V", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "ao3"}], ")"}], " ", "Ko3V"}], "+", 
              
              RowBox[{"4", " ", "Kr1V"}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"ao3", " ", "Ko3V"}], "+", "Kr1V"}], ")"}], " ", 
            "Kr2V"}]}], ")"}], " ", "p"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Ko2V", "+", 
           RowBox[{"ao3", " ", "Ko3V"}], "+", "Kr1V"}], ")"}], " ", 
         SuperscriptBox["p", "2"]}]}], ")"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"ZX1Et", "=", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"Ko1V", " ", "Kr1V", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "Ko2V"}], "+", "Kr2V", "+", "p"}], ")"}], " ", 
         "Rt"}], ")"}], 
       RowBox[{"denZXi", "  ", "AbsRp"}]]}], ";", 
     RowBox[{"ZX2Et", "=", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Ko2V", "+", "Ko3V", "-", "Kr1V"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Ko1V", " ", "Ko2V"}], "-", 
           RowBox[{"Kr1V", " ", "Kr2V"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Ko2V", "-", "Kr1V"}], ")"}], " ", "p"}]}], ")"}], " ", 
         "Rt"}], ")"}], 
       RowBox[{"denZXi", " ", "AbsRp"}]]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"ZX3Et", "=", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"Ko2V", " ", "Kr2V", " ", 
         RowBox[{"(", 
          RowBox[{"Ko1V", "+", 
           RowBox[{"2", " ", "Kr1V"}], "+", "p"}], ")"}], " ", "Rt"}], ")"}], 
       
       RowBox[{"denZXi", " ", "AbsRp"}]]}], ";", 
     RowBox[{"Zf", "=", 
      RowBox[{"Rt", "+", 
       RowBox[{"AbsRp", 
        RowBox[{"(", 
         RowBox[{"ZX1Et", "+", "ZX2Et", "+", "ZX3Et"}], ")"}]}]}]}], ";", 
     RowBox[{"ZfEt", "=", 
      RowBox[{"Zf", "/", "AbsRp"}]}], ";", 
     RowBox[{"ZEt", "=", 
      FractionBox["Zf", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"p", " ", "Cdl", " ", "Zf"}]}], ")"}], "AbsRp"}]]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"GraphicsGrid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{
               RowBox[{"10", "^", "3"}], 
               RowBox[{"if", "[", "VSta", "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"AbsoluteThickness", "[", "2", "]"}], "}"}]}], ",", 
             RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Epilog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", 
                RowBox[{"Point", "[", 
                 RowBox[{"{", 
                  RowBox[{"V", ",", " ", 
                   RowBox[{
                    RowBox[{"10", "^", "3"}], 
                    RowBox[{"if", "[", "V", "]"}]}]}], "}"}], "]"}]}], 
               "}"}]}], ",", 
             RowBox[{"FrameLabel", "->", 
              RowBox[{"{", 
               RowBox[{"\"\<\!\(\*
StyleBox[\"E\",
FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\!\(\*SubscriptBox[\"i\", 
StyleBox[\"\\\"\<f\>\\\"\",
FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))\>\""}], 
               "}"}]}], ",", 
             RowBox[{"Axes", "\[Rule]", "None"}], ",", 
             RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", 
             RowBox[{"FrameTicksStyle", "\[Rule]", 
              RowBox[{"Directive", "[", "8", "]"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "220"}]}], "]"}], ",", 
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"\[Theta]s", "[", "VSta", "]"}], ",", 
                RowBox[{"\[Theta]X", "[", "VSta", "]"}], ",", 
                RowBox[{"\[Theta]Q", "[", "VSta", "]"}]}], "}"}], "]"}], ",", 
             
             RowBox[{"{", 
              RowBox[{"VSta", ",", "Vmin", ",", "Vmax"}], "}"}], ",", 
             RowBox[{"Frame", "\[Rule]", "True"}], ",", 
             RowBox[{"FrameLabel", "->", 
              RowBox[{"{", 
               RowBox[{"\"\<\!\(\*
StyleBox[\"E\",
FontSlant->\"Italic\"]\)/V\>\"", ",", "\"\<\[Theta]\>\""}], "}"}]}], ",", 
             RowBox[{"Axes", "\[Rule]", "None"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"Blue", ",", 
                  RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{"Purple", ",", 
                  RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", 
                
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"lHue", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], ",", 
                  RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], 
               "}"}]}], ",", 
             RowBox[{"Epilog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", 
                RowBox[{"Point", "[", 
                 RowBox[{"{", 
                  RowBox[{"V", ",", 
                   RowBox[{"\[Theta]s", "[", "V", "]"}]}], "}"}], "]"}], ",", 
                
                RowBox[{"Point", "[", 
                 RowBox[{"{", 
                  RowBox[{"V", ",", 
                   RowBox[{"\[Theta]X", "[", "V", "]"}]}], "}"}], "]"}], ",", 
                
                RowBox[{"Point", "[", 
                 RowBox[{"{", 
                  RowBox[{"V", ",", 
                   RowBox[{"\[Theta]Q", "[", "V", "]"}]}], "}"}], "]"}], ",", 
                "Blue", ",", 
                RowBox[{"Text", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\<s\>\"\)]\)\>\"", 
                  ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{"0.9", ",", "0.82"}], "}"}], "]"}]}], "]"}], ",", 
                "Purple", ",", 
                RowBox[{"Text", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\<X\>\"\)]\)\>\"", 
                  ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{"0.9", ",", "0.7"}], "}"}], "]"}]}], "]"}], ",", 
                RowBox[{"lHue", "[", 
                 RowBox[{"[", "3", "]"}], "]"}], ",", 
                RowBox[{"Text", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(\"\<Q\>\"\)]\)\>\"", 
                  ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{"0.9", ",", "0.58"}], "}"}], "]"}]}], "]"}]}], 
               "}"}]}], ",", 
             RowBox[{"BaseStyle", "\[Rule]", "monStyle"}], ",", 
             RowBox[{"FrameTicksStyle", "\[Rule]", 
              RowBox[{"Directive", "[", "8", "]"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "220"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ParametricPlot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Re", "[", "ZX1Et", "]"}], ",", 
                  RowBox[{"-", 
                   RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", 
                RowBox[{"p", "\[Rule]", 
                 RowBox[{"I", " ", 
                  RowBox[{"10", "^", "logw"}]}]}]}], "}"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
             RowBox[{"Frame", "\[Rule]", "True"}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"220", ",", "150"}], "}"}]}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Blue", ",", 
                RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], ",", 
             
             RowBox[{"FrameLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "\"\<Re \!\(\*SubscriptBox[\(Z\), \
\(\"\<s\>\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\<p\>\"\)]\)\>\"", ",", 
                "\"\<- Im \!\(\*SubscriptBox[\(Z\), \
\(\"\<s\>\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\<p\>\"\)]\)\>\""}], "}"}]}], 
             ",", 
             RowBox[{"BaseStyle", "->", "monStyle"}], ",", 
             RowBox[{"FrameTicksStyle", "\[Rule]", 
              RowBox[{"Directive", "[", "8", "]"}]}], ",", 
             RowBox[{"Epilog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"Point", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Re", "[", "ZX1Et", "]"}], ",", 
                    RowBox[{"-", 
                    RowBox[{"Im", "[", "ZX1Et", "]"}]}]}], "}"}], "/.", 
                   RowBox[{"p", "\[Rule]", 
                    RowBox[{"I", " ", 
                    RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}]}], 
               "}"}]}]}], "]"}], ",", 
           RowBox[{"ParametricPlot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Re", "[", "ZX2Et", "]"}], ",", 
                  RowBox[{"-", 
                   RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "}"}], "/.", 
               
               RowBox[{"p", "\[Rule]", 
                RowBox[{"I", " ", 
                 RowBox[{"10", "^", "logw"}]}]}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", 
             RowBox[{"Frame", "\[Rule]", "True"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Purple", ",", 
                RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], ",", 
             
             RowBox[{"FrameLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "\"\<Re \!\(\*SubscriptBox[\(Z\), \
\(\"\<X\>\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\<p\>\"\)]\)\>\"", ",", 
                "\"\<- Im \!\(\*SubscriptBox[\(Z\), \
\(\"\<X\>\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\<p\>\"\)]\)\>\""}], "}"}]}], 
             ",", 
             RowBox[{"BaseStyle", "->", "monStyle"}], ",", 
             RowBox[{"FrameTicksStyle", "\[Rule]", 
              RowBox[{"Directive", "[", "8", "]"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"220", ",", "150"}], "}"}]}], ",", 
             RowBox[{"Epilog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"Point", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Re", "[", "ZX2Et", "]"}], ",", 
                    RowBox[{"-", 
                    RowBox[{"Im", "[", "ZX2Et", "]"}]}]}], "}"}], "/.", 
                   RowBox[{"p", "\[Rule]", 
                    RowBox[{"I", " ", 
                    RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}]}], 
               "}"}]}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ParametricPlot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Re", "[", "ZX3Et", "]"}], ",", 
                  RowBox[{"-", 
                   RowBox[{"Im", "[", "ZX3Et", "]"}]}]}], "}"}], "/.", 
                RowBox[{"p", "\[Rule]", 
                 RowBox[{"I", " ", 
                  RowBox[{"10", "^", "logw"}]}]}]}], "}"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"logw", ",", "logwmin", ",", "logwmax"}], "}"}], ",", 
             RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
             RowBox[{"Frame", "\[Rule]", "True"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"lHue", "[", 
                 RowBox[{"[", "3", "]"}], "]"}], ",", 
                RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], ",", 
             
             RowBox[{"BaseStyle", "->", "monStyle"}], ",", 
             RowBox[{"FrameLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "\"\<Re \!\(\*SubscriptBox[\(Z\), \
\(\"\<Q\>\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\<p\>\"\)]\)\>\"", ",", 
                "\"\<- Im \!\(\*SubscriptBox[\(Z\), \
\(\"\<Q\>\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"\<p\>\"\)]\)\>\""}], "}"}]}], 
             ",", 
             RowBox[{"FrameTicksStyle", "\[Rule]", 
              RowBox[{"Directive", "[", "8", "]"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"220", ",", "150"}], "}"}]}], ",", 
             RowBox[{"Epilog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"Point", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Re", "[", "ZX3Et", "]"}], ",", 
                    RowBox[{"-", 
                    RowBox[{"Im", "[", "ZX3Et", "]"}]}]}], "}"}], "/.", 
                   RowBox[{"p", "\[Rule]", 
                    RowBox[{"I", " ", 
                    RowBox[{"10", "^", "logwc"}]}]}]}], "]"}], "}"}]}], 
               "}"}]}]}], "]"}], ",", 
           RowBox[{"ParametricPlot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              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[{"Frame", "\[Rule]", "True"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
             RowBox[{"Epilog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", 
                RowBox[{"{", 
                 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"}]}]}]}], "]"}]}], "}"}], ",", 
                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[{"{", "}"}]}], "]"}], ",", "Purple", ",", 
                RowBox[{"Text", "[", 
                 RowBox[{"\"\<Z\>\"", ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{"0.075", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",",
                 "Blue", ",", 
                RowBox[{"Text", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(Z\), \(\"\<f\>\"\)]\)\>\"", ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{"0.075", ",", "0.75"}], "}"}], "]"}]}], "]"}]}], 
               "}"}]}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"Purple", ",", 
                  RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", 
                
                RowBox[{"{", 
                 RowBox[{"Blue", ",", 
                  RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], 
               "}"}]}], ",", 
             RowBox[{"FrameLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "\"\<Re Z/\!\(\*SubscriptBox[\(R\), \(\"\<p\>\"\)]\)\>\"", 
                ",", "\"\<- Im Z/\!\(\*SubscriptBox[\(R\), \(\"\<p\>\"\)]\)\>\
\""}], "}"}]}], ",", 
             RowBox[{"BaseStyle", "->", "monStyle"}], ",", 
             RowBox[{"FrameTicksStyle", "\[Rule]", 
              RowBox[{"Directive", "[", "8", "]"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"220", ",", "150"}], "}"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"220", ",", "150"}], "}"}]}]}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<                                  M,s \!\(\*UnderoverscriptBox[\(\
\[LeftRightArrow]\), SubscriptBox[\(K\), \(r1\)], SubscriptBox[\(K\), \
\(o1\)]]\) X,s + 2 \!\(\*SuperscriptBox[\(e\), \(-\)]\) \>\"", ",", "Bold", 
      ",", "Medium"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<                                  X,s \!\(\*UnderoverscriptBox[\(\
\[LeftRightArrow]\), SubscriptBox[\(K\), \(r2\)], SubscriptBox[\(K\), \
\(o2\)]]\) Q,s + 2 \!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", "Bold", 
      ",", "Medium"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<                           X,s + A \!\(\*OverscriptBox[\(\
\[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) X,s + B + 2 \
\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", "Bold", ",", "Medium"}], 
     "]"}], ",", "Delimiter", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "logko1", ",", "1", ",", 
        "\"\<log(\!\(\*SubscriptBox[\(k\), \(o1\)]\)/\!\(\*SuperscriptBox[\(s\
\), \(-1\)]\))\>\""}], "}"}], ",", 
      RowBox[{"-", "1"}], ",", "4", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "logkr1", ",", "0", ",", 
        "\"\<log(\!\(\*SubscriptBox[\(k\), \(r1\)]\)/\!\(\*SuperscriptBox[\(s\
\), \(-1\)]\))\>\""}], "}"}], ",", 
      RowBox[{"-", "1"}], ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "ao1", ",", "0.8", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)\>\""}], "}"}], ",", 
      "0.2", ",", "0.95", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "logko2", ",", "2", ",", 
        "\"\<log(\!\(\*SubscriptBox[\(k\), \(o2\)]\)/\!\(\*SuperscriptBox[\(s\
\), \(-1\)]\))\>\""}], "}"}], ",", 
      RowBox[{"-", "1"}], ",", "3", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "logkr2", ",", "0", ",", 
        "\"\<log(\!\(\*SubscriptBox[\(k\), \(r2\)]\)/\!\(\*SuperscriptBox[\(s\
\), \(-1\)]\))\>\""}], "}"}], ",", 
      RowBox[{"-", "1"}], ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "ao2", ",", "0.4", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)\>\""}], "}"}], ",", 
      "0.2", ",", "0.8", ",", "0.1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "logko3", ",", "3", ",", 
        "\"\<log(\!\(\*SubscriptBox[\(k\), \
\(o3\)]\)\!\(\*SuperscriptBox[\(A\), \(*\)]\)/\!\(\*SuperscriptBox[\(mol\), \
\(-1\)]\) \!\(\*SuperscriptBox[\(cm\), \(3\)]\) \!\(\*SuperscriptBox[\(s\), \
\(-1\)]\))\>\""}], "}"}], ",", 
      RowBox[{"-", "1"}], ",", "4", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "ao3", ",", "0.4", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)\>\""}], "}"}], ",", 
      "0.2", ",", "0.8", ",", "0.1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"logCdl", ",", 
        RowBox[{"-", "6"}], ",", 
        "\"\<log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \!\(\*SuperscriptBox[\
\(cm\), \(-2\)]\)))\>\""}], "}"}], ",", 
      RowBox[{"-", "6"}], ",", 
      RowBox[{"-", "3"}], ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    "Delimiter", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"V", ",", "Vmin", ",", "\"\<E/V\>\""}], "}"}], ",", 
      RowBox[{"-", "0.4"}], ",", "0.4", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"logwc", ",", 
        RowBox[{"-", "2"}], ",", 
        "\"\<log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))\>\""}], 
       "}"}], ",", "logwmin", ",", "logwmax", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "wc1", ",", "False", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c\)]\) = \
1/(\!\(\*SubscriptBox[\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \
\(dl\)]\))\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2009. Hosted \
by Bio-Logic@www.bio-logic.info\>\"", ",", "Medium"}], "]"}], "}"}]}], ",", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
    RowBox[{"Initialization", "\[RuleDelayed]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Ko1", "[", "V_", "]"}], ":=", 
        RowBox[{"ko1", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"2", " ", "ao1", " ", "f", " ", "V"}], "]"}]}]}], ";", 
       RowBox[{
        RowBox[{"Kr1", "[", "V_", "]"}], ":=", 
        RowBox[{"kr1", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "2"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "ao1"}], ")"}], " ", "f", " ", "V"}], "]"}]}]}],
        ";", 
       RowBox[{
        RowBox[{"Ko2", "[", "V_", "]"}], ":=", 
        RowBox[{"ko2", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"2", " ", "ao2", " ", "f", " ", "V"}], "]"}]}]}], ";", 
       RowBox[{
        RowBox[{"Kr2", "[", "V_", "]"}], ":=", 
        RowBox[{"kr2", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "2"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "ao2"}], ")"}], " ", "f", " ", "V"}], "]"}]}]}],
        ";", 
       RowBox[{
        RowBox[{"Ko3", "[", "V_", "]"}], ":=", 
        RowBox[{"ko3", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"2", " ", "ao3", " ", "f", " ", "V"}], "]"}]}]}], ";", 
       RowBox[{
        RowBox[{"\[Theta]s", "[", "V_", "]"}], ":=", 
        FractionBox[
         RowBox[{
          RowBox[{"Kr1", "[", "V", "]"}], " ", 
          RowBox[{"Kr2", "[", "V", "]"}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"Kr1", "[", "V", "]"}], " ", 
           RowBox[{"Kr2", "[", "V", "]"}]}], "+", 
          RowBox[{
           RowBox[{"Ko1", "[", "V", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Ko2", "[", "V", "]"}], "+", 
             RowBox[{"Kr2", "[", "V", "]"}]}], ")"}]}]}]]}], ";", 
       RowBox[{
        RowBox[{"\[Theta]X", "[", "V_", "]"}], ":=", 
        FractionBox[
         RowBox[{
          RowBox[{"Ko1", "[", "V", "]"}], " ", 
          RowBox[{"Kr2", "[", "V", "]"}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"Kr1", "[", "V", "]"}], " ", 
           RowBox[{"Kr2", "[", "V", "]"}]}], "+", 
          RowBox[{
           RowBox[{"Ko1", "[", "V", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Ko2", "[", "V", "]"}], "+", 
             RowBox[{"Kr2", "[", "V", "]"}]}], ")"}]}]}]]}], ";", 
       RowBox[{
        RowBox[{"\[Theta]Q", "[", "V_", "]"}], ":=", 
        FractionBox[
         RowBox[{
          RowBox[{"Ko1", "[", "V", "]"}], " ", 
          RowBox[{"Ko2", "[", "V", "]"}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"Kr1", "[", "V", "]"}], " ", 
           RowBox[{"Kr2", "[", "V", "]"}]}], "+", 
          RowBox[{
           RowBox[{"Ko1", "[", "V", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Ko2", "[", "V", "]"}], "+", 
             RowBox[{"Kr2", "[", "V", "]"}]}], ")"}]}]}]]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"if", "[", "V_", "]"}], ":=", 
        FractionBox[
         RowBox[{"2", " ", "Farad", " ", "\[CapitalGamma]", " ", 
          RowBox[{"Ko1", "[", "V", "]"}], " ", 
          RowBox[{"Ko3", "[", "V", "]"}], " ", 
          RowBox[{"Kr2", "[", "V", "]"}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"Kr1", "[", "V", "]"}], " ", 
           RowBox[{"Kr2", "[", "V", "]"}]}], "+", 
          RowBox[{
           RowBox[{"Ko1", "[", "V", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Ko2", "[", "V", "]"}], "+", 
             RowBox[{"Kr2", "[", "V", "]"}]}], ")"}]}]}]]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"logwmin", "=", 
        RowBox[{"-", "6"}]}], ";", 
       RowBox[{"logwmax", "=", "8"}], ";", 
       RowBox[{"\[CapitalGamma]", "=", 
        RowBox[{"1.", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "9"}]}]}]}], ";", 
       RowBox[{"f", "=", "38.9"}], ";", 
       RowBox[{"Farad", "=", 
        RowBox[{"F", "=", "96485."}]}], ";", 
       RowBox[{"lHue", "=", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Purple", ",", 
          RowBox[{"Hue", "[", 
           RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], "]"}]}],
          "}"}]}], ";", 
       RowBox[{"monStyle", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], ")"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 Editable->False,
 CellOpen->False,
 CellChangeTimes->{{3.404272476373662*^9, 3.404272477958503*^9}, 
   3.404272668581314*^9, {3.4042727232240887`*^9, 3.404272728454939*^9}, {
   3.404272786841215*^9, 3.404272804870813*^9}, {3.404272838309691*^9, 
   3.4042728618375607`*^9}, {3.4042729526001043`*^9, 
   3.4042730381516457`*^9}, {3.404273079691609*^9, 3.404273217892606*^9}, {
   3.404273294955968*^9, 3.404273298760388*^9}, {3.404273387794849*^9, 
   3.4042734503165693`*^9}, {3.4042734961086283`*^9, 3.404273547525057*^9}, {
   3.404273625605628*^9, 3.404273650497052*^9}, {3.404273731173894*^9, 
   3.404273767096957*^9}, {3.404273799830763*^9, 3.4042738707648983`*^9}, {
   3.40427393239679*^9, 3.404273934883729*^9}, {3.404273974145442*^9, 
   3.404274003508957*^9}, {3.404274114255464*^9, 3.404274136338912*^9}, {
   3.4042741762935133`*^9, 3.404274195910239*^9}, 3.404274257986496*^9, {
   3.404274329300447*^9, 3.404274329827894*^9}, {3.404274362144527*^9, 
   3.4042743661154137`*^9}, {3.404281794664309*^9, 3.404281797246611*^9}, {
   3.404281837182343*^9, 3.404281875096817*^9}, {3.4042819679357033`*^9, 
   3.404282033539279*^9}, 3.404282085939872*^9, {3.404282140862443*^9, 
   3.404282160336235*^9}, {3.404282299291065*^9, 3.404282345207913*^9}, {
   3.404282812673225*^9, 3.404282870347505*^9}, 3.4042829101123857`*^9, {
   3.404282941905983*^9, 3.4042829483433933`*^9}, {3.404283073216866*^9, 
   3.404283082327835*^9}, {3.404283141356715*^9, 3.404283182821355*^9}, {
   3.4042832155227327`*^9, 3.404283258833531*^9}, {3.4042833626548147`*^9, 
   3.404283398426738*^9}, {3.404390659988315*^9, 3.404390689351815*^9}, {
   3.4043907568818893`*^9, 3.404390784286687*^9}, {3.404390860657833*^9, 
   3.40439091742135*^9}, {3.4043910359543037`*^9, 3.404391054714142*^9}, {
   3.404391767968842*^9, 3.40439188885679*^9}, {3.404391935788953*^9, 
   3.404391940364382*^9}, {3.404392002048643*^9, 3.404392004447742*^9}, {
   3.404392051525515*^9, 3.404392068363361*^9}, 3.40439214659828*^9, {
   3.404392703278009*^9, 3.404392771112996*^9}, {3.4043928035315*^9, 
   3.404392840756844*^9}, {3.404392972994961*^9, 3.4043929740834846`*^9}, {
   3.4044290030768223`*^9, 3.404429021544701*^9}, {3.404429287683379*^9, 
   3.404429317399768*^9}, {3.404429368432976*^9, 3.404429454063241*^9}, {
   3.404429505178494*^9, 3.404429557925486*^9}, {3.4044306288480873`*^9, 
   3.40443063643995*^9}, {3.404436058103282*^9, 3.40443606382516*^9}, {
   3.404442176375844*^9, 3.404442230132934*^9}, {3.404442261628434*^9, 
   3.404442267453909*^9}, {3.404442314318016*^9, 3.404442328013001*^9}, {
   3.4044423891008577`*^9, 3.404442389940579*^9}, {3.4044425469300003`*^9, 
   3.404442548202819*^9}, {3.404442639671391*^9, 3.404442640118331*^9}, 
   3.404456693542221*^9, {3.4044731628011703`*^9, 3.404473224992757*^9}, {
   3.404473319237414*^9, 3.404473331786914*^9}, {3.404473366700746*^9, 
   3.404473438662547*^9}, {3.404473479901114*^9, 3.4044735206668663`*^9}, {
   3.404473554174704*^9, 3.404473559247058*^9}, {3.404473610185067*^9, 
   3.404473670607089*^9}, 3.404473917120986*^9, {3.404473956994831*^9, 
   3.4044739580180397`*^9}, {3.404474088931505*^9, 3.4044741427717657`*^9}, {
   3.4044741754491243`*^9, 3.404474290693391*^9}, {3.404474329701288*^9, 
   3.404474330346374*^9}, {3.404474373890414*^9, 3.404474374373801*^9}, {
   3.404474404892201*^9, 3.404474408099757*^9}, {3.4044747799074163`*^9, 
   3.404474789322126*^9}, {3.4044748366129103`*^9, 3.404474847666203*^9}, {
   3.404475972114959*^9, 3.404475987975752*^9}, {3.404476018684896*^9, 
   3.404476038872746*^9}, {3.4045301344013033`*^9, 3.4045301513930283`*^9}, {
   3.404530190584299*^9, 3.404530267364694*^9}, {3.404530412065104*^9, 
   3.404530421363574*^9}, {3.404532943959751*^9, 3.40453302831153*^9}, {
   3.404797302593358*^9, 3.404797348319078*^9}, {3.404797395180875*^9, 
   3.404797445296929*^9}, {3.404797512936145*^9, 3.404797531923532*^9}, {
   3.404797584908869*^9, 3.404797680615205*^9}, {3.404797888873632*^9, 
   3.404797927843219*^9}, {3.40479798203458*^9, 3.4047979846574163`*^9}, {
   3.404799350410967*^9, 3.4047993800733356`*^9}, {3.4047994156019373`*^9, 
   3.40479946595382*^9}, 3.404799543220315*^9, {3.404799579114188*^9, 
   3.404799613458438*^9}, {3.4047996653481293`*^9, 3.404799762097822*^9}, {
   3.4047998049182034`*^9, 3.404799895494069*^9}, {3.404799942573794*^9, 
   3.404799954307382*^9}, {3.404800020381646*^9, 3.40480040525935*^9}, {
   3.404800550808537*^9, 3.404800608631371*^9}, {3.404800645053679*^9, 
   3.4048007327873917`*^9}, {3.404800953337172*^9, 3.404800971605794*^9}, {
   3.404801514373068*^9, 3.4048015834412746`*^9}, {3.404801626280081*^9, 
   3.404801679756674*^9}, {3.4048017255455723`*^9, 3.404801764976033*^9}, {
   3.4048022738128366`*^9, 3.404802309061829*^9}, {3.404802472835491*^9, 
   3.404802488648676*^9}, {3.404802873068316*^9, 3.404802940995611*^9}, {
   3.404803021397653*^9, 3.404803089530534*^9}, {3.404803131352415*^9, 
   3.40480331416397*^9}, {3.404803390688555*^9, 3.404803399355961*^9}, {
   3.404804076089295*^9, 3.4048040991309633`*^9}, {3.40486865759769*^9, 
   3.404868695689033*^9}, {3.404868727872806*^9, 3.404868752113332*^9}, {
   3.4048689449556093`*^9, 3.404868945390654*^9}, {3.404868977091063*^9, 
   3.404868999611095*^9}, {3.4048690325438747`*^9, 3.4048691321976748`*^9}, {
   3.404870017553321*^9, 3.4048700526476727`*^9}, {3.404870143865489*^9, 
   3.404870165374588*^9}, {3.404870236586739*^9, 3.404870241266412*^9}, {
   3.40487782873768*^9, 3.404877843702971*^9}, {3.40487789143778*^9, 
   3.4048780145768547`*^9}, {3.404878061361676*^9, 3.4048780949841347`*^9}, {
   3.404878133750465*^9, 3.404878280232869*^9}, {3.404878337386598*^9, 
   3.4048783719798193`*^9}, {3.404878438417426*^9, 3.4048784934083*^9}, {
   3.404878523465645*^9, 3.4048785775459213`*^9}, {3.405511207402516*^9, 
   3.4055112246878357`*^9}, {3.405511272072027*^9, 3.4055113144445868`*^9}, {
   3.4055113899812098`*^9, 3.4055114055521107`*^9}, 3.4055114565897427`*^9, {
   3.405511542447608*^9, 3.405511544702585*^9}, {3.405511578649404*^9, 
   3.4055115867779827`*^9}, {3.4058475004512653`*^9, 
   3.4058475057616663`*^9}, {3.405847683675837*^9, 3.405847742261528*^9}, {
   3.405847813034894*^9, 3.405847862566736*^9}, {3.4058479034737253`*^9, 
   3.405847915737713*^9}, {3.405847972630558*^9, 3.405848071685534*^9}, {
   3.405848263832196*^9, 3.405848371901084*^9}, {3.4058484122428207`*^9, 
   3.405848434439968*^9}, {3.4058485048212976`*^9, 3.4058485149310703`*^9}, {
   3.4058488561629763`*^9, 3.405848893735724*^9}, {3.405849690954006*^9, 
   3.4058497433152037`*^9}, {3.4058497908573227`*^9, 3.40584989515611*^9}, {
   3.405849957531012*^9, 3.4058499590584803`*^9}, {3.405849992307493*^9, 
   3.405850043794392*^9}, {3.405850099359001*^9, 3.40585011759512*^9}, {
   3.4058517151923227`*^9, 3.405851779818666*^9}, {3.407381728101392*^9, 
   3.407381751973065*^9}, {3.407381805775076*^9, 3.407381829965534*^9}, {
   3.407381996344166*^9, 3.407382069327729*^9}, {3.4073823592813883`*^9, 
   3.407382364765223*^9}, {3.4091446948309183`*^9, 3.409144704757983*^9}, {
   3.409145150121394*^9, 3.409145169748128*^9}, {3.409145221801231*^9, 
   3.40914534214545*^9}, {3.409145555864357*^9, 3.409145570587775*^9}, {
   3.4091457201985807`*^9, 3.409145810944936*^9}, {3.4091979660446568`*^9, 
   3.409197989979432*^9}, {3.40919803855297*^9, 3.409198045609851*^9}, {
   3.409198098466488*^9, 3.409198112257579*^9}, {3.4091981504837227`*^9, 
   3.409198153522263*^9}, {3.4091983396772823`*^9, 3.409198394447831*^9}, {
   3.409198430147241*^9, 3.4091985144139557`*^9}, {3.4091985569382057`*^9, 
   3.409198645920292*^9}, {3.409198680357965*^9, 3.409198759343459*^9}, 
   3.409198797333907*^9, 3.409198858249975*^9, {3.409198898586858*^9, 
   3.4091989590514393`*^9}, {3.409199010753881*^9, 3.409199011201825*^9}, {
   3.409199080287072*^9, 3.4091990871999607`*^9}, {3.4091991313120327`*^9, 
   3.4091991506497393`*^9}, {3.40919921656496*^9, 3.409199219103196*^9}, {
   3.409199254442206*^9, 3.409199358914257*^9}, {3.409199406952813*^9, 
   3.409199435516676*^9}, {3.409199472250305*^9, 3.4091994758022137`*^9}, {
   3.4091997282430983`*^9, 3.409199729777094*^9}, {3.409199856059022*^9, 
   3.4091998895127573`*^9}, {3.4091999729793043`*^9, 3.409199974582591*^9}, 
   3.4092000546359787`*^9, {3.4092001436980133`*^9, 3.4092001934302177`*^9}, {
   3.409200247031893*^9, 3.409200349184458*^9}, {3.409200427862976*^9, 
   3.409200432516345*^9}, {3.409200542244075*^9, 3.40920055184779*^9}, {
   3.4092005960240927`*^9, 3.409200599302109*^9}, 3.409659897133309*^9, {
   3.40966001382692*^9, 3.409660023471949*^9}, {3.4096603583021812`*^9, 
   3.409660398665349*^9}, {3.409826369914709*^9, 3.409826549832324*^9}, {
   3.4098267129596767`*^9, 3.409826763001767*^9}, {3.409827039601323*^9, 
   3.409827041308535*^9}, 3.4098357049570847`*^9, {3.409836076781519*^9, 
   3.409836082369824*^9}, {3.4098362001620293`*^9, 3.409836205395507*^9}, {
   3.409836243672278*^9, 3.409836250163774*^9}, {3.4098870624197893`*^9, 
   3.409887079496112*^9}, {3.409887480167531*^9, 3.409887579914795*^9}, {
   3.4098876544890757`*^9, 3.409887764519596*^9}, {3.409887859654282*^9, 
   3.4098879077556553`*^9}, {3.409887976652581*^9, 3.409888061869278*^9}, {
   3.40988810046828*^9, 3.409888150048283*^9}, 3.4098882021345673`*^9, {
   3.409888254379335*^9, 3.409888294266397*^9}, {3.4098883322826757`*^9, 
   3.40988833307551*^9}, {3.409888458439542*^9, 3.4098884772445374`*^9}, {
   3.409888971709462*^9, 3.409888973717918*^9}, {3.409889033847617*^9, 
   3.409889034565271*^9}, {3.409889118168438*^9, 3.40988912242384*^9}, {
   3.409889184644986*^9, 3.409889245842848*^9}, {3.4098893768829813`*^9, 
   3.409889398954444*^9}, 3.409889446666225*^9, {3.409889504149583*^9, 
   3.409889509922298*^9}, {3.409889553883994*^9, 3.409889608326518*^9}, {
   3.4098896500586777`*^9, 3.409889656222608*^9}, {3.40988977856738*^9, 
   3.40988981125292*^9}, {3.409889870395122*^9, 3.4098899106131983`*^9}, {
   3.409889969637135*^9, 3.409889974296064*^9}, {3.4098902765772257`*^9, 
   3.409890283751268*^9}, {3.409890415914304*^9, 3.409890418997225*^9}, {
   3.4098905365496683`*^9, 3.409890552736751*^9}, {3.4098906794376574`*^9, 
   3.409890683419834*^9}, {3.409890862230513*^9, 3.409890862679196*^9}, {
   3.409890930368342*^9, 3.409891162540668*^9}, 3.409891262503067*^9, {
   3.409891318307454*^9, 3.409891396810326*^9}, {3.40989148470792*^9, 
   3.409891561310915*^9}, {3.4098916666894617`*^9, 3.409891745151566*^9}, {
   3.409891790173766*^9, 3.409891793373557*^9}, {3.409961984636973*^9, 
   3.409961986696422*^9}, {3.409962096004808*^9, 3.4099627009814453`*^9}, 
   3.409962748548418*^9, {3.4099629640122538`*^9, 3.4099629663158293`*^9}, {
   3.409963014267139*^9, 3.4099630700368023`*^9}, {3.4099631037820683`*^9, 
   3.409963195971099*^9}, {3.409963538379722*^9, 3.409963546515532*^9}, {
   3.409963582654696*^9, 3.409963585095978*^9}, {3.409963619057889*^9, 
   3.409963652687055*^9}, {3.409963687375931*^9, 3.409963695576548*^9}, {
   3.409963766561234*^9, 3.4099637943730783`*^9}, {3.409963830067019*^9, 
   3.409963905879588*^9}, {3.409964004179577*^9, 3.409964017983913*^9}, {
   3.409964114927113*^9, 3.409964125998127*^9}, {3.4099642392248297`*^9, 
   3.409964267664547*^9}, {3.409964354097486*^9, 3.4099643557036877`*^9}, {
   3.4099760538093853`*^9, 3.409976069020897*^9}, {3.409976110760868*^9, 
   3.4099761636454268`*^9}, {3.4099762146885977`*^9, 3.409976215664937*^9}, {
   3.40997630849279*^9, 3.409976396858018*^9}, {3.409976457868639*^9, 
   3.4099764704991198`*^9}, 3.409976598000903*^9, {3.4099766817519073`*^9, 
   3.409976687061287*^9}, {3.4099767313396597`*^9, 3.4099767335465918`*^9}, 
   3.409976823154581*^9, {3.410149429685978*^9, 3.41014953731946*^9}, 
   3.410149977823204*^9, {3.410150030864727*^9, 3.410150043755621*^9}, 
   3.410150428436063*^9, {3.410150572093894*^9, 3.410150580297813*^9}, {
   3.410150632005249*^9, 3.410150660879929*^9}, {3.4101507708731203`*^9, 
   3.410150827384691*^9}, {3.410150874753819*^9, 3.410150892525072*^9}, {
   3.41059833537533*^9, 3.410598346089198*^9}, {3.4105983867993107`*^9, 
   3.410598444791081*^9}, {3.410598481020668*^9, 3.410598579557877*^9}, {
   3.410598618730739*^9, 3.410598619118001*^9}, 3.417949434178256*^9, {
   3.4179496300164223`*^9, 3.417949751883197*^9}, 3.4179511419625874`*^9, {
   3.417997763765888*^9, 3.417998089108555*^9}, {3.417998144650931*^9, 
   3.41799817255051*^9}, 3.41799821111071*^9, {3.417998315871318*^9, 
   3.417998424440629*^9}, {3.41799846322906*^9, 3.4179985343605967`*^9}, {
   3.417998568715629*^9, 3.417998666318487*^9}, {3.41799895543025*^9, 
   3.417998991102665*^9}, {3.417999047125546*^9, 3.4179990477132893`*^9}, {
   3.417999084079496*^9, 3.417999086958641*^9}, {3.417999208176765*^9, 
   3.41799924973064*^9}, {3.4179992886878853`*^9, 3.41799930197871*^9}, {
   3.4180067547576427`*^9, 3.418006829123155*^9}, 3.418006875139551*^9, {
   3.41800690547751*^9, 3.418006953337328*^9}, {3.418007004527329*^9, 
   3.4180070439670343`*^9}, {3.4180070784406013`*^9, 3.418007163954267*^9}, {
   3.418007225215246*^9, 3.418007227679633*^9}, {3.418009561320805*^9, 
   3.4180095728299303`*^9}, {3.4180096827433662`*^9, 3.418009715157667*^9}, {
   3.418009802471468*^9, 3.418009834017932*^9}, 3.4180098876280746`*^9, {
   3.418009950320879*^9, 3.418010005567071*^9}, {3.4180100426251707`*^9, 
   3.418010055248555*^9}, {3.418010119838146*^9, 3.4180101203030243`*^9}, {
   3.418010228244794*^9, 3.41801024306673*^9}, 3.418010353024486*^9, {
   3.418010742756483*^9, 3.418010766446157*^9}, {3.41801099423145*^9, 
   3.418011001209635*^9}, {3.418011424281515*^9, 3.418011429144436*^9}, {
   3.4180115475535917`*^9, 3.418011552858307*^9}, {3.418011614765192*^9, 
   3.4180116564150467`*^9}, {3.4180117809247303`*^9, 
   3.4180117829037323`*^9}, {3.418011816960169*^9, 3.418011817355322*^9}, {
   3.41801197896872*^9, 3.418011979272894*^9}, {3.418012208373004*^9, 
   3.418012216646144*^9}, {3.418012364826016*^9, 3.418012405728922*^9}, {
   3.418035654018916*^9, 3.418035675430379*^9}, {3.418035883829249*^9, 
   3.4180358894434633`*^9}, 3.4180360266192827`*^9, {3.418036168777985*^9, 
   3.4180361798198233`*^9}, {3.418086923584012*^9, 3.418086942770763*^9}, {
   3.418087048349567*^9, 3.41808706028839*^9}, {3.418087105703856*^9, 
   3.418087112652162*^9}, {3.4180872693993998`*^9, 3.418087274047105*^9}, 
   3.418089190411933*^9, {3.4180892269764643`*^9, 3.4180892293538027`*^9}, 
   3.4180895091347933`*^9, 3.418091146450473*^9, {3.418091237712615*^9, 
   3.418091261693074*^9}, {3.418091303719523*^9, 3.41809130883882*^9}, {
   3.4180913813914213`*^9, 3.418091394676991*^9}, {3.418091424728513*^9, 
   3.4180914527430162`*^9}, {3.4182583555829477`*^9, 
   3.4182583852669897`*^9}, {3.41825861104793*^9, 3.418258611429817*^9}, {
   3.418258666096218*^9, 3.4182586691248913`*^9}, {3.418258732377563*^9, 
   3.418258823462243*^9}, {3.418258899482452*^9, 3.418258966218912*^9}, 
   3.418259048187232*^9, {3.41826162940084*^9, 3.418261722711376*^9}, {
   3.41826177577534*^9, 3.418261861047256*^9}, {3.4182619041599617`*^9, 
   3.418261970460414*^9}, {3.418262014999312*^9, 3.418262076747902*^9}, 
   3.418262221302092*^9, 3.418262359725176*^9, 3.418262413623827*^9, {
   3.418266512851845*^9, 3.4182665558580437`*^9}, 3.418266619170464*^9, {
   3.41826667347593*^9, 3.418266743624466*^9}, {3.4182667959808683`*^9, 
   3.418266815684431*^9}, {3.418266855596546*^9, 3.418266865538024*^9}, {
   3.4182669007574787`*^9, 3.418266918177258*^9}, {3.418267112464221*^9, 
   3.4182671146252823`*^9}, {3.418267182943376*^9, 3.418267366968749*^9}, {
   3.4182726253334837`*^9, 3.418272641986429*^9}, {3.418272681226139*^9, 
   3.4182727958358517`*^9}, {3.418273103388369*^9, 3.418273125216723*^9}, 
   3.4182733529002*^9, {3.418273513252945*^9, 3.418273544914019*^9}, {
   3.418273619272998*^9, 3.418273623718878*^9}, {3.4184391467337*^9, 
   3.418439153166453*^9}, 3.418439433776864*^9, 3.418439475571064*^9, {
   3.418439518053729*^9, 3.4184395182602053`*^9}, {3.4184396600129347`*^9, 
   3.418439667138685*^9}, {3.418440018378929*^9, 3.418440099833112*^9}, {
   3.418440841038348*^9, 3.4184408498792877`*^9}, 3.4184409668940353`*^9, {
   3.418441093862893*^9, 3.418441211621192*^9}, 3.418441378811412*^9, 
   3.4184414351597967`*^9, {3.4184415326372147`*^9, 3.418441551326521*^9}, {
   3.418441601825213*^9, 3.4184416222060204`*^9}, {3.4184418602492123`*^9, 
   3.4184419338588657`*^9}, 3.418441974306828*^9, {3.4184420153942823`*^9, 
   3.4184420157667294`*^9}, {3.418442248395273*^9, 3.418442250652368*^9}, {
   3.418442611184784*^9, 3.4184426294030046`*^9}, {3.418442726435979*^9, 
   3.418442735833583*^9}, {3.418442819624752*^9, 3.418442824884239*^9}, {
   3.418956827604877*^9, 3.4189569210216227`*^9}, {3.418957048958707*^9, 
   3.418957072403749*^9}, {3.418957104626505*^9, 3.418957127540646*^9}, {
   3.418957431583352*^9, 3.418957436328272*^9}, {3.418957473516563*^9, 
   3.4189575139240026`*^9}, 3.4189575499724083`*^9, 3.418957615319002*^9, {
   3.41895786305259*^9, 3.41895792143497*^9}, 3.418957987367543*^9, 
   3.4189580597480297`*^9, {3.418958138733272*^9, 3.4189581396604633`*^9}, {
   3.418959052954566*^9, 3.418959104725219*^9}, {3.418973822137576*^9, 
   3.418973866651815*^9}, {3.418974137204894*^9, 3.4189741399557533`*^9}, {
   3.4189743185629*^9, 3.418974369174114*^9}, {3.4189744378130083`*^9, 
   3.418974454663303*^9}, {3.418974490754208*^9, 3.418974525090032*^9}, {
   3.4189745647501793`*^9, 3.418974576888026*^9}, {3.4375690093129463`*^9, 
   3.437569028535557*^9}, {3.437569146017406*^9, 3.4375691490091667`*^9}, {
   3.437569241490491*^9, 3.437569279202218*^9}, {3.437569437971881*^9, 
   3.437569443584914*^9}, {3.4375695427851763`*^9, 3.4375695461059313`*^9}, {
   3.4391719349273148`*^9, 3.439171939399012*^9}, {3.43917197015217*^9, 
   3.439171985201461*^9}, 3.439172199389069*^9, {3.4391722495884323`*^9, 
   3.4391722668681507`*^9}, {3.4392704052221003`*^9, 3.439270416230935*^9}, {
   3.439270700427086*^9, 3.4392707105888643`*^9}, {3.4392707458899813`*^9, 
   3.4392708722450533`*^9}, {3.439270945267743*^9, 3.439270958777092*^9}, 
   3.439271221938094*^9, {3.4402129861956177`*^9, 3.440213020065041*^9}, 
   3.440213092938768*^9, {3.4402135547508*^9, 3.440213581398864*^9}, 
   3.440213797424101*^9, {3.440213832738432*^9, 3.440213835282061*^9}, {
   3.440213866000211*^9, 3.4402138669581327`*^9}, {3.4402243898680353`*^9, 
   3.44022443766616*^9}, {3.4402458936896772`*^9, 3.440245922452882*^9}, {
   3.441424288155528*^9, 3.4414243314279737`*^9}, {3.44142437278615*^9, 
   3.441424428912539*^9}, {3.4414256102324467`*^9, 3.441425614751607*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`ao1$$ = 0.8, $CellContext`ao2$$ = 
    0.4, $CellContext`ao3$$ = 
    0.4, $CellContext`logCdl$$ = -6, $CellContext`logko1$$ = 
    1, $CellContext`logko2$$ = 2, $CellContext`logko3$$ = 
    3, $CellContext`logkr1$$ = 0, $CellContext`logkr2$$ = 
    0, $CellContext`logwc$$ = -2, $CellContext`V$$ = -0.08200000000000002, \
$CellContext`wc1$$ = False, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style[
       "                                  M,s \!\(\*UnderoverscriptBox[\(\
\[LeftRightArrow]\), SubscriptBox[\(K\), \(r1\)], SubscriptBox[\(K\), \
\(o1\)]]\) X,s + 2 \!\(\*SuperscriptBox[\(e\), \(-\)]\) ", Bold, Medium]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style[
       "                                  X,s \!\(\*UnderoverscriptBox[\(\
\[LeftRightArrow]\), SubscriptBox[\(K\), \(r2\)], SubscriptBox[\(K\), \
\(o2\)]]\) Q,s + 2 \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style[
       "                           X,s + A \
\!\(\*OverscriptBox[\(\[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) X,s + B \
+ 2 \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium]], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`logko1$$], 1, 
       "log(\!\(\*SubscriptBox[\(k\), \(o1\)]\)/\!\(\*SuperscriptBox[\(s\), \
\(-1\)]\))"}, -1, 4}, {{
       Hold[$CellContext`logkr1$$], 0, 
       "log(\!\(\*SubscriptBox[\(k\), \(r1\)]\)/\!\(\*SuperscriptBox[\(s\), \
\(-1\)]\))"}, -1, 1}, {{
       Hold[$CellContext`ao1$$], 0.8, 
       "\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)"}, 0.2, 0.95}, {{
       Hold[$CellContext`logko2$$], 2, 
       "log(\!\(\*SubscriptBox[\(k\), \(o2\)]\)/\!\(\*SuperscriptBox[\(s\), \
\(-1\)]\))"}, -1, 3}, {{
       Hold[$CellContext`logkr2$$], 0, 
       "log(\!\(\*SubscriptBox[\(k\), \(r2\)]\)/\!\(\*SuperscriptBox[\(s\), \
\(-1\)]\))"}, -1, 1}, {{
       Hold[$CellContext`ao2$$], 0.4, 
       "\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)"}, 0.2, 0.8, 0.1}, {{
       Hold[$CellContext`logko3$$], 3, 
       "log(\!\(\*SubscriptBox[\(k\), \(o3\)]\)\!\(\*SuperscriptBox[\(A\), \
\(*\)]\)/\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \!\(\*SuperscriptBox[\(cm\), \
\(3\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 4}, {{
       Hold[$CellContext`ao3$$], 0.4, 
       "\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)"}, 0.2, 0.8, 0.1}, {{
       Hold[$CellContext`logCdl$$], -6, 
       "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \
\!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3}, {{
       Hold[$CellContext`V$$], -0.13806268384890233`, "E/V"}, -0.4, 0.4}, {{
       Hold[$CellContext`logwc$$], -2, 
       "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -6, 8}, {{
      
       Hold[$CellContext`wc1$$], False, 
       "\!\(\*SubscriptBox[\(\[Omega]\), \(c\)]\) = 1/(\!\(\*SubscriptBox[\(R\
\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, {False, True}}}, 
    Typeset`size$$ = {500., {254., 258.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`logko1$75757$$ = 0, $CellContext`logkr1$75758$$ = 
    0, $CellContext`ao1$75759$$ = 0, $CellContext`logko2$75760$$ = 
    0, $CellContext`logkr2$75761$$ = 0, $CellContext`ao2$75762$$ = 
    0, $CellContext`logko3$75763$$ = 0, $CellContext`ao3$75764$$ = 
    0, $CellContext`logCdl$75765$$ = 0, $CellContext`V$75766$$ = 
    0, $CellContext`wc1$75767$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`ao1$$ = 0.8, $CellContext`ao2$$ = 
        0.4, $CellContext`ao3$$ = 
        0.4, $CellContext`logCdl$$ = -6, $CellContext`logko1$$ = 
        1, $CellContext`logko2$$ = 2, $CellContext`logko3$$ = 
        3, $CellContext`logkr1$$ = 0, $CellContext`logkr2$$ = 
        0, $CellContext`logwc$$ = -2, $CellContext`V$$ = \
-0.13806268384890233`, $CellContext`wc1$$ = False}, 
      "ControllerVariables" :> {
        Hold[$CellContext`logko1$$, $CellContext`logko1$75757$$, 0], 
        Hold[$CellContext`logkr1$$, $CellContext`logkr1$75758$$, 0], 
        Hold[$CellContext`ao1$$, $CellContext`ao1$75759$$, 0], 
        Hold[$CellContext`logko2$$, $CellContext`logko2$75760$$, 0], 
        Hold[$CellContext`logkr2$$, $CellContext`logkr2$75761$$, 0], 
        Hold[$CellContext`ao2$$, $CellContext`ao2$75762$$, 0], 
        Hold[$CellContext`logko3$$, $CellContext`logko3$75763$$, 0], 
        Hold[$CellContext`ao3$$, $CellContext`ao3$75764$$, 0], 
        Hold[$CellContext`logCdl$$, $CellContext`logCdl$75765$$, 0], 
        Hold[$CellContext`V$$, $CellContext`V$75766$$, 0], 
        Hold[$CellContext`wc1$$, $CellContext`wc1$75767$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`Cdl = 
        10^$CellContext`logCdl$$; $CellContext`ko1 = 
        10^$CellContext`logko1$$; $CellContext`kr1 = 
        10^$CellContext`logkr1$$; $CellContext`ko2 = 
        10^$CellContext`logko2$$; $CellContext`kr2 = 
        10^$CellContext`logkr2$$; $CellContext`ko3 = 
        10^$CellContext`logko3$$; $CellContext`ao1$$; $CellContext`ao2$$; \
$CellContext`V$$; $CellContext`ao3$$; $CellContext`Ko1V = \
$CellContext`Ko1[$CellContext`V$$]; $CellContext`Kr1V = \
$CellContext`Kr1[$CellContext`V$$]; $CellContext`Ko2V = \
$CellContext`Ko2[$CellContext`V$$]; $CellContext`Kr2V = \
$CellContext`Kr2[$CellContext`V$$]; $CellContext`Ko3V = \
$CellContext`Ko3[$CellContext`V$$]; $CellContext`Rt = ($CellContext`Kr1V \
$CellContext`Kr2V + $CellContext`Ko1V ($CellContext`Ko2V + \
$CellContext`Kr2V))/((((((4 $CellContext`f) $CellContext`F) $CellContext`Ko1V)
             ($CellContext`Ko2V + $CellContext`ao3$$ $CellContext`Ko3V + \
$CellContext`Kr1V)) $CellContext`Kr2V) $CellContext`\[CapitalGamma]); \
$CellContext`lw = {1/($CellContext`Rt $CellContext`Cdl)}; $CellContext`AbsRp = 
        Abs[(($CellContext`Ko2V + $CellContext`ao3$$ $CellContext`Ko3V + \
$CellContext`Kr1V) ($CellContext`Kr1V $CellContext`Kr2V + $CellContext`Ko1V \
($CellContext`Ko2V + $CellContext`Kr2V))) ($CellContext`Rt/($CellContext`Ko3V \
(((1 + $CellContext`ao3$$) $CellContext`Kr1V) $CellContext`Kr2V + \
$CellContext`Ko1V ((-1 + $CellContext`ao3$$) $CellContext`Ko2V + \
$CellContext`ao3$$ $CellContext`Kr2V))))]; $CellContext`Ep = 
        Log[($CellContext`ao3$$ $CellContext`kr2 + $CellContext`kr2^
              Rational[
               1, 2] (((4 $CellContext`ko2) $CellContext`kr1 - ((
                  4 $CellContext`ao3$$^2) $CellContext`ko2) $CellContext`kr1 + \
($CellContext`ao3$$^2 $CellContext`ko1) $CellContext`kr2)^
               Rational[1, 2]/$CellContext`ko1^Rational[1, 2]))/(
           2 $CellContext`ko2 - (2 $CellContext`ao3$$) $CellContext`ko2)]/(
         2 $CellContext`f); $CellContext`Vmin = $CellContext`Ep - 
         0.1; $CellContext`Vmax = $CellContext`Ep + 
         0.1; $CellContext`denZXi = $CellContext`Ko3V (((
              1 + $CellContext`ao3$$) $CellContext`Kr1V) $CellContext`Kr2V + \
$CellContext`Ko1V ((-1 + $CellContext`ao3$$) $CellContext`Ko2V + \
$CellContext`ao3$$ $CellContext`Kr2V)) + ($CellContext`Ko1V \
($CellContext`Ko2V + $CellContext`ao3$$ $CellContext`Ko3V) + ((
              1 + $CellContext`ao3$$) $CellContext`Ko3V) $CellContext`Kr1V + \
$CellContext`Ko2V ((-1 + $CellContext`ao3$$) $CellContext`Ko3V + 
             4 $CellContext`Kr1V) + ($CellContext`ao3$$ $CellContext`Ko3V + \
$CellContext`Kr1V) $CellContext`Kr2V) $CellContext`p + ($CellContext`Ko2V + \
$CellContext`ao3$$ $CellContext`Ko3V + $CellContext`Kr1V) $CellContext`p^2; \
$CellContext`ZX1Et = (($CellContext`Ko1V $CellContext`Kr1V) (
           2 $CellContext`Ko2V + $CellContext`Kr2V + $CellContext`p)) \
($CellContext`Rt/($CellContext`denZXi $CellContext`AbsRp)); \
$CellContext`ZX2Et = (($CellContext`Ko2V + $CellContext`Ko3V - \
$CellContext`Kr1V) ($CellContext`Ko1V $CellContext`Ko2V - $CellContext`Kr1V \
$CellContext`Kr2V + ($CellContext`Ko2V - $CellContext`Kr1V) $CellContext`p)) \
($CellContext`Rt/($CellContext`denZXi $CellContext`AbsRp)); \
$CellContext`ZX3Et = (($CellContext`Ko2V $CellContext`Kr2V) \
($CellContext`Ko1V + 
           2 $CellContext`Kr1V + $CellContext`p)) \
($CellContext`Rt/($CellContext`denZXi $CellContext`AbsRp)); $CellContext`Zf = \
$CellContext`Rt + $CellContext`AbsRp ($CellContext`ZX1Et + $CellContext`ZX2Et + \
$CellContext`ZX3Et); $CellContext`ZfEt = $CellContext`Zf/$CellContext`AbsRp; \
$CellContext`ZEt = $CellContext`Zf/((
          1 + ($CellContext`p $CellContext`Cdl) $CellContext`Zf) \
$CellContext`AbsRp); GraphicsGrid[{{
           Plot[
            Evaluate[
            10^3 $CellContext`if[$CellContext`VSta]], {$CellContext`VSta, \
$CellContext`Vmin, $CellContext`Vmax}, PlotStyle -> {
              AbsoluteThickness[2]}, Frame -> True, Epilog -> {
              AbsolutePointSize[5], 
              
              Point[{$CellContext`V$$, 
                10^3 $CellContext`if[$CellContext`V$$]}]}, 
            FrameLabel -> {
             "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", 
              "\!\(\*SubscriptBox[\"i\", \n StyleBox[\"\\\"f\\\"\",\n\
FontWeight->\"Plain\"]]\)/(mA \!\(\*SuperscriptBox[\(cm\), \(-2\)]\))"}, Axes -> 
            None, BaseStyle -> $CellContext`monStyle, FrameTicksStyle -> 
            Directive[8], ImageSize -> 220], 
           Plot[
            Evaluate[{
              $CellContext`\[Theta]s[$CellContext`VSta], 
              $CellContext`\[Theta]X[$CellContext`VSta], 
              $CellContext`\[Theta]Q[$CellContext`VSta]}], \
{$CellContext`VSta, $CellContext`Vmin, $CellContext`Vmax}, Frame -> True, 
            FrameLabel -> {
             "\!\(\*\nStyleBox[\"E\",\nFontSlant->\"Italic\"]\)/V", 
              "\[Theta]"}, Axes -> None, PlotStyle -> {{Blue, 
               AbsoluteThickness[1.5]}, {Purple, 
               AbsoluteThickness[2]}, {
               Part[$CellContext`lHue, 3], 
               AbsoluteThickness[2]}}, Epilog -> {
              AbsolutePointSize[5], 
              Point[{$CellContext`V$$, 
                $CellContext`\[Theta]s[$CellContext`V$$]}], 
              Point[{$CellContext`V$$, 
                $CellContext`\[Theta]X[$CellContext`V$$]}], 
              Point[{$CellContext`V$$, 
                $CellContext`\[Theta]Q[$CellContext`V$$]}], Blue, 
              Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"s\"\)]\)", 
               Scaled[{0.9, 0.82}]], Purple, 
              Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"X\"\)]\)", 
               Scaled[{0.9, 0.7}]], 
              Part[$CellContext`lHue, 3], 
              Text["\!\(\*SubscriptBox[\(\[Theta]\), \(\"Q\"\)]\)", 
               Scaled[{0.9, 0.58}]]}, BaseStyle -> $CellContext`monStyle, 
            FrameTicksStyle -> Directive[8], ImageSize -> 220]}, {
           ParametricPlot[
            Evaluate[{
              ReplaceAll[{
                Re[$CellContext`ZX1Et], -
                Im[$CellContext`ZX1Et]}, $CellContext`p -> 
               I 10^$CellContext`logw]}], {$CellContext`logw, \
$CellContext`logwmin, $CellContext`logwmax}, PlotRange -> All, Frame -> True, 
            ImageSize -> {220, 150}, PlotStyle -> {Blue, 
              AbsoluteThickness[2]}, 
            FrameLabel -> {
             "Re \!\(\*SubscriptBox[\(Z\), \
\(\"s\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", 
              "- Im \!\(\*SubscriptBox[\(Z\), \
\(\"s\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, 
            BaseStyle -> $CellContext`monStyle, FrameTicksStyle -> 
            Directive[8], Epilog -> {
              AbsolutePointSize[6], {
               Point[
                ReplaceAll[{
                  Re[$CellContext`ZX1Et], -
                  Im[$CellContext`ZX1Et]}, $CellContext`p -> 
                 I 10^$CellContext`logwc$$]]}}], 
           ParametricPlot[
            Evaluate[
             ReplaceAll[{{
                Re[$CellContext`ZX2Et], -
                Im[$CellContext`ZX2Et]}}, $CellContext`p -> 
              I 10^$CellContext`logw]], {$CellContext`logw, \
$CellContext`logwmin, $CellContext`logwmax}, Frame -> True, PlotRange -> All, 
            PlotStyle -> {Purple, 
              AbsoluteThickness[2]}, 
            FrameLabel -> {
             "Re \!\(\*SubscriptBox[\(Z\), \
\(\"X\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", 
              "- Im \!\(\*SubscriptBox[\(Z\), \
\(\"X\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, 
            BaseStyle -> $CellContext`monStyle, FrameTicksStyle -> 
            Directive[8], ImageSize -> {220, 150}, Epilog -> {
              AbsolutePointSize[6], {
               Point[
                ReplaceAll[{
                  Re[$CellContext`ZX2Et], -
                  Im[$CellContext`ZX2Et]}, $CellContext`p -> 
                 I 10^$CellContext`logwc$$]]}}]}, {
           ParametricPlot[
            Evaluate[{
              ReplaceAll[{
                Re[$CellContext`ZX3Et], -
                Im[$CellContext`ZX3Et]}, $CellContext`p -> 
               I 10^$CellContext`logw]}], {$CellContext`logw, \
$CellContext`logwmin, $CellContext`logwmax}, AspectRatio -> Automatic, 
            PlotRange -> All, Frame -> True, PlotStyle -> {
              Part[$CellContext`lHue, 3], 
              AbsoluteThickness[2]}, BaseStyle -> $CellContext`monStyle, 
            FrameLabel -> {
             "Re \!\(\*SubscriptBox[\(Z\), \
\(\"Q\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", 
              "- Im \!\(\*SubscriptBox[\(Z\), \
\(\"Q\"\)]\)/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, FrameTicksStyle -> 
            Directive[8], ImageSize -> {220, 150}, Epilog -> {
              AbsolutePointSize[6], {
               Point[
                ReplaceAll[{
                  Re[$CellContext`ZX3Et], -
                  Im[$CellContext`ZX3Et]}, $CellContext`p -> 
                 I 10^$CellContext`logwc$$]]}}], 
           ParametricPlot[
            Evaluate[{
              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}, Frame -> True, PlotRange -> All, 
            Epilog -> {
              AbsolutePointSize[6], {
               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$$]]}, 
              If[$CellContext`wc1$$, {Red, 
                Point[
                 ReplaceAll[{
                   Re[$CellContext`ZEt], -
                   Im[$CellContext`ZEt]}, $CellContext`p -> 
                  I Part[$CellContext`lw, 1]]]}, {}], Purple, 
              Text["Z", 
               Scaled[{0.075, 0.9}]], Blue, 
              Text["\!\(\*SubscriptBox[\(Z\), \(\"f\"\)]\)", 
               Scaled[{0.075, 0.75}]]}, PlotStyle -> {{Purple, 
               AbsoluteThickness[1]}, {Blue, 
               AbsoluteThickness[2]}}, 
            FrameLabel -> {
             "Re Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)", 
              "- Im Z/\!\(\*SubscriptBox[\(R\), \(\"p\"\)]\)"}, 
            BaseStyle -> $CellContext`monStyle, FrameTicksStyle -> 
            Directive[8], ImageSize -> {220, 150}, ImageSize -> {220, 150}]}},
          ImageSize -> 500]), "Specifications" :> {
        Style[
        "                                  M,s \!\(\*UnderoverscriptBox[\(\
\[LeftRightArrow]\), SubscriptBox[\(K\), \(r1\)], SubscriptBox[\(K\), \
\(o1\)]]\) X,s + 2 \!\(\*SuperscriptBox[\(e\), \(-\)]\) ", Bold, Medium], 
        Style[
        "                                  X,s \!\(\*UnderoverscriptBox[\(\
\[LeftRightArrow]\), SubscriptBox[\(K\), \(r2\)], SubscriptBox[\(K\), \
\(o2\)]]\) Q,s + 2 \!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium], 
        Style[
        "                           X,s + A \!\(\*OverscriptBox[\(\
\[RightArrow]\), SubscriptBox[\(K\), \(o3\)]]\) X,s + B + 2 \
\!\(\*SuperscriptBox[\(e\), \(-\)]\)", Bold, Medium], 
        Delimiter, {{$CellContext`logko1$$, 1, 
          "log(\!\(\*SubscriptBox[\(k\), \
\(o1\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 4, Appearance -> 
         "Labeled"}, {{$CellContext`logkr1$$, 0, 
          "log(\!\(\*SubscriptBox[\(k\), \
\(r1\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 1, Appearance -> 
         "Labeled"}, {{$CellContext`ao1$$, 0.8, 
          "\!\(\*SubscriptBox[\(\[Alpha]\), \(o1\)]\)"}, 0.2, 0.95, 
         Appearance -> 
         "Labeled"}, {{$CellContext`logko2$$, 2, 
          "log(\!\(\*SubscriptBox[\(k\), \
\(o2\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 3, Appearance -> 
         "Labeled"}, {{$CellContext`logkr2$$, 0, 
          "log(\!\(\*SubscriptBox[\(k\), \
\(r2\)]\)/\!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 1, Appearance -> 
         "Labeled"}, {{$CellContext`ao2$$, 0.4, 
          "\!\(\*SubscriptBox[\(\[Alpha]\), \(o2\)]\)"}, 0.2, 0.8, 0.1, 
         Appearance -> 
         "Labeled"}, {{$CellContext`logko3$$, 3, 
          "log(\!\(\*SubscriptBox[\(k\), \(o3\)]\)\!\(\*SuperscriptBox[\(A\), \
\(*\)]\)/\!\(\*SuperscriptBox[\(mol\), \(-1\)]\) \!\(\*SuperscriptBox[\(cm\), \
\(3\)]\) \!\(\*SuperscriptBox[\(s\), \(-1\)]\))"}, -1, 4, Appearance -> 
         "Labeled"}, {{$CellContext`ao3$$, 0.4, 
          "\!\(\*SubscriptBox[\(\[Alpha]\), \(o3\)]\)"}, 0.2, 0.8, 0.1, 
         Appearance -> 
         "Labeled"}, {{$CellContext`logCdl$$, -6, 
          "log(\!\(\*SubscriptBox[\(C\), \(dl\)]\)/(F \
\!\(\*SuperscriptBox[\(cm\), \(-2\)]\)))"}, -6, -3, Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`V$$, -0.13806268384890233`, "E/V"}, -0.4, 
         0.4, Appearance -> 
         "Labeled"}, {{$CellContext`logwc$$, -2, 
          "log(\[Omega]/(rd \!\(\*SuperscriptBox[\(s\), \(-1\)]\)))"}, -6, 8, 
         Appearance -> 
         "Labeled"}, {{$CellContext`wc1$$, False, 
          "\!\(\*SubscriptBox[\(\[Omega]\), \(c\)]\) = 1/(\!\(\*SubscriptBox[\
\(R\), \(ct\)]\)\!\(\*SubscriptBox[\(C\), \(dl\)]\))"}, {False, True}}}, 
      "Options" :> {FrameLabel -> {
          Style[
          "ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2009. Hosted \
by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}],
     ImageSizeCache->{918., {288.875, 294.125}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`Cdl = 1/1000000, $CellContext`ko1 = 
         10, $CellContext`kr1 = 1, $CellContext`ko2 = 100, $CellContext`kr2 = 
         1, $CellContext`ko3 = 1000, $CellContext`Ko1V = 
         0.001978753337527191, $CellContext`Ko1[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`ko1 
          Exp[((2 FE`ao1$$241) $CellContext`f) $CellContext`V$], 
         Attributes[$CellContext`V$] = {Temporary}, FE`ao1$$241 = 
         0.8, $CellContext`f = 38.9, $CellContext`Kr1V = 
         8.43144642761539, $CellContext`Kr1[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`kr1 
          Exp[(((-2) (1 - 
               FE`ao1$$241)) $CellContext`f) $CellContext`V$], \
$CellContext`Ko2V = 1.4066816759761929`, $CellContext`Ko2[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`ko2 
          Exp[((2 FE`ao2$$241) $CellContext`f) $CellContext`V$], FE`ao2$$241 = 
         0.4, $CellContext`Kr2V = 599.3855306151074, $CellContext`Kr2[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`kr2 
          Exp[(((-2) (1 - 
               FE`ao2$$241)) $CellContext`f) $CellContext`V$], \
$CellContext`Ko3V = 14.066816759761927`, $CellContext`Ko3[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`ko3 
          Exp[((2 FE`ao3$$241) $CellContext`f) $CellContext`V$], FE`ao3$$241 = 
         0.4, $CellContext`Rt = 18356.81513441204, $CellContext`F = 
         96485., $CellContext`\[CapitalGamma] = 
         1.*^-9, $CellContext`lw = {54.47568070375022}, $CellContext`AbsRp = 
         14417.582609103945`, $CellContext`Ep = -0.03806268384890232, \
$CellContext`Vmin = -0.13806268384890233`, $CellContext`Vmax = 
         0.06193731615109768, $CellContext`denZXi = 
         99531.65441476252 + 8627.893460721027 $CellContext`p + 
          15.464854807496353` $CellContext`p^2, $CellContext`ZX1Et = (
           0.02124215781837186 (602.1988939670598 + $CellContext`p))/(
          99531.65441476252 + 8627.893460721027 $CellContext`p + 
          15.464854807496353` $CellContext`p^2), $CellContext`ZX2Et = (
           8.966111059311501 (-5053.684207393041 - 
            7.0247647516391964` $CellContext`p))/(99531.65441476252 + 
          8627.893460721027 $CellContext`p + 
          15.464854807496353` $CellContext`p^2), $CellContext`ZX3Et = (
           1073.5121662469446` (16.864871608568308` + $CellContext`p))/(
          99531.65441476252 + 8627.893460721027 $CellContext`p + 
          15.464854807496353` $CellContext`p^2), $CellContext`Zf = 
         18356.81513441204 + 
          14417.582609103945` ((
              8.966111059311501 (-5053.684207393041 - 
               7.0247647516391964` $CellContext`p))/(99531.65441476252 + 
             8627.893460721027 $CellContext`p + 
             15.464854807496353` $CellContext`p^2) + (
              1073.5121662469446` (16.864871608568308` + $CellContext`p))/(
             99531.65441476252 + 8627.893460721027 $CellContext`p + 
             15.464854807496353` $CellContext`p^2) + (
              0.02124215781837186 (602.1988939670598 + $CellContext`p))/(
             99531.65441476252 + 8627.893460721027 $CellContext`p + 
             15.464854807496353` $CellContext`p^2)), $CellContext`ZfEt = 
         0.00006935975517619386 (18356.81513441204 + 
           14417.582609103945` ((
               8.966111059311501 (-5053.684207393041 - 
                7.0247647516391964` $CellContext`p))/(99531.65441476252 + 
              8627.893460721027 $CellContext`p + 
              15.464854807496353` $CellContext`p^2) + (
               1073.5121662469446` (16.864871608568308` + $CellContext`p))/(
              99531.65441476252 + 8627.893460721027 $CellContext`p + 
              15.464854807496353` $CellContext`p^2) + (
               0.02124215781837186 (602.1988939670598 + $CellContext`p))/(
              99531.65441476252 + 8627.893460721027 $CellContext`p + 
              15.464854807496353` $CellContext`p^2))), $CellContext`ZEt = (
           0.00006935975517619386 (18356.81513441204 + 
            14417.582609103945` ((
                8.966111059311501 (-5053.684207393041 - 
                 7.0247647516391964` $CellContext`p))/(99531.65441476252 + 
               8627.893460721027 $CellContext`p + 
               15.464854807496353` $CellContext`p^2) + (
                1073.5121662469446` (16.864871608568308` + $CellContext`p))/(
               99531.65441476252 + 8627.893460721027 $CellContext`p + 
               15.464854807496353` $CellContext`p^2) + (
                0.02124215781837186 (602.1988939670598 + $CellContext`p))/(
               99531.65441476252 + 8627.893460721027 $CellContext`p + 
               15.464854807496353` $CellContext`p^2))))/(
          1 + ($CellContext`p (18356.81513441204 + 
             14417.582609103945` ((
                 8.966111059311501 (-5053.684207393041 - 
                  7.0247647516391964` $CellContext`p))/(99531.65441476252 + 
                8627.893460721027 $CellContext`p + 
                15.464854807496353` $CellContext`p^2) + (
                 1073.5121662469446` (16.864871608568308` + $CellContext`p))/(
                99531.65441476252 + 8627.893460721027 $CellContext`p + 
                15.464854807496353` $CellContext`p^2) + (
                 0.02124215781837186 (602.1988939670598 + $CellContext`p))/(
                99531.65441476252 + 8627.893460721027 $CellContext`p + 
                15.464854807496353` $CellContext`p^2))))/
           1000000), $CellContext`if[
           Pattern[$CellContext`V, 
            
            Blank[]]] := ((((
              2 $CellContext`Farad) $CellContext`\[CapitalGamma]) \
$CellContext`Ko1[$CellContext`V]) $CellContext`Ko3[$CellContext`V]) \
($CellContext`Kr2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] \
$CellContext`Kr2[$CellContext`V] + $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V] + $CellContext`Kr2[$CellContext`V]))), \
$CellContext`Farad = 
         96485., $CellContext`monStyle = {
          FontFamily -> "Helvetica", FontSize -> 10}, $CellContext`\[Theta]s[
           Pattern[$CellContext`V, 
            
            Blank[]]] := $CellContext`Kr1[$CellContext`V] \
($CellContext`Kr2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] \
$CellContext`Kr2[$CellContext`V] + $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V] + $CellContext`Kr2[$CellContext`V]))), \
$CellContext`\[Theta]X[
           Pattern[$CellContext`V, 
            
            Blank[]]] := $CellContext`Ko1[$CellContext`V] \
($CellContext`Kr2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] \
$CellContext`Kr2[$CellContext`V] + $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V] + $CellContext`Kr2[$CellContext`V]))), \
$CellContext`\[Theta]Q[
           Pattern[$CellContext`V, 
            
            Blank[]]] := $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] \
$CellContext`Kr2[$CellContext`V] + $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V] + $CellContext`Kr2[$CellContext`V]))), \
$CellContext`lHue = {
           RGBColor[0, 0, 1], 
           RGBColor[0.5, 0, 0.5], 
           Hue[
           0.1421359549995791, 0.6, 
            0.6]}, $CellContext`logwmin = -6, $CellContext`logwmax = 
         8}; ($CellContext`Ko1[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`ko1 
          Exp[((2 $CellContext`ao1$$) $CellContext`f) $CellContext`V$]; \
$CellContext`Kr1[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`kr1 
          Exp[(((-2) (
               1 - $CellContext`ao1$$)) $CellContext`f) $CellContext`V$]; \
$CellContext`Ko2[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`ko2 
          Exp[((2 $CellContext`ao2$$) $CellContext`f) $CellContext`V$]; \
$CellContext`Kr2[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`kr2 
          Exp[(((-2) (
               1 - $CellContext`ao2$$)) $CellContext`f) $CellContext`V$]; \
$CellContext`Ko3[
           Pattern[$CellContext`V$, 
            Blank[]]] := $CellContext`ko3 
          Exp[((2 $CellContext`ao3$$) $CellContext`f) $CellContext`V$]; \
$CellContext`\[Theta]s[
           Pattern[$CellContext`V, 
            
            Blank[]]] := $CellContext`Kr1[$CellContext`V] \
($CellContext`Kr2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] \
$CellContext`Kr2[$CellContext`V] + $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V] + $CellContext`Kr2[$CellContext`V]))); \
$CellContext`\[Theta]X[
           Pattern[$CellContext`V, 
            
            Blank[]]] := $CellContext`Ko1[$CellContext`V] \
($CellContext`Kr2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] \
$CellContext`Kr2[$CellContext`V] + $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V] + $CellContext`Kr2[$CellContext`V]))); \
$CellContext`\[Theta]Q[
           Pattern[$CellContext`V, 
            
            Blank[]]] := $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] \
$CellContext`Kr2[$CellContext`V] + $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V] + $CellContext`Kr2[$CellContext`V]))); \
$CellContext`if[
           Pattern[$CellContext`V, 
            
            Blank[]]] := ((((
              2 $CellContext`Farad) $CellContext`\[CapitalGamma]) \
$CellContext`Ko1[$CellContext`V]) $CellContext`Ko3[$CellContext`V]) \
($CellContext`Kr2[$CellContext`V]/($CellContext`Kr1[$CellContext`V] \
$CellContext`Kr2[$CellContext`V] + $CellContext`Ko1[$CellContext`V] \
($CellContext`Ko2[$CellContext`V] + $CellContext`Kr2[$CellContext`V]))); \
$CellContext`logwmin = -6; $CellContext`logwmax = 
         8; $CellContext`\[CapitalGamma] = 1. 10^(-9); $CellContext`f = 
         38.9; $CellContext`Farad = ($CellContext`F = 
          96485.); $CellContext`lHue = {Blue, Purple, 
           Hue[0.1421359549995791, 0.6, 0.6]}; $CellContext`monStyle = {
          FontFamily -> "Helvetica", FontSize -> 10})}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.418957988519134*^9, 3.418958060517035*^9, 3.418958091482809*^9, {
   3.4189581218381968`*^9, 3.418958140775878*^9}, 3.418959107516035*^9, {
   3.418973872044559*^9, 3.418973898051053*^9}, 3.4189739704534492`*^9, {
   3.4189741418147907`*^9, 3.418974194809523*^9}, 3.4189743722873373`*^9, 
   3.4189744588987923`*^9, 3.418974527480084*^9, 3.4189745809205723`*^9, 
   3.437568918980451*^9, 3.437569028997676*^9, 3.437569149716457*^9, {
   3.437569280497978*^9, 3.4375693000402822`*^9}, {3.437569444163018*^9, 
   3.437569472124716*^9}, 3.4375695475373287`*^9, 3.439171892341975*^9, 
   3.439171940906406*^9, 3.439171986542938*^9, 3.439172200202319*^9, {
   3.439172258086076*^9, 3.439172267960472*^9}, 3.439270386046237*^9, 
   3.439270417639018*^9, {3.439270787889111*^9, 3.439270814740937*^9}, {
   3.439270861866207*^9, 3.4392708731678457`*^9}, {3.439270946330606*^9, 
   3.4392709613121433`*^9}, 3.439812084762333*^9, 3.4402129774148293`*^9, 
   3.44021302116712*^9, 3.440213094008297*^9, {3.4402135564400454`*^9, 
   3.4402135825251627`*^9}, 3.440213798306984*^9, 3.440213835824953*^9, 
   3.440213867722911*^9, 3.440223918198409*^9, 3.4402239669164886`*^9, 
   3.440224254276651*^9, {3.440224398772591*^9, 3.440224416159913*^9}, 
   3.4402259445934353`*^9, {3.4402458720807457`*^9, 3.440245882461116*^9}, 
   3.440245923246983*^9, {3.441424401235036*^9, 3.441424429858097*^9}, 
   3.4414256164343576`*^9, 3.441446598510494*^9}]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{1144, 956},
WindowMargins->{{62, Automatic}, {Automatic, 38}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], 
  FEPrivate`Join[{
    Cell[
     BoxData[
      GraphicsBox[
       RasterBox[CompressedData["
1:eJztXXlYU9e27/fe++Pe9757be9tax1AkUGQAMokiLMWB9Q60Dreaq2tA1Zb
LaJ1wjrVjg44KyKCAzIj8zwFSBjCkDCEBAjIKELRKhqSvJ3ssNmckxNGxX7d
v+/od7LPPmuvtWJ+a++19jnqbdy5fON/v/XWWybgz//811tvKc9FA4RQmDVv
AVdnbMpy5+KEBNgm7kT6t3uleuMbxxrVsqbI7T6WTVsrn7paNvPTRs87VUUC
cNREx7e67HlpOVNhYt0x3qJ11LiaS1cGqhIBAQEBwWtHzg0vro5eps5Yjv74
/E9WC27fEeXmivLzM8+eZxtYKsYayMaMe2Y+U+a0S7b8oMz5kHzpfrnjVy+W
7nzh9EWHzbIO8w87TB1emDk817doHG1QFRM71AYREBAQEPQBcPIvSE8vMDQW
6Ojl6+oV6Izj6RrwLOx5do6RJrP4rKkKvTGKMWM7DFjta09Jt17r2HpV+qWH
7LOzslUnpEu+kzp+JbVb9XLS/OesqfW6E+qMLcuzOENtFgEBAQFBHwBjQXlp
abb91OLRY4vG6BeNHc83sMgzss+fuCTefnXTBGtlLNA36NAf92TGCrHbrao9
ng/3eDV/6/lsx+WOLz2kq49L5++UOqxsmzBDomsumTRFxOMNtVkEBAQEBL0F
KgqA87yNm0Sjxlbqm/KMJ2bOcWQvWpa6Ym2881q+48ziD2cK5s8VLFrIn+WQ
vv6LxO2uydt2sbd/m73dNX/rbv7nXwvWbSlyXpuz4COuiW2x9YzygoKhtoyA
gICAoFcQY1B+PORerWPEs5hceuFoTcDl6oBrVUFekkDPOr+Ldfcv1gVcrgu8
Wud/ufb+JUnYrapwH8kDn+oHPjXhPg/DbtWGeD8MvFETdE3sezZ2ynRBarr2
octLSrL9A4TpPXQjICAgIHilAPxf0Ql1MPjukGScde5XX9QG3mgIDquLSJTE
pLeFR/4REvokLKItMrYtJq4tNq4tLKwlKrohh9eQV9CYndfIyW1iZz9OZIP+
1YHhkrDwIo+LkSs3Zoc+KBcK8RFLBQJuYmLU6dMRn2/irFojuXCpoqhoiKwn
+OtCGBIi9PYeai0ICIYYaCEAo0ClCspwIBKVLFsrMZ+Xf9i1NiywKTGnNjWv
IT6Nf/Fic0zis6z8p5m8p5m5Tzh5T9I5TxKS29LYLUWlzcWipkJhU1ZBXSK3
Ijq9PCKlIiGjPDQueJzdzeFjr1ja+i1c4rXc+ecFC/c4TNltPP63d98LGz6i
Zt16SWrqUHuC4K8IEAj4b70FDoGODjh/RaOkD9GCNzw83MXF5eTJk3w+f0gU
IPgTAY8FIApUqSAuLc0/fKzUdK5w5voc971VUQ+q0/IakjJaElNCJk9JsZ/O
v+7VnFPQmlvYkp3fks1rYXPApZa4+OaU1EcpqfVxiVVRCeWhMSWh0WUxifyQ
8O8/GLln2Du/Dnv/0N//8fXf/vf0P4dFvvd+wwjdjgkT6695DrUPCP7SKN28
uWTVKmU4GDasPClp0OXn5ORcuHBh0MX2BiAGBQQE7Nu3z9OT/MoIqBCks1Nu
3ky+dSs3MbEkPx/M/8uFwjI+v4TDKYqN5QcE8c56ZC1emWU4NdPOOWOhC9fd
reJBYH1M0u+xSY/SOckLFj3UMc4bZZC0co0gKLQuO7+Ry6tncxpSMhrjkxoj
ImtDgiVBASJ/v5K7t/N9bhUEB2beu/PV8A/OjxzvM1zHb/jIsrF6ckMjhZ5e
h4VVddiDofYHAYESICKAcFDs4DDokocwFkD4+vqCcDCEChC8mRALBNX3Ajkr
Pz2vb3hk5Ae/WVl62NoGWtukWdlmTrLhWNvzJ08rsbARmjlUWs5usJ7J27e9
+r53U0RMU2Law/Ss2PlO5QbmFaY2pXqmKfoTEnd8LQiPrmJzq5LYkrgkSWS0
JChY7O9fcvdOka9Pzs0bOf5+/Lv3ci1mSEwdpJNmyFl2cpOJCv3xHRYTq6Oj
X6mlQm/vwcoDl+fmKqW9shwCwZADrAhgsmjQawdDHgvA6sDFxWWo8lQEbz4k
Sanir77JMbVINxgfbTSeYz6xzX66YrKDwmKSwshQoT9GYTBOMX5CjpuL+N6t
h5HxkvhUUUp6xDynIiOLIpYNn2VbYmqTO9YkYpJt8vEfBFHx5XEpwvCoMv+g
0jv3Cn198ry9Mjyv8e/fb4xKlq8/IluyQzZtldxmvtzERmZq9TA4uPeqAiqG
v1NwgHPUDhb1Gn+/cI6HDvARXQITP3z6R/kIoL5lzx7UUnb8OBoI9ASX0C3w
nN/50g+gBkUfujRcrFIOi4UPrUxTdBoIExdIeWQUaAfEBRQABwpP4ESgo4Py
3vBeJBwRXdm5c8iloA+0C9xSsnAh1BlqhfxMvxGOArUCfaADgRxgI5AAtaK7
DmpC0QqqDYZW+5bFgo7qugsY6O0NxgInoJHuQ1wZCiia4/4BosCh/Cq734i+
4m5yGBxF9wwTtMcCwNLh4eGURpjnpwg5efKkiwru7u7x8fGo/bffftu1axdo
x3NBuFjQB3wEqwMtOkAAOUAaRR+kDBgUDA17AmVQcAEdoAIBAQF0i9BHmK1C
QnArcOGwD/gbSqPI5/P5wJlIVdATnMNqCBwINMKreFqM4g2NntT+pYAhoA6o
BZiP5ODeoDtE44javaFFOFzlQUfh3ynFRqAAuJFumhaIU9PEn216PMmm1ca+
berMduspcj0DxVgdhZGR3GySgmWb5ba95M4tcUScMCaxJCHZ33F+qqF5Bsua
rToyzGwyTCzDdQzuz56bcsajKCS8ODCI7+PD8/LiXL/Gvnq5LDpRkpT5cs8F
2WcnZU7bZVOWKVjTms5c7JOSiGNxmsUDBE62iDPBCX4Or/YjFiA2A41dxDXg
WICqloj8KZ3VQUfFnIiiwUcwND0IIsUgLaP+XVZA2uwUDg2HhkCBQIJI0/SY
cqOaz1Xmw3O1EBYLaUVxHdRKyerd3QXG6gqyKrvAgRQA40LFYB+NPoRWMyV2
cM3VgWDYMKVMHR0Ua+hfB2VqweQoumeY0GMsQKSHAFpw2oE/bUAXASoAuoMk
AAkKcgJoB3+DPnSxUJoWZgBXgYZIOPgI/kblZqQMoBrUDQwEhoZ9gAJAOGiE
lEWxCH2EcsBdUFs4ELwFGgKFgKs4kVLkAwWQBNCI8zMKEEgIHhkRLWv0ZI9f
CugGmRn/RqBWSBPQSFeYaUQt3tAiHKoB7ALt4G88xCOdgTPBcECHfmwYEIvF
VWc8nk+bLbObLrWdJTWbIRunr9DTlZvbyCd/yHZ1KfLxKg2L4ofHFEbFes2Z
e0fP2N/Y4j52BJhY3NMzvjJqzO3lzhmXrxT4+OZd90y5dDHH905hbHJpXGrL
gcuy7WdlKw/Kp69tX7ZJ1H1zaY9AHIL/9PAAgX6eKEBQGBVRbl9jARoFMTZg
rUGJBegq7Ny1oaWzgomkoYEA+agH6uxM4XYYOJQZrc4OlGAB1aZfhcPBEwr3
UvgWNxkOCiIC5RLV/M5FBGVc1B+NBXNxaoernABaIOVqJHyK/ynANVfP4TsX
Fyh04uZD5+NjaXeU9kiEMPBYAG7X+NMGbMD0k8fFAjKBM0kmcqDoACaokFQ1
KgMBRKGJKBP5Uz5COfglQFnQM3DpgbgUfkQ98XNInkgCnDyjbni8g+GAIoHJ
k9odAkMVnMDDFigHvwV8RN8yfjvTiFq8oUU4xXyNNsJ1InJmX1FZWVkTFS39
cJHCbGqHnbN03jappb1cV0duYZfqui3P+3pR4ANecHheWMT5mbN+Ga13Tt/4
bPcDtHjoG/8yQveUrt7djRsTzpzJuno1OzQqLzK+KDrxofuVl67nZRuOy2du
qL/Xh+wQhPpHpyJhCvOocxSdJAkW7DiTiGhr+T7HAtrsfbByRGh0eBXnImQj
kkZXA87JURBUB4thw5gMwTvgUYZJKybJXTaGhOArFwiNqw8kiqIVE5NDJ6Dc
C1zj4KYh0B2OA9cc/hNCy8Ou5U9nkk2dslNN/rsCtFZH0X2uEQOPBUwbgQB7
MG0QwmeJkLQ1JqOYdIAKoGwGPRbA5Azs0KdYgLMijGUah9ASC3Dh+I2UcWFm
jLJU6eWWKoooSLn4WHQ5yBbK7UwjavEGk3BY98FJnm4j6AlUHUhtqKKioqqq
qjY5tWP6Yrntx7IV3z3acrpt2gLFOEO267aiOzdLH0QXRUQXRsZemj3nrK7B
RcMJGo9LRqYX9E1+fW/UVXOLhGNH86LiBIlpJXGpVe6Xn7iel288Lpu/tTqp
z3pChqEk2NXpdDTtV5G/RnrB+acfOSJ1DFq4EPLGIMYCmMKCVAnvRVwEzYFD
w9tRsl2d2FdFPURE9CBI4WGcw9E5kEw5RPQ1SPeJOm6Usl7QGaDVzsEsQh+R
KFH3pQRTLEDkD4wCQ6C1nsbavRYPdzM5JAStd+i+RcoAzaEn1QsorY7C5Wv8
fiEGHgvwHA4EmpBT2gEgVyCxMAoAzgFzZjTV740OgFKg2hRlAM+gPJLG27XE
AjSJpZjZ+1gAc0TAKMiilFhASf7TVy5MntTiELgogJkcprhD1wRXXuOIWrzB
JFxjUMZNg6skpojfS8BYAFYH9UGhcqslsmX7WlzOFu4+1zxlTrabi9DftyIm
sSw2qSQ+6bbj/FBDswiWlYbD1CrceGKUuWXmcqe0vS7xly6UxCWJ2dyKtCyJ
+6XHbuc6tvykmLez4YZfn3RDVIBOYDv8LSvrlaoTOI18FbEAVg/5WDF6sGKB
ms9VVAkJUEmqKiGQLdWTf2wpBMMifqBcCr97KZPOw3wsT0IR0iUNz9LA8jFN
Mr5Aw0ur6NCwTEOrKkwrevzCPQNHwQ+N5WOUsoMUDcMH+uLwG/E6NTq6fKtS
DC8uwC9Ri6Mo8pkwKLGADqZ2xAwoYwAzJ3Ty0a4DuAtWH3BlYN0WZr+Zbn+l
sUCkmiTDMgHuChFDLKB4g8mTWhyC8jD9jgUaR3wVsQDGHbo5vYdYLK7sBDh/
tn6XfOHOZy6nha4X8r/5Ofu7r8QBvtVxyeLEtLLk9MD5C9INzTlmNlks1dF5
kmlixZlgWeg4u8BtS8KFX3kRUVXZ+ZVpmVVsjoTNrfn+8iPXM9LNp+RLvpU6
bqrK6kMuS508UbEHvn5HJIwWCKLByxEhiuimiWpGjRdPBxgLkG7gBIrCAxZo
VM+QMT4XoQ2u3t7q5RJlh0/nWBpWCnAmrMqTUDYpdc29vb2ZyJ+yowlPDUFb
wL0U8qdXovF9SspaAHNdGLlU6fPuGR4c9DCtXFB0kjNFc7VM1fdISXDh+TqU
L9LuKFH34hETeowF+LwRru7pOSI8Sxyg2oJCbxdhfIgoAmWYYT6BadsMPRZA
2seVgXkhes/exwIKlfUjR4QAHAX0gfVTjd1we9ElJk8yWYQWBRQl+5Qj0jii
Fm/0O0cE12sDWRegh45hLGg9cEo+98uXX/xUu9uDd+Ay96hbdeDtuoTU6pQM
UWpG5DynYgOLElObElNr1d82JSZWJcaTKqY6iF3WZXicSvb1zfa7X8fNrc/m
1Wdw67Jy6tjZdQc9Wveel244IlvqqrBb2b5sS2VOXi/V65aT6Zy8qTMqqh8y
3mGwasdw3wtsAYSGT1whL1GyHJB8ENGp58woDDHPG1FuHI8FaGlAKRMoNcG3
1FJ2+HQvZaLRUcYGJy54FW1hpVCculzLYqmdprpR6RMsEdQVAbEMiYZtSN3Z
XmP5GEnGgbfg8ZcC/CtAkRoFMsqNuEzKVis8FiC1lZFRq6PQcFrCWY+xAAee
lkG8DRrRBiERNtWnFBlROkjUSUeQvVH2mCl33ctYQN/pqvF2Fyx9JKLFApyp
gFGwZ59iAZ5jpxRPKbVjijdEzJ5ksgiXT1kf9b52rHFELd4YSO1Ye2FIO/AX
UCjfRFQmbP9og2z2RtmG4627z5fsu5B98kBt6L3mhJSGtKxqdlbcfKcKffOK
CdbKw8Sqwmhi9SSb2nVL8391z/T3KwoNLwh9UBQU3MDJfZSd35yR08LNa8nI
btlxom3Hz9L17rIF2+TT1ynMHF8sWCNJSu6NhvQJG/gBohMRVnWF/Xu5pxTu
MFfvG1dtNcSTJygVA+elkFHxPaWwMyIi9WbFTmnKjywWEqLlzQbIOjwWiLCl
Ac48cBMmRROU5Ee7H1FCu0sfHR2UckGhAdVfkDTkQ/QRv1FtV+coXaWK48eV
G+9XrVLq0NkZsC5c7KBd/XCnq4hhn5LSLihBta1UpIpH6swPerACq0EjoLUY
WsWoBaoWU5SFGxhCaS/4hwEU63QOvKRxCgGDiBZHodoKfZMqQv9yRLtUADcC
Psc3GUKKhmEC368IaYGSw6ewCj537VEHuPtIhHEgvvMTjgjfcYGWNmiCCjdV
QtaixAKNuyiZYgFdPgCSAE3GGRiGoYCe9pTSPanRIfiigKIk07ZPusJMI2rx
xgD3lNKjTC9BeTddXVCYzGxmx/RVspWH2refqXHzyPvxUENEwO/xiY/Tsuqz
suMXqGOB2GhSJcuybum80qO7Mm57C+KTHqamP4yNKwwJyw8KauTkNXF5j9jZ
LTkFTzLznn5+4I/Ve+Qf75PN+Uxut1xuvURhvVDqML/c06tHDfFdJXBWCX/O
+C+XQrngKr6zXeOzZvg+VZwHELGgeoTywa7uueuubAk2KUUjwkeZ0Eft+88R
50DFEKGhpQFlvkrJeCuZE5u64wfwFSofIzrF1zsiVR4JdxRav6D8STe7zp3r
Zhe2J0ejf/AHQPDwQd9cRKmDoDiLlyG0vDuOog/KU+FVclRwxwfCTaYEFMr8
n8lRaB6CatN09foXC9AjV/Be9PARZSMNeo4JsiKaM0Ox+GRV1Jnkoe821KgD
5HNR9+UAPhzcKo8vasBHuG0JDATJTdT9WTN4if50FX3FAe+iyxdhD1vRTQaX
mJ41QwYyeZLuEBhQ6M9ZUOS4YI+DaVRY44havMEkHELLs2Z4jaMf4QCPBVV8
wfN5S2WsqVK7RS8Xbm1fd+SRyy/5PxxsjPB/EhvXmpL+KJMbscCpYByLb2Ip
mjND6PoF58bFvLAIcXxyfWp6fXJyXUxM2YOwvMDA+rSshoycxjROMze/NTPv
0X/2PV228/msTR32q6VWS2Rmc+TmMxQWs+QTpzVv/bqSncGkHn3vH+JAPp6I
6NxohN+r8R0UPeaIKBK6NOnM0jOqquqAFy5hHGHqD4G2A1EsEmGcSZ8SQ5bD
hXfbHbR5M9QE3/QI8/l4igk3s2e78LEY7IJy8CHw58tgDgdpojEpRNeQqTMO
ypdI4X96RKZ/lailm/J0J9MchYui/ANA6EcsGDj6JJbemak0MJCxNJY+B1G+
lm59dTKkcUpCpvf692a4fntjIIP2CBQOWj//smOC5Qsz+w6ruVIH5xeLdzSu
OZh7dF9d6N3WqKjHcQlNySl+cx2TzCcWfrmae/7HnKAgUUx8dUKiKCauIjqm
Njq66sGDsuBg7n2/h7GJDxPZkti0OnZOMzuvddOxp8572ud8/txmkdT8Q5mZ
o3zCNIWxrcJ4svKJBoupTZ9uqggIFJWWUnRDczzUgnIUeKOW2iIFfYoFrwFd
j9l2JqjRJWQ7npTQDsojGPTtoK8f9M02Gol3IKDUL1AOX13e7f5A3OvHny4W
wDwMnuUelLH+XLEAf7Aa4q8QCyBKN2+VjjOWmlg+NTRvGm9TbzZbYr+Kt3Br
1hG3Kv+bDcGBDaGhteERwYvmp363I8v3ZnFQqCgiUhgeWRwWXhQaxgsOLggM
LLp/n3f3Tuqtm+XBEcKY1LLI5MqkrMZk7vP1x54v2tFuvVxq+uFzm3mt67Y9
3n+08bRHw5Xr9ddvNnpcbtn//eNde+vOUn8yeNq2U0/1Dx/fx0LvxgSNsYCy
Uec1A89aUKad+KXe8DksntKfwu7xnTmvFCAKwBoHRSvt2bM+yacko/B/Hhp3
Pb1O9Gkf0QA3h+Ni+xQLKO+gAEyIaBAVkZmQo4J24aIBsJ92+fhAgxgLXGhv
cOq9/r1R+M2MBWI+v9Flp3S0XvtovWYd/VpdA/E408oJU/iWC7jzN7MPfyv0
vVJx20d8927F3bvsX37i3fIpuOdX6Ocn9A8QBgQU3L2bdutW0s2b4Ei/cSPj
+vWYy5cKfe4JQuMFgTFVCRlNqdkvlu6S2q9qc97SePZKZRaXURVhOaUB/MxR
zVHdRZV2oDTCMmVvuIUSC1AGA3DFUE0d4bvX1G/j6T5VVpYtOi/17y2pvXxn
zmsG1GqwHA4rI/gBn4ODVylv23v96NM+osF6uXRfYwEaHZYs8as9xoIehQ8w
FvR+oEGMBZRFgYh5G1X/8AbGgjqfuy8dZreN1qscz6qcZFNmaSOynsw3NM3V
Mc4yskudtSZu6xf8O54lt31L/O6V3vcT+N8vDwoSx8RWZXCqc/Ml3LyatIyq
6LiywED2bd+YG54xntcjr1/NuOldFhYnikx6XF4lCY95OWXNHyu2iAXFg2V4
vwGJF88moULzEE4dXx3o9r4JgKn41/MOcBQphuqV40Pyzup+lA5fNQaXS+nQ
YvJfwRsDsVFcUCD0uBS2YWPAvn25AYFlXK6wsFBUVCQqKChLSuKdv5D00epQ
qwVBk6eyf/lRxMmqKytrEoubJNVNdfWPGpqaG1VHfcPj2vqW2rpHNbWNVTX1
5aLK0tIygaC8WNAkrnjyuLW5srJg9vJnJrNqb98fRMMJCP4sGPL/v4CAQDvK
i4ryORx6Oyoll2Rnh9rM9dU3uG1sFD53Lm/95kK3E5n7T7L3Hc84cDz7yClw
cA6dyHU7LNj1XdZ2t+RN38R/4Rqzcfcdp6UHpzlEzV+Yu3RNkdWcJvMZTwys
qkPJf2FG8FcE/C8GhloLAoL+AIUD/9mOv777rzMjxwpt5sk2n355wKvu2C3h
cW/hiZuiH33EP90S/ehddeTKHztPijYfzV13IH3992mrD+ev2ONtbLv5nbfL
jFgS44l1hmaPdA0qfe8MtVkEBAQEBH1GcWrqiVEj3N9+98Jw/fYpzrLl+2Vb
zj1zvfJ4v2fDYa8ad6+qIzcq3a/XHLjSvPlEw/rvK1YeKll7VLB8j8Dxy/Ip
n0TomcWN1i0bZ1iuZ1Sto1d67MRQG0RAQEBA0EcIhYk//XT83Q8O/t/bybrj
ZfYfyeZuki3fK/vsZ9n2Cy++vfJ07/W2vdceuV19vPvi75+ffLrm2O/Lv2te
sf/h3M2Vk53LTGcUG1lmjtFLGT2mYIxe8Sjd4sXLROXUbUIEBAQEBG8yyoXC
7ISEI6N03P/x9gsTK/mkWbLJS2TT1ypmb1UsOSBf+4Ns028dm890bDn9cv0P
L1cdaV+877mjS9usjU8sltRPW1ppO1swxpA7YnTsiFFxo3TYI3W5hsalmsoT
BAQEBARvMtJDQjb+7e/JI0bJTSbKJ9gqTKfLbJ3anbf9sfXwi09c5bO2yRbv
lS12kznt7nDc8Xzqhj+sVzw3mdN44ldxfoEIHIFBhavWJI8dF/De8Ij3R8Z+
MCrbq+e3DxEQEBAQvFG4fvDA4X/+U6GvrzAYL2dZtbl8I0lRvyJJXFLa6n5G
YbtSPvU/8qmfdtiueG7u1G44/ffPvqII4cfExC9zvv7Ov/3+/X6E02KSJiIg
ICD4E6FcKNxuZSkcMUqhp9f+oWNNVDS9T9s37grrJfJJ82TWTs+Mp7cbO1TH
JWqUxr569byO7uVh71RpkkNAQEBA8GYiMynpxL/+pdDRa/n6G3H3Z7ERKvIL
pbOXKV83ajb9hZHdkyWrRUIhk8CCpKRTxkaxM2aQpQEBAQHBnwW/bNvaNHJM
ncdF7d3q7/grJtgpWA5SQ8um33p4ARqfw/nFwlx89drgqUlAQEBA8KrAZbOv
vj+i6ezl3nT+Y8knCqOJcmOryti4HjsLcnKiXbZXcLMHrCMBAQEBwavF1W93
N+4/2svODVc9FcbWbVYOpTxeb/qX8HilJBYQEBAQvNnITE8XnPq19/3FZWUd
9rMfLVz66lQiICAgIHjNKC0o6Gt599mqTZyPh+z/jSIgICAg0Ij/B4IFulc=

        "], {{0, 0}, {516, 41}}, {0, 255}, ColorFunction -> RGBColor], 
       ImageSize -> {516, 41}, PlotRange -> {{0, 516}, {0, 41}}]], 
     "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, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}], 
    Cell[
     BoxData[
      GridBox[{{
         GraphicsBox[
          RasterBox[CompressedData["
1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w
aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0
vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI
xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml
O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd
oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L
pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt
1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n
IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E
SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K
miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1
EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk
JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt
VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA
9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ
GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1
xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa
aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9
Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1
ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw
zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c
POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+
trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm
p4X4X/wDFcRtOg==
           "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> 
           RGBColor], ImageSize -> {199, 30}, 
          PlotRange -> {{0, 199}, {0, 30}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh
UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs
73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB
Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS
cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp
K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon
fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT
JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY=

            "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], 
          ButtonData -> {
            URL["http://store.wolfram.com/view/app/playerpro/"], None}, 
          ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], 
         GraphicsBox[
          
          RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, {
           171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 
           137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 
           137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{
           138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 
           169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 
           169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {
           171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 
           14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, 
          PlotRange -> {{0, 2}, {0, 14}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq
zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O
KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe
ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB
GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi
GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6
SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4
tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO
MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt
0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e
Xf4ArlmHrg==
            "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> 
            RGBColor], ImageSize -> {77, 14}, 
           PlotRange -> {{0, 77}, {0, 14}}], 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}}, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}, 
     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],
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
ShowSelection->True,
CellLabelAutoDelete->True,
Magnification->1.,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1128, 19, 111, "Section"],
Cell[1676, 41, 148, 2, 26, "Subsection"],
Cell[1827, 45, 3579, 61, 123, "Input"],
Cell[5409, 108, 102, 1, 34, "Subsection"],
Cell[5514, 111, 9379, 155, 100, "Input"],
Cell[14896, 268, 152, 2, 34, "Subsection"],
Cell[15051, 272, 5651, 94, 138, "Input"],
Cell[20705, 368, 227, 3, 34, "Subsection"],
Cell[20935, 373, 22464, 370, 377, "Input"],
Cell[43402, 745, 325, 4, 34, "Subsection"],
Cell[43730, 751, 7236, 120, 51, "Input"],
Cell[CellGroupData[{
Cell[50991, 875, 52647, 1108, 19, "Input",
 CellOpen->False],
Cell[103641, 1985, 31062, 577, 601, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature QupKs#iS6@x5nCgQJfB1DrgR *)