組合梁ansys建模(用彈簧模擬滑移)

/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!每節(jié)混凝土板長度6000mmglch=6.200!每節(jié)鋼梁總長度600mmxhntbh=0.060!混凝土板厚度60mmxhntbk=0.220!混凝土板寬度220mmxhntbch=1.200!每節(jié)混凝土板長度1200mmet,1,solid65,,,,,,3!定義混凝土板單元et,2,shell43!定義鋼梁單元et,3,combin39,,,0!定義彈簧單元combin39et,4,solid45!定義墊板單元et,5,link8!定義縱向鋼筋單元mp,ex,1,1.9095E10!定義混凝土板的彈性模量N/mm2mp,prxy,1,0.20!定義混凝土板的泊松比mp,dens,1,2.6e3!定義混凝土板的密度mp,ex,2,2.10E11!定義鋼梁及一級鋼筋的彈性模量mp,prxy,2,0.30!定義鋼梁及一級鋼筋的泊松比mp,dens,2,7.85e3!定義鋼梁及一級鋼筋的密度mp,ex,3,2.00E11!定義二級鋼筋的彈性模量mp,prxy,3,0.3!定義二級鋼筋的泊松比mp,dens,3,7.85e3!定義二級鋼筋的密度mp,ex,4,2.02E11!定義墊板材料特性mp,prxy,4,0.3tb,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,-1tb,bkin,2,1,2!鋼梁及一級鋼筋的本構(gòu)關(guān)系tbdata,,235e6,10.3e6tbpl,bkin,2tb,bkin,3,1,2!二級鋼筋的本構(gòu)關(guān)系tbdata,,335e6,10.3e6!335屈服應(yīng)力，10代表屈服后的切線模量tbpl,bkin,3r,1,2,0.00745,90,90!定義上混凝土板實常數(shù)r,2,2,0.00673,90,90!定義下混凝土板實常數(shù)r,3,gybh,gybh,gybh,gybh!定義鋼梁上下翼緣的厚度r,4,gfbh,gfbh,gfbh,gfbh!定義鋼梁腹板厚度r,5,0,0,0.00002,12175,0.00004,16021!定義彈簧的荷載變形曲線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!墊板實常數(shù)r,7,0.00004398!上混凝土板中縱筋的橫截面積（折合而來）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!鋼梁上翼板之半(一次建成整個板時無法用aglue命!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!設(shè)定彈簧單元real,5e,24,917*do,i,0,13,1e,330+2*i,977-2*i*enddoe,299,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,123,uy,118,1600*do,i,-1,27,1cp,125+i,uy,390+i,1660-i*enddocp,153,uy,359,1632*do,i,-1,27,1cp,155+i,uy,603+i,1630-i*enddocp,183,uy,485,1589cp,184,uz,118,1600*do,i,-1,27,1cp,186+i,uz,390+i,1660-i*enddocp,214,uz,359,1632*do,i,-1,27,1cp,216+i,uz,603+i,1630-i*enddocp,244,uz,485,1589allsel,all!搞定!**********************************!為上混凝土板增設(shè)縱向鋼筋nsel,s,loc,x,0.5*hntbhtype,5!設(shè)定彈簧單元real,7*do,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,1599allsel,all!**********************************!為荷載和支座處添加彈性墊塊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,4lesize,93,,,4$lesize,89,,,4$lesize,90,,,1mshkey,1!聲明使用映射網(wǎng)格劃分mshape,0,3D!聲明使用平面四邊形網(wǎng)格劃分vmesh,allnsel,s,loc,x,-0.5*gybh,0nsel,r,loc,y,-0.100,0.100cp,1000,uy,238,2325$cp,1001,uy,267,2346cp,1002,uy,178,2347$cp,1003,uy,207,2348cp,1004,uy,149,2332$cp,1005,uy,208,2328cp,1006,uy,209,2368$cp,1007,uy,57,2365cp,1008,uy,87,2362$cp,1009,uy,27,2334cp,1010,uy,424,2326$cp,1011,uy,453,2343cp,1012,uy,58,2344$cp,1013,uy,88,2345cp,1014,uy,28,2331cp,1005+35,uz,208,2328cp,1006+35,uz,209,2368$cp,1007+35,uz,57,2365cp,1008+35,uz,87,2362$cp,1009+35,uz,27,2334cp,1005+70,ux,208,2328cp,1006+70,ux,209,2368$cp,1007+70,ux,57,2365cp,1008+70,ux,87,2362$cp,1009+70,ux,27,2334allsel,allnsel,s,loc,x,-0.5*gybh-0.010nsel,r,loc,y,0d,all,uy,0,,,,ux,uznsel,s,loc,x,0nsel,r,loc,y,0.5*hntbchd,all,uy,0,,,,uznsel,s,loc,x,0nsel,r,loc,y,-0.5*hntbchd,all,uy,0,,,,uzallsel,all/soluantype,0solcontrol,onoutres,all,5nlgeom,offkbc,0nropt,fullautots,ontime,1a