機械原理課程設(shè)計---牛頭刨床設(shè)計

1、<p><b>　　《機械原理》</b></p><p><b>　　課程設(shè)計說明書</b></p><p>　　專 業(yè) 機械設(shè)計制造及其自化</p><p>　　班 級 </p><p><b>　　學(xué) 生 姓 名 </b></p

2、><p>　　學(xué) 號 </p><p><b>　　指 導(dǎo) 教 師 </b></p><p><b>　　目 錄</b></p><p>　　1題目及原始數(shù)據(jù)……………………………………………1</p><p>　　2設(shè)計原理及方法…………………………………………

3、…2</p><p>　　3設(shè)計計算……………………………………………………5</p><p>　　3.1程序的算法流程圖……………………………………9</p><p>　　3.2程序清單(最好打印)…………………………………12</p><p>　　3.3程序中的符號含義……………………………………15</p><p&g

4、t;　　3.4計算結(jié)果列表…………………………………………18</p><p>　　3.5圖解法計算結(jié)果………………………………………21</p><p>　　3.6解析法與圖解法的結(jié)果比較…………………………26</p><p>　　4課程設(shè)計心得………………………………………………31</p><p>　　5參考文獻(xiàn)……………………………

5、………………………41</p><p>　　牛頭刨床傳動機構(gòu)的設(shè)計及其運動分析</p><p><b>　　題目及原始數(shù)據(jù)</b></p><p>　　機構(gòu)示意圖：該機構(gòu)由齒輪1驅(qū)動齒輪2，在齒輪2上鉸鏈有滑塊A，再由導(dǎo)桿機構(gòu)實現(xiàn)刨刀滑枕的切屑運動。</p><p>　　原始數(shù)據(jù)：（壓力角α=20°，齒頂高系數(shù)

6、ha*=1，徑向間隙系數(shù)c*=0.25）</p><p><b>　　二．設(shè)計原理及方法</b></p><p>　?。ㄒ唬X輪機構(gòu)的傳動分析</p><p><b>　　1.基本要求</b></p><p>　　（1）、按給定的原始數(shù)據(jù),確定機構(gòu)傳動比i,進(jìn)而確定齒輪的基本幾何參數(shù),并確定齒輪機構(gòu)

7、的傳動類型。</p><p>　?。?）、確定齒輪的其他參數(shù),如變位系數(shù)x,中心距分離系數(shù)y,齒頂高變化系數(shù)△y等,計算齒輪副的幾何尺寸:中心距a,分度圓直徑d,齒頂圓直徑da,齒根圓直徑df和基圓直徑db。</p><p>　?。?）、計算機構(gòu)的重合度ε,并驗證小齒輪的齒頂圓齒厚Sa。</p><p><b>　　2.齒輪機構(gòu)設(shè)計</b>&l

8、t;/p><p><b>　?。?）機構(gòu)傳動比</b></p><p><b>　　4</b></p><p>　?。?）齒輪變位系數(shù)的選擇</p><p>　　由于齒輪1的齒數(shù)為14，小于標(biāo)準(zhǔn)齒輪不發(fā)生根切的最少齒數(shù)17， 因此需要變位。</p><p><b>

9、　　取</b></p><p>　　（3）齒輪基本參數(shù)的計算</p><p><b>　　嚙合角</b></p><p><b>　　標(biāo)準(zhǔn)中心距</b></p><p><b>　　實際中心距</b></p><p><b>　　中

10、心距變位系數(shù)</b></p><p><b>　　基圓半徑</b></p><p><b>　　分度圓的齒厚</b></p><p><b>　　齒頂圓半徑</b></p><p><b>　　齒根圓半徑</b></p><

11、p><b>　　齒頂圓上的壓力角</b></p><p><b>　　重合度</b></p><p><b>　　齒輪參數(shù)列表如下：</b></p><p>　　由上述計算可得到齒輪嚙合傳動的重合的大于1，滿足連續(xù)傳動要求</p><p>　?。ǘ畬?dǎo)桿機構(gòu)的傳動分析&

