機(jī)械原理課程設(shè)計(jì)---物料往復(fù)運(yùn)送機(jī)構(gòu)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：22 大?。?20.29KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

機(jī)械原理課程設(shè)計(jì)---物料往復(fù)運(yùn)送機(jī)構(gòu)_第1頁(yè)

已閱讀1頁(yè)，還剩21頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶(hù)提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　目錄　　第一章　　1-1：摘要………………………………………………3　　1-2：前言………………………………………………3　　第二章&l

2、t;/p>　　2-1：設(shè)計(jì)題目…………………………………………4　　2-2：運(yùn)動(dòng)方案的擬定與比較…………………………4　　2-3：機(jī)械運(yùn)動(dòng)簡(jiǎn)圖……………. ……………………… 6 　　2-4：機(jī)構(gòu)結(jié)構(gòu)分析……. ……. ……. ……. ……. ……7<p

3、>　　2-5: 機(jī)構(gòu)運(yùn)動(dòng)分析…………………………………. …8　　第三章　　3-1：參考文獻(xiàn)…………………………………………10　　3-2：致謝………………………………………………10　　3-3：附錄</

4、b>　　附錄（一）：程序框圖……………………………11　　附錄（二）：VB程序代碼………………………11　　附錄（三）：曲線(xiàn)圖及程序運(yùn)行截圖……………19　　第一章

5、1-1：摘要　　中文摘要：　　本文通過(guò)擬定機(jī)械運(yùn)動(dòng)方案、按照機(jī)械的幾何、運(yùn)動(dòng)、動(dòng)力、軌跡等性能要求進(jìn)行低副運(yùn)動(dòng)機(jī)構(gòu)、運(yùn)動(dòng)尺寸的設(shè)計(jì)，所選擇的機(jī)構(gòu)是曲柄滑塊機(jī)構(gòu)，并對(duì)起進(jìn)行運(yùn)動(dòng)分析和動(dòng)態(tài)靜力分析及利用計(jì)算機(jī)（VB）完成機(jī)械運(yùn)動(dòng)方案和機(jī)構(gòu)運(yùn)動(dòng)簡(jiǎn)圖的繪制。通過(guò)課程設(shè)計(jì)進(jìn)一步鞏固和加深機(jī)械原理課程的理論知

6、識(shí)；培養(yǎng)解決實(shí)際工程問(wèn)題的能力，掌握機(jī)械運(yùn)動(dòng)、動(dòng)力分析和設(shè)計(jì)的基本方法，進(jìn)一步提高學(xué)生的工程設(shè)計(jì)能力。　　英文摘要：　　This paper is the crank organization of slide block through decide mechanical sport scheme and, acc

7、ording to the performances such as locus, sport, power and the geometry of machinery, asking the organization that lows associate sport organization and the design of sport size and selects , completes mechanical sport s

8、cheme for rising to carry out sport analysis and development quietly force analysis and using computer ( VB ) with organization kinematic diagram draw. Through course design, streng　　1-2：前言&

9、lt;/b>　　機(jī)械原理是一門(mén)以機(jī)器和機(jī)構(gòu)為研究對(duì)象的學(xué)科.機(jī)械原理課程設(shè)計(jì)是使學(xué)生較全面的、系統(tǒng)鞏固和加深機(jī)械原理課程的基本原理和方法的重要環(huán)節(jié)，是培養(yǎng)學(xué)生“初步具有確定機(jī)械運(yùn)動(dòng)方案，分析和設(shè)計(jì)機(jī)械的能力”及“開(kāi)發(fā)創(chuàng)新能力”的一種手段。我們將從機(jī)構(gòu)的運(yùn)動(dòng)學(xué)以及機(jī)器的動(dòng)力學(xué)入手,研究機(jī)構(gòu)運(yùn)動(dòng)的確定性和可能性,并進(jìn)一步討論的組成原理.,從幾何的觀(guān)點(diǎn)來(lái)研究機(jī)構(gòu)各點(diǎn)的軌跡、位移、速度和加速度的求

10、法,以及按已知條件來(lái)設(shè)計(jì)新的機(jī)構(gòu)的方法.　　第二章　　2-1、設(shè)計(jì)題目　　1、設(shè)計(jì)一物料往復(fù)運(yùn)送機(jī)構(gòu)　　2、設(shè)計(jì)條件和要求<p&

