混凝土鋼筋怎樣建模

1、!一受均布荷載的簡(jiǎn)支梁，跨度為3000mm,截面為100x200mm，配有兩根鋼筋，承受的均布載荷為0.04N/mm*mm。命令中采用了1/4模型，材料參數(shù)詳見命令中。由于選擇時(shí)采用的是實(shí)體號(hào)而不是坐標(biāo)，可能在有些系統(tǒng)上會(huì)受到影響，各位注意。 !鋼筋混凝土簡(jiǎn)支梁分析 /COM, Structural !-定義單元及材料等- /PREP7 et,1,link8 !定義link8單元 et,2,solid65 !定義solid65單元 keyopt,2,7,1 r,1,314 !定義link8單元的面積 r,2 !定義solid65的實(shí)常數(shù)號(hào) mp,ex,1,2e5 !定義link8單元的彈性模量

2、 mp,prxy,1,0.3 !定義link8單元的泊松系數(shù) mp,ex,2,4e4 !定義solid65單元的彈性模量 mp,prxy,2,0.3 !定義solid65單元的泊松系數(shù) tb,concr,2 !定義2號(hào)為混凝土 tbdata,0.9,1,1.8,50 !定義混凝土的c1,c2,Rl,Ra !-建立幾何模型- blc4, , ,50,200,1500 !定義梁體 /view,1,1,1,1 !定義ISO查看 /ang,1 vplot !繪制梁體 kwpave,5 !工作平面移動(dòng)到關(guān)鍵點(diǎn)5 wpoff,25 !工作平面移動(dòng)25mm wprot,0,0,90 !工作平面旋轉(zhuǎn) vsbw

3、,1 !分割梁體 wpoff,0,40 !工作平面移動(dòng)40mm wprot,0,90 !工作平面旋轉(zhuǎn) vsbw,all !分割梁體 wpoff,300 !再將梁體分割為三個(gè)區(qū)域 wprot,0,0,90 !(原為控制單元密度而設(shè)) vsbw,all wpoff,0,0,900 vsbw,all wpstyl !關(guān)閉工作平面顯示 nummrg,all !整理編號(hào) numcmp,all !-劃分單元網(wǎng)格- lsel,s,41,57,16 !定義line41,line57為新的選擇集 lsel,a,9 !定義line9也在選擇集中 latt,1,1,1 !定義選擇集的屬性 lesize,9,20,1

4、 !將line9劃分為20個(gè)單元 lesize,41,20,1 !將line41劃分為20個(gè)單元 lesize,57,60,1 !將line57劃分為60個(gè)單元 lmesh,all !對(duì)線劃分單元 !- allsel,all !新的選擇集為所有的實(shí)體 vsel,s,all !定義所有體為選擇集 vatt,2,2,2 !定義選擇集的屬性 lesize,22,2,0 !定義體線的單元數(shù)以控制體單元 lesize,23,2,0 lesize,33,2,0 lesize,28,4,0 mshape,0,3d !將體劃分單元的形狀定位HEX mshkey,1 !采用MAPPED劃分器 vmesh,all

5、 !對(duì)體進(jìn)行劃分單元 finish !-定義約束及荷載- /solu asel,s,2,22,20 asel,a,14,17,3 da,all,uy !對(duì)支撐端面施加Uy方向約束 asel,s,3,23,20 asel,a,15,19,4 da,all,uz !對(duì)正對(duì)稱面施加Uz方向約束asel,s,32,36,4 asel,a,50,52,2 asel,a,41,43,2 da,all,ux !對(duì)側(cè)對(duì)稱面施加Ux方向約束 asel,s,21,27,6 asel,a,42,46,4 asel,a,35,51,16 sfa,all,1,pres,0.04 !對(duì)頂面施加面荷載(N/mm*mm) allsel,all!-定義非線性分析選項(xiàng)- cnvtol,f,0.05,2 !定義收斂條件,使用缺省的VALUE nsubst,25 !定義子步數(shù) outres,all,all !輸出每一子步的結(jié)果 autots,1 !打開自動(dòng)時(shí)間步控制 lnsrch,1 !打開線性搜索 ncnv,2 !如果不收斂時(shí)結(jié)束而不退出 neqit,50 !每一子步中方程的迭代次數(shù)限值 pred,on !打開預(yù)測(cè)器 time,50 !定義時(shí)間 solve !求解 !-進(jìn)入后處理過程- finish /post1 pldisp,0 !繪制變形圖(缺省為最后一步