|
fini
/clear
/title,Bridge of Guangka Road Nanjing,JiangSu
!/input,brlast.inp
!所有单位均采用国际单位制N，m，Kg，s，m/s^2
/prep7
et,1,solid45
et,2,shell63
mp,ex,1,28.5e10
mp,prxy,1,0.16666667
mp,dens,1,2653.06
mp,ex,2,28.5e10
mp,prxy,2,0.16666667
mp,dens,2,0
acel,,9.8
k
k,2,1.5
k,3,10.100
k,4,10.100,1.757
k,5,9.939,1.949
k,6,9.554,2.408
k,7,9.393,2.600
k,8,2.496,2.600
k,9,2.304,2.439
k,10,1.692,1.925
k,11,1.500,1.764
k,12,,1.764
a,1,2,11,12
a,2,3,4,11
a,8,9,10,11,4,5,6,7
k,13,,,-1.500
k,14,,,-5.900
l,1,13
l,13,14
vdrag,1,2,3,,,,15,16
k,,0.214,3.296,-1.5
k,,1.21,4.132,-1.5
k,,11.471,3.234,-1.5
k,,11.086,3.694,-1.5
a,22,23,39,40
a,25,42,41,24
vdrag,38,39,,,,,58
vglue,all
vsel,s,,,1,6,1
vatt,1,1,1
vsel,s,,,9,10,1
vatt,2,1,1
vsel,all
asel,s,loc,z,0
/pnum,area,1
aplot
esize,0.5
mshkey,1
mshape,0,2d
aatt,2,,2
aglue,all
amesh,1
amesh,2
amap,3,11,8,7,4 !以11,8,7,4为顶点对面积3进行四边形mapped网格剖分
vsel,s,,,1,6
EXTOPT,ACLEAR,1
FLST,5,6,6,ORDE,2
FITEM,5,1
FITEM,5,-6
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,''VOLU''
CMSEL,S,_Y
VSWEEP,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
asel,s,,,38,39
aatt,2,,2
amesh,all
vsel,s,,,9,10,1
FLST,5,2,6,ORDE,2
FITEM,5,9
FITEM,5,-10
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,''VOLU''
CMSEL,S,_Y
VSWEEP,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
nsel,s,loc,x,1.1-0.1,1.1+0.1
nsel,a,loc,x,4.3-0.1,4.3+0.1
nsel,a,loc,x,9-0.15,9+0.15
nsel,r,loc,y,0
nsel,r,loc,z,-1.1-0.1,-1.1+0.1
d,all,all
nsel,s,loc,x,1.1-0.1,1.1+0.1
nsel,a,loc,x,4.3-0.1,4.3+0.1
nsel,a,loc,x,9-0.15,9+0.15
nsel,r,loc,y,0
nsel,r,loc,z,-4.3-0.15,-4.3+0.15
d,all,all
asel,s,loc,z,-5.9
da,all,uz
lsel,s,,,81
nsll,s,1
*get,number1,node,,COUNT
*set,fx1,3047400/(number1)
*set,fy1,298300/(number1)
f,all,fx,fx1
f,all,fy,fy1
lsel,s,,,79
nsll,s,1
*get,number2,node,,count
*set,fy2,-9478500/(number2)
f,all,fy,fy2
lsel,s,,,87
nsll,s,1
*get,number3,node,,COUNT
*set,fx3,-160300/(number3)
*set,fy3,4858000/(number3)
f,all,fx,fx3
f,all,fy,fy3
lsel,s,,,85
nsll,s,1
*get,number4,node,,COUNT
*set,fy4,-5203000/(number4)
f,all,fy,fy4
allsel,all
gplot
allsel,all
/solu
solve
/post1
plnsol,s,x,0,1
|