机械原理大作业二-凸轮机构设计

大全机械原理大作业二课程名称：机械原理设计题目：凸轮机构设计一．设计题目设计直动从动件盘形凸轮机构，凸轮机构原始参数序号升程(mm)升程运动角(º)升程运动规律升程许用压力角（º）回程运动角（º）回程运动规律回程许用压力角（º）远休止角（º）近休止角（º）2212090等加等减速4080等减等加速7070120凸轮推杆运动规律1.运动规律（等加速等减速运动）推程推程2.运动规律（等加速等减速运动）回程回程三．推杆位移、速度、加速度线图及凸轮线图采用VB编程，其源程序及图像如下：1.位移：PrivateSubCommand1_Click()Timer1.Enabled=True'开启计时器EndSubPrivateSubTimer1_Timer()StaticiAsSingleDimsAsSingle,qAsSingle'i作为静态变量，控制流程；s代表位移；q代表角度Picture1.CurrentX=0Picture1.CurrentY=0i=i+0.1Ifi<=45Thenq=is=240*(q/90)^2Picture1.PSetStep(q,-s),vbRedElseIfi>=45Andi<=90Thenq=is=120-240*((90-q)^2)/(90^2)Picture1.PSetStep(q,-s),vbGreenElseIfi>=90Andi<=150Thenq=is=120Picture1.PSetStep(q,-s),vbBlackElseIfi>=150Andi<=190Thenq=is=120-240*(q-150)^2/6400Picture1.PSetStep(q,-s),vbBlueElseIfi>=190Andi<=230Thenq=is=240*(230-q)^2/6400Picture1.PSetStep(q,-s),vbRedElseIfi>=230Andi<=360Thenq=is=0Picture1.PSetStep(q,-s),vbBlackElseEndIfEndSub2.速度PrivateSubCommand2_Click()Timer2.Enabled=True'开启计时器EndSubPrivateSubTimer2_Timer()StaticiAsSingleDimvAsSingle,qAsSingle,wAsSingle'i为静态变量，控制流程；q代表角度；w代表角速度，此处被赋予50Picture1.CurrentX=0Picture1.CurrentY=0w=50i=i+0.1Ifi<=45Thenq=iv=480*w*q/8100Picture1.PSetStep(q,-v),vbRedElseIfi>=45Andi<=90Thenq=iv=480*w*(90-q)/8100Picture1.PSetStep(q,-v),vbBlackElseIfi>=90Andi<=150Thenq=iv=0Picture1.PSetStep(q,-v),vbGreenElseIfi>=150Andi<=190Thenq=iv=-480*w*(q-150)/6400Picture1.PSetStep(q,-v),vbBlueElseIfi>=190Andi<=230Thenq=iv=-480*w*(230-q)/6400Picture1.PSetStep(q,-v),vbRedElseIfi>=230Andi<=360Thenq=iv=0Picture1.PSetStep(q,-v),vbBlackElseEndIfEndSub3.加速度PrivateSubCommand3_Click()Timer3.Enabled=True'开启计时器EndSubPrivateSubTimer3_Timer()StaticiAsSingleDimaAsSingle,wAsSingle,qAsSingle'i为静态变量，控制流程；a代表加速度；q代表角度；w代表角速度w=50Picture1.CurrentX=0Picture1.CurrentY=0i=i+0.1Ifi<=45Thenq=ia=480*w^2/8100Picture1.PSetStep(q,-a),vbRedElseIfi>=45Andi<=90Thenq=ia=-480*w^2/8100Picture1.PSetStep(q,-a),vbBlackElseIfi>=90Andi<=150Thenq=ia=0Picture1.PSetStep(q,-a),vbGreenElseIfi>=150Andi<=190Thenq=ia=-480*w^2/6400Picture1.PSetStep(q,-a),vbBlueElseIfi>=190Andi<=230Thenq=ia=480*w^2/6400Picture1.PSetStep(q,-a),vbRedElseIfi>=230Andi<=360Thenq=ia=0Picture1.PSetStep(q,-a),vbBlackElseEndIfEndSub4.ds/dq---dsPrivateSubCommand4_Click()Timer4.Enabled=True'开启计时器；建立坐标系Picture1.Scale(-400,-400)-(400,400)EndSubPrivateSubTimer4_Timer()StaticiAsSingleDimxAsSingle,sAsSingle,qAsSingle,scaleyAsSingle,tAsSingle'i为静态变量，控制流程；x代表位移；s代表纵坐标ds/dq；q代表角度Picture1.CurrentX=0Picture1.CurrentY=0scaley=1t=3.14/180i=i+0.1Ifi<=45Thenq=i*tx=194.734*qs=240*(2*q/3.14)^2Picture1.PSetStep(x,-s),vbRedElseIfi>=45Andi<=90Thenq=i*tx=194.734*(3.14/2-q)s=120-97.367*(3.14/2-q)^2Picture1.PSetStep(x,-s),vbRedElseIfi>=90Andi<=150Thenq=i*tx=0s=120*scaleyPicture1.PSetStep(x,-s),vbRedElseIfi>=150Andi<=190Thenq=i*tx=-246.46*(q-5*3.14/6)s=120-123.23*(q-5*3.14/6)^2Picture1.PSetStep(x,-s),vbRedElseIfi>=190Andi<=230Thenq=i*tx=-246.46*(23*3.14/18-q)s=123.23*(23*3.14/18-q)^2Picture1.PSetStep(x,-s),vbRedElseIfi>=230Andi<=360Thenq=i*tx=0s=0Picture1.PSetStep(x,-s),vbRedElseEndIfEndSub四．确定凸轮基圆半径和偏距1.求切点转角在图中，右侧曲线为升程阶段的类速度-位移图，作直线Dtdt与其相切，且位移轴正方向呈夹角[1]=300,则切点处的斜率与直线Dtdt的斜率相等，因为kDtdt=tan600,右侧曲线斜率可以表示为：q;q=tan600继而求出切点坐标（337.272,292.084）。同理可求出另一切点（-89.766,16.347）2.确定直线方程y-292.084=1.732*（x-337.272）y-16.347=-0.364*（x+89.766）3.绘图确定基圆半径和偏距程序如下：PrivateSubCommand5_Click()'开启计时器；画出ds/dq-s图的切线Timer5.Enabled=TruePicture1.Scale(-400,-400)-(400,400)Picture1.Line(-50,378.671)-(200,-54.329),vbRedPicture1.Line(-200,-65.683)-(40,-481.363),vbBluePicture1.Line(-200,-209.127)-(200,-63.527),vbBlackPicture1.Line(-200,-56.472)-(200,89.128),vbGreenEndSubPrivateSubTimer5_Timer()'i为静态变量，控制流程；x代表位移；s代表纵坐标ds/dq；q代表角度；scaley是图形比例系数；t为角度，弧度转化系数StaticiAsSingleDimxAsSingle,sAsSingle,qAsSingle,scaleyAsSingle,tAsSinglePicture1.CurrentX=0Picture1.CurrentY=0scaley=1t=3.14/180i=i+0.1Ifi<=45Thenq=i*tx=194.734*qs=240*(2*q/3.14)^2Picture1.PSetStep(x,-s),vbRedElseIfi>=45Andi<=90Thenq=i*tx=194.734*(3.14/2-q)s=120-97.367*(3.14/2-q)^2Picture1.PSetStep(x,-s),vbRedElseIfi>=90Andi<=150Thenq=i*tx=0s=120*scaleyPicture1.PSetStep(x,-s),vbRedElseIfi>=150Andi<=190Thenq=i*tx=-246.46*(q-5*3.14/6)s=120-123.23*(q-5*3.14/6)^2Picture1.PSetStep(x,-s),vbRedElseIfi>=190Andi<=230Thenq=i*tx=-246.46*(23*3.14/18-q)s=123.23*(23*3.14/18-q)^2Picture1.PSetStep(x,-s),vbRedElseIfi>=230Andi<=360Thenq=i*tx=0s=0Picture1.PSetStep(x,-s),vbRedElseEndIfEndSub在轴心公共许用区内取轴心位置，能够满足压力角要求，现取直线红线与直线绿线的交点为轴心位置，通过解方程组：x=131.557y=-64.214r0=146.392偏距e=131.557s0=64.013五．绘制凸轮理论廓线和实际廓线1.绘制凸轮理论轮廓PrivateSubCommand6_Click()'开启计时器；建立坐标系Picture1.Scale(-500,-500)-(500,500)Timer6.Enabled=TrueEndSubPrivateSubTimer6_Timer()'i为静态变量，控制流程；e为偏距；s为基圆半径平方减去偏距平方再开方所得；q为角度；x为横坐标；y为纵坐标StaticiAsSingleDimeAsSingle,qAsSingle,sAsSingle,xAsSingle,yAsSinglee=131.557s=64.213Picture1.CurrentX=12.764Picture1.CurrentY=-95.125i=i+0.001Ifi<=3.14/4Thenq=ix=(s+240*(2*q/3.14)^2)*Cos(q)-e*Sin(q)y=(s+240*(2*q/3.14)^2)*Sin(q)+e*Cos(q)Picture1.PSetStep(x,-y),vbRedElseIfi>=3.14/4Andi<=3.14/2Thenq=ix=(s+120-97.367*(3.14/2-q)^2)*Cos(q)-e*Sin(q)y=(s+120-97.367*(3.14/2-q)^2)*Sin(q)+e*Cos(q)Picture1.PSetStep(x,-y),vbRedElseIfi>=3.14/2Andi<=5*3.14/6Thenq=ix=(s+120)*Cos(q)-e*Sin(q)y=(s+120)*Sin(q)+e*Cos(q)Picture1.PSetStep(x,-y),vbRedElseIfi>=5*3.14/6Andi<=19*3.14/18Thenq=ix=(s+120-123.23*(q-5/6*3.14)^2)*Cos(q)-e*Sin(q)y=(s+120-123.23*(q-5/6*3.14)^2)*Sin(q)+e*Cos(q)Picture1.PSetStep(x,-y),vbRedElseIfi>=19/18*3.14Andi<=23/18*3.14Thenq=ix=(s+123.23*(23/18*3.14-q)^2)*Cos(q)-e*Sin(q)y=(s+123.23*(23/18*3.14-q)^2)*Sin(q)+e*Cos(q)Picture1.PSetStep(x,-y),vbRedElseIfi>=23/18*3.14Andi<=2*3.14Thenq=ix=s*Cos(q)-e*Sin(q)y=s*Sin(q)+e*Cos(q)Picture1.PSetStep(x,-y),vbRedElseEndIfEndSub2.确定滚子半径并绘制曲率半径图PrivateSubCommand7_Click()'开启计时器，建立坐标系Timer7.Enabled=TruePicture1.Scale(-10,-500)-(10,10)EndSubPrivateSubTimer7_Timer()'i为静态变量，控制流程；x代表dx/dq;y代表dy/dq；p代表曲率；e为偏距；s为基圆半径平方减去偏距平方再开方所得StaticiAsSingleDimsAsSingle,qAsSingle,xAsSingle,yAsSingle,pAsSingles=64.213e=131.557Picture1.CurrentX=0Picture1.CurrentY=-Sqr(e^2+s^2)i=i+0.01Ifi<=3.14/4Thenq=ix=(480*4*q/3.14^2)*Cos(q)+(s+240*(2*q/3.14)^2)*(-Sin(q))-e*Cos(q)y=(480*4*q/3.14^2)*Sin(q)-e*Sin(q)+(s+240*(2*q/3.14)^2)*Cos(q)p=Sqr(x^2+y^2)Picture1.PSetStep(q,-p),vbRedElseIfi>=3.14/4Andi<=3.14/2Thenq=ix=(2*97.367*(3.14/2-q))*Cos(q)+(s+120-97.367*(3.14/2-q)^2)*(-Sin(q))-e*Cos(q)y=(2*97.367*(3.14/2-q))*Sin(q)+(s+120-97.367*(3.14/2-q)^2)*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Picture1.PSetStep(q,-p),vbRedElseIfi>=3.14/2Andi<=5/6*3.14Thenq=ix=(s+120)*(-Sin(q))-e*Cos(q)y=(s+120)*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Picture1.PSetStep(q,-p),vbRedElseIfi>=5/6*3.14Andi<=19/18*3.14Thenq=ix=(-2*123.23*(q-5/6*3.14))*Cos(q)+(s+120-123.23*(q-5/6*3.14)^2)*(-Sin(q))-e*Cos(q)y=(-2*123.23*(q-5/6*3.14))*Sin(q)+(s+120-123.23*(q-5/6*3.14)^2)*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Picture1.PSetStep(q,-p),vbRedElseIfi>=19/18*3.14Andi<=23/18*3.14Thenq=ix=(-2*123.23*(23/18*3.14-q))*Cos(q)+(s+123.23*(23/18*3.14-q)^2)*(-Sin(q))-e*Cos(q)y=(-2*123.23*(23/18*3.14-q))*Sin(q)+(s+123.23*(23/18*3.14-q)^2)*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Picture1.PSetStep(q,-p),vbRedElseIfi>=23/18*3.14Andi<=2*3.14Thenq=ix=s*(-Sin(q))-e*Cos(q)y=s*Cos(q)-e*Sin(q)p=Sqr(x^2+y^2)Picture1.PSetStep(q,-p),vbRedElseEndIfEndSub其中曲率最小值为126.026mm可以得到滚子半径为63.013mm3.绘制实际轮廓线PrivateSubCommand8_Click()Picture1.Scale(-500,-500)-(500,500)'建立坐标系；开启计时器Timer8.Enabled=TrueEndSubPrivateSubTimer8_Timer()'i为静态变量，控制流程；q代表角度；x代表dx/dy；y代表dy/dq；a代表理论轮廓的横坐标；b代表理论轮廓的纵坐标；m代表横坐标；n代表纵坐标StaticiAsSingleDimsAsSingle,qAsSingle,xAsSingle,yAsSingle,pAsSingle,rrAsSingle,aAsSingle,bAsSingle,mAsSingle,nAsSinglerr=63.013s=64.213e=131.557Picture1.CurrentX=12.764Picture1.CurrentY=-95.175i=i+0.001Ifi<=3.14/4Thenq=ix=(480*4*q/3.14^2)*Cos(q)+(s+240*(2*q/3.14)^2)*(-Sin(q))-e*Cos(q)y=(480*4*q/3.14^2)*Sin(q)-e*Sin(q)+(s+240*(2*q/3.14)^2)*Cos(q)a=(s+240*(2*q/3.14)^2)*Cos(q)-e*Sin(q)b=(s+240*(2*q/3.14)^2)*Sin(q)+e*Cos(q)p=Sqr(x^2+y^2)m=a-rr*y/pn=b+rr*x/pPicture1.PSetStep(m,-n),vbBlackElseIfi>=3.14/4Andi<=3.14/2Thenq=ix=(2*97.367*(3.14/2-q))*Cos(q)+(s+120-97.367*(3.14/2-q)^2)*(-Sin(q))-e*Cos(q)y=(2*97.367*(3.14/2-q))*Sin(q)+(s+120-97.367*(3.14/2-q)^2)*Cos(q)-e*Sin(q)a=(s+120-97.367*(3.14/2-q)^2)*Cos(q)-e*Sin(q)b=(s+120-97.367*(3.14/2-q)^2)*Sin(q)+e*Cos(q)p=Sqr(x^2+y^2)m=a-rr*y/pn=b+rr*x/pPicture1.PSetStep(m,-n),vbBlackElseIfi>=3.14/2Andi<=5/6*3.14Thenq=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/pPicture1.PSetStep(m,-n),vbBlackElseIfi>=5/6*3.14Andi<=19/18*3.14Thenq=ix=(-2*123.23*(q-5/6*3.14))*Cos(q)+(s+120-123.23*(q-5/6*3.14)^2)*(-Sin(q))-e*C