Modified from Ch8.mws from Herod's web site by R.F.MurphyChapter 8, Sections 8.5 and 8.6An Introduction to the Mathematics of Biology, with Computer Algebra Modelsby Yeargers, Shonkwiler, & Herod. The Syntax is written for Maple 6Page 257Ena:=55: Ek:=-82: El:= -59: gkbar:=24.34: gnabar:=70.7: gl:=0.3: vrest:=-69: cm:=0.001:alphan:=v-> 0.01*(10-(v-vrest))/(exp(0.1*(10-(v-vrest)))-1): betan:=v-> 0.125*exp(-(v-vrest)/80): alpham:=v-> 0.1*(25-(v-vrest))/(exp(0.1*(25-(v-vrest)))-1): betam:=v-> 4*exp(-(v-vrest)/18): alphah:=v->0.07*exp(-0.05*(v-vrest)): betah:=v->1/(exp(0.1*(30-(v-vrest)))+1):pulse:=t->-20*(Heaviside(t-.001)-Heaviside(t-.002)):rhsV:=(t,V,n,m,h)->-(gnabar*m^3*h*(V-Ena) + gkbar*n^4*(V-Ek) + gl*(V-El)+ pulse(t))/cm: rhsn:=(t,V,n,m,h)-> 1000*(alphan(V)*(1-n) - betan(V)*n): rhsm:=(t,V,n,m,h)-> 1000*(alpham(V)*(1-m) - betam(V)*m): rhsh:=(t,V,n,m,h)-> 1000*(alphah(V)*(1-h) - betah(V)*h):inits:=V(0)=vrest,n(0)=0.315,m(0)=0.042, h(0)=0.608;

NiM+SSZpbml0c0c2IjYmLy1JIlZHRiU2IyIiISEjcC8tSSJuR0YlRiokIiQ6JCEiJC8tSSJtR0YlRiokIiNVRjIvLUkiaEdGJUYqJCIkMydGMg==

sol:=dsolve({diff(V(t),t)=rhsV(t,V(t),n(t),m(t),h(t)), diff(n(t),t)=rhsn(t,V(t),n(t),m(t),h(t)), diff(m(t),t)=rhsm(t,V(t),n(t),m(t),h(t)), diff(h(t),t)=rhsh(t,V(t),n(t),m(t),h(t)),inits}, {V(t),n(t),m(t),h(t)},type=numeric, output=listprocedure);

NiM+SSRzb2xHNiI3Jy9JInRHRiVmKjYjRig2JUkkcmVzR0YlSSVkYXRhR0YlSSlzb2xucHJvY0dGJTYjSWFvQ29weXJpZ2h0fihjKX4xOTkzfmJ5fnRoZX5Vbml2ZXJzaXR5fm9mfldhdGVybG9vLn5BbGx+cmlnaHRzfnJlc2VydmVkLkdGJUYlQyY+OCVgNiRJJEdldEdGJUkkU2V0R0YlYjYjSSt0aGlzbW9kdWxlR0YlNiNJJURhdGFHRiVGJUY1RiVGJUYlRiVJKl9tMTgwNjM3NkdGJUY7PjgmLV9GM0Y2NiNRL3NvbG5fcHJvY2VkdXJlRiVAJi1JJ21lbWJlckdJKnByb3RlY3RlZEdGRzYkOSQ3JFElbGFzdEYlLkklbGFzdEdGJUMkPjgkLUY/NiNGS0AkLUkldHlwZUdGRzYkRlAuSSVsaXN0R0ZHTyZGUDYjIiIiMy1GVTYkRklJIj1HRkctRkY2JC1JJGxoc0dGRzYjRkk3JFEoaW5pdGlhbEYlLkkoaW5pdGlhbEdGJUMkQCUtRlU2JC1JJHJoc0dGR0Zfb0ZXPkZQLUY/NiMvRmFvNyQiIiEtSSNvcEdGRzYjRmhvPkZQLUY/NiMvRmFvNyRGZm5GaG9GU0ZJRiVGJUYlLy1JIlZHRiVGKmYrRio2J0YsRi1GLkkpb3V0cG9pbnRHRiVJJVYodClHRiU2I0lpbkNvcHlyaWdodH4oYyl+MjAwMH5ieX5XYXRlcmxvb35NYXBsZX5JbmMufkFsbH5yaWdodHN+cmVzZXJ2ZWQuR0YlRiVDKT5JOF9FbnZEU051bWVyaWNTYXZlRGlnaXRzR0YlSSdEaWdpdHNHRiU+RmRxIiM6QCUvSS1fRW52SW5Gc29sdmVHRiVJJXRydWVHRkc+OCctJkkmZXZhbGZHRkc2I0ZjcUZfbz5GXHItRl9yRl9vRjJGPkAkNC1GVTYkRlxyLkkobnVtZXJpY0dGR0MkQC4tRkY2JEZJNytRJnN0YXJ0RiUuSSZzdGFydEdGJVEnbWV0aG9kRiUuSSdtZXRob2RHRiVRJWxlZnRGJVEmcmlnaHRGJVEpbGVmdGRhdGFGJVEqcmlnaHRkYXRhRiVRK2VuZ2luZWRhdGFGJUMkQCUtRkY2JEZJNyRGX3NGYnM+RlAtRj82Iy1JKGNvbnZlcnRHRkc2JEZJLkknc3RyaW5nR0ZHPkZQLUY/Rl9vQCYtRlU2JEZQLkkmYXJyYXlHRkdPLUklZXZhbEdGRzYkRlBGZm4wRlBRKXByb2NuYW1lRiVPRlAtRkY2JEZJNyRGS0Zhb0MkRmZ0QCRGVE8mRlA2IyIiIy1GRjYkRkk3JEZMRmJvQyRGXnRGaHUzLUZVNiRGXHJGam4tRkY2JC1GXm82I0ZcckZgb0MkQCUtRlU2JC1GaW9GZ3ZGVz5GUC1GPzYjL0ZhbzckRl9wLUZhcDYjRlx3PkZQLUY/NiMvRmFvNyRGXHZGXHdGaHUvRlxyUS5zb2xucHJvY2VkdXJlRiVPLUZfdTYjRj8vRlxyUShzeXN2YXJzRiVPNydGKEZpcC1JImhHRiVGKi1JIm1HRiVGKi1JIm5HRiVGKkAlMDkhSSh1bmtub3duR0YlTy0uRmp4Rl9vQyQ+OCgtSShwb2ludHRvR0ZHNiMmLUZBNiNRMHNvbG5fcHJvY2VkdXJlc0YlRlt2Ty0uRmF5Rl9vWiVDJD5GUC1GP0ZndkZqdUYlWUYlRiVGJUYlRiUvRmJ4ZitGKjYnRixGLUYuRl1xSSVoKHQpR0YlRl9xRiVDKUZicUZlcUZncUYyRj5AJEZkckMkQC5GW3NGaXNGZHVDJEZmdEAkRlRPJkZQNiMiIiRGXXZDJEZedEZqekZhdkMkQCVGanZGXXc+RlAtRj82Iy9GYW83JEZeW2xGXHdGanpGaXdGW3hGXnhGYHhAJUZpeEZceUMkPkZheS1GY3k2IyZGZnlGXVtsRml5WiVDJEZeekZcW2xGJUZgekYlRiVGJUYlL0ZkeGYrRio2J0YsRi1GLkZdcUklbSh0KUdGJUZfcUYlQylGYnFGZXFGZ3FGMkY+QCRGZHJDJEAuRltzRmlzRmR1QyRGZnRAJEZUTyZGUDYjIiIlRl12QyRGXnRGaFxsRmF2QyRAJUZqdkZddz5GUC1GPzYjL0ZhbzckRlxdbEZcd0ZoXGxGaXdGW3hGXnhGYHhAJUZpeEZceUMkPkZheS1GY3k2IyZGZnlGW11sRml5WiVDJEZeekZqXGxGJUZgekYlRiVGJUYlL0ZmeGYrRio2J0YsRi1GLkZdcUklbih0KUdGJUZfcUYlQylGYnFGZXFGZ3FGMkY+QCRGZHJDJEAuRltzRmlzRmR1QyRGZnRAJEZUTyZGUDYjIiImRl12QyRGXnRGZl5sRmF2QyRAJUZqdkZddz5GUC1GPzYjL0ZhbzckRmpebEZcd0ZmXmxGaXdGW3hGXnhGYHhAJUZpeEZceUMkPkZheS1GY3k2IyZGZnlGaV5sRml5WiVDJEZeekZoXmxGJUZgekYlRiVGJUYl

Vs:=subs(sol,V(t));

NiM+SSNWc0c2ImYrNiNJInRHRiU2J0kkcmVzR0YlSSVkYXRhR0YlSSlzb2xucHJvY0dGJUkpb3V0cG9pbnRHRiVJJVYodClHRiU2I0lpbkNvcHlyaWdodH4oYyl+MjAwMH5ieX5XYXRlcmxvb35NYXBsZX5JbmMufkFsbH5yaWdodHN+cmVzZXJ2ZWQuR0YlRiVDKT5JOF9FbnZEU051bWVyaWNTYXZlRGlnaXRzR0YlSSdEaWdpdHNHRiU+RjQiIzpAJS9JLV9FbnZJbkZzb2x2ZUdGJUkldHJ1ZUdJKnByb3RlY3RlZEdGOz44Jy0mSSZldmFsZkdGOzYjRjM2IzkkPkY9LUZARkI+OCVgNiRJJEdldEdGJUkkU2V0R0YlYjYjSSt0aGlzbW9kdWxlR0YlNiNJJURhdGFHRiVGJUZJRiVGJUYlRiVJKl9tMTgwNjM3NkdGJUZPPjgmLV9GR0ZKNiNRL3NvbG5fcHJvY2VkdXJlRiVAJDQtSSV0eXBlR0Y7NiRGPS5JKG51bWVyaWNHRjtDJEAuLUknbWVtYmVyR0Y7NiRGQzcrUSZzdGFydEYlLkkmc3RhcnRHRiVRJ21ldGhvZEYlLkknbWV0aG9kR0YlUSVsZWZ0RiVRJnJpZ2h0RiVRKWxlZnRkYXRhRiVRKnJpZ2h0ZGF0YUYlUStlbmdpbmVkYXRhRiVDJEAlLUZcbzYkRkM3JEZgb0Zjbz44JC1GUzYjLUkoY29udmVydEdGOzYkRkMuSSdzdHJpbmdHRjs+RmBwLUZTRkJAJi1GZW42JEZgcC5JJmFycmF5R0Y7Ty1JJWV2YWxHRjs2JEZgcCIiIjBGYHBRKXByb2NuYW1lRiVPRmBwLUZcbzYkRkM3JFElbGFzdEYlUShpbml0aWFsRiVDJEZocEAkLUZlbjYkRmBwLkklbGlzdEdGO08mRmBwNiMiIiMtRlxvNiRGQzckLkklbGFzdEdGJS5JKGluaXRpYWxHRiVDJEZfcEZdcjMtRmVuNiRGPUkiPUdGOy1GXG82JC1JJGxoc0dGOzYjRj03JEZbckZbc0MkQCUtRmVuNiQtSSRyaHNHRjtGZnNGYHI+RmBwLUZTNiMvRltyNyQiIiEtSSNvcEdGOzYjRlx0PkZgcC1GUzYjL0ZbcjckRmVyRlx0Rl1yL0Y9US5zb2xucHJvY2VkdXJlRiVPLUZhcTYjRlMvRj1RKHN5c3ZhcnNGJU83J0YoLUkiVkdGJUYnLUkiaEdGJUYnLUkibUdGJUYnLUkibkdGJUYnQCUwOSFJKHVua25vd25HRiVPLS5GX3ZGQkMkPjgoLUkocG9pbnR0b0dGOzYjJi1GVTYjUTBzb2xuX3Byb2NlZHVyZXNGJUZkck8tLkZmdkZCWiVDJD5GYHAtRlNGZnNGY3JGJVlGJUYlRiVGJUYl

