機(jī)械原理大作業(yè)1連桿

1、機(jī)械原理大作業(yè)一課程名稱： 機(jī)械原理 設(shè)計(jì)題目： 連桿機(jī)構(gòu)設(shè)計(jì) 院 系： 機(jī)電工程學(xué)院 班 級(jí)： 完 成 者： 學(xué) 號(hào)： 指導(dǎo)教師： 設(shè)計(jì)時(shí)間： 5月10日-5月19日 哈爾濱工業(yè)大學(xué)（13）在圖1-13所示的牛頭刨床機(jī)構(gòu)中，已知各個(gè)構(gòu)建尺寸為：LAB=108mm，LCE=620mm，LEF=300mm，H1=350mm，H=635mm，曲柄1以等角速度轉(zhuǎn)動(dòng)，轉(zhuǎn)速為n1=225r/min。試求滑塊5上點(diǎn)F的位移、速度和加速度。機(jī)構(gòu)的自由度計(jì)算及基本桿組劃分（1）自由度計(jì)算 該機(jī)構(gòu)為平面機(jī)構(gòu)，活動(dòng)構(gòu)件的數(shù)目為n=5，低副P(pán)L=7，高副數(shù)目PH=0，故該牛頭刨床機(jī)構(gòu)的自由度為 F=3n-2PL-P

2、H=3*5-2*7-0=1（2）基本桿組的劃分 構(gòu)件1為原動(dòng)件，故先移除，然后按照拆分法拆分桿組。桿3與滑塊2組成RPRII級(jí)桿組，桿4與滑塊5組成RPRII級(jí)桿組。拆分結(jié)果如下：2、各基本桿組的運(yùn)動(dòng)分析 以C點(diǎn)為坐標(biāo)原點(diǎn)建立直角坐標(biāo)系，通過(guò)求出B點(diǎn)坐標(biāo)求出E點(diǎn)坐標(biāo)，進(jìn)而推出F點(diǎn)坐標(biāo)，其與時(shí)間的函數(shù)即為位移方程，對(duì)其求一次導(dǎo)得速度方程，求二階導(dǎo)得加速度方程。 圖一為一級(jí)桿組： xB = lABcos yB = lABsin 圖二為二級(jí)桿組： xE = lCEcos1 yE = lCEsin1 1 = arctan（H1+lAbsin）/lABcos 圖三為二級(jí)桿組： xF = xE - lEF

3、cos2 2 = arcsin（H - yE）/lEF3、數(shù)學(xué)建模（1）、位移圖2、速度圖3、加速度圖4、計(jì)算程序Begin VB.Form 牛頭刨連桿機(jī)構(gòu) Caption = Form1 ClientHeight = 3030 ClientLeft = 120 ClientTop = 450 ClientWidth = 4560 LinkTopic = Form1 ScaleHeight = 3030 ScaleWidth = 4560 StartUpPosition = 3 窗口缺省 Begin VB.PictureBox Picture4 Height = 6495 Left = 276

4、0 ScaleHeight = 6435 ScaleWidth = 11235 TabIndex = 4 Top = 120 Width = 11295 End Begin VB.PictureBox Picture3 Height = 6255 Left = 1680 ScaleHeight = 6195 ScaleWidth = 75 TabIndex = 3 Top = 240 Width = 135 End Begin VB.PictureBox Picture2 Height = 6255 Left = 2280 ScaleHeight = 6195 ScaleWidth = 75

5、TabIndex = 2 Top = 0 Width = 135 End Begin VB.PictureBox Picture1 Height = 6255 Left = 960 ScaleHeight = 6195 ScaleWidth = 195 TabIndex = 1 Top = 120 Width = 255 End Begin VB.CommandButton Command1 Caption = Command1 Height = 495 Left = 120 TabIndex = 0 Top = 120 Width = 495 EndEndAttribute VB_Name

6、= 牛頭刨連桿機(jī)構(gòu)Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate f1(3600) As Double 1桿的轉(zhuǎn)角Private xB0(3600) As Double Private yB0(3600) As Double Private vxB0(3600) As Double Private vyB0(3600) As Double Private axB0(3600)

7、 As Double Private ayB0(3600) As Double Private xE0(3600) As Double Private yE0(3600) As Double Private vxE0(3600) As Double Private vyE0(3600) As Double Private axE0(3600) As Double Private ayE0(3600) As Double Private f3(3600) As Double Private w3(3600) As Double Private e3(3600) As Double Private

8、 s5(3600) As Double Private vs5(3600) As Double Private as5(3600) As Double Private pi As DoublePrivate pa As DoublePrivate Sub Command1_Click()Dim i As DoubleDim j As LongDim RR1 As rrDim RPR1 As rprDim RRP1 As rrpSet RR1 = New rrSet RPR1 = New rprSet RRP1 = New rrppi = 4 * Atn(1)pa = pi / 180Pictu

9、re1.DrawWidth = 1Picture1.Scale (-20, 1000)-(390, -40) Picture1.Line (-20, 0)-(390, 0) X Picture1.Line (0, 1000)-(0, -40) Y Picture1.CurrentX = 330: Picture1.CurrentY = 40 Picture1.Print 主動(dòng)件轉(zhuǎn)角/度 X表示 Picture1.CurrentX = 10: Picture1.CurrentY = 960 Picture1.Print 滑塊位移S /mm Y表示 For j = 30 To 390 Step 3