11、gt;　　如圖（1），將物料由A位置推送到B位置　　圖（1）　　已知最大行程H=60mm ，無(wú)急回特性要求。　　2-2、運(yùn)動(dòng)方案的擬定與比較　　1、凸輪機(jī)構(gòu)

12、;　　圖（2）　　原理和特點(diǎn)：　　一般以凸輪為主動(dòng)件，作連續(xù)的回轉(zhuǎn)運(yùn)動(dòng)或平移運(yùn)動(dòng)，其輪廓曲線(xiàn)的形狀取決于從動(dòng)件的運(yùn)動(dòng)規(guī)律。只需設(shè)計(jì)適當(dāng)?shù)耐馆嗇喞?，便可使從?dòng)件得到任意的預(yù)期運(yùn)動(dòng)，而且結(jié)構(gòu)簡(jiǎn)單、緊湊、設(shè)計(jì)方便，因而在自動(dòng)機(jī)床、輕工機(jī)械、紡織機(jī)械、印刷機(jī)械、食品機(jī)械、包裝機(jī)械和機(jī)電

13、一體化產(chǎn)品中得到了廣泛運(yùn)用。　　但是它的從動(dòng)件與凸輪間為點(diǎn)線(xiàn)接觸，易磨損，只適用于傳力不大的場(chǎng)合；再者凸輪加工比較困難；最后凸輪從動(dòng)件的行程不能過(guò)大，否則會(huì)使凸輪變得笨重。　　曲柄滑塊機(jī)構(gòu)　　圖（3）<p&g

14、t;　　原理和特點(diǎn)：　　當(dāng)曲柄整周回轉(zhuǎn)時(shí)，滑塊往復(fù)移動(dòng)。對(duì)心曲柄滑塊機(jī)構(gòu)的滑塊最大　　行程s為曲柄長(zhǎng)度的兩倍，若增加曲柄長(zhǎng)度，可以增大行程。　　偏置的曲柄滑塊機(jī)構(gòu)具有急回特性，當(dāng)曲柄長(zhǎng)度或偏心距增大時(shí)，　　急回特性顯著，而連桿長(zhǎng)度減小

15、時(shí)，急回特性減緩。 　　其優(yōu)點(diǎn)是制造簡(jiǎn)單，能適合于各種場(chǎng)合的受力，潤(rùn)滑簡(jiǎn)單，維修方便。常應(yīng)用于手動(dòng)沖孔鉗、車(chē)門(mén)啟閉機(jī)構(gòu)等。 　　正弦機(jī)構(gòu)　　圖（4）　　原理和特點(diǎn)：</

16、b>　　以連桿為主動(dòng)件，帶動(dòng)移動(dòng)導(dǎo)桿相對(duì)固定滑塊上下往復(fù)運(yùn)　　動(dòng)。能實(shí)現(xiàn)較復(fù)雜的運(yùn)動(dòng)，但是制造比較麻煩，結(jié)構(gòu)往往比較　　大，不適合在小場(chǎng)合運(yùn)用。主要運(yùn)用于大型的抽水機(jī)。　　由此可選出最優(yōu)方案：曲柄滑塊機(jī)構(gòu)。　　2-3、機(jī)械運(yùn)

17、動(dòng)簡(jiǎn)圖　　該裝置是用曲柄滑塊機(jī)構(gòu)做成的,將曲柄的轉(zhuǎn)動(dòng)轉(zhuǎn)化為往復(fù)移動(dòng),在本次研究中采用的是對(duì)心曲柄滑塊機(jī)構(gòu),偏心距等于零,導(dǎo)路中心通過(guò)曲柄轉(zhuǎn)動(dòng)中心.最終起到將物料移動(dòng)的作用. 　　圖（5）　　圖（6）

18、;　　如圖（5）、圖（6）所示，即為機(jī)構(gòu)運(yùn)動(dòng)時(shí)物料的運(yùn)動(dòng)過(guò)程。　　2-4、機(jī)構(gòu)結(jié)構(gòu)分析　　圖（7）　　圖中桿AB為一曲柄，以AB為原動(dòng)件，帶動(dòng)滑塊移動(dòng)，從而實(shí)現(xiàn)將物料從a位置送到b位置. (附VB動(dòng)畫(huà)演示)　　機(jī)構(gòu)綜