plot(Vs,0..0.02);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdecTckIiIhJCEjcEYqNyQkIitNM1ZmViEjOCQhK3pYOiIpbyEiKTckJCIrbCYqKWZEJ0YwJCErbWFWcm9GMzckJCIrI0hbRDopRjAkIStWMyk9J29GMzckJCIrYnp3Jm8pRjAkIStqTkVmb0YzNyQkIis6dykqPSMqRjAkISsrTG9jb0YzNyQkIitddWYmWypGMCQhKzp5U2JvRjM3JCQiKyFHMkF2KkYwJCErTUM5YW9GMzckJCIrJj43YikpKkYwJCErK09eYG9GMzckJCIrNjwpPSsiISM3JCErKGVBIVxvRjM3JCQiKy1BQDo1RlokISsnZVk9I29GMzckJCIrJXBVJkc1RlokISs2cShbeidGMzckJCIrRW09TjZGWiQhK0t4RSZlJ0YzNyQkIitlMCQ9QyJGWiQhK1hJYCVRJ0YzNyQkIitMQWBjOUZaJCErTkB3IypmRjM3JCQiKzNSQnI7RlokIStUPUx1YkYzNyQkIitXXiJcKT1GWiQhKy5oXThdRjM3JCQiK3pqZik0I0ZaJCErMydSXjclRjM3JCQiK1dRN1tARlokIStETyFReiRGMzckJCIrMzhsKD4jRlokISt3QmxaTEYzNyQkIit0KHlyQyNGWiQhKy03MlpGRjM3JCQiK1FpcSdII0ZaJCEreXliVT5GMzckJCIrcSpwOUsjRlokIStmIVEiXDlGMzckJCIrLVBCWUJGWiQhKyZwbl0iKikhIio3JCQiK011KjRQI0ZaJCEraV0hKVJGRl1zNyQkIituNncmUiNGWiQiK2t3OStSRl1zNyQkIisrXF8/Q0ZaJCIraFExdzVGMzckJCIrSycpR1hDRlokIiswOjRdPEYzNyQkIitrQjBxQ0ZaJCIrOCpvUlAjRjM3JCQiKyc0O1tcI0ZaJCIrNjZAOUhGMzckJCIrPCopNFlERlokIituak8lcCRGMzckJCIrUTxRKGYjRlokIis8MScqXFNGMzckJCIrVkM/NUVGWiQiK0lRJykpMyVGMzckJCIrW0otQkVGWiQiK1QlKXA3VEYzNyQkIithUSVlaiNGWiQiK2M5akJURjM3JCQiK2ZYbVtFRlokIitrJnlONyVGMzckJCIrcWZJdUVGWiQiKykpUipvNCVGMzckJCIrIVFaKipwI0ZaJCIrKipmMVZTRjM3JCQiK0FJXi1HRlokIis+U2FxT0YzNyQkIitqJ3ldIUhGWiQiKyZcJWZsSkYzNyQkIisnPl82LCRGWiQiK2NycHRERjM3JCQiK0lkQTxKRlokIitSenFaPkYzNyQkIitqIypIQktGWiQiK05OZzc4RjM3JCQiKyd6cyRITEZaJCIrTEspKltvRl1zNyQkIitdaDVOTUZaJCIrWnllVHchIzU3JCQiKy8mUjNhJEZaJCErJCkqbyQqNCZGXXM3JCQiK2VHZFlPRlokISt1T2hzNUYzNyQkIis4aUlfUEZaJCErVVtMNztGMzckJCIrOmQjKXBSRlokISs9JEc9bSNGMzckJCIrPF9NKD0lRlokIStzdU5vT0YzNyQkIis4bCQqeVZGWiQhK3onKTMnZiVGMzckJCIrNHlfcVhGWiQhK2EkXFBuJkYzNyQkIis/NVB5WUZaJCErcCMqel9qRjM3JCQiK0lVQCd5JUZaJCErUkQjPisoRjM3JCQiK1N1MCUqW0ZaJCErKlJBNl0oRjM3JCQiK10xIT4rJkZaJCErZnZdLHlGMzckJCIrZ08vY11GWiQhK1EybSIqeUYzNyQkIit2bT01XkZaJCErIylmJVEmekYzNyQkIishcEhWOyZGWiQhK29LNicqekYzNyQkIisrRlo9X0ZaJCErKnBQWC0pRjM3JCQiK0QoZW5LJkZaJCErIT4memIhKUYzNyQkIitdWi9OYUZaJCErZVBNbyEpRjM3JCQiK10/dlZjRlokIStrKEczMilGMzckJCIrXSRmQyZlRlokISssPnppISlGMzckJCIrJ3o2OkInRlokIStiRDJTISlGMzckJCIrPD1DI28nRlokISs1UTQyISlGMzckJCIrbiNwUzEoRlokIStfIylRdnpGMzckJCIramBBM3ZGWiQhKyUqW1hNekYzNyQkIituKHk4IXpGWiQhK2I8eSUqeUYzNyQkIitqLnRLJClGWiQhK1ZfJXkleUYzNyQkIispM3pNdSlGWiQhKzdWQSt5RjM3JCQiKyNIXz88KkZaJCEraCIqKnp1KEYzNyQkIishRztjYypGWiQhKzBrRClwKEYzNyQkIis0I0csKioqRlokIStIXEVWd0YzNyQkIishbzJKLyIhIzYkISsmUkVgZShGMzckJCIrJVEjXCIzIkZcY2wkISsnPk5aYChGMzckJCIrOypbSDciRlxjbCQhK1c6VyFbKEYzNyQkIitxdnhsNkZcY2wkISsiNERfVShGMzckJCIrYHFuMjdGXGNsJCErW2Bdc3RGMzckJCIrY3BAWzdGXGNsJCErVlYxQnRGMzckJCIrMydIS0giRlxjbCQhK2k8SXFzRjM3JCQiK3hhbkw4RlxjbCQhKyhISl1BKEYzNyQkIit2KydvUCJGXGNsJCErL2s1enJGMzckJCIrUzwqZlQiRlxjbCQhKzdidVJyRjM3JCQiKyYpSHhlOUZcY2wkIStoJ1EjKjQoRjM3JCQiKy5vLSpcIkZcY2wkIStRL2RqcUYzNyQkIitUTzVUOkZcY2wkIStgayQpR3FGMzckJCIrVTlDI2UiRlxjbCQhKyU+JVIoKnBGMzckJCIrMSozYGkiRlxjbCQhK2hwN25wRjM3JCQiKyQqenltO0ZcY2wkIStkWl5TcEYzNyQkIiteaj80PEZcY2wkIStaaSVlInBGMzckJCIrak1GXjxGXGNsJCErQjQqUSpvRjM3JCQiK3EoRyoqeSJGXGNsJCErYWcpZShvRjM3JCQiKzlAQk09RlxjbCQhKzo2d2RvRjM3JCQiK2B2JlEoPUZcY2wkISt4WnhWb0YzNyQkIitPbDU7PkZcY2wkIStYZzZKb0YzNyQkIisvVWFjPkZcY2wkISs5JjQ2I29GMzckJCIiIyEiIyQhK1U8YzdvRjMtJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkRipGaWpsRmpqbC0lK0FYRVNMQUJFTFNHNiRRITYiRl5bbS0lJVZJRVdHNiQ7RmpqbCQiIz8hIiQ7JCEsJW96cjkkKUZdcyQiLC9tP3ZPJUZdcy0lJUZPTlRHNiQlKkhFTFZFVElDQUdGaGps

sol20:=dsolve({diff(V(t),t)=rhsV(t,V(t),n(t),m(t),h(t)), diff(n(t),t)=rhsn(t,V(t),n(t),m(t),h(t)), diff(m(t),t)=rhsm(t,V(t),n(t),m(t),h(t)), diff(h(t),t)=rhsh(t,V(t),n(t),m(t),h(t)),inits}, {V(t),n(t),m(t),h(t)},type=numeric);

NiM+SSZzb2wyMEc2ImYqNiNJKHhfcmtmNDVHRiU2KUkkcmVzR0YlSSVkYXRhR0YlSSV2YXJzR0YlSSlzb2xucHJvY0dGJUkpb3V0cG9pbnRHRiVJJm5kc29sR0YlSSJpR0YlNiNJaW5Db3B5cmlnaHR+KGMpfjIwMDB+Ynl+V2F0ZXJsb29+TWFwbGV+SW5jLn5BbGx+cmlnaHRzfnJlc2VydmVkLkdGJUYlQyo+SThfRW52RFNOdW1lcmljU2F2ZURpZ2l0c0dGJUknRGlnaXRzR0YlPkY2IiM6QCUvSS1fRW52SW5Gc29sdmVHRiVJJXRydWVHSSpwcm90ZWN0ZWRHRj0+OCgtJkkmZXZhbGZHRj02I0Y1NiM5JD5GPy1GQkZEPjglYDYkSSRHZXRHRiVJJFNldEdGJWI2I0krdGhpc21vZHVsZUdGJTYjSSVEYXRhR0YlRiVGS0YlRiVGJUYlSSpfbTUwMjMwNzJHRiVGUT44JjcnSSJ0R0YlLUkiVkdGJTYjRlctSSJoR0YlRlotSSJtR0YlRlotSSJuR0YlRlo+OCctX0ZJRkw2I1Evc29sbl9wcm9jZWR1cmVGJUAkNC1JJXR5cGVHRj02JEY/LkkobnVtZXJpY0dGPUMkQCwtSSdtZW1iZXJHRj02JEZFNytRJnN0YXJ0RiUuSSZzdGFydEdGJVEnbWV0aG9kRiUuSSdtZXRob2RHRiVRJWxlZnRGJVEmcmlnaHRGJVEpbGVmdGRhdGFGJVEqcmlnaHRkYXRhRiVRK2VuZ2luZWRhdGFGJUMkPjgkLUZcbzYjLUkoY29udmVydEdGPTYkRkUuSSdzdHJpbmdHRj1AJi1GZG82JEZbcS5JJmFycmF5R0Y9Ty1JJWV2YWxHRj02JEZbcSIiIjBGW3FRKXByb2NuYW1lRiVPRltxLUZbcDYkRkU3JlElbGFzdEYlLkklbGFzdEdGJVEoaW5pdGlhbEYlLkkoaW5pdGlhbEdGJUMkRmpwQCQtRmRvNiRGW3EuSSVsaXN0R0Y9TzcjLUkkc2VxR0Y9NiQvJkZVNiMsJjgqRlxyRlxyRlxyJkZbcUZmcy9GaHM7IiIhIiIlMy1GZG82JEY/SSI9R0Y9LUZbcDYkLUkkbGhzR0Y9NiNGPzckRmZyRmdyQyRAJS1GZG82JC1JJHJoc0dGPUZmdEZdcz5GW3EtRlxvNiMvRmZyNyRGXHQtSSNvcEdGPTYjRlx1WVFLaW5pdGlhbH52YWx1ZXN+bXVzdH5iZX5zcGVjaWZpZWR+aW5+YX5saXN0RiVGanIvRj9RLnNvbG5wcm9jZWR1cmVGJU8tRmpxNiNGXG8vRj9RKHN5c3ZhcnNGJU9GVUAlMDkhSSh1bmtub3duR0YlTy0uRmJ2RkRDJD44KS1JKHBvaW50dG9HRj02IyYtRl5vNiNRMHNvbG5fcHJvY2VkdXJlc0YlNiNGXHRPLS5GaXZGRFolQyQ+RltxLUZcb0ZmdEZgc0YlWUYlRiVGJUYl

