材料力學課程設(shè)計---hz140tr2后置旅游車底盤車架

1、<p><b>　　材料力學課程設(shè)計</b></p><p>　　后置旅游車底盤車架的靜力學分析及強度、剛度計算</p><p>　　專業(yè)：土木工程（路橋）</p><p><b>　　指導(dǎo)老師：</b></p><p><b>　　姓名： </b><

2、;/p><p><b>　　班級：班</b></p><p><b>　　學號：</b></p><p><b>　　目錄</b></p><p>　　材料力學課程設(shè)計1</p><p>　　一、材料力學課程設(shè)計的目的1</p>

3、<p>　　二、材料力學課程設(shè)計的任務(wù)和要求1</p><p>　　1、設(shè)計計算說明書的要求1</p><p>　　2、分析討論及說明部分的要求2</p><p>　　3、程序計算部分的要求2</p><p><b>　　三、設(shè)計題目2</b></p><p><b&g

4、t;　　1、求支座反力4</b></p><p>　　2、畫出車架的內(nèi)力圖7</p><p>　　3、畫出各截面上彎曲正應(yīng)力最大值沿軸線方向的變化曲線9</p><p>　　4、求出最大繞度的值，畫出車架擾曲線的大致形狀10</p><p>　　5、按等截面梁重新設(shè)定截面尺寸12</p><p>

5、<b>　　四、程序計算13</b></p><p><b>　　1、vb程序13</b></p><p>　　2、結(jié)構(gòu)力學求解器程序24</p><p><b>　　五、設(shè)計體會27</b></p><p><b>　　體會27</b><

6、/p><p><b>　　參考文獻28</b></p><p>　　材料力學課程設(shè)計的目的</p><p>　　本課程設(shè)計的目的是在于系統(tǒng)學習完材料力學之后，能結(jié)合工程中的實際問題，運用材料力學的基本理論和計算方法，獨立的計算工程中的典型零部件，以達到綜合運用材料力學的知識解決實際問題的目的。同時，可以使學生將材料力學的理論和現(xiàn)代計算方法及手段融

7、為一體。既從整體上掌握了基本理論和現(xiàn)代的計算方法，又提高了分析問題、解決問題的能力，既是為以前所學知識（高等數(shù)學、工程圖學、理論力學、算法語言、計算機和材料力學等）的綜合應(yīng)用，又為后繼課程（零件、專業(yè)課等）打下基礎(chǔ)，并初步掌握工程中的設(shè)計思想和設(shè)計方法，對實際工作能力有所提高。具體的有以下六項：</p><p>　　1.使學生的材料力學知識系統(tǒng)化完整化；</p><p>　　2.　在全面

8、復(fù)習的基礎(chǔ)上，運用材料力學知識解決工程中的實際問題；</p><p>　　3.　由于選題力求結(jié)合專業(yè)實際，因而課程設(shè)計可以把材料力學知識與專業(yè)需要結(jié)合起來；</p><p>　　4.　綜合運用以前所學習的各門課程的知識（高等數(shù)學、工程圖學、理論力學、算法語言、計算機和材料力學等），使相關(guān)學科的只是有機的聯(lián)系起來；</p><p>　　5.初步了解和掌握工程實踐中的

9、設(shè)計思想和設(shè)計方法；</p><p>　　6.為后續(xù)課程的教學打下基礎(chǔ)。</p><p>　　材料力學課程設(shè)計的任務(wù)和要求</p><p>　　參加設(shè)計者要系統(tǒng)復(fù)習材料力學課程的全部基本理論和方法，獨立分析、判斷設(shè)計題目的已知條件和所求問題，畫出受力分析計算簡圖和內(nèi)力圖，列出理論依據(jù)并導(dǎo)出計算公式，獨立編制計算機程序，通過計算機給出計算結(jié)果并完成了設(shè)計說明書。&l

10、t;/p><p>　　１、設(shè)計計算說明書的要求</p><p>　　設(shè)計計算說明書是該題目設(shè)計思想、設(shè)計方法和設(shè)計結(jié)果的說明，要求書寫工整，語言簡潔，條理清晰、明確，表達完整。具體內(nèi)容應(yīng)包括：</p><p>　　1．設(shè)計題目的已知條件、所求及零件圖。</p><p>　　2．畫出構(gòu)件的受力分析計算簡圖，按比例標明尺寸、載荷及支座等。　</

