zsj 发表于 2006-4-27 09:38

如何在ABAQUS中实现分层填土

本帖最后由 wdhd 于 2016-3-16 10:37 编辑

　　各位大哥，小弟刚开始学ABAQUS,不知道怎么实现分层填土

　　谢谢。

TNC 发表于 2006-4-28 16:43

回复：（zsj）如何在ABAQUS中实现分层填土

本帖最后由 wdhd 于 2016-3-16 10:38 编辑

　　用户子程序里如何实现分层填土荷载

　　SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,

　　1 COORDS,JLTYP,SNAME)

　　C

　　INCLUDE 'ABA_PARAM.INC'

　　C

　　DIMENSION TIME(2), COORDS (3)

　　CHARACTER*80 SNAME

　　H=KSTEP*2

　　WIDTH=12

　　IF(COORDS(1).LE.WIDTH)THEN

　　PLOAD=(WIDTH-COORDS(1))*2/3*20000

　　ELSE

　　PLOAD=0

　　END IF

　　IF(COORDS(1).LE.(WIDTH-1.5*H))THEN

　　NLOAD=-(WIDTH-1.5*H-COORDS(1))*2/3*20000

　　ELSE

　　NLOAD=0

　　END IF

　　F=PLOAD+NLOAD

　　RETURN

　　END

bluehorse 发表于 2006-5-6 11:00

使用*model change, add

本帖最后由 wdhd 于 2016-3-16 10:39 编辑

　　使用*model change,type=element, add

　　eset-

　　来一层一层的添加就可以了.

　　例如
　　*step, name=step-1

　　*model change,type=element, remove //计算之初，把土层1和2remove掉

　　eset-tu1,eset-tu2

　　*step, name=step-2

　　*model change,type=element, add //填筑土1

　　eset-tu1

　　*step, name=step-3

　　*model change,type=element, add //填筑土2

　　eset-tu2

　　//依次类推
页: [1]
查看完整版本: 如何在ABAQUS中实现分层填土