with(plots):

Warning, the name changecoords has been redefined

J:=odeplot(sol20,[V(t),n(t)],0..0.02):display({J});

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JFgsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjQzA1MTQwMDAwMDAwMDAwMDNGRDQyOEY1QzI4RjVDMjlDMDUxMzRENzQ5QUI4RjZBM0ZENDJEOTY1MDAwOTM2NEMwNTEyNzkxRTFEMjU3OTgzRkQ0MzU4MjFENUVEMkY1QzA1MDBBQUY2QzQ5MDdBMTNGRDQ1ODIxREY3NjEwMTNDMDRDNDZBQTYxNzAwNjFCM0ZENTBEM0RGRkZBNERGNkMwNDYwNDdGOUIzNTNDMEMzRkQ2QUI0NUU3Nzc5MzVDNDAzMjc4QkY0MjNCMjY2OTNGREMwMzQzOTA5MkQzQjg0MDQxMTAyMjc3MDAyMjhDM0ZFM0EwN0Q4QzlFQTNFOTQwMjUzRkM3REYxQjczRUMzRkU2RDRFREQ2MDFGMThGQzAyODNEODhBM0NCMUY3ODNGRTg0RDE5Njk3RjU5RUZDMDNGQ0QxRjcyNkQxNTY5M0ZFOEJGQTMxMjdBRDU4RUMwNDlGQTQzNTU3Q0U2OUYzRkU4N0REOUNDNUE1M0ZEQzA1MkM5RDVCNzdDQjJFRTNGRTc5NjE1M0QzRDU3ODZDMDU0MjExODU1QzI5QjNCM0ZFNjVGREQyQ0YxNjQwN0MwNTQyQzAyQ0FFMzhBNjczRkU1MzQ4N0RCNDhEMDFEQzA1NDFFMzdDRUJCOTQzRTNGRTQxRTFCQkM5MjhDOUVDMDU0MEMwMDdEMjY4NTRCM0ZFMzFDMjZBOUQ5MjM1QUMwNTNGNzIzQTFEQkQ1OTIzRkUyMkQ5NDJBNTEyOERFQzA1M0RGRTBEMDZGODlCNTNGRTE1MTUzNTU0RThENzJDMDUzQzY1NkQzNkVGQjgzM0ZFMDg2NjQ4N0RCNzY4QkMwNTNBQUFEREVGQzQ4MkMzRkRGOTdCMUU3OTdDOUZFQzA1MzhEMUQxNzgwMUVBMzNGREU0MUEwRDY2MjgyQTBDMDUzNkRFOTY0RjMyMUM0M0ZERDA4RURGMUM2NDE4Q0MwNTM0RDYyQzZFMDM3NUYzRkRCRUMwNTU4MzIzRTc0QzA1MzJCRTA2QkMzN0JDRjNGREFFOTYzMkJCNUFEMTFDMDUzMDlCQ0NERThGREE4M0ZEOUZGOTAzQjY3MjE2OEMwNTJFNzUxREVDRDRCQkUzRkQ5MkQxRjU4OTIyNDNCQzA1MkM0RjVBMzlCMDgwQzNGRDg3MEFCNjJFQTk1ODVDMDUyQTJGNzc4QjNBNDVBM0ZEN0M4RDYwQTcwMzM0REMwNTI4MTlFMTdFODQwRTIzRkQ3MzQ0NzNBRDI4MURCQzA1MjYxMjY2NzQ0RDY5NzNGRDZCMUFEMUIyNjkxQUZDMDUyNDFDMzAzQkMxQTg3M0ZENjNGQkM4NTRBQjA1NEMwNTIyMzlDNkQ3RTZFRTkzRkQ1REQzMUQzODhGRjJCQzA1MjA2RDFCMzk2MkYzQTNGRDU4OEQxRTE3RTZCRkNDMDUxRUI3OTc5MUNGQkQyM0ZENTQxNkIxRjBCRkE1NkMwNTFEMUEzMkYyQUFDNzEzRkQ1MDVENjk4QURBNDIwQzA1MUI5NTg2MjY4Q0QzNTNGRDRENEY4REYyM0JDNDFDMDUxQTI5RTAwQ0NBRTZEM0ZENEFEQzJCRkU0QzQyNEMwNTE4RDc1ODIzQzUzMTAzRkQ0OEYzMUM3NTIyODkzQzA1MTc5RERFNTMzMjk3NjNGRDQ3ODUwOEM2ODBGNTNDMDUxNjdENDdBQzM2RkYxM0ZENDY4MzZDQjc5MDU2NEMwNTE1NzU1Nzg1MTMxRTczRkQ0NUUwOTU4OEM3Q0FDQzA1MTQ4NUM0RDE1RjREOTNGRDQ1OEY5RjUwQUY0NTNDMDUxM0FFM0QxNTQ0RTdEM0ZENDU4NDcxNkE0Mjc3N0MwNTEyRUU2MzBBMDM5NzAzRkQ0NUIzQkE4QTY4MUE5QzA1MTI0NUNDNDEyRTQ3QjNGRDQ2MTJFRDcxRDA0RUFDMDUxMUIzRkIzMUIwQzcwM0ZENDY5ODNFNzk2QzE3REMwNTExMzg1OTY3OUI5ODIzRkQ0NzNBQTJBMEU5MTQ5QzA1MTBEMjMwMzY5NjhEQzNGRDQ3RjFEMDEwNzFEMDFDMDUxMDgwQTFEQTUzMjhGM0ZENDhCNjQwMDNBMjc3RC0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiFGMkYzLSUrQVhFU0xBQkVMU0c2JFEiVkYrUSJuRistJSVGT05URzYkJSpIRUxWRVRJQ0FHRjE=

pulse:=t->-2*(Heaviside(t-.001)-Heaviside(t-.002)):rhsV:=(t,V,n,m,h)->-(gnabar*m^3*h*(V-Ena) + gkbar*n^4*(V-Ek) + gl*(V-El)+ pulse(t))/cm:sol2:=dsolve({diff(V(t),t)=rhsV(t,V(t),n(t),m(t),h(t)), diff(n(t),t)=rhsn(t,V(t),n(t),m(t),h(t)), diff(m(t),t)=rhsm(t,V(t),n(t),m(t),h(t)), diff(h(t),t)=rhsh(t,V(t),n(t),m(t),h(t)),inits}, {V(t),n(t),m(t),h(t)},type=numeric);

NiM+SSVzb2wyRzYiZio2I0koeF9ya2Y0NUdGJTYpSSRyZXNHRiVJJWRhdGFHRiVJJXZhcnNHRiVJKXNvbG5wcm9jR0YlSSlvdXRwb2ludEdGJUkmbmRzb2xHRiVJImlHRiU2I0lpbkNvcHlyaWdodH4oYyl+MjAwMH5ieX5XYXRlcmxvb35NYXBsZX5JbmMufkFsbH5yaWdodHN+cmVzZXJ2ZWQuR0YlRiVDKj5JOF9FbnZEU051bWVyaWNTYXZlRGlnaXRzR0YlSSdEaWdpdHNHRiU+RjYiIzpAJS9JLV9FbnZJbkZzb2x2ZUdGJUkldHJ1ZUdJKnByb3RlY3RlZEdGPT44KC0mSSZldmFsZkdGPTYjRjU2IzkkPkY/LUZCRkQ+OCVgNiRJJEdldEdGJUkkU2V0R0YlYjYjSSt0aGlzbW9kdWxlR0YlNiNJJURhdGFHRiVGJUZLRiVGJUYlRiVJKl9tNTg0NjI4MEdGJUZRPjgmNydJInRHRiUtSSJWR0YlNiNGVy1JImhHRiVGWi1JIm1HRiVGWi1JIm5HRiVGWj44Jy1fRklGTDYjUS9zb2xuX3Byb2NlZHVyZUYlQCQ0LUkldHlwZUdGPTYkRj8uSShudW1lcmljR0Y9QyRALC1JJ21lbWJlckdGPTYkRkU3K1Emc3RhcnRGJS5JJnN0YXJ0R0YlUSdtZXRob2RGJS5JJ21ldGhvZEdGJVElbGVmdEYlUSZyaWdodEYlUSlsZWZ0ZGF0YUYlUSpyaWdodGRhdGFGJVErZW5naW5lZGF0YUYlQyQ+OCQtRlxvNiMtSShjb252ZXJ0R0Y9NiRGRS5JJ3N0cmluZ0dGPUAmLUZkbzYkRltxLkkmYXJyYXlHRj1PLUklZXZhbEdGPTYkRltxIiIiMEZbcVEpcHJvY25hbWVGJU9GW3EtRltwNiRGRTcmUSVsYXN0RiUuSSVsYXN0R0YlUShpbml0aWFsRiUuSShpbml0aWFsR0YlQyRGanBAJC1GZG82JEZbcS5JJWxpc3RHRj1PNyMtSSRzZXFHRj02JC8mRlU2IywmOCpGXHJGXHJGXHImRltxRmZzL0ZoczsiIiEiIiUzLUZkbzYkRj9JIj1HRj0tRltwNiQtSSRsaHNHRj02I0Y/NyRGZnJGZ3JDJEAlLUZkbzYkLUkkcmhzR0Y9RmZ0Rl1zPkZbcS1GXG82Iy9GZnI3JEZcdC1JI29wR0Y9NiNGXHVZUUtpbml0aWFsfnZhbHVlc35tdXN0fmJlfnNwZWNpZmllZH5pbn5hfmxpc3RGJUZqci9GP1Euc29sbnByb2NlZHVyZUYlTy1GanE2I0Zcby9GP1Eoc3lzdmFyc0YlT0ZVQCUwOSFJKHVua25vd25HRiVPLS5GYnZGREMkPjgpLUkocG9pbnR0b0dGPTYjJi1GXm82I1Ewc29sbl9wcm9jZWR1cmVzRiU2I0ZcdE8tLkZpdkZEWiVDJD5GW3EtRlxvRmZ0RmBzRiVZRiVGJUYlRiU=

