组合梁ansys建模(用弹簧模拟滑移).

1、/COM,Structural /con fig,NRES,90000 /UNITS,SI /prep7 gybh=O.O1O !钢梁翼板厚度 10mm gybk=0.150 ! 钢梁翼板宽度 150mm gfbh=0.007!钢梁腹板厚度7mm gfbg=0.130!钢梁腹板高度130mm hn tbh=0.075 !混凝土板厚度 75mm hn tbk=0.600 !混凝土板宽度 600mm hn tbch=6.000!每节混凝土板长度 6000mm glch=6.200! 每节钢梁总长度 600mm xh ntbh=0.060 !混凝土板厚度 60mm xh ntbk=0.220 !混凝

2、土板宽度 220mm xhn tbch=1.200!每节混凝土板长度 1200mm et,1,solid65,3 !定义混凝土板单元 et,2,shell43 !定义钢梁单元 et,3,combi n39,0 !定义弹簧单元 combi n39 et,4,solid45 ! 定义垫板单元 et,5,li nk8 ! 定义纵向钢筋单元 mp,ex,1,1.9095E10!定义混凝土板的弹性模量N/mm2 mp,prxy,1,0.20!定义混凝土板的泊松比 mp,de ns,1,2.6e3!定义混凝土板的密度 mp,ex,2,2.10E11!定义钢梁及一级钢筋的弹性模量 mp,prxy,2,0.3

3、0!定义钢梁及一级钢筋的泊松比 mp,de ns,2,7.85e3!定义钢梁及一级钢筋的密度 mp,ex,3,2.00E11!定义二级钢筋的弹性模量 mp,prxy,3,0.3!定义二级钢筋的泊松比 mp,de ns,3,7.85e3 !定义二级钢筋的密度 mp,ex,4,2.02E11 !定义垫板材料特性 mp,prxy,4,0.3 tb,miso,1 !混凝土屈服准则 *do,e,0.0002,0.002,0.0001 tbpt,e,20.1e6*(1000*e-500*500*e*e) *enddo tbpt,0.0035,20.1e6!该处将 0.0033 改为了 0.0035 tbp

4、l,miso,1 tb,c on cr,1! tbdata,0.6,0.8,2.01e6,-1 混凝土破坏准则 tb,bki n, 2,1,2! tbdata,235e6,10.3e6 tbpl,bki n,2 tb,bki n,3,1,2! tbdata,335e6,10.3e6 tbpl,bki n,3 r,1,2,0.00745,90,90 r,2,2,0.00673,90,90 钢梁及一级钢筋的本构关系 二级钢筋的本构关系 !335屈服应力，10代表屈服后的切线模量 定义上混凝土板实常数 定义下混凝土板实常数 r,3,gybh,gybh,gybh,gybh 定义钢梁上下翼缘的厚度 r,

5、4,gfbh,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.0

6、01,51169 rmore,0.002,61124,0.003,63521 r,6 垫板实常数 r,7,0.00004398 上混凝土板中纵筋的横截面积（折合而来） blc4,0,0,glch,gfbg !钢梁腹板 csys,4 wprota,-90 blc4,0,-gybk*0.5,glch,gybk*0.5 ! 令） blc4,0,0,glch,gybk*0.5! aglue命令） wpoffs,0,0,gfbg blc4,0,-gybk*0.5,glch,gybk*0.5 ! r,8,0.000050265!下混凝土板中纵筋的横截面积 !注：钢梁总长 6200mm跨度为3000+300

7、0，在两端支座外各留出了100mm 钢梁下翼板之半（一次建成整个板时无法用aglue命 钢梁下翼板之半（一次建成整个板时无法用 钢梁上翼板之半（一次建成整个板时无法用aglue命 令） blc4,0,0,glch,gybk*0.5 aglue命令） 钢梁上翼板之半（一次建成整个板时无法用 用工作平面切割梁体然后添加加劲肋 wpoffs,0.100 wprota,_90 asbw,all wpoffs,-h ntbch*0.5 asbw,all wpoffs,-0.5*h ntbch asbw,all nummrg,all nu mcmp,all 连线，为增加加劲肋作准备 *do,i,0,2,1

8、 *do,j,0,1,1! l,15+j+6*i,17+j+6*i *enddo *enddo al,28,50,21,16 al,31,16,25,51 al,33,52,7,3 al,34,3,11,53 al,44,54,27,19 al,47,19,41,55 asel,all aglue,all 粘结各板形成钢梁 nummrg,all nu mcmp,all asel,s,loc,x,-gfbg asel,a,loc,x,0 aplot aatt,2,3,2! 选中上下翼缘板，准备对钢梁翼板进行单元划分 赋予钢梁上下翼缘板单元特性 lesize,31,0.0375$lesize,28

