哈工大機(jī)械原理大作業(yè)凸輪機(jī)構(gòu)設(shè)計(jì)題

1、Har b in I nst i t ut e of Tech nol ogy機(jī)械原理大作業(yè)二課程名稱：機(jī)械原理dsds線圖設(shè)計(jì)題目：凸輪機(jī)構(gòu)設(shè)計(jì)一.設(shè)計(jì)題目設(shè)計(jì)直動(dòng)從動(dòng)件盤形凸輪機(jī)構(gòu), 凸輪機(jī)構(gòu)原始參數(shù)序 號(hào)升程(mm)升程 運(yùn)動(dòng) 角(o)升程運(yùn) 動(dòng)規(guī)律升程許 用壓力 角(o)回程運(yùn) 動(dòng)角(o)回程運(yùn) 動(dòng)規(guī)律回程 許用 壓力 角(o)遠(yuǎn)休止角(o)近休止角(o)2212090等加等減速4080等減等加速7070120二.凸輪推桿運(yùn)動(dòng)規(guī)律1.運(yùn)動(dòng)規(guī)律(等加速等減速運(yùn)動(dòng))推程0450推程45900.運(yùn)動(dòng)規(guī)律(等加速等減速運(yùn)動(dòng))回程16002000回程2002400三.推桿位移、速度、加速度線圖及

2、凸輪 采用VB編程，其源程序及圖像如下：1.位移：Private Sub Comma nd1_Click()Timer1.E nabled = True 幵啟計(jì)時(shí)器End SubPrivate Sub Timer1_Timer()Static i As Sin gleDim s As Sin gle, q As Si ngle i作為靜態(tài)變量，控制流程；s代表位移；q代表角度Picture1.Curre ntX = 0Picture1.CurrentY = 0i = i + 0.1If i = 45 And i = 90 And i = 150 And i = 190 And i = 230

3、And i = 360 ThenPicture1.PSet Step(q, -s), vbBlackElseEnd IfEnd Sub2. 速度Private Sub Command2_Click()Timer2.Enabled = True 開啟計(jì)時(shí)器End SubPrivate Sub Timer2_Timer()Static i As Single為靜態(tài)變量，控制流程； q 代表角度；Dim v As Single, q As Single, w As Single i 代表角速度，此處被賦予 50 Picture1.CurrentX = 0Picture1.CurrentY = 0w

4、= 50i = i + 0.1If i = 45 And i = 90 And i = 150 And i = 190 And i = 230 And i = 360 Then q = iv = 0Picture1.PSet Step(q, -v), vbBlackElseEnd IfEnd Sub3. 加速度Private Sub Command3_Click() Timer3.Enabled = True 開啟計(jì)時(shí)器End SubPrivate Sub Timer3_Timer()Static i As Single為靜態(tài)變量，控制流程；a 代表加速度；Dim a As Single, w

5、 As Single, q As Single i q 代表角度； w 代表角速度w = 50Picture1.CurrentX = 0Picture1.CurrentY = 0i = i + 0.1If i = 45 And i = 90 And i = 150 And i = 190 And i = 230 And i = 360 Thenq = ia = 0Picture1.PSet Step(q, -a), vbBlackElseEnd IfEnd Sub4. ds/dq-dsPrivate Sub Command4_Click()Timer4.Enabled = True 開啟計(jì)時(shí)器

6、；建立坐標(biāo)系Picture1.Scale (-400, -400)-(400, 400)End SubPrivate Sub Timer4_Timer()Static i As Single為靜Dim x As Single, s As Single, q As Single, scaley As Single, t As Single i 態(tài)變量，控制流程； x 代表位移； s 代表縱坐標(biāo) ds/dq ； q 代表角度 Picture1.CurrentX = 0Picture1.CurrentY = 0scaley = 1t = 3.14 / 180i = i + 0.1If i = 45

7、And i = 90 And i = 150 And i = 190 And i = 230 And i = 360 Thenq = i * tx = 0s = 0Picture1.PSet Step(x, -s), vbRedElseEnd IfEnd Sub四確定凸輪基圓半徑和偏距1. 求切點(diǎn)轉(zhuǎn)角在圖中，右側(cè)曲線為升程階段的類速度 -位移圖，作直線 Dtdt 與其相切，且位移軸正方向呈夾角 1=30 0, 則切點(diǎn)處的斜率與直線 Dtdt 的斜率相等，因?yàn)?kDtdt=tan600, 右側(cè)曲線斜率可以表示為： q;q=tan60 0 繼而求出切點(diǎn)坐標(biāo)( 337.272,292.084 )。同

8、理可求出另一切點(diǎn)( -89.766,16.347 ) 2. 確定直線方程y-292.084=1.732* (x-337.272 )y-16.347=-0.364* (x+89.766 )3. 繪圖確定基圓半徑和偏距程序如下：Private Sub Command5_Click() 開啟計(jì)時(shí)器；畫出 ds/dq-s 圖的切線Timer5.Enabled = TruePicture1.Scale (-400, -400)-(400, 400)Picture1.Line (-50, 378.671)-(200, -54.329), vbRedPicture1.Line (-200, -65.683)

