Harbin Institute of Technology
机械原理大作业二
课程名称: 机械原理 设计题目: 凸轮机构设计
一.设计题目
设计直动从动件盘形凸轮机构, 凸轮机构原始参数 序升程升程升程运 号 (mm) 运动动规律 角(o) 22 120 90 等加等减速 升程许回程用压力运动角(o) 角(o) 回程运 动规律 40 80 等减等加速 回程许用压力角(o) 70 远休近休止角 止角 (o) (o) 70 120 二. 凸轮推杆运动规律 1.运动规律(等加速等减速运动) 推程 0???450 推程 450???900
2.运动规律(等加速等减速运动) 回程 1600???2000 回程 2000???2400
ds?sd?三.推杆位移、速度、加速度线图及凸轮采用VB编程,其源程序及图像如下: 1.位移:
线图
Private Sub Command1_Click() Timer1.Enabled = True '开启计时器 End Sub
Private Sub Timer1_Timer() Static i As Single
Dim s As Single, q As Single 'i作为静态变量,控制流程;s代表位移;q代表角度
Picture1.CurrentX = 0 Picture1.CurrentY = 0 i = i + 0.1 If i <= 45 Then q = i
s = 240 * (q / 90) ^ 2
Picture1.PSet Step(q, -s), vbRed ElseIf i >= 45 And i <= 90 Then q = i
s = 120 - 240 * ((90 - q) ^ 2) / (90 ^ 2) Picture1.PSet Step(q, -s), vbGreen ElseIf i >= 90 And i <= 150 Then q = i s = 120
Picture1.PSet Step(q, -s), vbBlack ElseIf i >= 150 And i <= 190 Then q = i
s = 120 - 240 * (q - 150) ^ 2 / 6400 Picture1.PSet Step(q, -s), vbBlue ElseIf i >= 190 And i <= 230 Then q = i
s = 240 * (230 - q) ^ 2 / 6400 Picture1.PSet Step(q, -s), vbRed ElseIf i >= 230 And i <= 360 Then q = i
s = 0
Picture1.PSet Step(q, -s), vbBlack Else End If End Sub
2.速度
Private Sub Command2_Click() Timer2.Enabled = True '开启计时器 End Sub
Private Sub Timer2_Timer() Static i As Single
Dim v As Single, q As Single, w As Single 'i为静态变量,控制流程;度;w代表角速度,此处被赋予50 Picture1.CurrentX = 0 Picture1.CurrentY = 0 w = 50 i = i + 0.1 If i <= 45 Then q = i
v = 480 * w * q / 8100
Picture1.PSet Step(q, -v), vbRed ElseIf i >= 45 And i <= 90 Then q = i
v = 480 * w * (90 - q) / 8100 Picture1.PSet Step(q, -v), vbBlack
q代表角