12、lt;/p><p><b>　　1.基本要求</b></p><p>　?。?）按給定的原始數(shù)據(jù),確定機構(gòu)各桿尺寸,采用解析法計算時需列出計算過程和公式。</p><p>　　（2）用解析法分析機構(gòu)的運動,列出機構(gòu)位置方程,位移分析,速度和速度分析的運動方程。</p><p>　?。?）編寫機構(gòu)運動分析的計算機計算的通用源程

13、序,及原始數(shù)據(jù)文件。上機運算,并打印源程序和結(jié)果。</p><p>　?。?）用圖解法分析結(jié)構(gòu)三個瞬時位置(一般是輸出構(gòu)件的二個極限位置和一個任意位置)的運動,作出相應(yīng)機構(gòu)位置圖,速度和加速度圖。</p><p><b>　　2.導(dǎo)桿機構(gòu)的分析</b></p><p>　　如圖3所示的導(dǎo)桿機構(gòu)，取坐標(biāo)系原點與曲柄回轉(zhuǎn)中心重合。經(jīng)過位移分析得&l

14、t;/p><p>　　圖3　導(dǎo)桿機構(gòu)運動分析</p><p><b>　　經(jīng)速度分析得</b></p><p><b>　　經(jīng)加速度分析得</b></p><p>　　3.牛頭刨床機構(gòu)的運動分析</p><p>　?。?）確定機構(gòu)的各桿的尺寸</p><p&g

15、t;<b>　　圖二</b></p><p>　　由K=（180°+θ）/（180°-θ）=1.4 得：θ=180°·(K-1)/（K+1）=28.8°</p><p>　　由α=（180°-θ）/2=75.6° 及cosα= O2A/O2O3 得：O2A=94.502㎜</p>&l

16、t;p>　　由sin(90°-α)=0.5H/O3B 得：O3B=804.21㎜</p><p>　　（2）解析法對機構(gòu)進(jìn)行運動分析</p><p>　　圖三:牛頭刨床機構(gòu)的運動分析</p><p>　　已知各構(gòu)件的尺寸為主動件1以勻速轉(zhuǎn)動。求構(gòu)件1在方位角時構(gòu)件3的角位移、角速度和角加速度及刨頭5上點的位移、速度和加速度</p>&

17、lt;p>　　首先建立如圖3-53所示的坐標(biāo)系，并標(biāo)出各桿的矢量。可以看出該機構(gòu)由兩個機構(gòu)組成：構(gòu)件1、2、3組成導(dǎo)桿機構(gòu)，構(gòu)件3、4、5組成滑塊機構(gòu)。為求解需建立兩個封閉矢量方程和。</p><p>　　對構(gòu)件3的運動分析 </p><p><b>　　由封閉矢量，有</b></p><p><b>　　寫出復(fù)數(shù)形式為<

18、;/b></p><p><b>　　展開后可求得</b></p><p>　　將代入上式中，得 。進(jìn)一步將封閉矢量方程對時間求導(dǎo)，得</p><p><b>　　展開后可求得</b></p><p>　　將代入上式中，得 。進(jìn)一步將矢量方程對時間求導(dǎo)，得</p><p&g

19、t;　　展開后聯(lián)立求解，可得</p><p>　　將有關(guān)參數(shù)代入上式中得，在時，。</p><p>　?。?）刨頭5的運動分析 </p><p><b>　　由封閉矢量，有</b></p><p><b>　　寫出復(fù)數(shù)形式為</b></p><p><b>　　

20、展開后可求得</b></p><p>　　將求得的代入上式中，得 。進(jìn)一步將矢量方程對時間求導(dǎo)，得</p><p><b>　　展開后可求得</b></p><p>　　將求得的、和代入上式中，得 。進(jìn)一步將封閉矢量方程對時間兩次求導(dǎo)，得</p><p><b>　　展開后可求得</b>

