組合梁ansys建模

1、/COM,Structural /config,NRES,90000 /UNITS,SI/prep7gybh=0.010 ! 鋼梁翼板厚度 10mm gybk=0.150 ! 鋼梁翼板寬度 150mm gfbh=0.007 ! 鋼梁腹板厚度 7mm gfbg=0.130 ! 鋼梁腹板高度 130mm hntbh=0.075 ! 混凝土板厚度 75mm hntbk=0.600 ! 混凝土板寬度 600mm hntbch=6.000 ! 每節(jié)混凝土板長(zhǎng)度 6000mm glch=6.200 ! 每節(jié)鋼梁總長(zhǎng)度 600mm xhntbh=0.060 ! 混凝土板厚度 60mm xhntbk=0.22

2、0 ! 混凝土板寬度 220mm xhntbch=1.200 ! 每節(jié)混凝土板長(zhǎng)度 1200mmet,1,solid65,3 ! 定義混凝土板單元 et,2,shell43 ! 定義鋼梁?jiǎn)卧?et,3,combin39,0 ! 定義彈簧單元 combin39 et,4,solid45 ! 定義墊板單元 et,5,link8 ! 定義縱向鋼筋單元mp,ex,1,1.9095E10 ! 定義混凝土板的彈性模量 N/mm2 mp,prxy,1,0.20!定義混凝土板的泊松比mp,dens,1,2.6e3!定義混凝土板的密度mp,ex,2,2.10E11!定義鋼梁及一級(jí)鋼筋的彈性模量mp,prxy,2

3、,0.30!定義鋼梁及一級(jí)鋼筋的泊松比mp,dens,2,7.85e3 ! 定義鋼梁及一級(jí)鋼筋的密度mp,ex,3,2.00E11 ! 定義二級(jí)鋼筋的彈性模量 mp,prxy,3,0.3 ! 定義二級(jí)鋼筋的泊松比 mp,dens,3,7.85e3 ! 定義二級(jí)鋼筋的密度mp,ex,4,2.02E11 ! 定義墊板材料特性 mp,prxy,4,0.3tb,miso,1 ! 混凝土屈服準(zhǔn)則 *do,e,0.0002,0.002,0.0001 tbpt,e,20.1e6*(1000*e-500*500*e*e) *enddotbpt,0.0035,20.1e6 ! 該處將 0.0033 改為了 0.

4、0035 tbpl,miso,1混凝土破壞準(zhǔn)則tb,bkin,2,1,2 ! tbdata,235e6,10.3e6 tbpl,bkin,2tb,bkin,3,1,2 ! tbdata,335e6,10.3e6 tbpl,bkin,3r,1,2,0.00745,90,90r,2,2,0.00673,90,90tb,concr,1 !tbdata,0.6,0.8,2.01e6,-1鋼梁及一級(jí)鋼筋的本構(gòu)關(guān)系二級(jí)鋼筋的本構(gòu)關(guān)系!335 屈服應(yīng)力， 10 代表屈服后的切線模量定義上混凝土板實(shí)常數(shù)定義下混凝土板實(shí)常數(shù)r,3,gybh,gybh,gybh,gybh !定義鋼梁上下翼緣的厚度r,4,gfbh

5、,gfbh,gfbh,gfbh ! 定義鋼梁腹板厚度r,5,0,0,0.00002,12175,0.00004,16021 ! 定義彈簧的荷載變形曲線 rmore,0.00005,17492,0.00006,18789,0.00007,19956 rmore,0.00008,21022,0.00009,22006,0.0001,22921 rmore,0.0002,29831,0.0003,34610,0.0004,38313 rmore,0.0005,41338,0.0006,43887,0.0007,46078 rmore,0.0008,47989,0.0009,49673,0.001,5

6、1169 rmore,0.002,61124,0.003,63521r,6墊板實(shí)常數(shù)r,7,0.00004398上混凝土板中縱筋的橫截面積(折合而來(lái))blc4,0,0,glch,gfbg ! 鋼梁腹板 csys,4wprota,-90blc4,0,-gybk*0.5,glch,gybk*0.5 ! 令)blc4,0,0,glch,gybk*0.5 ! aglue 命令 )wpoffs,0,0,gfbgblc4,0,-gybk*0.5,glch,gybk*0.5 !r,8,0.000050265 ! 下混凝土板中縱筋的橫截面積I*!注：鋼梁總長(zhǎng) 6200mm跨度為3000+3000，在兩端支座外

