哈工大机械原理大作业_连杆35.docVIP

Harbin Institute of Technology 机械原理大作业一 课程名称： 机械原理 设计题目： 连杆机构设计 院 系： 机电学院 班 级： 1308102 分 析 者： 学 号： 指导教师： 设计时间： 2015年06月 哈尔滨工业大学 连杆机构运动分析题目以及坐标系的建立 题目中的连杆机构可以简化为图示机构 二、机构的结构分析，组成机构的基本杆组划分 该机构由机架、一个原动件AB和两个II级杆组组成。 有题目分析易知B点的位置、速度和加速度是我们知道的由B点我们可以推导出c点的位移速度加速度从而得到D点的轨迹最终我们可以求得E点的各个参数。 五、计算编程 利用vb软件进行编程，程序如下： Public q As Single Option Explicit Private Sub Command1_Click() Dim yd, xd, yc, xb, yb, a, b, t, q, i As Single q = 0 a1.ScaleWidth = 300 a1.ScaleHeight = -300 a1.ScaleLeft = -150 a1.ScaleTop = 250 a1.Line (-300, 0)-(300, 0) a1.Line (0, -300)-(0, 300) For i = -300 To 300 If i Mod 50 = 0 Then a1.Line (-5, i)-(5, i) a1.Line (i, -5)-(i, 5) a1.CurrentX = 0 a1.CurrentY = i a1.Print i a1.CurrentX = i a1.CurrentY = 0 a1.Print i End If Next For t = 0 To 200 q = q + t / 1000 xb = 100 * Sin(q) yb = -100 * Cos(q) xd = 3 / 2 * xb yd = yb + Sqr(40000 - xb * xb) / 2 a1.Line (a, b)-(xd, yd) a = xd b = yd Next End Sub Private Sub Command2_Click() Dim yd, xd, yc, xb, yb, a, b, t, q, i, ve, vc, ye, ye0, yc0, ve0, vc0, ae, ac, ae0, ac0, x1 As Single a1.ScaleWidth = 10 a1.ScaleHeight = -100 a1.ScaleLeft = 150 a1.ScaleTop = 50 ve0 = 0 vc0 = 0 ye = 200 x1 = 151 For i = 1 To 15 x1 = 3.14159 / 6 + x1 a1.Line (x1, 1)-(x1, -1) a1.CurrentX = x1 - 3.14159 / 12 a1.CurrentY = -2 a1.Print i * 30 Next For t = 0 To 3000 q = q + t / 10000 xb = 100 * Sin(q) yb = -100 * Cos(q) xd = (3 / 2) * xb yd = yb + Sqr(40000 - xb * xb) / 2 ye = yd + Sqr(40000 - xd * xd) yc = yb - Sqr(40000 - xb * xb) ve = (ye - ye0) vc = (yc - yc0) ae = ve - ve0 ac = ae - ae0 a1.Line (151, -100)-(151, 100) a1.Line (t - 50, 0)-(t, 0) If t Mod 5 = 0 Then a1.Line (150.9, t)-(151.1, t) a1.CurrentX = 151 a1.CurrentY = t a1.Print t * 55 a1.CurrentX = 151 a1.CurrentY = -t a1.Print -t * 55 End If a1.CurrentX = 151 a1.CurrentY = 0 a1.Line (q - 0.2, vc0)-(q, vc) a1.Line (q - 0.2, ve0)-(q, ve) yc0 = yc ye0 = ye ve0 = ve vc0 = vc ae0 = ae ac0 = ac