21、</p><p>　　將上述已經(jīng)計算出的有關(guān)參數(shù)代入上式可得：，。</p><p>　　以此類推將0到360以每隔5度帶入計算得下表</p><p><b>　?。?）圖解法：</b></p><p>　　1).選取長度比例尺µ，作出機構(gòu)在位置4 的運動簡圖。</p><p>　　選取&

22、#181;=l/OA（m/mm)進(jìn)行作圖，l表示構(gòu)件的實際長度，OA表示構(gòu)件在圖樣上的尺寸。作圖時，必須注意µ的大小應(yīng)選得適當(dāng)，以保證對機構(gòu)運動完整、準(zhǔn)確、清楚的表達(dá)，另外應(yīng)在圖面上留下速度多邊形、加速度多邊形等其他相關(guān)分析圖形的位置。</p><p>　　2.)求原動件上運動副中心A的v＇和a </p><p>　　有ω2=2×3.14×325/60=34.

23、017 rad/s 其轉(zhuǎn)向為順時針方向</p><p>　　v=ω l ＝3.215m/s</p><p>　　式中v——B點速度（m/s） 方向丄AO</p><p>　　a=ω l=6.247m/s</p><p>　　式中a——A點加速度（m/s）,方向A →O</p><p>　　3.解待求點的速度及其相關(guān)構(gòu)

24、件的角速度</p><p>　　由原動件出發(fā)向遠(yuǎn)離原動件方向依次取各構(gòu)件為分離體，利用絕對運動與牽連運動和相對運動關(guān)系矢量方程式，作圖求解。</p><p>　?。?）列出OB桿A點的速度矢量方程 根據(jù)平面運動的構(gòu)件兩點間速度的關(guān)系</p><p>　　絕對速度=牽連速度+相對速度</p><p>　　先列出構(gòu)件２、４上瞬時重合點Ａ（Ａ，

25、Ａ）的方程，未知數(shù)為兩個，其速度方程：</p><p>　?。帧　。健　+ 　　v</p><p>　　方向：丄ＡＯ　　　　丄AO　　∥ＡＯ</p><p>　　大?。骸。俊　　　　ˇ?l　　　??？</p><p>　?。ǎ玻┒ǔ鏊俣缺壤摺　≡趫D紙中，取p為速度極點，取矢量pa代表v,則速度比例尺µ（m? s/mm）</p

26、><p>　　µ==0.002 m?s/mm</p><p>　?。ǎ常┳魉俣榷噙呅?，求出ω、ω根據(jù)矢量方程式作出速度多邊形的pd部分，則v (m/s)為</p><p>　　v=µpa=0.829m/s</p><p>　　ω= v/ l=1.3rad/s</p><p>　　其轉(zhuǎn)向為順時針方向。&l

27、t;/p><p>　?。帧?ωl=0.612 m/s</p><p>　　B點速度為Ｖ，方向與v同向.</p><p>　?。ǎ矗┝谐鯟點速度矢量方程，作圖求解V、V</p><p>　　V= Ｖ+ V</p><p>　　方向：水平 丄BＯ 丄BC</p><p>　　大

28、?。海?ωl ？</p><p>　　通過作圖，確定Ｃ點速度為</p><p>　　V=µbc=0.2909m/s</p><p>　　V＝µpc=1.2207m/s</p><p>　　式中V——Ｃ點速度，方向丄BC</p><p>　　式中V——Ｃ點速度，方向為p→c。<

29、;/p><p>　　４．解待求點的加速度及其相關(guān)構(gòu)件的角加速度</p><p>　?。ǎ保┝谐觯命c加速度矢量方程式　　牽連速度為移動時</p><p>　　絕對加速度＝牽連加速度＋相對加速度</p><p>　　牽連運動為轉(zhuǎn)動時，（由于牽連運動與相對運動相互影響）</p><p>　　絕對加速度＝牽連加速度＋相對加速度＋哥

