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

str(Fioag[i]:8:4,strvar);

{ settextstyle (triplexfont, horizdir, 2);

} outtextxy (20,40, strvar);

q:=1;

Mas:=2;

setcolor(10);

kriv (Xo, Yo, Loa, FIoag[i], q, jk, Mas, Xa[i], Ya[i], Xa_1[i], Ya_1[i], Xa_2[i], Ya_2[i]);

lc:=50;

ori:=1;

opora (Xo,Yo,lc,Mas,q,ori);

{Расчет 1-ой присоединенной группы}

Lac:=270;

lcc:=40;

j:=-1;

Assur2 (Xa[i],Ya[i],Xa_1[i],Ya_1[i],Xa_2[i],Ya_2[i],-360,-120,0,

0,0,0,50,0,0,l,Lac,0,lcc,j,q,Mas, FIabg[i],FIab_1[i],FIab_2[i]);

lab:=120;

r:=5;

Point(Xa[i],Ya[i],Xa_1[i],Ya_1[i],Xa_2[i],Ya_2[i],FIabg[i],FIab_1[i],FIab_2[i],

lab,alfabg,q,Mas,r,Xb[i],Yb[i],Xb_1[i],Yb_1[i], Xb_2[i],Yb_2[i]);

{Расчет 2-ой присоединенной группы}

Lbd:=150;

Lfd:=250;

Assur1 (Xb[i],Yb[i],Xb_1[i],Yb_1[i],Xb_2[i],Yb_2[i],40,-170,0,0,0,

0,Lbd,Lfd,j,q,Mas,Fibdg[i],Fifdg[i],Fibd_1[i],Fifd_1[i],Fibd_2[i],Fifd_2[i]);

Fifdr[i]:=Fifdg[i]/180*pi;

{OPORA}

Xf:=40;

Yf:=-170;