par i=2,tref=2
par vthres=-50,vreset=-70,c=1,gl=.05,el=-65
@ meth=euler,total=200,dt=.01,maxstor=1000000,bound=10000
@ nout=10
@ xlo=0,xhi=200,ylo=-75,yhi=-45
v'=(tau>0)*(gl*(el-v)+I)/c
tau'=1
count'=0
v(0)=-65
global 1 v-vthres {v=vreset;count=count+1;tau=-tref}
aux current=i
done