30、氏加速度</p><p>　　要求Ｃ點加速度，得先求出Ｂ點加速度，</p><p>　　a= a+ a=　 a+ a+ a’+ a</p><p>　　方向：？　　∥ＡＢ　丄ＡＢ　∥AO　丄AO　∥ＡＢ　丄ＡＢ　</p><p>　　大?。?？　　ωl　　　？　　ωl 0 ? 2ωv</p>

31、<p>　　(2)定出加速度比例尺　　在一號圖紙中取p為加速度極點，去矢量pa’代表a，則加速度比例尺µ（m?s/mm）</p><p>　　µ==0.219 m/s/mm</p><p>　　(3)作加速度多邊形，求出a、a、a根據(jù)矢量方程圖的pa’nka部分，則 a=µa＇a=0.7949 m/s</p>

32、<p>　　a’=µka=6.247m/s</p><p>　　a=µpa=0.519 rad/s 方向為 水平向右下12º</p><p>　　a= a? l/ l=3.279m/s</p><p>　　a=ω? l=1.225 m/s</p><p>　　(4)列出C點加速度矢量方程，作圖求解

33、a 、a、 a</p><p>　　a = a+ a+ a+ a</p><p>　　方向： 水平 ∥BC 丄BC ∥AB 丄AB</p><p>　　大小： ？ V/l ? ωl al/ l</p><p><b>　　由上式可得：</b><

34、;/p><p>　　a=0.0.15m/s</p><p>　　a=0.178m/s</p><p>　　確定構(gòu)件4的角加速度a4由理論力學(xué)可知，點A4的絕對加速度與其重合點A3的絕對加速度之間的關(guān)系為 </p><p>　　方向：⊥O4B ∥O4B ∥ O4B ⊥O4A ∥O2A </p><

35、p>　　大?。?？ lo2A ? 24Va4a3 lo2A</p><p>　　其中a法向和切向加速度。a為科氏加速度。</p><p>　　從任意極點O連續(xù)作矢量O和k’代表aA3和科氏加速度，其加速度比例尺1:0.219；再過點o作矢量oa4”代表a，然后過點k’作直線k’a’4平行于線段oa4”代表相對加速度的方向線，并過點a4’’作直線a4’’a4’垂直與線段k’a’

36、4，代表a的方向線，它們相交于a4’，則矢量oa4’便代表a4。</p><p>　　構(gòu)件3的角加速度為a/lO4A</p><p>　　將代表a的矢量k’a’4平移到機構(gòu)圖上的點A4，可知4的方向為逆時針方向。</p><p>　　根據(jù)以上方法同樣可以求出位置九的速度和加速度</p><p><b>　　5</b>&l

37、t;/p><p><b>　　三.設(shè)計計算</b></p><p>　　3.1程序的算法流程圖</p><p><b>　　3.2程序清單</b></p><p><b>　　電算的程序</b></p><p><b>　　FORM1</b&

38、gt;</p><p>　　Private Sub Command1_Click()</p><p>　　Form2.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Su

39、b Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p><b>　　FORM2</b></p><p>　　Option Explicit</p><p>　　

40、Dim n1, n2, m, z1, z2, l1, h, k, l2, l3, l4, l5, φ As Double</p><p>　　Dim v(), a(), sh() As Double</p><p>　　Dim d1, d2, ha, hf, hq, da1, da2, df1, df2, db1, db2, p, s, e, ao, c As Double</p&g

41、t;<p>　　Dim hap, cp, α, i, θ, ω1, φ1, x1, x2, ch, sa, hgAs Double</p><p>　　Const pi = 3.1416</p><p>　　Private Sub Command1_Click()</p><p>　　Picture1.Cls</p><p>　

42、　If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text =

43、"" Or Text9.Text = "" Or Text10.Text = "" Then</p><p><b>　　Beep</b></p><p>　　MsgBox "請輸入全部數(shù)據(jù)！", 48, "提示！"</p><p><b&

44、gt;　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　n1 = Val(Text1.Text)</p><p>　　m = Val(Text2.Text)</p><p>　　z1 = Val(Text3.Text)</p><p>

