Курсовая работа: Проектирование механизмов поперечно-строгального станка
shag=30;
w1=9.42;
a=0.16994;
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;
Until F1>=
End.
Таблица 1.3 – Значения скоростей на VBA
|
Скорости |
Величина скорости, м/с | ||||||||||||
|
К-во Просмотров: 2250
Бесплатно скачать Курсовая работа: Проектирование механизмов поперечно-строгального станка
| |||||||||||||