Привод механизма арретирования с шаговым электродвигателем
Дипломная работа - Разное
Другие дипломы по предмету Разное
Правила выполнения кинематических схем.
Приложение
1. Программа раiета формы профиля кулачка.
Язык программирования: Паскаль (Borland Pascal 7.0)
program fist;Crt;gm,smax,alpha,gamma,q,rmin,rminr,r,step,stepst,phi,phist: real;: integer;;('Введите ход толкателя Smax: '); readln (smax);('Введите угол давления alpha: '); readln (alpha); ('Введите минимальный радиус Rmin: '); read (rmin);
rminr: =q*cos (alpha/180*pi) /sin (alpha/180*pi);
if rmin<rminr then writeln (' Rmin слишком мал. ')writeln (' Rmin выбран верно. ');('Введите рабочий угол gamma: '); readln (gamma);: =gamma/180*pi;: =smax/ (gm);('Введите шаг step: '); readln (step);: =rmin;;(' Угол',' ': 14,'Радиус R');: =step/180*pi;: =0; phist: =0; i: =0;(phi: 9: 1,' ': 9,r: 9:
);: =phi+step; phist: =phist+stepst;: =rmin+q*phist;: =i+1; if i=20 then begin readln; ClrScr; i: =0; end;phi>gamma;: =smax/ (2*pi-gm-stepst);: =0;: =phi+step; phist: =phist+stepst;
r: =rmin+smax-q*phist;(phi: 9: 1,' ': 9,r: 9:
);
i: =i+1; if i=20 then begin readln; ClrScr; i: =0; end;phi>359;.