7、各留出了100mm鋼梁下翼板之半 ( 一次建成整個(gè)板時(shí)無(wú)法用aglue 命鋼梁下翼板之半 ( 一次建成整個(gè)板時(shí)無(wú)法用鋼梁上翼板之半 ( 一次建成整個(gè)板時(shí)無(wú)法用aglue 命令) blc4,0,0,glch,gybk*0.5 aglue 命令 )鋼梁上翼板之半 ( 一次建成整個(gè)板時(shí)無(wú)法用wpoffs,0.100 wprota,-90 asbw,all wpoffs,-hntbch*0.5 asbw,all wpoffs,-0.5*hntbch asbw,all用工作平面切割梁體然后添加加勁肋nummrg,all numcmp,all*do,i,0,2,1*do,j,0,1,1 ! l,15+j+

8、6*i,17+j+6*i *enddo*enddo連線，為增加加勁肋作準(zhǔn)備al,28,50,21,16al,31,16,25,51al,33,52,7,3al,34,3,11,53al,44,54,27,19al,47,19,41,55asel,allaglue,all !粘結(jié)各板形成鋼梁nummrg,all numcmp,allasel,s,loc,x,-gfbgasel,a,loc,x,0! 選中上下翼緣板，準(zhǔn)備對(duì)鋼梁翼板進(jìn)行單元?jiǎng)澐謅plot aatt,2,3,2 !賦予鋼梁上下翼緣板單元特性lesize,31,0.0375$lesize,28,0.0375定義上下翼緣有限元網(wǎng)格尺寸le

9、size,25,0.0375$lesize,21,0.0375lesize,18,0.100$lesize,17,0.100lesize,36,0.100$lesize,35,0.100lesize,23,0.100$lesize,20,0.100lesize,15,0.100$lesize,14,0.100mshkey,1 ! 聲明使用映射網(wǎng)格劃分mshape,0 ! amesh,all聲明使用平面四邊形網(wǎng)格劃分allsel,all asel,s,loc,y,0 ! aplot選中腹板，準(zhǔn)備對(duì)鋼梁腹板進(jìn)行單元?jiǎng)澐謅att,2,4,2 lesize,16,4 !定義腹板有限元網(wǎng)格尺寸mshke

10、y,1 ! 聲明使用映射網(wǎng)格劃分mshape,0 ! amesh,all allsel,all聲明使用平面四邊形網(wǎng)格劃分asel,s,loc,z,0asel,a,loc,z,hntbch*0.5 asel,a,loc,z,hntbch aplot aatt,2,4,2mshkey,1 ! 聲明使用自由網(wǎng)格劃分mshape,0 ! amesh,all allsel,all聲明使用平面三角形網(wǎng)格劃分I*wpoffs,gybh*0.5 ! 準(zhǔn)備建立上側(cè)混凝土板幾何模型blc4,0,-hntbk*0.5,hntbh,hntbk,hntbchI*! 對(duì)上混凝土板進(jìn)行映射劃分wpoffs,0.0375wp

11、rota,90vsbw,allwpoffs,0.075vsbw,allvsel,allvatt,1,1,1lesize,78,3$lesize,87,1lesize,80,3$lesize,60,2lesize,66,0.100mshkey,1 ! 聲明使用映射網(wǎng)格劃分mshape,0,3D ! vmesh,all聲明使用平面四邊形網(wǎng)格劃分!esel,s,real,1查看鋼筋的方向!/DEVICE,VECTOR,1!/TYPE,BASIC!/eshape,1!allsel,allI*! 加彈簧、耦合! 上混泥土板I*allsel,all wpoffs,-0.0375 nsel,s,loc,z,

