Основной целью данного курсового проекта является ознакомление с основными приемами проектирования гироскопических устройств, а также в частности, с конструктивными особенностями, принципом работы и т.д. последних.
Приложение
Программа расчета формы профиля кулачка. Язык программирования: Паскаль.
programfist;
uses Crt;
var gm,smax,alpha,gamma,q,rmin,rminr,r,step,stepst,phi,phistireal;
i: integer;
begin
ClrScr;
write ('Введитеходтолкателя Smax:'): readln(smax);
write ('Введитеуголдавления alpha:'); readln(alpha);
write ('Введите минимальный радиус Rmin:'); read(rmin);
rmmr:=:q*cos(alpha/l 80*pi)/sin(alpha/l 80*pi);
f rmin<rminr then vvriteln (' Rmin слишкоммал.')
else writeln (' Rmin выоранверно.'),
write ('Введитерабочийугол gamma:'); readln(gamma); gm:=gamma/180*pi; q:=smax/(gm);
write ('Введитешаг step:'): readln(step);
r:=rmin;
ClrScr;
Writeln( Угол',' ': 14,'Радиус R');
stepst:=step/180*pi;
phi:=0; phist:=0;i:=0;
repeat
writeln (phi:9:l," :9,r:9:l);
phi:=phi+step; phist:=phist+stepst;
r:=rmin+q*phist;
i:=i+l; if i=20 then begin readln; ClrScr; i:=0; end;
until phi>gamma; q:=smax/(2*pi-gm-stepst);
phist:=0; repeat
phi:=phi+step; phist:=phist+stepst;
r:=rmin+smax-q*phist;
writeln (phi:9:1.":9,r:9:b;
i:=i+l; if i=20 then begin readln; ClrScr; i:=0; end;
untilphi>359;
readln
end.