机械原理大作业一-连杆传动机构分析

机械原理大作业一

课程名称：机械原理

设计题目：连杆机构及其分析

院系：机械设计制造及其自动化

班级：1208104

完成者：郑鹏伟

学号：1120810416

指导教师：林琳刘福利

设计时间：2014.6.3

哈尔滨工业大学

一．运动分析题目

如图

1-14

所示的矿石破碎机，已知各构件尺寸为：

A B B C C D

B E

E F l 100m m ,l 460m m ,l 250m m ,

l 460m m ,l

m,======D D G G x 300m m ,y 500m m ,x 430m m ,y 210m m ,3

δ==

=

==试求构件5的角位移、角

速度、和角加速度。

二．机构结构分析、组成机构的基本杆组划分

1.计算机构的自由度

L H F 3n 2p p 35271=⨯-⨯-=⨯-⨯=

2.建立直角坐标系

以D 为原点建立直角坐标系 :D(0,0) ，A(-300,500)，G(-730,210) 3.对机构进行结构分析：

该机构由一个RR 杆组（原动件AB ）和三个RRR 杆组（BCD 、BEC 、EFG ）组成，各基本杆组运动分析数学模型见下图：

三．计算编程（VB ）：

Private f1(3600) As Double '1杆的转角 Private xB(3600) As Double 'B 点的 x 位移 Private yB(3600) As Double 'B 点的 y 位移 Private vxB(3600) As Double 'B 点的 x 速度 Private vyB(3600) As Double 'B 点的 y 速度 Private axB(3600) As Double 'B 点的 x 加速度 Private ayB(3600) As Double 'B 点的 y 加速度 Private xC(3600) As Double 'C 点的 x 位移 Private yC(3600) As Double 'C 点的 y 位移 Private vxC(3600) As Double 'C 点的 x 速度 Private vyC(3600) As Double 'C 点的 y 速度 Private axC(3600) As Double 'C 点的 x 加速度 Private ayC(3600) As Double 'C 点的 y 加速度 Private xE(3600) As Double 'E 点的 x 位移

Private yE(3600) As Double 'E点的y 位移

Private vxE(3600) As Double 'E点的x 速度

Private vyE(3600) As Double 'E点的y 速度

Private axE(3600) As Double 'E点的x 加速度

Private ayE(3600) As Double 'E点的y 加速度

Private f3(3600) As Double '杆3的转角

Private w3(3600) As Double '杆3的角速度

Private e3(3600) As Double '杆3的角加速度

Private f5(3600) As Double '杆5的转角

Private w5(3600) As Double '杆5的角速度

Private e5(3600) As Double '杆5的角加速度

Private pi As Double

Private pa As Double

Private Sub Command1_Click()

Dim i As Double

Dim j As Long

Dim RR1 As RR

Dim RRR1 As RRR

Dim RRR2 As RRR

Dim RRR3 As RRR

Set RR1 = New RR

Set RRR1 = New RRR

Set RRR2 = New RRR

Set RRR3 = New RRR

pi = 4 * Atn(1)

pa = pi / 180

Picture1.DrawWidth = 1

Picture1.Scale (-20, 600)-(390, 500)

Picture1.Line (-20, 0)-(390, 0) 'X

Picture1.Line (0, 560)-(0, 480) 'Y

Picture1.CurrentX = 10: Picture1.CurrentY = 10

Picture1.Print "主动件转角/度" 'X表示Picture1.CurrentX = 10: Picture1.CurrentY = 960

Picture1.Print "构件5角位移f /度" 'Y表示For j = 30 To 390 Step 30 'X轴坐标Picture1.Line (j, 5)-(j, 0)

Picture1.CurrentX = j - 5: Picture1.CurrentY = 0

Picture1.Print j

Next j

For j = 480 To 1000 Step 10 'Y轴坐标Picture1.Line (0, j)-(5, j)

Picture1.CurrentX = -20: Picture1.CurrentY = j + 2

Picture1.Print j