fini
/cler
*set,x1,-74 !设置几何尺寸
*set,y1,-33.4
*set,w1,89
*set,h1,93.4
*set,x2,-74
*set,y2,-33.4
*set,w2,89
*set,h2,30
*set,x3,15
*set,y3,-33.4
*set,w3,10
*set,h3,30
*set,x4,-74
*set,y4,-63.4
*set,w4,99
*set,h4,30
*set,th,0.25
*set,length_z,30
/prep7 !材料参数
et,1,mesh200,2
et,2,mesh200,6
et,3,shell63
et,4,solid45
r,1,th
mp,ex,1,3.0e10
mp,prxy,1,0.2
mp,dens,1,2700
mp,ex,2,2.5e8
mp,prxy,2,0.32
mp,dens,2,2200
mp,ex,3,2.5e8
mp,prxy,3,0.32
mp,dens,3,2200
mp,ex,4,2.5e8
mp,prxy,4,0.32
mp,dens,4,2200
k,1,0,1.687 !绘制隧道轮廓线
k,2,-6.15,-1.4
k,3,6.15,-1.4
k,4,-10.88,-1.4
k,5,-9.08,7.6
k,6,-8.08,7.6
circle,1,6.15,,,180
l,2,3
l,3,7
l,2,9
l,4,5
l,5,6
k,,-6.68,15.6 !设置隧道左边特大溶洞的轮廓线
l,6,10
k,,-6.1,15,
k,,-5.5,14.3
k,, -5,13.5
k,,-4.8,12
k,,-4.5,10
k,, -4.3,9
k,, -4.2,8
k,,-4.1,7
k,, -4,6.3
l,2,4
blc4,-11.88,-3.4,6.7,2 !隧道路面下桩基础的承台
nummrg,all,,,,low
numcmp,all
k,,-17,-1.4 !连接溶洞边线
k,,-34,-1.4
k,,-32,8
k,,-30,16
k,,-25,24
k,,-11,25
k,,-9,22
k,,-7,19
bsplin,25,26,27,28
bsplin,28,29,30,31
bsplin,31,10,11,12,13,14
bsplin,14,15,16,17,18,19
lovl,all
ldele,26
a,2,9,32,8,7,3
a,4,5,6,10,14,32,9,2
l,23,25
a,23,25,28,31,10,6,5,4 |