- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Harbin Institute of Technology
大作业设计说明书
课程名称: 机械原理
设计题目: 凸轮机构
院 系: 机电工程学院
班 级: 1108101
设 计 者: 马舜
学 号: 1110810115
指导教师: 陈明 丁刚
设计时间: 2013.06.12
哈尔滨工业大学
设计题目
图 1
序号 升程mm 升程运动角() 升程运动规律 升程许用压力角() 回程运动角() 回程运动规律 回程许用压力角() 远休止角() 近休止角() 16 100 90 正弦加速度 30 80 3-4-5多项式 70 110 80 推杆升程,回程运动方程
推杆升程方程(式中)
推杆回程方程(式中)
其中,,,。
并且取=1
推杆的位移、速度和加速度图像
(1)推杆位移图
图 2
(2)推杆速度图
图 3
(3)推杆加速度图
图 4
确定凸轮基圆半径和偏距
(1)凸轮机构的线图
图 5
(2)确定凸轮的基圆半径r0和偏距e
①理论依据
设以从动件的位移s为纵坐标(相当于从动件运动导路),以类速度为横坐标。当给定一系列的凸轮转角,则根据已知的运动规律,可以求得s和的值,从而作出曲线。由于题目为左偏置凸轮机构,故推程在s轴左边,回程在s轴右边。分别再作出升程压力角对应的极限直线和回程压力角对应的极限直线,有图像可得偏距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不宜过大。但因为滚子装在销轴上,故亦不宜过小。一般推荐:
式中,为凸轮理论轮廓外凸部分的最小曲率半径;=3~5mm。
(2)滚子半径的取值
由可求得在极坐标下曲线曲率半径的表达式:
用VB编程求得理论轮廓曲线上最小的曲率半径为=78.56mm。
故综合考虑取 rr=20mm。
五、绘制理论轮廓线
图 6
六、绘制实际轮廓线
图7
附录1:VB程序界面
该程序有良好的人机交互界面,可以计算表中列出的所有凸轮参数值,只需要选择运动规律并输入值即可完成运算和绘图,易于更改参数,从而观察不同参数对凸轮轮廓的影响。
对于偏距和基圆半径的确定,采用有限搜寻法,画出了偏距和基圆半径的取值区域,可根据不同环境下选择参数。最小曲率半径的计算用到了高等代数的弧微分知识,同样用搜寻法找出最小曲率半径的位置。根据曲率半径即所应用的场合确定棍子半径,进而可以画出凸轮实际轮廓线和滚子运动的模拟图。
附录2:V B源程序
(1)窗体部分
Private Sub cmdCancle_Click()
Unload Me
End Sub
Private Sub cmdLL_Click()
If tetR0.Text = Then
MsgBox 请输入偏距e和s0!
Exit Sub
End If
Call Module3.Lframe
End Sub
Private 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(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 Su
文档评论(0)