19、合分析：　　此機(jī)構(gòu)是通過(guò)電機(jī)帶動(dòng)曲柄AB做整周轉(zhuǎn)動(dòng),帶動(dòng)BC做如圖所示曲線(xiàn)的擺動(dòng),從而使滑塊C沿機(jī)架做往復(fù)的移動(dòng).　　活動(dòng)構(gòu)件N=3,低副P(pán)L=4,高副=0.所以此機(jī)構(gòu)的自由度F=3x3-2x4=1.　　此機(jī)構(gòu)取e=0為對(duì)心曲柄滑塊機(jī)構(gòu).　　機(jī)構(gòu)各桿尺

20、寸確定: 根據(jù)任務(wù)需求,H=60mm,而H=2L1(AB桿),所以L(fǎng)1=30mm。L2(BC桿)的長(zhǎng)度可任意取值,但根據(jù)驅(qū)動(dòng)力的要求L2=120mm.　　2-5、機(jī)構(gòu)運(yùn)動(dòng)分析　　1、位置分析:　　如圖（7）所示,該機(jī)構(gòu)的閉矢量方程式為:

21、;　　（1）　　展開(kāi)后分別取虛部和實(shí)部得:　　即: 　?。?）　?。?）<

22、;b>　　3、速度分析　　將式(1)對(duì)時(shí)間求導(dǎo)得　?。?） 　　兩邊乘以后,展開(kāi)取實(shí)部得　　（5） 　　將式(4)展開(kāi)后取虛部得:</

23、p>　　即:　?。?）　　4、加速度分析　　將式(4)對(duì)時(shí)間求導(dǎo)得　?。?）</p&g

24、t;　　兩邊乘以 ,展開(kāi)后取實(shí)部得:　?。?0）　　將(g)展開(kāi)后取虛部得:　?。?1）　　在某種情況下,例如在計(jì)算往復(fù)原動(dòng)機(jī)慢性力的平衡時(shí),只需知道滑塊近似加速度時(shí),便

25、可按下面方法來(lái)計(jì)算求解。　　由式（2）得　　式中為曲柄與連桿長(zhǎng)度之比,由　　利用利用牛頓二項(xiàng)式定理展開(kāi)成級(jí)數(shù)得:　　這個(gè)級(jí)數(shù)收斂得很快,當(dāng)時(shí),取其前兩項(xiàng)便可準(zhǔn)確到小數(shù)點(diǎn)后三位數(shù)字.因此將　　代

26、入式（3），經(jīng)整理后得距離的近似值為　　在將上式對(duì)時(shí)間求導(dǎo),測(cè)得速度和加速度的近似值為:　　第三章　　3-1、參考文獻(xiàn)　　1.《機(jī)械原理與設(shè)計(jì)課程設(shè)計(jì)》王三民主編機(jī)械工業(yè)出版社公開(kāi)出版 20

27、05年。　　2.《機(jī)械原理》（第七版）鄭文緯吳克堅(jiān)主編高等教育出版社公開(kāi)出版 1997年。　　3.《Visual Basic 6.0入門(mén)與提高》王欽編著人民郵電出版社公開(kāi)出版 2002年。　　4.《Visual Basic程序設(shè)計(jì)》王漢新編著科學(xué)出版社公開(kāi)出版 2002年。

28、　　3-2、　　致謝　　此次課程設(shè)計(jì)使我對(duì)機(jī)械原理的學(xué)習(xí)有了更深的了解，以前很多不明白之　　處，在課程設(shè)計(jì)中得到了解決為以后的學(xué)習(xí)打下了基礎(chǔ)。　　此次課程設(shè)計(jì)徐建生老師提供了

29、很多資料和給予了大力的幫助，在此表示真　　誠(chéng)的感謝。　　由于水平有限，不足之處肯定在所難免，希望指導(dǎo)老師們繼續(xù)給予幫助和　　見(jiàn)諒。　　3-3：附錄</p