11、p><p>　　3. 靜不定結(jié)構(gòu)要畫出所選擇的基本靜定系統(tǒng)及與之相應(yīng)的全部求解過程。</p><p>　　4. 畫出全部內(nèi)力圖，并表面可能的各危險截面。</p><p>　　5. 各危險截面上各種應(yīng)力的分布規(guī)律圖及由此判定各危險點處的應(yīng)力狀態(tài)圖。</p><p>　　6. 各危險點的主應(yīng)力大小及主平面的位置。</p><p&g

12、t;　　7. 選擇強度理論并建立強度條件。</p><p>　　8. 列出全部計算過程的理論依據(jù)、公式推導(dǎo)過程及必要的說明。</p><p>　　9. 對變形及剛度分析要寫明所用的能量法計算過程及必要的內(nèi)力圖和單位力圖。</p><p>　　10. 疲勞強度計算部分要說明循環(huán)特征，бmax，бmin，r，бm，бa的計算，所查各系數(shù)的，ｋ,ε，β依據(jù)，疲勞強度校核過

13、程及結(jié)果，并繪出構(gòu)件的持久曲線。</p><p>　　2、分析討論及說明部分的要求</p><p>　　1. 分析計算結(jié)果是否合理，并討論其原因、改進措施。</p><p>　　2. 提出改進設(shè)計的初步方案及設(shè)想。</p><p>　　3. 提高強度、剛度及穩(wěn)定性的措施及建議。</p><p>　　3、程序計算部分的要

14、求</p><p><b>　　1. 程序框圖。</b></p><p>　　2. 計算機程序（含必要的說明語言及標識符說明）。</p><p>　　3. 打印結(jié)果（數(shù)據(jù)結(jié)果要填寫到設(shè)計計算說明書上）。</p><p><b>　　設(shè)計題目</b></p><p>　　HZ1

15、40TR2后置旅游車底盤車架簡化后如下圖所示。滿載時受重力FA作用，后部受重力FB作用，乘客區(qū)均布載荷為q（含部分車身重），梁為變截面梁。計算過程中忽略圓角影響，并把梁抽象為等厚閉口薄壁矩形截面的階梯梁。材料的彈性模量E，許用應(yīng)力[σ]及有關(guān)數(shù)據(jù)有表7-1給出。其他數(shù)據(jù)選取設(shè)計計算數(shù)據(jù)第一組中的 。</p><p>　　圖7-1 車底盤簡化圖</p><p><b>　　表7-1

16、 固定數(shù)據(jù)</b></p><p>　　1.計算前簧固定端C處，前簧滑板D處、后簧固定端F處、后簧滑板G處的支反力。</p><p>　　2.畫出車架的內(nèi)力圖。</p><p>　　3.畫出各截面上彎曲正應(yīng)力最大值沿軸線方向的變化曲線。</p><p>　　4.用能量法求出車架最大撓度的值及所發(fā)生的截面，畫出車架撓曲線的大致形狀。

17、</p><p>　　5.若壁厚t不變，取h/b=1.5，按等截面梁重新設(shè)計車架截面尺寸。</p><p><b>　　１、求支座反力</b></p><p>　　為了求解該題，需要用到連續(xù)梁問題中的三彎矩方程。為減小跨度很大直梁的彎曲變形和應(yīng)力，常在其中間安置若干中間支座的這類結(jié)構(gòu)稱為連續(xù)梁。連續(xù)梁中是在兩端的固定端或鉸支座之間加上若干個鉸支

18、座或支桿組成的力學模型。在HZ140TR2后置旅游車底盤車架的力學模型中，該模型是三次超靜定結(jié)構(gòu)。該模型僅在豎直方向上受到外力作用，水平方向上不受外力作用，因此可以把F處鉸支座看作是支桿，將該模型簡化成二次超靜定的連續(xù)梁力學模型。</p><p>　　下面用力法求解該模型的各支座反力：</p><p>　　選取下圖所示基本結(jié)構(gòu)：</p><p>　　圖7-2 基本

19、結(jié)構(gòu)</p><p>　　去掉D、F處多余支桿約束，以豎直向上的力X1、X2代之，得到如下圖所示力法基本體系：</p><p>　　圖7-3 基本體系</p><p>　　當X1=1單獨作用時，車架的彎矩圖如下：</p><p>　　圖7-4 單位彎矩圖1</p><p>　　當X2=1單獨作用時，車架的彎矩圖如下

20、：</p><p>　　圖7-5 單位彎矩圖2</p><p>　　易求得，兩單位彎矩圖的最大值分別為：</p><p><b>　　記:</b></p><p>　　則，由圖乘法易得，各位移系數(shù)如下：</p><p>　　基本結(jié)構(gòu)在外荷載下的彎矩圖如下：</p><p>

