- 积分
- 0
- 注册时间
- 2010-5-13
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2011-11-30 15:17:06
|
显示全部楼层
来自 河南洛阳
对了,补充一下我的命令流,这个命令流我每次开挖是2米,但结果都是一样的,我的所有的shell单元用的都是一个id号,就是每一步开挖的shell的id都是1
res initialstress.sav
;清零
ini xdis=0 ydis=0 zdis=0
ini xvel=0 yvel=0 zvel=0
;初支(无二衬)情况下
;设置监测点,在y=50处设置拱顶沉降,收敛,挤出变形
def monit
array shoulian(3),jichuvetical(5),jichuhorizontal(4)
chenjiang=gp_near(0,50,3.7);
shoulian(1)=gp_near(3.7,50,0)
shoulian(2)=gp_near(3.7,50,-1.45)
shoulian(3)=gp_near(3.7,50,-4.35)
jichuvetical(1)=gp_near(0,50,0)
jichuvetical(2)=gp_near(0,50,1.65)
jichuvetical(3)=gp_near(0,50,-1.45)
jichuvetical(4)=gp_near(0,50,-2.9)
jichuvetical(5)=gp_near(0,50,-4.35)
jichuhorizontal(1)=gp_near(0,50,0)
jichuhorizontal(2)=gp_near(0.825,50,0)
jichuhorizontal(3)=gp_near(1.65,50,0)
jichuhorizontal(4)=gp_near(2.475,50,0)
end
monit
;定义锚杆
def maogan
xxqb=3.7
xxqe=6.2
yy1=y1-1
loop yy(y0,yy1)
danhudu=3.1415926/180
;拱部锚杆
loop ii(0,6)
xxb=3.7*sin(15*ii*danhudu)
zzb=3.7*cos(15*ii*danhudu)
xxe=6.2*sin(15*ii*danhudu)
zze=6.2*cos(15*ii*danhudu)
command
sel cable id maogan_id begin xxb yy zzb end xxe yy zze nseg 3
sel cable id maogan_id pro emod 45e9 xcarea 38e-3 gr_per 0.75 yten 12e4 gr_k 1.75e7 gr_c 2.0e5
endcommand
maogan_id=maogan_id+1
end_loop
;边墙锚杆
loop iii(1,3)
zzqb=-iii*1.45
zzqe=zzqb
command
sel cable id maogan_id begin xxb yy zzqb end xxe yy zzqe nseg 3
sel cable id maogan_id pro emod 45e9 xcarea 38e-3 gr_per 0.75 yten 12e4 gr_k 1.75e7 gr_c 2.0e5
endcommand
maogan_id=maogan_id+1
end_loop
end_loop
end
;喷混凝土,用壳单元
def shootconcrete
command
sel shell id 1 range y jinchi1 jinchi2 cyl end1 0 0 0 end2 0 100 0 rad 3.75 cyl end1 0 0 0 end2 0 100 0 rad 3.5 not
sel shell id 1 range y jinchi1 jinchi2 x 3.5 3.9 z -6.3 0
sel shell id 1 range y jinchi1 jinchi2 x 0 3.9 z -6.35 -6.1
sel shell prop isotropic 21e9 0.24 thickness 0.22 density 2200
end_command
end
def excav
;开挖步数50
loop n(1,50)
y0=n*2-2
y1=n*2
jinchi2=2*n-0.45
jinchi1=jinchi2-1.1
command
mo null range y jinchi1 jinchi2 group kaiwa
model null range y jinchi1 jinchi2 group chenqi
;开挖后应力释放
step 150
end_command
maogan
shootconcrete
command
print n
solve
end_command
xtable(1,n)=2.0*n
ytable(1,n)=gp_zdisp(chenjiang)
xtable(2,n)=2.0*n
ytable(2,n)=gp_xdisp(shoulian(1))
xtable(3,n)=2.0*n
ytable(3,n)=gp_xdisp(shoulian(2))
xtable(4,n)=2.0*n
ytable(4,n)=gp_xdisp(shoulian(3))
xtable(5,n)=2.0*n
ytable(5,n)=gp_ydisp(jichuvetical(1))
xtable(6,n)=2.0*n
ytable(6,n)=gp_ydisp(jichuvetical(2))
xtable(7,n)=2.0*n
ytable(7,n)=gp_ydisp(jichuvetical(3))
xtable(8,n)=2.0*n
ytable(8,n)=gp_ydisp(jichuvetical(4))
xtable(9,n)=2.0*n
ytable(9,n)=gp_ydisp(jichuvetical(5))
xtable(10,n)=2.0*n
ytable(10,n)=gp_ydisp(jichuhorizontal(1))
xtable(11,n)=2.0*n
ytable(11,n)=gp_ydisp(jichuhorizontal(2))
xtable(12,n)=2.0*n
ytable(12,n)=gp_ydisp(jichuhorizontal(3))
xtable(13,n)=2.0*n
ytable(13,n)=gp_ydisp(jichuhorizontal(4))
end_loop
end
set maogan_id=1
excav
save zhihu.sav
|
|