- 积分
- 0
- 注册时间
- 2009-3-31
- 仿真币
-
- 最后登录
- 1970-1-1
|
本人新手,最近做一个巷道开挖的实验,不知为什么开挖后底鼓量只有12mm左右,埋深800m,请大虾赐教,谢谢。
具体代码如下:
;创建网格
grid 120 90
;为网格选择本构模型
m m
;单一均质材料
prop bulk=2.5e9 s=1.5e9 d=2500 f=30 c=6e5
;调整加密网格
;水平方向加密
gen 0 0 0 60 20 60 20 0 i=1,21
gen 20 0 20 60 60 60 60 0 i=21,101
gen 60 0 60 60 80 60 80 0 i=101,121
;垂直方向加密
gen 0 0 0 15 20 15 20 0 i=1,21 j=1,17
gen 20 0 20 15 60 15 60 0 i=21,101 j=1,17
gen 60 0 60 15 80 15 80 0 i=101,121 j=1,17
gen 0 15 0 45 20 45 20 15 i=1,21 j=17,76
gen 20 15 20 45 60 45 60 15 i=21,101 j=17,76
gen 60 15 60 45 80 45 80 15 i=101,121 j=17,76
gen 0 45 0 60 20 60 20 45 i=1,21 j=76,91
gen 20 45 20 60 60 60 60 45 i=21,101 j=76,91
gen 60 45 60 60 80 60 80 45 i=101,121 j=76,91
;设置位移边界条件
fix x i=1
fix x i=121
fix y j=1
;设置重力
set g=9.8
;设置模型内的初始应力
ini syy=-21.07e6 var 0,1.47e6
ini sxx=-21.07e6 var 0,1.47e6
ini szz=-21.07e6 var 0,1.47e6
app syy=-19.6e6 j=91;埋深800m
set large
solve
save initial.sav
res initial.sav
gen line 38,28.4 42,28.4
gen line 38,28.4 38,30
gen line 42,28.4 42,30
gen arc 40,30 42,30 180
m null region i=61 j=46
gen adjust
ini ydisp=0 xdisp=0
ini yvel=0 xvel=0
hist 1 ydisp i 61 j 43
solve
save 1.sav
plot hist 1 |
|