[转帖]Ansys排水管道计算

AaronSpark

埋设在地下的排水管道
rpc管道混凝土管道用solid45单元模拟，link8模拟纵向钢筋和箍筋，直接建立单元，采用复制的方式直接生成实体。让link单元和solid单元共用节点，（nummrg和numcmp命令）这样就省去了耦合和添加约束方程，预应力采用施加初始应变的方式。约束采用简直方式。计算以后在支座处有比较名显的应力集中现象。

1. /prep7
   
2. et,1,solid45
   
3. mp,ex,1,4.5e10
   
4. mp,prxy,1,0.25
   
5. et,2,link8
   
6. mp,ex,2,2.0e11
   
7. mp,prxy,2,0.3
   
8. R,1,137.4e-6, ,
   
9. csys,1
   
10. n,1,0.52
    
11. n,2,0.56
    
12. n,3,0.6
    
13. NGEN,2,3,1,3,1,0,18,0,1,
    
14. NGEN,2,6,1,6,1,0,0,0.05,1,
    
15. type,1
    
16. mat,1
    
17. e,1,2,5,4,7,8,11,10
    
18. e,2,3,6,5,8,9,12,11
    
19. eplot
    
20. egen,20,12,1,2,1,,,,,,,18,,
    
21. nummrg,all
    
22. numcmp,all
    
23. egen,100,120,1,40,1,,,,,,,,0.05
    
24. nummrg,all
    
25. numcmp,all
    
26. type,2
    
27. mat,2
    
28. 
    
29. *dim,nOne,array,21
    
30. *do,i,1,16
    
31. *do,j,1,21
    
32. nsel,s,loc,x,0.56
    
33. nsel,r,loc,z,0.25+0.3*(i-1)
    
34. nsel,r,loc,y,18*(j-1)
    
35. *get,nOne(j),node,,num,max
    
36. *enddo
    
37. *do,j,1,20
    
38. e,nOne(j),nOne(j+1)
    
39. *enddo
    
40. *enddo
    
41. 
    
42. *dim,nTwo,array,101
    
43. *do,i,1,10
    
44. *do,j,1,101
    
45. nsel,s,loc,x,0.56
    
46. nsel,r,loc,y,36*(i-1)
    
47. nsel,r,loc,z,0.05*(j-1)
    
48. *get,nTwo(j),node,,num,max
    
49. *enddo
    
50. *do,j,1,100
    
51. e,nTwo(j),nTwo(j+1)
    
52. *enddo
    
53. *enddo
    
54. 
    
55. alls
    
56. nummrg,all
    
57. numcmp,all
    
58. ESEL,S,TYPE,,2
    
59. BFE,all,TEMP,1,-375, , ,
    
60. /view,1,1,1,1
    
61. /replot
    
62. save

复制代码