哈工大機械原理大作業(yè)凸輪機構設計題

=0哈工大機械原理大作業(yè)凸輪機構設計題HarbinInstituteofTechnology作業(yè)二 序序回程遠休近休號許用止角止角角(o)(o)壓力(o)(o)等加等減速0等減等加速70701201.運動規(guī)律(等加速等減速運動)推程0450推程4509002.運動規(guī)律(等加速等減速運動)回程16002000回程20002400、加速度線圖及凸輪d0PrivateSubCommand1_Click()=True'開啟計時器EndSubPrivateSubTimer1_Timer()StaticiAsSingle哈工大機械原理大作業(yè)凸輪機構設計題=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哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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)哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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在軸心公共許用區(qū)內取軸心位置，能夠滿足壓力角要求，現取直線紅線與直線綠線的交點為軸0五．繪制凸輪理論廓線和實際廓線1.繪制凸輪理論輪廓PrivateSubCommand6_Click()'開啟計時器；建立坐標系=TrueEndSubes哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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哈工大機械原理大作業(yè)凸輪機構設計題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)哈工大機械原理大作業(yè)凸輪機構設計題p=Sqr(x^2+y^2)Step(q,-p),vbRedElseEndIfEndSub可以得到滾子半徑為廓線PrivateSubCommand8_Click()=TrueEndSub坐標StaticiAsSingleaAsSingle,bAsSingle,mAsSingle,nAsSinglerr=e==i=i+Ifi<=/4Thenq=i哈工大機械原理大作業(yè)凸輪機構設計題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è)凸輪機構設計題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-