Курсовая работа: Расчет механизма подъема

kpdp:=(1-power(kpdb,u))/((1-kpdb)*u);

kpdn:=(1-power(kpdb,u))*power(kpdb,nb)/((1-kpdb)*u);

If kpdp>=kpdn then kpdmin:=kpdn else kpdmin:=kpdp;

z:=u*a;

smax1:=q/(z*kpdmin);

smax2:=q/a*(1-kpdb)/(1-power(kpdb,u))/power(kpdb,nb);

//If smax1=smax2 then

sp:=smax1*nk;

//Выбор номера столбца из приложения 4//

For j:=1 to 16 do

If msp[j]>sp then

BEGIN

mj:=j;

break;

end;

dk:=mdk[mj];

db:=e*dk;

d:=(e-1)*dk;

db10:=(trunc(db/10)+1)*10;

d10:=(trunc(d/10)+1)*10;

du:=0.8*db10;

edit8.text:=FormatFloat('0.0#',kpdp);

edit9.text:=FormatFloat('0.0#',kpdn);

edit10.text:=FormatFloat('#0.000',smax1);

edit11.text:=FormatFloat('#0.000',smax2);

edit12.text:=FormatFloat('#0',z);

edit13.text:=FormatFloat('#0.000',sp);

edit14.text:=FormatFloat('#0.0',dk);

edit15.text:=FormatFloat('#0',db10);