45、　　z2 = Val(Text4.Text)</p><p>　　l1 = Val(Text5.Text)</p><p>　　h = Val(Text6.Text)</p><p>　　k = Val(Text7.Text)</p><p>　　l2 = Val(Text8.Text)</p><p>　　l3 =

46、Val(Text9.Text)</p><p>　　φ = Val(Text10.Text)</p><p><b>　　α = 20</b></p><p><b>　　hap = 1</b></p><p><b>　　cp = 0.25</b></p>&l

47、t;p>　　Dim aa1, aa2, aa3 As Double</p><p>　　i = z2 / z1</p><p>　　d1 = m * z1: d2 = m * z2</p><p>　　ha = hap * m</p><p>　　hf = (hap + cp) * m</p><p>

48、　　hg = ha + hf</p><p>　　da1 = d1 + 2 * hap * m: da2 = d2 + 2 * hap * m</p><p>　　df1 = d1 - 2 * hf: df2 = d2 - 2 * hf</p><p>　　db1 = d1 * Cos(α * pi / 180): db2 = d2 * Cos(α

49、* pi / 180)</p><p>　　p = pi * m</p><p><b>　　s = p / 2</b></p><p><b>　　e = s</b></p><p>　　ao = (d1 + d2) / 2</p><p>　　c = cp * m<

50、/p><p>　　θ = 180 * ((k - 1) / (k + 1))</p><p>　　x1 = (17 - z1) / 17</p><p>　　x2 = (17 - z2) / 17</p><p>　　aa1 = Atn(da1 * Sqr(1 - (db1 / da1) ^ 2) / db1)</p><p&

51、gt;　　aa2 = Atn(da2 * Sqr(1 - (db2 / da2) ^ 2) / db2)</p><p><b>　　aa3 = aa1</b></p><p>　　ch = 0.5 * (z1 * (Tan(aa1) - Tan(α * pi / 180)) + z2 * (Tan(aa2) - Tan(α * pi / 180))) / pi<

52、;/p><p>　　sa = (pi * m / 2) * da1 / d1 - da1 * (Tan(aa3) - aa3 - Tan(α * pi / 180) + pi / 9)</p><p>　　l4 = l3 * Sin(θ * pi / 360)</p><p>　　l5 = h / (2 * Sin(θ * pi / 360))</p>&

53、lt;p>　　n2 = z1 / z2 * n1</p><p>　　ω1 = n2 * 360 * pi /175/ 60</p><p>　　ReDim Preserve sh(0 To 360), v(0 To 360), a(0 To 360)</p><p>　　For φ1 = 0 To 360</p><p>　　Call

54、 www(φ1, v(φ1), sh(φ1), a(φ1))</p><p><b>　　Next φ1</b></p><p>　　Text11.Text = v(φ)</p><p>　　Text11.Text = sh(φ)</p><p>　　Text11.Text = a(φ)</p><p

55、>　　Command3.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled = True</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = True</p&

56、gt;<p>　　Command9.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End

57、Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Picture1.Cls</p><p>　　Picture1.Print "齒輪1分度圓直徑="; d1</p><p>　　Picture1.Print "齒輪2分度圓直徑="

58、;; d2</p><p>　　Picture1.Print "齒頂高="; ha</p><p>　　Picture1.Print "齒根高="; hf</p><p>　　Picture1.Print "齒全高="; ho</p><p>　　Picture1.Print &qu

59、ot;齒輪1齒頂圓直徑="; da1</p><p>　　Picture1.Print "齒輪2齒頂圓直徑="; da2</p><p>　　Picture1.Print "齒輪1齒根圓直徑="; df1</p><p>　　Picture1.Print "齒輪2齒根圓直徑="; df2</

60、p><p>　　Picture1.Print "齒輪1基圓直徑="; db1</p><p>　　Picture1.Print "齒輪2基圓直徑="; db2</p><p>　　Picture1.Print "齒距="; p</p><p>　　Picture1.Print "