K:=odeplot(sol2,[V(t),n(t)],0..0.02,color=green):display({J,K});

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JVgsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjQzA1MTQwMDAwMDAwMDAwMDNGRDQyOEY1QzI4RjVDMjlDMDUxMzRENzQ5QUI4RjZBM0ZENDJEOTY1MDAwOTM2NEMwNTEyNzkxRTFEMjU3OTgzRkQ0MzU4MjFENUVEMkY1QzA1MTAwM0YwOENFRTk0QTNGRDQ0MkM1Qjg3OTNGNEZDMDUwQzk2MkE0NzlBN0RCM0ZENDVFQzdCNkY5NDUwRUMwNTA5RDYxQUNCODE4ODEzRkQ0ODgzNTJCMTk2MzA2QzA1MEEwNkQ0NDdCNkI4RTNGRDRCM0REMjA5Nzg0RTZDMDUwQTQ3MjNCMDI0QjkwM0ZENERCNEJDQkZFNUE4NEMwNTBBQjAxOEQ0QjMxOEMzRkQ0RkUzNEE0MUY5OUM3QzA1MEI0MEEzMzk0QzY2MzNGRDUxQzI5MzgzQjExQURDMDUwQkYxQTk0OUQ2OURFM0ZENTM0RENEN0U2NUI1MUMwNTBDQkEwMkFCMUE1MDIzRkQ1NDgzMkQyNjYzRjhDQzA1MEQ4RkM2RTk4MTg0MTNGRDU1NjQwNEIxNDk4REZDMDUwRTY5Mzc3RTBERjlBM0ZENTVGNDg5M0FCQTAwRUMwNTBGM0Q4NUUwMjQ1RDEzRkQ1NjNCNUM3QkQxRDA2QzA1MTAwNTY0MEVFRTkzRjNGRDU2NDBGMDFERTkyOUVDMDUxMEJCNTJBOURCOUQzM0ZENTYwRURBNkE4RjVERkMwNTExNUJBRDJEQjMwMzQzRkQ1NUFGMzE5NEVFMzMwQzA1MTFFNDgzQUVCRDBDMDNGRDU1MkJGRDZBMzdFQ0VDMDUxMjU1NTZBOEY1NDU5M0ZENTQ4RUM3QzE5Njk4NkMwNTEyQUVDNUE2RjRFREMzRkQ1M0UwNEQ1M0QwRUFCQzA1MTJGMjNFQzE2OTNCMzNGRDUzMjg0QzgwQkY4MjZDMDUxMzIxQjdBMUI4MTU5M0ZENTI2RDZEMUM2QTNGNkMwNTEzM0Y3MzM0OEY4MkEzRkQ1MUI1M0I3NzQ0RDM3QzA1MTM0REQ0QUM3Qjg5NjNGRDUxMDQzMTM2NUEwQ0VDMDUxMzRGM0VBQ0M4Q0I2M0ZENTA1REM3NUExNDA1NkMwNTEzNDVGQzlCOTg4RjAzRkQ0RkM0OERDMTgxM0I4QzA1MTMzNDMzRTA5QzI4MDNGRDRGM0E0NTU4MDdBNTVDMDUxMzFCREIwNDQyMDM3M0ZENEVCRkZCQTEwOENBN0MwNTEyRkVCNjQyNTI2MjczRkQ0RTU2MjQ4QzRBREZDQzA1MTJERTU0NTVGRDhGMjNGRDRERkNCNEJBRDdCNzJDMDUxMkJDMTFEQkRGNEQwM0ZENERCMzM4MzBCNURGMEMwNTEyOTkxN0Y2MkIxRkIzRkQ0RDc4RTg0M0RDMzU4QzA1MTI3NjYxQjFFNkJBQTNGRDRENENCRUQyQUNDMjlDMDUxMjU0QkUzMzQ5QjhCM0ZENEQyRDg3MjhFNzk4NUMwNTEyMzREMzczRDcwNzgzRkQ0RDE5RUQ5RDNCMkI2QzA1MTIxNzIyQ0MxQzhFQjNGRDREMTA4QzU4RkRENjlDMDUxMUZDMEJCMjA2MUREM0ZENEQwRkY2Qzk3MjcwRUMwNTExRTNDRUU4NjkxQzczRkQ0RDE2QzM2MTgwMDhGQzA1MTFDRTkyODBDRjNFRTNGRDREMjM5MzdGMkU0NThDMDUxMUJDNjQ5MkFDRDUwM0ZENEQzNTE5RjhFRTU1NEMwNTExQUQzRTVEMjhCOUQzRkQ0RDRBMjA3MkQ0OUQ0QzA1MTFBMTA3RkYwM0JENzNGRDRENjE4QjFCNTI5RjZDMDUxMTk3OUFCNjE1OTRGM0ZENEQ3QTVCODgyMkY3RkMwNTExOTBDNDg0RDM0NUEzRkQ0RDkzQjI2MThDMDhDQzA1MTE4QzRBNjM5MDlDNjNGRDREQUNEMDEzOEQwRURDMDUxMTg5RUI3RDA4NkVBM0ZENERDNTE0QjM5NDE4NEMwNTExODk2MkVFRTFDQTAzRkQ0RERCRkY0M0Q1ODFDQzA1MTE4QTZBQkY0NDcxRjNGRDRERjEyQkQwRDdGOUZDMDUxMThDQkQ4RUYzNEJGM0ZENEUwNDUyMEY0NEI3MFgsRilGK0YrW2dsJyElIiEhI19xIlMiI0MwNTE0MDAwMDAwMDAwMDAzRkQ0MjhGNUMyOEY1QzI5QzA1MTM0RDc0OUFCOEY2QTNGRDQyRDk2NTAwMDkzNjRDMDUxMjc5MUUxRDI1Nzk4M0ZENDM1ODIxRDVFRDJGNUMwNTAwQUFGNkM0OTA3QTEzRkQ0NTgyMURGNzYxMDEzQzA0QzQ2QUE2MTcwMDYxQjNGRDUwRDNERkZGQTRERjZDMDQ2MDQ3RjlCMzUzQzBDM0ZENkFCNDVFNzc3OTM1QzQwMzI3OEJGNDIzQjI2NjkzRkRDMDM0MzkwOTJEM0I4NDA0MTEwMjI3NzAwMjI4QzNGRTNBMDdEOEM5RUEzRTk0MDI1M0ZDN0RGMUI3M0VDM0ZFNkQ0RURENjAxRjE4RkMwMjgzRDg4QTNDQjFGNzgzRkU4NEQxOTY5N0Y1OUVGQzAzRkNEMUY3MjZEMTU2OTNGRThCRkEzMTI3QUQ1OEVDMDQ5RkE0MzU1N0NFNjlGM0ZFODdERDlDQzVBNTNGREMwNTJDOUQ1Qjc3Q0IyRUUzRkU3OTYxNTNEM0Q1Nzg2QzA1NDIxMTg1NUMyOUIzQjNGRTY1RkREMkNGMTY0MDdDMDU0MkMwMkNBRTM4QTY3M0ZFNTM0ODdEQjQ4RDAxREMwNTQxRTM3Q0VCQjk0M0UzRkU0MUUxQkJDOTI4QzlFQzA1NDBDMDA3RDI2ODU0QjNGRTMxQzI2QTlEOTIzNUFDMDUzRjcyM0ExREJENTkyM0ZFMjJEOTQyQTUxMjhERUMwNTNERkUwRDA2Rjg5QjUzRkUxNTE1MzU1NEU4RDcyQzA1M0M2NTZEMzZFRkI4MzNGRTA4NjY0ODdEQjc2OEJDMDUzQUFBRERFRkM0ODJDM0ZERjk3QjFFNzk3QzlGRUMwNTM4RDFEMTc4MDFFQTMzRkRFNDFBMEQ2NjI4MkEwQzA1MzZERTk2NEYzMjFDNDNGREQwOEVERjFDNjQxOENDMDUzNEQ2MkM2RTAzNzVGM0ZEQkVDMDU1ODMyM0U3NEMwNTMyQkUwNkJDMzdCQ0YzRkRBRTk2MzJCQjVBRDExQzA1MzA5QkNDREU4RkRBODNGRDlGRjkwM0I2NzIxNjhDMDUyRTc1MURFQ0Q0QkJFM0ZEOTJEMUY1ODkyMjQzQkMwNTJDNEY1QTM5QjA4MEMzRkQ4NzBBQjYyRUE5NTg1QzA1MkEyRjc3OEIzQTQ1QTNGRDdDOEQ2MEE3MDMzNERDMDUyODE5RTE3RTg0MEUyM0ZENzM0NDczQUQyODFEQkMwNTI2MTI2Njc0NEQ2OTczRkQ2QjFBRDFCMjY5MUFGQzA1MjQxQzMwM0JDMUE4NzNGRDYzRkJDODU0QUIwNTRDMDUyMjM5QzZEN0U2RUU5M0ZENUREMzFEMzg4RkYyQkMwNTIwNkQxQjM5NjJGM0EzRkQ1ODhEMUUxN0U2QkZDQzA1MUVCNzk3OTFDRkJEMjNGRDU0MTZCMUYwQkZBNTZDMDUxRDFBMzJGMkFBQzcxM0ZENTA1RDY5OEFEQTQyMEMwNTFCOTU4NjI2OENEMzUzRkQ0RDRGOERGMjNCQzQxQzA1MUEyOUUwMENDQUU2RDNGRDRBREMyQkZFNEM0MjRDMDUxOEQ3NTgyM0M1MzEwM0ZENDhGMzFDNzUyMjg5M0MwNTE3OURERTUzMzI5NzYzRkQ0Nzg1MDhDNjgwRjUzQzA1MTY3RDQ3QUMzNkZGMTNGRDQ2ODM2Q0I3OTA1NjRDMDUxNTc1NTc4NTEzMUU3M0ZENDVFMDk1ODhDN0NBQ0MwNTE0ODVDNEQxNUY0RDkzRkQ0NThGOUY1MEFGNDUzQzA1MTNBRTNEMTU0NEU3RDNGRDQ1ODQ3MTZBNDI3NzdDMDUxMkVFNjMwQTAzOTcwM0ZENDVCM0JBOEE2ODFBOUMwNTEyNDVDQzQxMkU0N0IzRkQ0NjEyRUQ3MUQwNEVBQzA1MTFCM0ZCMzFCMEM3MDNGRDQ2OTgzRTc5NkMxN0RDMDUxMTM4NTk2NzlCOTgyM0ZENDczQUEyQTBFOTE0OUMwNTEwRDIzMDM2OTY4REMzRkQ0N0YxRDAxMDcxRDAxQzA1MTA4MEExREE1MzI4RjNGRDQ4QjY0MDAzQTI3N0QtJSZDT0xPUkc2KSUkUkdCRyQiIiEhIiIkIiM1RjNGMUY0RjFGMS0lK0FYRVNMQUJFTFNHNidRIlZGK1EibkYrLSUlRk9OVEc2JCUqSEVMVkVUSUNBR0Y1JStIT1JJWk9OVEFMR0Y/Rjs=

