哈工大机械原理大作业凸轮机构设计题
- 格式:docx
- 大小:42.28 KB
- 文档页数:12
哈工大机械原理大作业凸轮机构设计题
标准化管理部编码-[99968T-6889628-J68568-1689N]
H a r b i n I n s t i t u t e o f T e c h n o l o g y
机械原理大作业二
课程名称: 机械原理 设计题目: 凸轮机构设计
一.设计题目
设计直动从动件盘形凸轮机构,
1.运动规律(等加速等减速运动) 推程 0450≤≤ϕ 推程 009045≤≤ϕ
2.运动规律(等加速等减速运动) 回程 00200160≤≤ϕ 回程 00240200≤≤ϕ
三.推杆位移、速度、加速度线图及凸轮s d ds
-φ
线图 采用VB 编程,其源程序及图像如下: 1.位移:
Private Sub Command1_Click() = True '开启计时器 End Sub
Private Sub Timer1_Timer() Static i As Single
Dim s As Single, q As Single 'i 作为静态变量,控制流程;s 代表位移;q 代表角度 = 0 = 0 i = i +
If i <= 45 Then
q = i
s = 240 * (q / 90) ^ 2
Step(q, -s), vbRed
ElseIf i >= 45 And i <= 90 Then
q = i
s = 120 - 240 * ((90 - q) ^ 2) / (90 ^ 2)
Step(q, -s), vbGreen
ElseIf i >= 90 And i <= 150 Then
q = i
s = 120
Step(q, -s), vbBlack
ElseIf i >= 150 And i <= 190 Then
q = i
s = 120 - 240 * (q - 150) ^ 2 / 6400
Step(q, -s), vbBlue
ElseIf i >= 190 And i <= 230 Then
q = i
s = 240 * (230 - q) ^ 2 / 6400
Step(q, -s), vbRed
ElseIf i >= 230 And i <= 360 Then
q = i
s = 0
Step(q, -s), vbBlack
Else
End If
End Sub
2.速度
Private Sub Command2_Click()
= True '开启计时器
End Sub
Private Sub Timer2_Timer()
Static i As Single
Dim v As Single, q As Single, w As Single 'i为静态变量,控制流程;q代表角度;w代表角速度,此处被赋予50
= 0
= 0
w = 50
i = i +
If i <= 45 Then
q = i
v = 480 * w * q / 8100
Step(q, -v), vbRed
ElseIf i >= 45 And i <= 90 Then
q = i
v = 480 * w * (90 - q) / 8100
Step(q, -v), vbBlack
ElseIf i >= 90 And i <= 150 Then
q = i
v = 0
Step(q, -v), vbGreen
ElseIf i >= 150 And i <= 190 Then
q = i
v = -480 * w * (q - 150) / 6400
Step(q, -v), vbBlue
ElseIf i >= 190 And i <= 230 Then
q = i
v = -480 * w * (230 - q) / 6400
Step(q, -v), vbRed
ElseIf i >= 230 And i <= 360 Then
q = i
v = 0
Step(q, -v), vbBlack
Else
End If
End Sub
3.加速度
Private Sub Command3_Click()
= True '开启计时器
End Sub
Private Sub Timer3_Timer()
Static i As Single
Dim a As Single, w As Single, q As Single 'i为静态变量,控制流程;a代表加速度;q代表角度;w代表角速度
w = 50
= 0
= 0
i = i +
If i <= 45 Then
q = i
a = 480 * w ^ 2 / 8100
Step(q, -a), vbRed
ElseIf i >= 45 And i <= 90 Then
q = i
a = -480 * w ^ 2 / 8100
Step(q, -a), vbBlack
ElseIf i >= 90 And i <= 150 Then
q = i
a = 0
Step(q, -a), vbGreen