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

下載本文檔

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

文檔簡介

1、<p><b>  目錄</b></p><p><b>  第一章</b></p><p>  1-1:摘要………………………………………………3</p><p>  1-2:前言………………………………………………3</p><p><b>  第二章</b>&l

2、t;/p><p>  2-1:設計題目…………………………………………4</p><p>  2-2:運動方案的擬定與比較…………………………4</p><p>  2-3:機械運動簡圖……………. ……………………… 6 </p><p>  2-4:機構(gòu)結(jié)構(gòu)分析……. ……. ……. ……. ……. ……7</p><p

3、>  2-5: 機構(gòu)運動分析…………………………………. …8</p><p><b>  第三章</b></p><p>  3-1:參考文獻…………………………………………10</p><p>  3-2:致謝………………………………………………10</p><p><b>  3-3:附錄</

4、b></p><p>  附錄(一):程序框圖……………………………11</p><p>  附錄(二):VB程序代碼………………………11</p><p>  附錄(三):曲線圖及程序運行截圖……………19</p><p><b>  第一章</b></p><p><b>  

5、1-1:摘要</b></p><p><b>  中文摘要:</b></p><p>  本文通過擬定機械運動方案、按照機械的幾何、運動、動力、軌跡等性能要求進行低副運動機構(gòu)、運動尺寸的設計,所選擇的機構(gòu)是曲柄滑塊機構(gòu),并對起進行運動分析和動態(tài)靜力分析及利用計算機(VB)完成機械運動方案和機構(gòu)運動簡圖的繪制。通過課程設計進一步鞏固和加深機械原理課程的理論知

6、識;培養(yǎng)解決實際工程問題的能力,掌握機械運動、動力分析和設計的基本方法,進一步提高學生的工程設計能力。</p><p><b>  英文摘要:</b></p><p>  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</p><p><b>  1-2:前言&

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

10、法,以及按已知條件來設計新的機構(gòu)的方法.</p><p><b>  第二章</b></p><p><b>  2-1、設計題目</b></p><p>  1、設計一物料往復運送機構(gòu)</p><p><b>  2、設計條件和要求</b></p><p&

11、gt;  如圖(1),將物料由A位置推送到B位置</p><p><b>  圖(1)</b></p><p>  已知最大行程H=60mm ,無急回特性要求。</p><p>  2-2、運動方案的擬定與比較</p><p><b>  1、凸輪機構(gòu)</b></p><p>

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

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

14、t;<b>  原理和特點:</b></p><p>  當曲柄整周回轉(zhuǎn)時,滑塊往復移動。對心曲柄滑塊機構(gòu)的滑塊最大</p><p>  行程s為曲柄長度的兩倍,若增加曲柄長度,可以增大行程。</p><p>  偏置的曲柄滑塊機構(gòu)具有急回特性,當曲柄長度或偏心距增大時,</p><p>  急回特性顯著,而連桿長度減小

15、時,急回特性減緩。 </p><p>  其優(yōu)點是制造簡單,能適合于各種場合的受力,潤滑簡單,維修方便。常應用于手動沖孔鉗、車門啟閉機構(gòu)等。 </p><p><b>  正弦機構(gòu)</b></p><p><b>  圖(4)</b></p><p><b>  原理和特點:</

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

17、動簡圖</p><p>  該裝置是用曲柄滑塊機構(gòu)做成的,將曲柄的轉(zhuǎn)動轉(zhuǎn)化為往復移動,在本次研究中采用的是對心曲柄滑塊機構(gòu),偏心距等于零,導路中心通過曲柄轉(zhuǎn)動中心.最終起到將物料移動的作用. </p><p><b>  圖(5)</b></p><p><b>  圖(6)</b></p><p>

18、;  如圖(5)、圖(6)所示,即為機構(gòu)運動時物料的運動過程。</p><p>  2-4、機構(gòu)結(jié)構(gòu)分析</p><p><b>  圖(7)</b></p><p>  圖中桿AB為一曲柄,以AB為原動件,帶動滑塊移動,從而實現(xiàn)將物料從a位置送到b位置. (附VB動畫演示)</p><p><b>  機構(gòu)綜

19、合分析:</b></p><p>  此機構(gòu)是通過電機帶動曲柄AB做整周轉(zhuǎn)動,帶動BC做如圖所示曲線的擺動,從而使滑塊C沿機架做往復的移動.</p><p>  活動構(gòu)件N=3,低副PL=4,高副=0.所以此機構(gòu)的自由度F=3x3-2x4=1.</p><p>  此機構(gòu)取e=0為對心曲柄滑塊機構(gòu).</p><p>  機構(gòu)各桿尺

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

