如何在ABAQUS中实现分层填土

zsj

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

　　谢谢。

TNC

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

1. 　　SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,
   
2. 
   
3. 　　1 COORDS,JLTYP,SNAME)
   
4. 
   
5. 　　C
   
6. 
   
7. 　　INCLUDE 'ABA_PARAM.INC'
   
8. 
   
9. 　　C
   
10. 
    
11. 　　DIMENSION TIME(2), COORDS (3)
    
12. 
    
13. 　　CHARACTER*80 SNAME
    
14. 
    
15. 　　H=KSTEP*2
    
16. 
    
17. 　　WIDTH=12
    
18. 
    
19. 　　IF(COORDS(1).LE.WIDTH)THEN
    
20. 
    
21. 　　PLOAD=(WIDTH-COORDS(1))*2/3*20000
    
22. 
    
23. 　　ELSE
    
24. 
    
25. 　　PLOAD=0
    
26. 
    
27. 　　END IF
    
28. 
    
29. 　　IF(COORDS(1).LE.(WIDTH-1.5*H))THEN
    
30. 
    
31. 　　NLOAD=-(WIDTH-1.5*H-COORDS(1))*2/3*20000
    
32. 
    
33. 　　ELSE
    
34. 
    
35. 　　NLOAD=0
    
36. 
    
37. 　　END IF
    
38. 
    
39. 　　F=PLOAD+NLOAD
    
40. 
    
41. 　　RETURN
    
42. 
    
43. 　　END
    

复制代码

bluehorse

　　使用*model change,type=element, add

　　eset-

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

　　例如

1. 　　*step, name=step-1
   
2. 
   
3. 　　*model change,type=element, remove //计算之初，把土层1和2remove掉
   
4. 
   
5. 　　eset-tu1,eset-tu2
   
6. 
   
7. 　　*step, name=step-2
   
8. 
   
9. 　　*model change,type=element, add //填筑土1
   
10. 
    
11. 　　eset-tu1
    
12. 
    
13. 　　*step, name=step-3
    
14. 
    
15. 　　*model change,type=element, add //填筑土2
    
16. 
    
17. 　　eset-tu2
    
18. 
    
19. 　　//依次类推
    

复制代码