好文档 - 专业文书写作范文服务资料分享网站

哈工大机械原理大作业凸轮机构设计题

天下 分享 时间: 加入收藏 我要投稿 点赞

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代表角

哈工大机械原理大作业凸轮机构设计题

HarbinInstituteofTechnology机械原理大作业二课程名称:机械原理设计题目:凸轮机构设计一.设计题目设计直动从动件盘形凸轮机构,凸轮机构原始参数序升程升程升程运号(mm)运动动规律角(o)2212090等加等减速升程许回程用压力运动角(o
推荐度:
点击下载文档文档为doc格式
5wvgt7tgno8n6j4879hw6x2111f20r00bf6
领取福利

微信扫码领取福利

微信扫码分享