odeplot(sol20,[V(t),h(t)],0..0.02);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JFgsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjQzA1MTQwMDAwMDAwMDAwMDNGRTM3NEJDNkE3RUY5REJDMDUxMzRENzQ5QUI4RjZBM0ZFMzZGMTkwNzc1NkVGQ0MwNTEyNzkxRTFEMjU3OTgzRkUzNjcwNzFERjA5MEQwQzA1MDBBQUY2QzQ5MDdBMTNGRTM0QUJDRTIyNzM1OEVDMDRDNDZBQTYxNzAwNjFCM0ZFMkI0NDk5MTBCRkNEM0MwNDYwNDdGOUIzNTNDMEMzRkUxMjU2RjFFQkJCODFBNDAzMjc4QkY0MjNCMjY2OTNGRDk4RUUzMEU3RDg2MEE0MDQxMTAyMjc3MDAyMjhDM0ZEMTAwQTBFNzJDQzQzQjQwMjUzRkM3REYxQjczRUMzRkM2QThFRjZFRjdGQkE4QzAyODNEODhBM0NCMUY3ODNGQkVBNjYyMTY5NzRCRkNDMDNGQ0QxRjcyNkQxNTY5M0ZCNjZEN0E2RUNENUI4MEMwNDlGQTQzNTU3Q0U2OUYzRkI0NjRENzEyRTg1N0IyQzA1MkM5RDVCNzdDQjJFRTNGQjkyRkJCQTM5RUU4M0JDMDU0MjExODU1QzI5QjNCM0ZDMUNBRDQxNUExMzExMEMwNTQyQzAyQ0FFMzhBNjczRkM3MkJGMjVFQ0VDMjk2QzA1NDFFMzdDRUJCOTQzRTNGQ0MzOUYzM0M1MUY2MUNDMDU0MEMwMDdEMjY4NTRCM0ZEMDc3ODEzMDQ2REExQ0MwNTNGNzIzQTFEQkQ1OTIzRkQyQTcxMzE3RjY5OUU2QzA1M0RGRTBEMDZGODlCNTNGRDRBRDkyQzc4QkIzQzNDMDUzQzY1NkQzNkVGQjgzM0ZENjhDRTVCREU2NTEyM0MwNTNBQUFEREVGQzQ4MkMzRkQ4NDZFOTcwNkM0RERDQzA1MzhEMUQxNzgwMUVBMzNGRDlERDcyQjQxRjQzMjBDMDUzNkRFOTY0RjMyMUM0M0ZEQjUyNERFRTc3MTlEM0MwNTM0RDYyQzZFMDM3NUYzRkRDQTczRTdERTk0N0VGQzA1MzJCRTA2QkMzN0JDRjNGREREREZERTg3RDU1MUFDMDUzMDlCQ0NERThGREE4M0ZERUY4M0FBQkI2OTUzRUMwNTJFNzUxREVDRDRCQkUzRkRGRjc5NzI0NjNCRTcyQzA1MkM0RjVBMzlCMDgwQzNGRTA2RUQ0NUI5Rjk3MTlDMDUyQTJGNzc4QjNBNDVBM0ZFMEQ1RkJBOTI4OEU1QUMwNTI4MTlFMTdFODQwRTIzRkUxMzFGRUE1MUExRUY1QzA1MjYxMjY2NzQ0RDY5NzNGRTE4MzkzQzJCRDEyODhDMDUyNDFDMzAzQkMxQTg3M0ZFMUNCNkFFRkYzRDIxOEMwNTIyMzlDNkQ3RTZFRTkzRkUyMEEyREQ2RUZENkM5QzA1MjA2RDFCMzk2MkYzQTNGRTI0MDgwMjVGOTBCM0VDMDUxRUI3OTc5MUNGQkQyM0ZFMjZFRkZENjREOEM0N0MwNTFEMUEzMkYyQUFDNzEzRkUyOTY0NTZFNDdFQUIzQzA1MUI5NTg2MjY4Q0QzNTNGRTJCNkU0M0Q3NzgzNkRDMDUxQTI5RTAwQ0NBRTZEM0ZFMkQxNkE5MkNEMjcwOEMwNTE4RDc1ODIzQzUzMTAzRkUyRTY2MUVENkMyODIyQzA1MTc5RERFNTMzMjk3NjNGRTJGNjRGMjg0NzZGNTdDMDUxNjdENDdBQzM2RkYxM0ZFMzAxQjI5RjdGMzFBN0MwNTE1NzU1Nzg1MTMxRTczRkUzMDkwODRFMDc3RTkxQzA1MTQ4NUM0RDE1RjREOTNGRTMwQ0M3RTA5RDZDMDlDMDUxM0FFM0QxNTQ0RTdEM0ZFMzBENjRCOTg5N0NGOEMwNTEyRUU2MzBBMDM5NzAzRkUzMEI0REUzOTUzNjc2QzA1MTI0NUNDNDEyRTQ3QjNGRTMwNkVERURCNzU3MTFDMDUxMUIzRkIzMUIwQzcwM0ZFMzAwQUFCMDZDQ0IzMUMwNTExMzg1OTY3OUI5ODIzRkUyRjhFNEY4QUFBRTUxQzA1MTBEMjMwMzY5NjhEQzNGRTJFRkY4MUJCMjNEODZDMDUxMDgwQTFEQTUzMjhGM0ZFMkU2Mzk3NkYzNjYxQy0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiFGMkYzLSUrQVhFU0xBQkVMU0c2JFEiVkYrUSJoRistJSVGT05URzYkJSpIRUxWRVRJQ0FHRjE=

odeplot(sol20,[m(t),h(t)],0..0.02);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JFgsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjM0ZBNTgxMDYyNEREMkYxQjNGRTM3NEJDNkE3RUY5REIzRkFBNUYwMUMyMDU4ODM2M0ZFMzZGMTkwNzc1NkVGQzNGQUJDODQzQjI2MjdDQzgzRkUzNjcwNzFERjA5MEQwM0ZCMEY0ODY3MjM2NkRERTNGRTM0QUJDRTIyNzM1OEUzRkJGNUZCODEyOEUyRjYwM0ZFMkI0NDk5MTBCRkNEMzNGRDAwNTQ1NzYwRTZERkEzRkUxMjU2RjFFQkJCODFBM0ZFNkQzQzc3Q0FBMEVGRTNGRDk4RUUzMEU3RDg2MEEzRkVGOUU0OERENzc0Q0VBM0ZEMTAwQTBFNzJDQzQzQjNGRUZEMDgyQkRCMjVBMUIzRkM2QThFRjZFRjdGQkE4M0ZFRjNCNTE2MTY3ODBFODNGQkVBNjYyMTY5NzRCRkMzRkVDRkExQjdCQzk1OENGM0ZCNjZEN0E2RUNENUI4MDNGRTYwMkMyQjJGNjJFQ0YzRkI0NjRENzEyRTg1N0IyM0ZDQUE4OEExMDM3NjFBOTNGQjkyRkJCQTM5RUU4M0IzRjk5MzE3QTY0NTYwQUIxM0ZDMUNBRDQxNUExMzExMDNGOEE2MzQ0MTgzQTgzNDkzRkM3MkJGMjVFQ0VDMjk2M0Y4OUUyNjM4MjBDRUQ4OTNGQ0MzOUYzM0M1MUY2MUMzRjhBQkM4RTQ1QzMwRDU4M0ZEMDc3ODEzMDQ2REExQzNGOEJENDNDODVEQUUyM0MzRkQyQTcxMzE3RjY5OUU2M0Y4RDFCOUNENEQyN0M3NjNGRDRBRDkyQzc4QkIzQzMzRjhFOTRGQzBDNUZCNURGM0ZENjhDRTVCREU2NTEyMzNGOTAyMUQyNEFEMkM4NEEzRkQ4NDZFOTcwNkM0RERDM0Y5MTE1M0I5NzQ5MUM0MjNGRDlERDcyQjQxRjQzMjAzRjkyMjVDRTY0QUY3MjI2M0ZEQjUyNERFRTc3MTlEMzNGOTM1NDFGQzI2M0JGMTUzRkRDQTczRTdERTk0N0VGM0Y5NEEwMkZBRjIzNDYwMzNGREREREZERTg3RDU1MUEzRjk2MDk2MzMxOTA1MzM3M0ZERUY4M0FBQkI2OTUzRTNGOTc4RTc4QjgzODFEMjYzRkRGRjc5NzI0NjNCRTcyM0Y5OTJEOEE4QkEzOThGQjNGRTA2RUQ0NUI5Rjk3MTkzRjlBRTQxOEM3OUFBMTkxM0ZFMEQ1RkJBOTI4OEU1QTNGOUNBRjFCM0REOTFCNjQzRkUxMzFGRUE1MUExRUY1M0Y5RThCMUExNEIzQjQ4QTNGRTE4MzkzQzJCRDEyODgzRkEwM0EyNTVENjc1RThGM0ZFMUNCNkFFRkYzRDIxODNGQTEzMzU3MjYxNDcyMTIzRkUyMEEyREQ2RUZENkM5M0ZBMjJGMTc1OEMxNDNCMDNGRTI0MDgwMjVGOTBCM0UzRkEzMkI1QzJGREFCRjQ3M0ZFMjZFRkZENjREOEM0NzNGQTQyNjI3QjFFRDMyNjIzRkUyOTY0NTZFNDdFQUIzM0ZBNTFEOEY4RjY5RTA5NDNGRTJCNkU0M0Q3NzgzNkQzRkE2MEZDMjQ4NEEyMUU0M0ZFMkQxNkE5MkNEMjcwODNGQTZGQjA5QTcwN0JDQjEzRkUyRTY2MUVENkMyODIyM0ZBN0REQ0FFREQ3QzgwMzNGRTJGNjRGMjg0NzZGNTczRkE4QjY4OUM5MjZFQTI2M0ZFMzAxQjI5RjdGMzFBNzNGQTk4M0U3QjA3RDk3MEYzRkUzMDkwODRFMDc3RTkxM0ZBQTQ0OUZCMkU0RTdCRTNGRTMwQ0M3RTA5RDZDMDkzRkFBRjc5MTAzMzY4OURFM0ZFMzBENjRCOTg5N0NGODNGQUI5QkI3N0Y4ODY1NzczRkUzMEI0REUzOTUzNjc2M0ZBQzMwM0E3RkYyQzBEMjNGRTMwNkVERURCNzU3MTEzRkFDQjQ2ODhBMEZEQkFEM0ZFMzAwQUFCMDZDQ0IzMTNGQUQyN0M2Mjg2QUUwRUEzRkUyRjhFNEY4QUFBRTUxM0ZBRDhBMTFCNTJCNjY2NzNGRTJFRkY4MUJCMjNEODYzRkFEREI0OTNDRTJCMTQxM0ZFMkU2Mzk3NkYzNjYxQy0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiFGMkYzLSUrQVhFU0xBQkVMU0c2JFEibUYrUSJoRistJSVGT05URzYkJSpIRUxWRVRJQ0FHRjE=

