Курсовая работа: Привод конвейера ПК-19

hf2:=m*(ha+c-X2);

d1:=m*Z1;

d2:=m*Z2;

dw1:=d1;

dw2:=d2;

db1:=d1*cos(q);

db2:=d2*cos(q);

da1:=d1+2*ha1;

da2:=d2+2*ha2;

df1:=d1-2*hf1;

df2:= d2-2*hf2;

S1:=0.5*Pi*m+2*m*X1*sin(q)/cos(q);

S2:=0.5*Pi*m+2*m*X2*sin(q)/cos(q);

P:=Pi*m;

Pb:=P*cos(q);

r:=0.38*m;

Edit7.Text:=FloatToStr(X1);

Edit8.Text:=FloatToStr(X2);

Edit9.Text:=FloatToStr(a);

Edit10.Text:=FloatToStr(h);

Edit11.Text:=FloatToStr(ha1);

Edit12.Text:=FloatToStr(ha2);

Edit13.Text:=FloatToStr(d1);

Edit14.Text:=FloatToStr(d2);

Edit15.Text:=FloatToStr(dw1);

Edit16.Text:=FloatToStr(dw2);

Edit17.Text:=FloatToStr(db1);

Edit18.Text:=FloatToStr(db2);

Edit19.Text:=FloatToStr(da1);