《组合梁ansys建模(用弹簧模拟滑移).doc》由会员分享，可在线阅读，更多相关《组合梁ansys建模(用弹簧模拟滑移).doc（9页珍藏版）》请在金锄头文库上搜索。
1、/COM,Structural/config,NRES,90000/UNITS,SI/prep7gybh=0.010 !钢梁翼板厚度10mmgybk=0.150 !钢梁翼板宽度150mmgfbh=0.007 !钢梁腹板厚度7mmgfbg=0.130 !钢梁腹板高度130mmhntbh=0.075 !混凝土板厚度75mmhntbk=0.600 !混凝土板宽度600mmhntbch=6.000 !每节混凝土板长度6000mmglch=6.200 !每节钢梁总长度600mmxhntbh=0.060 !混凝土板厚度60mmxhntbk=0.220 !混凝土板宽度220mmxhntbch=1.200 !
2、每节混凝土板长度1200mmet,1,solid65,3 !定义混凝土板单元et,2,shell43 !定义钢梁单元et,3,combin39,0 !定义弹簧单元combin39et,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 !定义钢梁及一级钢筋的弹性模量mp,prxy,2,0.30 !定义钢梁及一级钢筋的泊松比mp,dens,2,7.85e3 !定义钢梁及
3、一级钢筋的密度mp,ex,3,2.00E11 !定义二级钢筋的弹性模量mp,prxy,3,0.3 !定义二级钢筋的泊松比mp,dens,3,7.85e3 !定义二级钢筋的密度mp,ex,4,2.02E11 !定义垫板材料特性 mp,prxy,4,0.3 tb,miso,1 !混凝土屈服准则*do,e,0.0002,0.002,0.0001tbpt,e,20.1e6*(1000*e-500*500*e*e)*enddotbpt,0.0035,20.1e6 !该处将0.0033改为了0.0035tbpl,miso,1tb,concr,1 !混凝土破坏准则tbdata,0.6,0.8,2.01e6,
4、-1tb,bkin,2,1,2 !钢梁及一级钢筋的本构关系tbdata,235e6,10.3e6tbpl,bkin,2tb,bkin,3,1,2 !二级钢筋的本构关系tbdata,335e6,10.3e6 !335屈服应力，10代表屈服后的切线模量tbpl,bkin,3r,1,2,0.00745,90,90 !定义上混凝土板实常数r,2,2,0.00673,90,90 !定义下混凝土板实常数r,3,gybh,gybh,gybh,gybh !定义钢梁上下翼缘的厚度r,4,gfbh,gfbh,gfbh,gfbh !定义钢梁腹板厚度r,5,0,0,0.00002,12175,0.00004,1602
5、1 !定义弹簧的荷载变形曲线 rmore,0.00005,17492,0.00006,18789,0.00007,19956rmore,0.00008,21022,0.00009,22006,0.0001,22921rmore,0.0002,29831,0.0003,34610,0.0004,38313rmore,0.0005,41338,0.0006,43887,0.0007,46078rmore,0.0008,47989,0.0009,49673,0.001,51169rmore,0.002,61124,0.003,63521r,6 !垫板实常数r,7,0.00004398 !上混凝土板中
6、纵筋的横截面积（折合而来）r,8,0.000050265 !下混凝土板中纵筋的横截面积!*!注：钢梁总长6200mm，跨度为3000+3000，在两端支座外各留出了100mmblc4,0,0,glch,gfbg !钢梁腹板csys,4wprota,-90blc4,0,-gybk*0.5,glch,gybk*0.5 !钢梁下翼板之半(一次建成整个板时无法用aglue命令)blc4,0,0,glch,gybk*0.5 !钢梁下翼板之半(一次建成整个板时无法用aglue命令)wpoffs,0,0,gfbgblc4,0,-gybk*0.5,glch,gybk*0.5 !钢梁上翼板之半(一次建成整个板时
7、无法用aglue命令)blc4,0,0,glch,gybk*0.5 !钢梁上翼板之半(一次建成整个板时无法用aglue命令)wpoffs,0.100 !用工作平面切割梁体然后添加加劲肋wprota,-90asbw,allwpoffs,-hntbch*0.5asbw,allwpoffs,-0.5*hntbchasbw,allnummrg,allnumcmp,all*do,i,0,2,1*do,j,0,1,1 !连线，为增加加劲肋作准备l,15+j+6*i,17+j+6*i*enddo*enddoal,28,50,21,16al,31,16,25,51al,33,52,7,3al,34,3,11,
8、53al,44,54,27,19al,47,19,41,55asel,allaglue,all !粘结各板形成钢梁nummrg,allnumcmp,allasel,s,loc,x,-gfbg !选中上下翼缘板，准备对钢梁翼板进行单元划分asel,a,loc,x,0aplotaatt,2,3,2 !赋予钢梁上下翼缘板单元特性lesize,31,0.0375$lesize,28,0.0375 !定义上下翼缘有限元网格尺寸lesize,25,0.0375$lesize,21,0.0375lesize,18,0.100$lesize,17,0.100lesize,36,0.100$lesize,35,
9、0.100lesize,23,0.100$lesize,20,0.100lesize,15,0.100$lesize,14,0.100mshkey,1 !声明使用映射网格划分mshape,0 !声明使用平面四边形网格划分amesh,all allsel,allasel,s,loc,y,0 !选中腹板，准备对钢梁腹板进行单元划分aplotaatt,2,4,2lesize,16,4 !定义腹板有限元网格尺寸mshkey,1 !声明使用映射网格划分mshape,0 !声明使用平面四边形网格划分amesh,all allsel,allasel,s,loc,z,0asel,a,loc,z,hntbch*
10、0.5asel,a,loc,z,hntbchaplotaatt,2,4,2mshkey,1 !声明使用自由网格划分mshape,0 !声明使用平面三角形网格划分amesh,allallsel,all!*wpoffs,gybh*0.5 !准备建立上侧混凝土板几何模型blc4,0,-hntbk*0.5,hntbh,hntbk,hntbch!*!对上混凝土板进行映射划分wpoffs,0.0375wprota,90vsbw,allwpoffs,0.075vsbw,allvsel,allvatt,1,1,1lesize,78,3$lesize,87,1lesize,80,3$lesize,60,2les
11、ize,66,0.100mshkey,1 !声明使用映射网格划分mshape,0,3D !声明使用平面四边形网格划分vmesh,all!esel,s,real,1!/DEVICE,VECTOR,1!/TYPE,BASIC !查看钢筋的方向!/eshape,1!allsel,all!*!加弹簧、耦合!上混泥土板!*allsel,allwpoffs,-0.0375nsel,s,loc,z,-0.0375,0.0375nsel,r,loc,x,-0.5*gybh,0type,3 !设定弹簧单元real,5e,24,917*do,i,0,13,1e,330+2*i,977-2*i*enddoe,299
12、,949*do,i,0,13,1e,545+2*i,947-2*i*enddoe,423,919cp,1,uy,24,917*do,i,-1,27,1cp,3+i,uy,330+i,977-i*enddocp,31,uy,299,949*do,i,-1,27,1cp,33+i,uy,545+i,947-i*enddocp,61,uy,423,919cp,62,uz,24,917*do,i,-1,27,1cp,64+i,uz,330+i,977-i*enddocp,92,uz,299,949*do,i,-1,27,1cp,94+i,uz,545+i,947-i*enddocp,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,1589!*cp,12