61、;齒厚="; s</p><p>　　Picture1.Print "齒槽寬="; E</p><p>　　Picture1.Print "齒輪1,2中心距="; ao</p><p>　　Picture1.Print "頂隙="; c</p><p>　　Picture1

62、.Print "齒輪1,2傳動比="; i</p><p>　　Picture1.Print "極位夾角="; θ</p><p>　　Picture1.Print "齒輪1變位系數(shù)X1 = "; x1</p><p>　　Picture1.Print "齒輪2變位系數(shù)X2 ="; x2

63、</p><p>　　Picture1.Print "重合度Ch="; ch</p><p>　　Picture1.Print "小齒輪頂寬="; sa</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()

64、</p><p>　　Picture1.Cls</p><p>　　Picture1.Print "連桿O2A的長度="; l4; "mm"</p><p>　　Picture1.Print "連桿O3B的長度="; l5; "mm"</p><p><b&

65、gt;　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　Dim β, γ As Single</p><p>　　Picture1.Cls</p><p>　　Picture1.DrawWidth = 2</p><p>　　β =

66、 Atn((380 + 108.16 * Sin(γ)) / (108.16 * Cos(γ)))</p><p>　　If γ > 1.57 And γ <= 4.71 Then</p><p>　　β = β + 3.14</p><p><b>　　End If</b></p><p>　　Pictur

67、e1.Circle (2500, 1500), 174 * 3, RGB(0, 0, 255)</p><p>　　Picture1.Circle (2500 - 540, 1500 + 358.2), 42 * 3, RGB(0, 0, 255)</p><p>　　Picture1.Line (2500, 2640)-Step(1500, 0), RGB(255, 0, 0)</

68、p><p>　　Picture1.Line (2500, 2640)-Step(0, -2200), RGB(255, 0, 0)</p><p>　　Picture1.Line (2500, 2640)-Step(3 * l5 * Cos(β), -3 * l5 * Sin(β))</p><p>　　Picture1.Line (2500, 1500)-Step(3

69、 * 108.16 * Cos(γ), -3 * 108.16 * Sin(γ))</p><p>　　Picture1.Line (2500 + 3 * l5 * Cos(β) - 1700, 270)-Step(3300, 0)</p><p>　　Picture1.Line (2500 + 3 * l5 * Cos(β), 270)-Step(0, 450)</p>&

70、lt;p>　　Picture1.Circle (2500 + 3 * l5 * Cos(β), 2640 - 3 * l5 * Sin(β)), 20</p><p>　　Picture1.Line (2500 + 3 * l5 * Cos(β) - 60, 2640 - 3 * l5 * Sin(β) - 80)-Step(120, 160), , B</p><p>　　Pict

71、ure1.Circle (2500 + 3 * 108.16 * Cos(γ), 1500 - 3 * 108.16 * Sin(γ)), 20</p><p>　　Picture1.Line (2500 + 3 * 108.16 * Cos(γ) + 100 * Cos(β - 0.64), 1500 - 3 * 108.16 * Sin(γ) - 100 * Sin(β - 0.64))-Step(-160

72、* Cos(β), 160 * Sin(β))</p><p>　　Picture1.Line -Step(-120 * Cos(1.57 - β), -120 * Sin(1.57 - β))</p><p>　　Picture1.Line -Step(160 * Cos(β), -160 * Sin(β))</p><p>　　Picture1.Line -St

73、ep(120 * Cos(1.57 - β), 120 * Sin(1.57 - β))</p><p>　　γ = γ + 0.34</p><p>　　If γ > 6.28 Then γ = γ Mod 3.14</p><p><b>　　End Sub</b></p><p>　　Private Sub

74、Command7_Click()</p><p>　　For φ = 0 To 360 Step 10</p><p>　　Picture1.Print "φ="; φ; sd(φ); a(φ); v(φ)</p><p><b>　　Next φ</b></p><p><b>　　End

75、 Sub</b></p><p>　　Private Sub Command8_Click()</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Public Sub www(n, V1, S1, A1)</p><p>