21、;　　圖7-6 荷載彎矩圖</p><p>　　分別記C處、G處、CG中點處的彎矩為M1、M2 和M3，則：</p><p>　　將荷載彎矩圖與各單位彎矩圖分別圖乘可得：</p><p><b>　　其中：</b></p><p>　　由力法典型方程可得：</p><p><b>　　

22、解得：</b></p><p><b>　　又由平衡條件可知：</b></p><p><b>　　即：</b></p><p><b>　　帶入數(shù)據(jù)計算可得：</b></p><p>　?。病嫵鲕嚰艿膬?nèi)力圖</p><p>　　由疊加法知

23、：，各段彎矩方程如下：</p><p>　　圖7-7 結(jié)構(gòu)彎矩圖</p><p>　　由各段的彎矩方程求導(dǎo)可得各段剪力方程如下：</p><p>　　圖7-8 結(jié)構(gòu)剪力圖</p><p>　?。?、畫出各截面上彎曲正應(yīng)力最大值沿軸線方向的變化曲線</p><p>　　根據(jù)公式： ，可以求出各段的慣性矩的值：</

24、p><p>　　根據(jù)第2問中的彎矩方程和公式求出各段的最大彎曲正應(yīng)力方程，由VB畫出彎曲正應(yīng)力最大值沿軸線方向的變化曲線：</p><p>　　圖7-9 正應(yīng)力最大值變化曲線</p><p>　　4、求出最大撓度的值，畫出車架撓曲線的大致形狀</p><p>　　現(xiàn)采用圖乘法求解各個特殊點的撓度，在A點加一個豎直向下的單位力，如下圖所示：<

25、;/p><p>　　圖7-10 單位力加在A點</p><p>　　與第1、2問同理，運用力法可求得此時整個車架的彎矩圖如下所示：</p><p>　　圖7-11 單位彎矩圖3</p><p><b>　　帶入數(shù)據(jù)計算可得：</b></p><p><b>　　同理可算得：</b&

26、gt;</p><p><b>　　CD中點M處的撓度</b></p><p><b>　　DF中點N出的撓度</b></p><p><b>　　FG中點K的撓度</b></p><p><b>　　B點的繞度</b></p><p&

27、gt;　　由以上計算，可以得到車架在B端得撓度最大 ，繪出車架撓曲線如下圖所示：</p><p>　　圖7-12 車架撓曲線</p><p>　　5、按等截面梁重新設(shè)定截面尺寸</p><p>　　重新設(shè)計截面梁的截面尺寸時的主要依據(jù)是使截面上的最大彎曲正應(yīng)力小于許用應(yīng)力。根據(jù)彎矩圖可以判斷最大彎矩發(fā)生的截面，最大彎矩已知，想要改變最大正應(yīng)力的大小，就需要根據(jù)重新

28、設(shè)計截面的尺寸。</p><p>　　根據(jù)彎曲正應(yīng)力的強度條件</p><p>　　由彎矩圖可知，最大彎矩發(fā)生在后簧滑板G處的截面：</p><p><b>　　帶入數(shù)據(jù)解得：</b></p><p>　　b=0.075m,h=0.112m</p><p><b>　　程序計算</

29、b></p><p><b>　　VB程序</b></p><p><b>　　代碼：</b></p><p>　　Dim Fa,Fb,t,E,σ0,σ(1 To 3),q,a(1 To 3),k,x,y,y0,ya,S,n As Double</p><p>　　Dim l(0 To 5),

30、h(1 To 3),b(1 To 3),I(1 To 3),M(0 To 3),M11,M22,M12,M21,M13,M23,_</p><p>　　δ11,δ12,δ21,δ22,δ1p,δ2p,X1,X2,M10,M20,Fc,Fg,M0(0 To 9500),Iz,b0,h0,W(1 To 3)As Double‘全局變量定義</p><p>　　Private Sub Co

31、mmand0_Click()‘力法解車架支反力的彎矩圖</p><p>　　Picture1.Cls</p><p><b>　　y=1000</b></p><p><b>　　S=0.05</b></p><p>　　Picture1.Line(x,y)-(x+1000*(l(0)+l(

32、1)+l(5)),y)</p><p>　　Picture1.Line(x,y)-(x+1000*l(1),y+S*M(1))</p><p>　　Picture1.Line(x+1000*(l(0)+l(1)+l(5)),y)-(x+1000*(l(0)+l(1)),y+S*M(2))</p><p>　　For k=0 To l(0)Step 0.001<

