《机械原理大作业凸轮机构》由会员分享，可在线阅读，更多相关《机械原理大作业凸轮机构（17页珍藏版）》请在金锄头文库上搜索。
1、Harbin Institute of Technology大作业设计说明书课程名称： 机械原理 设计题目： 凸轮机构 院 系： 机电工程学院 班 级： 1108101 设 计 者： 马舜 学 号： 1110810115 指导教师： 陈明 丁刚 设计时间： 2013.06.12 哈尔滨工业大学一、 设计题目图 1序号升程mm升程运动角()升程运动规律升程许用压力角（）回程运动角（）回程运动规律回程许用压力角（）远休止角（）近休止角（）1610090正弦加速度30803-4-5多项式7011080二、 推杆升程，回程运动方程1. 推杆升程方程（式中）2. 推杆回程方程（式中）其中，。并且取=1三
2、、 推杆的位移、速度和加速度图像（1）推杆位移图 图 2（2）推杆速度图 图 3 （3）推杆加速度图 图 4三、 确定凸轮基圆半径和偏距（1）凸轮机构的线图图 5（2）确定凸轮的基圆半径r0和偏距e理论依据设以从动件的位移s为纵坐标（相当于从动件运动导路），以类速度为横坐标。当给定一系列的凸轮转角，则根据已知的运动规律，可以求得s和的值，从而作出曲线。由于题目为左偏置凸轮机构，故推程在s轴左边，回程在s轴右边。分别再作出升程压力角对应的极限直线和回程压力角对应的极限直线，有图像可得偏距e和s0的取值范围。从中选取最合理的偏距，从而得到基圆半径r0。r0和e取值综合考虑取偏距e=50mm，s0=
3、100mm。故可得到基圆半径r0=111.80mm。用matlab进行编程时选取e=50.54mm，r0=101.09mm四、滚子半径rr的选择（1）理论依据为保证凸轮正常工作，其工作轮廓线曲率半径a、理论轮廓线和滚子rr半径三者应满足: 只有当rr时，a0,这时可以作出凸轮的工作轮廓线。综上所述，滚子半径rr不宜过大。但因为滚子装在销轴上，故亦不宜过小。一般推荐：式中，为凸轮理论轮廓外凸部分的最小曲率半径；=35mm。（2）滚子半径的取值由可求得在极坐标下曲线曲率半径的表达式：用VB编程求得理论轮廓曲线上最小的曲率半径为=78.56mm。故综合考虑取 rr=20mm。五、绘制理论轮廓线图 6
4、六、绘制实际轮廓线 图7附录1：VB程序界面该程序有良好的人机交互界面,可以计算表中列出的所有凸轮参数值,只需要选择运动规律并输入值即可完成运算和绘图,易于更改参数,从而观察不同参数对凸轮轮廓的影响。对于偏距和基圆半径的确定，采用有限搜寻法，画出了偏距和基圆半径的取值区域，可根据不同环境下选择参数。最小曲率半径的计算用到了高等代数的弧微分知识，同样用搜寻法找出最小曲率半径的位置。根据曲率半径即所应用的场合确定棍子半径，进而可以画出凸轮实际轮廓线和滚子运动的模拟图。附录2：VB源程序（1）窗体部分Private Sub cmdCancle_Click() Unload MeEnd SubPriv
5、ate Sub cmdLL_Click() If tetR0.Text = Then MsgBox 请输入偏距e和s0！ Exit Sub End If Call Module3.LframeEnd SubPrivate 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.Text) * pi / 180 b1 = Val(tetB1.Text) * pi / 180 b0 = Val
6、(tetB0.Text) * pi / 180 s1 = Val(tetS1.Text) * pi / 180 s2 = Val(tetS2.Text) * pi / 180 If h = 0 Or w = 0 Then MsgBox 你输入的参数有误，请重新输入！ Exit Sub End If If Val(tetA1.Text) + Val(tetB1.Text) + Val(tetS1.Text) + Val(tetS2.Text) 360 Then MsgBox 你输入的角度值不正确，请重新输入！ Exit Sub End If For i = 0 To 3600 Module1.f
7、 = 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.PaintEnd SubPrivate Sub cmdOk1_Click() Dim i As Long e = Val(tetE.Text) s0 = Val(tetS0.Text) r0 = Sqr(e 2 + s0 2) tetR0.Text = r0 For i = 0 T
8、o 10 * (Val(Form1.tetA1.Text) If Tan(a0) (DDsf(i) - e) / (s0 + SS(i) Then MsgBox 您输入的偏距e和s0不满足升程压力角要求，请重新输入！ Exit Sub End If Next i 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 MsgBox 您输入的滚子半径不满足要求，
9、一般推荐 rrmin-，=35mm。 Exit Sub End If Call Module5.SFrameEnd SubPrivate Sub Form_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
10、, 0) Form1.picS.Line -(3800, 5) Form1.picS.DrawStyle = 2 For i = 450 To 3600 Step 450 Form1.picS.Line (i, 0)-(i, 100) Form1.picS.CurrentX = i - 350: Form1.picS.CurrentY = -10: Form1.picS.Print i / 10 Next i 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 Next i 速度图像定义