30、>　　附錄（1）：　　程序框圖：　　附錄（2）：　　VB程序代碼：　　子程

31、序：　　Private Sub Label4_Click()　　Form2.Show　　End Sub　　Private Sub Label5_Click()<b&g

32、t;　　End　　End Sub　　主程序：　　Dim t1 As Double　　Const pi = 3.14159　　Priva

33、te Sub Command1_Click()　　Timer2.Enabled = True　　Timer1.Enabled = False　　Timer2.Interval = 100　　End Sub<

34、;p>　　Private Sub Command2_Click()　　Timer1.Enabled = False　　Timer2.Enabled = False　　End Sub　　Private Sub Command3_C

35、lick()　　End　　End Sub　　Private Sub Command4_Click()　　m = 50

36、　　Timer1.Enabled = False　　Timer2.Enabled = False　　h = Text1.Text * m　　namda = Text2.Text　　e = Text3.Text * m　　l1 =

37、h / 2 / m　　l2 = l1 / namda　　a = e / m / (l1 + l2)　　b = e / m / (l2 - l1)　　x0 = 8000: y0 = 8000　　X1 = x0 + l1 * m *

38、Sqr(1 - a ^ 2)　　Y1 = y0 - e + a * l1 * m　　X2 = x0 + Sqr(((l1 + l2) * m) ^ 2 - e ^ 2)　　Y2 = y0　　x3 = x0 - l1 * m * Sqr

39、(1 - b ^ 2)　　y3 = y0 - e - l1 * m * b　　x4 = x0 + Sqr(((l2 - l1) * m) ^ 2 - e ^ 2)　　y4 = y0　　DrawStyle = 2

40、　　DrawWidth = 1　　Line (x0, y0 - e)-(X1, Y1), vbRed　　Line -(X2, Y2), vbRed　　Line (X2 - 200, Y2 - 100)-(X2 + 200, Y2 - 100), vbRed

41、;　　Line -(X2 + 200, Y2 + 100), vbRed　　Line -(X2 - 200, Y2 + 100), vbRed　　Line -(X2 - 200, Y2 - 100), vbRed　　Circle (X1, Y1), 50, vbRed

42、Circle (X2, Y2), 50, vbRed　　Line (x0, y0 - e)-(x3, y3), vbRed　　Line (x0, y0 - e)-(x4, y4), vbRed　　Line (x4 - 200, y4 - 100)-(x4 + 200, y4 - 100), vbRed</p

43、>　　Line -(x4 + 200, y4 + 100), vbRed　　Line -(x4 - 200, y4 + 100), vbRed　　Line -(x4 - 200, y4 - 100), vbRed　　Circle (x3, y3), 50, vbRed

44、;　　Circle (x4, y4), 50, vbRed　　End Sub　　Private Sub Command5_Click()　　Timer1.Interval = 100　　Timer1.Enable

45、d = True　　Timer2.Enabled = False　　End Sub　　Private Sub Command6_Click()　　Text1.Text = 60　　Text2.

46、Text = 0.32　　Text3.Text = 0　　End Sub　　Private Sub Command7_Click()　　Text1.Text = 60　　Text2.Text

47、= 0.32　　Text3.Text = 20　　End Sub　　Private Sub Command8_Click()　　Timer1.Enabled = False　　Timer2.E

48、nabled = False　　Form1.Show　　End Sub　　Private Sub Timer1_Timer()　　m = 50　　h =

49、Text1.Text * m　　namda = Text2.Text　　e = Text3.Text * m　　w1 = 1　　l1 = h / 2 / m　　l2 = l1 / namda&

50、lt;/p>　　Text4.Text = l1　　Text5.Text = l2　　t1 = t1 - pi / 60　　If e = 0 Then　　XC = l1 * (Cos(t1) + 1 / namda - namda / 4 + n

51、amda * Cos(2 * t1))　　VC = (-l1) * w1 * (Sin(t1) + (namda / 2) * Sin(2 * t1))　　AC = (-l1) * w1 * w1 * (Cos(t1) + namda * Cos(2 * t1))　　k = 1

52、;　　Text6.Text = XC　　Text7.Text = VC　　Text8.Text = AC　　Text9.Text = k　　x0 = 8000: y0 = 8000　　X1

