Курсовая работа: Создание средств наглядности с использованием программной среды Delphi и Microsoft Movie Maker

k2w:=-dt*(2*delta*w+sch*sin(fi));

fi:=outalfa+k2a/2;

w:=outomega+k2w/2;

k3a:=dt*w;

k3w:=-dt*(2*delta*w+sch*sin(fi));

fi:=outalfa+k3a;

w:=outomega+k3w;

k4a:=dt*w;

k4w:=-dt*(2*delta*w+sch*sin(fi));

fi:=outalfa+(k1a+k2a*2+k3a*2+k4a)/6;

w:=outomega+(k1w+k2w*2+k3w*2+k4w)/6;

E:=en*(1 - cos(fi)) + (m*l*l*w*w)/2;

outalfa:=fi;

outomega:=w;

Chart2.Series[0].AddXY(t,fi * 180 / PI);

Chart3.Series[0].AddXY(t,w);

Chart4.Series[0].AddXY(t,E);

t:=t+Dt;

X:=X_O+dL*sin(fi);

Y:=Y_O-dL*cos(fi);

X1:=X_O+LVector*sin(fi);

Y1:=Y_O-LVector*cos(fi);

Xfc:=X-sign(w)*cos(fi);

Yfc:=Y-sign(w)*sin(fi);

Xfcnad:=X-sign(w)*(cos(fi)+0.5);

Yfcnad:=Y-sign(w)*sin(fi);

Series14.AddArrow(X,Y,Xfc,Yfc);

Series16.AddXY(Xfcnad,Yfcnad,'Fc');

Series2.Clear;