Figure 8.6.2a:=0.7; b:=0.8; c:=0.08;

NiM+SSJhRzYiJCIiKCEiIg==NiM+SSJiRzYiJCIiKSEiIg==

NiM+SSJjRzYiJCIiKSEiIw==

rhsx:=(t,x,y)->x-x^3/3-y; rhsy:=(t,x,y)->c*(x+a-b*y);

NiM+SSVyaHN4RzYiZio2JUkidEdGJUkieEdGJUkieUdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCg5JSIiIiokRi8iIiQjISIiRjI5JkY0RiVGJUYlNiM+SSVyaHN5RzYiZio2JUkidEdGJUkieEdGJUkieUdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlKiZJImNHRiUiIiIsKDklRjBJImFHRiVGMComSSJiR0YlRjA5JkYwISIiRjBGJUYlRiU=

sol2:=dsolve({diff(x(t),t)=rhsx(t,x(t),y(t)), diff(y(t),t)=rhsy(t,x(t),y(t)),x(0)=0,y(0)=-1}, {x(t),y(t)},type=numeric, output=listprocedure);

NiM+SSVzb2wyRzYiNyUvSSJ0R0YlZio2I0YoNiVJJHJlc0dGJUklZGF0YUdGJUkpc29sbnByb2NHRiU2I0lhb0NvcHlyaWdodH4oYyl+MTk5M35ieX50aGV+VW5pdmVyc2l0eX5vZn5XYXRlcmxvby5+QWxsfnJpZ2h0c35yZXNlcnZlZC5HRiVGJUMmPjglYDYkSSRHZXRHRiVJJFNldEdGJWI2I0krdGhpc21vZHVsZUdGJTYjSSVEYXRhR0YlRiVGNUYlRiVGJUYlSSpfbTEyNzczNjBHRiVGOz44Ji1fRjNGNjYjUS9zb2xuX3Byb2NlZHVyZUYlQCYtSSdtZW1iZXJHSSpwcm90ZWN0ZWRHRkc2JDkkNyRRJWxhc3RGJS5JJWxhc3RHRiVDJD44JC1GPzYjRktAJC1JJXR5cGVHRkc2JEZQLkklbGlzdEdGR08mRlA2IyIiIjMtRlU2JEZJSSI9R0ZHLUZGNiQtSSRsaHNHRkc2I0ZJNyRRKGluaXRpYWxGJS5JKGluaXRpYWxHRiVDJEAlLUZVNiQtSSRyaHNHRkdGX29GVz5GUC1GPzYjL0ZhbzckIiIhLUkjb3BHRkc2I0Zobz5GUC1GPzYjL0ZhbzckRmZuRmhvRlNGSUYlRiVGJS8tSSJ4R0YlRipmK0YqNidGLEYtRi5JKW91dHBvaW50R0YlSSV4KHQpR0YlNiNJaW5Db3B5cmlnaHR+KGMpfjIwMDB+Ynl+V2F0ZXJsb29+TWFwbGV+SW5jLn5BbGx+cmlnaHRzfnJlc2VydmVkLkdGJUYlQyk+SThfRW52RFNOdW1lcmljU2F2ZURpZ2l0c0dGJUknRGlnaXRzR0YlPkZkcSIjOkAlL0ktX0VudkluRnNvbHZlR0YlSSV0cnVlR0ZHPjgnLSZJJmV2YWxmR0ZHNiNGY3FGX28+RlxyLUZfckZfb0YyRj5AJDQtRlU2JEZcci5JKG51bWVyaWNHRkdDJEAuLUZGNiRGSTcrUSZzdGFydEYlLkkmc3RhcnRHRiVRJ21ldGhvZEYlLkknbWV0aG9kR0YlUSVsZWZ0RiVRJnJpZ2h0RiVRKWxlZnRkYXRhRiVRKnJpZ2h0ZGF0YUYlUStlbmdpbmVkYXRhRiVDJEAlLUZGNiRGSTckRl9zRmJzPkZQLUY/NiMtSShjb252ZXJ0R0ZHNiRGSS5JJ3N0cmluZ0dGRz5GUC1GP0Zfb0AmLUZVNiRGUC5JJmFycmF5R0ZHTy1JJWV2YWxHRkc2JEZQRmZuMEZQUSlwcm9jbmFtZUYlT0ZQLUZGNiRGSTckRktGYW9DJEZmdEAkRlRPJkZQNiMiIiMtRkY2JEZJNyRGTEZib0MkRl50Rmh1My1GVTYkRlxyRmpuLUZGNiQtRl5vNiNGXHJGYG9DJEAlLUZVNiQtRmlvRmd2Rlc+RlAtRj82Iy9GYW83JEZfcC1GYXA2I0Zcdz5GUC1GPzYjL0ZhbzckRlx2Rlx3Rmh1L0ZcclEuc29sbnByb2NlZHVyZUYlTy1GX3U2I0Y/L0ZcclEoc3lzdmFyc0YlTzclRihGaXAtSSJ5R0YlRipAJTA5IUkodW5rbm93bkdGJU8tLkZmeEZfb0MkPjgoLUkocG9pbnR0b0dGRzYjJi1GQTYjUTBzb2xuX3Byb2NlZHVyZXNGJUZbdk8tLkZdeUZfb1olQyQ+RlAtRj9GZ3ZGanVGJVlGJUYlRiVGJUYlL0ZieGYrRio2J0YsRi1GLkZdcUkleSh0KUdGJUZfcUYlQylGYnFGZXFGZ3FGMkY+QCRGZHJDJEAuRltzRmlzRmR1QyRGZnRAJEZUTyZGUDYjIiIkRl12QyRGXnRGZnpGYXZDJEAlRmp2Rl13PkZQLUY/NiMvRmFvNyRGanpGXHdGZnpGaXdGW3hGXnhGYHhAJUZleEZoeEMkPkZdeS1GX3k2IyZGYnlGaXpGZXlaJUMkRmp5Rmh6RiVGXHpGJUYlRiVGJQ==

xs:=subs(sol2,x(t)); ys:=subs(sol2,y(t));

NiM+SSN4c0c2ImYrNiNJInRHRiU2J0kkcmVzR0YlSSVkYXRhR0YlSSlzb2xucHJvY0dGJUkpb3V0cG9pbnRHRiVJJXgodClHRiU2I0lpbkNvcHlyaWdodH4oYyl+MjAwMH5ieX5XYXRlcmxvb35NYXBsZX5JbmMufkFsbH5yaWdodHN+cmVzZXJ2ZWQuR0YlRiVDKT5JOF9FbnZEU051bWVyaWNTYXZlRGlnaXRzR0YlSSdEaWdpdHNHRiU+RjQiIzpAJS9JLV9FbnZJbkZzb2x2ZUdGJUkldHJ1ZUdJKnByb3RlY3RlZEdGOz44Jy0mSSZldmFsZkdGOzYjRjM2IzkkPkY9LUZARkI+OCVgNiRJJEdldEdGJUkkU2V0R0YlYjYjSSt0aGlzbW9kdWxlR0YlNiNJJURhdGFHRiVGJUZJRiVGJUYlRiVJKl9tMTI3NzM2MEdGJUZPPjgmLV9GR0ZKNiNRL3NvbG5fcHJvY2VkdXJlRiVAJDQtSSV0eXBlR0Y7NiRGPS5JKG51bWVyaWNHRjtDJEAuLUknbWVtYmVyR0Y7NiRGQzcrUSZzdGFydEYlLkkmc3RhcnRHRiVRJ21ldGhvZEYlLkknbWV0aG9kR0YlUSVsZWZ0RiVRJnJpZ2h0RiVRKWxlZnRkYXRhRiVRKnJpZ2h0ZGF0YUYlUStlbmdpbmVkYXRhRiVDJEAlLUZcbzYkRkM3JEZgb0Zjbz44JC1GUzYjLUkoY29udmVydEdGOzYkRkMuSSdzdHJpbmdHRjs+RmBwLUZTRkJAJi1GZW42JEZgcC5JJmFycmF5R0Y7Ty1JJWV2YWxHRjs2JEZgcCIiIjBGYHBRKXByb2NuYW1lRiVPRmBwLUZcbzYkRkM3JFElbGFzdEYlUShpbml0aWFsRiVDJEZocEAkLUZlbjYkRmBwLkklbGlzdEdGO08mRmBwNiMiIiMtRlxvNiRGQzckLkklbGFzdEdGJS5JKGluaXRpYWxHRiVDJEZfcEZdcjMtRmVuNiRGPUkiPUdGOy1GXG82JC1JJGxoc0dGOzYjRj03JEZbckZbc0MkQCUtRmVuNiQtSSRyaHNHRjtGZnNGYHI+RmBwLUZTNiMvRltyNyQiIiEtSSNvcEdGOzYjRlx0PkZgcC1GUzYjL0ZbcjckRmVyRlx0Rl1yL0Y9US5zb2xucHJvY2VkdXJlRiVPLUZhcTYjRlMvRj1RKHN5c3ZhcnNGJU83JUYoLUkieEdGJUYnLUkieUdGJUYnQCUwOSFJKHVua25vd25HRiVPLS5GW3ZGQkMkPjgoLUkocG9pbnR0b0dGOzYjJi1GVTYjUTBzb2xuX3Byb2NlZHVyZXNGJUZkck8tLkZidkZCWiVDJD5GYHAtRlNGZnNGY3JGJVlGJUYlRiVGJUYlNiM+SSN5c0c2ImYrNiNJInRHRiU2J0kkcmVzR0YlSSVkYXRhR0YlSSlzb2xucHJvY0dGJUkpb3V0cG9pbnRHRiVJJXkodClHRiU2I0lpbkNvcHlyaWdodH4oYyl+MjAwMH5ieX5XYXRlcmxvb35NYXBsZX5JbmMufkFsbH5yaWdodHN+cmVzZXJ2ZWQuR0YlRiVDKT5JOF9FbnZEU051bWVyaWNTYXZlRGlnaXRzR0YlSSdEaWdpdHNHRiU+RjQiIzpAJS9JLV9FbnZJbkZzb2x2ZUdGJUkldHJ1ZUdJKnByb3RlY3RlZEdGOz44Jy0mSSZldmFsZkdGOzYjRjM2IzkkPkY9LUZARkI+OCVgNiRJJEdldEdGJUkkU2V0R0YlYjYjSSt0aGlzbW9kdWxlR0YlNiNJJURhdGFHRiVGJUZJRiVGJUYlRiVJKl9tMTI3NzM2MEdGJUZPPjgmLV9GR0ZKNiNRL3NvbG5fcHJvY2VkdXJlRiVAJDQtSSV0eXBlR0Y7NiRGPS5JKG51bWVyaWNHRjtDJEAuLUknbWVtYmVyR0Y7NiRGQzcrUSZzdGFydEYlLkkmc3RhcnRHRiVRJ21ldGhvZEYlLkknbWV0aG9kR0YlUSVsZWZ0RiVRJnJpZ2h0RiVRKWxlZnRkYXRhRiVRKnJpZ2h0ZGF0YUYlUStlbmdpbmVkYXRhRiVDJEAlLUZcbzYkRkM3JEZgb0Zjbz44JC1GUzYjLUkoY29udmVydEdGOzYkRkMuSSdzdHJpbmdHRjs+RmBwLUZTRkJAJi1GZW42JEZgcC5JJmFycmF5R0Y7Ty1JJWV2YWxHRjs2JEZgcCIiIjBGYHBRKXByb2NuYW1lRiVPRmBwLUZcbzYkRkM3JFElbGFzdEYlUShpbml0aWFsRiVDJEZocEAkLUZlbjYkRmBwLkklbGlzdEdGO08mRmBwNiMiIiQtRlxvNiRGQzckLkklbGFzdEdGJS5JKGluaXRpYWxHRiVDJEZfcEZdcjMtRmVuNiRGPUkiPUdGOy1GXG82JC1JJGxoc0dGOzYjRj03JEZbckZbc0MkQCUtRmVuNiQtSSRyaHNHRjtGZnNGYHI+RmBwLUZTNiMvRltyNyQiIiEtSSNvcEdGOzYjRlx0PkZgcC1GUzYjL0ZbcjckRmVyRlx0Rl1yL0Y9US5zb2xucHJvY2VkdXJlRiVPLUZhcTYjRlMvRj1RKHN5c3ZhcnNGJU83JUYoLUkieEdGJUYnLUkieUdGJUYnQCUwOSFJKHVua25vd25HRiVPLS5GW3ZGQkMkPjgoLUkocG9pbnR0b0dGOzYjJi1GVTYjUTBzb2xuX3Byb2NlZHVyZXNGJUZkck8tLkZidkZCWiVDJD5GYHAtRlNGZnNGY3JGJVlGJUYlRiVGJUYl