53、 = x0 + l1 * Cos(t1) * m　　Y1 = y0 - e - l1 * Sin(t1) * m　　X2 = x0 + l1 * Cos(t1) * m + l1 * m * Sqr(1 / namda / namda - Sin(t1) ^ 2)　　Y2 = y0</b&

54、gt;　　Cls　　DrawWidth = 2　　Line (x0, y0)-(X1, Y1)　　Line -(X2, Y2)　　Line (x0, y0)-(14720, y0)</p

55、>　　Line (X2 - 200, Y2 - 100)-(X2 + 200, Y2 - 100)　　Line -(X2 + 200, Y2 + 100)　　Line -(X2 - 200, Y2 + 100)　　Line -(X2 - 200, Y2 - 100)

56、　　Line (x0 - 150, y0 + 150)-(x0, y0)　　Line -(x0 + 150, y0 + 150)　　Line -(x0 - 150, y0 + 150)　　Circle (x0, y0), 50　　Circle (X1

57、, Y1), 50　　Circle (X2, Y2), 50　　DrawStyle = 3　　DrawWidth = 1　　Circle (x0, y0), l1 * m　　Picture1.DrawWidth = 2</p

58、>　　Picture2.DrawWidth = 2　　Picture1.Line (0, Picture1.ScaleHeight / 2)-(6000, Picture1.ScaleHeight / 2), vbRed　　Picture2.Line (0, Picture2.ScaleHeight / 2)-(6000, P

59、icture2.ScaleHeight / 2), vbRed　　Picture2.PSet (-t1 * 150 + 80, VC * m + 50 + Picture2.ScaleHeight / 2)　　Picture1.PSet (-t1 * 150 + 80, AC * m + 500 + Picture1.ScaleHeight / 2)&l

60、t;/p>　　For i = 0 To 5　　DrawWidth = 1　　Line (x0 - 150 + i * 50, y0 + 150)-(x0 - 150 + (i - 1) * 50, y0 + 250)　　Next i</p&g

61、t;　　For j = 0 To 20　　DrawWidth = 1　　Line (x0 + 3700 + j * 100, y0)-(x0 + 3700 + (j - 1) * 100, y0 + 200)　　Next j<

62、;p>　　End If　　If e > 0 Then　　XC = l1 * (Cos(t1) + 1 / namda - namda / 4 + namda * Cos(2 * t1))　　VC = (-l1) * w1 * (Sin(t1) + (namda /

63、 2) * Sin(2 * t1))　　AC = (-l1) * w1 * w1 * (Cos(t1) + namda * Cos(2 * t1))　　Text6.Text = XC　　Text7.Text = VC　　Text8.Text = AC

64、　　l3 = Sqr((l2 - l1) ^ 2 - (e / m) ^ 2)　　l4 = Sqr((l2 + l1) ^ 2 - (e / m) ^ 2)　　t2 = Cos(((l1 + l2) ^ 2 + (l2 - l1) ^ 2 - (l4 - l3) ^ 2) / 2 / (l1 + l2) / (l2 - l1))<

65、;/p>　　k = (pi + t2) / (pi - t2)　　Text9.Text = k　　x0 = 8000: y0 = 8000　　X1 = x0 + l1 * Cos(t1) * m　　Y1 = y0 - e - l1 * Sin(

66、t1) * m　　X2 = x0 + l1 * Cos(t1) * m + Sqr((l2 * m) ^ 2 - (l1 * m * Sin(t1) + e) ^ 2)　　Y2 = y0　　Cls

67、　　DrawWidth = 2　　Line (x0, y0 - e)-(X1, Y1)　　Line -(X2, Y2)　　Line (x0 + 2000, y0)-(14720, y0)　　Line (X2 - 200, Y2 - 100)-(X2 + 200, Y2 -

68、 100)　　Line -(X2 + 200, Y2 + 100)　　Line -(X2 - 200, Y2 + 100)　　Line -(X2 - 200, Y2 - 100)　　Line (x0 - 150, y0 + 150 - e)-(x0, y0 - e)<