33、/p><p>　　M(0)=a(1)*k ^ 2+a(2)*k+a(3)</p><p>　　Picture1.PSet(x+1000*l(1)+1000*k,y+S*M(0)) '外荷載下彎矩</p><p><b>　　Next k</b></p><p>　　y=y+2.5*y0&

34、lt;/p><p>　　Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)</p><p>　　Picture1.Line(x+1000*l(1),y)-(x+1000*(l(2)+l(1)),y-1000*M11)</p><p>　　Picture1.Line(x+1000*(l(0)+l(1)),y)-(x+1000*(l

35、(2)+l(1)),y-1000*M11)</p><p><b>　　y=y+y0</b></p><p>　　Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)</p><p>　　Picture1.Line(x+1000*l(1),y)-(x+1000*(l(2)+l(1)+l(3)),y-100

36、0*M22)</p><p>　　Picture1.Line(x+1000*(l(0)+l(1)),y)-(x+1000*(l(2)+l(1)+l(3)),y-1000*M22) '單位力作用下彎矩圖</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Cli

37、ck()‘畫車架彎矩圖</p><p>　　Picture1.Cls</p><p><b>　　y=3000</b></p><p><b>　　S=0.2</b></p><p><b>　　n=0</b></p><p>　　Print

38、Tab(100); "A--G各特殊點彎矩值："</p><p>　　Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)</p><p>　　Picture1.Line(x,y)-(x+1000*l(1),y+S*M(1))</p><p>　　Picture1.Line(x+1000*(l(0)+l(1

39、)+l(5)),y)-(x+1000*(l(0)+l(1)),y+S*M(2))</p><p>　　For k=0 To l(0)Step 0.001</p><p>　　If k < l(2)Then</p><p>　　M10=k/l(2)*M11</p><p><b>　　Else</b></p&g

40、t;<p>　　M10=(l(0)-k)/(l(0)-l(2))*M11</p><p><b>　　End If</b></p><p>　　If k < l(2)+l(3)Then</p><p>　　M20=k/(l(0)-l(4))*M22</p><p><b>　　Else<

41、;/b></p><p>　　M20=(l(0)-k)/l(4)*M22</p><p><b>　　End If</b></p><p>　　M(0)=a(1)*k ^ 2+a(2)*k+a(3)</p><p>　　M0(1000*(l(1)+k))=(M(0)-X1*M10-X2*M20)‘車架各點

42、彎矩值</p><p>　　Picture1.PSet(x+1000*l(1)+1000*k,y+S*M0(1000*(l(1)+k)))</p><p><b>　　Next k</b></p><p>　　For k=0 To l(1)Step 0.001</p><p>　　M0(1000*k)=k/l(1)*M(

43、1)</p><p><b>　　Next k</b></p><p>　　For k=0 To l(5)Step 0.001</p><p>　　M0(1000*(l(1)+l(0)+k))=(l(5)-k)/l(5)*M(2)</p><p><b>　　Next k</b></p>

44、<p>　　For k=0.001 To l(0)+l(1)+l(5)-0.001 Step 0.001</p><p>　　If(M0(1000*k)< M0(1000*k-1)And M0(1000*k)< M0(1000*k+1))Or(M0(1000*k)> M0(1000*k-1)And M0(1000*k)> M0(1000*k+1))Then</p>

45、<p>　　Print Tab(100); Round(M0(1000*k),2)& "N·m"‘A--G各特殊點彎矩值</p><p><b>　　End If</b></p><p><b>　　Next k</b></p><p><b>　　End S

46、ub</b></p><p>　　Private Sub Command2_Click()‘輸出支反力值</p><p>　　Print Tab(100); "Fc="; Round(Fc,2); "N"</p><p>　　Print Tab(100); "Fd="; Round(X

47、1,2); "N"</p><p>　　Print Tab(100); "Ff="; Round(X2,2); "N"</p><p>　　Print Tab(100); "Fg="; Round(Fg,2); "N"</p><p>　　Command2.Enabl

48、ed=False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()‘畫車架最大正應(yīng)力曲線</p><p><b>　　x=1000</b></p><p><b>　　y=8000</b>&

49、lt;/p><p>　　Print Tab(100); "A--G各特殊點正應(yīng)力值："</p><p>　　Picture1.Cls</p><p>　　Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)</p><p>　　For k=0 To l(0)Step 0.001</