9、-(40, -481.363), vbBluePicture1.Line (-200, -209.127)-(200, -63.527), vbBlackPicture1.Line (-200, -56.472)-(200, 89.128), vbGreenEnd SubPrivate Sub Timer5_Timer() i 為靜態(tài)變量， 控制流程； x 代表位移； s 代表縱坐標(biāo) ds/dq ； q 代表角度； scaley 是圖形比例系數(shù)； t 為角度，弧度轉(zhuǎn)化系數(shù) Static i As SingleDim x As Single, s As Single, q As Single,

10、scaley As Single, t As Single Picture1.CurrentX = 0Picture1.CurrentY = 0scaley = 1t = 3.14 / 180i = i + 0.1If i = 45 And i = 90 And i = 150 And i = 190 And i = 230 And i = 360 Thenq = i * tx = 0s = 0Picture1.PSet Step(x, -s), vbRedElseEnd IfEnd Sub在軸心公共許用區(qū)內(nèi)取軸心位置，能夠滿足壓力角要求，現(xiàn)取直線紅線 與直線綠線的交點(diǎn)為軸 心位置，通過(guò)解方程

11、組： x=131.557 y=-64.214 r 0=146.392 偏距 e=131.557 s0=64.013 五繪制凸輪理論廓線和實(shí)際廓線1. 繪制凸輪理論輪廓Private Sub Command6_Click() 開啟計(jì)時(shí)器；建立坐標(biāo)系Picture1.Scale (-500, -500)-(500, 500)Timer6.Enabled = TrueEnd SubPrivate Sub Timer6_Timer() i為靜態(tài)變量，控制流程；e為偏距；s為基圓半徑平方減 去偏距平方再開方所得； q 為角度； x 為橫坐標(biāo)； y 為縱坐標(biāo) Static i As SingleDim e

12、 As Single, q As Single, s As Single, x As Single, y As Single e = 131.557s = 64.213Picture1.CurrentX = 12.764Picture1.CurrentY = -95.125i = i + 0.001If i = 3.14 / 4 And i = 3.14 / 2 And i = 5 * 3.14 / 6 And i = 19 / 18 * 3.14 And i = 23 / 18 * 3.14 And i = 2 * 3.14 Thenq = ix = s * Cos(q) - e * Sin

13、(q)y = s * Sin(q) + e * Cos(q)Picture1.PSet Step(x, -y), vbRedElseEnd IfEnd Sub2. 確定滾子半徑并繪制曲率半徑圖Private Sub Command7_Click() 開啟計(jì)時(shí)器，建立坐標(biāo)系Timer7.Enabled = TruePicture1.Scale (-10, -500)-(10, 10)End SubPrivate Sub Timer7_Timer() i 為靜態(tài)變量，控制流程； x 代表 dx/dq;y 代表 dy/dq ；p 代表曲率； e 為偏距； s 為基圓半徑平方減去偏距平方再開方所得St

14、atic i As SingleDim s As Single, q As Single, x As Single, y As Single, p As Single s = 64.213 e = 131.557Picture1.CurrentX = 0Picturel.Curre ntY 二-Sqr(e A 2 + s A 2)i = i + 0.01If i = 3.14 / 4 And i = 3.14 / 2 And i = 5 / 6 * 3.14 And i = 19 / 18 * 3.14 And i = 23 / 18 * 3.14 And i = 2 * 3.14 Thenq

15、 = ix = s * (-Sin(q) - e * Cos(q)y = s * Cos(q) - e * Sin(q)p = Sqr(x A 2 + y A 2)Picture1.PSet Step(q, -p), vbRedElseEnd IfEnd Sub其中曲率最小值為126.026mm可以得到滾子半徑為63.013mm3. 繪制實(shí)際輪廓線Private Sub Command8_Click()Picture1.Scale (-500, -500)-(500, 500) 建立坐標(biāo)系；開啟計(jì)時(shí)器Timer8.Enabled = TrueEnd SubPrivate Sub Timer8_

16、Timer() i 為靜態(tài)變量，控制流程； q 代表角度； x 代表 dx/dy ； y代表dy/dq ; a代表理論輪廓的橫坐標(biāo)；b代表理論輪廓的縱坐標(biāo)；m代表橫坐標(biāo)；n代表縱 坐標(biāo)Static i As SingleDim s As Single, q As Single, x As Single, y As Single, p As Single, rr As Single,a As Single, b As Single, m As Single, n As Singlerr = 63.013s = 64.213e = 131.557Picture1.CurrentX = 12.764Picture1.CurrentY = -95.175i = i + 0.001If i = 3.14 / 4 And i = 3.14 / 2 And i = 5 / 6 * 3.14 And i = 19 / 18 * 3.14 And i = 23 / 18 * 3.14 And i