哈工大机械原理大作业凸轮机构设计题

=0哈工大机械原理大作业凸轮机构设计题HarbinInstituteofTechnology作业二 序序回程远休近休号许用止角止角角(o)(o)压力(o)(o)等加等减速0等减等加速70701201.运动规律(等加速等减速运动)推程0450推程4509002.运动规律(等加速等减速运动)回程16002000回程20002400、加速度线图及凸轮d0PrivateSubCommand1_Click()=True'开启计时器EndSubPrivateSubTimer1_Timer()StaticiAsSingle哈工大机械原理大作业凸轮机构设计题=0i=i+Ifi<=45Thenq=is=240*(q/90)^2Step(q,-s),vbRedElseIfi>=45Andi<=90Thenq=is=120-240*((90-q)^2)/(90^2)Step(q,-s),vbGreenElseIfi>=90Andi<=150Thenq=is=120Step(q,-s),vbBlackElseIfi>=150Andi<=190Thenq=is=120-240*(q-150)^2/6400Step(q,-s),vbBlueElseIfi>=190Andi<=230Thenq=is=240*(230-q)^2/6400Step(q,-s),vbRedElseIfi>=230Andi<=360Thenq=i哈工大机械原理大作业凸轮机构设计题s=0Step(q,-s),vbBlackElseEndIfEndSubPrivateSubCommand2_Click()=True'开启计时器EndSubPrivateSubTimer2_Timer()StaticiAsSingle代表角速度，此处被赋予50=0=0w=50i=i+Ifi<=45Thenq=iv=480*w*q/8100Step(q,-v),vbRedElseIfi>=45Andi<=90Thenq=iv=480*w*(90-q)/8100哈工大机械原理大作业凸轮机构设计题Step(q,-v),vbBlackElseIfi>=90Andi<=150Thenq=iv=0Step(q,-v),vbGreenElseIfi>=150Andi<=190Thenq=iv=-480*w*(q-150)/6400Step(q,-v),vbBlueElseIfi>=190Andi<=230Thenq=iv=-480*w*(230-q)/6400Step(q,-v),vbRedElseIfi>=230Andi<=360Thenq=iv=0Step(q,-v),vbBlackElseEndIfEndSubPrivateSubCommand3_Click()=True'开启计时器EndSub哈工大机械原理大作业凸轮机构设计题PrivateSubTimer3_Timer()StaticiAsSinglew=50=0=0i=i+Ifi<=45Thenq=ia=480*w^2/8100Step(q,-a),vbRedElseIfi>=45Andi<=90Thenq=ia=-480*w^2/8100Step(q,-a),vbBlackElseIfi>=90Andi<=150Thenq=ia=0Step(q,-a),vbGreenElseIfi>=150Andi<=190Thenq=ia=-480*w^2/6400Step(q,-a),vbBluet=/180哈工大机械原理大作业凸轮机构设计题ElseIfi>=190Andi<=230Thenq=ia=480*w^2/6400Step(q,-a),vbRedElseIfi>=230Andi<=360Thenq=ia=0Step(q,-a),vbBlackElseEndIfEndSubdq-dsPrivateSubCommand4_Click()=True'开启计时器；建立坐标系EndSubPrivateSubTimer4_Timer()StaticiAsSingleDimxAsSingle,sAsSingle,qAsSingle,scaleyAsSingle,tAsSingle'i为静=0=0scaley=1哈工大机械原理大作业凸轮机构设计题i=i+Ifi<=45Thenq=i*tx=*qs=240*(2*q/^2Step(x,-s),vbRedElseIfi>=45Andi<=90Thenq=i*tx=*/2-q)s=120-*/2-q)^2Step(x,-s),vbRedElseIfi>=90Andi<=150Thenq=i*tx=0s=120*scaleyStep(x,-s),vbRedElseIfi>=150Andi<=190Thenq=i*tx=*(q-5*/6)s=120-*(q-5*/6)^2Step(x,-s),vbRedElseIfi>=190Andi<=230Thenq=i*tx=*(23*/18-q)哈工大机械原理大作业凸轮机构设计题s=*(23*/18-q)^2Step(x,-s),vbRedElseIfi>=230Andi<=360Thenq=i*tx=0s=0Step(x,-s),vbRedElseEndIfEndSub在图中，右侧曲线为升程阶段的类速度-位移图，作直线Dd与其相切，且位移轴正方向呈夹角tt[a]=300,则切点处的斜率与直线Dd的斜率相等，因为k=tan600,右侧曲线斜率可以表示为：1ttDtdtq;q=tan600继而求出切点坐标(,)。同理可求出另一切点(,)定基圆半径和偏距PrivateSubCommand5_Click()'开启计时器；画出ds/dq-s图的切线=TrueEndSub哈工大机械原理大作业凸轮机构设计题StaticiAsSingleDimxAsSingle,sAsSingle,qAsSingle,scaleyAsSingle,tAsSingle=0=0scaley=1t=/180i=i+Ifi<=45Thenq=i*tx=*qs=240*(2*q/^2Step(x,-s),vbRedElseIfi>=45Andi<=90Thenq=i*tx=*/2-q)s=120-*/2-q)^2Step(x,-s),vbRedElseIfi>=90Andi<=150Thenq=i*tx=0s=120*scaleyStep(x,-s),vbRedElseIfi>=150Andi<=190Then哈工大机械原理大作业凸轮机构设计题q=i*tx=*(q-5*/6)s=120-*(q-5*/6)^2Step(x,-s),vbRedElseIfi>=190Andi<=230Thenq=i*tx=*(23*/18-q)s=*(23*/18-q)^2Step(x,-s),vbRedElseIfi>=230Andi<=360Thenq=i*tx=0s=0Step(x,-s),vbRedElseEndIfEndSub在轴心公共许用区内取轴心位置，能够满足压力角要求，现取直线红线与直线绿线的交点为轴0五．绘制凸轮理论廓线和实际廓线1.绘制凸轮理论轮廓PrivateSubCommand6_Click()'开启计时器；建立坐标系=TrueEndSubes哈工大机械原理大作业凸轮机构设计题StaticiAsSingleDimeAsSingle,qAsSingle,sAsSingle,xAsSingle,yAsSinglee===i=i+Ifi<=/4Thenq=ix=(s+240*(2*q/^2)*Cos(q)-e*Sin(q)y=(s+240*(2*q/^2)*Sin(q)+e*Cos(q)Step(x,-y),vbRedElseIfi>=/4Andi<=/2Thenq=ix=(s+120-*/2-q)^2)*Cos(q)-e*Sin(q)y=(s+120-*/2-q)^2)*Sin(q)+e*Cos(q)Step(x,-y),vbRedElseIfi>=/2Andi<=5*/6Thenq=ix=(s+120)*Cos(q)-e*Sin(q)y=(s+120)*Sin(q)+e*Cos(q)Step(x,-y),vbRedElseIfi>=5*/6Andi<=19*/18Then哈工大机械原理大作业凸轮机构设计题q=ix=(s+120-*(q-5/6*^2)*Cos(q)-e*Sin(q)y=(s+120-*(q-5/6*^2)*Sin(q)+e*Cos(q)Step(x,-y),vbRedElseIfi>=19/18*Andi<=23/18*Thenq=ix=(s+*(23/18*-q)^2)*Cos(q)-e*Sin(q)y=(s+*(23/18*-q)^2)*Sin(q)+e*Cos(q)Step(x,-y),vbRedElseIfi>=23/18*Andi<=2*Thenq=ix=s*Cos(q)-e*Sin(q)y=s*Sin(q)+e*Cos(q)Step(x,-y),vbRedElseEndIfEndSub2.确定滚子半径并绘制曲率半径图PrivateSubCommand7_Click()'开启计时器，建立坐标系=TrueEndSub哈工大机械原理大作业凸轮机构设计题StaticiAsSingleDimsAsSingle,qAsSingle,xAsSingle,yAsSingle,pAsSingle==0=-Sqr(e^2+s^2)i=i+Ifi<=/4Thenq=ix=(480*4*q/^2)*Cos(q)+(s+240*(2*q/^2)*(-Sin(q))-e*Cos(q)p=Sqr(x^2+y^2)Step(q,-p),vbRedElseIfi>=/4Andi<=/2Thenq=ix=(2**/2-q))*Cos(q)+(s+120-*/2-q)^2)*(-Sin(q))-e*Cos(q)y=(2**/2-q))*Sin(q)+(s+120-*/2-q)^2)*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Step(q,-p),vbRedElseIfi>=/2Andi<=5/6*Thenq=i哈工大机械原理大作业凸轮机构设计题x=(s+120)*(-Sin(q))-e*Cos(q)y=(s+120)*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Step(q,-p),vbRedElseIfi>=5/6*Andi<=19/18*Thenq=ix=(-2**(q-5/6*)*Cos(q)+(s+120-*(q-5/6*^2)*(-Sin(q))-e*Cos(q)y=(-2**(q-5/6*)*Sin(q)+(s+120-*(q-5/6*^2)*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Step(q,-p),vbRedElseIfi>=19/18*Andi<=23/18*Thenq=i-e*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Step(q,-p),vbRedElseIfi>=23/18*Andi<=2*Thenq=ix=s*(-Sin(q))-e*Cos(q)y=s*Cos(q)-e*Sin(q)哈工大机械原理大作业凸轮机构设计题p=Sqr(x^2+y^2)Step(q,-p),vbRedElseEndIfEndSub可以得到滚子半径为廓线PrivateSubCommand8_Click()=TrueEndSub坐标StaticiAsSingleaAsSingle,bAsSingle,mAsSingle,nAsSinglerr=e==i=i+Ifi<=/4Thenq=i哈工大机械原理大作业凸轮机构设计题x=(480*4*q/^2)*Cos(q)+(s+240*(2*q/^2)*(-Sin(q))-e*Cos(q)a=(s+240*(2*q/^2)*Cos(q)-e*Sin(q)b=(s+240*(2*q/^2)*Sin(q)+e*Cos(q)p=Sqr(x^2+y^2)m=a-rr*y/pn=b+rr*x/pStep(m,-n),vbBlackElseIfi>=/4Andi<=/2Thenq=ix=(2**/2-q))*Cos(q)+(s+120-*/2-q)^2)*(-Sin(q))-e*Cos(q)y=(2**/2-q))*Sin(q)+(s+120-*/2-q)^2)*Cos(q)-e*Sin(q)a=(s+120-*/2-q)^2)*Cos(q)-e*Sin(q)b=(s+120-*/2-q)^2)*Sin(q)+e*Cos(q)p=Sqr(x^2+y^2)m=a-rr*y/pn=b+rr*x/pStep(m,-n),vbBlackElseIfi>=/2Andi<=5/6*Thenq=ix=(s+120)*(-Sin(q))-e*Cos(q)哈工大机械原理大作业凸轮机构设计题y=(s+120)*Cos(q)-e*Sin(q)a=(s+120)*Cos(q)-e*Sin(q)b=(s+120)*Sin(q)+e*Cos(q)p=Sqr(x^2+y^2)m=a-rr*y/pn=b+rr*x/pStep(m,-n),vbBlackElseIfi>=5/6*Andi<=19/18*Thenq=ix=(-2**(q-5/6*)*Cos(q)+(s+120-