2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩47頁未讀 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領

文檔簡介

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

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

3、…2</p><p>  3設計計算……………………………………………………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課程設計心得………………………………………………31</p><p>  5參考文獻……………………………

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

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

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

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

9、  取</b></p><p> ?。?)齒輪基本參數(shù)的計算</p><p><b>  嚙合角</b></p><p><b>  標準中心距</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>  (二).導桿機構(gòu)的傳動分析&

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

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

14、t;/p><p>  圖3 導桿機構(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> ?。?)解析法對機構(gòu)進行運動分析</p><p>  圖三:牛頭刨床機構(gòu)的運動分析</p><p>  已知各構(gòu)件的尺寸為主動件1以勻速轉(zhuǎn)動。求構(gòu)件1在方位角時構(gòu)件3的角位移、角速度和角加速度及刨頭5上點的位移、速度和加速度</p>&

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

18、;/b></p><p><b>  展開后可求得</b></p><p>  將代入上式中,得 。進一步將封閉矢量方程對時間求導,得</p><p><b>  展開后可求得</b></p><p>  將代入上式中,得 。進一步將矢量方程對時間求導,得</p><p&g

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

20、展開后可求得</b></p><p>  將求得的代入上式中,得 。進一步將矢量方程對時間求導,得</p><p><b>  展開后可求得</b></p><p>  將求得的、和代入上式中,得 。進一步將封閉矢量方程對時間兩次求導,得</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)進行作圖,l表示構(gòu)件的實際長度,OA表示構(gòu)件在圖樣上的尺寸。作圖時,必須注意µ的大小應選得適當,以保證對機構(gòu)運動完整、準確、清楚的表達,另外應在圖面上留下速度多邊形、加速度多邊形等其他相關(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ā)向遠離原動件方向依次取各構(gòu)件為分離體,利用絕對運動與牽連運動和相對運動關(guān)系矢量方程式,作圖求解。</p><p> ?。?)列出OB桿A點的速度矢量方程 根據(jù)平面運動的構(gòu)件兩點間速度的關(guān)系</p><p>  絕對速度=牽連速度+相對速度</p><p>  先列出構(gòu)件2、4上瞬時重合點A(A,

25、A)的方程,未知數(shù)為兩個,其速度方程:</p><p> ?。帧 。健 +   v</p><p>  方向:丄AO    丄AO  ∥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,方向與v同向.</p><p>  (4)列出C點速度矢量方程,作圖求解V、V</p><p>  V= V+ V</p><p>  方向:水平 丄BO 丄BC</p><p>  大

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

29、;/p><p> ?。矗獯簏c的加速度及其相關(guān)構(gòu)件的角加速度</p><p>  (1)列出C點加速度矢量方程式  牽連速度為移動時</p><p>  絕對加速度=牽連加速度+相對加速度</p><p>  牽連運動為轉(zhuǎn)動時,(由于牽連運動與相對運動相互影響)</p><p>  絕對加速度=牽連加速度+相對加速度+哥

30、氏加速度</p><p>  要求C點加速度,得先求出B點加速度,</p><p>  a= a+ a=  a+ a+ a’+ a</p><p>  方向:?  ∥AB 丄AB ∥AO 丄AO ∥AB 丄AB </p><p>  大?。海俊 ˇ豯  ???  ω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由理論力學可知,點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>  三.設計計算</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 "加速度-藍色 ,速度-綠色, 位移-紅色"</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>  四.課程設計心得</b></p><p>  通過這次課程設計,體會到一分耕耘,一分收獲,耕耘了不一定會有想象中的收獲,但是想要有理想中的收獲必須得辛勤的耕耘。</p><p>  在同學的幫助和自己的努力下,基本完成

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

溫馨提示

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

評論

0/150

提交評論