50、p><p>　　If k < l(2)Then</p><p>　　M10=k/l(2)*M11</p><p><b>　　Else</b></p><p>　　M10=(l(0)-k)/(l(0)-l(2))*M11</p><p><b>　　End If</b>&l

51、t;/p><p>　　If k < l(2)+l(3)Then</p><p>　　M20=k/(l(0)-l(4))*M22</p><p><b>　　Else</b></p><p>　　M20=(l(0)-k)/l(4)*M22</p><p><b>　　End If<

52、/b></p><p>　　M(0)=a(1)*k ^ 2+a(2)*k+a(3)</p><p>　　M(0)=-Abs(M(0)-X1*M10-X2*M20)</p><p>　　σ(3)=M(0)*h(2)/2/I(2)</p><p>　　Picture1.PSet(x+1000*l(1)+1000*k,y+20*10 ^ -6

53、*σ(3))</p><p>　　M0(1000*(l(1)+k))=10 ^ -6*σ(3)</p><p><b>　　Next k</b></p><p>　　M0(1000*l(1)-1)=0</p><p>　　M0(1000*(l(1)+l(0))+1)=0</p><p>　　For

54、 k=l(1)To l(0)+l(1)Step 0.001</p><p>　　If(M0(1000*k)< M0(1000*k-1)And M0(1000*k)< M0(1000*k+1))Or(M0(1000*k)> M0(1000*k-1)And M0(1000*k)> _</p><p>　　M0(1000*k+1))And Abs(M0(1000*k))&

55、gt; 0.1 Then</p><p>　　Print Tab(100); "" & Round(Abs(M0(1000*k)),2)& "MPa"</p><p>　　End If‘輸出A--G各特殊點正應(yīng)力值</p><p><b>　　Next k</b><

56、/p><p>　　σ(1)=M(1)*h(1)/2/I(1)</p><p>　　σ(2)=M(2)*h(3)/2/I(3)</p><p>　　Picture1.Line(x,y)-(x+1000*l(1),y+20*10 ^ -6*σ(1))</p><p>　　Picture1.Line(x+1000*(l(0)+l(1)+l(5)),y)

57、-(x+1000*(l(0)+l(1)),y+20*10 ^ -6*σ(2))</p><p>　　Picture1.Line(x+1000*l(1),y+20*10 ^ -6*σ(1))-(x+1000*l(1),y+20*10 ^ -6*M(1)*h(2)/2/I(2))</p><p>　　Picture1.Line(x+1000*(l(0)+l(1)),y+20*10 ^ -6*σ

58、(2))-(x+1000*(l(0)+l(1)),y+20*10 ^ -6*M(2)*h(2)/2/I(2))</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()‘作簡力圖</p><p><b>　　S=0.1</b></p>

59、;<p><b>　　y=4000</b></p><p>　　Picture1.Cls</p><p>　　Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)</p><p>　　Picture1.Line(x,y+S*Fa)-(x+1000*l(1),y+S*Fa)</p>

60、<p>　　Picture1.Line(x+1000*l(1),y+S*(Fa-Fc))-(x+1000*(l(1)+l(2)),y+S*(Fa-Fc+q*l(2)))</p><p>　　Picture1.Line(x+1000*(l(1)+l(2)),y+S*(Fa-Fc+q*l(2)-X1))-(x+1000*(l(1)+l(2)+l(3)),y+S*(Fa-Fc-X1+q*(l(2)+l(3

61、))))</p><p>　　Picture1.Line(x+1000*(l(1)+l(0)-l(4)),y-S*(Fb-Fg+q*l(4)))-(x+1000*(l(1)+l(0)),y-S*(Fb-Fg))</p><p>　　Picture1.Line(x+1000*(l(1)+l(0)),y-S*Fb)-(x+1000*(l(1)+l(0)+l(5)),y-S*Fb)

62、 '剪力大小</p><p>　　Picture1.Line(x,y)-(x,y+S*Fa)</p><p>　　Picture1.Line(x+1000*l(1),y+S*Fa)-(x+1000*l(1),y+S*(Fa-Fc))</p><p>　　Picture1.Line(x+1000*(l(1)+l(2))

63、,y+S*(Fa-Fc+q*l(2)))-(x+1000*(l(1)+l(2)),y+S*(Fa-Fc+q*l(2)-X1))</p><p>　　Picture1.Line(x+1000*(l(1)+l(2)+l(3)),y+S*(Fa-Fc-X1+q*(l(2)+l(3))))-(x+1000*(l(1)+l(0)-l(4)),y-S*(Fb-Fg+q*l(4)))</p><p>　