10、0 X軸坐標(biāo) Picture1.Line (j, 5)-(j, 0) Picture1.CurrentX = j - 5: Picture1.CurrentY = 0 Picture1.Print j Next j For j = 0 To 1000 Step 80 Y軸坐標(biāo) Picture1.Line (0, j)-(5, j) Picture1.CurrentX = -20: Picture1.CurrentY = j + 2 Picture1.Print j Next j Picture1.DrawStyle = 2 For j = 0 To 1000 Step 80 Picture1.

11、Line (-20, j)-(390, j), vbBlack 橫向網(wǎng)格 Next j For j = 0 To 390 Step 30 Picture1.Line (j, -20)-(j, 1000), vbBlack 縱向網(wǎng)格 Next j Picture2.DrawWidth = 1Picture2.Scale (-20, 8000)-(390, -4000) Picture2.Line (-20, 0)-(380, 0) X Picture2.Line (0, 8000)-(0, -4000) Y Picture2.CurrentX = 340: Picture2.CurrentY =

12、 400 Picture2.Print 主動(dòng)件轉(zhuǎn)角/度 Picture2.CurrentX = 10: Picture2.CurrentY = 2400 Picture2.Print 滑塊速度V mm/s For j = 30 To 390 Step 30 X軸坐標(biāo) Picture2.Line (j, 5)-(j, 0) Picture2.CurrentX = j - 5: Picture2.CurrentY = 0 Picture2.Print j Next j For j = -4000 To 8000 Step 800 Y軸坐標(biāo) Picture2.Line (0, j)-(5, j) P

13、icture2.CurrentX = -10: Picture2.CurrentY = j + 7 Picture2.Print j Next j Picture2.DrawStyle = 2 For j = -4000 To 8000 Step 800 Picture2.Line (-20, j)-(390, j), vbBlack 橫向網(wǎng)格 Next j For j = 30 To 390 Step 30 Picture2.Line (j, -4000)-(j, 8000), vbBlack 縱向網(wǎng)格 Next j Picture3.DrawWidth = 1Picture3.Scale

14、(-20, 150000)-(380, -200000) Picture3.Line (-20, 0)-(390, 0) X Picture3.Line (0, 150000)-(0, -200000) Y Picture3.CurrentX = 300: Picture3.CurrentY = 10000 Picture3.Print 主動(dòng)件轉(zhuǎn)角/度 Picture3.CurrentX = 10: Picture3.CurrentY = 80000 Picture3.Print 滑塊加速度a mm/S2 For j = 30 To 390 Step 30 X軸坐標(biāo) Picture3.Line

15、 (j, 5)-(j, 0) Picture3.CurrentX = j - 5: Picture3.CurrentY = 0 Picture3.Print j Next j For j = -200000 To 150000 Step 10000 Y軸坐標(biāo) Picture3.Line (0, j)-(5, j) Picture3.CurrentX = -20: Picture3.CurrentY = j + 7 Picture3.Print j Next j Picture3.DrawStyle = 2 For j = -200000 To 150000 Step 10000 Picture

16、3.Line (-200000, j)-(150000, j), vbBlack 橫向網(wǎng)格 Next j For j = 0 To 390 Step 30 Picture3.Line (j, -200000)-(j, 150000), vbBlack 縱向網(wǎng)格 Next j 主程序For i = 0# To 3600# Step 0.1 主動(dòng)件轉(zhuǎn)角0-360,步長(zhǎng)0.01RR類模塊屬性賦值f1(i) = i * pa / 10RR1.f = f1(i)RR1.L = 108RR1.w = 205 * 2 * pi / 60RR1.e = 0RR1.xA = 0RR1.yA = 0RR1.vxA

17、 = 0RR1.vyA = 0RR1.axA = 0RR1.ayA = 0RR1.calRR 執(zhí)行RR類模塊方法xB0(i) = RR1.xByB0(i) = RR1.yBvxB0(i) = RR1.vxBvyB0(i) = RR1.vyBaxB0(i) = RR1.axBayB0(i) = RR1.ayBRPR類模塊屬性賦值RPR1.Li = 0RPR1.Lj = 620RPR1.Lk = 0RPR1.xB = xB0(i)RPR1.yB = yB0(i)RPR1.vxB = vxB0(i)RPR1.vyB = vyB0(i)RPR1.axB = axB0(i)RPR1.ayB = ayB0

18、(i)RPR1.xD = 0RPR1.yD = -350RPR1.vxD = 0RPR1.vyD = 0RPR1.axD = 0RPR1.ayD = 0RPR1.calRPR 執(zhí)行RPR類模塊方法xE0(i) = RPR1.xEyE0(i) = RPR1.yEvxE0(i) = RPR1.vxEvyE0(i) = RPR1.vyEaxE0(i) = RPR1.axEayE0(i) = RPR1.ayERRP類模塊屬性賦值RRP1.Li = 300RRP1.Lj = 0RRP1.fj = 0RRP1.wj = 0RRP1.ej = ORRP1.xK = 0RRP1.yK = 285RRP1.vxK = 0RRP1.vyK = 0RRP1.axK = 0RRP1.ayK = 0RRP1.xB = xE0(i)RRP1.yB = yE0(i)RRP1.vxB = vxE0(i)RRP1.vyB = vyE0(i)RRP1.axB = axE0(i)RRP1.ayB = ayE0(i)RRP1.calRRP 執(zhí)行RRP類模塊方法s5(i)