1、70110二、 推杆升程，回程运动方程1. 推杆升程方程（式中）2. 推杆回程方程（式中其中，。并且取=1三、 推杆的位移、速度和加速度图像（1）推杆位移图 图 2（2）推杆速度图 图 3 （3）推杆加速度图 图 4三、 确定凸轮基圆半径和偏距（1）凸轮机构的线图 图 5（2）确定凸轮的基圆半径r0和偏距e理论依据 设以从动件的位移s为纵坐标（相当于从动件运动导路），以类速度为横坐标。当给定一系列的凸轮转角，则根据已知的运动规律，可以求得s和的值，从而作出曲线。由于题目为左偏置凸轮机构，故推程在s轴左边，回程在s轴右边。分别再作出升程压力角对应的极限直线和回程压力角对应的极限直线，有图像可得偏
2、距e和s0的取值范围。从中选取最合理的偏距，从而得到基圆半径r0。r0和e取值 综合考虑取偏距e=50mm，s0=100mm。故可得到基圆半径r0=111.80mm。用matlab进行编程时选取e=50.54mm，r0=101.09mm四、滚子半径rr的选择（1）理论依据 为保证凸轮正常工作，其工作轮廓线曲率半径a、理论轮廓线和滚子rr半径三者应满足: 只有当rr时， a0,这时可以作出凸轮的工作轮廓线。综上所述，滚子半径rr不宜过大。但因为滚子装在销轴上，故亦不宜过小。一般推荐：式中，为凸轮理论轮廓外凸部分的最小曲率半径；=35mm。（2）滚子半径的取值 由可求得在极坐标下曲线曲率半径的表达
3、式：用VB编程求得理论轮廓曲线上最小的曲率半径为=78.56mm。故综合考虑取 rr=20mm。五、绘制理论轮廓线 图 6六、绘制实际轮廓线 图7附录1：VB程序界面 该程序有良好的人机交互界面,可以计算表中列出的所有凸轮参数值,只需要选择运动规律并输入值即可完成运算和绘图,易于更改参数,从而观察不同参数对凸轮轮廓的影响。对于偏距和基圆半径的确定，采用有限搜寻法，画出了偏距和基圆半径的取值区域，可根据不同环境下选择参数。最小曲率半径的计算用到了高等代数的弧微分知识，同样用搜寻法找出最小曲率半径的位置。根据曲率半径即所应用的场合确定棍子半径，进而可以画出凸轮实际轮廓线和滚子运动的模拟图。附录2：
4、V B源程序（1）窗体部分Private Sub cmdCancle_Click（） Unload MeEnd SubPrivate Sub cmdLL_Click（） If tetR0.Text = Then MsgBox 请输入偏距e和s0！ Exit Sub End If Call Module3.LframePrivate Sub cmdOk_Click（） Dim i As Long pi = 3.1415936 h = Val（tetH.Text） w = Val（tetW.Text） a1 = Val（tetA1.Text） * pi / 180 a0 = Val（tetA0.T
5、ext） * pi / 180 b1 = Val（tetB1.Text） * pi / 180 b0 = Val（tetB0.Text） * pi / 180 s1 = Val（tetS1.Text） * pi / 180 s2 = Val（tetS2.Text） * pi / 180 If h = 0 Or w = 0 Then你输入的参数有误，请重新输入！ If Val（tetA1.Text） + Val（tetB1.Text） + Val（tetS1.Text） + Val（tetS2.Text） 360 Then你输入的角度值不正确，请重新输入！ For i = 0 To 3600 M
6、odule1.f = i * pi / 1800 Call Module1.action SS（i） = Module1.S DDsf（i） = Module1.Dsf DDDDsf（i） = Module1.DDDsf VV（i） = Module1.V AA（i） = Module1.A Next i Call Module2.PaintPrivate Sub cmdOk1_Click（） e = Val（tetE.Text） s0 = Val（tetS0.Text） r0 = Sqr（e 2 + s0 2） tetR0.Text = r0 For i = 0 To 10 * （Val（F
7、orm1.tetA1.Text） If Tan（a0） （DDsf（i） - e） / （s0 + SS（i） Then您输入的偏距e和s0不满足升程压力角要求，请重新输入！ For i = 10 * （Val（Form1.tetA1） + Val（Form1.tetS1） To 10 * （Val（Form1.tetA1） + Val（Form1.tetS1） + Val（Form1.tetB1） If Tan（b0） （Module4.pm - 3） Then您输入的滚子半径不满足要求，一般推荐 rrmin-，=35mm。 Call Module5.SFramePrivate Sub Fo
8、rm_Load（） 位移图像定义 Form1.picS.Scale （-400, 130）-（4000, -30） Form1.picS.Line （0, -50）-（0, 150） Form1.picS.Line （-300, 0）-（3900, 0） Form1.picS.Line （-100, 120）-（0, 130） Form1.picS.Line -（100, 120） Form1.picS.Line （3800, -5）-（3900, 0） Form1.picS.Line -（3800, 5） Form1.picS.DrawStyle = 2 For i = 450 To 360
9、0 Step 450 Form1.picS.Line （i, 0）-（i, 100） Form1.picS.CurrentX = i - 350: Form1.picS.CurrentY = -10: Form1.picS.Print i / 10 For i = 20 To 100 Step 20 Form1.picS.Line （0, i）-（3600, i） Form1.picS.CurrentX = -450: Form1.picS.CurrentY = i: Form1.picS.Print i速度图像定义 Form1.picV.Scale （-400, 180）-（4000, -1
10、80） Form1.picV.Line （0, -170）-（0, 180） Form1.picV.Line （-300, 0）-（3900, 0） Form1.picV.Line （-100, 160）-（0, 180） Form1.picV.Line -（100, 160） Form1.picV.Line （3800, -10）-（3900, 0） Form1.picV.Line -（3800, 10） Form1.picV.DrawStyle = 2 Form1.picV.Line （i, -140）-（i, 140） Form1.picV.CurrentX = i - 450: For
11、m1.picV.CurrentY = -10: Form1.picV.Print i / 10 For i = -140 To 140 Step 40 If i -20 Then Form1.picV.Line （0, i）-（3600, i） Form1.picV.CurrentX = -450: Form1.picV.CurrentY = i: Form1.picV.Print i加速度图像定义 Form1.picA.Scale （-400, 400）-（4000, -400） Form1.picA.Line （0, -390）-（0, 400） Form1.picA.Line （-300
12、, 0）-（3900, 0） Form1.picA.Line （-100, 370）-（0, 400） Form1.picA.Line -（100, 370） Form1.picA.Line （3800, -20）-（3900, 0） Form1.picA.Line -（3800, 20） Form1.picA.DrawStyle = 2 Form1.picA.Line （i, -320）-（i, 320） Form1.picA.CurrentX = i - 450: Form1.picA.CurrentY = -10: Form1.picA.Print i / 10 For i = -320
13、 To 320 Step 80 Form1.picA.Line （0, i）-（3600, i） Form1.picA.CurrentX = -450: Form1.picA.CurrentY = i: Form1.picA.Print i类速度图像定义 Form1.picDsf.Scale （-200, 150）-（200, -200） Form1.picDsf.Line （0, -200）-（0, 150） Form1.picDsf.Line （-200, 0）-（200, 0） Form1.picDsf.Line （-8, 130）-（0, 150） Form1.picDsf.Line
14、-（8, 130） Form1.picDsf.Line （190, -10）-（200, 0） Form1.picDsf.Line -（190, 10） Form1.picDsf.DrawStyle = 2 For i = -150 To 150 Step 50 Form1.picDsf.Line （i, -200）-（i, 100） Form1.picDsf.CurrentX = i - 30: Form1.picDsf.CurrentY = -5: Form1.picDsf.Print i For i = -200 To 100 Step 50 0 Then Form1.picDsf.Li
15、ne （-150, i）-（150, i） Form1.picDsf.CurrentX = -40: Form1.picDsf.CurrentY = i:凸轮轮廓图像定义 Form1.picT.Scale （-200, 200）-（250, -250） Form1.picT.Line （0, -240）-（0, 200） Form1.picT.Line （-200, 0）-（250, 0） Form1.picT.Line （-10, 190）-（0, 200） Form1.picT.Line -（10, 190） Form1.picT.Line （240, -8）-（250, 0） Form1
16、.picT.Line -（240, 8） Form1.picT.DrawStyle = 2 For i = -180 To 240 Step 60 Form1.picT.Line （i, -240）-（i, 180） Form1.picT.CurrentX = i - 20: Form1.picT.CurrentY = -5: Form1.picT.Print i For i = -240 To 180 Step 60 Form1.picT.Line （-180, i）-（240, i） Form1.picT.CurrentX = -50: Form1.picT.CurrentY = i +
17、20:（2）运动分析模块Option ExplicitPublic pi As DoublePublic a1 As Double 升程运动角Public a0 As Double 升程许用压力角Public h As Double 行程Public b1 As Double 回程运动角Public b0 As Double 回程许用压力角Public s1 As Double 远休止角Public s2 As Double 近休止角Public f As Double 转角Public w As Double 角速度Public S As Double 位移Public Dsf As Dou
18、ble 类速度Public DDDsf As Double 类速度一阶导数Public V As Double 速度Public A As Double 加速度Public SS（3600） As Double 每点的位移Public DDsf（3600） As Double 每点的类速度Public DDDDsf（3600） As Double 每点的类速度的一阶导数Public VV（3600） As Double 每点的速度Public AA（3600） As Double 每点的加速度Public Sub action（） pi = 3.1415926 If f = a1 / 2 An
19、d f S = h - （2 * h / a1 2） * （a1 - f） 2 Dsf = （4 * h / a1 2） * （a1 - f） DDDsf = -4 * h / a1 2 V = （4 * h * w / a1 2） * （a1 - f） A = -4 * h * w 2 / a1 2 End If 余弦加速度 S = h * （1 - Cos（pi * f / a1） / 2 Dsf = （pi * h / （2 * a1） * Sin（pi * f / a1） DDDsf = （pi 2 * h / （2 * a1 2） * Sin（pi * f / a1） V = （pi
20、 * h * w / （2 * a1） * Sin（pi * f / a1） A = （pi 2 * h * w 2 / （2 * a1 2） * Cos（pi * f / a1）正弦加速度 S = h * （f / a1） - （1 / （2 * pi） * Sin（2 * pi * f / a1） Dsf = h / a1 - （h / a1） * Cos（2 * pi * f / a1） DDDsf = （2 * pi * h / a1 2） * Sin（2 * pi * f / a1） V = （h * w / a1） * （1 - Cos（2 * pi * f / a1） A = （
21、2 * pi * h * w 2 / a1 2） * Sin（2 * pi * f / a1）Case 3-4-5多项式 T = f / a1 S = h * （10 * T 3 - 15 * T 4 + 6 * T 5） Dsf = 30 * h * T 2 / a1 - 60 * h * T 3 / a1 + 30 * h * T 4 / a1 DDDsf = 60 * h * T / （a1 2） - 180 * h * T 2 / （a1 2） + 120 * h * T 3 / （a1 2） V = （30 * h * w * T 2 / a1） * （1 - 2 * T + T 2
22、） A = （60 * h * w 2 * T / （a1 2） * （1 - 3 * T + 2 * T 2） End Select= a1 And f = a1 + s1 Then S = h Dsf = 0 DDDsf = 0 V = 0 A = 0= a1 + s1 And f = a1 + s1 + b1 / 2 Then S = h - （2 * h / b1 2） * （f - （a1 + s1） 2 Dsf = -（4 * h / b1 2） * （f - （a1 + s1） DDDsf = -4 * h / b1 2 V = -（4 * h * w / b1 2） * （f
23、- （a1 + s1） A = -4 * h * w 2 / b1 2= a1 + s1 + b1 / 2 And f S = （2 * h / b1 2） * （a1 + s1 + b1） - f） 2 Dsf = -（4 * h / b1 2） * （a1 + s1 + b1） - f） DDDsf = 4 * h / b1 2 V = -（4 * h * w / b1 2） * （a1 + s1 + b1） - f） A = 4 * h * w 2 / b1 2 S = h * （1 + Cos（pi * （f - （a1 + s1） / b1） / 2 Dsf = -（pi * h /
24、 （2 * b1） * Sin（pi * （f - （a1 + s1） / b1） DDDsf = -（pi 2 * h / （2 * b1 2） * Cos（pi * （f - （a1 + s1） / b1） V = -（pi * h * w / （2 * a1） * Sin（pi * （f - （a1 + s1） / b1） A = -（pi 2 * h * w 2 / （2 * b1 2） * Cos（pi * （f - （a1 + s1） / a1） S = h * （1 - （f - （a1 + s1） / b1） + （1 / （2 * pi） * Sin（2 * pi * （f - （a1 + s1） / b1） Dsf = -h /