69、;/p>　　Line -(x0 + 150, y0 + 150 - e)　　Line -(x0 - 150, y0 + 150 - e)　　Circle (x0, y0 - e), 50　　Circle (X1, Y1), 50　　Circle

70、 (X2, Y2), 50　　DrawStyle = 3　　DrawWidth = 1　　Circle (x0, y0 - e), l1 * m　　Picture1.DrawWidth = 2　　Picture2.DrawWidt

71、h = 2　　Picture1.Line (0, Picture1.ScaleHeight / 2)-(6000, Picture1.ScaleHeight / 2), vbRed　　Picture2.Line (0, Picture2.ScaleHeight / 2)-(6000, Picture2.ScaleHeight / 2), vbRed<

72、;/p>　　Picture2.PSet (-t1 * 150, VC * m + 50 + Picture2.ScaleHeight / 2)　　Picture1.PSet (-t1 * 150, AC * m + 500 + Picture1.ScaleHeight / 2)　　For i = 0 To 5

73、;　　DrawWidth = 1　　Line (x0 - 150 + i * 50, y0 + 150 - e)-(x0 - 150 + (i - 1) * 50, y0 + 250 - e)　　Next i　　For j = 0 To 20</p

74、>　　DrawWidth = 1　　Line (x0 + 3700 + j * 100, y0)-(x0 + 3700 + (j - 1) * 100, y0 + 200)　　Next j　　End If<

75、;/p>　　End Sub　　Private Sub Timer2_Timer()　　m = 50　　h = Text1.Text * m　　namda = Text2

76、.Text　　e = Text3.Text * m　　w1 = 1　　l1 = h / 2 / m　　l2 = l1 / namda　　Text4.Text = l1&

77、lt;p>　　Text5.Text = l2　　l3 = Sqr((l2 - l1) ^ 2 - (e / m) ^ 2)　　l4 = Sqr((l2 + l1) ^ 2 - (e / m) ^ 2)　　t2 = Cos(((l1 + l2) ^ 2 + (l2 - l1) ^ 2 - (l4 - l3)

78、^ 2) / 2 / (l1 + l2) / (l2 - l1))　　k = (pi + t2) / (pi - t2)　　Text9.Text = k　　t1 = t1 + pi / 60　　If e = 0 Then　　XC

79、= l1 * (Cos(t1) + 1 / namda - namda / 4 + namda * Cos(2 * t1))　　VC = (-l1) * w1 * (Sin(t1) + (namda / 2) * Sin(2 * t1))　　AC = (-l1) * w1 * w1 * (Cos(t1) + namda * Cos(2 * t1))<

80、;/p>　　k = 1　　Text6.Text = XC　　Text7.Text = VC　　Text8.Text = AC　　Text9.Text = k　　x0

81、 = 8000: y0 = 8000　　X1 = x0 + l1 * Cos(t1) * m　　Y1 = y0 - l1 * Sin(t1) * m　　X2 = x0 + l1 * m * Cos(t1) + l1 * m * Sqr(1 / namda / namda - Sin(t1) ^ 2)</p&

82、gt;　　Y2 = y0　　Cls　　DrawWidth = 2　　Line (x0, y0)-(X1, Y1)　　Line -(X2, Y2)<

83、;p>　　Line (x0, y0)-(14720, y0)　　Line (X2 - 200, Y2 - 100)-(X2 + 200, Y2 - 100)　　Line -(X2 + 200, Y2 + 100)　　Line -(X2 - 200, Y2 + 100)

84、;　　Line -(X2 - 200, Y2 - 100)　　Line (x0 - 150, y0 + 150)-(x0, y0)　　Line -(x0 + 150, y0 + 150)　　Line -(x0 - 150, y0 + 150)　　Circle (x0, y

85、0), 50　　Circle (X1, Y1), 50　　Circle (X2, Y2), 50　　DrawStyle = 3　　DrawWidth = 1　　Circle (x0, y0), l1 * m

86、　　Picture1.DrawWidth = 2　　Picture2.DrawWidth = 2　　Picture1.Line (0, Picture1.ScaleHeight / 2)-(6000, Picture1.ScaleHeight / 2), vbRed　　Picture2.Line