21、;<b> ?。?)</b></p><p>  展開后分別取虛部和實部得:</p><p><b>  即: </b></p><p><b> ?。?)</b></p><p><b> ?。?)</b></p><p><

22、;b>  3、速度分析</b></p><p>  將式(1)對時間求導得</p><p> ?。?) </p><p>  兩邊乘以 后,展開取實部得</p><p> ?。?) </p><p>  將式(4)展開后取虛部得:</

23、p><p><b>  即:</b></p><p><b>  (6)</b></p><p><b>  4、加速度分析</b></p><p>  將式(4)對時間求導得</p><p><b> ?。?)</b></p&g

24、t;<p>  兩邊乘以 ,展開后取實部得:</p><p><b> ?。?0)</b></p><p>  將(g)展開后取虛部得:</p><p><b> ?。?1)</b></p><p>  在某種情況下,例如在計算往復原動機慢性力的平衡時,只需知道滑塊近似加速度時,便

25、可按下面方法來計算求解。</p><p><b>  由式(2)得</b></p><p>  式中為曲柄與連桿長度之比,由</p><p>  利用利用牛頓二項式定理展開成級數(shù)得:</p><p>  這個級數(shù)收斂得很快,當時,取其前兩項便可準確到小數(shù)點后三位數(shù)字.因此將</p><p>  代

26、入式(3),經(jīng)整理后得距離的近似值為</p><p>  在將上式對時間求導,測得速度和加速度的近似值為:</p><p><b>  第三章</b></p><p><b>  3-1、參考文獻</b></p><p>  1.《機械原理與設計課程設計》 王三民主編 機械工業(yè)出版社 公開出版 20

27、05年。</p><p>  2.《機械原理》(第七版) 鄭文緯 吳克堅主編 高等教育出版社 公開出版 1997年。</p><p>  3.《Visual Basic 6.0入門與提高》 王欽編著 人民郵電出版社 公開出版 2002年。</p><p>  4.《Visual Basic程序設計》 王漢新編著 科學出版社 公開出版 2002年。</p>

28、<p><b>  3-2、</b></p><p><b>  致謝</b></p><p>  此次課程設計使我對機械原理的學習有了更深的了解,以前很多不明白之</p><p>  處,在課程設計中得到了解決為以后的學習打下了基礎。</p><p>  此次課程設計徐建生老師提供了

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

30、><p><b>  附錄(1):</b></p><p><b>  程序框圖:</b></p><p><b>  附錄(2):</b></p><p><b>  VB程序代碼:</b></p><p><b>  子程

31、序:</b></p><p>  Private Sub Label4_Click()</p><p>  Form2.Show</p><p><b>  End Sub</b></p><p>  Private Sub Label5_Click()</p><p><b&g

32、t;  End</b></p><p><b>  End Sub</b></p><p><b>  主程序:</b></p><p>  Dim t1 As Double</p><p>  Const pi = 3.14159</p><p>  Priva

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

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

35、lick()</p><p><b>  End</b></p><p><b>  End Sub</b></p><p>  Private Sub Command4_Click()</p><p><b>  m = 50</b></p><p>

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

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

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

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

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

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

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

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

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

45、d = True</p><p>  Timer2.Enabled = False</p><p><b>  End Sub</b></p><p>  Private Sub Command6_Click()</p><p>  Text1.Text = 60</p><p>  Text2.

46、Text = 0.32</p><p>  Text3.Text = 0</p><p><b>  End Sub</b></p><p>  Private Sub Command7_Click()</p><p>  Text1.Text = 60</p><p>  Text2.Text

47、= 0.32</p><p>  Text3.Text = 20</p><p><b>  End Sub</b></p><p>  Private Sub Command8_Click()</p><p>  Timer1.Enabled = False</p><p>  Timer2.E

48、nabled = False</p><p>  Form1.Show</p><p><b>  End Sub</b></p><p>  Private Sub Timer1_Timer()</p><p><b>  m = 50</b></p><p>  h =

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

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

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

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

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

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

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

56、<p>  Line (x0 - 150, y0 + 150)-(x0, y0)</p><p>  Line -(x0 + 150, y0 + 150)</p><p>  Line -(x0 - 150, y0 + 150)</p><p>  Circle (x0, y0), 50</p><p>  Circle (X1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

96、, Y2 - 100)-(X2 + 200, Y2 - 100)</p><p>  Line -(X2 + 200, Y2 + 100)</p><p>  Line -(X2 - 200, Y2 + 100)</p><p>  Line -(X2 - 200, Y2 - 100)</p><p>  Line (x0 - 150, y0

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

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

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

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

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

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

溫馨提示

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

評論

0/150

提交評論