64、　Picture1.Line(x+1000*(l(1)+l(0)),y-S*(Fb-Fg))-(x+1000*(l(1)+l(0)),y-S*Fb)</p><p>　　Picture1.Line(x+1000*(l(1)+l(0)+l(5)),y-S*Fb)-(x+1000*(l(1)+l(0)+l(5)),y) '豎直線</p>&

65、lt;p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()‘截面設(shè)計</p><p>　　For b0=0.03 To 0.1 Step 0.00001</p><p><b>　　h0=b0*1.5</b></p><p>

66、;　　If Abs(-M(2)/σ0-(b0*h0 ^ 2-(b0-2*t)*(h0-2*t)^ 3/h0)/6)< 10 ^ -8 Then</p><p>　　Print Tab(120); Round(b0,3); Round(h0,3)</p><p><b>　　End If</b></p><p><b>　　Nex

67、t b0</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()‘數(shù)據(jù)輸入及計算</p><p>　　Fb=Val(Text1)</p><p>　　q=Val(Text2)</p><p><

68、;b>　　x=1000</b></p><p><b>　　y=2000</b></p><p><b>　　y0=2000</b></p><p>　　σ0=160*10 ^ 6</p><p>　　E=210*10 ^ 9</p><p>　　M(1)=

69、-Fa*l(1)</p><p>　　M(2)=-Fb*l(5)</p><p>　　M(3)=(M(1)+M(2))/2+(q*l(0)^ 2)/8</p><p><b>　　a(3)=M(1)</b></p><p>　　a(1)=-2*(-M(2)+2*M(3)+-M(1))/l(0)^ 2</p>

70、<p>　　a(2)=(-M(1)+M(2)-a(1)*l(0)^ 2)/l(0)</p><p>　　M11=(l(3)+l(4))*l(2)/l(0)</p><p>　　M22=(l(2)+l(3))*l(4)/l(0)</p><p>　　M12=l(4)/(l(3)+l(4))*M11</p><p>　　M21=l(2

71、)/(l(3)+l(2))*M22</p><p>　　M13=l(0)/(l(3)+l(4))*M11</p><p>　　M23=l(0)/(l(3)+l(2))*M22</p><p>　　δ11=0.5*M11*l(2)*2/3*M11+0.5*M11*(l(3)+l(4))*2/3*M11‘各位移系數(shù)</p><p>　　δ22=

72、0.5*M22*l(4)*2/3*M22+0.5*M22*(l(3)+l(2))*2/3*M22</p><p>　　δ12=0.5*M11*l(2)*2/3*M21+0.5*M12*l(4)*2/3*M22+0.5*(M11-M12)*_</p><p>　　l(3)*(1/3*M22+2/3*M21)+M12*l(3)*0.5*(M21+M22)</p><p>

73、;<b>　　δ21=δ12</b></p><p>　　δ1p=-0.5*M13*l(0)*(1/3*M(2)+2/3*M(1))-2/3*0.125*q*l(0)^ 3*0.5*M13-(-M(1)*l(2)/3*M13 _</p><p>　　- 0.5*(a(1)*l(2)^ 2+a(2)*l(2)+a(3))*l(2)/3*M13-2/3*0.125*q*l

74、(2)^ 3*0.5*M13)</p><p>　　δ2p=-0.5*M23*l(0)*(1/3*M(1)+2/3*M(2))-2/3*0.125*q*l(0)^ 3*0.5*M23-(-M(2)*l(4)/3*M23 _</p><p>　　- 0.5*(a(1)*(l(2)+l(3))^ 2+a(2)*(l(3)+l(2))+a(3))*l(4)/3*M23-2/3*0.125*q*l

75、(4)^ 3*0.5*M23)</p><p>　　X2=(δ11*δ2p-δ12*δ1p)/(δ12 ^ 2-δ11*δ22)</p><p>　　X1=(-δ1p-δ12*X2)/δ11</p><p>　　Fc=-(X1*(l(3)+l(4))+X2*l(4)+Fb*l(5)-Fa*(l(1)+l(0))-q*l(0)^ 2/2)/l(0)</p>

76、<p>　　Fg=Fa+Fb+q*l(0)-Fc-X1-X2</p><p><b>　　Print</b></p><p>　　For k=1 To 3</p><p>　　I(k)=(b(k)*h(k)^ 3-(b(k)-2*t)*(h(k)-2*t)^ 3)/12</p><p>　　Print Ta

