fini
/cle
/filname,tunnel
/prep7
et,1,beam3!初砌
keyopt,1,6,1
et,2,plane42!围岩
keyopt,1,3,0
et,3,plane42!挖去围岩
keyopt,1,3,0
MP,EX,1,28e9
MP,prxy,1,0.2
MP,DENS,1,2300
r,1,0.2,0.000667,0.2!初砌厚度
MP,EX,2,3.5e9!围岩
MP,nuxy,2,0.33
MP,DENS,2,2000
TB,DP,2
tbdata,1,4e5,38
MP,EX,3,2.95e10!c25混凝土
MP,nuxy,3,0.33
MP,DENS,3,2300
MP,EX,4,3.5e9!w围岩
MP,nuxy,4,0.33
MP,DENS,4,2000
TB,DP,4
tbdata,1,4e5,38
MP,EX,5,3.5e9!jg围岩
MP,nuxy,5,0.33
MP,DENS,5,2000
TB,DP,5
tbdata,1,4e6,38
k,1,-45,10!围岩
k,2,-20,10
k,3,0,12
k,4,20,24
k,5,45,30
k,6,45,-5
k,7,20,-5
k,8,-20,-5
k,9,-45,-5
k,10,-45,-20
k,11,-20,-20
k,12,20,-20
k,13,45,-20
l,1,2
l,2,3
l,3,4
l,4,5
l,5,6
l,4,7
l,2,8
l,1,9
l,6,7
l,7,8
l,8,9
l,9,10
l,8,11
l,7,12
l,6,13
l,10,11
l,11,12
l,12,13
k,24,2.29,0!中导洞
k,25,2.4,5.93
k,26,-2.4,5.9
k,27,-2.29,0
larc,24,25,26,4.47!中导洞
larc,25,26,27,3.4
larc,26,27,24,4.31
l,24,27
k,200,4,9!中导洞支护
k,201,-4,9
larc,200,201,26,6
l,201,26
l,200,25
al,1,7,11,8
al,6,7,2,3,10
al,4,5,6,9
al,11,12,13,16
al,10,13,14,17
al,9,14,15,18
asbl,all,all
nummrg,all,,,,low
numcmp,all
/pnum,line,1
lplot
/pnum,area,1
aplot
lsel,s,,,19,22,1
latt,1,1,1
esize,1
lmesh,all
asel,s,,,6
adele,all
asel,s,,,1,5,1!围岩
asel,a,,,8
aatt,2,,2
esize,1.5
amesh,all
asel,s,,,7!围岩
aatt,4,,2
esize,1.5
amesh,all
nsel,s,loc,x,-45!约束边界
nsel,a,loc,x,45
d,all,ux
nsel,s,loc,y,-20
d,all,uy
/solu
antype,static
deltim,0.1,0.05,0.2
autots,on !使用自动时间步
pred,on !打开时间步长预测器
lnsrch,on !打开线性搜索
nlgeom,on !打开大位移效果
nropt,full !设定牛顿-拉普森选项
cnvtol,f,,0.02,0
acel,,-9.8
solve
save,step1,db |