Контрольная работа: Механізми

Grafik(m+1,Fioag,Ya,Ya_1,Ya_2,'Ya','Ya_1','Ya_2'); }

testpf (m,Xb,Xb_1,Xb_2,'Xb');

Grafik(m+1,Fioag,Xb,Xb_1,Xb_2,'Xb','Xb_1','Xb_2');

testpf (m,Yb,Yb_1,Yb_2,'Yb');

Grafik(m+1,Fioag,Yb,Yb_1,Yb_2,'Yb','Yb_1','Yb_2');

FIbdr[i]:=Fibdg[i]/180*pi;

Fioar[i]:=Fioag[i]/180*pi;

testpf (m,FIbdr,FIbd_1,FIbd_2,'FIbdr');

Grafik(m+1,Fioar,FIbdr,FIbd_1,FIbd_2,'FIbdr','FIbd_1','FIbd_2');

testpf (m,FIfdr,FIfd_1,FIfd_2,'FIfdr');

Grafik(m+1,Fioag,FIfdr,FIfd_1,FIfd_2,'FIfdr','FIfd_1','FIfd_2');

for i:=1 to m+1 do

begin

if FIfd_1[i]>0 then

Mc[i]:=-1000 else

Mc[i]:=0;

Mpc[i]:=Mc[i]*FIfd_1[i];

end ;

Grafik(m+1,Fioag,Mc,Mc,Mc,'Mc','',' ');

Grafik(m+1,Fioag,Mpc,Mpc,Mpc,'Mpc','',' ');

testpf (m,Xd,Xd_1,Xd_2,'Xd');

Grafik(m+1,Fioag,Xd,Xd_1,Xd_2,'Xd','Xd_1','Xd_2');

testpf (m,Yd,Yd_1,Yd_2,'Yd');

Grafik(m+1,Fioag,Yd,Yd_1,Yd_2,'Yd','Yd_1','Yd_2'); }

testpf (m,Xsbd,Xsbd_1,Xsbd_2,'Xsbd');

Grafik(m+1,Fioag,Xsbd,Xsbd_1,Xsbd_2,'Xsbd','Xsbd_1','Xsbd_2');

testpf (m,Ysbd,Ysbd_1,Ysbd_2,'Ysbd');

Grafik(m+1,Fioag,Ysbd,Ysbd_1,Ysbd_2,'Ysbd','Ysbd_1','Ysbd_2');

testpf (m,Xsfd,Xsfd_1,Xsfd_2,'Xsfd');