马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？我要加入
x
<P>/COM, Structural <BR>/prep7 <BR>et,1,plane42<BR>KEYOPT,1,3,2<BR>mp,ex,1,1.9e10 !桩的弹性模量<BR>mp,nuxy,1,0.2 !桩的泊松比<BR>mp,dens,1,2500 !桩的密度<BR>mp,ex,2,1.7e7 !土的弹性模量<BR>mp,nuxy,2,0.4 !土的泊松比<BR>mp,dens,2,1700 !土的密度 <BR>tb,dp,2 <BR>tbdata,1,1900,32,30 !粘聚力c为19,摩擦角为32度,膨胀角为30</P>
<P>RECTNG,0,0.15,0,15, !面1<BR>RECTNG,0.15,15,0,15, !面2<BR>RECTNG,0,0.15,0,-6, !面3<BR>RECTNG,0,15,0,-6, !面4<BR>/pnum,area,1<BR>/pnum,line,1<BR>aovlap,2,3,4<BR>numcmp,all<BR>allsel<BR>aplot</P>
<P>lsel,s,,,1,3,2 !划分面1 <BR>lesize,all,,,1 <BR>lsel,s,,,2,4,2 <BR>lesize,all,,,24<BR>asel,s,,,1<BR>type,1<BR>mat,1<BR>amesh,1 </P>
<P>lsel,s,,,6,8,2 !划分面2<BR>lesize,all,0.5 <BR>lsel,s,,,5<BR>lesize,5,0.5,,20,4<BR>lsel,s,,,7<BR>lesize,7,0.5,,20,0.25<BR>asel,s,,,2<BR>type,1<BR>mat,2<BR>amesh,2 </P>
<P>lsel,s,,,11 !划分面3<BR>lesize,11,0.8,,12,2<BR>lsel,s,,,12<BR>lesize,12,0.8,,12,2<BR>lsel,s,,,13<BR>lesize,13,0.5,,20,4<BR>lsel,s,,,9<BR>lesize,all,0.5 <BR>asel,s,,,3<BR>type,1<BR>mat,2 <BR>amesh,3</P>
<P>lsel,s,,,9 !划分面4 <BR>lesize,all,,,1 <BR>lsel,s,,,10 <BR>lesize,10,0.8,,12,2<BR>asel,s,,,4<BR>type,1<BR>mat,2<BR>amesh,4</P>
<P><BR>!接触单元设置<BR>allsel<BR>et,3,169<BR>et,4,171<BR>keyopt,4,9,0<BR>keyopt,4,12,2<BR>asel,s,,,1<BR>nsla,s,1<BR>nsel,r,loc,x,0.15<BR>r,1<BR>real,1<BR>mp,mu,2,0.2<BR>type,3<BR>esurf<BR>allsel<BR>asel,s,,,2</P>
<P>nsla,s,1<BR>nsel,r,loc,x,0.15<BR>type,4<BR>esurf<BR>allsel,all</P>
<P><BR>!底部接触<BR>asel,s,,,1<BR>nsla,s,1<BR>nsel,r,loc,y,0<BR>r,1<BR>real,1<BR>mp,mu,2,0.2<BR>type,3<BR>esurf<BR>allsel<BR>asel,s,,,4</P>
<P>nsla,s,1<BR>nsel,r,loc,y,0<BR>type,4<BR>esurf<BR>allsel,all</P>
<P><BR>!施加约束及荷载<BR>alls<BR>/solu<BR>dl,10,4,symm<BR>dl,4,1,symm<BR>dl,6,2,symm<BR>dl,12,3,symm<BR>dl,13,3,all<BR>dl,9,4,all</P>
<P>!acel,0,9.8,0<BR>sfl,1,pres,12000<BR>!sfe,1,1,pres,600</P>
<P>!求解控制选项<BR>antype,static<BR>nlgeom,on<BR>time,1<BR>auto,on<BR>nropt,full<BR>nsub,50,100,20<BR>outres,all,all<BR>allsel<BR></P> |
发表于 2006-5-5 14:23
提升卡
变色卡
显身卡