机械原理大作业-凸轮机构

机械原理大作业-凸轮机构

ID:6790035

大小:277.50 KB

页数:17页

时间:2018-01-25

机械原理大作业-凸轮机构_第1页
机械原理大作业-凸轮机构_第2页
机械原理大作业-凸轮机构_第3页
机械原理大作业-凸轮机构_第4页
机械原理大作业-凸轮机构_第5页
资源描述:

《机械原理大作业-凸轮机构》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、HarbinInstituteofTechnology大作业设计说明书课程名称:机械原理设计题目:凸轮机构院系:机电工程学院班级:设计者:马舜学号:指导教师:陈明丁刚设计时间:2013.06.12哈尔滨工业大学一、设计题目图1序号升程mm升程运动角()升程运动规律升程许用压力角()回程运动角()回程运动规律回程许用压力角()远休止角()近休止角()1610090正弦加速度30803-4-5多项式7011080二、推杆升程,回程运动方程1.推杆升程方程(式中)2.推杆回程方程(式中)其中,,,。并且取=1一、推杆的位移、速度和加速度图像(1)

2、推杆位移图图2(2)推杆速度图图3(3)推杆加速度图图4三、确定凸轮基圆半径和偏距(1)凸轮机构的线图图5(2)确定凸轮的基圆半径r0和偏距e①理论依据设以从动件的位移s为纵坐标(相当于从动件运动导路),以类速度为横坐标。当给定一系列的凸轮转角,则根据已知的运动规律,可以求得s和的值,从而作出曲线。由于题目为左偏置凸轮机构,故推程在s轴左边,回程在s轴右边。分别再作出升程压力角对应的极限直线和回程压力角对应的极限直线,有图像可得偏距e和s0的取值范围。从中选取最合理的偏距,从而得到基圆半径r0。②r0和e取值综合考虑取偏距e=50mm,s0=100mm

3、。故可得到基圆半径r0=111.80mm。用matlab进行编程时选取e=50.54mm,r0=101.09mm四、滚子半径rr的选择(1)理论依据为保证凸轮正常工作,其工作轮廓线曲率半径ρa、理论轮廓线ρ和滚子rr半径三者应满足:只有当ρ>rr时,ρa>0,这时可以作出凸轮的工作轮廓线。综上所述,滚子半径rr不宜过大。但因为滚子装在销轴上,故亦不宜过小。一般推荐:式中,为凸轮理论轮廓外凸部分的最小曲率半径;=3~5mm。(2)滚子半径的取值由可求得在极坐标下曲线曲率半径的表达式:用VB编程求得理论轮廓曲线上最小的曲率半径为=78.56mm。故综合考虑

4、取rr=20mm。五、绘制理论轮廓线图6六、绘制实际轮廓线图7附录1:VB程序界面该程序有良好的人机交互界面,可以计算表中列出的所有凸轮参数值,只需要选择运动规律并输入值即可完成运算和绘图,易于更改参数,从而观察不同参数对凸轮轮廓的影响。对于偏距和基圆半径的确定,采用有限搜寻法,画出了偏距和基圆半径的取值区域,可根据不同环境下选择参数。最小曲率半径的计算用到了高等代数的弧微分知识,同样用搜寻法找出最小曲率半径的位置。根据曲率半径即所应用的场合确定棍子半径,进而可以画出凸轮实际轮廓线和滚子运动的模拟图。附录2:VB源程序(1)窗体部分PrivateSub

5、cmdCancle_Click()UnloadMeEndSubPrivateSubcmdLL_Click()IftetR0.Text=""ThenMsgBox"请输入偏距e和s0!"ExitSubEndIfCallModule3.LframeEndSubPrivateSubcmdOk_Click()DimiAsLongpi=3.h=Val(tetH.Text)w=Val(tetW.Text)a1=Val(tetA1.Text)*pi/180a0=Val(tetA0.Text)*pi/180b1=Val(tetB1.Text)*pi/180b0=Val(

6、tetB0.Text)*pi/180s1=Val(tetS1.Text)*pi/180s2=Val(tetS2.Text)*pi/180Ifh<=0Orw=0ThenMsgBox"你输入的参数有误,请重新输入!"ExitSubEndIfIfVal(tetA1.Text)+Val(tetB1.Text)+Val(tetS1.Text)+Val(tetS2.Text)<>360ThenMsgBox"你输入的角度值不正确,请重新输入!"ExitSubEndIfFori=0To3600Module1.f=i*pi/1800CallModule1.actionS

7、S(i)=Module1.SDDsf(i)=Module1.DsfDDDDsf(i)=Module1.DDDsfVV(i)=Module1.VAA(i)=Module1.ANextiCallModule2.PaintEndSubPrivateSubcmdOk1_Click()DimiAsLonge=Val(tetE.Text)s0=Val(tetS0.Text)r0=Sqr(e^2+s0^2)tetR0.Text=r0Fori=0To10*(Val(Form1.tetA1.Text))IfTan(a0)<(DDsf(i)-e)/(s0+SS(i))Th

8、enMsgBox"您输入的偏距e和s0不满足升程压力角要求,请重新输入!"ExitSubEnd

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。