- 积分
- 0
- 注册时间
- 2009-3-16
- 仿真币
-
- 最后登录
- 1970-1-1
|
本帖最后由 xiaodiao666666 于 2009-9-15 19:36 编辑
Config dyn
;建立模型
Gen zone wedge p0 11 10 22 p1 25 10 22 p2 11 0 22 p3 3.5 10 7 size 7 10 15
Group wedge1
`, o: ?2 @9 W/ H) OGen zone brick p0 2.5 0 5 p1 26.8667 0 22 p2 2.5 10 5 p3 3.5 0 7 p4 26.8667 10 22 &
P5 3.5 10 7 p6 25 0 22 p7 25 10 22 size 15 10 2 Group brick1
Gen zone brick p0 2.5 0 5 p1 32 0 5 p2 2.5 10 5 p3 26.8667 0 22 p4 32 10 5 &
P5 26.8667 10 22 p6 32 0 22 p7 32 10 22 size 16 10 15 Group brick2
Gen zone brick p0 0 0 0 p1 32 0 0 p2 0 10 0 p3 2.5 0 5 p4 32 10 0 &
P5 2.5 10 5 p6 32 0 5 p7 31 10 5 size 16 10 3 Group brick3
Model mohr
Prop bulk 2e8 she 1e8 fric 45 coh 1e5 ten 1e5 range group wedge1
Ini density=2500 range group wedge1
Prop bulk 1.11e8 she 5.1e7 fric 25 coh 1.3e5 ten 5e4 range group brick1
Ini density=2000 range group brick1
Prop bulk 2e8 she 1e8 fric 45 coh 1e5 ten 1e5 range group brick2
Ini density=2500 range group brick2
Prop bulk 2e8 she 1e8 fric 45 coh 1e5 ten 1e5 range group brick3
Ini density=2500 range group brick3
Set grav 0,0,-10
;边界条件
Fix x range x 31.9 32.2
Fix y range y
-.1 .1
Fix y range y 9.9 10.1
Fix x range z -.1 .1
Fix y range z -.1 .1
Fix z range z -.1 .1
Fix z range z 21.9 22.1
Hist unbal
Solve
Save shiyan11-1.sav
;设置单根锚索
Sel cable id=1 beg 8.5,5,17 end 17.5631,5,12.7738 nseg 10
Sel cable id=1 beg 17.5631,5,12.7738 end 24.8135,5,9.3929 nseg 8
Sel cable id=1 prop emod 9.86e10 ytension 2.32e7 xcarea 0.000314 &
Gr_coh 1 gr_k 1 gr_per 0.09424 range cid 1,10
Sel cable prop emod 9.86e10 ytension 2.32e5 xcarea 0.000314 &
Gr_coh 1.75e5 gr_k 1.12e9 gr_fric 30 range cid 11,19
Sel shell id=2 crossdiag range x 8.0, 9.0 z 16.5 17.5 y 4.5 5.5
sel shell id 2 prop iso 9.86e10 0 thick 0.1
sel dele cable range cid 1
sel cablesel cid 1 id 1 nodes 3 20
Sel cable id=1 pretension 1e6 range cid 1,10
这是我做的边坡,设置了一根锚索,我想在这根锚索上施加地震波,应该怎么办?我看不太懂书上的的那些命令,各位能给个简单点的例子吗?毕业论文急需,谢谢 |
|