版權(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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 材料力學(xué)課程設(shè)計(jì)---hz140tr2后置旅游車底盤車架
- 課程設(shè)計(jì)--hz140tr2后置旅游車底盤車架
- 材料力學(xué)課程設(shè)計(jì)hz140tr2后置旅游車底盤車架的靜力分析及強(qiáng)度剛度計(jì)算
- 材料力學(xué)課程設(shè)計(jì)--hz140tr2后置旅游車底盤車架的靜力分析及強(qiáng)度剛度的計(jì)算
- 吉林大學(xué)材料力學(xué)課程設(shè)計(jì)說明書(hz140tr2后置旅游車底盤車架)[1]
- 材力課程設(shè)計(jì)--hz140tr2后置旅游車底盤車架的靜力學(xué)分析及強(qiáng)度剛度計(jì)算
- 材料力學(xué)課程設(shè)計(jì)旅游車后置底盤
- 材料力學(xué)課程設(shè)計(jì)--后置旅游車底盤車架的靜力學(xué)分析及強(qiáng)度、剛度計(jì)算
- 后置旅游車底盤車架的靜力學(xué)分析及強(qiáng)度、剛度計(jì)算
- 材料力學(xué)課程設(shè)計(jì)
- 材料力學(xué)課程設(shè)計(jì)
- 材料力學(xué)課程設(shè)計(jì)
- 材料力學(xué)課程設(shè)計(jì)--車架的靜力及強(qiáng)度剛度分析
- 課程設(shè)計(jì)---汽車底盤設(shè)計(jì)
- 材料力學(xué)課程設(shè)計(jì)——車床主軸設(shè)計(jì)
- 材料力學(xué)課程設(shè)計(jì)--車床主軸設(shè)計(jì)
- 材料力學(xué)課程設(shè)計(jì)_車床主軸設(shè)計(jì)
- 材料力學(xué)課程設(shè)計(jì)---壓床機(jī)構(gòu)的設(shè)計(jì)
- 吉林大學(xué)材料力學(xué)課程設(shè)計(jì)題目7.1
- 材料力學(xué)課程設(shè)計(jì)--五種傳動(dòng)軸
評(píng)論
0/150
提交評(píng)論