Set zeta =

tmax=10; dt=.05; DrawAxes(); Label('zeta = '+zeta,8,9); Colour(Black); x=10; v=0; t=0; omega0=2; // zeta=0.2; LineStart(t,x); StepModel();
//executed in StepModel() v=v+dt*(-2*zeta*omega0*v - omega0*omega0*x); x=x+v*dt; t = t + dt; LineTo(t, x); if (t<tmax){ setTimeout('StepModel()',40); }