设为首页收藏本站联系我们
切换到宽版

声振论坛

 找回密码
 我要加入

QQ登录

只需一步，快速开始

声振论坛»论坛 › 工程软件 › ABAQUS讨论区 › 如何在ABAQUS中实现分层填土
返回列表 发新帖
查看: 3079|回复: 2

如何在ABAQUS中实现分层填土

[复制链接]
zsj
发表于 2006-4-27 09:38 | 显示全部楼层 |阅读模式

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

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

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

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

　　谢谢。
回复
分享到：

使用道具 举报

TNC
发表于 2006-4-28 16:43 | 显示全部楼层

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

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

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

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

  3. 　　1 COORDS,JLTYP,SNAME)

  5. 　　C

  7. 　　INCLUDE 'ABA_PARAM.INC'

  9. 　　C

  11. 　　DIMENSION TIME(2), COORDS (3)

  13. 　　CHARACTER*80 SNAME

  15. 　　H=KSTEP*2

  17. 　　WIDTH=12

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

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

  23. 　　ELSE

  25. 　　PLOAD=0

  27. 　　END IF

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

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

  33. 　　ELSE

  35. 　　NLOAD=0

  37. 　　END IF

  39. 　　F=PLOAD+NLOAD

  41. 　　RETURN

  43. 　　END
复制代码
回复 支持 反对

使用道具 举报

bluehorse
发表于 2006-5-6 11:00 | 显示全部楼层

使用*model change, add

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

　　使用*model change,type=element, add

　　eset-

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

　　例如
  1. 　　*step, name=step-1

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

  5. 　　eset-tu1,eset-tu2

  7. 　　*step, name=step-2

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

  11. 　　eset-tu1

  13. 　　*step, name=step-3

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

  17. 　　eset-tu2

  19. 　　//依次类推
复制代码
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-5-2 12:46 , Processed in 0.165592 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表