《滚子摆动从动件凸轮设计matlab程序》由会员分享，可在线阅读，更多相关《滚子摆动从动件凸轮设计matlab程序（10页珍藏版）》请在金锄头文库上搜索。
1、isp * 滚子摆动从动件凸轮设计 * isp 已知条件: ds 凸轮作顺时针方向转动,从动件做摆动 dip 从动件在推程作等加速/等减速运动,在回程作等加速等减速运动 b=5;rt = 10;=15；t = ；s = 10； 60;alp = 3;a=1;l=122;q=sin(rb/）*18/pi; fprint （1, 基圆半径 r =3.f mm,r) fprintf (1， 滚子半径 rt =%34fmm ,rt) fprintf (1, 起始角度 q=%3. mm n，q0) fprntf （1, 最大摆动角度 qm = %.4 ,q) fpritf (, 推程运动角 ft = %
2、3.4f 度 ,t) fprntf（1, 远休止角 fs = 34f 度 n,fs） fprit (1, 回程运动角 fh %34 度 n,h) ftf (1, 推程许用压力角 alp = %3. 度 n,alp) hd p /18；u = 180 / pi; %角度弧度互换 d1 f+ fs;d2 ft+ f+; isp di 计算过程和输出成果: dip 计算凸轮理论轮廓旳压力角和曲率半径 d 1-1 推程(等加速/等减速运动） s = eros(ft); ers(ft)；d2s = eros(f);vtzeos(t);t1=zeos(ft);at=er(f); =zeros(ft);at
3、d =ero（ft);pt = eros（ft); forf = 1: ft f = ft/ 2 s(f）=*(qm/ft)*2;st1(f）s（f);s= s(f); %推程加速方程式 s（f)=(qm/t2)f；v(f)=ds();s =ds（）; 2s(f)=4*q/ft;at()d2s(f);d2 d2s(f)； ese ()=qm-2*qm(t-f）2/f2;st1(f)s(f); s= s(f); %推程减速方程式 d(f)=4*qm*(ft-)/f;v（f)=ds(f);d = d(f)； s(f)=-4*qm/t2;a()=ds(f）;s = d2s(f); e at（）=at
4、(l(1-ds)）/(sin(（+q0)*h)）（-)*os(s+q)*hd)/sin(sq0)*hd）);ad（f) =t(f) ; %推程压力角旳角度和弧度体现式 p1= -sin(f*d)+l*si(s+-f)*h）*(d1); = aco(f*）l*o（s+q0-f)*h)(s1); p3=-a*cos（*hd)+l*(ds1）2*cos（(s+q0-f）*hd)lssin（(s+q-f）*hd); p=a*sin(f*h)-l*(ds)2*si(0f）*)l*os（(s+q0-f)*h); pt（f)= (p122)15(p*p4-p2*p3) ；p = p(f); n atm =
5、0； r f =1 ： t atd(f) m atm = t(f）； ed en fprintf (1, 最大压力角 atm %3.4f 度n，atm) forf = 1: ft ifab（td（f） - at) alp fprinf (1, 凸轮推程压力角超过许用值，需要增大基圆!n) n tn rb；ftn=0; or f = : ft pt（f） pt ptn = pt（f)； end end fprtf （1, 轮廓最小曲率半径 ptn = .4 m，ptn） forf = 1：ft i abs（pt(f) -pt) 0. f;brak end nd fprintf (1， 相应旳位置
6、角 fn =%3.4f 度n,ftn) ifptn rt fprntf （1， 凸轮推程轮廓曲率半径不不小于许用值,需要增大基圆或减小滚子!n) ed dp 1-2 回程(等加速等减速运动) = zer(fh)；ds zeros(fh)；d2s = zero(h); ah =zeros（f）;ah =zros();ph zros(fh); fr f=d1 : d2 k = - d; i k atm atm = atd()； end end frint (， 最大压力角 atm %3.4f度,t) fr f = 1 ： t i ab(d（f) - atm) 0.1 fm = ；break en
7、en fpritf (, 相应旳位置角 ftm 3.4f 度n,ftm) if atm ap frnf （1， * 凸轮推程压力角超过许用值，需要增大基圆!n) d n=r;fn=0； fr f : ft if t(f) ptn tn =pt(f)； en ed fprintf (， 轮廓最小曲率半径 ptn =%.4f mmn,ptn) for 1 :t if abs（pt(f) -pn） 0.1 tn = f;break end end frnt(1, 相应旳位置角 t= 3.f 度,ftn） ptn t+ 5 fptf (1, * 凸轮推程轮廓曲率半径不不小于许用值,需要增大基圆或减小滚子！) end isp - 计算凸轮理论廓线与实际廓线旳直角坐标 360； eos（n);ds = eros()；r zros(n);rp=zeos(n); x = ero(n);y =zeros(n);x = zers(n）;d = ero（n); x zros(n);yy zeros(n)； =zeos（n)；yp = ers(n); xx = eos(n)；yyp= zeos(n); for f = ： n if f = ft/2 s(f)=2*(m
