Курсовая работа: Механизм поперечно-строгального станка

User crt;

Const

h=0.;

l0=0.456;

l1=0.143;

shag=30;

w1=7.33;

a=0.270;

var

f1, w3, e3, vb, ab, u53, u53_, u31_:real;

cosf3, tgf3, sinf3: real;

begin

write (`,Введите угол в градусах`);

read(f1);

repeat

w3:=w1*((sqr(l1)+l0*l1*sin(f1))/(sqr(l1)+sqr(l0)+2*l0*l1-*sin(f1)));

u31_;=l0*l1*cos(n)*(sqr(l0)-sqr(l1))/(sqr(sqr(l1)+sqr(l0)+2*l0*l1*sin(f1)));

E3:=sqr(w1)*u31_;

cosf3:=sqrt((sqr(l1)*sqr(cos(f1)))/(sqr(l1)+sqr(l0)+2*l0*l1*sin(f1)));

tgf3:=(l0+l1*sin(f1))/(l1*cos(f1));

sinf3:=tgf3/sqrt(1+sqr(tgf3));

u53:=-(a/(sqr(sinf3)));

u53_:=(2*a*cosf3)/(sqr(sinf3)*sinf3);

Ab:=sqr(w3)*u53_+E3*u53;

Writeln(`’Скорость Vb=`, Vb=`,Vb:3:4);

Writeln(`’Ускорение Ab=`, Ab=`,Vb:3:4);

Decay(10000)

Writein;

F1:=F1+Shag;