76、　　Dim Q, ω3, ε3, s3, φ3, s21 As Single</p><p>　　Q = n * pi / 180</p><p>　　φ3 = Atn((l3 + l4 * Sin(Q))) / (l4 * Cos(Q))</p><p>　　If n > 90 And n < 270 Then</p><p>

77、　　φ3 = φ3 + pi</p><p><b>　　End If</b></p><p>　　s3 = l4 * Cos(Q) / Cos(φ3)</p><p>　　ω3 = l4 * ω1 * Cos(φ3 - Q) / s3</p><p>　　s21 = -ω1 * l4 * Sin(φ1 - φ3)<

78、;/p><p>　　ε3 = (l4 * ω1 ^ 2 * Sin(φ3 - Q) - 2 * ω3 * s21) / s3</p><p>　　V1 = -ω3 * l5 * Sin(φ3)</p><p>　　S1 = l5 * Cos(φ3)</p><p>　　A1 = -ω3 * l5 * Cos(φ3 * ω3) - l5 * ε3

79、* Sin(ω3)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p><p>　　Picture1.Line (0, 1400)-(5000, 1400)</p><p>　　Picture1.Line (5000, 1400)-(4

80、800, 1300)</p><p>　　Picture1.Line (5000, 1400)-(4800, 1500)</p><p>　　Picture1.Line (100, 2500)-(100, 100)</p><p>　　Picture1.Line (100, 100)-(0, 200)</p><p>　　Picture1.L

81、ine (100, 100)-(200, 200)</p><p>　　Rem(運動圖線生成程序)</p><p>　　Dim a0 As Double, b0 As Double, c0 As Double, D0 As Double, E0 As Double</p><p>　　Dim F0 As Double, G0 As Double, w0 As Dou

82、ble, p0 As Double, l0 As Double, v0 As Single</p><p>　　Dim i0 As Single, h0 As String, j0 As String, k0 As String, m0 As String, s0 As Single</p><p>　　Dim n0 As String, O0 As String, Q0 As Strin

83、g, r0 As Double, t0 As Double, z0 As Single</p><p>　　l0 = 108.16: p0 = 738.09: c0 = -72.41</p><p>　　For i0 = 0 To 360 Step 0.01</p><p>　　r0 = i0 * 3.14159265 / 180</p><p&

84、gt;　　t0 = c0 * 2 * 3.14159265 / 60</p><p>　　a0 = Atn((380 + l0 * Sin(r0)) / (l0 * Cos(r0)))</p><p>　　If i0 >= 90 And i0 <= 270 Then</p><p>　　a0 = a0 + 3.14159265</p>&l

85、t;p><b>　　End If</b></p><p>　　s0 = l0 * Cos(r0) / Cos(a0)</p><p>　　w0 = l0 * t0 * Cos(a0 - r0) / s0</p><p>　　v0 = -l0 * t0 * Sin(r0 - a0)</p><p>　　D0 = (l

86、0 * t0 * t0 * Sin(a0 - r0) - 2 * s0 * w0) / s0</p><p>　　E0 = p0 * Cos(a0)</p><p>　　F0 = -p0 * w0 * Sin(a0)</p><p>　　G0 = -p0 * w0 * Cos(a0 * w0) - p0 * D0 * Sin(a0)</p><p

87、>　　Picture1.PSet (i0 * 10 + 100, 1200 + F0 / 2), RGB(0, 255, 0)</p><p>　　Picture1.PSet (i0 * 10 + 100, 1200 + G0 / 15), RGB(0, 0, 255)</p><p>　　Picture1.PSet (i0 * 10 + 100, 1200 + E0), RGB(2

88、55, 0, 0)</p><p><b>　　Next i0</b></p><p>　　Picture1.Print</p><p>　　Picture1.Print</p><p>　　Picture1.Print</p><p>　　Picture1.Print</p>&l

89、t;p>　　Picture1.Print</p><p>　　Picture1.Print</p><p>　　Picture1.Print "加速度-藍(lán)色 ,速度-綠色, 位移-紅色"</p><p><b>　　End Sub</b></p><p><b>　　FORM3<