K:=plot([xs,ys,0..200],x=-3..3,y=-2..2,color=blue): J:=plot({[V,(V+a)/b,V=-2.5..1.5],[V,V-V^3/3,V=-2.5..2.2]}):plots[display]({J,K});

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JjdTNyQkITMrKysrKysrK0QhIzwkITMrKysrKysrXUFGLDckJCEzY0xMTCRRNkdUI0YsJCEzPG5tO0hVLFRARiw3JCQhM2FtbTtNIVxwTCNGLCQhMz1MJDNGSCc9WT9GLDckJCEzNkxMTCkpUWpeQUYsJCEzZ21tVGdCYVI+Riw3JCQhM0FMTEw9S3ZsQEYsJCEzSm1tIkhfIj5LPUYsNyQkITN3bW07QzJHITMjRiwkITNNTCQzXyE0TkQ8Riw3JCQhMzlMTCQzeU81KyNGLCQhM1VtOy93ZkhFO0YsNyQkITMmKioqKipcblUpKj0+RiwkITM7K11QTS50QjpGLDckJCEzU0xMJDNXRFQkPUYsJCEzIW9tVDUhb2w8OUYsNyQkITM1KytdZChRJlw8RiwkITNIK10ob1dCPkoiRiw3JCQhM2dtbW1jNGBpO0YsJCEzO0xMJGVwako/IkYsNyQkITNLTExMUVcqZWUiRiwkITN3bW0iei9vdDUiRiw3JCQhMzMrKytxKT4nKlwiRiwkITMnNCsrXVBbXyoqKiEjPTckJCEzLSsrK101KkhUIkYsJCEzVywrK0QiKVE3KilGZW83JCQhMywrKytJIjMmSDhGLCQhM2QqKioqKlxpXilveUZlbzckJCEzTkxMJDNrKHBgN0YsJCEzKHptOy9ePzcjcEZlbzckJCEzcm1tbU87Ymo2RiwkITNlTUxMZWFSJXomRmVvNyQkITN6bW1tWWg9KDMiRiwkITMzT0xMTG8jKVJbRmVvNyQkITMrLCsrdiNcTikqKkZlbyQhMyE9K11QZk8lSFBGZW83JCQhM2NvbW1tQ0MoPipGZW8kITNET0xMJDNgbHUjRmVvNyQkITM5KioqKipcRlJYTClGZW8kITMjKikqKlxQNHUibztGZW83JCQhM3QqKioqKlwjPS84dkZlbyQhMzwtK103Ry04ayEjPjckJCEzPG1tbTthKmVsJ0ZlbyQiM0RubW0iSDI4SSVGY3I3JCQhMydvbW07V24ob2VGZW8kIjNVbW0ienBTU1QiRmVvNyQkITNxTExMJGVWKD5dRmVvJCIzKEdMTDNfP2BaI0ZlbzckJCEzaE9MTDNrJXk4JUZlbyQiM0JITGUqKT5weE5GZW83JCQhMzAtKytEQjpxTEZlbyQiM1UoKipcUGY0dGAlRmVvNyQkITNXTkxMJG9ANWEjRmVvJCIzcElMJGUqR3N0YkZlbzckJCEzUywrKysnW1dvIkZlbyQiM0MpKioqKipcI1JXaydGZW83JCQhM15UKysrJiplayUpRmNyJCIzIVsqKipcN2ojPnAoRmVvNyQkITNcOS4rK3YzbU4hIz8kIjMyJyoqXGkhUlUwKClGZW83JCQiM15rKioqKipcQGZrKUZjciQiM2MmKioqXCg9UzIkKSpGZW83JCQiM19JTExMJjRObiJGZW8kIjNKbW1tInApPSUzIkYsNyQkIjNBKioqKioqKlwsc2AjRmVvJCIzeSoqKipcKD1dQD4iRiw3JCQiMyVbbW07ek0pPkxGZW8kIjM1TCRlKlskeioqRyJGLDckJCIzTCoqKioqKipwZmE8JUZlbyQiMyEqKioqKlxpQyRwUiJGLDckJCIzOEhMTGVnYCEpXEZlbyQiMy1tO0gycWMoXCJGLDckJCIzYygqKioqXCNHMkFlRmVvJCIzcSoqXDcuImZGZyJGLDckJCIzakpMTEwpR1trJ0ZlbyQiM1htbTsvT2cwPEYsNyQkIjM6KSoqKipcN3loXShGZW8kIjN4KipcaWxBRjg9Riw3JCQiM29ubW1tKWZkTClGZW8kIjNOTExMJCkqcHAiPkYsNyQkIjNgbG1tO3E3JT0qRmVvJCIzM0xMM3hlLEI/Riw3JCQiM0ZMTCRlI3BhLTVGLCQiM09tO0hkTz1HQEYsNyQkIjMqKSoqKioqKlJ2Jil6NUYsJCIzayoqKioqXCM+I1tBI0YsNyQkIjNITExMR1VZbzZGLCQiM11tbVQmRyFlTkJGLDckJCIzX21tbTFeclo3RiwkIjMvTExMJClRa01DRiw3JCQiMzQrK11zSUBLOEYsJCIzNytdaVNqRVNERiw3JCQiMzQrK10yJSkzODlGLCQiMzYrXVA0ME9URUYsNyQkIjMrKysrKysrKzpGLCQiMysrKysrKytdRkYsN1c3JEYqJCIzL0xMTExMTDNGRiw3JCQhM1hMJDN4b3coW0NGLCQiM1tQXnM3ZCNmVyNGLDckJCEzWW1tVHZMYihSI0YsJCIzJXonUlZHJW9qPiNGLDckJCEzclw3R1hVKUhOI0YsJCIzcChcPSo+YloqKT5GLDckJCEzVUxlOTpeVDNCRiwkIjNXWk0mPWVJPnoiRiw3JCQhMycpXChvcFkjSGVBRiwkIjNhJnAxJWUhPTJlIkYsNyQkITN1bTt6PSlwIjNBRiwkIjMheXRFLllfM1EiRiw3JCQhM3VtbTtEXHJkQEYsJCIzQzslKUgvciczPiJGLDckJCEzdW07YUorRTJARiwkIjNJM0guQXYnPSwiRiw3JCQhM2FMZSozJilIbysjRiwkIjMnKWZzeCM+J1xzb0ZlbzckJCEzcW0ienVAPVAiPkYsJCIzdUwlel8salxBJUZlbzckJCEzLCtESjlsSTw9RiwkIjM3ciRRcVp1SSQ9RmVvNyQkITNlbSJ6SFIoZjw8RiwkITM/XFhTOTNnYUdGY3I3JCQhMzMrRDFTITMjPTtGLCQhM2hZWUQnZidIZD9GZW83JCQhM0dMTDN1UShmXiJGLCQhM1JWKCpmPGJbWU5GZW83JCQhM29tOy9sZiNmVSJGLCQhM0VbQy4tZShcZiVGZW83JCQhMycqKioqXHNNYFhLIkYsJCEzaVhdNmc+TypcJkZlbzckJCEzLSsrdiRba0ZBIkYsJCEzb3ZgTihHeU44J0ZlbzckJCEzLysrdl8/bkM2RiwkITNRVydwKzp3Wl0nRmVvNyQkITNpbSJ6enMlZk41RiwkITNcIVsnWyRcWVFsJ0ZlbzckJCEzOU1MJDN0Sm5IKkZlbyQhM1MqcGtOWW4kPW1GZW83JCQhM19LTExCc1YqUilGZW8kITNvXWMlPkhhVFUnRmVvNyQkITNYK103KVJxY04oRmVvJCEzJVs9OU1cYCFIZ0ZlbzckJCEzc05MTCkqKWY8VidGZW8kITNPVkppWkkoW2EmRmVvNyQkITNLKSpcN1tPMz1hRmVvJCEzIVFuSHd4N3opW0ZlbzckJCEzXitdUFdUI0dYJUZlbyQhM3cwUyZbWEYmZVRGZW83JCQhMy5LTGU5cm5YTUZlbyQhM1FjaGReQUo0TEZlbzckJCEzIT5MZVJ1LDNfI0ZlbyQhMzciKik0UVgydVkjRmVvNyQkITNtbW1UNSgpPkI6RmVvJCEzPWtHNkQnPTleIkZlbzckJCEzS3dtInpIJnBwW0ZjciQhMyJILCg0eGYlZSdbRmNyNyQkIjNwJSoqXDc9NTI6JUZjciQiMzYkbyg0N2xLW1RGY3I3JCQiMydmTCQzQSYqSCpRIkZlbyQiMylHbmtlKTRPIVEiRmVvNyQkIjMhbyoqKipcKkd4JlIjRmVvJCIzJylveGxaZiQqXEJGZW83JCQiMyopKSoqXFB0NS9RJEZlbyQiM1VKV14oKilbO0QkRmVvNyQkIjMnNCt2PVopNExWRmVvJCIzV3lpTS4hMz4xJUZlbzckJCIzIykqKipcaXgmKjNSJkZlbyQiM2VQKT1YNG0nb1tGZW83JCQiM2VobW0sUFBUakZlbyQiMyVcPmU1U2E4XCZGZW83JCQiMzMrK11pPEBjdEZlbyQiM21vUkJFPklIZ0ZlbzckJCIzPkokMy0pZSFlRilGZW8kIjNfWUNQMCFva1EnRmVvNyQkIjM/LCtdWl47IkcqRmVvJCIza3pWelRDQjttRmVvNyQkIjNBbVQmbylIckE1RiwkIjNOckxyNilvOW0nRmVvNyQkIjMnKipcUHBiJGZANkYsJCIzS0VJeS1VI0deJ0ZlbzckJCIzTG1tInpRbiM9N0YsJCIzTSY9aFYhKSlmYmhGZW83JCQiM2cqXChvSGZaPjhGLCQiM0lcUTV0cUtQYkZlbzckJCIzWUxMTCV5XnBUIkYsJCIzSU5mNyUpb2InbyVGZW83JCQiM3FMJGVXI1xqOzpGLCQiM0xFNV0qRygqeWAkRmVvNyQkIjNfbVQmeWojXDo7RiwkIjMjR0ZoO3hHNjUjRmVvNyQkIjNWKytdNEVMMTxGLCQiM0FWOl5VVmtIXUZjcjckJCIzVW07SG9hVzU9RiwkITNlJno5I0hpJWZuIkZlbzckJCIzN0xMTF1fYy4+RiwkITNHXD5HRiFHbSZSRmVvNyQkIjMlKSpcKD1nLiZHKyNGLCQhM3pQJ1swL1NCdidGZW83JCQiM3kqXDcpeSl5eTQjRiwkITNtSkImekBreHoqRmVvNyQkIjM7KysrKysrK0FGLCQhMyRSTExMTEwkXDhGLDddcTckJCIiIUZnW20kISIiRmdbbTckJCIrPVg6WjkhIzUkISs1XV9IKSpGXVxtNyQkIisjcEZRMiRGXVxtJCErej8nUWsqRl1cbTckJCIrNytJJSlbRl1cbSQhK0FqOlQlKkZdXG03JCQiK0wwJypmb0ZdXG0kIStxaGo+IypGXVxtNyQkIitAaDFbKilGXVxtJCErR1QjeigqKUZdXG03JCQiK0V1bTA2ISIqJCErKGVUYXIpRl1cbTckJCIrPVtcMThGZ11tJCErXGl5SyUpRl1cbTckJCIreCkqPiZbIkZnXW0kISsiWyYqPTgpRl1cbTckJCIrdlhYWjxGZ11tJCErOTBJKVsoRl1cbTckJCIrP2BIJyk9RmddbSQhKyg+Ykkib0ZdXG03JCQiKypRWkklPkZnXW0kIStadD9IaEZdXG03JCQiKzN6JW8mPkZnXW0kIStzZDddYUZdXG03JCQiK0laKFskPkZnXW0kIStLbllHVEZdXG03JCQiK3FdSCQqPUZnXW0kISs+L3ltR0ZdXG03JCQiKzIpcHElPUZnXW0kISsvZ05uO0ZdXG03JCQiKydbRiIqeiJGZ11tJCErWylSREgmISM2NyQkIis7Tno3PEZnXW0kIitMcmI0OEZdXG03JCQiKylmLEFpIkZnXW0kIis+PS52SEZdXG03JCQiKyNvamRfIkZnXW0kIit3UXF0V0ZdXG03JCQiK055KTNVIkZnXW0kIitoaz81ZUZdXG03JCQiK0pZSShHIkZnXW0kIitzbm1AckZdXG03JCQiK3hfO0Q2RmddbSQiK1pwdEQjKUZdXG03JCQiKyd5c2ItIkZnXW0kIis6XXglcClGXVxtNyQkIitZTig0MCpGXVxtJCIrWzZCLSIqRl1cbTckJCIrWVVXMnZGXVxtJCIrcDwnKlElKkZdXG03JCQiKyM0bCZwYEZdXG0kIitEInAkKW8qRl1cbTckJCIrdldxPFJGXVxtJCIrKnBzPHgqRl1cbTckJCIrP1Q4dj9GXVxtJCIrY3kiKj0pKkZdXG03JCQhK1tCPkVKRlxhbSQiK3FaXz8pKkZdXG03JCQhKy9jbzpNRl1cbSQiK004IlJ3KkZdXG03JCQhK1MjW1tFJkZdXG0kIisxZis0KCpGXVxtNyQkIStSM3AhSChGXVxtJCIrMEwjUWoqRl1cbTckJCErKFxAS1YqRl1cbSQiK1xDJHBgKkZdXG03JCQhKyYpbzFmNkZnXW0kIitXN3k8JSpGXVxtNyQkIStgKj5MTyJGZ11tJCIrOEgzeCMqRl1cbTckJCErX2diVjpGZ11tJCIrbzglcDYqRl1cbTckJCErYkFZInAiRmddbSQiKzhvZVMqKUZdXG03JCQhK3BheC89RmddbSQiK1QhKXleKClGXVxtNyQkISs1IVFrKT1GZ11tJCIrYCdHVWIpRl1cbTckJCErSU9AVT5GZ11tJCIrYj8yXiQpRl1cbTckJCErJDNLJXk+RmddbSQiKzE+elciKUZdXG03JCQhKyFmZjErI0ZnXW0kIitmdT5QekZdXG03JCQhKypcMSQ+P0ZnXW0kIitUIzRGXyhGXVxtNyQkISssKXAqPj9GZ11tJCIrLSxcOHJGXVxtNyQkIStjKFxDKyNGZ11tJCIrWC9OPmpGXVxtNyQkIStiIUckeT5GZ11tJCIrUGJAaGJGXVxtNyQkISs7X1lHPkZnXW0kIitUVVRlVEZdXG03JCQhK2Fgano9RmddbSQiKzFQOyopR0ZdXG03JCQhKyhIQUEkPUZnXW0kIitAWWJWPEZdXG03JCQhK2IjZml5IkZnXW0kIissN0dBckZcYW03JCQhKzslUVxxIkZnXW0kIStTKVsxRipGXGFtNyQkIStzcSQpRztGZ11tJCErXU0vYUFGXVxtNyQkIStLcXhiOkZnXW0kISs8OCtaTEZdXG03JCQhKyQqbycpKVsiRmddbSQhK0QvI3o+JUZdXG03JCQhK1FXYEU5RmddbSQhK2FJTmxbRl1cbTckJCErOClIO1AiRmddbSQhKzBSNGJgRl1cbTckJCErcD0jZkciRmddbSQhKzgtSU5mRl1cbTckJCErNDpYSjdGZ11tJCErJkheeTwnRl1cbTckJCErQl8tMzdGZ11tJCErL29dVGlGXVxtNyQkIStTI3ojKj4iRmddbSQhKy1GdV1pRl1cbTckJCErTEVRKT4iRmddbSQhK2x2MFlpRl1cbTckJCErWkkpKik+IkZnXW0kISsmR1hKQydGXVxtNyQkISttcEsqPiJGZ11tJCErMlpWVWlGXVxtNyQkISsuQVYqPiJGZ11tJCErJGZdQ0MnRl1cbTckJCErXSFHJSo+IkZnXW0kIStJKVtEQydGXVxtNyQkISspejglKj4iRmddbSQhKy14ZlVpRl1cbTckJCErNSYzJSo+IkZnXW0kISt5WmdVaUZdXG03JCQhK2J2Uyo+IkZnXW0kIStORmdVaUZdXG03JCQhK3h4Uyo+IkZnXW0kISs9N2dVaUZdXG03JCQhK2V6Uyo+IkZnXW0kISsnZitFQydGXVxtNyQkIStmelMqPiJGZ11tJCErTjNnVWlGXVxtNyQkIStaelMqPiJGZ11tJCErJSozZ1VpRl1cbTckJCErSyEzJSo+IkZnXW0kISsoKjNnVWlGXVxtNyQkISs4IzMlKj4iRmddbSQhKzs/Z1VpRl1cbTckJCErPSIzJSo+IkZnXW0kIStJRmdVaUZdXG03JCQhKyp6MiUqPiJGZ11tJCErIjQtRUMnRl1cbTckJCErWCMzJSo+IkZnXW0kIStIOmdVaUZdXG03JEZoYG4kISt1O2dVaUZdXG03JCQhKygzMyUqPiJGZ11tJCErRjlnVWlGXVxtNyQkISt6KjMlKj4iRmddbSQhK24qKmZVaUZdXG03JCQhKy0pMyUqPiJGZ11tJCErWC5nVWlGXVxtNyQkIStiJDMlKj4iRmddbSQhKyhlK0VDJ0ZdXG03JCQhKyplMyUqPiJGZ11tJCErXSYqZlVpRl1cbTckJCErZiMzJSo+IkZnXW0kISsqRytFQydGXVxtNyRGW2NuJCErSStnVWlGXVxtNyQkIStGIjMlKj4iRmddbSQhK2gtZ1VpRl1cbTckJCErOyIzJSo+IkZnXW0kIStkK2dVaUZdXG03JEZgY24kIStaK2dVaUZdXG03JCQhK1EhMyUqPiJGZ11tJCErLStnVWlGXVxtNyQkISsyelMqPiJGZ11tJCErOCEqZlVpRl1cbTckJCErPCEzJSo+IkZnXW0kIStbJylmVWlGXVxtNyQkIStNIzMlKj4iRmddbSQhK1UkKmZVaUZdXG03JCQhKyVvMiUqPiJGZ11tJCEreSUqZlVpRl1cbTckJCErenZTKj4iRmddbSQhKyk+KmZVaUZdXG03JCQhK3V6Uyo+IkZnXW0kIStTJSpmVWlGXVxtNyQkISt4blMqPiJGZ11tJCErKD0sRUMnRl1cbS0lJkNPTE9SRzYsJSRSR0JHJCIjNUZpW20kRmdbbUZpW21GXWpuRl1qbkZbam5GXWpuRl1qbkZdam5GW2puLSUrQVhFU0xBQkVMU0c2J1EhNiJGYWpuLSUlRk9OVEc2JCUqSEVMVkVUSUNBR0Zcam4lK0hPUklaT05UQUxHRmdqbi0lJVZJRVdHNiQ7JCEjSUZpW20kIiNJRmlbbTskRl91RmlbbSQiIz9GaVttRmNqbg==