# mlsqr.ode
dv/dt = ( I - gca*minf(V)*(V-Vca)-gk*w*(V-VK)-gl*(V-Vl))/c
dw/dt = phi*(winf(V)-w)/tauw(V)
dI/dt = eps*(v0-v)
v(0)=-41.84
w(0)=0.002
minf(v)=.5*(1+tanh((v-v1)/v2))
winf(v)=.5*(1+tanh((v-v3)/v4))
tauw(v)=1/cosh((v-v3)/(2*v4))
param eps=.001,v0=-26,vk=-84,vl=-60,vca=120
param gk=8,gl=2,c=20
param v1=-1.2,v2=18
par v3=12,v4=17.4,phi=.23,gca=4
@ dt=1,total=4000,meth=cvode
@ xp=I,yp=v,xlo=25,xhi=45,ylo=-60,yhi=20
done