9、,0.0375 定义上下翼缘有限元网格尺寸 lesize,25,0.0375$lesize,21,0.0375 lesize,18,0.100$lesize,17,0.100 lesize,36,0.100$lesize,35,0.100 lesize,23,0.100$lesize,20,0.100 lesize,15,0.100$lesize,14,0.100 mshkey,1 !声明使用映射网格划分 mshape,0! amesh,all 声明使用平面四边形网格划分 allsel,all asel,s,loc,y,0 ! aplot 选中腹板，准备对钢梁腹板进行单元划分 aatt,2,4

10、,2 lesize,16,4! 定义腹板有限元网格尺寸 mshkey,1 !声明使用映射网格划分 mshape,0! amesh,all allsel,all 声明使用平面四边形网格划分 asel,s,loc, z,0 asel,a,loc,z,h ntbch*0.5 asel,a,loc,z,h ntbch aplot aatt,2,4,2 mshkey,1 !声明使用自由网格划分 mshape,0! amesh,all allsel,all 声明使用平面三角形网格划分 I* wpoffs,gybh*0.5 !准备建立上侧混凝土板几何模型 blc4,0,-h ntbk*0.5,h ntbh,

11、h ntbk,h ntbch I* !对上混凝土板进行映射划分 wpoffs,0.0375 wprota,90 vsbw,all wpoffs,0.075 vsbw,all vsel,all vatt,1,1,1 lesize,78,3$lesize,87,1 lesize,80,3$lesize,60,2 lesize,66,0.100 mshkey,1 !声明使用映射网格划分 mshape,0,3D! vmesh,all 声明使用平面四边形网格划分 查看钢筋的方向 !esel,s,real,1 !/DEVICE,VECT0R,1 !/TYPE,BASIC !/eshape,1 !allse

12、l,all I* !加弹簧、耦合 !上混泥土板 I * allsel,all wpoffs,-0.0375 nsel,s,loc, z,-0.0375,0.0375 nsel,r,loc,x,-0.5*gybh,0 type,3!设定弹簧单元 real,5 e,24,917 *do,i,0,13,1 e,330+2*i,977-2*i *enddo e,299,949 *do,i,0,13,1 e,545+2*i,947-2*i *enddo e,423,919 cp,1,uy,24,917 *do,i,-1,27,1 cp,3+i,uy,330+i,977-i *enddo cp,31,uy

13、,299,949 *do,i,-1,27,1 cp,33+i,uy,545+i,947-i *enddo cp,61,uy,423,919 cp,62,uz, 24,917 *do,i,-1,27,1 cp,64+i,u z,330+i,977-i *enddo cp,92,uz,299,949 *do,i,-1,27,1 cp,94+i,u z,545+i,947-i *enddo cp,122,u z,423,919 e,118,1600 *do,i,0,13,1 e,390+2*i,1660-2*i *enddo e,359,1632 *do,i,0,13,1 e,603+2*i,163

14、0-2*i *enddo e,485,1589 I * cp,123,uy,118,1600 *do,i,-1,27,1 cp,125+i,uy,390+i,1660-i *enddo cp,153,uy,359,1632 *do,i,-1,27,1 cp,155+i,uy,603+i,1630-i *enddo cp,183,uy,485,1589 cp,184,uz, 118,1600 *do,i,-1,27,1 cp,186+i,uz,390+i,1660-i *enddo cp,214,uz,359,1632 *do,i,-1,27,1 cp,216+i,uz,603+i,1630-i

15、 *enddo cp,244,uz,485,1589 allsel,all !搞定 I* !为上混凝土板增设纵向钢筋 nsel,s,loc,x,0.5*h ntbh type,5!设定弹簧单元 real,7 *do,j,0,1,1 e,1232+j,1587-j *do,i,0,57,1 e,1587-2*i-j,1585-2*i-j *enddo e,1471-j,1047-j *enddo e,918,1038 *do,i,0,57,1 e,1038-i,1037-i *enddo e,980,979 e,1602,1721 *do,i,0,57,1 e,1721+i,1722+i *en

16、ddo e,1779,1597 e,1787,2260 *do,i,0,57,1 e,2260-i,2259-i *enddo e,2202,1598 e,1788,2319 *do,i,0,57,1 e,2319-i,2318-i *enddo e,2261,1599 allsel,all I* !为荷载和支座处添加弹性垫块 wpoffs,-0.5*gybh-gfbg,0.5*h ntbch,-0.5*gybk blc4,-0.5*gybh-0.010,-0.100,0.010,0.200,gybk vsel,s,2 vatt,4,6,4 lesize,93,4$lesize,89,4$le

17、size,90,1 mshkey,1!声明使用映射网格划分 mshape,0,3D vmesh,all 声明使用平面四边形网格划分 n sel,s,loc,x,-0.5*gybh,0 nsel,r,loc,y,-0.100,0.100 cp,1000,uy,238,2325$cp,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,1

18、009,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,2331 cp,1005+35,uz,208,2328 cp,1006+35,uz,209,2368$cp,1007+35,uz,57,2365 cp,1008+35,uz,87,2362$cp,1009+35,uz,27,2334 cp,1005+70,ux,208,2328 cp,1006+70,ux,209,2368$cp,1007+70,ux,57,2365 cp,1008+70,ux,