90、/b></p><p>　　Dim a As Single, b As Single, c As Single</p><p>　　Private Sub Command1_Click()</p><p>　　Timer1.Enabled = True</p><p><b>　　End Sub</b></p

91、><p>　　Private Sub Command2_Click()</p><p>　　Timer1.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Form1.S

92、how</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　DrawWidth = 2</p><p><b>　　

93、Cls</b></p><p>　　l = 738.09</p><p>　　a = Atn((360+ 108.16 * Sin(b)) / (108.16 * Cos(b)))</p><p>　　If b > 1.57 And b <= 4.71 Then</p><p>　　a = a + 3.14</p

94、><p><b>　　End If</b></p><p>　　Circle (2500, 1500), 174 * 3, RGB(0, 0, 255)</p><p>　　Circle (2500 - 540, 1500 + 358.2), 42 * 3, RGB(0, 0, 255)</p><p>　　Line (25

95、00, 2640)-Step(1500, 0), RGB(255, 0, 0)</p><p>　　Line (2500, 2640)-Step(0, -2200), RGB(255, 0, 0)</p><p>　　Line (2500, 2640)-Step(3 * l * Cos(a), -3 * l * Sin(a))</p><p>　　Line (250

96、0, 1500)-Step(3 * 108.16 * Cos(b), -3 * 108.16 * Sin(b))</p><p>　　Line (2500 + 3 * l * Cos(a) - 1700, 270)-Step(3300, 0)</p><p>　　Line (2500 + 3 * l * Cos(a), 270)-Step(0, 450)</p><p&

97、gt;　　Circle (2500 + 3 * l * Cos(a), 2640 - 3 * l * Sin(a)), 20</p><p>　　Line (2500 + 3 * l * Cos(a) - 60, 2640 - 3 * l * Sin(a) - 80)-Step(120, 160), , B</p><p>　　Circle (2500 + 3 * 108.16 * Cos

98、(b), 1500 - 3 * 108.16 * Sin(b)), 20</p><p>　　Line (2500 + 3 * 108.16 * Cos(b) + 100 * Cos(a - 0.64), 1500 - 3 * 108.16 * Sin(b) - 100 * Sin(a - 0.64))-Step(-160 * Cos(a), 160 * Sin(a))</p><p>　

99、　Line -Step(-120 * Cos(1.57 - a), -120 * Sin(1.57 - a))</p><p>　　Line -Step(160 * Cos(a), -160 * Sin(a))</p><p>　　Line -Step(120 * Cos(1.57 - a), 120 * Sin(1.57 - a))</p><p>　　b = b

100、 + 0.34</p><p>　　If b > 6.28 Then b = b Mod 3.14</p><p><b>　　End Sub</b></p><p>　　3.3程序中的符號含義</p><p><b>　　3.4計算結(jié)果列表</b></p><p>　

101、　3.5圖解法計算結(jié)果</p><p>　　3.6解析法與圖解法的結(jié)果比較</p><p><b>　　四．課程設(shè)計心得</b></p><p>　　通過這次課程設(shè)計，體會到一分耕耘，一分收獲，耕耘了不一定會有想象中的收獲，但是想要有理想中的收獲必須得辛勤的耕耘。</p><p>　　在同學(xué)的幫助和自己的努力下，基本完成

102、了這份課程設(shè)計，心中卻沒有一點成就感，因為過程中我發(fā)現(xiàn)了自己很多的不足-----理論和實踐的缺乏。完成這份課程設(shè)計，不是以前學(xué)的VB知識就足矣，還需要耐心，細(xì)心，和一種真誠的態(tài)度。將平時學(xué)的機械原理用來完成這份設(shè)計，是對課本理論的實踐，也考研了我們對知識的掌握和運用程度。</p><p>　　相信在這課程設(shè)計之后，我們得到不僅是一份說明書，還有對知識的進(jìn)一步認(rèn)識和鞏固，還有同學(xué)朋友之間的互幫互助和配合。</