材料力學(xué)的fortran編程

《材料力學(xué)的fortran編程》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。

1、為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場(chǎng)安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃材料力學(xué)的fortran編程　　材料力學(xué)上機(jī)實(shí)驗(yàn)報(bào)告　　課程：材料力學(xué)　　題目：應(yīng)力狀態(tài)分析　　班級(jí)：　　學(xué)號(hào)：　　姓名：姜超　　題目7:應(yīng)力狀態(tài)分析　　輸入:　　1.平面應(yīng)力狀態(tài)輸入：　　2.空間應(yīng)力狀態(tài)輸入:　　2.最大切應(yīng)力[τmax=τ13xy、τyz、τzx）=/2]　　α3.如為平面應(yīng)力狀態(tài)則需輸入方位角α斜截面上的應(yīng)力σα、τ　　及主方向角α0?！　?.畫出應(yīng)力圓示意圖。　　材料力學(xué)上機(jī)實(shí)驗(yàn)Fort

2、ran編寫：　　Programmain　　Implicitnone　　Integerk目的-通過(guò)該培訓(xùn)員工可對(duì)保安行業(yè)有初步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)水平，并確保其在這個(gè)行業(yè)的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場(chǎng)安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃　　Reala1,a2,a3,b1,b2,b3,bmax,p,t1,t2,t3,a,b,p0RealTemp1,Temp2,Temp3　　Print*,“1=平面應(yīng)力狀態(tài)，2=空間應(yīng)力狀態(tài)”Print*,

3、“請(qǐng)選擇1或2”　　Read*,k　　If(k=1)then　　Print*,“請(qǐng)輸入平面應(yīng)力狀態(tài)參數(shù)：?x,?y,?xy,?”　　Read*,a1,a2,b1,p　　Temp1=(a1+a2)/2+sqrt(((a1-a2)/2)**2+b1**2)Temp2=0　　Temp3=(a1+a2)/2+sqrt(((a1-a2)/2)**2+b1**2)t1=max(Temp1,Temp2,Temp3)　　t3=min(Temp1,Temp2,Temp3)　　t2=(Temp1+Temp2+Temp3)-(t1+t3)　　b

4、max=(t1-t3)/2　　a=(a1+a2)/2+(a1-a2)/2*cos(2*p)-b1*sin(2*p)b=(a1-a2)/2*sin(2*p)+b1cos(2*p)　　p0=1/2*atan(-2*b1/(a1-a2))　　Print*,“截面主應(yīng)力為：”，“?1=”,t1,“?2=”,t2,“?3=”,t3Print*,“最大切應(yīng)力為：?max=”，bmax目的-通過(guò)該培訓(xùn)員工可對(duì)保安行業(yè)有初步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)水平，并確保其在這個(gè)行業(yè)的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保

5、障停車場(chǎng)安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃　　Print*,“任意?角截面上的應(yīng)力和主方向角為：”，“??=”，　　“??=”，b，“?0=”，p0　　Endif　　If(k=2)then　　Print*,“請(qǐng)輸入空間應(yīng)力狀態(tài)參數(shù)：?x,?y,?z,?xy,?yz,?zx”Read*,a1,a2,a3,b1,b2,b3　　If(b1==0,b2==0)thena，　　Temp1=a2　　Temp2=(a1+a3)/2+sqrt((a1-a3)**2+b3**2)Temp3=(a1+

6、a3)/2-sqrt((a1-a3)**2+b3**2)t1=max(Temp1,Temp2,Temp3)　　t3=min(Temp1,Temp2,Temp3)　　t2=(Temp1+Temp2+Temp3)-(t1+t3)　　bmax=(t1-t3)/2　　elseif(b2==0,b3==0)then　　Temp1=a3　　Temp2=(a1+a2)/2+sqrt((a1-a2)**2+b1**2)Temp3=(a1+a2)/2-sqrt((a1-a2)**2+b1**2)t1=max(Temp1,Temp2,Temp

7、3)t3=min(Temp1,Temp2,Temp3)　　t2=(Temp1+Temp2+Temp3)-(t1+t3)目的-通過(guò)該培訓(xùn)員工可對(duì)保安行業(yè)有初步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)水平，并確保其在這個(gè)行業(yè)的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場(chǎng)安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃　　bmax=(t1-t3)/2　　elseif(b3==0,b1==0)then　　Temp1=a1　　Temp2=(a2+a3)/2+sqrt((a2-a3)**2+b

8、2**2)Temp3=(a2+a3)/2-sqrt((a2-a3)**2+b2**2)t1=max(Temp1,Temp2,Temp3)　　t3=min(Temp1,Temp2,Temp3)　　t2=(Temp1+Temp2+Temp3)-(t1+t3)　　bmax=(t1-t3)/2　　else　　p