Курсовая работа: Использование современного программного обеспечения для проектировании цепной передачи в металлорежущем станке

if ComboBox3.Text='2200' then P:=1.905;

if ComboBox3.Text='2200' then Talpha:=21.22;

if ComboBox3.Text='2200' then c1:=30.76;

if ComboBox3.Text='2200' then r1:=2;

if ComboBox3.Text='2200' then s:=3;

if ComboBox3.Text='1650' then b2:=14;

if ComboBox3.Text='1650' then u1:=9.52;

if ComboBox3.Text='1650' then h:=16.5;

if ComboBox3.Text='1650' then e:=2.5;

if ComboBox3.Text='1650' then P:=2.54 ;

if ComboBox3.Text='1650' then Talpha:=28.33;

if ComboBox3.Text='1650' then c1:=41.03;

if ComboBox3.Text='1650' then r1:=2.5;

if ComboBox3.Text='1650' then s:=3;

if ComboBox3.Text='1350' then b2:=17.5;

if ComboBox3.Text='1350' then u1:=11.91;

if ComboBox3.Text='1350' then h:=20.7;

if ComboBox3.Text='1350' then e:=3.2;

if ComboBox3.Text='1350' then P:=3.175 ;

if ComboBox3.Text='1350' then Talpha:=35.35;

if ComboBox3.Text='1350' then c1:=51.34;

if ComboBox3.Text='1350' then r1:=3.5;

if ComboBox3.Text='1350' then s:=3;

tau:=3.14/z;

dd:=shag/sin(tau);

Dt:=dd-(2*h/cos(tau));

P:=0.1*shag;

R:=2.4*shag;

K:=0.04*shag;