12、-0.0375,0.0375 nsel,r,loc,x,-0.5*gybh,0 type,3 ! 設(shè)定彈簧單元 real,5e,24,917 *do,i,0,13,1 e,330+2*i,977-2*i *enddoe,299,949 *do,i,0,13,1 e,545+2*i,947-2*i*enddoe,423,919cp,1,uy,24,917 *do,i,-1,27,1 cp,3+i,uy,330+i,977-i*enddo cp,31,uy,299,949 *do,i,-1,27,1 cp,33+i,uy,545+i,947-i*enddo cp,61,uy,423,919cp,6

13、2,uz,24,917 *do,i,-1,27,1 cp,64+i,uz,330+i,977-i*enddo cp,92,uz,299,949*do,i,-1,27,1 cp,94+i,uz,545+i,947-i *enddo cp,122,uz,423,919e,118,1600*do,i,0,13,1e,390+2*i,1660-2*i*enddoe,359,1632*do,i,0,13,1e,603+2*i,1630-2*i*enddoe,485,1589I*cp,123,uy,118,1600 *do,i,-1,27,1 cp,125+i,uy,390+i,1660-i*enddoc

14、p,153,uy,359,1632*do,i,-1,27,1 cp,155+i,uy,603+i,1630-i*enddocp,183,uy,485,1589cp,184,uz,118,1600*do,i,-1,27,1 cp,186+i,uz,390+i,1660-i*enddocp,214,uz,359,1632*do,i,-1,27,1 cp,216+i,uz,603+i,1630-i*enddocp,244,uz,485,1589allsel,all! 搞定I*! 為上混凝土板增設(shè)縱向鋼筋 nsel,s,loc,x,0.5*hntbh type,5 ! 設(shè)定彈簧單元real,7*do,

15、j,0,1,1e,1232+j,1587-j*do,i,0,57,1e,1587-2*i-j,1585-2*i-j*enddoe,1471-j,1047-j*enddoe,918,1038*do,i,0,57,1e,1038-i,1037-i*enddoe,980,979e,1602,1721*do,i,0,57,1e,1721+i,1722+i*enddoe,1779,1597e,1787,2260*do,i,0,57,1e,2260-i,2259-i*enddoe,2202,1598e,1788,2319*do,i,0,57,1e,2319-i,2318-i*enddoe,2261,159

16、9allsel,allI*! 為荷載和支座處添加彈性墊塊wpoffs,-0.5*gybh-gfbg,0.5*hntbch,-0.5*gybkblc4,-0.5*gybh-0.010,-0.100,0.010,0.200,gybkvsel,s,2vatt,4,6,4 lesize,93,4$lesize,89,4$lesize,90,1mshkey,1 ! 聲明使用映射網(wǎng)格劃分mshape,0,3D ! 聲明使用平面四邊形網(wǎng)格劃分 vmesh,allnsel,s,loc,x,-0.5*gybh,0 nsel,r,loc,y,-0.100,0.100 cp,1000,uy,238,2325$cp,

17、1001,uy,267,2346 cp,1002,uy,178,2347$cp,1003,uy,207,2348 cp,1004,uy,149,2332$cp,1005,uy,208,2328 cp,1006,uy,209,2368$cp,1007,uy,57,2365 cp,1008,uy,87,2362$cp,1009,uy,27,2334 cp,1010,uy,424,2326$cp,1011,uy,453,2343 cp,1012,uy,58,2344$cp,1013,uy,88,2345 cp,1014,uy,28,2331cp,1005+35,uz,208,2328 cp,1006

18、+35,uz,209,2368$cp,1007+35,uz,57,2365 cp,1008+35,uz,87,2362$cp,1009+35,uz,27,2334cp,1005+70,ux,208,2328 cp,1006+70,ux,209,2368$cp,1007+70,ux,57,2365 cp,1008+70,ux,87,2362$cp,1009+70,ux,27,2334allsel,all nsel,s,loc,x,-0.5*gybh-0.010 nsel,r,loc,y,0 d,all,uy,0,ux,uznsel,s,loc,x,0 nsel,r,loc,y,0.5*hntbch d,all,uy,0,uznsel,s,loc,x,0 nsel,r,loc,y,-0.5*hntbch d,all,uy,0,uz allsel,all/solu antype,0 solcontrol,on outres,all,5 nlgeom,off