Одномерный осциллятор с сопротивлением.Подпишите пожалуйсто ход действия программы.Не могу разобраться где и что она делает.
uses GraphABC;
var t,dt,y,a,g,v,k,rx,ry,Sx,Sy,Hu,Hv,m,wx,j,tk:real;
procedure Init;begin t:=0;dt:=0.001;
g:=9.8;tk:=15;rx:=tk;ry:=50;y:=8;k:=8;
v:=5;wx:=3;m:=15;j:=k/m;
Sx:=Window.Width/rx;
Sy:=Window.Height/ry;
Hu:=3;Hv:=Window.Height/2;
Line(0,round(Hv),window.Width,round(Hv),clBlue);//OX
Line(round(Hu),0,round(Hu),window.Height,clBlue);//OY
end;
procedure OutRes(x,y:real;c:color);
begin var u:=round(x*Sx+Hu);
var v := round(-y*Sy+Hv);
PutPixel(u,v,c);
end;
procedure Euler;
begin while(t<tk) do
begin a:=-wx*y*wx-j*v;
v:=v+a*dt;
y:=y+v*dt;
t:=t+dt;
OutRes(t,y,clRed);
end;
end;
Begin Init;OutRes(t,y,clRed);Euler;end.