1、哈工大机械原理大作业 凸轮机构设计 题Harbin Institute of Technology机械原理大作业二课程名称: 机械原理 设计题目: 凸轮机构设计 一设计题目设计直动从动件盘形凸轮机构,凸轮机构原始参数序号升程(mm)升程运动角(o)升程运动规律升程许用压力角(o)回程运动角(o)回程运动规律回程许用压力角(o)远休止角(o)近休止角(o)2212090等加等减速4080等减等加速7070120二 凸轮推杆运动规律1.运动规律(等加速等减速运动) 推程 推程 2.运动规律(等加速等减速运动) 回程 回程 三推杆位移、速度、加速度线图及凸轮线图采用VB编程,其源程序及图像如下:1.
2、位移:Private Sub Command1_Click()Timer1.Enabled = True 开启计时器End SubPrivate Sub Timer1_Timer()Static i As SingleDim s As Single, q As Single i作为静态变量,控制流程;s代表位移;q代表角度 Picture1.CurrentX = 0 Picture1.CurrentY = 0 i = i + 0.1 If i = 45 And i = 90 And i = 150 And i = 190 And i = 230 And i = 360 Then q = i s
3、 = 0 Picture1.PSet Step(q, -s), vbBlack Else End IfEnd Sub2.速度Private Sub Command2_Click()Timer2.Enabled = True 开启计时器End SubPrivate Sub Timer2_Timer()Static i As SingleDim v As Single, q As Single, w As Single i为静态变量,控制流程;q代表角度;w代表角速度,此处被赋予50Picture1.CurrentX = 0 Picture1.CurrentY = 0w = 50 i = i +
4、0.1 If i = 45 And i = 90 And i = 150 And i = 190 And i = 230 And i = 360 Then q = i v = 0 Picture1.PSet Step(q, -v), vbBlackElse End IfEnd Sub3.加速度Private Sub Command3_Click()Timer3.Enabled = True 开启计时器End SubPrivate Sub Timer3_Timer()Static i As SingleDim a As Single, w As Single, q As Single i为静态变
5、量,控制流程;a代表加速度;q代表角度;w代表角速度w = 50 Picture1.CurrentX = 0 Picture1.CurrentY = 0i = i + 0.1 If i = 45 And i = 90 And i = 150 And i = 190 And i = 230 And i = 360 Then q = i a = 0 Picture1.PSet Step(q, -a), vbBlack Else End IfEnd Sub4.ds/dq-dsPrivate Sub Command4_Click()Timer4.Enabled = True 开启计时器;建立坐标系Pi
6、cture1.Scale (-400, -400)-(400, 400)End SubPrivate Sub Timer4_Timer()Static i As SingleDim x As Single, s As Single, q As Single, scaley As Single, t As Single i为静态变量,控制流程;x代表位移;s代表纵坐标ds/dq;q代表角度Picture1.CurrentX = 0Picture1.CurrentY = 0scaley = 1t = 3.14 / 180 i = i + 0.1 If i = 45 And i = 90 And i
7、 = 150 And i = 190 And i = 230 And i = 360 Then q = i * t x = 0 s = 0 Picture1.PSet Step(x, -s), vbRed Else End IfEnd Sub四确定凸轮基圆半径和偏距1. 求切点转角在图中,右侧曲线为升程阶段的类速度-位移图,作直线Dtdt与其相切,且位移轴正方向呈夹角1=300,则切点处的斜率与直线Dtdt的斜率相等,因为kDtdt=tan600,右侧曲线斜率可以表示为:q;q=tan600继而求出切点坐标(337.272,292.084)。同理可求出另一切点(-89.766,16.347)2
8、.确定直线方程y-292.084=1.732*(x-337.272)y-16.347=-0.364*(x+89.766)3.绘图确定基圆半径和偏距程序如下:Private Sub Command5_Click() 开启计时器;画出ds/dq-s图的切线Timer5.Enabled = True Picture1.Scale (-400, -400)-(400, 400) Picture1.Line (-50, 378.671)-(200, -54.329), vbRed Picture1.Line (-200, -65.683)-(40, -481.363), vbBlue Picture1.
9、Line (-200, -209.127)-(200, -63.527), vbBlack Picture1.Line (-200, -56.472)-(200, 89.128), vbGreenEnd SubPrivate Sub Timer5_Timer() i为静态变量,控制流程;x代表位移;s代表纵坐标ds/dq;q代表角度;scaley是图形比例系数;t为角度,弧度转化系数Static i As SingleDim x As Single, s As Single, q As Single, scaley As Single, t As SinglePicture1.CurrentX
10、 = 0Picture1.CurrentY = 0scaley = 1t = 3.14 / 180 i = i + 0.1 If i = 45 And i = 90 And i = 150 And i = 190 And i = 230 And i = 360 Then q = i * t x = 0 s = 0 Picture1.PSet Step(x, -s), vbRed Else End IfEnd Sub在轴心公共许用区内取轴心位置,能够满足压力角要求,现取直线红线 与直线绿线的交点为轴心位置,通过解方程组:x=131.557 y=-64.214 r0=146.392 偏距e=131
11、.557 s0=64.013五绘制凸轮理论廓线和实际廓线1.绘制凸轮理论轮廓Private Sub Command6_Click() 开启计时器;建立坐标系Picture1.Scale (-500, -500)-(500, 500) Timer6.Enabled = True End SubPrivate Sub Timer6_Timer() i为静态变量,控制流程;e为偏距;s为基圆半径平方减去偏距平方再开方所得;q为角度;x为横坐标;y为纵坐标Static i As SingleDim e As Single, q As Single, s As Single, x As Single,
12、y As Singlee = 131.557 s = 64.213Picture1.CurrentX = 12.764 Picture1.CurrentY = -95.125 i = i + 0.001 If i = 3.14 / 4 And i = 3.14 / 2 And i = 5 * 3.14 / 6 And i = 19 / 18 * 3.14 And i = 23 / 18 * 3.14 And i = 2 * 3.14 Then q = i x = s * Cos(q) - e * Sin(q) y = s * Sin(q) + e * Cos(q) Picture1.PSet
13、Step(x, -y), vbRed Else End If End Sub2.确定滚子半径并绘制曲率半径图Private Sub Command7_Click() 开启计时器,建立坐标系Timer7.Enabled = TruePicture1.Scale (-10, -500)-(10, 10)End SubPrivate Sub Timer7_Timer() i为静态变量,控制流程;x代表dx/dq;y代表dy/dq;p代表曲率;e为偏距;s为基圆半径平方减去偏距平方再开方所得Static i As SingleDim s As Single, q As Single, x As Sin
14、gle, y As Single, p As Singles = 64.213 e = 131.557 Picture1.CurrentX = 0 Picture1.CurrentY = -Sqr(e 2 + s 2) i = i + 0.01 If i = 3.14 / 4 And i = 3.14 / 2 And i = 5 / 6 * 3.14 And i = 19 / 18 * 3.14 And i = 23 / 18 * 3.14 And i = 2 * 3.14 Then q = i x = s * (-Sin(q) - e * Cos(q) y = s * Cos(q) - e * Sin(q) p = Sqr(x 2 + y 2) Picture1.PSet Step(q, -p), vbRed Else End IfEnd Sub其中曲率最小值为126.026mm 可以得到滚子半径为63.013mm3.绘制实际轮廓线Private Sub Command8_Click()Picture1.Scale
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1