87、 (0, Picture2.ScaleHeight / 2)-(6000, Picture2.ScaleHeight / 2), vbRed　　Picture2.PSet (t1 * 150, VC * m + 50 + Picture2.ScaleHeight / 2)　　Picture1.PSet (t1 * 150, AC * m + 500 +

88、Picture1.ScaleHeight / 2)　　For i = 0 To 5　　DrawWidth = 1　　Line (x0 - 150 + i * 50, y0 + 150)-(x0 - 150 + (i - 1) * 50, y0 + 250)

89、;　　Next i　　For j = 0 To 20　　DrawWidth = 1　　Line (x0 + 3700 + j * 100, y0)-(x0 + 3700 + (j - 1) * 100, y0 + 200)　　Next

90、 j　　End If　　If e > 0 Then　　XC = l1 * (Cos(t1) + 1 / namda - namda / 4 + namda * Cos(2 * t1))　　VC = (-l1)

91、 * w1 * (Sin(t1) + (namda / 2) * Sin(2 * t1))　　AC = (-l1) * w1 * w1 * (Cos(t1) + namda * Cos(2 * t1))　　Text6.Text = XC　　Text7.Text = VC

92、　Text8.Text = AC　　l3 = Sqr((l2 - l1) ^ 2 - (e / m) ^ 2)　　l4 = Sqr((l2 + l1) ^ 2 - (e / m) ^ 2)　　t2 = Cos(((l1 + l2) ^ 2 + (l2 - l1) ^ 2 - (l4 - l3) ^ 2) / 2

93、/ (l1 + l2) / (l2 - l1))　　k = (pi + t2) / (pi - t2)　　Text9.Text = k　　x0 = 8000: y0 = 8000　　X1 = x0 + l1 * Cos(t1) * m<p&g

94、t;　　Y1 = y0 - e - l1 * m * Sin(t1)　　X2 = x0 + l1 * m * Cos(t1) + Sqr((l2 * m) ^ 2 - (l1 * m * Sin(t1) + e) ^ 2)　　Y2 = y0　　Cls<

95、/b>　　DrawWidth = 2　　Line (x0, y0 - e)-(X1, Y1)　　Line -(X2, Y2)　　Line (x0 + 2000, y0)-(14720, y0)　　Line (X2 - 200

96、, Y2 - 100)-(X2 + 200, Y2 - 100)　　Line -(X2 + 200, Y2 + 100)　　Line -(X2 - 200, Y2 + 100)　　Line -(X2 - 200, Y2 - 100)　　Line (x0 - 150, y0

97、 + 150 - e)-(x0, y0 - e)　　Line -(x0 + 150, y0 + 150 - e)　　Line -(x0 - 150, y0 + 150 - e)　　Circle (x0, y0 - e), 50　　Circle (X1, Y1), 50&l

98、t;/p>　　Circle (X2, Y2), 50　　DrawStyle = 3　　DrawWidth = 1　　Circle (x0, y0 - e), l1 * m　　For i = 0 To 5

99、　　Picture1.DrawWidth = 2　　Picture2.DrawWidth = 2　　Picture1.Line (0, Picture1.ScaleHeight / 2)-(6000, Picture1.ScaleHeight / 2), vbRed　　Picture2.Line (0, Pict

100、ure2.ScaleHeight / 2)-(6000, Picture2.ScaleHeight / 2), vbRed　　Picture2.PSet (t1 * 150, VC * m + 50 + Picture2.ScaleHeight / 2)　　Picture1.PSet (t1 * 150, AC * m + 500 + Picture1.

101、ScaleHeight / 2)　　DrawWidth = 1　　Line (x0 - 150 + i * 50, y0 + 150 - e)-(x0 - 150 + (i - 1) * 50, y0 + 250 - e)　　Next i<p&g

102、t;　　For j = 0 To 20　　DrawWidth = 1　　Line (x0 + 3700 + j * 100, y0)-(x0 + 3700 + (j - 1) * 100, y0 + 200)　　Next j<b

眾賞文庫(kù)> 全部分類(lèi)> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

機(jī)械原理課程設(shè)計(jì)---物料往復(fù)運(yùn)送機(jī)構(gòu)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

機(jī)械原理課程設(shè)計(jì)---物料往復(fù)運(yùn)送機(jī)構(gòu)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載