77、b(100); "M" & k; "="; Round(M(k),1); "N·m"</p><p>　　W(k)=b(k)*h(k)-(b(k)-2*t)*(h(k)-2*t)</p><p>　　Next k

78、 'Iz</p><p>　　Print Tab(100); "CD、DF、FG段彎矩方程一次項："</p><p>　　Print Tab(100); Round(a(2)-2*a(1)*l(1)-X1*M11/l(2)-X2*M22/(l(2)+l(3)),2); _</p><p>　

79、　Tab; Round(a(2)-2*a(1)*l(1)+X1*M11/(l(3)+l(4))-X2*M22/(l(2)+l(3)),2)_</p><p>　　; Tab; Round(a(2)-2*a(1)*l(1)+X1*M11/(l(3)+l(4))+X2*M22/l(4),2)</p><p>　　Print Tab(100); "CD、DF、FG段彎矩方程常數(shù)項：&q

80、uot;</p><p>　　Print Tab(100); Round(a(1)*l(1)^ 2-a(2)*l(1)+a(3)+X1*M11*l(1)/l(2)+X2*M22*l(1)/(l(2)+l(3)),2); _</p><p><b>　　Tab;</b></p><p>　　Print Round(a(1)*l(1)^ 2-a(2

81、)*l(1)+a(3)-X1*M11*(l(1)+l(0))/(l(3)+l(4))+X2*M22*l(1)/(l(2)+l(3)),2)_</p><p><b>　　; Tab;</b></p><p>　　Print Round(a(1)*l(1)^ 2-a(2)*l(1)+a(3)-X1*M11*(l(1)+l(0))/(l(3)+l(4))-X2*M22*(

82、l(0)+l(1))/l(4),2)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()‘位移計算</p><p>　　M11=M11*X1</p><p>　　M22=M22*X2</p><p>　　M12=l

83、(4)/(l(3)+l(4))*M11</p><p>　　M21=l(2)/(l(3)+l(2))*M22</p><p>　　M13=l(0)/(l(3)+l(4))*M11</p><p>　　M23=l(0)/(l(3)+l(2))*M22</p><p>　　ya=1/412125*0.5*M(1)*l(1)*2/3*1.1+1/7

84、88725*((0.5*M11*l(2)+0.5*M21*l(2)-_</p><p>　　0.5*(a(1)*l(2)^ 2+a(2)*l(2)+a(3))*l(2))*(1.1/3-0.210082539*2/3)+0.5*M(1)*l(2)*(1.1*2/3-0.210082539/3)-_</p><p>　　2/3*0.125*q*l(2)^ 3*0.5*(1.1-0.21008

85、2539)_</p><p>　　+ 0.5*((a(1)*l(2)^ 2+a(2)*l(2)+a(3))-(M11-M12))*l(3)*(0.210082539*2/3-0.0692825396/3)_</p><p>　　+ 0.5*(a(1)*(l(2)+l(3))^ 2+a(2)*(l(3)+l(2))+a(3)-(M22-M21))*l(3)*(0.210082539/3-0.

86、0692825396*2/3)_</p><p>　　+(2/3*0.125*q*l(3)^ 2-M12-M21)*l(3)*0.5*(0.210082539-0.0692825396)_</p><p>　　+ 0.5*(M12+M22-(a(1)*(l(2)+l(3))^ 2+a(2)*(l(3)+l(2))+a(3)))*l(4)*0.0692825396*2/3 _</p&g

87、t;<p>　　+ M(2)*0.5*l(4)*0.0692825396/3-2/3*0.125*q*l(4)^ 3*0.5*0.0692825396)</p><p>　　Print Tab(100); ya</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()

88、‘固定數(shù)據(jù)賦值</p><p>　　Picture1.Height=10000</p><p>　　Picture1.Width=11500</p><p><b>　　l(1)=1.1</b></p><p><b>　　l(2)=1.6</b></p><p>

89、<b>　　l(4)=1.6</b></p><p><b>　　l(3)=3.1</b></p><p><b>　　l(5)=2.1</b></p><p>　　l(0)=l(2)+l(3)+l(4)</p><p><b>　　b(1)=0.06</b&g

90、t;</p><p><b>　　b(2)=0.08</b></p><p><b>　　b(3)=0.07</b></p><p><b>　　h(1)=0.1</b></p><p><b>　　h(2)=0.12</b></p><

