塑性土体+弹性桩+粘结在荷载下的情况

VibInfo · 发表于 2005-10-26 20:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

<DIV >!塑性土体+弹性桩+粘结 !集中荷载:216KN，瞬态分析 /com,structural fini /clear /prep7 et,1,solid45 mp,ex,1,2e7 mp,prxy,1,0.45 mp,dens,1,1180 mp,damp,1,0.05 TB,dp,1 TBDATA,1,34000,16.7,16.7 et,2,solid45 mp,ex,2,2e10 mp,prxy,2,0.3 mp,dens,2,2300 !!!!kelvin单元 ET,3,COMBIN14 R,3,3.4e6,1.7e6 BLOCK,-6,6,0,3,0,-10, CYL4,0,0,0,0,0.25,180,-10 VSBV, 1, 2 CYL4,0,0,0,0,0.25,180,-10 LSTR, 18, 7 LSTR, 18, 8 numcmp,all FLST,2,2,4,ORDE,2 FITEM,2,29 FITEM,2,28 ADRAG,P51X, , , , , ,27 FITEM,2,1 FITEM,2,2 FLST,3,2,5,ORDE,2 FITEM,3,14 FITEM,3,15 VSBA,P51X,P51X numcmp,all vglue,all numcmp,all lesize,13,,,1 lesize,14,,,1 lesize,26,,,1 lesize,21,,,1 lesize,4,,,1 lesize,5,,,1 lesize,18,,,1 lesize,23,,,1 LESIZE,1, , ,6 LESIZE,3, , ,6 LESIZE,6, , ,6 LESIZE,8, , ,6 LESIZE,19, , ,6 LESIZE,20, , ,6 LESIZE,24, , ,6 LESIZE,25, , ,6 LESIZE,2, , ,24 LESIZE,7, , ,24 LESIZE,29, , ,24 LESIZE,28, , ,24 LESIZE,9, , ,20 LESIZE,10, , ,20 LESIZE,11, , ,20 LESIZE,12, , ,20 LESIZE,27, , ,20 LESIZE,15, , ,20 LESIZE,17, , ,20 LESIZE,16, , ,20 LESIZE,22, , ,20 LESIZE,30, , ,10,0.5 LESIZE,31, , ,10,0.5 LESIZE,32, , ,10,0.5 LESIZE,33, , ,10,0.5 LESIZE,36, , ,10,0.5 LESIZE,37, , ,10,0.5 LESIZE,34, , ,10,0.5 LESIZE,35, , ,10,0.5 type,1 mat,1 vsweep,5,23,20 vsweep,6,26,19 vsweep,4,20,19 type,2 mat,2 vsweep,3,13,9 vsweep,2,5,13 vsweep,1,4,9 numcmp,all !!!!生成KELVIN单元 ASEL,S, , , 2 nsla,r,1 cm,xl,node ngen,2,9000,xl,,,-0.5,,,1 allsel,all nsla,r,1 cm,xr,node ngen,2,9000,xr,,,0.5,,,1 ALLSEL,ALL NUMCMP,NODE Real,1 *do,i,361,381 e,i,i+8208 *enddo *do,i,529,654 e,i,i+8061 *enddo *do,i,1978,1998 e,i,i+6738 *enddo *do,i,2146,2271 e,i,i+6591 *enddo numcmp,all !加底面固端约束条件 FLST,2,6,5,ORDE,6 FITEM,2,6 FITEM,2,10 FITEM,2,14 FITEM,2,17 FITEM,2,21 FITEM,2,24 DA,P51X,all, !对称面Y方向约束 FLST,2,5,5,ORDE,5 FITEM,2,1 FITEM,2,4 FITEM,2,5 FITEM,2,23 FITEM,2,26 DA,P51X,uy, !Kelvin单元约束 nsel,s,loc,x,6.5 d,all,all nsel,s,loc,x,-6.5 d,all,all allsel,all gplot !施加惯性力和侧向压力 ACEL,0,0,9.8 SFGRAD,PRES, ,Z,0,-11800*0.65 SFA,3,1,PRES,0 SFA,2,1,PRES,0 sftran /pbc,all,,1 /psf,pres,norm,2,0,1 /SOLU *DO,I,1,10 !做10次循环 FLST,2,1,3,ORDE,1 FITEM,2,14 FK,P51X,FX,108e3/10*i time,i LSWRITE,i, *ENDDO *DO,I,1,21 FLST,2,1,3,ORDE,1 FITEM,2,14 FK,P51X,FX,108e3/10*(11-i) time,(10+i) LSWRITE,(10+i), *ENDDO *DO,I,1,11 FLST,2,1,3,ORDE,1 FITEM,2,14 FK,P51X,FX,-108e3/10*(11-i) time,(31+i) LSWRITE,(31+i), *ENDDO lssolve,1,42,1 fini /post1 !桩中轴结点X向位移 *do,i,1,42 *if,i,lt,10,then *cfopen,dis0%i%,txt *endif *if,i,ge,10,then *cfopen,dis%i%,txt *endif set,i *GET,zc,NODE,8568,LOC,Z *GET,ux,NODE,8568,U,X *vwrite,ux,zc (2f20.10) *do,j,1,20 *GET,zc,NODE,8547+j,LOC,Z *GET,ux,NODE,8547+j,U,X *vwrite,ux,zc (2f20.10) *enddo *cfclose !桩右（桩、土）结点X向位移 *if,i,lt,10,then *cfopen,RTdis0%i%,txt *endif *if,i,ge,10,then *cfopen,RTdis%i%,txt *endif set,i *GET,zc,NODE,2145,LOC,Z *GET,ux,NODE,2145,U,X *vwrite,ux,zc (2f20.10) *do,j,1,19 *GET,zc,NODE,2114+j,LOC,Z *GET,ux,NODE,2114+j,U,X *vwrite,ux,zc (2f20.10) *enddo *GET,zc,NODE,2139,LOC,Z *GET,ux,NODE,2139,U,X *vwrite,ux,zc (2f20.10) *cfclose !桩左（桩、土）结点X向位移 *if,i,lt,10,then *cfopen,LTdis0%i%,txt *endif *if,i,ge,10,then *cfopen,LTdis%i%,txt *endif set,i *GET,zc,NODE,528,LOC,Z *GET,ux,NODE,528,U,X *vwrite,ux,zc (2f20.10) *do,j,1,19 *GET,zc,NODE,497+j,LOC,Z *GET,ux,NODE,497+j,U,X *vwrite,ux,zc (2f20.10) *enddo *GET,zc,NODE,522,LOC,Z *GET,ux,NODE,522,U,X *vwrite,ux,zc (2f20.10) *cfclose *enddo !/post1 !FLST,2,6,1 !FITEM,2,8567 !FITEM,2,8563 !FITEM,2,8559 !FITEM,2,8555 !FITEM,2,8551 !FITEM,2,8568 !PATH,bh,6,30,20, !PPATH,P51X,1 !PDEF,ux,U,X,AVG</DIV>

yadanli200 · 发表于 2006-4-25 14:34

请问楼主你这个命令流哪里弄来的？？ 怎么跟我们这边一个人的一模一样啊？ 是否熟人？？？

账号		自动登录	找回密码
密码			我要加入

塑性土体+弹性桩+粘结 在荷载下的情况

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

塑性土体+弹性桩+粘结在荷载下的情况