- 积分
- 22
- 注册时间
- 2004-12-7
- 仿真币
-
- 最后登录
- 1970-1-1
|
几点心得:
1、由于现场量测往往滞后于开挖,瞬间位移无法测到,因此必须对两侧位移进行修正,修正方法可参见王芝银等出版的《》。
2、为了正确的模拟现场的开挖过程,应适时打开关闭流变开关,设置流变时间及流变时步,流变时步是影响模拟结果的重要因素之一,过大的流变时步可能会导致,振荡的时间应变曲线,有时甚至发散;过小的流变时步将会大大增加计算量,因此合理设置流变时步尤为重要。
更多的问题,共同探讨!
下面的代码(部分)是一个工程实例,详细描述了在洞室开挖过程及长期稳定运行期间的流变现象:
n
title ttt
config creep
call burg.fis
gr 100 100
gen 0,0 0,100 100,100 100,0 i=1,101 j=1,101
m e
init x mul 1.6 i=1,26
init x mul 0.4 i=27,76
init x add 30 i=27,76
init x mul 1.6 i=77,101
init x add -60 i=77,101
* mark i=26 j=1,50
* mark i=27 j=50,101
* mark i=76 j=1,50
* mark i=77 j=50,101
init y mul 1.6 j=1,6
init y mul 0.4 j=7,56
init y add 6 j=7,56
init y mul 1.6 j=57,101
init y add -60 j=57,101
* mark j=6 i=1,50
* mark j=7 i=50,101
* mark j=56 i=1,50
* mark j=57 i=50,101
** the biggest frame
table 1 0,0 0,100 100,100 100,0 0,0
gen table 1
** the slope
table 2 0,100 40,81.5 70,74 100,60
gen table 2
model null region 99,99
**** yanxing1
table 3 0,52 80,54 100,56
gen table 3
**** yanxing2
gen line 0,12 100,14
m m_burgers region 10,5
m m_burgers region 10,55
mark i=10,j=5
mark i=10,j=55
mark i=10,j=80
set gravity 10
fix x i=1
fix x i=101
fix x,y j=1
call property.fis
set ncw=10 ** play one times evry iration ten times on the screen
his 100 unbalance
set force 1e-7
set sratio 0.0
solve * 平衡初始地应力场
save e:\equ\equ1.sav
************位移场置零********************
init xdis=0.0
init ydis=0.0
************位移场置零********************
*** excavate the pre-hole
table 5 56.8,16 58.8,16 58.8,18 56.8,18 56.8,16
gen table 5
mark i=71,j=28
model null region 71,28
*** excavate the pre-hole
solve ** 开挖后平衡应力场
save e:\equ\equ2.sav
set force 0.0
set sratio 0.0
set fobl=5e-7 fobu=1e-5 lmul=1.5 umul=0.5
set maxdt=1e-2 mindt=5e-6
set latency=50
set crdt=auto
solve age 20
save e:\equ\equ3.sav
************位移场置零********************
init xdis=0.0
init ydis=0.0
************位移场置零********************
call 2456.txt ***标注2#、4#、5#、6#测孔的位置
*** excavate the experiment hole
table 6 46.8,16 48.8,16 48.8,18 46.8,18 46.8,16
gen table 6
mark i=45,j=28
model null region 45,28
*** excavate the experiment hole
set force 1e-7
set sratio 0.0
set crdt=0 ** 关闭流变开关
solve ** 开挖后平衡应力场
save e:\equ\equ4.sav
set force 0.0
set fobl=5e-7 fobu=1e-5 lmul=1.5 umul=0.5
set maxdt=1e-2 mindt=5e-6
set latency=50
set crdt=auto
call wtf.txt ****将测孔数据保存到文件中
save e:\equ\equ5.sav
call savhis.fis
pl hold his 100
return |
评分
-
1
查看全部评分
-
|