91、;p><b>　　h(3)=0.11</b></p><p><b>　　t=0.005</b></p><p><b>　　Fa=2680</b></p><p>　　E=210*10 ^ 9</p><p>　　Print Tab(100); "請輸入數(shù)據(jù)&

92、quot;</p><p><b>　　Print</b></p><p><b>　　End Sub</b></p><p>　　關(guān)鍵步驟的執(zhí)行結(jié)果：</p><p>　　2、結(jié)構(gòu)力學求解器程序</p><p><b>　　代碼：</b></p&

93、gt;<p>　　TITLE,車架模型計算</p><p><b>　　結(jié)點,1,0,0</b></p><p>　　結(jié)點,2,1.1,0</p><p>　　結(jié)點,3,2.7,0</p><p>　　結(jié)點,4,5.8,0</p><p>　　結(jié)點,5,7.4,0</p>

94、<p>　　結(jié)點,6,9.5,0</p><p>　　單元,1,2,0,0,0,1,1,1</p><p>　　單元,2,3,1,1,1,1,1,1</p><p>　　單元,3,4,1,1,1,1,1,1</p><p>　　單元,4,5,1,1,1,1,1,1</p><p>　　單元,5,6,1,1

95、,1,0,0,0</p><p>　　結(jié)點支承,2,3,0,0,0</p><p>　　結(jié)點支承,3,1,0,0</p><p>　　結(jié)點支承,4,3,0,0,0</p><p>　　結(jié)點支承,5,1,0,0</p><p>　　單元荷載,1,1,2680,0,90</p><p>　　單元荷載

96、,5,1,4100,1,90</p><p>　　單元荷載,2,3,15200,0,1,90</p><p>　　單元荷載,3,3,15200,0,1,90</p><p>　　單元荷載,4,3,15200,0,1,90</p><p>　　單元材料性質(zhì),1,1,315000000,412125,0,0,-1</p><p

97、>　　單元材料性質(zhì),2,4,399000000,788725,0,0,-1</p><p>　　單元材料性質(zhì),5,5,357000000,580475,0,0,-1</p><p><b>　　END</b></p><p>　　關(guān)鍵步驟的執(zhí)行結(jié)果：</p><p><b>　　設(shè)計體會</b>

98、;</p><p>　　正所謂“紙上得來終覺淺，絕知此事要躬行?！辈牧狭W課程設(shè)計讓我體驗到了平時做的習題是解決不了工程實際問題的。要想解決實際的生活問題，我們還需要學習很多知識。在做課程設(shè)計的時候，我使用了很多工具，如：Visual Basic，結(jié)構(gòu)力學求解器，word2010等。查了很多資料，利用網(wǎng)絡(luò)和圖書管的網(wǎng)上資源可以查到自己想要找的參考書籍。另外，此次課程設(shè)計使我認識到解決工程實際問題的一般方法是：首先

99、把實際問題抽象成力學模型，然后通過對力學模型的分析建立相關(guān)方程，最后求解得倒結(jié)果。</p><p>　　總體感覺在材料力學課程設(shè)計的時候涉及的知識方面很廣，從使用力學知識進行力學分析，到使用word編輯文檔。每一項想要做好都不是那么容易做好的，比如最簡單的word，在編輯的時候可以使用標題，導(dǎo)航等各種工具以方便進行文檔排版和設(shè)計，還有頁眉頁腳等使文檔排版更加美觀。在做這些事情的時候，我覺得一篇文章就是一個學生綜合

100、能力的反映，也是學生對待課程設(shè)計態(tài)度的反映。另外，由于全過程的計算我都是通過編程來完成的，所以在此文中沒有詳細地反映各步驟的數(shù)據(jù)計算。</p><p>　　通過設(shè)計我的能力得到了提高，在做設(shè)計的過程中，由于編程計算涉及到的編譯器知識點較多，因而設(shè)計進行得比較緩慢，這也是相對于其他同學的平均時間而言。在設(shè)計過程中，我主要是重新復(fù)習了VB的相關(guān)知識，并且學習了一些需要用到但是還沒有學到的力學方面的知識，同時也參考了在

101、網(wǎng)絡(luò)上下載的一些資料。雖然我使用了半個多月的時間完成這次課程設(shè)計，但此作品還是有不完善的地方，有待進一步學習。</p><p><b>　　參考文獻</b></p><p>　　1、王煥定等《結(jié)構(gòu)力學》 高等教育出版社2010年1月</p><p>　　2、徐波、姚雪存《Visual Basic 2008 大學教程》 電子工業(yè)出版社2010年1