<P>!钢管混凝土极限承载力分析 <BR> <BR>force=5e10<BR>pressure=force/3.14*0.0795**2<BR>/prep7<BR>et,1,plane42<BR>keyopt,1,3,1</P>
<P>mp,ex,1,2e11 !钢<BR>mp,prxy,1,0.283<BR>mp,dense,1,7800<BR>tb,bkin,1,1,1<BR>tbdata,,379e6,0.22e11</P>
<P>mp,ex,2,2.555e10 !混凝土 <BR>mp,prxy,2,0.2<BR>mp,dens,2,2500<BR>tb,miso,2,1,8<BR>tbpt,,0.001,25.55e6<BR>tbpt,,0.0015,34.87e6<BR>tbpt,,0.002,41.88e6<BR>tbpt,,0.0025,46.75e6<BR>tbpt,,0.003,48.95e6<BR>tbpt,,0.0035,49.9e6<BR>tbpt,,0.0045,51.5e6<BR>tbpt,,0.006,53.37e6</P>
<P>mp,ex,3,2e12 !掂板<BR>mp,prxy,3,0<BR>mp,dens,3,7800</P>
<P>/axlab,x,strain<BR>/axlab,y,stress</P>
<P>rectng,0,74.3e-3,0,520e-3<BR>rectng,74.3e-3,79.5e-3,0,520e-3<BR>rectng,0,74.3e-3,520e-3,525e-3<BR>rectng,74.3e-3,79.5e-3,520e-3,525e-3<BR>aglue,1,2,3,4</P>
<P>!aplot1<BR>lsel,s,,,3<BR>lesize,all,,,20<BR>lsel,s,,,2<BR>lesize,all,,,60<BR>type,1<BR>mat,2<BR>amap,1,1,2,3,4</P>
<P>!aplot,5<BR>lsel,s,,,18<BR>lesize,all,,,4<BR>type,1<BR>mat,1<BR>amap,5,2,6,3,7</P>
<P>!aplot,6<BR>lsel,s,,,19<BR>lesize,all,,,4<BR>type,1<BR>mat,3<BR>amap,6,4,3,11,12</P>
<P>!aplot,7<BR>type,1<BR>mat,3<BR>amap,7,3,7,11,15<BR>finish </P>
<P>/solu<BR>nsel,s,loc,x,0 !边界条件<BR>d,all,ux<BR>nsel,s,loc,y,0<BR>d,all,all<BR>allsel</P>
<P>acel,0,-9.8,0 !荷载条件<BR>antype,static !求解控制1<BR>nlgeom,on<BR>lnsrch,on<BR>!nropt,full,on<BR>outres,all,all<BR>time,1 <BR>deltim,0.01,0.001,0.02<BR>autots,on<BR>kbc,0<BR>lsel,s,,,11,22,11<BR>sfl,all,pres,pressure<BR>solve<BR>finish</P>
<P>/POST26 <BR>ANSOL,2,133,EPPL,Y,EPPLY_2 <BR>ANSOL,3,133,EPeL,Y,EPeLY_2 <BR>add,4,3,2,<BR>ANSOL,5,1,S,Y,SY_5<BR>PROD,6,4,,,strain,,,-1<BR>PROD,7,5,,,stress,,,-1<BR>/grid,0<BR>xvar,6<BR>/axlab,x,strain<BR>/axlab,y,stress<BR>plvar,7</P> |