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

下載本文檔

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

文檔簡(jiǎn)介

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

2、;/p><p><b>  班級(jí):班</b></p><p><b>  學(xué)號(hào):</b></p><p><b>  目錄</b></p><p>  材料力學(xué)課程設(shè)計(jì)1</p><p>  一、材料力學(xué)課程設(shè)計(jì)的目的1</p>

3、<p>  二、材料力學(xué)課程設(shè)計(jì)的任務(wù)和要求1</p><p>  1、設(shè)計(jì)計(jì)算說明書的要求1</p><p>  2、分析討論及說明部分的要求2</p><p>  3、程序計(jì)算部分的要求2</p><p><b>  三、設(shè)計(jì)題目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>  四、程序計(jì)算13</b></p><p><b>  1、vb程序13</b></p><p>  2、結(jié)構(gòu)力學(xué)求解器程序24</p><p><b>  五、設(shè)計(jì)體會(huì)27</b></p><p><b>  體會(huì)27</b><

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

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

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

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

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

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

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

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

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

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

16、 固定數(shù)據(jù)</b></p><p>  1.計(jì)算前簧固定端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è)計(jì)車架截面尺寸。</p><p><b> ?。?、求支座反力</b></p><p>  為了求解該題,需要用到連續(xù)梁?jiǎn)栴}中的三彎矩方程。為減小跨度很大直梁的彎曲變形和應(yīng)力,常在其中間安置若干中間支座的這類結(jié)構(gòu)稱為連續(xù)梁。連續(xù)梁中是在兩端的固定端或鉸支座之間加上若干個(gè)鉸支

18、座或支桿組成的力學(xué)模型。在HZ140TR2后置旅游車底盤車架的力學(xué)模型中,該模型是三次超靜定結(jié)構(gòu)。該模型僅在豎直方向上受到外力作用,水平方向上不受外力作用,因此可以把F處鉸支座看作是支桿,將該模型簡(jiǎn)化成二次超靜定的連續(xù)梁力學(xué)模型。</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>  當(dāng)X1=1單獨(dú)作用時(shí),車架的彎矩圖如下:</p><p>  圖7-4 單位彎矩圖1</p><p>  當(dāng)X2=1單獨(dú)作用時(shí),車架的彎矩圖如下

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中點(diǎn)處的彎矩為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ù)計(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)采用圖乘法求解各個(gè)特殊點(diǎn)的撓度,在A點(diǎn)加一個(gè)豎直向下的單位力,如下圖所示:<

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

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

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

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

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各特殊點(diǎn)彎矩值:"</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)‘車架各點(diǎn)

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各特殊點(diǎn)彎矩值</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各特殊點(diǎn)正應(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各特殊點(diǎn)正應(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()‘作簡(jiǎn)力圖</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è)計(jì)</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()‘?dāng)?shù)據(jù)輸入及計(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段彎矩方程一次項(xiàng):"</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ù)項(xiàng):&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()‘位移計(jì)算</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); "請(qǐng)輸入數(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)力學(xué)求解器程序</p><p><b>  代碼:</b></p&

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

94、<p>  結(jié)點(diǎn),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é)點(diǎn)支承,2,3,0,0,0</p><p>  結(jié)點(diǎn)支承,3,1,0,0</p><p>  結(jié)點(diǎn)支承,4,3,0,0,0</p><p>  結(jié)點(diǎn)支承,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è)計(jì)體會(huì)</b>

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

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

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

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

溫馨提示

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

最新文檔

評(píng)論

0/150

提交評(píng)論